DS18B20和51单片机连接的汇编程序免费下载

本汇编程序仅适合单个DS18B20和51单片机的连接，晶振为12MHZ左右

DQ:DS18B20的数据总线接脚

FLAG1：标志位，为“1”时表示检测到DS18B20

TEMPER_NUM：保存读出的温度数据

TEMPER_LEQU36H

TEMPER_HEQU35H

DQBITP1.7

; DS18B20初始化汇编程序

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

INIT_1820：

SETBDQ

NOP

CLRDQ

MOVR0，#06BH

TSR1：

DJNZR0，TSR1; 延时

SETBDQ

MOVR0，#25H

TSR2：

JNBDQ，TSR3

DJNZR0，TSR2

LJMPTSR4; 延时

TSR3：

SETBFLAG1; 置标志位，表示DS1820存在

LJMPTSR5

TSR4：

CLRFLAG1; 清标志位，表示DS1820不存在

LJMPTSR7

TSR5：

MOVR0，#06BH

TSR6：

DJNZR0，TSR6; 延时

TSR7：

SETBDQ

RET

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

; 重新写DS18B20暂存存储器设定值

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

RE_CONFIG：

JBFLAG1，RE_CONFIG1; 若DS18B20存在，转RE_CONFIG1

RET

RE_CONFIG1：

MOVA，#0CCH; 发SKIP ROM命令

LCALLWRITE_1820

MOVA，#4EH; 发写暂存存储器命令

LCALLWRITE_1820

MOVA，#00H; TH（报警上限）中写入00H

LCALLWRITE_1820

MOVA，#00H; TL（报警下限）中写入00H

LCALLWRITE_1820

MOVA，#1FH; 选择9位温度分辨率

LCALLWRITE_1820

RET

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

; 读出转换后的温度值

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

GET_TEMPER：

SETBDQ; 定时入口

LCALLINIT_1820

JBFLAG1，TSS2

RET; 若DS18B20不存在则返回

TSS2：

MOVA，#0CCH; 跳过ROM匹配

LCALLWRITE_1820

MOVA，#44H; 发出温度转换命令

LCALLWRITE_1820

LCALLINIT_1820

MOVA，#0CCH; 跳过ROM匹配

LCALLWRITE_1820

MOVA，#0BEH; 发出读温度命令

LCALLWRITE_1820

LCALLREAD_1820

MOVTEMPER_NUM，A; 将读出的温度数据保存

RET

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

; 读DS18B20的程序，从DS18B20中读出一个字节的数据

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

READ_1820：

MOVR2，#8

RE1：

CLRC

SETBDQ

NOP

NOP

CLRDQ

NOP

NOP

NOP

SETBDQ

MOVR3，#7

DJNZR3，$

MOVC，DQ

MOVR3，#23

DJNZR3，$

RRCA

DJNZR2，RE1

RET

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

; 写DS18B20的程序

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

WRITE_1820：

MOVR2，#8

CLRC

WR1：

CLRDQ

MOVR3，#6

DJNZR3，$

RRCA

MOVDQ，C

MOVR3，#23

DJNZR3，$

SETBDQ

NOP

DJNZR2，WR1

SETBDQ

RET

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

; 读DS18B20的程序，从DS18B20中读出两个字节的温度数据

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

READ_18200：

MOVR4，#2; 将温度高位和低位从DS18B20中读出

MOVR1，#36H; 低位存入36H（TEMPER_L），高位存入35H（TEMPER_H）

RE00：

MOVR2，#8

RE01：

CLRC

SETBDQ

NOP

NOP

CLRDQ

NOP

NOP

NOP

SETBDQ

MOVR3，#7

DJNZR3，$

MOVC，DQ

MOVR3，#23

DJNZR3，$

RRCA

DJNZR2，RE01

MOV@R1，A

DECR1

DJNZR4，RE00

RET

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

; 将从DS18B20中读出的温度数据进行转换

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

TEMPER_COV：

MOVA，#0F0H

ANLA，TEMPER_L; 舍去温度低位中小数点后的四位温度数值

SWAPA

MOVTEMPER_NUM，A

MOVA，TEMPER_L

JNBACC.3，TEMPER_COV1; 四舍五入去温度值

INCTEMPER_NUM

TEMPER_COV1：

MOVA，TEMPER_H

ANLA，#07H

SWAPA

ORLA，TEMPER_NUM

MOVTEMPER_NUM，A; 保存变换后的温度数据

LCALLBIN_BCD

RET

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

; 将16进制的温度数据转换成压缩BCD码

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

BIN_BCD：

MOVDPTR，#TEMP_TAB

MOVA，TEMPER_NUM

MOVCA，@A+DPTR

MOVTEMPER_NUM，A

RET

TEMP_TAB：

DB00H，01H，02H，03H，04H，05H，06H，07H

DB08H，09H，10H，11H，12H，13H，14H，15H

DB16H，17H，18H，19H，20H，21H，22H，23H

DB24H，25H，26H，27H，28H，29H，30H，31H

DB32H，33H，34H，35H，36H，37H，38H，39H

DB40H，41H，42H，43H，44H，45H，46H，47H

DB48H，49H，50H，51H，52H，53H，54H，55H

DB56H，57H，58H，59H，60H，61H，62H，63H

DB64H，65H，66H，67H，68H，69H，70H

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

下面还介绍一个ds18b20汇编程序

;**********************************

FLAG1 BIT F0 ;DS18B20存在标志位

DQ BIT P1.7

TEMPER_L EQU 29H

TEMPER_H EQU 28H

A_BIT EQU 35H

B_BIT EQU 36H

;************ds18b20汇编程序起始********************

ORG 0000H

AJMP MAIN

ORG 0100H

;**************主程序开始************

MAIN：

LCALL INIT_18B20

;LCALL RE_CONFIG

LCALL GET_TEMPER

AJMP CHANGE

;**********DS18B20复位程序*****************

INIT_18B20： SETB DQ

NOP

CLR DQ

MOV R0，#0FBH

TSR1： DJNZ R0，TSR1 ;延时

SETB DQ

MOV R0，#25H

TSR2： JNB DQ ，TSR3

DJNZ R0，TSR2

TSR3： SETB FLAG1 ;置标志位，表明DS18B20存在

CLR P2.0 ;二极管指示

AJMP TSR5

TSR4： CLR FLAG1

LJMP TSR7

TSR5： MOV R0，#06BH

TSR6： DJNZ R0，TSR6

TSR7:SETB DQ ;表明不存在

RET

;********************设定DS18B20暂存器设定值**************

;RE_CONFIG：

;JB FLAG1，RE_CONFIG1

;RET

;RE_CONFIG1： MOV A，#0CCH ;放跳过ROM命令

;LCALL WRITE_18B20

;MOV A，#4EH

;LCALL WRITE_18B20 ;写暂存器命令

;MOV A，#00H ;报警上限中写入00H

;LCALL WRITE_18B20

;MOV A，#00H ;报警下限中写入00H

; LCALL WRITE_18B20

;MOV A，#1FH ;选择九位温度分辨率

; LCALL WRITE_18B20

; RET

;*****************读转换后的温度值****************

GET_TEMPER：

SETB DQ

LCALL INIT_18B20

JB FLAG1，TSS2

RET ;若不存在则返回

TSS2： MOV A，#0CCH ;跳过ROM

LCALL WRITE_18B20

MOV A，#44H ;发出温度转换命令

LCALL WRITE_18B20

LCALL DISPLAY ;延时

LCALL INIT_18B20

MOV A，#0CCH ;跳过ROM

LCALL WRITE_18B20

MOV A，#0BEH ;发出读温度换命令

LCALL WRITE_18B20

LCALL READ2_18B20 ;读两个字节的温度

RET

;***************写ds18b20汇编程序************

WRITE_18B20：

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

;***********读18B20程序，读出两个字节的温度*********

READ2_18B20：

MOV R4，#2 ;低位存在29 H，高位存在28H

MOV R1，#29H

RE00： MOV R2，#8

RE01： CLR C

SETB C

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

;************读出的温度进行数据转换**************

CHANGE： MOV A，29H

MOV C，28H.0 ;将28H中的最低位移入C

RRC A

MOV C，28H.1

RRC A

MOV C，28H.2

RRC A

MOV C，28H.3

RRC A

MOV 29H，A

;setb p2.0

LCALL DISPLAY ;调用数码管显示子程序

; setb P2.0

LJMP MAIN

;*******************DISPLAY******

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，#TAB ;指定查表启始地址

mov r0，#4

dpl1： mov r1，#250 ;显示1000次

dplop： mov a，a_bit ;取个位数

MOVC A，@A+DPTR ;查个位数的7段代码

mov p0，a ;送出个位的7段代码

clr p2.5;开个位显示

acall d1ms ;显示1ms

setb p2.5

mov a，b_bit ;取十位数

MOVC A，@A+DPTR ;查十位数的7段代码

mov p0，a ;送出十位的7段代码

clr p2.4;开十位显示

acall d1ms ;显示1ms

setb p2.4

djnz r1，dplop ;100次没完循环

djnz r0，dpl1 ;4个100次没完循环

ret

;***********************************

D1MS： MOV R7，#80 ;1MS延时（按12MHZ算）

DJNZ R7，$

RET

;*************************

TAB： DB 0C0H，0F9H，0A4H，0B0H，99H，92H，82H，0F8H，80H，90H