AT24C02串行E2PROM的工作原理与读写(9)

CLR PSDA ;再发开始信号

MOV A,R3

SETB ACC.0 ;发读命令

ACALL SUBS

MORE: ACALL SUBR

MOV @R1,A

INC R1

DJNZ R7,MORE

CLR P1.0

ACALL DELAY

SETB SCL

ACALL DELAY

SETB SDA ;送停止信号

RET

SUBR: MOV R0,#08H ;接受单字节子程序

LOOP2: SETB SCL

ACALL DELAY

MOV C,SDA

RLC A

CLR SCL

ACALL DELAY

DJNZ R0,LOOP2

CJNE R7,#01H,LOW

SETB SDA ;若是最后一个字节置A=1

AJMP SETOK

LOW: CLR SDA ;否则置A=0

SETOK: ACALL DELAY

SETB SCL

ACALL DELAY