【正文】 I2CDJNZ R0,MOOP 。循環(huán)8次送8個bit CLR SCL。 CALL DELAYI2C SETB SCLREP: MOV C,SDA JC REP 。判應(yīng)答到否，未到則等待 CLR SCL 。 RET。**************************************************。按鍵去抖延時子程序。Delay time=10ms。**************************************************KEYDELAY: MOV R6,20HKEYDELA2: MOV R7,248KEYDELA1: DJNZ R7,KEYDELA1 DJNZ R6,KEYDELA2 RET。**************************************************。 I2C器件延時子程序　。 Delay time=4us。**************************************************DELAYI2C: NOP NOP RET。鍵盤程序KEY:LCALL KSJZ KEY LCALL DELAY LCALL KS JZ KEY MOV R2,0EFH MOV R4,00H K1: MOV P1,R2L1: JB ,L2MOV A,00HAJMP LKL2: JB ,L3MOV A,04HAJMP LKL3: JB ,L4MOV A,8AJMP LKL4: JB ,NEXTMOV A,12LK: ADD A,R4 PUSH ACCK2: LCALL DELAY LCALL KS JNZ K2 POP ACC RETNEXT:INC R4 MOV A,R2 JNB ,KEY RL A MOV R2,A AJMP K1KS: MOV P1,0FHMOV A,P1XRL A,0FHRETDELAY:MOV R4,200D6: MOV R5,249 DJNZ R5,$ DJNZ R4,D1 RETREAD: MOV MACHINEAD,10100000B AJMP START1 。程序開始START1: MOV P2,0FEH MOV SP,60H MOV R0,40HMAIN1: LCALL KEY JNZ M21 MOV R6,6 MOV R2,0M11: MOV RAMADDRESS,R0 。從EEPROM讀出數(shù)據(jù)存到單片機RAM中 INC R0 MOV I2CADDRESS,R2 。讀取I2C中的地址 LCALL I2CREAD INC R2 DJNZ R6,M11 LJMP MAINSENDM21: CJNE A,1,M31 MOV R6,6 MOV R2,6M41: MOV RAMADDRESS,R0 。從EEPROM讀出的數(shù)據(jù)存儲到單片機的RAM單元 INC R0 MOV I2CADDRESS,R2 。讀取I2C中的地址 LCALL I2CREAD INC R2 DJNZ R6,M41M31: LJMP MAINSEND。**************************************************。 讀串行E2PROM子程序I2CREAD。**************************************************I2CREAD: SETB RS0 。選擇寄存器3組 SETB RS1 。以保護0、2組內(nèi)容 MOV R1,RAMADDRESS SETB SCL SETB SDA CLR SDA 。發(fā)開始信號 MOV A,MACHINEAD 。送器件地址 CALL BITS 。調(diào)發(fā)送單字節(jié)子程序 MOV A,I2CADDRESS 。送片內(nèi)字節(jié)地址 CALL BITS SETB SCL SETB SDA CLR SDA 。再發(fā)開始信號 MOV A, MACHINEAD SETB 。發(fā)讀命令 CALL BITS CALL BITR MOV @R1,A CLR SDA CALL DELAYI2C SETB SCL CALL DELAYI2C SETB SDA 。送停止信號 RET 。**************************************************。 接受單字節(jié)子程序。**************************************************BITR: MOV R0,08HNOOP: SETB SCL CALL DELAYI2C MOV C,SDA RLC A CLR SCL CALL DELAYI2C DJNZ R0,NOOPSETOK: LCALL DELAYI2C SETB SCL CALL DELAYI2C CLR SCL CALL DELAYI2C SETB SDA 。應(yīng)答畢,SDA置1 RET MAINSEND:CLR LCALL D912MSSETB LCALL D45MSMOV R0,40HMOV R1,26M22: MOV A,@R0MOV R3,08HM12: CLR CRLC ADJNZ R1,M32N1: MOV A,44HMOV R3,08HN2: CLR CRLC AJC SEND12LCALL SEND0N22:DJNZ R3,N2MOV A,45HMOV R3,08HN3: CLR CRLC AJC SEND13LCALL SEND0N33:DJNZ R3,N3LJMP HIGH23MSM32: JC SEND11LCALL SEND0M42:DJNZ R3,M12INC R0LJMP M22HIGH23MS:SETB MOV R7,100D7: MOV R6,116NOPDJNZ R6,$DJNZ R2,D7CLR LCALL D912MSSETB LCALL D45MSLJMP SELECT D912MS:MOV R7,60D8: MOV R6,74NOPDJNZ R6,$DJNZ R2,D8RETD45MS:MOV R7,50D9:MOV R6,42NOPDJNZ R6,$DJNZ R2,D9RETD0565MS:MOV R7,2D10:MOV R6,138NOPDJNZ R6,$DJNZ R2,D10RETD1685MS:MOV R7,5D11:MOV R6,166NOPDJNZ R6,$DJNZ R7,D11RETSEND11:CLR LCALL D0565MSSETB LCALL D1685MSLJMP M42SEND12:CLR LCALL D0565MSSETB LCALL D1685MSLJMP N22SEND13:CLR LCALL D0565MSSETB LCALL D1685MSLJMP N33SEND0:CLR LCALL D0565MSSETB LCALL D0565MSRETEND