【正文】 LCD四位接口指令重置LCALL EN1 ；RS=0,R/W=0,D4~D7=0011MOV P0,30HLCALL EN1MOV P0,30HLCALL EN1
。 LCD做顯示測試MOV A, ’1’ ；設(shè)置所要顯示的字符MOV B, 15 ；設(shè)置所要顯示的位置LCALL LCDP1 ；在LCD第一行顯示字符MOV A, ’2’ ；設(shè)置所要顯示的字符MOV B, 15 ；設(shè)置所要顯示的位置LCALL LCDP2 ；在LCD第二行顯示字符JMP $ ；循環(huán)SET_LCD: ；LCD初試化并做測試CLR EN ；LCD被禁用LCALL INIT_LCD ；LCD初試化LCALL DELAY ；延時MOV DPTR,LMESS1 ；指針指到消息第一行MOV A,1 ；顯示在第一行LCALL LCD_PRINT ；顯示執(zhí)行消息于LCD第一行MOV DPTR,LMESS2 ；指針指到消息第二行MOV A,2 ；顯示在第二行LCALL LCD_PRINT ；顯示執(zhí)行消息于LCD第二行RETINIT_LCD1: ；4位I/O初試化MOV A,28H LCALL WCOM ；雙列顯示字符使用57點陣MOV A,0EHLCALL WCOM ；光標出現(xiàn)不閃爍MOV A,06HLCALL WCOM ；每次向右移動一位，顯示屏不動MOV A,01HLCALL WCOM ；清除LCD顯示屏RETCLR_LINE1:MOV A,80H ；清除LCD的第一行，設(shè)置第一行字符LCALL WCOMMOV R0,24 ；設(shè)置記數(shù)值CL:MOV A,’’ ；載入空格到LCDLCALL WDATA 。LCD EN 引腳定義WLED EQU 。初始采樣0809一次MOVX DPTR,APOP DPLPOP DPHPOP ACCPOP PSWRET中間數(shù)值的顯示和適時數(shù)值顯示：DIS_WS:LCALL LEDCLRMOV A，CURTM_WMOV B，0AHDIV ABMOV R5，AMOV R4,0LCALL DIS_LEDMOV R5，BMOV R4,1LCALL DIS_LEDMOV A，CURTM_SMOV B，0AHDIV ABMOV R5，AMOV R4,2LCALL DIS_LEDMOV R5，BMOV R4,3LCALL DIS_LEDMOV A，SET_SMOV B，0AHDIV ABMOV R5，AMOV R4,4LCALL DIS_LEDMOV R5，BMOV R4,5LCALL DIS_LEDMOV A，SET_WMOV B，0AHDIV ABMOV R5，AMOV R4,6LCALL DIS_LEDMOV R5，BMOV R4,7LCALL DIS_LEDLED_CLR: MOV A,0D1HMOV DPTR,A RET液晶顯示程序如下：DISPLAY_NOR:RS EQU 。啟動 A_DNOPNOP JB ,$ MOVX A,DPTRLCALL DELAYMOVX A,DPTRADD A,R5MOV R5,ADJNZ R6,TRANMOV A,R5ADDC A, 0F2H 。四舍五入AND A,0F6HCLR CRRC ACLR CRRC AMOV CURTM_S,A ?；謴?fù)現(xiàn)場 POP 0 RETL1: LCALL SET_T1LCALL A_D_WLCALL A_D_SLCALL CON_WLCALL A_D_WLCALL A_D_SLCALL CON_SSJMP L1溫度控制：CON_W: MOV A,SET_WL 將鍵入下限于實時值比較 CJNE A,CURTM_W,CON0_W LJMP END_CON_WCON0_W: JNC RISE_W 若實時值在下限以下，則調(diào)用升溫 JC CON1_W 若在下限以上則再判斷CON1_W: MOV A,SET_WH 實時值與上限比較 CJNE A,CURTM_W,CON2_W LJMP END_CON_WCON2_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,ATEST1_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,AMOV R1,AMOV A ,R0INC R0MOV R5,00HMOV R6,04HSTART:CJNE R1,00H,AD04 MOV DPTR,IN0 SJMP TRANAD04: CJNE R3,01H, AD05 MOV DPTR,IN1 SJMP TRANAD05: CJNE R3,02H, AD06MOV DPTR,IN2 SJMP TRANAD06: MOV DPTR,IN3TRAN: 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 RETINIT8279: 。把得到的值存在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 。讀