;读子程序
READ: MOV R0,#8
RN: SETB SCK ;2TM
CLR SCK ;2TM
MOV C,SO ;2TM
RLC A ;1TM
DJNZ R0,RN
RET
;写地址子程序
WRI_ADDRESS:
MOV R1,#30H
MOV R2,#08H
REA: MOV A,@R1
INC R1
LCALL WRBYT ;WRITE A BYTE TO AT45DB081
DJNZ R2,REA
RET
;********************************
;向AT45DB081写一个字节
;********************************
WRBYT: CLR SCK
CLR CS
NOP
NOP
MOV BIT8,#8
WDA0: RLC A
JC WDA1
CLR SI
LJMP WDA2
WDA1: SETB SI
NOP
NOP
WDA2:
SETB SCK
CLR SCK
DJNZ BIT8,WDA0
RET
END