ds18b20应用于2051源程序.txt

这是应用DS18B20 数字温度传感器进行测量温度的实际应该用原程序

;应用于AT89C2051试验基本正常
;0--125度
DOT EQU 30H
ZHENGSHU EQU 31H
FLAG1 EQU 38H ;是否检测到DS18B20的标志位
;定义温度数据
DIS_1 EQU 32H ;符号
DIS_2 EQU 33H ;十位
DIS_3 EQU 34H ;个位
DIS_4 EQU 35H ;小数点后第一位
DIS_5 EQU 36H ;小数点后第二位
WDDATA BIT P1.7 ;；；；；；；；；（连接DS18B20 IO口引脚）
ORG 0000H
MOV ZHENGSHU,#0
MOV DOT,#0
MAIN:
LCALL INIT_1820 ;调用复位DS18B20子程序
MAIN1:
LCALL GET_TEMPER;调用读温度子程序
LCALL FORMULA ;通过公式计算,小数点后显示两位
LCALL DISPLAY
AJMP MAIN1
; DS18B20复位初始化程序
INIT_1820:
SETB WDDATA
NOP
CLR WDDATA
;主机发出延时540微秒的复位低脉冲
MOV R0,#36
LCALL DELAY
SETB WDDATA;然后拉高数据线
NOP
NOP
MOV R0,#36
TSR2:
JNB WDDATA,TSR3;等待DS18B20回应
DJNZ R0,TSR2
LJMP TSR4 ; 延时
TSR3:
SETB FLAG1 ; 置标志位,表示DS1820存在
LJMP TSR5
TSR4:
CLR FLAG1 ; 清标志位,表示DS1820不存在
LJMP TSR7
TSR5:
MOV R0,#06BH
TSR6:
DJNZ R0,TSR6 ;复位成功!时序要求延时一段时间
TSR7:
SETB WDDATA
RET
; 读出转换后的温度值
GET_TEMPER:
SETB WDDATA ; 定时入口
LCALL INIT_1820 ;先复位DS18B20
JB FLAG1,TSS2
RET ; 判断DS1820是否存在?若DS18B20不存在则返回
TSS2:
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#44H ; 发出温度转换命令
LCALL WRITE_1820
MOV R0,#50 ;等待AD转换结束,12位的话750微秒.
;LCALL DISPLAY
LCALL INIT_1820 ;准备读温度前先复位
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 发出读温度命令
LCALL WRITE_1820
LCALL READ_18200; 将读出的九个字节数据保存到60H-68H
RET
;写DS18B20的子程序(有具体的时序要求)
WRITE_1820:
MOV R2,#8 ;一共8位数据
CLR C
WR1:
CLR WDDATA
MOV R3,#6
DJNZ R3,$
RRC A
MOV WDDATA,C
MOV R3,#24
DJNZ R3,$
SETB WDDATA
NOP
DJNZ R2,WR1
SETB WDDATA
RET
; 读DS18B20的程序,从DS18B20中读出九个字节的数据
READ_18200:
MOV R4,#9
MOV R1,#60H ; 存入60H开始的九个单元
RE00:
MOV R2,#8
RE01:
CLR C
SETB WDDATA
NOP
NOP
CLR WDDATA
NOP
NOP
NOP
SETB WDDATA
MOV R3,#09
RE10:
DJNZ R3,RE10
MOV C,WDDATA
MOV R3,#23
RE20:
DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
INC R1
DJNZ R4,RE00
RET
;温度计算子程序
FORMULA: ; 按公式：T实际=(T整数-0.25)+( M每度-M剩余)/ M每度
;计算出实际温度，整数部分和小数部分分别存于ZHENGSHU单元和DOT单元
;将61H中的低4位移入60H中的高4位，得到温度的整数部分，并存于ZHENGSHU单元
MOV 29H,61H
MOV A,60H
MOV C,48H
RRC A
MOV C,49H
RRC A
MOV C,4AH
RRC A
MOV C,4BH
RRC A
MOV ZHENGSHU,A
; ( M每度-M剩余)/ M每度,小数值存于A中
MOV A,67h
SUBB A,66h
MOV B,#64H
MUL AB
MOV R4,B
MOV R5,A
MOV R7,67H
LCALL DIV457
MOV A,R3
;再减去0.25，实际应用中减去25
CJNE A,#19H,LL2
LL2: JC LL3
AJMP LL4
LL3:
ADD A,#64H
DEC ZHENGSHU
LL4: SUBB A,#19H
MOV DOT,A ;小数部分存于DOT中
MOV A,ZHENGSHU
SUBB A,#00H ;整数部分减去来自小数部分的借位
MOV ZHENGSHU,A
MOV C,4BH
JNC ZHENG ;是否为负数
CPL A
INC A
MOV DIS_1,#2DH ; 零度以下时,第一位显示"-"号
MOV ZHENGSHU,A
ZHENG:
MOV DIS_1,#2BH ; 零度以上时,第一位显示"+"号
RET
;双字节除以单字节子程序
DIV457: CLR C
MOV A,R4
SUBB A,R7
JC DV50
SETB OV ;商溢出
RET
DV50: MOV R6,#8 ;求平均值（R4R5／R7－→R3）
DV51: MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
MOV F0,C
CLR C
SUBB A,R7
ANL C,/F0
JC DV52
MOV R4,A
DV52: CPL C
MOV A,R3
RLC A
MOV R3,A
DJNZ R6,DV51
MOV A,R4 ;四舍五入
ADD A,R4
JC DV53
SUBB A,R7
JC DV54
DV53: INC R3
DV54: CLR OV
RET
display:
mov a,ZHENGSHU;将29H中的十六进制数转换成10进制
mov b,#10 ;10进制/10=10进制
div ab
mov DIS_2,a ;十位在a
mov DIS_3,b ;个位在b
mov a,DOT;将29H中的十六进制数转换成10进制
mov b,#10 ;10进制/10=10进制
div ab
mov DIS_4,a ;十位在a
mov DIS_5,b ;个位在b
mov dptr,#numtab ;指定查表启始地址
mov r0,#1
dpl1: mov r1,#300 ;显示1200次
dplop: mov a,DIS_2 ;取十位数
MOVC A,@A+DPTR ;查十位数的7段代码
mov p1,a ;送出十位的7段代码
clr p3.3 ;开十位显示;;；；；；；；；；数码管十位
acall d1ms ;显示1ms
setb p3.3
mov a,DIS_3 ;取个位数
MOVC A,@A+DPTR ;查个位数的7段代码
ANL A,#7FH
mov p1,a ;送出个位的7段代码
clr p3.4 ;开个位显示;；；；；；；；；数码管个位
acall d1ms ;显示1ms
setb p3.4
mov a,DIS_4 ;取十位数
MOVC A,@A+DPTR ;查十位数的7段代码
mov p1,a ;送出十位的7段代码
clr p3.7;开十位显示;；；；；；；；；数码管小数点十位
acall d1ms ;显示1ms
setb p3.7
mov a,DIS_5;取个位数
MOVC A,@A+DPTR ;查个位数的7段代码
mov p1,a ;送出个位的7段代码
clr p3.5;开个位显示;；；；；；；；；数码管小数点个位
acall d1ms ;显示1ms
setb p3.5
djnz r1,dplop ;100次没完循环
djnz r0,dpl1 ;4个100次没完循环
ret
NUMTAB:DB 0C0H,0F9H,0A4H,0B0H,99H
              DB 92H,82H,0F8H,80H,90H,0FFH,0BFH;；；；数码管（0-9,暗、-）段码
;1MS延时(按12MHZ算)
D1MS: MOV R7,#50
DJNZ R7,$
RET
;延时子程序
;为保证DS18B20的严格I/O时序，需要做较精确的延时
;在DS18B20操作中，用到的延时有15 μs，90 μs，270 μs，540 μs
;因这些延时均为15 μs的整数倍，因此可编写一个DELAY15（n）函数
DELAY: ;11.05962M晶振 ;12MHZ晶振
LOOP: MOV R1,#06H
LOOP1: DJNZ R1,LOOP1
DJNZ R0,LOOP
RET
END