1602.asm

ts1620液晶显示的驱动

 
RS EQU P3.5 
RW EQU P3.6 
E EQU  P3.7 
MOV P1,#38H
ACALL ENABLE 
ACALL ENABLE
MOV P1,#38H
ACALL ENABLE 
MOV P1,#38H
ACALL ENABLE
MOV P1,#08H;8位点阵方式
ACALL ENABLE
MOV P1,#01H;开显示
ACALL ENABLE 
MOV P1,#06H;显示位置
ACALL ENABLE
MOV P1,#0eH;开显示
ACALL ENABLE  
mov dptr,#table1
call write1
mov P1,#0c0h
call enable
mov dptr,#table2
call write1
mov P1,#083h
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 P1,a
setb rs
clr rw
clr e
call delay
setb e
ret 


delay:  
mov r7,#255
d1:mov r6,#50
d2:djnz r6,d2
djnz r7,d1
ret

;retDELAY: MOV P1,#0FFH ;判断液晶显示器是否忙的子程序
;CLR      RS
;SETB RW
;CLR E
;NOP
;SETB E
;JB P1^7,DELAY ;如果P1.7为高电平表示忙就循环等待
;RET

table1:db "zfs20050802",00h

;皇