【正文】 RET。程序名稱:READ_TEMP。功能:讀取DS18B20的數(shù)據(jù)。入口參數(shù):TEMPERATURE_L，TEMPERATURE_H。出口參數(shù):無READ_TEMP: SETB P_DS18B20 LCALL INIT_TEMP 。先復位DS18B20 JB FLAG,TSS2 RET 。判斷DS1820是否存在?若DS18B20不存在則返回TSS2: MOV A,0CCH 。跳過ROM匹配 LCALL WRITE_18B20 MOV A,44H 。發(fā)出溫度轉(zhuǎn)換命令 LCALL WRITE_18B20 LCALL DISPLAY 。等待AD轉(zhuǎn)換結(jié)束,12位的話750微秒 LCALL INIT_TEMP 。準備讀溫度前先復位 MOV A,0CCH 。跳過ROM匹配 LCALL WRITE_18B20 MOV A,0BEH 。發(fā)出讀溫度命令 LCALL WRITE_18B20 LCALL READ_18B20 。將讀出的溫度數(shù)據(jù)保存到35H/36H RET程序名稱:WRITE_18B20。功能:將A保存的數(shù)值寫入DS1820中。入口參數(shù):A 寄存器。出口參數(shù):無WRITE_18B20: MOV R2,8 。一共8位數(shù)據(jù)，串行通信CLR CWR1: CLR P_DS18B20MOV R3,07DJNZ R3,$RRC A 。循環(huán)右移MOV P_DS18B20,CMOV R3,3CHDJNZ R3,$ 。23*2 = 46微妙SETB P_DS18B20NOPDJNZ R2,WR1 。A里面一共是8位，所以要送8次SETB P_DS18B20 。釋放總線RET。程序名稱:READ_18B20。功能:讀取18B20中的數(shù)據(jù)，由于是串行通信，每次讀取一個，循環(huán)8次讀取。入口參數(shù):TEMPRATURE_L。出口參數(shù):無READ_18B20: MOV R4,4 。將溫度高位和低位從DS18B20中讀出MOV R1,TEMPERATURE_L RE00: MOV R2,8 。數(shù)據(jù)一共有8位RE01: CLR CSETB P_DS18B20NOPNOPCLR P_DS18B20NOPNOPNOPSETB P_DS18B20MOV R3,09RE10: DJNZ R3,RE10MOV C,P_DS18B20MOV R3,3CHRE20: DJNZ R3,RE20RRC ADJNZ R2,RE01MOV @R1,ADEC R1DJNZ R4,RE00RET。程序名稱:SCAN_KEY。功能:掃描鍵盤。入口參數(shù):DIS_BUF_G,DIS_BUF_S,DIS_BUF_B。出口參數(shù):KEY_BUF_G,KEY_BUF_S,kEY_BUF_BSCAN_KEY:JB K_ENTER,QUIT 。如果又Enter鍵入，則開始鍵盤輸入LCALL K_DELAYJB K_ENTER,QUIT CLR ENTER_FLAG 。每次進來都賦值輸入標志，設置為0MOV KEY_BUF_G,DIS_BUF_G 。將當前的溫度賦值給KEY_BUF MOV KEY_BUF_S,DIS_BUF_SMOV KEY_BUF_B,DIS_BUF_BK_LOOP:JB ENTER_FLAG,QUIT 。如果輸入完成，ENTER_FLAG則為1，退出鍵盤程。序JB K_ENTER,KUPCALL PRO_ENTERKUP: JB K_UP,KDOWNCALL PRO_UPKDOWN: JB K_DOWN,LOOPACALL PRO_DOWNLOOPA: LCALL DISPLAYSJMP K_LOOPQUIT: RET。程序名稱:PRO_ENTER。功能:確認鍵盤輸入和退出鍵盤輸入。入口參數(shù):ENTER_FLAG。出口參數(shù):ENTER_FLAGPRO_ENTER:CALL K_DELAYJB K_ENTER,K_LOOP 。按鈕抖動處理SETB E NTER_FLAGCALL K_DELAYRET。程序名稱:PRO_UP。功能:數(shù)值上調(diào)處理。入口參數(shù):KEY_BUF_G,KEY_BUF_S,KEY_BUF_B。出口參數(shù):DIS_BUF_G,DIS_BUF_S,DIS_BUF_BPRO_UP:CALL K_DELAYJB K_UP,K_LOOP 。按鈕抖動處理INC KEY_BUF_G 。個位增一MOV A,KEY_BUF_G CJNE A,0AH,UPNEXT 。個位增加到10，回0MOV KEY_BUF_G,00HINC KEY_BUF_S 。十位加一MOV A,KEY_BUF_SCJNE A,0AH,UPNEXT 。十位超過99，溢出了MOV R0,200ERROR1: LCALL ERR 。出錯，顯示8888DJNZ R0,ERROR1DEC KEY_BUF_S 。退回99MOV KEY_BUF_G,09HUPNEXT:MOV DIS_BUF_G,KEY_BUF_GMOV DIS_BUF_S,KEY_BUF_SMOV DIS_BUF_B,KEY_BUF_BCALL K_DELAY RET。程序名稱:PRO_DOWN。功能:數(shù)值下調(diào)處理。入口參數(shù):KEY_BUF_G,KEY_BUF_S,KEY_BUF_B。出口參數(shù):DIS_BUF_G,DIS_BUF_S,DIS_BUF_BPRO_DOWN:CALL K_DELAYJB K_DOWN,K_LOOP 。按鈕抖動處理DEC KEY_BUF_G 。個位減一MOV A,KEY_BUF_GCJNE A,0FFH,DOWNNEXT 。個位減到0，回到9MOV KEY_BUF_G,09HDEC KEY_BUF_S 。十位減一MOV A,KEY_BUF_SCJNE A,0FFH,DOWNNEXT。十位低于0，溢出了MOV R0,200ERROR2: LCALL ERR 。出錯，顯示8888DJNZ R0,ERROR2INC KEY_BUF_S 。退回00MOV KEY_BUF_G,00HDOWNNEXT:MOV DIS_BUF_G,KEY_BUF_G 。增加完成后，賦值退出，然后DISPLAY。顯示出來MOV DIS_BUF_S,KEY_BUF_SMOV DIS_BUF_B,KEY_BUF_BCALL K_DELAYRETK_DELAY: 。鍵盤抖動延時子程序MOV R6,250DL20MS_1:MOV R7,200DJNZ R7,$DJNZ R6, DL20MS_1RET?？煽毓杩刂芐WITCH:MOV A,KEY_BUF_G 。三個Buffer都是0的話，說明還沒有輸入數(shù)值，直。接退出JNZ SNEXTMOV A,KEY_BUF_SJNZ SNEXT MOV A,KEY_BUF_BJZ SQUITSNEXT: CALL SET_DIS_BUFMOV A,KEY_BUF_SSUBB A,DIS_BUF_SJC COOLJNZ HOT 。十位如果相等，那么繼續(xù)比較個位MOV A,KEY_BUF_GSUBB A,DIS_BUF_GJC COOLHOT: CLR P_SWITCH 。P_SWITCH為0說明當前溫度小于設定溫度，要升溫。所以接電阻絲SETB 。報警SJMP SQUITCOOL: SETB P_SWITCH 。P_SWITCH 為1說明當前溫度大于設定溫度 SETB 。報警SQUIT: RET。程序名稱:SET_DIS_BUF。功能:賦值給DIS_BUF_G, DIS_BUF_S, DIS_BUF_B。入口參數(shù):TEMPERATURE_LC,TEMPERATURE_HC。出口參數(shù):DIS_BUF_G, DIS_BUF_S, DIS_BUF_BSET_DIS_BUF: MOV A,TEMPERATURE_LC ANL A,0FH MOV DIS_BUF_X,A 。小數(shù)位 MOV A,TEMPERATURE_LC SWAP A ANL A,0FH MOV DIS_BUF_G,A 。個位 MOV A,TEMPERATURE_HC ANL A,0FH MOV DIS_BUF_S,A 。十位 MOV A,TEMPERATURE_HC SWAP A ANL A,0FH MOV DIS_BUF_B,A 。百位 MOV A,TEMPERATURE_HC ANL A,0F0H CJNE A,010H,NEXT0 SJMP NEXT1NEXT0: MOV A,TEMPERATURE_HC ANL A,0FH JNZ NEXT1 。十位數(shù)是0MOV A,TEMPERATURE_HCSWAP AANL A,0FHMOV 73H,0AH 。符號位不顯示MOV 72H,A 。十位數(shù)顯示符號NEXT1: RET。程序名稱:DISPLAY。功能:顯示數(shù)據(jù)到數(shù)碼管中。入口參數(shù):DIS_BUF_G, DIS_BUF_S, DIS_BUF_B。出口參數(shù):無DISPLAY:MOV DPTR,DISTABMOV R3,0FEHMOV R1,DIS_BUF_BDPLOP: MOV A,@R1MOVC A,@A+DPTRMOV P2,R3MOV P0,ACJNE R3,0FBH,DPNEXTCLR DPNEXT: MOV A,R3RL AMOV R3,ADEC R1CALL DS1MCJNE R3,0EFH,DPLOPMOV P0,0FFH 。一次顯示結(jié)束，P0口復位MOV P2,0FFH 。P2口復位RETDS1M: MOV R7,0FFHDJNZ R7,$RET。數(shù)碼管TABDISTAB:DB 0C0H 。0DB 0F9H 。1DB 0A4H 。2DB 0B0H 。3DB 099H 。4DB 092H 。5DB 082H 。6DB 0F8H 。7DB 080H 。8DB 090H 。9DB 0FFH 。NONEEND第 49 頁 共 49