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