1602液晶显示.asm

61202单片机液晶程序

;1602液晶显示网站的LOGO
;***************************************************************************
;* (程序转载请著明出处 ，未声明可适应本站腾龙/isp开发套件/倚天版开发套件      *
;*  E-mail:[e-mail] (51c51 test web)  51测试网，自学单片机的网站            *
;* Create by :石学军 www.51c51.com   www.8951.com 更多例程请登陆网站                 *
;***************************************************************************
RS EQU P3.0 
RW EQU P3.1 
E EQU P3.5 
MOV P1,#01H ;清除屏幕
ACALL ENABLE 
MOV P1,#38H ;8位点阵
ACALL ENABLE 
MOV P1,#0FH ;显示开
ACALL ENABLE 
MOV P1,#06H ;移动光标
ACALL ENABLE 
MOV P1,#80H ;显示位置 
ACALL ENABLE 
mov dptr,#table3
call write1
mov p1,#0c0h 
call enable
mov dptr,#table2
call write1
mov p1,#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 p1,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 
table3: db 53h,58H,4AH,31H,39H,37H,34H,40H,31H,36H,33H,2EH,43H,4FH,4DH,20H,20,00H 
table2: db 54h,45h,4Ch,30h,37h,35h,35h,20H,32H,37H,35H,32H,39H,30H,36H,35H,00H
end