📄 温度探测器ds18b20.txt
字号:
以下是我为宾馆智能控制器所做的温度探测器DS18B20的一个程序。在网上看到很多朋友想要DS18B20的读写程序却苦于找不到这样的程序，我把它贡献出来和大家分享。这个程序取到的温度值范围为0-70（一般应用足够了），如需大于此温度值可自行在TAB中添加。测温精度为0.5度，没有加校正，需要的朋友可自行查一些资料。这个程序使用下来没有什么问题，希望广大朋友提出宝贵意见，谢谢！
; FLAG1: 标志位,为"1"时表示检测到DS18B20
; DQ: DS18B20的数据总线接脚
; TEMPER_NUM:保存读出的温度数据
; 本程序仅适合单个DS18B20和51单片机的连接,晶振为12MHZ左右
TEMPER_L EQU 36H
TEMPER_H EQU 35H
DQ BIT P1.7
; DS18B20初始化程序
;//*****************************************//
INIT_1820:
SETB DQ
NOP
CLR DQ
MOV R0,#06BH
TSR1:
DJNZ R0,TSR1 ; 延时
SETB DQ
MOV R0,#25H
TSR2:
JNB DQ,TSR3
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 DQ
RET
;//*****************************************//
; 重新写DS18B20暂存存储器设定值
;//*****************************************//
RE_CONFIG:
JB FLAG1,RE_CONFIG1 ; 若DS18B20存在,转RE_CONFIG1
RET
RE_CONFIG1:
MOV A,#0CCH ; 发SKIP ROM命令
LCALL WRITE_1820
MOV A,#4EH ; 发写暂存存储器命令
LCALL WRITE_1820
MOV A,#00H ; TH(报警上限)中写入00H
LCALL WRITE_1820
MOV A,#00H ; TL(报警下限)中写入00H
LCALL WRITE_1820
MOV A,#1FH ; 选择9位温度分辨率
LCALL WRITE_1820
RET
;//*****************************************//
; 读出转换后的温度值
;//*****************************************//
GET_TEMPER:
SETB DQ ; 定时入口
LCALL INIT_1820
JB FLAG1,TSS2
RET ; 若DS18B20不存在则返回
TSS2:
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#44H ; 发出温度转换命令
LCALL WRITE_1820
LCALL INIT_1820
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 发出读温度命令
LCALL WRITE_1820
LCALL READ_1820
MOV TEMPER_NUM,A ; 将读出的温度数据保存
RET
;//*****************************************//
; 读DS18B20的程序,从DS18B20中读出一个字节的数据
;//*****************************************//
READ_1820:
MOV R2,#8
RE1:
CLR C
SETB DQ
NOP
NOP
CLR DQ
NOP
NOP
NOP
SETB DQ
MOV R3,#7
DJNZ R3,$
MOV C,DQ
MOV R3,#23
DJNZ R3,$
RRC A
DJNZ R2,RE1
RET
;//*****************************************//
; 写DS18B20的程序
;//*****************************************//
WRITE_1820:
MOV R2,#8
CLR C
WR1:
CLR DQ
MOV R3,#6
DJNZ R3,$
RRC A
MOV DQ,C
MOV R3,#23
DJNZ R3,$
SETB DQ
NOP
DJNZ R2,WR1
SETB DQ
RET
;//*****************************************//
; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据
;//*****************************************//
READ_18200:
MOV R4,#2 ; 将温度高位和低位从DS18B20中读出
MOV R1,#36H ; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H)
RE00:
MOV R2,#8
RE01:
CLR C
SETB DQ
NOP
NOP
CLR DQ
NOP
NOP
NOP
SETB DQ
MOV R3,#7
DJNZ R3,$
MOV C,DQ
MOV R3,#23
DJNZ R3,$
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
;//*****************************************//
; 将从DS18B20中读出的温度数据进行转换
;//*****************************************//
TEMPER_COV:
MOV A,#0F0H
ANL A,TEMPER_L ; 舍去温度低位中小数点后的四位温度数值
SWAP A
MOV TEMPER_NUM,A
MOV A,TEMPER_L
JNB ACC.3,TEMPER_COV1 ; 四舍五入去温度值
INC TEMPER_NUM
TEMPER_COV1:
MOV A,TEMPER_H
ANL A,#07H
SWAP A
ORL A,TEMPER_NUM
MOV TEMPER_NUM,A ; 保存变换后的温度数据
LCALL BIN_BCD
RET
;//*****************************************//
; 将16进制的温度数据转换成压缩BCD码
;//*****************************************//
BIN_BCD:
MOV DPTR,#TEMP_TAB
MOV A,TEMPER_NUM
MOVC A,@A+DPTR
MOV TEMPER_NUM,A
RET
TEMP_TAB:
DB 00H,01H,02H,03H,04H,05H,06H,07H
DB 08H,09H,10H,11H,12H,13H,14H,15H
DB 16H,17H,18H,19H,20H,21H,22H,23H
DB 24H,25H,26H,27H,28H,29H,30H,31H
DB 32H,33H,34H,35H,36H,37H,38H,39H
DB 40H,41H,42H,43H,44H,45H,46H,47H
DB 48H,49H,50H,51H,52H,53H,54H,55H
DB 56H,57H,58H,59H,60H,61H,62H,63H
DB 64H,65H,66H,67H,68H,69H,70H
;//*****************************************//
补充samzhu的程序没有实现的功能.....
1)没有内码读程序。
2)没有实现真正的‘一线’偷电模式
---------------------------------------
; 设计：王卫无
; 四川绵阳岷山岷山实业集团有限公司-研究开发中心
; Tel: 0816 2531355 Fax: 0816 2335558
; E-Mail: scmyms@minshan-inc.com
;
; 以下程序包含两个功能:
; 1) 读 DS18B20 的 64bits ROM，程序中已将此功能注消，需要此功能请取消注释。
; 2) 启动一个 DS18B20 做温度转换（精度为出厂默认值: 0.0625℃），并读取转换值。
;
; 协议：
; 1) 本程序运行于 AT89C51/52 或 AT89C1051/2051。
; 2) 本程序在 Intel ASM51 VER2.2 编译通过。
; 3) 本程序为自由软件，您可以向其他人转发，但需要注明出处。
;*************************************************************************************
DQ BIT P1.5 ; 1-WIRLE
STLPW BIT P1.4 ; STEAL POWER CONTROL
READROM EQU 33H ; ROM CAMMAND
MATCHROM EQU 55H ;
SKIPROM EQU 0CCH ;
SEARCHRDH EQU 0F0H ;
ALARMSEARCH EQU 0ECH ;
WRITESCRATCHPAD EQU 4EH ; MEMORY COMMAND
READSCRATCHPAD EQU 0BEH ;
COPYSCRATCHPAD EQU 48H ;
CONVERT EQU 44H ;
RECALLEE EQU 0B8H ;
READPOWER EQU 0B4H ;
FAMILY EQU 28H ; SAMPLE 64 BITS ROM
SN1 EQU 4EH ;
SN2 EQU 91H ;
SN3 EQU 08H ;
SN4 EQU 00H ;
SN5 EQU 00H ;
SN6 EQU 00H ;
CRC EQU 1EH ;
;******************************************************************
ORG 0000H
LJMP MAIN
MAIN:
; LCALL INIT
;
; MOV A,#READROM
; LCALL WRWIRE
; MOV R0,#20H
; MOV R1,#08H
;SCANROM: LCALL RDWIRE
; MOV @R0,A
; INC R0
; DJNZ R1,SCANROM
; NOP ; INTERRUPTE HERE CHECK SAMPLE DS18B20 64 BITS ROM.
;
; RAM 27H -> CRC.
; RAM 21H-26H -> 6 BYTES SARIAL NUMBER.
; RAM 20H -> FAMILY NUMBER.(DS18B20 = 28H)
; THE FOLLOWING PROGRAMME IS ONLY USED FOR ANY ONE DS18B20, BUT ONLY ONE.
; YOU CAN MODIFY IT FOR MANY DS18B20, REFER TO DATASHEET OF DS18B20.
SCANTMP: LCALL INIT ; START CONVERT, 0.625'C/STEP
MOV A,#SKIPROM ;
LCALL WRWIRE ;
MOV A,#CONVERT ;
LCALL WRWIRE ;
LCALL T1S ; WAIT FOR CONVERT COMPLET.
LCALL INIT ; READ TEMPERATURE
MOV A,#SKIPROM ;
LCALL WRWIRE ;
MOV A,#READSCRATCHPAD
LCALL WRWIRE ;
LCALL RDWIRE ;
MOV DPL,A ;
LCALL RDWIRE ;
MOV DPH,A ; DPTR IS SAVED DATA OF TEMPERATURE
MOV B,#10H ;
MOV A,DPH ;
MUL AB ;
MOV R0,A ;
MOV B,#10H ;
MOV A,DPL ;
DIV AB ;
ADD A,R0 ; EASY TO READ TEMPERATURE FROM ACC
LCALL INIT
NOP ; INTERRUPTE HERE CHECK TEMPERATURE
AJMP SCANTMP
;*****SUBSUBSUBSUBSUBSUBSUBSUBSUB**********************************************
;RESET DS18B20.
INIT:
PUSH 0000H
CLR STLPW
CLR DQ
MOV R0,#0FFH ; DELAY 512uS
DJNZ R0,$
SETB DQ
SETB STLPW
MOV R0,#18H ; DELAY 50uS
DJNZ R0,$
CLR STLPW
JB DQ,$ ; WAIT FOR DQ LOW
JNB DQ,$ ; WAIT FOR DQ HIGHT
SETB STLPW
MOV R0,#0FFH ; DELAY 512uS
DJNZ R0,$
POP 0000H
RET
;******************************************************************
; WRITE 1 BYTE TO DS18B20.
; ACC IS SAVED DATA.
WRWIRE:
PUSH ACC
PUSH 0000H
PUSH 0001H
MOV R0,#08H
WRWIRE_1: RRC A
CLR STLPW
CLR DQ
MOV R1,#06H ; DELAY 14uS
DJNZ R1,$ ;
MOV DQ,C ; WRITE DQ
MOV R1,#09H ; DELAY 20uS WAIT FOR DS18B20 SAMPLE
DJNZ R1,$ ;
SETB DQ
SETB STLPW
MOV R1,#30H ; DELAY 100uS FOR RECOVER
DJNZ R1,$ ;
DJNZ R0,WRWIRE_1
POP 0001H
POP 0000H
POP ACC
RET
;*******************************************************************
; READ 1 BYTE TO ACC
; ACC IS USED
RDWIRE:
PUSH 0000H
PUSH 0001H
MOV R0,#08H
RDWIRE_1: CLR STLPW
CLR DQ
MOV R1,#04H ; DELAY 10uS
DJNZ R1,$ ;
SETB DQ ; READY FOR RECEIVE DS18B20 DQ
MOV C,DQ ; READ DQ TO ACC
RRC A ;
SETB DQ
SETB STLPW
MOV R1,#30H ; DELAY 100uS FOR RECOVER
DJNZ R1,$
DJNZ R0,RDWIRE_1
POP 0001H
POP 0000H
RET
;******************************************************************
; DELAY 0.9S-1S
T1S:
PUSH 0000H
PUSH 0001H
PUSH 0002H
MOV R2,#07H
T1S_2: MOV R1,#0FFH
T1S_1: MOV R0,#0FFH ; 512uS
DJNZ R0,$ ;
DJNZ R1,T1S_1 ; 514*255+2=131072uS
DJNZ R2,T1S_2 ; 131072*7=917504uS
POP 0002H
POP 0001H
POP 0000H
RET
;*******************************************************************
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -