;1602液晶顯示網(wǎng)站的LOGO
;***************************************************************************
;* (程序轉(zhuǎn)載請著明出處 ，未聲明可適應(yīng)本站騰龍/isp開發(fā)套件/倚天版開發(fā)套件      *
;*  E-mail:sxj1974@163.com (51c51 test web)  51測試網(wǎng)，自學(xué)單片機(jī)的網(wǎng)站            *
;* Create by :石學(xué)軍 www.51c51.com   www.8951.com 更多例程請登陸網(wǎng)站                 *
;***************************************************************************
RS EQU P3.0 
RW EQU P3.1 
E EQU P3.5 
MOV P1,#01H ;清除屏幕
ACALL ENABLE 
MOV P1,#38H ;8位點(diǎn)陣
ACALL ENABLE 
MOV P1,#0FH ;顯示開
ACALL ENABLE 
MOV P1,#06H ;移動光標(biāo)
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: ;寫一個字節(jié)
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