EQU 7F00H MOV DPTR,#A 8155 MOV A,#0FH MOVX @DPTR,A MOV DPTR,#A8155+3 MOV A,#3 MOVX @DPTR;A MOT R0,#0 MOV R1,#0 INI： MOV DPTR,#A8155+1 MOV A,#0BFH MOVX @DPTR,A INC DPTR MOV A, R0 MOVX @DPTR,A LCALL WTS3 INC R0 DJNZ R1,INI WTAB: MOV R2,#17H MOV R3,#21H LCALL WTS1 MOV R2,#17H MOV R3,#81H LCALL WTS1 MOV R2,#17H MOV R3,#0ClH LCALL WTS1 MOV R2,#11H MOV DPTR,#TAEC MOV R3,DPH MOV R4,DPL WTB1: LCALL WTS2 MOV DPTR,#A8155+2 MOVX QDPTR, A LCALL WTS2 MOV DPTR,#A8155+1 MOV @DPTR,A LCALL WTS3 DJNZ R2,WTB1 MOV DPTR,#A8l55+3 MOV A,#0BH MOVX @DPTR,A RET WDATA: MOV DPTR,#A8155+3 MOV A,#3 MOVX @DPTR,A MOV DPTR,#TABP MOV R3,DPH MOV R4,DPL MOV R2,#6 WDTA1: LCALL WTS2 MOV DPTR,#A8155+2 MOVX @DPTR, A MOV A,R0 SWAP A ANL A,#0FH ADD A,#90H MOV DPTR,#A8155+1 MOVX @DPTR,A LCALL W TS3 LCALL WTS2 MOV DPTR,#A8155+2 MOVX DPTR, A MOV A,@R0 ANL A,#0FH ADD A,#90H MOV DPTR.#A8155+1 MOVX @DPTR,A LCALL WTS3 INC R0 DJNZ R2,WDTAl MOV DPTR,#A8155+3 MOV A,#0BH MOVX @DPTR,A RET WTS3: MOV DPTR,#A8155+3 MOV A,#5 MOVX @DPTR,A MOV A,#4 MOVX @DPTR,A MOV A,#5 MOVX @DPTR,A MOV A,#3 MOVX @DPTR,A RET WTS1: MOV DPTR,#A8155+1 MOV A,#8EH MOVX @DPTR, A INC DPTR MOV A,R3 INC R3 MOVX @DPTR, A LCALL WTS3 DJNZ R2, WTS1 RET WTS2: MOV DPH,R3 MOV DPL,R4 CLR A MOVC A,@A+DPTR INC DPTR MOV R3,.DPH MOV R4,DPL RET TABC: DB 43H,5CH,46H,28H DB 4BH,4FH,4EH,05H DB 52H,2CH,55H,2AH DB 63H,,89H,64H,1CH,65H,11H DB 66H,8AH DB 6BH,89H,6CH,05H,6DH,8AH DB 72H,89H,73H,0C0H,74H,8AH, DB 0ACH,0BDH TABP: DB 0A3H,0A4H,0A5H,0A6H DB 0AAH, 0ABH, 0ADH, 0AEH DB 0B3H, 0B4H, 0B5H, 0B6H