z18b20.asm

MCS-51单片机实验 39个实用实验和源码

;晶振：12M
TEMPER_L 	EQU 36H
TEMPER_H 	EQU 35H
TEMPER_NUM 	EQU 60H
FLAG1 		BIT 00H
DQ 			BIT P3.0
Com8279	EQU	0F239H
Dat8279	EQU	0F238H
MAIN:	
			MOV SP,#70H		
			LCALL INIT8279
AAA:
			LCALL GET_TEMPER
			LCALL TEMPER_COV
			LCALL DIS_TEMPER
			LJMP  AAA
			NOP
;------------------读出转换后的温度值
GET_TEMPER:
			SETB DQ ; 定时入口
BCD:
			LCALL INIT_1820
			JB FLAG1,S22
			LJMP BCD ; 若DS18B20不存在则返回

S22:
			LCALL DELAY1
			MOV A,#0CCH ; 跳过ROM匹配------0CC
			LCALL WRITE_1820
			MOV A,#44H ; 发出温度转换命令
			LCALL WRITE_1820
			NOP
			LCALL DELAY
			LCALL DELAY
CBA:		LCALL INIT_1820
			JB FLAG1,ABC
			LJMP CBA
ABC:		LCALL DELAY1
			MOV A,#0CCH ; 跳过ROM匹配
			LCALL WRITE_1820
			MOV A,#0BEH ; 发出读温度命令
			LCALL WRITE_1820
			LCALL READ_18200 ;READ_1820
			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,71H
DB 72H,73H,74H,75H,76H,77H,78H,79H
DB 80H,81H,82H,83H,84H,85H,86H,87H
DB 88H,89H,90H,91H,92H,93H,94H,95H
DB 96H,97H,98H,99H
TABLE:
	DB	3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH	
;------------------初始化8279
INIT8279:
	MOV	    DPTR,#Com8279
	MOV	    A,#00H
	MOVX	@DPTR,A
	MOV	    A,#2FH
	MOVX	@DPTR,A
	MOV	    A,#0D1H
	MOVX	@DPTR,A
	LCALL	DELAY
	RET
;------------------将2位温度值转换为一位一位可显示的值		
DIS_TEMPER:
  	ANL	    A,#0FH    ;低位温度值
	MOV	    R6,A  
	MOV	    R7,#92H   ;显示位置
	LCALL	DIS_CHAR
	MOV     A,TEMPER_NUM
	SWAP    A         ;高位温度值
	ANL     A,#0FH
	MOV	    R6,A
	MOV	    R7,#93H    ;显示位置
	LCALL	DIS_CHAR
    RET
;------------------查表在8279上显示温度值	
DIS_CHAR:
	MOV	    DPTR,#Com8279	
	MOV	    A,R7
	MOVX	@DPTR,A
	MOV	    A,R6
	MOV	    DPTR,#TABLE
	MOVC	A,@A+DPTR
	MOV  	DPTR,#Dat8279
	MOVX	@DPTR,A
	RET    

;-------------------DS18B20初始化程序
INIT_1820:
			SETB DQ
			NOP
			CLR DQ
			MOV R0,#80H
TSR1:
			DJNZ R0,TSR1 ; 延时
			SETB DQ
			MOV R0,#25H ;96US-25H
TSR2:
			DJNZ R0,TSR2
			JNB DQ,TSR3
			LJMP TSR4 ; 延时
TSR3:
			SETB FLAG1 ; 置标志位,表示DS1820存在
			LJMP TSR5
TSR4:
			CLR FLAG1 ; 清标志位,表示DS1820不存在
			LJMP TSR7
TSR5:
			MOV R0,#06BH ;200US
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,#7FH ; 选择12位温度分辨率
			LCALL WRITE_1820
			RET
;------------------延时子程序
DELAY:
			MOV R7,#00H
MIN:
			DJNZ R7,YS500
			RET
YS500:
			LCALL YS500US
			LJMP MIN
YS500US:
			MOV R6,#00H
			DJNZ R6,$
			RET
DELAY1:
			MOV R7,#20H
			DJNZ R7,$
			ret

end