【正文】 ANKSEL TRISC BCF TRISC, 6 BSF TRISC, 7 MOVLW 19H MOVWF SPBRG BSF TXSTA, BRGH BSF TXSTA, TXEN BANKSEL RCSTA BSF RCSTA, CREN BSF RCSTA, SPEN RETURN************************************************取數(shù)據(jù)GET_DATA BANKSEL PIR1 BTSFC PIR1, RCIF GOTO GET_RX GOTO GET_DATAGET_RX BANKSEL RCREG MOVF RCREG, W MOVWF TEMP RETURN************************************************送數(shù)據(jù)SEND_DATA BANKSEL PIR1 BTFSC PIR1, TXIF GOTO SEND_TX GOTO SEND_DATASEND_TX BANKSEL TXREG MOVF TEMP, W MOVWF TXREG RETURN INCLUDEDEFINE RS PORTE, 0DEFINE RW1 PORTE, 1DEFINE E PORTE, 2DEFINE DAT PORTDDEFINE ICRST RB, 3DEFINE ICSDA RB, 5 DEFINE ICSCL RB, 4DEFINE ICVCC RB, 1DEFINE K2 RC, 4DEFINE SHORTTEST RB, 2DEFINE SDA RC, 1DEFINE SCL RC, 0DEFINE CLKO RB, 6 DEFINE SDO RB, 7 DEFINE STARTA RA, 2DEFINE EXTA RC, 5DEFINE KA1 RA, 1DEFINE PRESS RA, 0DEFINE REDL RC, 2。*************************************************變量聲明***************************************CBLOCK 20H W_STK 。保護斷點的 STATUS_STK PCLATH_STK FSR_STK FLAG COUNTA COUNTB COUNTC TRBUF RXBUF BUFF CBUF CBUF1 CBUF2 ENDC ADDR EQU 0B4HVALUE EQU 0AHSECBUF EQU 0FFHCBUF1 EQU 0ECHCBUF2 EQU 77H。*************************************************常量聲明***************************************TEMP EQU 0 。ICB EQU 1 。15MS定時到標(biāo)志位DAYB EQU 2 。1S定時到標(biāo)志位ZERO EQU 3 。70MS定時到標(biāo)志位PRICE EQU 4 。寄存器初值為6，預(yù) 分頻比1：4，中斷一次時間為4*（2566）=1000USNIC EQU 5FTIM EQU 6FTRM EQU 7。*************************************************宏定義BANK0 MACRO BCF STATUS, RP0 BCF STATUS, RP1 ENDM BANK1 MACRO BSF STATUS, RP0 BCF STATUS, RP1 END BANK2 MACRO BCF STATUS, RP0 BSF STATUS, RP1 ENDM READ_STATE MACRO BCF RS BSF RW1 BSF E ENDMWRITE_COMMAND MACRO BCF RS BCF RW1 BSF E ENDMWRITE_DATA MACRO BSF RS BCF RW1 BSF E END。***************************************復(fù)位矢量和中斷矢量******************************* ORG 00H GOTO MAIN ORG 04H GOTO INTSERVICEINTSERVICE MOVF W_STK SWAPF STATUS, W CLRF STATUS MOVWF STATUS_STK MOVF PCLATH, W MOVWF PCLATH_STK CLRF PCLATH BTSFC PIR1, TMR1IF CALL TIMER1 SWAPF STATUS_STK, W MOVWF STATUS SWAPF W_STK, F SWAPF W_STK, W RETFILETIMER1 BANK0 BTSFC FLAG, TEMP GOTO CHECK_ FLAG BCF SHORTTESTCHECK_ FLAG DECF VALUE COMF FLAG, F BANK0 BCF PIR1, TMR1IF CLRF TMR1L MOVLW TRBUF MOVWF TMR1H MOVLW RXBUF MOVWF TMR1L BSF SHORTTEST BSF T1CON, TMR1ON RETURN。****************************************主程序***************************************MAIN CALL INITIAL CALL INTEXTINITIAL CLRF FLAG BANK1 CLRF TRISC BANK0 CLRF T1CON CLRF TMR1L MOVLW CBUF1 MOVWF TRBUF MOVLW TRBUF MOVWF TMR1H MOVLW CBUF2 MOVWF RXBUF MOVLW TXBUF MOVWF TMR1L CLRF INTCON BSF INTCIN, PEIE BANK1 CLRF PIE1 BSF PIE1, TMR1IE BANK0 CLRF PIR1 MOVLW ADDR MOVWF COUNTA MOVLW VALUE MOVWF COUNTB MOVLW SECBUF MOVWF COUNTC BANK0 BSF T1CON, TMR1ON BSF INTCON, GIE BCF SCL RETURNINTEXT MOVLW VALUE SUBLW 00H BTFSS STATUS, Z GOTO INTEXT MOVLW 0AH MOVLW VALUE DECFCZ ADDR, VALUE GOTO WAXT ADDWF TRBUF, SECBUF BTFSC STATUS, C INCF RXBUF GOTO INTEXTWAXT MOVLW 0FEH MOVWF TRBUF MOVLW 0EAH MOVWF RXBUF END 37