org   0x00
          goto  begin_program

          org  0x04
          ....
          .... ; твоят код
          retfie

begin_program
          ......
          ......
          .......
           и т.н.

   ORG     0x0000             ; processor reset vector
   nop                    ; nop required for icd
     goto    INIT                    ; go to beginning of program

   ORG     0x0004             ;interrupt vector location
PUSH
   movwf   w_temp          ; save off current W register contents
   movf   STATUS,w      ; move status register into W register
   movwf   status_temp       ; save off contents of STATUS register
   movf   PCLATH,w     ; move pclath register into w register
   movwf   pclath_temp     ; save off contents of PCLATH register
   movf   FSR,w
   movwf   fsr_temp
                     ..
   btfss   PIR1,RCIF
   goto   POP
   BANKSEL   PIE1
   bcf   PIE1,RCIE   ; Disable USART interrupt
   bcf   STATUS,RP0
   goto   USART_ISR
                     ..

POP
   movf   fsr_temp,w
   movwf   FSR
   movf   pclath_temp,w     ; retrieve copy of PCLATH register
   movwf   PCLATH        ; restore pre-isr PCLATH register contents
   movf    status_temp,w     ; retrieve copy of STATUS register
   movwf   STATUS            ; restore pre-isr STATUS register contents
   swapf   w_temp,f
   swapf   w_temp,w          ; restore pre-isr W register contents
   retfie                    ; return from interrupt
   
USART_ISR
   btfsc   msg_status,4  ; Check if device is executing a command 
   goto   USART_busy
   btfsc   msg_status,5  ; Check if this is new packet
   goto   next_pack_byte
   movlw   0xFF
   movwf   TEMP1
   movlw   0xFF
   movwf   TEMP2
   movlw   0xA0   ; Yes, new packet, start from FSR 0xA0
   movwf   FSR
   movf   RCREG,w
   movwf   INDF
poll_id
   btfsc   PIR1,RCIF      ; Wait here for second ID byte
   goto   sec_id         
   decf
sz   TEMP1,f      ; Poll next 51uS
   goto   poll_id
   decfsz   TEMP2,f
   goto   poll_id
goto   POP
sec_id   
   incf   FSR,f
   movf   RCREG,w
   movwf   INDF
   movlw   0xA0
   movwf   FSR
   movf   INDF,w
   call   check_header
   banksel   msg_status
   btfsc   msg_status,0   ; ;Ceckfor ID reception   
   bsf   msg_status,5   ; ID recieved -- recording started
   btfsc   msg_status,0
   goto   USART_busy
goto   POP
next_pack_byte
   incf   FSR,f
   movf   RCREG,w
   movwf   INDF
goto   POP
USART_busy
                     send             'wait'
goto POP

check_header
   bsf      STATUS,RP0
   clrf      msg_status
   movlw   0xA0      ; Location of ID_H if reception is successful
   movwf   FSR      ; Compare ID_H with IDH (first header byte must be "I")
   movlw   IDH
   subwf   INDF,w
   btfss   STATUS,Z
   goto   no_header   ; Header not found
   incf   FSR,f      ; Location of ID_L
   movlw   IDL
   subwf   INDF,w
   btfss   STATUS,Z
   goto   no_header   ; Header not found
header_found
   bsf   msg_status,0   ; Set header_found bit
   bcf   STATUS,RP0
   return
no_header
   bcf      msg_status,0
   bcf      STATUS,RP0
   return
;====================================
   
;======= Get DATA Lenght ==================
;   OUTPUT:          packet_lenght
; If lenght = 0 then
; msg_status,1 = 0
; else
; msg_status,1 = 1
check_data_lenght      
   bsf   STATUS,RP0
   btfss   msg_status,0
   goto   bad_id   
   movlw   0xA2
   movwf   FSR
   movf   INDF,w
   movwf   packet_lenght
   bcf   STATUS,Z
   xorlw   0x00
   btfss   STATUS,Z         
   bsf   msg_status,1
   btfsc   STATUS,Z
   bcf   msg_status,1   
   bcf   STATUS,RP0   
return
bad_id
   bsf   msg_status,3         ; ;SET ;MASTER ERROR ON
RECIEVED STRING
   bcf      STATUS,RP0   
return
;======================================   
   
   
;========= Verify CHECKSUM ================
; INPUT:      CHKSUM1, CHKSUM2
; OUTPUT:      IF CHKSUM(OK) then msg_status,2 = 1
;1.   CHKS1 = Value(Data[1] + Data[2] +..+ Data[N])
;2.   CHKS2 = COM(Value(HEADER + packet_size + CHKSUM1))

verify_chksum
   bsf   STATUS,RP0
   btfss   msg_status,1      ; Check for valid data lenght
   goto   bad_chksum
   btfsc   msg_status,3      ; Check for master error
   goto   bad_chksum
   movlw   0xA3
   movwf   FSR
   movf   packet_lenght,w
   addwf   FSR,f      ; FSR now points to CHKSUM1
   movf   INDF,w
   movwf   chksum1
   incf   FSR,f
   movf   INDF,w
   movwf   chksum2
   movlw   0xA3
   movwf   FSR
   movf   packet_lenght,w
   movwf   BTEMP1
   clrf   BTEMP2
ver_calc
   movf   INDF,w
   addwf   BTEMP2
   incf   FSR,f
   decfsz   BTEMP1,f
   goto   ver_calc         
ver_start      ; Verify calculated CHKSUM with recieved   
   movf   BTEMP2,w
   xorwf   chksum1,w
   btfss   STATUS,Z
   goto   bad_chksum      
   movlw   IDH+IDL
   addwf   packet_lenght,w
   addwf   chksum1,w
   movwf   BTEMP2
   comf   BTEMP2,w
   xorwf   chksum2,w
   btfss   STATUS,Z
   goto   bad_chksum
   bsf      msg_status,2
   bcf      STATUS,RP0      
   return
bad_chksum
   bcf      msg_status,2
   bcf      STATUS,RP0   
   return