【正文】 RETR_CONFIG: JB FLAG,R_CONFIG1 RETR_CONFIG1: MOV A,0CCH LCALL WR_1820 MOV A,4EH LCALL WR_1820 MOV A,00H LCALL WR_1820 MOV A,00H LCALL WR_1820 MOV A,7FH LCALL WR_1820 RETDELAY2: MOV R7,80HMIN: DJNZ R7,YS500 RETYS500: LCALL YS500US LJMP MINYS500US:MOV R6,80H DJNZ R6,$ RETDELAY1: MOV R7,10H DJNZ R7,$ RETDISP8279: 。顯示子程序,緩沖區(qū)為78H7FH。C8279 EQU 0E001H 。7fffH。D8279 EQU 0E000H 。7FFEH MOV DPTR,C8279 MOV A,0H MOVX @DPTR,A 。 寫8279方式字 MOV A,2aH MOVX @DPTR,A 。寫分頻系數(shù) MOV A,0D0H MOVX @DPTR,A 。清顯示 MOV A,90H MOVX @DPTR,A 。設(shè)置從左邊開始寫入數(shù)據(jù)DISP12: MOVX A,@DPTR JB ,DISP12 。讀8279工作是否正常 MOV R0,78H 。顯示緩沖首址 MOV R1,04HDISP22: MOV A,@R0 MOV DPTR,TAB8279 MOVC A,@A+DPTR 。查字型 MOV DPTR,D8279 CPL a MOVX @DPTR,A 。送字型到8279顯示 INC R0 DJNZ R1,DISP22 RET。字型代碼TAB8279: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H 。0,1,2,3,4,5,6,7 DB 80H,90H,88H,83H,0C6H,0A1H,86H,08EH 。8,9,A,B,C,D,E,F DB 08CH,0C1H,0BFH,91H,89H,0C7H,0FFH,07FH,9CH；P(10),U(11),(12),Y(13),H(14),L(15),關(guān)(16) ,.(17)o(18)CHA8279: MOV A,40H ANL A,0FH MOV 7DH,A MOV A,40H SWAP A ANL A,0FH MOV 7CH,A RETDISP: MOV R6,60H MOV R0,78H MOV R2,08HLOOP1: MOV A, @R0 MOV R7,A MOV MTD,R6 MOV MTD+1,R7 INC R6 INC R0 LCALL SENDCMD NOP NOP DJNZ R2,LOOP1 RET。發(fā)送命令子程SENDCMD: MOV SLA,C8279 。指定器件地址 MOV SUBA,07H 。指定子地址 MOV NUMBYTE,02H 。發(fā)送2字節(jié)數(shù)據(jù) LCALL IWRNBYTE NOP 。調(diào)用寫n字節(jié)數(shù)據(jù)程序 RET。啟動I2C總線子程序 DY: MOV R7,1H DJNZ R7,$ RET DELAY: MOV R5,10H DELAY0: MOV R4,0F0H DJNZ R4,$ DJNZ R5,DELAY0 RET。啟動I2C總線子程序START: SETB SDA NOP SETB SCL 。 LCALL DYCLR SDA LCALL DY CLR SCL 。鉗住總線，準(zhǔn)備發(fā)數(shù)據(jù) NOP RET。結(jié)束總線子程序STOP: CLR SDA NOP SETB SCL 。發(fā)送結(jié)束條件的時鐘信號 LCALL DY SETB SDA 。結(jié)束總線 LCALL DY RET。發(fā)送應(yīng)答信號子程序MACK: CLR SDA 。將SDA置0 NOP NOP SETB SCL LCALL DY CLR SCL NOP NOP RET。發(fā)送非應(yīng)答信號MNACK: SETB SDA 。將SDA置1 NOP NOP SETB SCL LCALL DYCLR SCL NOP NOP RET。 檢查應(yīng)答位子程序。 返回值，ACK=1時表示有應(yīng)答CACK: SETB SDA NOP NOPSETB SCL CLR ACK NOP NOPMOV C,SDA JC CEND SETB ACK 。判斷應(yīng)答位CEND: NOPCLR SCL NOP RET。發(fā)送字節(jié)子程序。字節(jié)數(shù)據(jù)放入ACC。每發(fā)送一字節(jié)要調(diào)用一次CACK子程序，取應(yīng)答位WRBYTE:MOV R0,08HWLP: RLC A 。取數(shù)據(jù)位 JC WR1 SJMP WR0 。判斷數(shù)據(jù)位WLP1: DJNZ R0,WLP NOP RETWR1: SETB SDA 。發(fā)送1 NOPSETB SCL LCALL DY CLR SCLSJMP WLP1WR0: CLR SDA 。發(fā)送0 NOPSETB SCL LCALL DYCLR SCL SJMP WLP1。讀取字節(jié)子程序。讀出的值在ACC。每取一字節(jié)要發(fā)送一個應(yīng)答/非應(yīng)答信號RDBYTE: MOV R0,08HRLP: SETB SDA NOP SETB SCL 。時鐘線為高，接收數(shù)據(jù)位 NOP NOP MOV C,SDA 。讀取數(shù)據(jù)位MOV A,R2 CLR SCL 。將SCL拉低， RLC A 。進(jìn)行數(shù)據(jù)位的處理MOV R2,A NOP NOP NOP DJNZ R0,RLP 。未夠8位，再來一次 RET。 無子地址器件寫字節(jié)數(shù)據(jù)。 入口參數(shù): 數(shù)據(jù)為ACC、器件從地址SLA。 占用: A、R0、CYIWRBYTE: PUSH ACCIWBLOOP: LCALL START 。起動總線 MOV A,SLA LCALL WRBYTE 。發(fā)送器件從地址LCALL CACK JNB ACK,RETWRB 。無應(yīng)答則跳轉(zhuǎn) POP ACC 。寫數(shù)據(jù)LCALL WRBYTELCALL CACKLCALL STOP RETRETWRB: POP ACCLCALL STOP RET。無子地址器件讀字節(jié)數(shù)據(jù)。入口參數(shù): 器件從地址SLA。出口參數(shù): 數(shù)據(jù)為ACC。占用 A 、R0、R2 、CYIRDBYTE: LCALL START MOV A,SLA 。發(fā)送器件從地址 INC ALCALL WRBYTELCALL CACK JNB ACK,RETRDB LCALL RDBYTE 。進(jìn)行讀字節(jié)操作 LCALL MNACK 。發(fā)送非應(yīng)信號RETRDB: LCALL STOP 。結(jié)束總線 RET。向器件指定子地址寫N個數(shù)據(jù)。入口參數(shù): 器件從地址SLA、器件子地址SUBA 、發(fā)送數(shù)據(jù)緩沖區(qū)MTD、發(fā)送字節(jié)數(shù)NUMBYTE。 占用： A 、R0 、R1 、R3 、CYIWRNBYTE: PUSH 00HPUSH 01HPUSH 03H MOV A,NUMBYTE MOV R3,A LCALL START 。起動總線 MOV A,SLA LCALL WRBYTE 。發(fā)送器件從地址LCALL CACK JNB ACK,RETWRN 。無應(yīng)答則退出 MOV A,SUBA 。指定子地址LCALL WRBYTELCALL CACK MOV R1,MTDWRDA: MOV A,@R1 LCALL WRBYTE 。開始寫入數(shù)據(jù)LCALL CACK JNB ACK,IWRNBYTE INC R1 DJNZ R3,WRDA 。判斷寫完沒有RETWRN: LCALL STOPPOP 03HPOP 01HPOP 00HRET。向器件指定子地址讀取N個數(shù)據(jù)。入口參數(shù): 器件從地址SLA、器件子地址SUBA、接收字節(jié)數(shù)NUMBYTE。出口參數(shù): 接收數(shù)據(jù)緩沖區(qū)MTD。占用：A、 R0、 R R R CYIRDNBYTE: MOV R3,NUMBYTELCALL START MOV A,SLA LCALL WRBYTE 。發(fā)送器件從地址LCALL CACK JNB ACK,RETRDN MOV A,SUBA 。指定子地址LCALL WRBYTELCALL CACK LCALL START 。重新起動總線 MOV A,SLA INC A 。準(zhǔn)備進(jìn)行讀操作LCALL WRBYTELCALL CACK JNB ACK,IRDNBYTE MOV R1,MRDRDN1: LCALL RD