;存取89S8252\53的EEP測試程子式
EQU QQ1 40H
EQU QQ2 41H
EQU QQ3 42H
ORG 0000
START:
MOV DPTR,#0000H ;放EEP地址
MOV R0,#30H ;放EEP的數據開始地址(MUC的內存)
MOV QQ2,#16 ;放數據個數
CALL S8252_WRITE
JMP $
;********************************;
;* 將資料存入EEP內 *;
;********************************;
;DPTR為存放位址,R0為要存入資料的地址
;QQ2為要存入資料個數
S8252_WRITE:
ORL 96H,#18H
S8252_WRITE_CHK:
MOV A,96H
ANL A,#01H
JNZ S8252_WRITE_CHK2
CALL BEE
JMP S8252_WRITE_CHK
S8252_WRITE_CHK2:
MOV A,@R0
MOVX @DPTR,A
S8252_WRITE_LOOP:
NOP
MOV A,96H
ANL A,#02H
JNZ S8252_WRITE_LOOP
S8252_WRITE_LOOP1:
MOV A,96H
ANL A,#02H
JZ S8252_WRITE_LOOP1
MOVX A,@DPTR
XRL A,@R0
JNZ S8252_WRITE_ERROR
INC R0
INC DPTR
DJNZ QQ2,S8252_WRITE_CHK2
JMP S8252_WRITE_OUT
S8252_WRITE_ERROR:
MOV DD0,#33
MOV DD1,#33
MOV DD2,#33
MOV DD3,#33
MOV DD4,#33
CALL DISPLAY
JMP $
S8252_WRITE_OUT:
XRL 96H,#18H
RET
;********************************;
;* 取出EEP內的資料 *;
;********************************;
;DPTR為要取出的位址,R0為取出時要擺放的住址
;QQ2為要取出的資料個數
S8252_READ:
MOV A,96H
ORL A,#08H
MOV 96H,A
S8252_READ_LOOP:
MOVX A,@DPTR
MOV @R0,A
S8252_READ_CHK:
MOV A,96H
ANL A,#02
JZ S8252_READ_CHK
INC R0
INC DPTR
DJNZ QQ2,S8252_READ_LOOP
MOV A,#03H
MOV 96H,A
RET
