单片机的数字温度计设计

;温度总子程序

; ***************************************** 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