【正文】 ********************************** LCALL SET_18B20 。先復(fù)位DS18B20 MOV A,0CCH 。跳過ROM匹配 LCALL WRITE_18B20 。 MOV A,48H 。溫度上限和下值COPY回E2PRAM LCALL WRITE_18B20 。 AJMP MAIN 。轉(zhuǎn)主程序報(bào)警和驅(qū)動外設(shè)程序。*************************************EMGERCY: MOV A,BT_VL 。 CJNE A,TMSETVL,X0 。比較當(dāng)前溫度與設(shè)定下限溫度值 LCALL BIAOJING 。 LJMP OUT 。X0: JNC X1 。 LCALL BIAOJING 。 LJMP OUT 。X1: CJNE A,TMSETVH,X2 。 LCALL BIAOJING 。 LJMP OUT 。X2: JC GUAN 。 LCALL BIAOJING 。OUT: RET。*************************************EMGERCY: CLR 。開標(biāo)志燈 SETB 。開蜂鳴器 SETB RETGUAN: SETB 。關(guān)標(biāo)志燈 CLR 。關(guān)蜂鳴器 RET。當(dāng)前值轉(zhuǎn)換子程序。************************************BT_WORK: MOV BT_VL,00H 。 MOV BT_VL,DIS1 。當(dāng)前顯示保存轉(zhuǎn)換程序 MOV A,DIS2 。 SWAP A 。 ORL A,BT_VL 。 MOV BT_VL,A 。 RET 。讀溫度子程序。**************************************GET_TEMPER: LCALL SET_18B20 JB F0,TSS1 RETTSS1: MOV A,0CCH LCALL WRITE_18B20 MOV A,44H LCALL WRITE_18B20 LCALL DISPLY LCALL SET_18B20 MOV A,0CCH LCALL WRITE_18B20 MOV A,0BEH LCALL WRITE_18B20 LCALL READ_18B20 RET。**************************************。18B20讀數(shù)程序SET_18B20:SETB NOP CLR MOV R2,250 DJNZ R2,$ SETB MOV R2,30 DJNZ R2,$ JNB ,INIT1 AJMP SET_18B20INIT1: SETB F0 CPL MOV R2,250 DJNZ R2,$ SETB RETWRITE_18B20: MOV R2,8WR0: CLR MOV R3,6 DJNZ R3,$ RRC A MOV ,C MOV R3,20 DJNZ R3,$ SETB NOP NOP DJNZ R2,WR0 SETB RET********************************************READ_18B20: MOV R4,4 。 將溫度高位和低位從DS18B20中讀出 MOV R1,TEMPER_L 。RE0: MOV R2,8RE1: SETB NOP NOP CLR MOV R3,4 DJNZ R3,$ SETB MOV R3,4 DJNZ R3,$ MOV C, RRC A MOV R3,30 DJNZ R3,$ DJNZ R2,RE1 MOV @R1,A INC R1 DJNZ R4,RE0 MOV TEMPL,TEMPER_L 。 MOV TEMPH,TEMPER_H 。 MOV TMSETVH,TMROMVH MOV TMSETVL,TMROMVL RET顯示子程序*****************************************DISPLY: MOV DPTR,ZIXING 。送字型碼首地址 MOV A,DIS0 。取小數(shù) MOVC A,@A+DPTR 。取對應(yīng)字型碼 SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED0 MOV P2, A 。 送字型碼 LCALL DELAY0 MOV A,DIS1 。取各位 MOVC A,@A+DPTR 。取對應(yīng)字型碼 CLR 。清最高位顯示小數(shù)點(diǎn) SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED1 MOV P2, A 。送字型碼 LCALL DELAY0 MOV A, DIS2 。取十位 MOVC A,@A+DPTR 。取對應(yīng)字型碼 SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED2 MOV P2,A 。送字型碼 LCALL DELAY0 MOV A,DIS3 。取百位 MOVC A,@A+DPTR 。取對應(yīng)字型碼 SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED3 MOV P2, A 。 送字型碼 LCALL DELAY0 RETZIXING: DB 0FH,06H,5BH,4FH,66H,6DH 。 共陰數(shù)碼管字型碼 DB 7DH,07H。****************************************************DISPLYT: MOV DPTR,ZIXINGT 。送字型碼首地址 MOV DIS0,00H MOV A,DIS0 。取小數(shù) MOVC A,@A+DPTR 。取對應(yīng)字型碼 SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED0 MOV P2, A 。 送字型碼 LCALL DELAY0 MOV A,DIS1 。取各位 MOVC A,@A+DPTR 。取對應(yīng)字型碼 CLR 。清最高位顯示小數(shù)點(diǎn) SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED1 MOV P2, A 。送字型碼 LCALL DELAY0 MOV A, DIS2 。取十位 MOVC A,@A+DPTR 。取對應(yīng)字型碼 SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED2 MOV P2,A 。送字型碼 LCALL DELAY0 MOV DIS3,00H MOV A,DIS3 。取百位 MOVC A,@A+DPTR 。取對應(yīng)字型碼 SETB LED0 SETB LED1 SETB LED2 SETB LED3 CLR LED3 MOV P2, A 。 送字型碼 LCALL DELAY0 RETZIXINGT: DB 0FH,06H,5BH,4FH,66H,6DH 。 共陰數(shù)碼管字型碼 DB 7DH,07H。延遲子程序。****************************************DELAY0: MOV R6,1FHDEL0: MOV R5,0BHDEL1: NOP DJNZ R5,DEL1 DJNZ R6,DEL0 RET。處理溫度BCD碼子程序。*******************