cewen1.asm

DS18B20数字温度计实验,用一片DS18B20构成测温系统

/******************************************************************
** DS18B20温度测量程序
** 晶 振  频 率:11.0592M
** 线路->单片机实验开发板A
******************************************************************/
ORG 0000H

;单片机内存分配申明!
TEMPER_L EQU 29H;用于保存读出温度的低8位
TEMPER_H EQU 28H;用于保存读出温度的高8位
FLAG1    EQU 38H;是否检测到DS18B20标志位
a_bit    equ 20h ;数码管个位数存放内存位置
b_bit    equ 21h ;数码管十位数存放内存位置	  

;进行温度显示,这里我们考虑用网站提供的两位数码管来显示温度
;显示范围00到99度,显示精度为1度
;因为12位转化时每一位的精度为0.0625度,我们不要求显示小数所以可以抛弃29H的低4位
;将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度
;这个转化温度的方法非常简洁无需乘于0.0625系数

MAIN:       LCALL GET_TEMPER;调用读温度子程序
            MOV A,29H
            MOV C,40H;将28H中的最低位移入C
            RRC A
            MOV C,41H
            RRC A
            MOV C,42H
            RRC A
            MOV C,43H
            RRC A
            MOV 29H,A
            LCALL DISPLAY;调用数码管显示子程序
            JNB FLAG1,MM1
			CLR P1.0
			SJMP MAIN
MM1:        SETB P1.0
            SJMP MAIN

INIT_1820:  SETB P2.2  ; 这是DS18B20复位初始化子程序
            NOP
            CLR P2.2
            MOV R1,#3 ;主机发出延时537微秒的复位低脉冲
TSR1:       MOV R0,#107
            DJNZ R0,$
            DJNZ R1,TSR1
            SETB P2.2 ;然后拉高数据线
            NOP
            NOP
            NOP
            MOV R0,#25H
TSR2:       JNB P2.2,TSR3 ;等待DS18B20回应
            DJNZ R0,TSR2
            LJMP TSR4 ; 延时
TSR3:       SETB FLAG1 ; 置标志位,表示DS1820存在
            LJMP TSR5
TSR4:       CLR FLAG1 ; 清标志位,表示DS1820不存在
            LJMP TSR7

TSR5:       MOV R0,#117
TSR6:       DJNZ R0,TSR6 ; 时序要求延时一段时间
TSR7:       SETB P2.2
            RET

GET_TEMPER: SETB P2.2  ; 读出转换后的温度值
            LCALL INIT_1820;先复位DS18B20
            JB FLAG1,TSS2
            RET ; 判断DS1820是否存在?若DS18B20不存在则返回
TSS2:       MOV A,#0CCH ; 跳过ROM匹配
            LCALL WRITE_1820
            MOV A,#44H ; 发出温度转换命令
            LCALL WRITE_1820
            LCALL DISPLAY  ;这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒

            LCALL INIT_1820;准备读温度前先复位

            MOV A,#0CCH ; 跳过ROM匹配
            LCALL WRITE_1820

            MOV A,#0BEH ; 发出读温度命令
            LCALL WRITE_1820

            LCALL READ_18200; 将读出的温度数据保存到35H/36H 
            RET

WRITE_1820: MOV R2,#8;写DS18B20的子程序(有具体的时序要求),一共8位数据
            CLR C
WR1:        CLR P2.2
            MOV R3,#5
            DJNZ R3,$
            RRC A
            MOV P2.2,C
            MOV R3,#21
            DJNZ R3,$
            SETB P2.2
            NOP
            DJNZ R2,WR1
            SETB P2.2
            RET

READ_18200: MOV R4,#2 ; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据,将温度高位和低位从DS18B20中读出
            MOV R1,#29H ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H)
RE00:       MOV R2,#8;数据一共有8位
RE01:       CLR C
            SETB P2.2
            NOP
            NOP
            CLR P2.2
            NOP
            NOP
            NOP
            SETB P2.2

            MOV R3,#8
RE10:       DJNZ R3,RE10
            MOV C,P2.2
            MOV R3,#21
RE20:       DJNZ R3,RE20
            RRC A
            DJNZ R2,RE01
            MOV @R1,A
            DEC R1
            DJNZ R4,RE00
            RET

display:    mov a,29H;显示子程序将29H中的十六进制数转换成10进制 
            mov b,#10 ;10进制/10=10进制
            div ab
            mov b_bit,a ;十位在a
            mov a_bit,b ;个位在b
            mov dptr,#numtab ;指定查表启始地址
            mov r0,#4 
dpl1:       mov r1,#250 ;显示1000次
dplop:      mov a,a_bit ;取个位数
            MOVC A,@A+DPTR ;查个位数的7段代码
            mov p0,a ;送出个位的7段代码
            clr p2.6 ;开个位显示
            acall d1ms ;显示1ms
            setb p2.6
            mov a,b_bit ;取十位数
            MOVC A,@A+DPTR ;查十位数的7段代码
            mov p0,a ;送出十位的7段代码
            clr p2.7 ;开十位显示
            acall d1ms ;显示1ms
            setb p2.7
            djnz r1,dplop ;100次没完循环
            djnz r0,dpl1 ;4个100次没完循环
            ret

D1MS:       MOV R7,#80 ;1MS延时
            DJNZ R7,$
            RET

numtab:     DB 0CFH,03H,5DH,5BH,93H,0DAH,0DEH,43H,0DFH,0DBH	 ;实验板上的7段数码管0～9数字的共阴显示代码

            end