;这段程序显示的是一个邮箱地址和电话
RS bit P3.5
RW bit P2.1
E bit P3.4
mov P2,#0
mov P2,#0ffh
mov P2,#1fh
MOV P0,#01H;清除屏幕
ACALL ENABLE
MOV P0,#38H;8位点阵方式
ACALL ENABLE
MOV P0,#0FH;开显示
ACALL ENABLE
MOV P0,#06H;移动光标
ACALL ENABLE
MOV P0,#80H;显示位置
ACALL ENABLE

mov dptr,#table3;送数据表3,chaoyue02812@163.COM
call write1
mov p0,#0c0h;第一行的位置
call enable
mov dptr,#table2
call write1
mov p0,#0c2h;第二行的位置
call enable
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 p0,a
setb rs
clr rw
clr e
call delay
setb e
ret


delay:
mov r7,#255
d1:mov r6,#255
d2:djnz r6,d2
djnz r7,d1
ret
table1: db 57h,57h,57h,2Eh,35h,31h,43h,35h,31h,2Eh,43h,4Fh,4Dh,20h,20h,20h,00h



table3: DB 43H,48H,41H,4FH,59H,55H,45H,30h,32H,38H,31H,32H,40H,31H,36H,33H,2EH,43H,4FH,4DH
;数据CHAOYUE02812@163空格

table2: db 54h,45h,31h,33h,37h,39h,36H,36H,32H,35H,32H,39H,34H,39H,31H,35H

;数据TEL13796625294915空格
end