LCALL BEEP_BL JNB K1,$
CPL 20H.1 ;UP/DOWN 标记 AS00: JB 20H.1,ASZ01 ;20H.1=1，增加 JMP ASJ01 ;20H.1=0，减小 ASZ01: JB K2,ASZ02 ;TH值调整(增加) LCALL BEEP_BL INC TEMP_TH MOV A,TEMP_TH CJNE A,#120,ASZ011 MOV TEMP_TH,#0 ASZ011: LCALL LOOK_ALARM MOV R5,#10 LCALL DELAY JMP ASZ01
ASZ02: JB K3,ASZ03 ;TL LCALL BEEP_BL INC TEMP_TL MOV A,TEMP_TL CJNE A,#99,ASZ021 MOV TEMP_TL,#00H ASZ021: LCALL LOOK_ALARM MOV R5,#10 LCALL DELAY JMP ASZ02
ASZ03: JB K4,AS0 ; LCALL BEEP_BL JNB K4,$ RET
值调整(增加) 确定调整 26
ASJ01: JB K2,ASJ02 ;TH值调整（减少） LCALL BEEP_BL DEC TEMP_TH MOV A,TEMP_TH CJNE A,#0FFH,ASJ011 JMP ASJ022 ASJ011: LCALL LOOK_ALARM MOV R5,#10 LCALL DELAY JMP AS0
ASJ02: JB K3,ASJ03 ;TL值调整（减少） LCALL BEEP_BL DEC TEMP_TL MOV A,TEMP_TL CJNE A,#0FFH,ASJ021 JMP ASJ022
ASJ021: LCALL LOOK_ALARM ; MOV R5,#10 LCALL DELAY JMP AS0 ASJ022: CPL 20H.1 JMP ASZ01 ASJ03: JMP ASZ03 RET
RST_A1: DB \
;-------------------------------------------- M_ALAX1:
DB \M_ALAX2:
27
DB \LOOK_ALARM:
MOV DPTR,#M_ALAX2 ;指针指到显示信息区 MOV A,#2 ;显示在第二行 CALL LCD_PRINT MOV A,#0C6H CALL TEMP_BJ1
MOV A,TEMP_TH ;加载TH数据 MOV LCD_X,#3 ;设置位置 CALL SHOW_DIG2H ;显示数据 MOV
A,#0CEH
;调用显示
;
CALL TEMP_BJ1 MOV MOV
A,TEMP_TL ;加载TL数据 LCD_X,#12 ;设置位置
CALL SHOW_DIG2L ;显示数据 RET
;**********************************************************************
TEMP_BJ1:
LCALL WCOM
MOV DPTR,#BJ2 ;指针指到显示信息区 MOV R1,#0 MOV R0,#2 BBJJ2: MOV A,R1 MOVC A,@A+DPTR LCALL WDATA INC R1 DJNZ R0,BBJJ2 RET
28
BJ2: DB 00H,\
;*********************** 实测温度值与设定温度值比较子程序 **********************
TEMP_COMP:MOV A,TEMP_TH
SUBB A,TEMP_ZH ;减数>被减数，则 JC
CHULI1
;借位标志位C=1，转
MOV A,TEMPFC
A,#0BH,COMP
CJNE
SJMP CHULI2
COMP: MOV A,TEMP_ZH SUBB A,TEMP_TL
;减数>被减数，则
JC CHULI2 ;借位标志位C=1，转 MOV DPTR,#BJ5 LCALL TEMP_BJ3
CLR RELAY ;点亮指示灯 RET
CHULI1: MOV DPTR,#BJ3 LCALL TEMP_BJ3
SETB RELAY ;熄灭指示灯 LCALL BEEP_BL RET
CHULI2: MOV DPTR,#BJ4 LCALL TEMP_BJ3
SETB RELAY ;熄灭指示灯 LCALL BEEP_BL RET
;----------------------------------------- TEMP_BJ3: MOV A,#0CeH LCALL WCOM
29
;蜂鸣器响
;蜂鸣器响
MOV R1,#0 MOV R0,#2 BBJJ3: MOV A,R1 MOVC A,@A+DPTR LCALL WDATA INC R1 DJNZ R0,BBJJ3 RET BJ3: DB \BJ4: DB \BJ5: DB \
;************************ ********************** DISPBCD: MOV A,TEMPLC
ANL A,#0FH
MOV 70H,A ; MOV A,TEMPLC SWAP A ANL A,#0FH
MOV 71H,A ; MOV A,TEMPHC ANL A,#0FH
MOV 72H,A ; MOV A,TEMPHC SWAP A ANL A,#0FH
MOV 73H,A ;DISPBCD2: RET
;************************
显示区 BCD 码温度值刷新子程序小数位 个位 十位 百位 温度值 BCD 码处理子程序30