lcd.asm

本程序可以实现温度测量

RS EQU P0.5 
RW EQU P0.6 
E EQU P0.7
mov p3,#0ffh 
MOV P2,#01H;qingpin
ACALL ENABLE 
MOV P2,#38H;8wei dianzhen
ACALL ENABLE 
MOV P2,#0FH;xian shi Kai
ACALL ENABLE 
MOV P2,#06H;yi dong guang biao 
ACALL ENABLE 
MOV P2,#80H;wei zhi 
ACALL ENABLE 

l3:mov p2,#01h
acall enable
mov dptr,#table3
call write1
call enable
mov p2,#01h
ljmp l1

l4:mov p2,#01h
acall enable
mov dptr,#table2 
call write1
call enable
mov p2,#01h
ljmp l1

l5:mov p2,#01h
acall enable
mov dptr,#table1
call write1
acall enable
mov p2,#01h
ljmp l1

l6:mov p2,#01h
acall enable
mov dptr,#table4
call write1
acall enable
mov p2,#01h
ljmp l1


l1:jnb p3.3,l3
jnb p3.4,l4
jnb p3.5,l5
JNB P3.2,L6
jmp l1

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 p2,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,20h,00h 


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

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

Table4: db 49H,20H,4CH,4FH,56H,45H,20H,38H,39H,43H,35H,31H,21H,4FH,4BH,20H,20H,00H


end