温度自动控制系统原理图及源程序 第10页
anl a,#07h
orl a,#0b8h
mov com,a
lcall prm0
mov a,column2
anl a,#3fh
orl a,#40h
mov com,a
lcall prm0
mov a,code
mov b,#16
mul ab
add a,dpl
mov dpl,a
mov a,b
addc a,dph
mov dph,a
lp9:
mov a,#00h
movc a,@a+dptr
mov dat,a
lcall prm1
inc ccolumn2
mov a,ccolumn2
inc dptr
cjne a,#8,lp9
dec cpage2
inc pagef2
mov a,cpage2
jz over9
mov a,pagef2
anl a,#07h
orl a,#0b8h
mov com,a
lcall prm0
pop column2
mov a,column2
anl a,#3fh
orl a,#40h
mov com,a
lcall prm0
mov ccolumn2,#0
ljmp lp9
over9:
ret
;*********************写指令代码子程序(左)*******************
PRM0: CLR CSA
SETB CSB
CLR rs
SETB rw
PRM01: MOV P1,#0FFH
SETB E
MOV A,P1
CLR E
JB ACC.7,PRM01
CLR rw
MOV P1,COM
SETB E
CLR E
RET
;***********************写显示数据子程序(左)******************
PRM1: CLR CSA
SETB CSB
CLR rs
SETB rw
PRM11: MOV P1,#0FFH
SETB E
MOV A,P1
CLR E
JB ACC.7,PRM11
SETB rs
CLR rw
MOV P1,DAT
SETB E
CLR E
RET
;********************写指令代码子程序(右)***************
PRR0: CLR CSB
SETB CSA
CLR rs
SETB rw
PRR01: MOV P1,#0FFH
SETB E
MOV A,P1
CLR E
JB ACC.7,PRR01
CLR rw
MOV P1,COM
SETB E
CLR E
RET
;************************写显示数据子程序(右)**************
PRR1: CLR CSB
SETB CSA
CLR rs
SETB rw
PRR11: MOV P1,#0FFH
SETB E
MOV A,P1
CLR E
JB ACC.7,PRR11
SETB rs
CLR rw
MOV P1,DAT
SETB E
CLR E
RET
;*********************LCD12864初始化子程序**************
INT: MOV COM,#0C0H ;设置显示起始行为第一行
LCALL PRM0
LCALL PRR0
MOV COM,#3FH ;开显示设置
LCALL PRM0
LCALL PRR0
RET
;**************************LCD12864液晶清屏子程序*****************
CLEAR: MOV R4,#00H
CLEAR1: MOV A,R4
ORL A,#0B8H
MOV COM,A
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>