SET_HL: //JNB K4,EXIT
JB K1,KEY4 ACALL DELAY20 JNB K1,$ CPL
;标志位,标志设定高温限值或低温限值
JB ,SET_H JMP SET_L
;-------------调高温限值------------------------- SET_H: KEY3H:
JB K3,KEY2H ACALL DELAY20 JNB K3,$ DEC MOV CJNE
TEMP_TH A,TEMP_TH A,#0,A1
;按下K3,值减1
JNB K2,$ MOV A,TEMP_TH CJNE
A,#99,A0
MOV TEMP_TH,#00 INC TEMP_TH
ACALL DELAY20 ACALL TH_SHAN
;高温限值与低温限值间设定转换
JNB K4,EXIT JB K2,KEY3H
;按下K2,值加1
;光标闪,进入设定
KEY2H: JNB K1,SET_L
A0: ACALL DISP_THL
MOV TEMP_TH,#99 JMP SET_H
A1: ACALL DISP_THL
;-------------调低温限值------------------------------ SET_L:
ACALL TL_SHAN
;高温限值与低温限值间设定转换
KEY2L: JNB K1,SET_H
JNB K4,EXIT JB K2,KEY3L
ACALL DELAY20 JNB K2,$ INC TEMP_TL MOV A,TEMP_TL CJNE
A,#99,A2
MOV TEMP_TL,#00
;按下K3,值减1
;按下K2,值加1
A2: ACALL DISP_THL KEY3L: JB K3,KEY2L
A3: ACALL DISP_THL
JMP SET_L
;K4用于退出设定
ACALL DELAY20 JNB K3,$ DEC TEMP_TL MOV A,TEMP_TL CJNE
A,#0,A3
MOV TEMP_TL,#99
;---------------------- KEY4: JNB K4,EXIT
JMP SET_HL //JMP SET_HL JNB K4,$
EXIT: ACALL DELAY20
MOV LCD,#00001100B ;设置液晶光标不显示、不闪烁 ACALL WR_COMM
;==============温度比较======================================
TEMP_COMP:
MOV A,TEMP_TH SUBB
A,TEMP
ACALL CLR_LCD ACALL DISP_TEMP RET
ACALL DIANJI MOV A,TEMP SUBB RET
A,TEMP_TL
ACALL DIANJI
;============================================ /*MORE: MOV DPTR,#MORE0
MOV LCD,#0CEH ACALL WR_COMM ACALL DISP0 RET
MORE0: DB '>H',0H */
;电机接口是P1低4位,因为是温度传感器的控制口 ;避免冲突,电机接口按位控制 DIANJI: JC DIAN0
RET //ACALL MORE SETB CLR CLR CLR ACALL DELAY CLR SETB CLR SETB CLR SETB //RL DJNZ
A R0,DIAN1
ACALL DELAY
ACALL DELAY
ACALL DELAY
DIAN0: MOV R0,#4 DIAN1:
;=============启动电机========================
CLR CLR CLR CLR RET
DELAY: MOV R5,#5 DLY1: MOV R6,#10 DLY2: MOV R7,#50 CLR_LCD:
ERROR: MOV LCD,#80H
ACALL WR_COMM MOV DPTR,#ERORTAB ACALL DISP0 RET
DB 'INIT ERROR!',0H
MOV LCD,#0C0H ACALL WR_COMM MOV R0,#16 ACALL WR_DATA DJNZ RET
R0,CLR2
MOV LCD,#80H ACALL WR_COMM MOV R0,#16 ACALL WR_DATA DJNZ
R0,CLR1
DJNZ DJNZ DJNZ RET
R7,$ R6,DLY2 R5,DLY1
;============清屏=============================
CLR1: MOV LCD,#' '
CLR2: MOV LCD,#' '
;===============报错============================
ERORTAB:
相关推荐: