dd0   equ   0x70

READ_DATA_PACKET
   movlw   dd0
   movwf   FSR
   movlw   8
   movwf   count
READ_DATA_LOOP         ;8 data bytes to buffer
   btfss   PIR1,RCIF   ;RX ?
   goto   $-1      ;no
   movf   RCREG,w
   movwf   INDF
   incf   FSR,f
   decfsz   count,f
   goto   READ_DATA_LOOP

LIST P=PIC16F1825
   INCLUDE <P16F1825.INC>
   errorlevel  -305
   errorlevel  -302

;ПОДПРОГРАММЫ:
;EEPROM_WR - ЗАПИСЬ В EEPROM ПО АДРЕСУ В W И ДАННЫМИ В TEMP
;EEPROM_RD - ЧТЕНИЕ ИЗ EEPROM ПО АДРЕСУ В W
;DIR_TX - ПЕРЕВОД ПРИЕМОПЕРЕДАТЧИКА В РЕЖИМ "ПЕРЕДАЧА"
;DIR_RX - ПЕРЕВОД ПРИЕМОПЕРЕДАТЧИКА В РЕЖИМ "ПРИЕМ"
;CRC8_TX - ВЫЧИСЛЕНИЕ CRC8 ПЕРЕДАВАЕМОГО СООБЩЕНИЯ. ДОБАВЛЕНИЕ CRC8 В КОНЕЦ СООБЩЕНИЯ
;CRC8_RX - ВЫЧИСЛЕНИЕ CRC8 ПРИНЯТОГО СООБЩЕНИЯ. ЕСЛИ ОШИБКА, ТО УСТАНАВЛИВЕТСЯ FLAGS,0, ИНАЧЕ НИЧЕГО НЕ ПРОИСХОДИТ.

                     


;ОПИСАНИЕ:
;TRM6 НАСТРОЕН НА ПЕРИОД В 0.77 МС, ДЛЯ ДЕТЕКТИРОВАНИЯ КОНЦА СООБЩЕНИЯ И ОЖИДАНИЯ ПРИЕМА СЛЕДУЮЩЕГО
;TMR3 НАСТРОЕН НА ПЕРИОД В 2 МС, ДЛЯ ПАУЗЫ ОТВЕТА


   
ADRES1   EQU   0X70   ;АДРЕС ПРИБОРА 1. ЧТЕНИЕ ИЗ EEPROM
I2C_TEMP1   EQU   0X71   ;TEMP РЕГИСТР I2C
KEY   EQU   0X72   ;КЛЮЧ ПРИ ПЕРЕХОДЕ НА ШИФРАЦИЮ ПРИБОРА 1
RAND   EQU   0X73   ;ЧИСЛО ШИФРАЦИИ ПРИБОРА 1
INC_N   EQU   0X74   ;ИНКРЕМЕНТИРУЮЩЕЕСЯ ЧИСЛО КОМАНДЫ C_02

ERR_BUF   EQU   0X75   ;БУФЕР ОШИБОК I2C
ADRES_TEMP   EQU   0X76
N_BYTE   EQU   0X77
FLAG485   EQU   0X78   ;0-(0-НЕТ ПРИЕМА;1-ЕСТЬ ПРИЕМ);1-(0-НЕТ СООБЩЕНИЯ;1-ЕСТЬ СООБЩЕНИЕ);2-0-НЕТ ПЕРЕДАЧИ;1-ИДЕТ ПЕРЕДАЧА);3-(0-НЕТ ШИФРАЦИИ;1-ЕСТЬ ШИФРАЦИЯ)
FLAGI2C   EQU   0X79   ;0-(0-НЕТ ПРИЕМОПЕРЕДАЧИ;1-ИДЕТ ПРИЕМОПЕРЕДАЧА);1-(
TEMP   EQU   0X7A
TEMP1   EQU   0X7B
I2C_OP   EQU   0X7C   ;РЕГИСТР ОПЕРАЦИЙ I2C
   
I2C_COM   EQU   0X7E
I2C_ADD   EQU   0X7F   ;ТЕКУЩИЙ АДРЕС I2C. ДИАПАЗОН: 0X80 ДО 0XA8 (128 ДО 168)

BUF_OLD   EQU   0X1A0   ;АДРЕС СТАРОГО СООБЩЕНИЯ
BUF_NEW   EQU   0X1A1   ;АДРЕС НОВОГО СООБЩЕНИЯ
N_HS   EQU   0X1A8




   __CONFIG 8007h, 0X0F84
   __CONFIG 8008h, 0X1AFF

   
   ORG 0X00
   GOTO MAIN
   
      
   ORG 0X04      ;ПРЕРЫВАНИЯ
   BCF INTCON,7      ;ВЫКЛЮЧАЕМ ПРЕРЫВАНИЯ
   BANKSEL PIR1   
   BTFSC PIR3,1      ;ПАУЗА ОТВЕТА
   GOTO P_OTVET   
   BTFSC PIR1,4      ;ПЕРЕДАЧА СОВЕРШЕНА?      
   GOTO RS_485_TX   ;ДА, ПЕРЕХОД НА ОБРАБОТКУ   
      
INT1   BTFSC PIR1,5      ;ПРИЕМ СОВЕРШЕН?
   GOTO RS_485_RX   ;ДА, ПЕРЕХОД НА ОБРАБОТКУ      
   BTFSC PIR3,3      ;ТАЙМЕР СИНХРОНИЗАЦИИ СРАБОТАЛ?
   GOTO SYNS      ;ДА, ПЕРЕХОД НА ОБРАБОТКУ




P_OTVET   CALL DIR_TX      ;ПАУЗА ОТВЕТА
   BANKSEL T4CON
   CLRF T4CON
   BANKSEL PIR3
   BCF PIR3,1
   BANKSEL TXSTA
   BSF TXSTA,5   
   BANKSEL PIE1
   BSF PIE1,4
   BSF INTCON,7
   RETFIE
   
   
SYNS   NOP
   BANKSEL BAUDCON
   BTFSS BAUDCON,6
   GOTO SS1   
   BCF FLAG485,0   ;ПРИЕМ ОКОНЧЕН. (0-НЕТ ПРИЕМА)
   BANKSEL PORTA
   BCF PORTA,4      
   CALL CRC8_RX   
   CALL RX_ER      ;ПРОВЕРКА НА НУЛИ
         ;ВЫКЛЮЧАЕМ ПРЕРЫВАНИЯ ОТ ПЕРИФЕРИИ
SS1   NOP
   BANKSEL PIR3
   BCF PIR3,3
   BANKSEL T6CON
   CLRF T6CON   
   
   RETFIE
   
   
      
RS_485_RX   BTFSC FLAG485,0   ;ПРИЕМ
   GOTO RX1
   CLRF ADRES_TEMP
   CALL LED_485_RX   
   BSF FLAG485,0   ;УСТАНАВЛИВАЕМ ФЛАГ ПРИЕМА (1-ИДЁТ ПРИЕМ)
RX1   MOVFW ADRES_TEMP   ;ЗАГРУЗКА В БУФЕР СЛЕДУЮЩЕГО БАЙТА
   MOVWF FSR0L
   MOVLW 0X20
   MOVWF FSR0H
   BANKSEL RCREG
   MOVFW RCREG
   MOVWF INDF0
   INCF ADRES_TEMP   
   BANKSEL PIR3
   BCF PIR3,3      
   BANKSEL T6CON
   MOVLW B'00010101'   ;СБРАСЫВАЕМ ТАЙМЕР СИНХРОНИЗАЦИИ
   MOVWF T6CON                  
   BSF INTCON,7   
   RETFIE
   
   
   

RS_485_TX   BTFSC FLAG485,2   ;ШЛА ПЕРЕДАЧА?
   GOTO TX1      ;ДА, ПРОДОЛЖАЕМ
   MOVLW 0X20      ;НЕТ, НАЧАЛО НОВОЙ
   MOVWF FSR0H
   MOVLW 0X50
   MOVWF ADRES_TEMP
   BANKSEL 0XA0
   MOVFW 0XA1
   MOVWF N_BYTE
   INCF N_BYTE   
   CALL LED_485_TX
   BSF FLAG485,2   ;УСТАНАВЛИВАЕМ ФЛАГ ПЕРЕДАЧИ (1-ИДЕТ ПЕРЕДАЧА)
   GOTO TX3      ;ЗАГРУЖАЕМ ПЕРЕДАТЧИК
TX1   NOP      ;ПРЕРЫВАНИЯ ВЫКЛЮЧЕНЫ?
   BANKSEL PIE1
   BTFSC PIE1,4
   GOTO TX3      ;НЕТ, ЗАГРУЖАЕМ ПЕРЕДАТЧИК
   NOP      ;ДА, ЖДЁМ ОКОНЧАНИЯ ПЕРЕДАЧИ
   BANKSEL TXSTA
   BTFSC TXSTA,1   ;ПЕРЕДАЧА ЗАВЕРШЕНА?
   GOTO INT2      
   BANKSEL PIR1      ;НЕТ, ПРОВЕРЯЕМ СЛЕДУЮЩЕЕ СОБЫТИЕ INT
   GOTO INT1   
INT2   CALL DIR_RX      ;ДА, ВКЛЮЧЕНИЕ ПРИЕМНИКА
   BANKSEL TXSTA
   BCF TXSTA,5      ;ПЕРЕДАТЧИК ВЫКЛЮЧЕН
   BSF RCSTA,4      ;ПРИЕМНИК ВКЛЮЧЕН   
   CALL LED_485_TX   
   BCF FLAG485,2   ;ПЕРЕДАЧА ЗАВЕРШЕНА
   BSF INTCON,7
   RETFIE
TX3   MOVFW ADRES_TEMP   ;ЗАГРУЗКА ПЕРЕДАТЧИКА
   MOVWF FSR0L
   BANKSEL TXREG
   MOVFW INDF0
   MOVWF TXREG
   INCF ADRES_TEMP
   DECFSZ N_BYTE
   GOTO TX2
   BANKSEL PIE1
   BCF PIE1,4   
TX2   BSF INTCON,7
   RETFIE

          RETFIE FAST

CRC8_RX   CLRF TEMP      ;ПОДПРОГРАММА ВЫЧИСЛЕНИЯ CRC8 ПРИНЯТОГО СООБЩЕНИЯ
   MOVLW 0X20          ;курсов FSR на буфер принятого сообщения
   MOVWF FSR0H
   MOVLW 0X00
   MOVWF FSR0L      ;ВСТАЛИ НА ПЕРВЫЙ БАЙТ
   BANKSEL 0X21
   MOVFW 0X21             ;в посылке указывается число байтов
   MOVWF TEMP1      ;СКОЛЬКО НАДО БАЙТОВ ВЫЧИСЛИТЬ
   INCF TEMP1   
CRC2   MOVFW INDF0      ;ПРОЧИТАЛИ ЗНАЧЕНИЕ
   XORWF TEMP,1      ;ПРОКСОРИЛИ С ПРЕДЪИДЩИМ
   MOVFW TEMP   
   CALL CRC8_TABLE   ;ВЗЯЛИ ИЗ ТАБЛИЦЫ
   MOVWF TEMP      ;ЗАПИСАЛИ ВО ВРЕМЕННЫЙ
   INCF FSR0L      ;СЛЕДУЮЩИЙ АДРЕС
   DECFSZ TEMP1      ;УМЕНЬШИЛИ ЧИСЛО БАЙТОВ
   GOTO CRC2
   MOVLW 0X00
   ADDWF TEMP
   BTFSC STATUS,2   ;РЕЗУЛЬТАТ РАВЕН НУЛЮ?
   GOTO CRC3      ;ДА, ВСЁ ВЕРНО
   BCF FLAG485,1   ;НЕТ, ОШИКА ПРИЕМА.   
   RETURN   
CRC3   BSF FLAG485,1
   RETURN




CRC8_TABLE   BRW      ;ТАБЛИЦА ДЛЯ ВЫЧИСЛЕНИЯ CRC8
   RETLW 0X00
   RETLW 0X5E
   RETLW 0XBC
   RETLW 0XE2
        ........