;************************************************** ;**** рейяр опнцпюллш хмрепоперюрнпю ***** ;************************************************** ; INCLUDE PROGRAM.INC KOMN1 ; RETLW 0 KOMN2 ; RETLW 0 KOMN3 ; RETLW 0 KOMN4 ; RETLW 0 KOMN5 ; RETLW 0 KOMN6 ; RETLW 0 KOMN7 ; RETLW 0 KOMN8 ; гюохяюрэ аюир он юдпеяс MOVF OPERAND1,W,A MOVWF FSR,A MOVF OPERAND2,W,A MOVWF INDF,A RETLW 0 KOMN9 ; гюохяэ аюирю б EEPROM MOVF OPERAND1,W,A MOVWF EEADR,A ; сярюмюбкхбюел юдпея б EEPROM MOVF OPERAND2,W,A CALL SAVE_EEPROM ; гюохяшбюел ндхм аюир RETLW 0 ;******************************** KOMN10 ;A ; RETLW 0 ;******************************** KOMN11 ;B ; RETLW 0 ;******************************** KOMN12 ;C ; RETLW 0 ;******************************** KOMN13 ;D ; нрбер мю гюопня йнлюмдю ме хяонкмъеряъ RETLW 0 ;******************************** KOMN14 ; E ; оепеякюрэ N дюммшX мювхмюъ я сйюгюммнцн юдпеяю б нгс MOVF OPERAND1,W,A ; он щрнлс юдпеяс мюундъряъ дюммше б EEPROM MOVWF FSR,A MOVF INDF,W,A ; CALL PUT_TO_TX ; INCF OPERAND1,F,A ; сбекхвхрэ юдпея времхъ хг EEPROM DECFSZ OPERAND2,F,A ; слемэьхрэ явервхй явхрюммшу аюир GOTO KOMN14 ; еякх явхрюмш бяе дюммше хг EEPROM б астеп нгс RETLW 0 ;******************************** KOMN15 ; F GOTO EROR ; нфхдюел яапняю яхярелш он ярнпнфебнлс рюилепс KOMN16 ; 10 KOMN17 ; 11 KOMN18 ; 12 KOMN19 ; 13 KOMN20 ; 14 KOMN21 ; 15 KOMN22 ; 16 KOMN23 ; 17 KOMN24 ; 18 KOMN25 ; 19 KOMN26 ; 1A KOMN27 ; 1B KOMN28 ; 1C KOMN29 ; 1D RETLW 0 ;******************************** KOMN30 ; 1E MOVF OPERAND1,W,A ; он щрнлс юдпеяс мюундъряъ дюммше б EEPROM CALL RID_BT ; CALL PUT_TO_TX ; INCF OPERAND1,F,A ; сбекхвхрэ юдпея времхъ хг EEPROM DECFSZ OPERAND2,F,A ; слемэьхрэ явервхй явхрюммшу аюир GOTO KOMN30 ; еякх явхрюмш бяе дюммше хг EEPROM б астеп нгс RETLW 0 ;******************************** KOMN31 ; 1F GOTO EROR ; нфхдюел яапняю яхярелш он ярнпнфебнлс рюилепс ;********************************