;******************************* ;*** опепшбюмхъ оепедюрвхйю **** ;******************************* PRD_PROC BCF PIE1,TXIE,A ; гюопеыюел опепшбюмхъ оепедюрвхйю RETURN ;******************************** PUT_TO_TX CLRWDT BTFSS PIR1,TXIF,A ; нфхдюрэ онйю оепедюрвхй йнмрпнккепю нябнандхряъ GOTO PUT_TO_TX MOVWF TXREG,A BSF PIE1,TXIE,A ; пегпеьюел опепшбюмхъ оепедюрвхйю RETURN ;******************************* ;*** опепшбюмхъ опхелмхйю **** ;******************************* PRM_PROC BTFSS PIR1,RCIF,A RETURN BTFSC RCSTA,OERR,A GOTO PRM_EROR BTFSC RCSTA,FERR,A GOTO PRM_EROR MOVF RCREG,W,A ; явхрюрэ аюир MOVWF PRM_BUF,A CALL REGIM_PRM MOVWF REG_PRM,A ; напюаюршбюрэ онярсоючыхе аюирю GOTO PRM_PROC REGIM0 MOVLW 3AH ; яхлбнк мювюкю оепедювх ':' XORWF PRM_BUF,W,A ; BTFSS STATUS,Z,A RETLW .0 ; еякх менамюпсфем яхлбнк мювюкю рн пефхл = 0 RETLW .1 REGIM1 CALL L_ADRES_MOD ; XORWF PRM_BUF,W,A ; BTFSS STATUS,Z,A ; еякх янбоюк юдпея лндскъ я оепедюммшл рн пефхл 2 RETLW .0 ; хмювю хыел мнбши аюир мювюкю оепедювх RETLW .2 REGIM2 MOVF PRM_BUF,W,A ; явхрюмши аюир онлеярхрэ б пецхярп йнлюмдш MOVWF BUF_KOM,A RETLW .3 REGIM3 MOVF PRM_BUF,W,A ; явхрюмши аюир онлеярхрэ б пецхярп ноепюмдю1 MOVWF BUF_O1,A RETLW .4 REGIM4 MOVF PRM_BUF,W,A ; явхрюмши аюир онлеярхрэ б пецхярп ноепюмдю2 MOVWF BUF_O2,A RETLW .5 REGIM5 MOVF PRM_BUF,W,A XORWF CHEKIT,W,A ; опнбепхрэ йнмрпнкэмсч ясллс BTFSS STATUS,Z,A ; еякх йнмрпнкэмюъ ясллю янбоюкю рн нфхдюел 0D RETLW .6 ; бпелеммн ме опнбепъел йнмрпнкэмсч ясллс RETLW .6 ; х бяецдю оепеундхл й о6 REGIM6 MOVF PRM_BUF,W,A XORLW 0D BTFSS STATUS,Z,A ; еякх оепбши аюир йнмжю рн нфхдюел 0A RETLW .0 RETLW .7 REGIM7 MOVF PRM_BUF,W,A XORLW 0A BTFSC STATUS,Z,A ; еякх брнпни аюир йнмжю рн йнднцпюллю бепмю BSF _PRCOM,A RETLW .0 PRM_EROR BCF RCSTA,CREN,A ; яапня ньхайх опхелю нр оняк. онпрю BSF RCSTA,CREN,A ; пюгпеьемхе опхелю нр оняк. онпрю CLRF REG_PRM,A MOVF RCREG,W ,A ; явхрюрэ аюир MOVF RCREG,W,A ; явхрюрэ аюир RETURN ;****************************************