數(shù)字溫度計單片機課程設(shè)計(編輯修改稿)
2024-07-22 07:18 本頁面
【文章內(nèi)容簡介】 ART NOPINIT: NOP SETB ET0 SETB TR0 SETB EA MOV PSW,00H CLR TEMPONEOK LJMP MAIN。====================定時器0中斷服務(wù)程序=======================T0IT: PUSH PSW MOV PSW,10H MOV TH0,TIMEH MOV TL0,TIMEL INC R7 CJNE R7,32H,T0IT1 MOV R7,00H SETB TIME1SOK 。1s定時到標(biāo)志T0IT1: POP PSW RETI。============================主程序=============================MAIN: LCALL DISP1 。調(diào)用顯示子程序 JNB TIME1SOK,MAIN CLR TIME1SOK 。測溫每1s一次 JNB TEMPONEOK,MAIN2 。上電時先溫度轉(zhuǎn)換一次 LCALL READTEMP1 。讀出溫度值子程序 LCALL CONVTEMP 。溫度BCD碼計算處理子程序 LCALL DISPBCD 。顯示區(qū)BCD碼溫度值刷新子程序 LCALL DISP1 。消閃爍，顯示一次MAIN2: LCALL READTEMP 。溫度轉(zhuǎn)換開始 SETB TEMPONEOK LJMP MAIN。============================子程序區(qū)===========================。RESET DS18B20。================================================================INITDS1820:SETB TEMPDIN NOP NOP CLR TEMPDIN MOV R6,0A0H 。DELAY 480us DJNZ R6,$ MOV R6,0A0H DJNZ R6,$ SETB TEMPDIN MOV R6,32H 。DELAY 70us DJNZ R6,$ MOV R6,3CHLOOP1820: MOV C,TEMPDIN JC INITDS1820OUT DJNZ R6,LOOP1820 MOV R6,064H DJNZ R6,$ SJMP INITDS1820 RETINITDS1820OUT: SETB TEMPDIN RET==========讀DS18B20的程序，從DS18B20中讀出一個字節(jié)的數(shù)據(jù)=======READDS1820: MOV R7,08H SETB TEMPDIN NOP NOPREADDS1820LOOP: CLR TEMPDIN NOP NOP NOP SETB TEMPDIN MOV R6,07H 。DELAY 15us DJNZ R6,$ MOV C,TEMPDIN MOV R6,3CH 。DELAY 120us DJNZ R6,$ RRC A SETB TEMPDIN DJNZ R7,READDS1820LOOP MOV R6,3CH 。DELAY 120 us DJNZ R6,$ RET。=======寫DS18B20的程序，從DS18B20中寫一個字節(jié)的數(shù)據(jù)==========WRITEDS1820: MOV R7,08H SETB TEMPDIN NOP NOPWRITEDS1820LOP: CLR TEMPDIN MOV R6,07H 。DELAY 15us DJNZ R6,$ RRC A MOV TEMPDIN,C MOV R6,34H 。DELAY 104us DJNZ R6,$ SETB TEMPDIN DJNZ R7,WRITEDS1820LOP RET。========================= READ TEMP ===========================READTEMP: LCALL INITDS1820 MOV A,0CCH LCALL WRITEDS1820 。SKIP ROM MOV R6,34H 。DELAY 104us DJNZ R6,$ MOV A,44H LCALL WRITEDS1820 。START CONVERSION MOV R6,34H 。DELAY 104 DJNZ R6,$ RETREADTEMP1: LCALL INITDS1820 MOV A,0CCH LCALL WRITEDS1820 。SKIP ROM MOV R6,34H 。DELAY 104us DJNZ R6,$ MOV A,0BEH LCALL WRITEDS1820 。SCRATCHPAD MOV R6,34H 。DELAY 104us DJNZ R6,$ MOV R5,09H MOV R0,TEMPHEAD MOV B,00HREADTEMP2: LCALL READDS1820 MOV @R0,A INC R0READTEMP21: LCALL CRC8CAL DJNZ R5,READTEMP2 MOV A,B JNZ READTEMPOUT MOV A,TEMPHEAD+0 MOV TEMPL,A MOV A,TEMPHEAD+1 MOV TEMPH,AREADTEMPOUT: RET =====================處理溫度BCD碼子程序====================
語文相關(guān)推薦
鄂ICP備17016276號-1