【正文】 POP ACC ADD A,B MOV B,A 。把得到的值存在 B MOV A,0FFH 。置合法 輸入標志 AJMP KEYOK ERROR2:SJMP WKEY2 ERROR1:SIMP WKEY1 。置非法輸入標志 KEYOK: RET INIT_TRF: MOV DPTR,8100H MOV A,0FFH MOVX @DPTR,A RET INIT8279: 。8279 初始化子程序 PUSH DPH 。保存現(xiàn)場 PUSH DPL PUSH ACC LCALL DELAY 。延時 MOV DPTR ,Z8279 MOV A,LEDMOD 。置 8279 工作方式 MOVX @DPTR,A MOV A,LEDFEQ 。置鍵盤掃描速率 MOVX @DPTR,A MOV A,LEDCLS 。清除 LED 顯示 MOVX @DPTR,A LCALL DELAY 。延時 DISLED: PUSH DPH 。保存現(xiàn)場 PUSH DPL PUSH ACC MOV A,LEDWR0 。置顯示起始地址 ADD A,R4 。加位置偏移量 MOV DPTR,Z8279 MOVX @DPTR,A 。設定顯示位置 MOV DPTR,LEDSEG 。置顯示常數(shù)表起始位置 MOV A,R5 MOVC A,@A+DPTR 。查表 MOV DPTR,D8279 MOVX @DPTR,A 。顯示數(shù)據(jù) POP ACC ?；謴同F(xiàn)場 POP DPL POP DPH RET DELAY: 。延時子程序 PUSH 0 。保存現(xiàn)場 PUSH 1 MOV 0,0H DELAY1: MOV 1,0H DJNZ 1,$ DJNZ 0,DELAY1 POP 1 ?；謴同F(xiàn)場 POP 0 RET L1: LCALL SET_T1 LCALL A_D_W LCALL A_D_S LCALL CON_W LCALL A_D_W LCALL A_D_S LCALL CON_S SJMP L1 溫度控制： CON_W: MOV A,SET_WL 將鍵入下限于實時值比較 CJNE A,CURTM_W,CON0_W LJMP END_CON_W CON0_W: JNC RISE_W 若 實時值在下限以下，則調用升溫 JC CON1_W 若在下限以上則再判斷 CON1_W: MOV A,SET_WH 實時值 與上限比較 CJNE A,CURTM_W,CON2_W LJMP END_CON_W CON2_W: JNC END_CON_W 若在上限下限以內則返回 JC DOWN_W 否則調用降溫 END_CON_W:RET 降溫處理： DOWN_W: SETB LCALL DIS_WS ； 中間 實時溫濕度顯示 LCALL RED LCALL TEST1_W CLR MOV DPTR,8100H MOV A,0FFH MOVX @DPTR,A LJMP END_CON_W 升溫處理： RISE_W: CLR LCALL DIS_WS ；中間 實時溫濕度顯示 LCALL GREEN LCALL TEST2_W SETB MOV DPTR,8100H MOV A,0FFH MOVX @DPTR,A TEST1_W: LCALL A_D_W 測試降濕 CLR C MOV A, CURTM_W MOV A,SET_W ADDC A,01H CJNE A,CURTM_S,TEST1_W 判斷是 否降溫到中間值＋ 1，無則繼續(xù)降濕 RET TEST2_W: LCALL A_D_W 測試升濕 CLR C MOV A, CURTM_W MOV A,SET_W SUBB A,01H CJNE A,CURTM_W,TEST_W 判斷是否降溫到中間值－ 1，無則繼續(xù)升濕 四路溫度平均： A_D_W: MOV A,R1 RL A RL A MOV R0,A MOV R1,A MOV A ,@R0 INC R0 MOV R5,00H MOV R6,04H START: CJNE R1,00H,AD04 MOV DPTR,IN0 SJMP TRAN AD04: CJNE R3,01H, AD05 MOV DPTR,IN1 SJMP TRAN AD05: CJNE R3,02H, AD06 MOV DPTR,IN2 SJMP TRAN AD06: MOV DPTR,IN3 TRAN: MOVX @DPTR,A 。啟動 A_D NOP NOP JB ,$ MOVX A,@DPTR LCALL DELAY MOVX A,@DPTR ADD A,R5 MOV R5,A DJNZ R6,TRAN MOV A,R5 ADDC A, 0F2H 。四舍五入 AND A,0F6H CLR C RRC A CLR C RRC A MOV CURTM_S,A 。初始采樣 0809一次 MOVX @DPTR,A POP DPL POP DPH POP ACC POP PSW RET 濕度控制 ： CON_S: MOV A,SET_SL 將鍵入下限于實時值比較 CJNE A,CURTM_S,CON0_S LJMP END_CON_S CON0_S: JNC RISE_S ； 若 實時值在下限以下，則調用升溫 JC CON1_S ； 若在下限以上則再判斷 CON1_S: MOV A,SET_SH ； 實時值 與上限比較 CJNE A,CURTM_S,CON2_S LJMP END_CON_S CON2_S: JNC END_CON_S ； 若在上限下限以內則返回 JC DOWN_S ； 否則調用降溫 END_CON_S: LCALL DISPLAY_END 去濕處理： DOWN_S: SETB LCALL DIS_WS ； 中間 實時溫濕度顯示 LCALL RED LCALL TEST1_S CLR MOV DPTR,8100H MOV A,0FFH MOVX @DPTR,A LJMP END_CON_S 噴霧處理： RISE_S: CLR LCALL DIS_WS ；中間 實時溫濕度顯示 LCALL GREEN LCALL TEST SETB MOV DPTR,8100H MOV A,0FFH MOVX @DPTR,A TEST1_S: LCALL A_D_S ； 測試降濕 CLR C MOV A, CURTM_S MOV A,SET_S ADDC A,01H CJNE A,CURTM_S,TEST1_S ；判斷是否降溫到中間值＋ 1，無則繼續(xù)降濕 RET TEST2_S: LCALL A_D_S ； 測試升濕 CLR C MOV A, CURTM_S MOV A,SET_S SUBB A,01H CJNE A,CURTM_S,TEST_S ；判斷是否降溫到中間值－ 1，無則繼續(xù)升濕 四路濕度輸入平均： A_D_S: MOV A,R1 RL A RL A MOV R0,A MOV R1,A MOV A ,@R0 INC R0 MOV R5,00H MOV R6,04H START: CJNE R1,00H,AD01 MOV DPTR,IN4 SJMP TRAN AD01: CJNE R3,01H, AD02 MOV DPTR,IN5 SJMP TRAN AD02: CJNE R3,02H, AD03 MOV DPTR,IN6 SJMP TRAN AD03: MOV DPTR,IN7 TRAN: MOVX