源程序.asm

51单片机温度计

	;这是关于DS18B20的读写程序,数据脚P2.2,晶振12MHZ
	;温度传感器18B20汇编程序,采用器件默认的12位转化,最大转化时间750微秒
	;可以将检测到的温度直接显示到AT89C51开发实验板的两个数码管上
	;显示温度00到99度,很准确无需校正!
;##########################################################################################
	ORG	0000H
;##########################################################################################
	;单片机内存分配申明!
	TEMPERL	EQU	29H	;用于保存读出温度的低8位
	TEMPERH	EQU	28H	;用于保存读出温度的高8位
	FLAG1	EQU	38H	;是否检测到DS18B20标志位
	A_BIT	EQU	20H	;数码管个位数存放内存位置
	B_BIT	EQU	21H	;数码管十位数存放内存位置
;##########################################################################################
MAIN:	LCALL	GET	;调用读温度子程序
	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	;调用数码管显示子程序
	CPL	P1.0
	AJMP	MAIN
;##########################################################################################
	;这是DS18B20复位初始化子程序
INIT:	SETB	P2.2
	NOP
	CLR	P2.2;主机发出延时537微秒的复位低脉冲
	MOV	R1,#3
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存在
	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	P2.2
	RET
;##########################################################################################
	;读出转换后的温度值
GET:	SETB	P2.2
	LCALL	INIT	;先复位DS18B20
	JB	FLAG1,TSS2;判断DS1820是否存在?若DS18B20不存在则返回
	CLR	P1.2
	RET	
TSS2:	CLR	P1.3	;DS18B20已经被检测到!
	MOV	A,#0CCH	;跳过ROM匹配
	LCALL	WRITE
	MOV	A,#44H	;发出温度转换命令
	LCALL	WRITE
	LCALL	DISPLAY ;这里通过调用显示子程序实现延时一段时间,等待转换结束,12位的话750微秒
	LCALL	INIT	;准备读温度前先复位
	MOV	A,#0CCH	;跳过ROM匹配
	LCALL	WRITE
	MOV	A,#0BEH	;发出读温度命令
	LCALL	WRITE
	LCALL	READ	;将读出的温度数据保存到35H/36H
	CLR	P1.4
	RET
	;进行温度显示,这里我们考虑用网站提供的两位数码管来显示温度
	;显示范围00到99度,显示精度为1度
	;因为12位转化时每一位的精度为0.0625度,我们不要求显示小数所以可以抛弃29H的低4位
	;将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度
	;这个转化温度的方法可是我想出来的哦~~非常简洁无需乘于0.0625系数
;##########################################################################################
	;写DS18B20的子程序(有具体的时序要求)
WRITE:	MOV	R2,#8	;一共8位数据
	CLR	C
WR1:	CLR	P2.2
	MOV	R3,#6
	DJNZ	R3,$
	RRC	A
	MOV	P2.2,C
	MOV	R3,#23
	DJNZ	R3,$
	SETB	P2.2
	NOP
	DJNZ	R2,WR1
	SETB	P2.2
	RET
;##########################################################################################
	;读DS18B20的程序,从DS18B20中读出两个字节的温度数据
READ:	MOV	R4,#2	;将温度高位和低位从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,#9
RE10:	DJNZ	R3,RE10
	MOV	C,P2.2
	MOV	R3,#23
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.7	;开个位显示
	ACALL	D1MS	;显示1MS
	SETB	P2.7
	MOV	A,B_BIT	;取十位数
	MOVC	A,@A+DPTR	;查十位数的7段代码
	MOV	P0,A	;送出十位的7段代码
	CLR	P2.6	;开十位显示
	ACALL	D1MS	;显示1MS
	SETB	P2.6
	DJNZ	R1,DPLOP;100次没完循环
	DJNZ	R0,DPL1	;4个100次没完循环
	RET
;##########################################################################################
	;1MS延时(按12MHZ算)
D1MS:	MOV	R7,#80
	DJNZ	R7,$
	RET
;##########################################################################################
	;实验板上的7段数码管0～9数字的共阴显示代码
NUMTAB:	DB	0CFH,03H,5DH,5BH,93H,0DAH,0DEH,43H,0DFH,0DBH
;##########################################################################################
	END