數(shù)字溫度計(2)-文庫吧資料
2024-09-05 01:55本頁面
【正文】 。 SWAP A 。 MOV BUF1,A 。**************************************DISPBCD: MOV A,TEMPLC 。**************************************。**************************************TEMPDOTTAB: DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06H DB 06H,07H,08H,08H,09H,09H 。**************************************。TEMPOUT: RET 。 ORL A,R7 。 MOV A,TEMPHC 。 SWAP A 。 JZ TEMPOUT 。 MOV TEMPLC,A 。 SWAP A 。 MOV A,TEMPL 。 ORL A,TEMPHC 。 ANL A,0F0H 。 調(diào)用單字節(jié)十六進制轉(zhuǎn)BCD子程序。 MOV TEMPER_L ,A 。 SWAP A 。 MOV A,TEMPH 。 SWAP A 。************************************** MOV A,TEMPL 。 MOV TEMPLC,A 。 MOV DPTR,TEMPDOTTAB 。 MOV A,TEMPL 。**************************************TEMPC11: MOV A,TEMPHC 。TEMPC1: MOV TEMPHC,0AH 。 TEMPHC HI=符號位 MOV TEMPHC,0BH 。 ADDC A,00H 。 MOV A, TEMPH 。 CPL A ADD A,01H 。 判斷溫度是否在零下？ CLR C 。 ANL A,80H 。處理溫度BCD碼子程序。 RET。 NOP DJNZ R2,WR1 。 MOV R3,6 DJNZ R3,$ RRC A MOV TEMPDIN,C 。一共8位數(shù)據(jù) CLR C 。寫DS18B20的子程序(有具體的時序要求)。將讀出的溫度數(shù)據(jù)保存到35H/36H RET。跳過ROM匹配 LCALL WRITE_1820 MOV A,0BEH 。***************************************** LCALL INIT_1820 。這里通過調(diào)用顯示子程序?qū)崿F(xiàn)延時一段時間,等待AD轉(zhuǎn)換結(jié)束,12位的話750微秒。發(fā)出溫度轉(zhuǎn)換命令 LCALL WRITE_1820。DS18B20已經(jīng)被檢測到!! MOV A,0CCH 。判斷DS1820是否存在?若DS18B20不存在則返回TSS2: 。 LCALL INIT_1820 。 讀出轉(zhuǎn)換后的溫度值。 RET。CLR LJMP TSR7TSR5: MOV R0,117TSR6: DJNZ R0,TSR6 。 LJMP TSR5TSR4: CLR FLAG1 。置標(biāo)志位,表示DS1820存在 。等待DS18B20回應(yīng) DJNZ R0,TSR2 LJMP TSR4 。主機發(fā)出延時537微秒的復(fù)位低脈沖 MOV R1,3TSR1: MOV R0,107 DJNZ R0,$ DJNZ R1,TSR1 SETB TEMPDIN 。 這是DS18B20復(fù)位初始化子程序。CPL 。調(diào)用數(shù)碼管顯示子程序。顯示區(qū)BCD碼溫度值刷新子程序。調(diào)用讀溫度子程序
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1