问8051单片机数字温度计单片机的设计

-55~125度，你自己修改：;***************WAVE-E6000/T**********************;*MCU: AT892051 *;*MCU-crystal: 12M *;*Version: 01 *;*Last Updata: 2007-5-27 *;*Author: zhaojun *;*Description: *;DS18B20的读写程序,数据脚P3.4 *;温度传感器18B20汇编程序,采用器件默认的12位转化 *;最大转化时间750微秒,显示温度-55到+125度,显示精度*;为0.1度，显示采用4位LED共阳显示测温值 *;*************************************************;单片机内存分配申明!;*************************************************TEMPER_L EQU 40H ;用于保存读出温度的低8位TEMPER_H EQU 41H ;用于保存读出温度的高8位FLAG1 EQU 38H ;是否检测到DS18B20标志位SEC EQU 20H ;数码管个位数存放内存位置MIN EQU 21H ;数码管十位数存放内存位置TEMPL EQU 30H ;用于保存读出温度的低8位TEMPH EQU 31H ;用于保存读出温度的高8位TEMPHC EQU 32H ;温度转换寄存器低8位TEMPLC EQU 33H ;温度转换寄存器高8位BUF1 EQU 34H ;显示缓冲寄存器小数位BUF2 EQU 35H ;显示缓冲寄存器个数位BUF3 EQU 36H ;显示缓冲寄存器十数位BUF4 EQU 37H ;显示缓冲寄存器百数位TEMPDIN BIT P3.4 ;数据脚定义DIN BIT P1.7 ;小数点控制;********************************************** ORG 0000H ;主程序入口地址 AJMP MAIN ;转主程序 ORG 0003H ;外中断0中断入口 DB 00H,00H,00H,00H,00H,00H,00H; RETI ;跳至INTEX0执行中断服务程序 ORG 000BH ;定时器T0中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;跳至定时器T0执行中断服务程序 ORG 0013H ;外中断1中断入口 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;跳至INTEX1执行中断服务程序 ORG 001BH ;定时器T1中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;中断返回（不开中断） ORG 0023H ;串行口中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;中断返回（不开中断）;**********************************************;两位数码管来显示温度,显示范围00到99度,显示精度为1度;因为12位转化时每一位的精度为0.0625度,我们不要求显示小数所以可以抛弃29H的低4位;将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度;无需乘于0.0625系数;**********************************************MAIN: MOV SP, #50H ; MOV P1, #0FFH ;LPTEMP: LCALL GET_TEMPER ;调用读温度子程序 LCALL CONVTEMP ;温度BCD码计算处理子程序 LCALL DISPBCD ;显示区BCD码温度值刷新子程序;************************************* LCALL DISPLAY ;调用数码管显示子程序;************************************* ;CPL P3.0 ; AJMP LPTEMP ;;*************************************; 这是DS18B20复位初始化子程序;*************************************INIT_1820: SETB TEMPDIN NOP CLR TEMPDIN ;主机发出延时537微秒的复位低脉冲 MOV R1,#3TSR1: MOV R0,#107 DJNZ R0,$ DJNZ R1,TSR1 SETB TEMPDIN ;然后拉高数据线 NOP NOP NOP MOV R0,#25HTSR2: JNB TEMPDIN,TSR3 ;等待DS18B20回应 DJNZ R0,TSR2 LJMP TSR4 ;延时TSR3: SETB FLAG1 ;置标志位,表示DS1820存在 ;CLR P3.7 ;检查到DS18B20就点亮P3.7LED LJMP TSR5TSR4: CLR FLAG1 ;清标志位,表示DS1820不存在 ;CLR P3.1 LJMP TSR7TSR5: MOV R0,#117TSR6: DJNZ R0,TSR6 ;时序要求延时一段时间TSR7: SETB TEMPDIN ; RET;****************************************; 读出转换后的温度值;****************************************GET_TEMPER: SETB TEMPDIN ; LCALL INIT_1820 ;先复位DS18B20 JB FLAG1,TSS2 RET ;判断DS1820是否存在?若DS18B20不存在则返回TSS2: ;CLR P3.3 ;DS18B20已经被检测到!! MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#44H ;发出温度转换命令 LCALL WRITE_1820;*****************************************;这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒;***************************************** LCALL DISPLAY;***************************************** LCALL INIT_1820 ;准备读温度前先复位 MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#0BEH ;发出读温度命令 LCALL WRITE_1820 LCALL READ_18200 ;将读出的温度数据保存到35H/36H RET;*******************************************;写DS18B20的子程序(有具体的时序要求);*******************************************WRITE_1820: MOV R2,#8 ;一共8位数据 CLR C ;WR1: CLR TEMPDIN ; MOV R3,#6 DJNZ R3,$ RRC A MOV TEMPDIN,C ; MOV R3,#23 DJNZ R3,$ SETB TEMPDIN ; NOP DJNZ R2,WR1 ; SETB TEMPDIN ; RET;*************************************;处理温度BCD码子程序;*************************************CONVTEMP: MOV A,TEMPH ; ANL A,#80H ; JZ TEMPC1 ; 判断温度是否在零下？ CLR C ; 温度值补码 变成原码 MOV A,TEMPL ; CPL A ADD A,#01H ; MOV TEMPL,A ; MOV A, TEMPH ; - CPL A ; ADDC A,#00H ; MOV TEMPH,A ; TEMPHC HI=符号位 MOV TEMPHC,#0BH ; 置"-"标志 SJMP TEMPC11 ;TEMPC1: MOV TEMPHC,#0AH ; 置"+"标志;**************************************TEMPC11: MOV A,TEMPHC ; 计算小数位温度BCD值 SWAP A MOV TEMPHC,A ; MOV A,TEMPL ; ANL A,#0FH ; 乘0.0625 MOV DPTR,#TEMPDOTTAB ; MOVC A,@A+DPTR ; MOV TEMPLC,A ; TEMPLC LOW= 小数部分 BCD;************************************** MOV A,TEMPL ; 计算整数位温度BCD值 ANL A,#0F0H ; SWAP A ; MOV TEMPL,A ; MOV A,TEMPH ; ANL A,#0FH ; SWAP A ; ORL A,TEMPL ; MOV TEMPER_L ,A ; LCALL HEX2BCD1 ; 调用单字节十六进制转BCD子程序;************************************ MOV TEMPL,A ; ANL A,#0F0H ; SWAP A ; ORL A,TEMPHC ; TEMPHC LOW = 十位数 BCD MOV TEMPHC,A ; MOV A,TEMPL ; ANL A,#0FH ; SWAP A ; TEMPLC HI = 个位数 BCD ORL A,TEMPLC ; MOV TEMPLC,A ; MOV A,R7 ; JZ TEMPOUT ; ANL A,#0FH ; SWAP A ; MOV R7,A ; MOV A,TEMPHC ; TEMPHC HI = 百位数 BCD ANL A,#0FH ; ORL A,R7 ; MOV TEMPHC,A ;TEMPOUT: 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 BUF1,A ; 显示小数 MOV A,TEMPLC ; SWAP A ; ANL A,#0FH ; MOV BUF2,A ; 显示个位 MOV A,TEMPHC ; ANL A,#0FH ; MOV BUF3,A ; 显示十位 MOV A,TEMPHC ; SWAP A ; ANL A,#0FH ; MOV BUF4,A ; 显示百位 MOV A,TEMPHC ; ANL A,#0F0H ; CJNE A,#10H,DISPBCD0 ; 百位数=0？ SJMP DISPOUT ;DISPBCD0: MOV A, TEMPHC ; ANL A, #0FH ; JNZ DISPOUT ; 十位数是0? MOV A,TEMPHC ; SWAP A ; ANL A,#0FH ; MOV BUF4,0AH ; 符号位不显示 MOV BUF3,A ; 十位数显示符号DISPOUT: RET ;;*************************************;单字节十六进制转BCD;*************************************HEX2BCD1:MOV B,#64H ; 十六进制 ->BCD DIV AB ; B=A%100 MOV R7,A ; R7=百位数 MOV A,#0AH ; XCH A,B ; DIV AB ; B=A%B SWAP A ; ORL A,B ; RET ;;*************************************; Calculate CRC-8 Values, Uses The;CCITT-8 Polynomial,Expressed As; X^8+X^5+X^4+1;*************************************CRC8CAL: PUSH ACC ; MOV R7,#08H ; Number Bits ByteCRC8LOOP1: XRL A,B ; Calculate CRC RRC A ; Move T0 Carry MOV A,B ; Get The Last CRC Value JNC CRC8LOOP2 ; Skip If Data==0 XRL A,#18H ; Update The CRC ValueCRC8LOOP2: RRC A ; Position The New CRC MOV B,A ; Store The New CRC POP ACC ; Get The Remaining Bits RR A ; Possition The Next Bit PUSH ACC ; Save The Remaining Bits DJNZ R7,CRC8LOOP1 ; Repeat For 9 Bits POP ACC ; RET ;;******************************************;读DS18B20的程序,从DS18B20中读出9个字节数据;开始的两个字节为温度数据;******************************************READ_18200: MOV R4,#9 ; 将温度高位和低位从DS18B20中读出 MOV R1,#TEMPER_L ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H) MOV B, #00H ;;************************************RE00: MOV R2,#8 ; 数据一共有8位RE01: CLR C SETB TEMPDIN ; NOP NOP CLR TEMPDIN ; NOP NOP NOP SETB TEMPDIN ; MOV R3,#9RE10: DJNZ R3,RE10 ; MOV C,TEMPDIN ; MOV R3,#23RE20: DJNZ R3,RE20 ; RRC A DJNZ R2,RE01 ;;************************************ MOV @R1,A ; INC R1 ; LCALL CRC8CAL ; DJNZ R4,RE00 ; MOV A,B ; JNZ READ_OUT ; MOV TEMPL,TEMPER_L ; MOV TEMPH,TEMPER_H ;READ_OUT: RET;*****************************************;显示子程序;*****************************************DISPLAY: MOV DPTR,#NUMTAB ; 指定查表启始地址 MOV R0,#4DP11: MOV R1,#250 ; 显示1000次DPLP: SETB P1.7 MOV A,BUF1 ; 取小位数 MOVC A,@A+DPTR ; 查小位数的7段代码 MOV P1,A ; 送出小位的7段代码 CLR P3.0 ; 开小位显示 ACALL DL1ms ; 显示1ms SETB P3.0 ; MOV A,BUF2 ; 取个位数 MOVC A,@A+DPTR ; 查个位数的7段代码 MOV P1,A ; 送出个位的7段代码 CLR P1.7 CLR P3.1 ; 开个位显示 ACALL DL1ms ; 显示1ms SETB P3.1 ; SETB P1.7 MOV A,BUF3 ; 取十位数 MOVC A,@A+DPTR ; 查十位数的7段代码 MOV P1,A ; 送出十位的7段代码 CLR P3.2 ; 开十位显示 ACALL DL1ms ; 显示1ms SETB P3.2 ; SETB P1.7 MOV A,BUF4 ; 取百位数 MOVC A,@A+DPTR ; 查百位数的7段代码 MOV P1,A ; 送出百位的7段代码 CLR P3.3 ; 开百位显示 ACALL DL1ms ; 显示1ms SETB P3.3 ; DJNZ R1,DPLP ; 250次没完循环 DJNZ R0,DP11 ; 4个100次没完循环 RET;****************************************;0.2MS延时(按12MHZ算);****************************************DL1MS: MOV R7,#100 DJNZ R7,$ RET;****************************************;7段数码管0～9数字的共阳显示代码;****************************************NUMTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH ;; "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "不亮" "-";**************************************** END