eep.rar_89s8252

;存取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