1602 lcd显示实验.asm

1602 LCD实验显示程序

      ;***************************************************************************
      ;*;1602 LCD显示实验。      *
      ;* Support telephone:  (www.ggdl.com )                       
      ;*显示：WWW。GG-DL。COM
      ;*     TEL[phone]            
      ;*
      ;* 
      ;*************************************************************************** 


      org 0000h
      ajmp main
      org 030h
      main:
      CLR P2.0
      RS EQU P2.7 ;P3.0 
      RW EQU P2.6 ;P3.1 
      E EQU  P2.5 ;P3.5 
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,WWW.GG-DL.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,#50; #255
d1:mov r6,#255
d2:djnz r6,d2
djnz r7,d1
ret

table1: db 57h,57h,57h,2Eh,47h,47h,44h,4ch,2Eh,43h,4Fh,4Dh,20h,20h,20h,20h,00h
;；数据WWW.GG-DL.COM空格,注意这一行实际上没有送出， 可以不要的。 

table3: db 57h,57h,57h,2Eh,47h,47h,2dH,44h,4ch,2Eh,43h,4Fh,4Dh,20h,20h,20h,20h,00h

;；数据WWW.GGDL.COM空格
table2: db 54h,45h,4Ch,30h,35h,37h,31h,2dH,38H,38H,39H,31h,31h,36H,36h,39H,00H
;；         T   E   L   0   5   7   1   -   8   8   9   1   1   6   6   9       
;；table2: db 54h,45h,4Ch,30h,35h,37h,31h,2dH,38H,38H,32H,39H,38H,39H,35H,37H,00H
;；         T   E   L   0   5   7   1   -   8   8   2   9   8   9   5   7   
;；数据TEL0571 88298957空格
end