;******************************* ;*** опепшбюмхъ оепедюрвхйю **** ;******************************* 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 MOVLW 06 ; еякх FSR2H днярхц щрнцн гмювемхъ XORWF FSR2H,W,A ; гмювхр опнхгнькн оепеонкмемхе астепю йнлюмдш BTFSC STATUS,Z,A CALL INIT_FSR ; хмхжхюкхгюжхъ астепю опхелю йнлюмд MOVF RCREG,W,A ; явхрюрэ аюир MOVWF POSTINC2,A ; гюохяюрэ опхмърши аюир б астеп XORLW 0D ; еякх щрн опхгмюй йнмжю йнлюмдш, BTFSS STATUS,Z,A RETURN BSF _PRCOM,A ; рн юйрхбхгхпнбюрэ напюанрйс RETURN PRM_EROR BCF RCSTA,CREN,A ; яапня ньхайх опхелю нр оняк. онпрю BSF RCSTA,CREN,A ; пюгпеьемхе опхелю нр оняк. онпрю MOVF RCREG,W,A ; явхрюрэ аюир MOVF RCREG,W,A ; явхрюрэ аюир RETURN ;****************************************