【正文】 NONEEND第 47 頁 共 47 頁。8DB 090H 。6DB 0F8H 。4DB 092H 。2DB 0B0H 。0DB 0F9H 。P2口復位RETDS1M: MOV R7,0FFHDJNZ R7,$RET。出口參數(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 。程序名稱:DISPLAY。符號位不顯示MOV 72H,A 。百位 MOV A,TEMPERATURE_HC ANL A,0F0H CJNE A,010H,NEXT0 SJMP NEXT1NEXT0: MOV A,TEMPERATURE_HC ANL A,0FH JNZ NEXT1 。個位 MOV A,TEMPERATURE_HC ANL A,0FH MOV DIS_BUF_S,A 。出口參數(shù):DIS_BUF_G, DIS_BUF_S, DIS_BUF_BSET_DIS_BUF: MOV A,TEMPERATURE_LC ANL A,0FH MOV DIS_BUF_X,A 。功能:賦值給DIS_BUF_G, DIS_BUF_S, DIS_BUF_B。報警SQUIT: RET。報警SJMP SQUITCOOL: SETB P_SWITCH 。P_SWITCH為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 ?？煽毓杩刂芐WITCH:MOV A,KEY_BUF_G 。顯示出來MOV DIS_BUF_S,KEY_BUF_SMOV DIS_BUF_B,KEY_BUF_BCALL K_DELAYRETK_DELAY: 。退回00MOV KEY_BUF_G,00HDOWNNEXT:MOV DIS_BUF_G,KEY_BUF_G 。十位低于0，溢出了MOV R0,200ERROR2: LCALL ERR 。個位減到0，回到9MOV KEY_BUF_G,09HDEC KEY_BUF_S 。按鈕抖動處理DEC KEY_BUF_G 。入口參數(shù):KEY_BUF_G,KEY_BUF_S,KEY_BUF_B。程序名稱:PRO_DOWN。出錯，顯示8888DJNZ R0,ERROR1DEC KEY_BUF_S 。十位加一MOV A,KEY_BUF_SCJNE A,0AH,UPNEXT 。個位增一MOV A,KEY_BUF_G CJNE A,0AH,UPNEXT 。出口參數(shù):DIS_BUF_G,DIS_BUF_S,DIS_BUF_BPRO_UP:CALL K_DELAYJB K_UP,K_LOOP 。功能:數(shù)值上調(diào)處理。按鈕抖動處理SETB E NTER_FLAGCALL K_DELAYRET。入口參數(shù):ENTER_FLAG。程序名稱:PRO_ENTER。如果輸入完成，ENTER_FLAG則為1，退出鍵盤程。每次進來都賦值輸入標志，設(shè)置為0MOV KEY_BUF_G,DIS_BUF_G 。出口參數(shù):KEY_BUF_G,KEY_BUF_S,kEY_BUF_BSCAN_KEY:JB K_ENTER,QUIT 。功能:掃描鍵盤。數(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。出口參數(shù):無READ_18B20: MOV R4,4 。功能:讀取18B20中的數(shù)據(jù)，由于是串行通信，每次讀取一個，循環(huán)8次讀取。釋放總線RET。23*2 = 46微妙SETB P_DS18B20NOPDJNZ R2,WR1 。一共8位數(shù)據(jù)，串行通信CLR CWR1: CLR P_DS18B20MOV R3,07DJNZ R3,$RRC A 。入口參數(shù):A 寄存器。將讀出的溫度數(shù)據(jù)保存到35H/36H RET程序名稱:WRITE_18B20。跳過ROM匹配 LCALL WRITE_18B20 MOV A,0BEH 。等待AD轉(zhuǎn)換結(jié)束,12位的話750微秒 LCALL INIT_TEMP 。跳過ROM匹配 LCALL WRITE_18B20 MOV A,44H 。先復位DS18B20 JB FLAG,TSS2 RET 。入口參數(shù):TEMPERATURE_L，TEMPERATURE_H。程序名稱:READ_TEMP。清標志位,表示DS1820不存在 LJMP TSR7TSR5: MOV R0,06BHTSR6: DJNZ R0,TSR6 。延時TSR3: SETB FLAG 。然后拉高數(shù)據(jù)線，釋放總線進入接受狀態(tài) NOP NOP NOP MOV R0,32HTSR2: JNB P_DS18B20,TSR3 。出口參數(shù):FLAGINIT_TEMP: SETB P_DS18B20 NOP CLR P_DS18B20 。功能:初始化DS18B20,確定DS18B20是否是存在的。 MOV A,0AH XCH A,B DIV AB SWAP A ORL A,B RET。100 DIV AB 。入口參數(shù):A。程序名稱:HtoB。*5 = 03H。*3 = 01H。00H。TEMPERATURE_HC HI = 百位數(shù) BCDANL A,0FHORL A,R7MOV TEMPERATURE_HC,ATEMPC12: RET 。轉(zhuǎn)換HEx值成為BCD碼 MOV TEMPERATURE_L,A ANL A,0F0HSWAP AORL A,TEMPERATURE_HC 。SWAP后就得到個位真正的個位 MOV TEMPERATURE_L,A MOV A,TEMPERATURE_H ANL A,0FH SWAP A ORL A,TEMPERATURE_L MOV TEMPERATURE_ZH,A 。整數(shù)部分 ANL A,0F0H 。TEMPERATURE_LC LOW=小數(shù)部分 BCD MOV DIS_BUF_X,A 。寫回TEMPERATURE_HMOV TEMPERATURE_HC,0BHSJMP TEMPC11TEMPC1: MOV TEMPERATURE_HC,0AH TEMPC11: MOV A,TEMPERATURE_HC SWAP A MOV TEMPERATURE_HC,A MOV A,TEMPERATURE_L ANL A,0FH MOV DPTR,TEMPDOTTAB MOVC A,A+DPTR 。二進制數(shù)求補（雙字節(jié)）CPL A 。A為0，說明是正數(shù),如果是負數(shù)，則。出口參數(shù):DIS_BUF_G, DIS_BUF_S, DIS_BUF_DATA_DEAL:MOV A,TEMPERATURE_H 。功能:處理采集后的的數(shù)據(jù)。顯示為888MOV DIS_BUF_G,08H MOV DIS_BUF_S,08HMOV DIS_BUF_B,08HLCALL DISPLAYRET。出口參數(shù):DIS_BUF_X,DIS_BUF_G, DIS_BUF_S, DIS_BUF_BERR: MOV DIS_BUF_X,08H 。功能:程序出錯處理，顯示四個8，即8888。處理可控硅 AJMP NEXT。調(diào)用數(shù)碼管顯示子程序 LCALL SCAN_KEY 。處理從DS18B20得到的數(shù)據(jù) LCALL SET_DIS_BUF 。判斷是否有DS18B20的存在 CALL ERR 。由于KEY_BUF是由用戶輸入的，所以先賦值初始化 MOV KEY_BUF_S,00H MOV KEY_BUF_B,00HNEXT: LCALL READ_TEMP 。鍵盤輸入的標志位, ORG 0000H LJMP MAIN ORG 0100HMAIN: MOV SP,60H ?？煽毓杩刂? FLAG EQU 。輸入數(shù)據(jù)確認按鈕 P_DS18B20 EQU 。上調(diào)按鈕 K_DOWN EQU 。鍵盤輸入后，的十位值 KEY_BUF_B DATA 41H 。數(shù)碼管百位Buffer KEY_BUF_G DATA 39H 。數(shù)碼管個位Buffer DIS_BUF_S DATA 37H 。 計算后十位和個位HEX碼的存放BUFFERDI