;温度总子程序
; ***************************************** wendu: ACALL INIT_1820 ACALL RE_CONFIG ACALL GET_TEMPER ACALL TEMPER_COV RET
; ***************************************** ;DS18B20初始化程序
; ***************************************** INIT_1820: SETB P2.0 NOP CLR P2.0 MOV R0,#06BH MOV R1,#03H TSR1:
DJNZ R0,TSR1 ; 延时 MOV R0,#6BH DJNZ R1,TSR1 SETB P2.0 NOP NOP NOP
MOV R0,#25H TSR2:
JNB P2.0,TSR3 DJNZ R0,TSR2 LJMP TSR4 ; 延时 TSR3:
24
SETB 20H.1 ; 置标志位,表示DS1820存在 LJMP TSR5 TSR4:
CLR 20H.1 ; 清标志位,表示DS1820不存在 LJMP TSR7 TSR5:
MOV R0,#06BH MOV R1,#03H TSR6:DJNZ R0,TSR6 ; 延时 MOV R0,#6BH DJNZ R1,TSR6 TSR7:SETB P2.0 RET
; ***************************************** ; 重新写DS18B20暂存存储器设定值
; *****************************************
RE_CONFIG:JB 20H.1,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
25
; ***************************************** ; 读出转换后的温度值
; ***************************************** GET_TEMPER:
SETB P2.0 ; 定时入口 LCALL INIT_1820 JB 20H.1,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_18200
MOV 37H,A ; 将读出的温度数据保存 RET
; ***************************************** ; 写DS18B20的程序
; ***************************************** WRITE_1820: MOV R2,#8 CLR C WR1:CLR P2.0
26
NOP NOP NOP NOP RRC A MOV P2.0,C MOV R3,#35 DJNZ R3,$ SETB P2.0 NOP
DJNZ R2,WR1 SETB P2.0 RET
; *****************************************
; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据 ; *****************************************
READ_18200:
MOV R4,#2 ; 将温度高位和低位DS18B20中读 RE00:MOV R2,#8 RE01:CLR C SETB P2.0 NOP NOP CLR P2.0 NOP NOP NOP SETB P2.0 NOP
27
