本文檔的主要內容詳細介紹的是DS18B20數字溫度傳感器的源代碼。

; FLAG1： 標志位，為“1”時表示檢測到DS18B20

; DQ： DS18B20的數據總線接腳

; TEMPER_NUM：保存讀出的溫度數據

; 本程序僅適合單個DS18B20和51單片機的連接，晶振為12MHZ左右

TEMPER_L EQU 36H

TEMPER_H EQU 35H

DQ BIT P1.7

; DS18B20初始化程序

;//*****************************************//

INIT_1820：

SETB DQ

NOP

CLR DQ

MOV R0，#06BH

TSR1：

DJNZ R0，TSR1 ; 延時

SETB DQ

MOV R0，#25H

TSR2：

JNB DQ，TSR3

DJNZ R0，TSR2

LJMP TSR4 ; 延時

TSR3：

SETB FLAG1 ; 置標志位，表示DS1820存在

LJMP TSR5

TSR4：

CLR FLAG1 ; 清標志位，表示DS1820不存在

LJMP TSR7

TSR5：

MOV R0，#06BH

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，#1FH ; 選擇9位溫度分辨率

LCALL WRITE_1820

RET

;//*****************************************//

; 讀出轉換后的溫度值

;//*****************************************//

GET_TEMPER：

SETB DQ ; 定時入口

LCALL INIT_1820

JB FLAG1，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_1820

MOV TEMPER_NUM，A ; 將讀出的溫度數據保存

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

;//*****************************************//