51测试网 单片机教程XL2000开发板 单片机学习 自制编程器 单片机资料 软件下载 电子技术产品介绍如何购买 进入论坛

0802液晶屏驱动源程序

察看本站的产品全家福和网站介绍      本站产品正式流水线工艺生产情况          庆祝本站5年来首页点击量突破500万!

<>12232驱动程序   <>12832驱动程序   <>12864驱动源程序   <>1602 驱动程序   <>0802 液晶驱动程序  <>回液晶主页

;0802液晶显示CHINA-SZ LOVE8051
;***************************************************************************
;*  E-mail:sxj1974@163.com (51c51 test web)  51测试网(深圳学林电子有限公司),自学单片机的网站      *
;* tel:13714407535 石学军 www.51c51.com www.8951.com
51测试网(深圳学林电子有限公司)系列自学单片机例程 *  
;***************************************************************************

RS EQU P2.0
RW EQU P2.1
E EQU P2.2
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
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
table3: db"CHINA-SZ"
table2: db"LOVE8051"
end