【正文】 。出錯，顯示 888 DJNZ R0,ERROR1 DEC KEY_BUF_S 。退回 99 MOV KEY_BUF_G,09H UPNEXT: MOV DIS_BUF_G,KEY_BUF_G MOV DIS_BUF_S,KEY_BUF_S LCALL K_DELAY RET 。??????? 程序名稱 :PRO_DOWN???????????????????? ? 。功能 :數(shù)值下調處理 。入口參數(shù) :KEY_BUF_G,KEY_BUF_S, 。出口參數(shù) :DIS_BUF_G,DIS_BUF_S, PRO_DOWN: LCALL K_DELAY 江蘇畜牧獸醫(yī)職業(yè)技術學院論文（設計） 29 JB K_DOWN,K_LOOP 。按鍵抖動處理 JNB K_DOWN,$ DEC KEY_BUF_G 。個位減一 MOV A,KEY_BUF_G CJNE A,0FFH,DOWNNEXT 。個位減到 0，回到 9 MOV KEY_BUF_G,09H DEC KEY_BUF_S 。十位減一 MOV A,KEY_BUF_S CJNE A,0FFH,DOWNNEXT 。十位低于 0，溢出了 MOV R0,200 ERROR2: LCALL ERR 。出錯，顯示 888 DJNZ R0,ERROR2 INC KEY_BUF_S 。退回 00 MOV KEY_BUF_G,00H DOWNNEXT: MOV DIS_BUF_G,KEY_BUF_G 。增 加完成后，賦值退出，然后 DISPLAY顯示 MOV DIS_BUF_S,KEY_BUF_S LCALL K_DELAY RET K_DELAY: 。鍵盤抖動延時子程序 MOV R6,100 L2: MOV R7,25 L3: DJNZ R7,L3 DJNZ R6, L2 RET 。?????? 程序名稱： DISPLAY???????????????????? ??? 。功能：顯示數(shù)據(jù)到數(shù)碼管 。入口參數(shù)： DIS_BUF_G, DIS_BUF_S, DIS_BUF_X, DIS_BUF_Y 。出口參數(shù)：無 DISPLAY: MOV DPTR,DISTAB MOV R3,7FH MOV R1,DIS_BUF_S DPLOP: MOV A,@R1 MOVC A,@A+DPTR MOV P2,R3 江蘇畜牧獸醫(yī)職業(yè)技術學院論文（設計） 30 MOV P0,A CJNE R3,0BFH,DPNEXT CLR DPNEXT: MOV A,R3 RR A MOV R3,A DEC R1 LCALL DS1M CJNE R3,0F7H,DPLOP MOV P0,0FFH 。一次顯示結束， P0口復位 MOV P2,0FFH 。P2口復位 RET DS1M: MOV R7,10 JOOP0: MOV R6,64H JOOP: DJNZ R6,JOOP DJNZ R7,JOOP0 RET 。數(shù)碼管 TAB DISTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH 。????????? 程序名稱 :ERR???????????????????? 。功能 :程序出錯處理，顯示四個 8，即 8888 。入口參數(shù) :無 。出口參數(shù) : DIS_BUF_Y ， DIS_BUF_X,DIS_BUF_G, DIS_BUF_S ERR: MOV DIS_BUF_X,08H 。如果沒有找到 DS18B20，那么就顯示錯誤，錯 。誤顯示為 8888 MOV DIS_BUF_G,08H MOV DIS_BUF_S,08H MOV DIS_BUF_Y,08H LCALL DISPLAY RET 。???????? 程序名稱 :DATA_DEAL?????????????????? 。功能 :處理采集后的的數(shù)據(jù) 。入口參數(shù) :TEMPERATURE_L 。出口參數(shù) :DIS_BUF_G, DIS_BUF_S,DIS_BUF_X， DIS_BUF_Y DATA_DEAL: MOV A,TEMPERATURE_H 。判溫度是否零下 江蘇畜牧獸醫(yī)職業(yè)技術學院論文（設計） 31 ANL A,80H JZ TEMPC1 。A為 0，說明是正數(shù)，跳往 TEMPC1,如果是負數(shù)， 。則對低 8為進行補碼處理 CLR C MOV A,TEMPERATURE_L 。二進制數(shù)求補（雙字節(jié)） CPL A 。取反加 1 ADD A,01H MOV TEMPERATURE_L,A 。取補碼 后存回 TEMPERATURE_L，此時 TEMPERATURE_L 。里面的值就可以表示溫度了，不過還要繼續(xù)處 理一下 MOV A, TEMPERATURE_H CPL A ADDC A,00H 。高位 TEMPERATURE_H取反，加上 。從低位 TEMPERATURE_L進來的位 MOV TEMPERATURE_H,A 。寫回 TEMPERATURE_H MOV TEMPERATURE_HC,0BH SJMP TEMPC11 TEMPC1: MOV TEMPERATURE_HC, 0AH TEMPC11: MOV A, TEMPERATURE_HC SWAP A MOV TEMPERATURE_HC, A MOV A, TEMPERATURE_L ANL A,0FH 。取 A低 4位 (小數(shù)位，單位是 ),得出來 。的數(shù)要乘以 ,通過查表來算出值 MOV B,A MOV DPTR,TEMPDOTTAB MOVC A,@A+DPTR 。查表 MOV TEMPERATURE_LC,A 。TEMPERATURE_LC LOW=小數(shù)部分 BCD MOV DIS_BUF_X,A 。小數(shù)位的 BCD碼送入顯示 BUFFER中 MOV A,B MOV DPTR,BAIFENWEITAB MOVC A,@A+DPTR MOV DIS_BUF_Y,A MOV A,TEMPERATURE_L 。整數(shù)部分 ANL A,0F0H 。得到個位單個數(shù)值 SWAP A 。SWAP后就得到個位真正的個位 江蘇畜牧獸醫(yī)職業(yè)技術學院論文（設計） 32 MOV TEMPERATURE_L,A MOV A,TEMPERATURE_H ANL A,0FH SWAP A ORL A,TEMPERATURE_L MOV TEMPERATURE_ZH,A 。組合后的值存入 TEMPERATURE_ZH LCALL HTOB 。轉換 HEX值成為 BCD碼 MOV TEMPERATURE_L,A 。TEMPERATURE_L目前存入的是十位 。和個位的 BCD編碼 ANL A,0F0H SWAP A ORL A,TEMPERATURE_HC 。TEMPERATURE_HC LOW位 = 十位數(shù) BCD MOV TEMPERATURE_HC,A MOV A,TEMPERATURE_L ANL A,0FH SWAP A 。TEMPERATURE_LC HI位 = 個位數(shù) BCD ORL A,TEMPERATURE_LC MOV TEMPERATURE_LC,A RET 。小數(shù)部分碼表 BAIFENWEITAB: DB 00H,06H,03H,09H,05H,01H,08H,04H,00H DB 06H,03H,09H,05H,01H,08H,04H TEMPDOTTAB:DB00H,00H,01H,01H,02H,03H,03H,04H,05H,05H,06H,06H,07H,08H,08H,09H 。00H 。*2 = 01H 。*3 = 02H 。*4 = 03H。*5 = 03H 。以此類推 .......... 。???????? 程序名稱 :HTOB???????????????????? ??? 。功能 :十六進制轉 BCD 。入口參數(shù) :A 。出口參數(shù) :R7 HTOB: MOV B,064H 。100 DIV AB 。A/100 MOV R7,A 。 江蘇畜牧獸醫(yī)職業(yè)技術學院論文（設計） 33 MOV A,0AH XCH A,B DIV AB SWAP A ORL A,B RET 。?????????? 程序名稱 :INIT_TEMP?????????????????? 。功 能 :初始化 DS18B20,確定 DS18B20是否是存在的 。入口參數(shù) :無 。出口參數(shù) :FLAG INIT_TEMP: SETB P_DS18B20 NOP CLR P_DS18B20 。主機發(fā)出延時 537微秒的復位低脈沖 MOV R0,06BH TSR1: MOV R1,04H DJNZ R1,$ DJNZ R0,TSR1 SETB P_DS18B20 。然后拉高數(shù)據(jù)線，釋放總線進入接收狀態(tài) MOV R0,14H 。延時 TSR2: DJNZ R0,TSR2 JNB P_DS18B20,TSR3 。等待 DS18B20回應 P LJMP TSR4 TSR3: SETB FLAG 。 置標志位，表示 DS18B20存在 LJMP TSR5 TSR4: CLR FLAG 。清標志位，表示 DS18B20不存在 LJMP TSR7 TSR5: MOV R0,06BH TSR6: DJNZ R0,TSR6 。時序要求延時 TSR7: SETB P_DS18B20 RET