SCL BIT P2.1   

SDA BIT P2.0  

ORG 0000H  

LJMP MAIN  

ORG 0050H  

MAIN:  

MOV SP,#30H  

MOV P1,#0FFH ;灭LED  

MOV R6,#2 ;R6保存AT24C02内部待写地址，用于传递参数  

MOV R7,#55H ;R7保存待写数据，用于传递参数  

LCALL iic_Write ;调用写函数，将R7的数据写入AT24C02 R6所指地址  

LCALL DELAY10MS ;延时  

MOV R6,#2 ;R6保存AT24C02内部待读地址，用于给读函数传递参数  

LCALL iic_Read ;调用读函数  

MOV A,R7 ;将保存在R7内的读取到的数据，送给累加器  

CJNE A,#55H,MAINA0  ;比较读回的数据是否跟写入的一致  

MOV P1,#0FH ;数据一致高4位LED亮  

SJMP $  

MAINA0:  

MOV P1,#0F0H ;数据不一致低4位LED亮  

MAINA1:  

SJMP $  

iic_Write: ;IIC写函数，参数R6：地址，参数R7：数据  

PUSH ACC   

CLR SCL ;START信号  

SETB SDA  

SETB SCL  

CLR SDA  

MOV A,#0A0H ;器件地址，写方向  

MOV R0,#08H  

IIC1:  

CLR SCL ;SDA只能在SCL为低电平时可变  

RLC A  

JC IIC0  

CLR SDA  

SJMP IIC2  

IIC0:  

SETB SDA  

IIC2:  

SETB SCL ;上升沿到来，AT24C02将SDA数据锁存  

DJNZ R0,IIC1  

CLR SCL ;允许SDA变化，等待ACK  

SETB SDA ;释放SDA，以检测ACK  

JB SDA,$ ;等待ACK  

SETB SCL   

MOV A,R6 ;内部地址，写方向  

MOV R0,#8  

IIC3:  

CLR SCL  

RLC A  

JC IIC4  

CLR SDA  

SJMP IIC5  

IIC4:  

SETB SDA  

IIC5:  

SETB SCL  

DJNZ R0,IIC3  

CLR SCL ;检测ACK  

SETB SDA  

JB SDA,$  

SETB SCL  

MOV A,R7 ;数据，写方向  

MOV R0,#8  

IIC6:  

CLR SCL  

RLC A  

JC IIC7  

CLR SDA  

SJMP IIC8  

IIC7:  

SETB SDA  

IIC8:  

SETB SCL  

DJNZ R0,IIC6  

CLR SCL ;检测ACK  

SETB SDA  

JB SDA,$  

SETB SCL  

CLR SCL ;STOP信号  

CLR SDA   

SETB SCL  

SETB SDA  

POP ACC  

RET  

iic_Read: ;IIC读函数，参数R6：地址  

PUSH ACC  

CLR SCL ;START信号  

SETB SDA  

SETB SCL  

CLR SDA  

MOV A,#0A0H ;器件地址，写方向   

MOV R0,#8  

IIC10:  

CLR SCL  

RLC A  

JC IIC00  

CLR SDA  

SJMP IIC20  

IIC00:  

SETB SDA  

IIC20:  

SETB SCL  

DJNZ R0,IIC10  

CLR SCL ;检测ACK  

SETB SDA  

JB SDA,$  

SETB SCL  

MOV A,R6 ;内部地址，写方向  

MOV R0,#8  

IIC30:  

CLR SCL  

RLC A  

JC IIC40  

CLR SDA  

SJMP IIC50  

IIC40:  

SETB SDA  

IIC50:  

SETB SCL  

DJNZ R0,IIC30  

CLR SCL ;检测ACK  

SETB SDA  

JB SDA,$  

SETB SCL   

CLR SCL  

SETB SDA ;重新发起始信号  

SETB SCL  

CLR SDA  

MOV A,#0A1H ;器件地址,读方向   

MOV R0,#8  

IIC11:  

CLR SCL  

RLC A  

JC IIC01  

CLR SDA  

SJMP IIC21  

IIC01:  

SETB SDA  

IIC21:  

SETB SCL  

DJNZ R0,IIC11  

CLR SCL ;检测ACK  

SETB SDA  

JB SDA,$  

SETB SCL    

MOV R0,#8  

IICA2:  

CLR SCL ;开始读数据  

SETB SDA  

SETB SCL  

NOP  

JB SDA,IICA0  

CLR C  

SJMP IICA1  

IICA0:  

SETB C  

IICA1:  

RLC A  

DJNZ R0,IICA2  

MOV R7,A ;保存读取数据  

CLR SCL ;STOP信号  

CLR SDA  

SETB SCL  

SETB SDA  

POP ACC  

RET  

DELAY10MS:    ;延时   

SETB RS0  

MOV R1,#10  

DELAY1:  

MOV R0,#250  

DELAY0:  

NOP  

NOP   

DJNZ R0,DELAY0  

DJNZ R1,DELAY1  

CLR RS0  

RET  

DELAY4S:    ;延时   

SETB RS1  

MOV R3,#02H  

DELAY30:  

MOV R2,#04H  

DELAY20:  

MOV R1,#250  

DELAY10:  

MOV R0,#250  

DELAY00:  

NOP  

NOP   

DJNZ R0,DELAY00  

DJNZ R1,DELAY10  

DJNZ R2,DELAY20  

DJNZ R3,DELAY30  

CLR RS1  

RET  

END