【正文】 四舍五入 AND A,0F6H CLR C RRC A CLR C RRC A MOV CURTM_S,A 。恢復(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 若 實時值在下限以下，則調(diào)用升溫 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 若在上限下限以內(nèi)則返回 JC DOWN_W 否則調(diào)用降溫 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 。延時子程序 PUSH 0 。顯示數(shù)據(jù) POP ACC 。置顯示常數(shù)表起始位置 MOV A,R5 MOVC A,A+DPTR 。加位置偏移量 MOV DPTR,Z8279 MOVX DPTR,A 。保存現(xiàn)場 PUSH DPL PUSH ACC MOV A,LEDWR0 。清除 LED 顯示 MOVX DPTR,A LCALL DELAY 。置 8279 工作方式 MOVX DPTR,A MOV A,LEDFEQ 。保存現(xiàn)場 PUSH DPL PUSH ACC LCALL DELAY 。置非法輸入標志 KEYOK: RET INIT_TRF: MOV DPTR,8100H MOV A,0FFH MOVX DPTR,A RET INIT8279: 。把得到的值存在 B MOV A,0FFH 。判斷輸入是否小于 0 JC ERROR2 INC R4 MOV R5,A LCALL DISLED 。無鍵輸入則再讀 MOV A,B ADD A,016H 。保存輸入的值 WKEY2: LCALL GETKEY 。判斷輸入是否小于 0 MOV R5,A LCALL DISLED 。無鍵輸入 ,則再讀 MOV A,B ADD A,0C6H JC ERROR1 。讀數(shù)子程序 WKEY1: LCALL GETKEY 。置返回鍵值 MOV A,0FFH 。鍵碼表起始地址 MOVC A,A+DPTR 。讀鍵 ANL A,3FH 。置標志 (無鍵輸入 ) SJMP NKBHIT GETVAL: MOV A,READKB 。屏蔽 D7D3 JNZ GETVAL 。保存現(xiàn)場 PUSH DPL PUSH PSW MOV DPTR,Z8279 MOVX A,DPTR 。置鍵盤掃描速率 MOVX DPTR,A MOV A,LEDCLS 。鍵識別 SET_T: LCALL GETKEY ； 調(diào)用 GETKEY CJNE A,0FFH,SET_T ； 判斷是否有鍵入 ， 無則再讀 MOV A,B CJNE A,3CH,TT ； 判斷鍵入是否 3CH CJNE R0,00H,SET_1 ； 判斷是否有鍵入并鍵入完成 SJMP SET_T SET_1: LCALL DISPLAY_NOR MOV DPTR ,Z8279 MOV A,LEDMOD 。啟動四位接口指令 LCALL EN1 ； RS=0,R/W=0,D4~D7=0010 LCALL INIT_LCD1 ； LCD 指令設(shè)置初試化 RET WCOM: MOV P0,A ；先寫入高四位命令 CLR RS ； RS=0 寫入命令 LCALL EN1 ；產(chǎn)生高電平起用脈沖 RLC A ；向左移四位 RLC A RLC A RLC A MOV P0,A ；先寫入低四位命令 CLR RS 。 輸出字符到 LCD DJNZ R0,CL ； 記數(shù)結(jié)束 RET LCD_PRINT: CJNE A,1,LINE2 ； 在 LCD 第一行或第二行顯示字符 LINE1: ； 設(shè)置第一行地址 MOV A,80H LCALL WCOM LCALL CLR_LINE MOV A,80H LCALL WCOM JMP FILL LINE2: ；設(shè)置第一行地址 MOV A, 0C0H LCALL WCOM LCALL CLR_LINE MOV A,0C0H LCALL WCOM FILL: CLR A MOVC A, A+DPTR CJNE A, 0,L1 RET L1:LCALL WDATA INC DOTR JMP FILL RET CLR_LINE:MOV R0,24 ；清除 LCD 該行字符 C1:MOV A,’’ ；載入空格符到 LCD LCALL WDATA ；輸出字符到 LCD DJNZ R0,C1 ；記數(shù)結(jié)束 RET DE: ；短暫延時 MOV R7,5 DJNZ R7,$ RET EN1: SET EN LCALL DE CLR EN LCALL DE RET INIT_LCD: MOV P0,30H 。工作指示燈引腳定義 CLR EN