;********************************************************************************
;1602液晶显示网站的广告 *
;********************************************************************************
;* 日期: 2007-3-25 *
;* 版本: 3.0 *
;* 作者: 深圳学林电子有限公司 专业8051单片机教程站 *
;* 邮箱: sxj1974@163.com *
;* 网站： http://www.51c51.com http://www.8951.com 更多例程请登陆网站 *
;********************************************************************************
;* 硬件：此程序在本公司xlisp系列单片机实验仪运行通过 *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！ *
;********************************************************************************
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
GOO: CALL DELAY2
MOV P0,#01H
ACALL ENABLE
MOV p0,#80H;显示位置
ACALL ENABLE
mov dptr,#table3
call write1
mov p0,#0c0h
call enable
mov dptr,#table2
call write1
call enable
CALL DELAY2
MOV P0,#01H
ACALL ENABLE
MOV p0,#80H;显示位置
ACALL ENABLE
mov dptr,#table4
call write1
mov p0,#0c0h
call enable
mov dptr,#table5
call write1
call enable
jmp GOO
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,#5
d2:djnz r6,d2
djnz r7,d1
ret
delay2:mov r5,#50;延时。
d4: mov r6,#40
d3:mov r7,#248
djnz r7,$
djnz r6,d3
djnz r5,d4
ret
TABLE5:db "SHE ZHEN XUE LIN",00H
TABLE4:db "TEL:755-89956892",00H
table3: db " WWW.8951.COM ",00H
table2: db " WWW.51C51.COM ",00H
end
hex格式文件下载（点右键，目标另存为hex即可直接烧写）
|
