ds18b20.asm

弹片机与18b20通讯,显示温度,2位数码管与P0口相连.用扫描方式显示.

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

YCLDATA          SEGMENT       DATA
YCLCODE          SEGMENT       CODE
YCLBIT           SEGMENT       BIT

RSEG YCLDATA
TEMPER_L:	DS 1
TEMPER_H:	DS 1
RSEG YCLBIT
FLAG1:	DBIT 1
a_bit:	DBIT 1
b_bit:	DBIT 1
RSEG YCLCODE
RW_TEMP: 

LCALL GET_TEMPER;调用读温度子程序

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

RET

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

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

; 读出转换后的温度值
GET_TEMPER:
SETB P3.3
LCALL INIT_1820;先复位DS18B20
JB FLAG1,TSS2
CLR P1.2
RET ; 判断DS1820是否存在?若DS18B20不存在则返回
TSS2:
CLR P1.3;DS18B20已经被检测到!!!!!!!!!!!!!!!!!!
MOV A,#0CCH ; 跳过ROM匹配
LCALL WRITE_1820
MOV A,#44H ; 发出温度转换命令
LCALL WRITE_1820

LCALL D1MS

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

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

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

LCALL READ_18200; 将读出的温度数据保存到35H/36H 
CLR P1.4

RET

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

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

MOV R3,#8
RE10: 
DJNZ R3,RE10

MOV C,P3.3

MOV R3,#21
RE20: 
DJNZ R3,RE20

RRC A
DJNZ R2,RE01
MOV @R1,A
MOV R1,#TEMPER_H ; 低位存入TEMPER_L,高位存入TEMPER_H
DJNZ R4,RE00
RET

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

end