SADDR	EQU		0100H 				
WADDR	EQU		0200H				
CSADDR	EQU		8000H				
XPOS	EQU		20H					
YPOS	EQU		21H					
ORG		0000H
JMP		START
START:
MOV	SP,#60H
MAIN:
MOV	R7,#’0’
MNP:	
CALL 	LCDRESET				
MOV 	A,R7
CALL 	LCDFILL						
CALF	DELAY						
INC		R7
MOV	A,R7
CJNE 	A,#’9’+1MNP					
MOV	A,#’ ‘
CALL 	LCDFILL
CALL 	DELAY
JMP		MAIN
LCDFILL：						
MOV 	B,A
MOV 	YPOS,#0
LFLPB
MOV	XPOS,#0						
LFL PA: 
MOV 	A,B
CALL 	LCDWRITE					
INC 		XPOS
MOV 	A,XPOS
CJNE 	A,#20,LFLPA
INC 		YPOS
MOV 	A,YPOS
CJNE 	A,#4,LFLPB
RET
LCDPOS：
PUSH 	ACC
CLR 	C							
MOV 	A,XPOS
SUBB 	A,#20
JC 		LPSLBX
MOV 	XPOS,#0
LPSLBX: 
ANL 	YPOS,#03H
MOV 	A,YPOS						
CJNE 	A,#00H,LPSLA1
MOV 	A,XPOS						
JMP		LPLAX					
LPS LA1:
CJNE 	A,#01,LPS LA2
MOV 	A,XPOS
ADD 	A,#40H
JMP		LPS LAX
LPSLA2:
CJNE 	A,#02,LPS LAY
MOV 	A,XPOS					
ADD 	A, #14H						
JMP		LPSLAX
LPSLAY: 
MOV 	A,XPOS						
ADD 	A,#54H						
LPSLAX: 
ORL		A，#80H						
CALL 	LCDWC						
POP 		ACC
RET
LCDWRITE:
CALL L	CDPOS						
CALL 	CDWD						
RET
LCDRESET:							
CALL 	DELAY5MS					
CALL 	DELAY5MS
CALL 	DELAY5MS
MOV 	A,#38H						
CALL 	LCDWCN
CALL 	DELAY5MS
MOV 	A,#38H
CALL L	CDWCN
CALL 	DELAY5MS
MOV 	A,#38H
CALL 	LCDWCN
MOV 	A,#38H
CALL 	LCDWC
MOV 	A,#08H
CALL 	LCDWC
MOV 	A,#01H						
CALL L	CDWC
MOV 	A,#06H						
CALL 	LCDWC
MOV 	A,#0CH						
CALL 	LCDWC
RET
LCDWC:								
CALL 	WAITIDLE
LCDWCN:
MOV 	DPTR,#CSADDR
MOV	@DPTR,:A
RET
LCDWD：								
CALL 	WAITIDLE
MOV 	DPTR,#CSADDR+RSADDR
MOVX 	@DPTR,A
RET
WAITIDLE:
PUSH 	ACC
MOV 	DPTR,#CSADDR+RWADDR
WTDPA: 
MOVX 	A,@DPTR
JB 		ACC.7,WTDPA
POP 		ACC
RET
DELAY5MS：
MOV 	R1,#25						
DL5PA: 
MOV 	R2,#100H
DJNZ 	R2,$
DJNZ 	R1,DL5PA
RET
DELAY:
MOV 	R0,#20						
DLPA: 
MOV 	R1,#100
DLPB:
MOV 	R2,#100
DJNZ 	R2,$
DJNZ	R1,DLPB
DJNZ	R0,DLPB
RET
END