1602 lcd

常用单片机程序范例代码

      ;***************************************************************************
      ;*;1602 LCD显示实验。      *
      ;* Support telephone:  (www.ggdl.com )                       
      ;*
      ;*               
      ;*
      ;* 
      ;*************************************************************************** 


      org 0000h
      ajmp main
      org 030h
      main:
      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,[e-mail]
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
table1: db 57h,57h,57h,2Eh,35h,31h,43h,35h,31h,2Eh,43h,4Fh,4Dh,20h,20h,20h,00h

;；数据WWW.51C51.COM空格,注意这一行实际上没有送出， 可以不要的。 

table3: db 53h,58H,4AH,31H,39H,37H,34H,40H,31H,36H,33H,2EH,43H,4FH,4DH,20H,20H,00H

;；数据[e-mail]空格

table2: db 54h,45h,4Ch,30h,37h,35h,35h,20H,32H,38H,37H,39H,34H,33H,37H,36H,00H

;；数据TEL0755 28794376空格
end