数字温度计Word文档下载推荐.docx

1、计算温度子程序将RAM中读取的值进行BCD码的转换运算。5 显示数据刷新子程序显示数据刷新子程序主要是对显示缓冲器中的显示数据进行刷新操作，当最高数据显示位为0时，将符号显示位移入下一位。显示数据刷新子程序流程图如图（4）所示。五 汇编程序;=DS18B20温度计采用4位LED共阳显示器显示测温值，显示精度0.4，测温范围0102用AT89C51单片机，12MHz晶振=常数定义=TIMEL EQU 0E0H ;20ms，定时器0时间常数TIMEH EQU 0B1HTEMPHEAD EQU 36H=工作内存定义=BITST DATA 20HTIME1SOK BIT BITST.1TEMPONEO

2、K BIT BITST.2TEMPL DATA 26HTEMPH DATA 27HTEMPHC DATA 28HTEMPLC DATA 29H= 引脚定义=TEMPDIN BIT P3.7= 中断向量区=ORG 0000HLJMP STARTORG 00BHLJMP T0IT=系统初始化= ORG 100HSTART: MOV SP,#60HCLSMEM: MOV R0,#20H MOV R1,#60HCLSMEM1: MOV R0,#00H INC R0 DJNZ R1,CLSMEM1 MOV TMOD,#00100001B ;定时器0工作方式1（16BIT） MOV TH0,#TIMEL

3、MOV TL0,#TIMEH ;20ms SJMP INITERROR: NOP LJMP START NOPINIT: NOP SETB ET0 SETB TR0 SETB EA MOV PSW,#00H CLR TEMPONEOK LJMP MAIN= 定时器0中断服务程序=T0IT: PUSH PSW MOV PSW,#10H MOV TH0,#TIMEH MOV TL0,#TIMEL INC R7 CJNE R7,#32H,T0IT1 MOV R7,#00H SETB TIME1SOK ;1s定时到标志T0IT1: POP PSW RETI= 主程序=MAIN: LCALL DISP1

4、 ;调用显示子程序 JNB TIME1SOK,MAIN CLR TIME1SOK ;测温每1s一次 JNB TEMPONEOK,MAIN2 ;上电时先温度转换一次 LCALL READTEMP1 ;读出温度值子程序 LCALL CONVTEMP ;温度BCD码计算处理子程序 LCALL DISPBCD ;显示区BCD码温度值刷新子程序 LCALL DISP1 ;消闪烁，显示一次MAIN2: LCALL READTEMP ;温度转换开始 SETB TEMPONEOK= 子程序区=RESET DS18B20INITDS1820:SETB TEMPDIN CLR TEMPDIN MOV R6,#0A

5、0H ;DELAY 480us DJNZ R6,$ MOV R6,#0A0H SETB TEMPDIN MOV R6,#32H ;DELAY 70us MOV R6,#3CHLOOP1820: MOV C,TEMPDIN JC INITDS1820OUT DJNZ R6,LOOP1820 MOV R6,#064H SJMP INITDS1820 RETINITDS1820OUT: SETB TEMPDIN RET= 读DS18B20的程序，从DS18B20中读出一个字节的数据=READDS1820: MOV R7,#08H SETB TEMPDIN NOPREADDS1820LOOP: CLR

6、 TEMPDIN NOP SETB TEMPDIN MOV R6,#07H ;DELAY 15us DJNZ R6,$ MOV C,TEMPDIN MOV R6,#3CH ;DELAY 120us RRC A DJNZ R7,READDS1820LOOPDELAY 120 us= 写DS18B20的程序，从DS18B20中写一个字节的数据=WRITEDS1820:WRITEDS1820LOP: MOV TEMPDIN,C MOV R6,#34H ;DELAY 104us DJNZ R7,WRITEDS1820LOP= READ TEMP =READTEMP: LCALL INITDS1820

7、MOV A,#0CCH LCALL WRITEDS1820 ;SKIP ROM MOV R6,#34H ; DJNZ R6,$ MOV A,#44HSTART CONVERSIONDELAY 104 RETREADTEMP1: LCALL INITDS1820 LCALL WRITEDS1820 ; MOV R6,#34H ; MOV A,#0BEHSCRATCHPAD MOV R5,#09H MOV R0,#TEMPHEAD MOV B,#00HREADTEMP2: LCALL READDS1820 MOV R0,A INC R0READTEMP21: LCALL CRC8CAL DJNZ

8、R5,READTEMP2 MOV A,B JNZ READTEMPOUT MOV A,TEMPHEAD+0 MOV TEMPL,A MOV A,TEMPHEAD+1 MOV TEMPH,AREADTEMPOUT: RET= 处理温度BCD码子程序=CONVTEMP: MOV A,TEMPH ANL A,#80H JZ TEMPC1 CLR C MOV A,TEMPL CPL A ADD A,#01H MOV A,TEMPH ;- ADDC A,#00H MOV TEMPH,A ;TEMPHC HI=符号位 MOV TEMPHC,#0BH SJMP TEMPC11TEMPC1: MOV TEMP

9、HC,#0AH ;+TEMPC11: MOV A,TEMPHC SWAP A MOV TEMPHC,A ANL A,#0FH ;乘0.0625 MOV DPTR,#TEMPDOTTAB MOVC A,A+DPTR MOV TEMPLC,A ;TEMPLC LOW=小数部分BCD MOV A,TEMPL ;整数部分 ANL A,#0F0H MOV A,TEMPH ANL A,#0FH ORL A,TEMPL LCALL HEX2BCD1 ORL A,TEMPHC ;TEMPHC LOW=十位数BCD SWAP A ;TEMPLC HI=个位数BCD ORL A,TEMPLC MOV TEMPLC

10、,A MOV A,R7 JZ TEMPC12 MOV R7,A MOV A,TEMPHC ;TEMPLC HI=百位数BCD ORL A,R7TEMPC12: RET= 小数部分码表=TEMPDOTTAB: DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06H DB 06H,07H,08H,08H,09H,09H= 显示区BCD码温度值刷新子程序=DISPBCD: MOV A,TEMPLC ANL A,#0FH MOV 70H,A MOV A,TEMPLC SWAP A MOV 71H,A MOV A,TEMPHC MOV 72H,A SWAP A MOV 73

11、H,A ANL A,#0F0H CJNE A,#010H,DISPBCD0 SJMP DISPBCD2DISPBCD0: MOV A,TEMPHC JNZ DISPBCD2 ;十位数是0 MOV 73H,#0AH ;符号位不显示 MOV 72H,A ;十位数显示符号DISPBCD2:= 显示子程序=显示数据在70H73H单元内，用4位LED共阳数码管显示，P1口输出段码数据，P3口做扫描控制，每个LED数码管亮1ms时间再逐位循环。DISP1: MOV R1,#70H ;指向显示数据首址 MOV R5,#0FEH ;扫描控制字初值PLAY: MOV P0,#0FFH MOV A,R5 ;扫描字

12、放入A MOV P3,A ;从P3口输出 MOV A,R1 ;取显示数据到A MOV DPTR,#TAB ;取段码表地址 MOVC A,A+DPTR ;查显示数据对应段码 MOV P0,A ;段码放入P0口 MOV A,R5 JB ACC.1,LOOP5 ;小数点处理 CLR P0.7LOOP5: LCALL DL1MS ;显示1ms INC R1 ;指向下一地址扫描控制字放入A JNB ACC.3,ENDOUT ;ACC.3=0时一次显示结束 RL A ;A中数据循环左移 MOV R5,A ;放回R5内 AJMP PLAY ;跳回PLAY循环ENDOUT: MOV P0,#0FFH ;一次显

13、示结束，P0口复位 MOV P3,#0FFH ;P3口复位 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,#14H ;1ms延时程序，LED显示程序用DL1: MOV R7,#19HDL2: DJNZ R7,DL2 DJNZ R6,DL1= 单字节十六进制转BCD =HEX2BCD1: MOV B,#064H ;十六进制-BCD DIV AB ;B=A%100 MOV R7,A ;R7

14、=百位数 MOV A,#0AH XCH A,BB=A%B ORL A,BCalculate CRC-8Values. Uses The CCITT-8Polynomial,Expressed AsX8+X5+X4+1CRC8CAL: PUSH ACC MOV R7,#08H ;Number Bits In ByteCRC8LOOP1: XRL A,B ;Calculte CRC RRC A ;Move To Carry MOV A,B ;Get The Last CRC Value JNC CRC8LOOP2 ;Skip If Data=0 XRL A,#18H ;Updata The New CRCCRC8LOOP2: RRC A ;Position The New CRC MOV B,A ;Store The New CRC POP ACC ;Get The Remaining Bits RR A ;Position The Next Bit PUSH ACC ;Save The Remaining Bits DJNZ R7,CRC8LOOP1 ;Repeat For 8 Bits POP ACC END六 元件清单（名称、型号、数量）元件名称型号数量单片机芯片89C511温度传感器DS18B20晶振12MHz电源5V三极管8550（PNP）4电容30pF210uF