www.pudn.com > LCDTEST2.rar > LCDTEST2.ASM

 RS  BIT   P3.4 
 RW  BIT   P3.3 
 E  BIT   P3.0 
 LCDDA  EQU   P1 
 
 
 MAIN: 
	MOV P1,#1H;清除屏幕 
ACALL ENABLE  
MOV P1,#38H;8位点阵方式 
ACALL ENABLE  
MOV P1,#0CH;开显示 
ACALL ENABLE  
 
main1: 
MOV P1,#06H;移动光标  
ACALL ENABLE  
MOV P1,#80H;显示位置 
ACALL ENABLE  
 
mov dptr,#table3;送数据表3,SXJ1974@163.COM 
call write1 
acall delay 
;MOV P1,#06H;移动光标  
;ACALL ENABLE  
mov p1,#0c0h;；第二行的位置 
call enable 
 
mov dptr,#table7 
call write1 
;mov p1,#0c2h;；第二行的位置 
;call enable 
ajmp main 
jmp $ 
 
ENABLE: 
CLR RS 
CLR RW  
CLR E  
ACALL DELAY  
SETB E  
RET 
 
write1:; ；写数据 
mov r1,#00h 
a1:mov a,r1 
movc a,@a+dptr 
call write2 
inc r1 
cjne a,#00h,a1 
ret 
 
write2:; 
mov p1,a 
setb rs 
clr rw 
clr e 
call delay 
setb e 
ret  
 
delay:  
mov r5,#05h  
d3:mov r7,#255 
d1:mov r6,#255 
d2:djnz r6,d2 
djnz r7,d1 
djnz r5,d3 
ret 
table4: db "0123456789" , 00h 
table2: db "   welcome to   ",00h; 
table1: db 57h,57h,57h,2Eh,35h,31h,43h,35h,31h,2Eh,43h,4Fh,4Dh,20h,20h,20h,00h 
;；数据WWW.51C51.COM空格,注意这一行实际上没有送出， 可以不要的。 
table3:  db "   I LOVE YOU    ",00H; 
table7:  db " 1978.01.23. Zhu",00H 
table31: db  'I',' ','L','O','V','E',' ','Y','O','U',' ','"','.',' ',' ',' ',' ',' ',00h,'z','h','u','x','i','x','u','i','@','1','6','3',00h,'.','c','o','m',00H 
;；数据WWW.SXJ1974@163.COM空格 
table5: db 'z','h','u','x','i','x','u','i','@','1','6','3','.','c','o','m',00H 
;；数据TEL0755 28794376空格 
table6: db " abcdefghijklmnopqrstuvwxyz",00h 
end