數(shù)字溫度計(jì)設(shè)計(jì)匯編源程序

1、;=;DS18B20溫度計(jì);采用4位LED共陽顯示器顯示測溫值，顯示精度0.1，測溫范圍-55+125;用AT89C51單片機(jī)，12MHz晶振;DS1302時鐘芯片實(shí)現(xiàn)日歷年月日時分秒的顯示;=常數(shù)定義=TIMELEQU 0E0H ;20ms，定時器0時間常數(shù)TIMEHEQU 0B1HSECOND EQU 30HMINUTE EQU 31HHOUR EQU 32HDAY EQU 33HMONTH EQU 34HWEEK EQU 35HYEAR EQU 36HTEMPHEAD EQU 38HTEMP_UPPER EQU 2AHTEMP_LOWER EQU 2BH;=工作內(nèi)存定義=BITST DA

2、TA 20HTIME1SOK BIT BITST.1TEMPL DATA 26HTEMPH DATA 27HTEMPHC DATA 28HTEMPLC DATA 29H;= 引腳定義=TEMPDIN BIT P3.7ALARMDIN BIT P1.6RST BIT P1.2CLK BIT P1.1IO BIT P1.0;= 中斷向量區(qū)=ORG 0000HLJMP STARTORG 000BHLJMP T0IT;=系統(tǒng)初始化=ORG 0100HSTART: MOV SP,#60HCLSMEM: MOV R0,#20HMOV R1,#60HCLSMEM1:MOV R0,#00HINC R0DJNZ

3、 R1,CLSMEM1MOV TMOD,#00010001B ;定時器0工作方式1（16BIT）MOV TH0,#TIMEH MOV TL0,#TIMEL ;20msMOV SECOND,#00H MOV MINUTE,#00H MOV HOUR,#14H MOV DAY,#17HMOV MONTH,#01H MOV WEEK,#01H MOV YEAR,#13HMOV TEMP_UPPER,#0AH MOV TEMP_LOWER,#8AHSETB ET0SETBEAMOV PSW,#00H;=;= 主程序=;=LCALL SETDS1302START1: LCALL READ_TEMP;讀出

4、溫度值子程序LCALL CONVTEMP ;溫度BCD碼計(jì)算處理子程序LCALL REFBCD ;顯示區(qū)BCD碼溫度值刷新子程序LCALL GETDS1302SETB TR0LCALL ALARM_JUDGEJNB F0,MAINLCALL ALARM_BEEP MAIN:LCALL DISP_TEMP ;調(diào)用顯示子程序LCALL DISPLAY_TIME JNB TIME1SOK,MAINCLR TIME1SOK ;測溫每1s一次MAIN1:LCALL DISP_TEMP ;調(diào)用顯示子程序LCALL DISPLAY_DATE JNB TIME1SOK,MAIN1CLR TIME1SOK ;測

5、溫每1s一次 LJMP START1;= 定時器0中斷服務(wù)程序=T0IT:PUSH PSWMOV PSW,#10HMOV TH0,#TIMEHMOV TL0,#TIMELINC R7CJNE R7,#50,T0IT1MOV R7,#00HSETB TIME1SOK ;1s定時到標(biāo)志T0IT1:POP PSWRETI;=;= 子程序區(qū)=;=;=初始化DS18B20=INITDS1820:SETB TEMPDINNOPNOPCLR TEMPDINMOV R6,#0A0H DJNZ R6,$MOV R6,#0A0HDJNZ R6,$SETB TEMPDINMOV R6,#32H DJNZ R6,$M

6、OVR6,#3CHLOOP1820:MOV C,TEMPDINJC INITDS1820OUTDJNZ R6,LOOP1820MOV R6,#064HDJNZ R6,$SJMP INITDS1820INITDS1820OUT:SETB TEMPDINRET;= 讀DS18B20的程序，從DS18B20中讀出一個字節(jié)的數(shù)據(jù)=READDS1820:MOV R7,#08HSETB TEMPDINNOPNOPREADDS1820LOOP:CLR TEMPDINNOPNOPNOPSETB TEMPDINMOV R6,#07H ;DELAY 15usDJNZ R6,$MOV C,TEMPDINMOV R6

7、,#3CH ;DELAY 120usDJNZ R6,$RRC ASETB TEMPDINDJNZ R7,READDS1820LOOPMOV R6,#3CH ;DELAY 120 usDJNZ R6,$RET;= 寫DS18B20的程序，從DS18B20中寫一個字節(jié)的數(shù)據(jù)=WRITEDS1820:MOV R7,#08HSETB TEMPDINNOPNOPWRITEDS1820LOP:CLR TEMPDINMOV R6,#07H ;DELAY 15usDJNZ R6,$RRC AMOV TEMPDIN,CMOV R6,#34H ;DELAY 104usDJNZ R6,$SETB TEMPDINDJ

8、NZ R7,WRITEDS1820LOPRET;= READ TEMP =READ_TEMP:LCALL INITDS1820MOV A,#0CCHLCALL WRITEDS1820 ;SKIP ROMMOV R6,#34H ;DELAY 104usDJNZ R6,$MOV A,#44HLCALL WRITEDS1820 ;START CONVERSIONMOV R6,#34H ;DELAY 104DJNZ R6,$READTEMP1:LCALLINITDS1820MOV A,#0CCHLCALL WRITEDS1820;SKIP ROMMOV R6,#34H ;DELAY 104usDJNZ

9、 R6,$MOV A,#0BEHLCALL WRITEDS1820 ;SCRATCHPADMOV R6,#34H ;DELAY 104usDJNZ R6,$MOV R5,#09HMOV R0,#TEMPHEADMOV B,#00HREADTEMP2:LCALL READDS1820MOV R0,AINC R0DJNZ R5,READTEMP2MOV A,TEMPHEAD+0MOV TEMPL,AMOV A,TEMPHEAD+1MOV TEMPH,AREADTEMPOUT:RET;= 處理溫度BCD碼子程序=CONVTEMP:MOV A,TEMPHANL A,#80HJZ TEMPC1CLR C

10、MOV A,TEMPLCPL AADD A,#01HMOV TEMPL,AMOV A,TEMPH ;-CPL AADDC A,#00HMOV TEMPH,A ;TEMPHC HI=符號位MOV TEMPHC,#0BHSJMP TEMPC11TEMPC1:MOV TEMPHC,#0AH ;+TEMPC11:MOV A,TEMPHCSWAP AMOV TEMPHC,AMOV A,TEMPLANL A,#0FH ;乘0.0625MOV DPTR,#TEMPDOTTABMOVC A,A+DPTRMOV TEMPLC,A ;TEMPLC LOW=小數(shù)部分BCDMOV A,TEMPL ;整數(shù)部分ANL A

11、,#0F0HSWAP AMOV TEMPL,AMOV A,TEMPHANL A,#0FHSWAP AORL A,TEMPLLCALL HEX2BCD1MOV TEMPL,AANL A,#0F0HSWAP AORL A,TEMPHC ;TEMPHC LOW=十位數(shù)BCDMOV TEMPHC,AMOV A,TEMPLANL A,#0FHSWAP A ;TEMPLC HI=個位數(shù)BCDORL A,TEMPLCMOV TEMPLC,AMOV A,R7JZ TEMPC12ANL A,#0FHSWAP AMOV R7,AMOV A,TEMPHC ;TEMPLC HI=百位數(shù)BCDANL A,#0FHORL

12、 A,R7MOV TEMPHC,ATEMPC12:RET;= 小數(shù)部分碼表=TEMPDOTTAB:DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06HDB 06H,07H,08H,08H,09H,09H;= 刷新BCD碼溫度值子程序=REFBCD:MOV A,TEMPLCANL A,#0FHMOV 70H,AMOV A,TEMPLCSWAP AANL A,#0FHMOV 71H,AMOV A,TEMPHCANL A,#0FHMOV 72H,AMOV A,TEMPHCSWAPAANL A,#0FHMOV 73H,AMOV A,TEMPHCANL A,#0F0HCJ

13、NE A,#010H,REFBCD0SJMP REFBCD2REFBCD0:MOV A,TEMPHCANL A,#0FHJNZ REFBCD2;十位數(shù)是0MOV A,TEMPHCSWAP AANL A,#0FHMOV 73H,#0AH;符號位不顯示MOV 72H,A;十位數(shù)顯示符號REFBCD2:RET;= 即時溫度顯示子程序=;顯示數(shù)據(jù)在70H73H單元內(nèi)，用4位LED共陽數(shù)碼管顯示，P0口輸出段碼數(shù)據(jù)，;P3口做掃描控制，每個LED數(shù)碼管亮1ms時間再逐位循環(huán)。;=DISP_TEMP:MOV R1,#70H;指向顯示數(shù)據(jù)首址MOV R5,#0FEH;掃描控制字初值PLAY:MOV P0,#

14、0FFHMOV A,R5;掃描字放入AMOV P3,A;從P3口輸出MOV A,R1;取顯示數(shù)據(jù)到AMOV DPTR,#TAB;取段碼表地址MOVC A,A+DPTR;查顯示數(shù)據(jù)對應(yīng)段碼MOV P0,A;段碼放入P0口MOV A,R5JB ACC.1,LOOP5;小數(shù)點(diǎn)處理CLR P0.7LOOP5:LCALL DL1MS;顯示1msINC R1;指向下一地址MOV A,R5;掃描控制字放入AJNB ACC.3,ENDOUT;ACC.3=0時一次顯示結(jié)束RL A;A中數(shù)據(jù)循環(huán)左移MOVR5,A;放回R5內(nèi)AJMP PLAY;跳回PLAY循環(huán)ENDOUT:MOV P0,#0FFH;一次顯示結(jié)束，

15、P0口復(fù)位MOV P3,#0FFH;P3口復(fù)位RET;子程序返回TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH;共陽段碼表 “0”“1”“2”“3”“4”“5”“6”“7”“8”“9”“不亮”“-”DL1MS:MOV R6,#2;1ms延時程序，LED顯示程序用DL:MOV R7,#250 DJNZ R7,$DJNZ R6,DLRET;= 單字節(jié)十六進(jìn)制轉(zhuǎn)BCD =HEX2BCD1:MOV B,#064H;十六進(jìn)制->BCDDIV AB;B=A%100MOV R7,A;R7=百位數(shù)MOV A,#0AHXCH A,

16、BDIV AB;B=A%BSWAP AORL A,BRET;=判斷報(bào)警子程序=ALARM_JUDGE: PUSH TEMPH PUSH TEMPL MOV A,TEMPL ANL A,#0F0H SWAP A MOV R2,A MOV A,TEMPH ANL A,#0FH SWAP A ORL A,R2 ;R2保存測得溫度值 MOV R2,A MOV A,TEMP_UPPER LCALL CMPT MOV TEMP_UPPER,A MOV A,TEMP_LOWER LCALL CMPT MOV TEMP_LOWER,A CLR C MOV A,R2 SUBB A,TEMP_UPPER JNB

17、ACC.7,SETF0; CLR C; MOV A,R2; SUBB A,TEMP_LOWER ; JB ACC.7,SETF0 SJMP ALARMOUTSETF0: SETB F0ALARMOUT:POP TEMPL POP TEMPH RET ;=求補(bǔ)碼子程序= CMPT: JNB ACC.7,CMPT_END MOV C,ACC.7 CPL A ADD A,#01H MOV ACC.7,CCMPT_END:RET;=報(bào)警子程序=ALARM_BEEP: CLR ALARMDINMOV R7,#0FFHALARM_DELAY:MOV R6,#0FFH ;延時DJNZ R6,$DJNZ R7

18、,ALARM_DELAY SETB ALARMDIN RET;= 日期顯示子程序=DISPLAY_DATE: MOV DPTR ,#TABLE MOV A,DAYANL A,#0F0HSWAP ACLR P2.6MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.6MOV A,DAYANL A,#0FHCLR P2.7 MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.7CLR P2.5MOV P0,#40HLCALL DELAY SETB P2.5MOV A,MONTHANL A,#0F0HSWAP A CLR P2.3MOVC A,

19、A+DPTRMOV P0,ALCALLDELAY SETB P2.3MOV A,MONTHANL A,#0FHCLR P2.4MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.4CLR P2.2MOV P0,#40HLCALL DELAYSETB P2.2MOV A,YEARANL A,#0F0HSWAP ACLR P2.0MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.0MOV A,YEARANL A,#0FHCLR P2.1MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.1RET ;= 時間顯示子

20、程序= DISPLAY_TIME: MOV DPTR ,#TABLE MOV A,SECOND ANL A,#0F0H SWAP A CLR P2.6 MOVC A,A+DPTR MOV P0,A LCALL DELAY SETB P2.6 MOV A,SECOND ANL A,#0FH CLR P2.7 MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.7CLR P2.5MOV P0,#40HLCALL DELAY SETB P2.5MOV A,MINUTEANL A,#0F0HSWAP A CLR P2.3MOVC A,A+DPTRMOV P0,ALCALLD

21、ELAY SETB P2.3MOV A,MINUTEANL A,#0FHCLR P2.4MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.4CLR P2.2MOV P0,#40HLCALL DELAYSETB P2.2MOV A,HOURANL A,#0F0HSWAP ACLR P2.0MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.0MOV A,HOURANL A,#0FHCLR P2.1MOVC A,A+DPTRMOV P0,ALCALL DELAYSETB P2.1RETTABLE: DB 3FH,06H,5BH,4FH,66

22、H DB 6DH,7DH,07H,7FH,6FHDELAY: MOV R6,#2D1: MOV R7,#250 DJNZ R7,$ DJNZ R6,D1 RET;=設(shè)置DS1302初始時間，并啟動計(jì)時 =SETDS1302:CLR RSTNOPCLR CLKNOPSETB RSTNOPMOV B,#8FH ;寫控制字LCALL INPUTBYTESETB CLKNOPCLR RST MOV R0,#SECOND MOV R1,#80H ;DS1302中的時間首地址 MOV R7,#7SETLOOP:CLR RST NOP CLR CLK NOP SETB RST NOP MOV B,R1 ;寫命令字 LCALL INPUTBYTE MOV A,R0 MOV B,A