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,[e-mail]
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
;；数据[e-mail]空格
table5: db 'z','h','u','x','i','x','u','i','@','1','6','3','.','c','o','m',00H
;；数据TEL0755 28794376空格
table6: db " abcdefghijklmnopqrstuvwxyz",00h
end