【正文】 。置8279工作方式 MOVX DPTR,A MOV A,LEDFEQ 。清除 LED 顯示 MOVX DPTR,A LCALL L1TT: CJNE A,3BH,KS ；判斷是否鍵入B INC R0 ；作為標(biāo)志位，判斷是否數(shù)據(jù)輸入確定MOV R4,0 LCALL GETWORD MOV A,B MOV SET_WL,AMOV R4,2 LCALL GETWORD MOV A,B MOV SET_WH,A MOV A,SET_WL ADD A,SET_WH MOV B,02H DIV AB MOV SET_W,AMOV R4,4LCALL GETWORD MOV A,B MOV SET_SL,AMOV R4,6 LCALL GETWORD MOV A,B MOV SET_SH,A MOV A,SET_SL ADD A,SET_SH MOV B,02H DIV AB MOV SET_S,AKS: SJMP SET_T SET_T1: MOV R1,0AH SET_T2: LCALL GETKEY CJNE A,0FFH,RING ； 判斷輸入是否正確 MOV A,B CJNE A,3BH,RING ；若正確則無需再讀 LJMP SET_T ；若錯(cuò)誤則調(diào)用SET_T再鍵入數(shù)據(jù) RING:DJNZ R1,SET_T2 RET GETKEY: PUSH DPH 。讀8279狀態(tài) ANL A,07H 。判斷是否有鍵輸入 MOV A,0H 。讀 FIFO RAM 命令 MOVX DPTR,A MOV DPTR,D8279 MOVX A,DPTR 。屏蔽 SHIFT 和 CTRL 鍵 MOV DPTR,KEYCODE 。查表 MOV B,A 。置標(biāo)志(有鍵輸入)NKBHIT: POP PSW POP DPL POP DPH RETGETWORD: 。讀鍵盤 CJNE A,0FFH,WKEY1 。判斷輸入是否大于9 MOV A,B SUBB A,30H JC ERROR1 。顯示輸入的字符 MOV B,10 MUL AB PUSH ACC 。讀鍵盤 CJNE A,0FFH,WKEY2 。判斷輸入是否大于9 JC ERROR2 MOV A,B SUBB A,30H 。顯示輸入的字符 MOV B,A POP ACC ADD A,B MOV B,A 。置合法輸入標(biāo)志 AJMP KEYOKERROR2:SJMP WKEY2ERROR1:SIMP WKEY1 。8279初始化子程序 PUSH DPH 。延時(shí) MOV DPTR ,Z8279 MOV A,LEDMOD 。置鍵盤掃描速率 MOVX DPTR,A MOV A,LEDCLS 。延時(shí)DISLED: PUSH DPH 。置顯示起始地址 ADD A,R4 。設(shè)定顯示位置 MOV DPTR,LEDSEG 。查表 MOV DPTR,D8279 MOVX DPTR,A ?；謴?fù)現(xiàn)場 POP DPL POP DPH RET DELAY: 。保存現(xiàn)場 PUSH 1 MOV 0,0HDELAY1: MOV 1,0H DJNZ 1,$ DJNZ 0,DELAY1 POP 1 。啟動(dòng) A_DNOPNOP JB ,$ MOVX A,DPTRLCALL DELAYMOVX A,DPTRADD A,R5MOV R5,ADJNZ R6,TRANMOV A,R5ADDC A, 0F2H 。初始采樣0809一次MOVX DPTR,APOP DPLPOP DPHPOP ACCPOP PSWRET濕度控制：CON_S: MOV A,SET_SL 將鍵入下限于實(shí)時(shí)值比較 CJNE A,CURTM_S,CON0_S LJMP END_CON_SCON0_S: JNC RISE_S ；若實(shí)時(shí)值在下限以下，則調(diào)用升溫 JC CON1_S ； 若在下限以上則再判斷CON1_S: MOV A,SET_SH ； 實(shí)時(shí)值與上限比較 CJNE A,CURTM_S,CON2_S LJMP END_CON_SCON2_S: JNC END_CON_S ；若在上限下限以內(nèi)則返回 JC DOWN_S ；否則調(diào)用降溫END_CON_S: LCALL DISPLAY_END去濕處理：DOWN_S: SETB LCALL DIS_WS ；中間 實(shí)時(shí)溫濕度顯示 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 ；中間 實(shí)時(shí)溫濕度顯示 LCALL GREEN LCALL TEST SETB MOV DPTR,8100H MOV A,0FFH MOVX DPTR,ATEST1_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,AMOV R1,AMOV A ,R0INC R0MOV R5,00HMOV R6,04HSTART:CJNE R1,00H,AD01 MOV DPTR,IN4 SJMP TRANAD01: CJNE R3,01H, AD02 MOV DPTR,IN5 SJMP TRANAD02: CJNE R3,02H, AD03MOV DPTR,IN6 SJMP TRANAD03: MOV DPTR,IN7TRAN: MOVX DPTR,A 。四舍五入AND A,0F6HCLR CRRC ACLR CRRC AMOV CURTM_W,A 。LCD RC引腳定義EN EQU 。工作指示燈引腳定義CLR EN ；LCD被禁用LCALL LED_BL ；LCD閃爍LCALL SET_LCD 。 輸出字符到LCDDJNZ R0,CL ；記數(shù)結(jié)束RETLCD_PRINT:CJNE A,1,LINE2 ；在LCD第一行或第二行顯示字符LINE1: ；設(shè)置第一行地址MOV A,80HLCALL WCOMLCALL CLR_LINEMOV A,80HLCALL WCOMJMP FILLLINE2: ；設(shè)置第一行地址MOV A, 0C0HLCALL WCOMLCALL CLR_LINEMOV A,0C0HLCALL WCOMFILL: CLR AMOVC A, A+DPTRCJNE A, 0,L1RETL1:LCALL WDATAINC DOTR JMP FILLRETCLR_LINE:MOV R0,24 ；清除LCD該行字符C1:MOV A,’’ ；載入空格符到LCDLCALL WDATA ；輸出字符到LCDDJNZ R0,C1 ；記數(shù)結(jié)束RETDE: ；短暫延時(shí)MOV R7,5DJNZ R7,$RETEN1:SET ENLCALL DECLR ENLCALL DERETINIT_LCD: MOV P0,30H