ds18b20.asm

北京航空航天大学出版社 单片机与嵌入式系统 图书介绍 （2007年第2期） 通信地址： 北京市海淀区学院路37号 北京航空航天大学出版社 邮编: 1

;****************************************************************
;/* 这是DS18B20的汇编程序,  文件名DS18B20.ASM                    */
;/* 功能：本程序主要是读出单个DS18B20芯片转换后的温度值，并把它  */
;/*    转换成BCD码，范围（-55℃~99℃）。单片机的P1.0接DS18B20    */
;/*    的BQ。FLAG1:标志位,为"1"时表示检测到DS18B20;FLAG2:标志位,  */
;/*    为"1"时表示检测到的温度值为负值，为"0"时表示检测到的温度   */
;/*    值为正值。DQ:DS18B20的数据总线接脚 ;                       */
;/*    TEMPER_NUM:保存读出的温度数据。 本程序仅适合单个DS18B20    */
;/*    和51单片机的连接,晶振为12MHZ左右。                         */
;******************************************************************
TEMPER_L        EQU    36H
TEMPER_H        EQU    35H
TEMPER_NUM      EQU    33H
FLAG1           EQU    0D5H
FLAG2           EQU    00H
DQ              EQU    P1.0
SkipDs18b20	    EQU    0CCH
StartDs18b20	  EQU    44H
ReadDs		      EQU    0BEH

            ORG 0000H
            SJMP MAIN
            ORG 0040H
 MAIN:      MOV SP,#60H
            CLR EA
            CLR  FLAG2        ;清负号标志位FLAG2
            LCALL RE_CONFIG   ;重新写DS18B20暂存存储器设定值
            LCALL GET_TEMPER  ;读出转换后的温度值
            ;将从DS18B20中读出的温度数据转换成BCD码（－55℃~99℃）
            LCALL TEMPER_COV
            LJMP $

;读出转换后的温度值
GET_TEMPER:
	      SETB  DQ                  ; 定时入口
   	    LCALL InitDs18b20
        JB   FLAG1,S22
	      RET
 S22:   LCALL Delay64uS
	      MOV A,#SkipDs18b20        ; 跳过ROM匹配-0CC
        LCALL WriteByteDs1820
        MOV  A,#StartDs18b20      ; 发出温度转换命令
        LCALL WriteByteDs1820
        LCALL DELAY1s
	      LCALL InitDs18b20
        JB   FLAG1,ABC
	      RET
 ABC:   LCALL Delay64uS
        MOV  A,#SkipDs18b20        ; 跳过ROM匹配
        LCALL WriteByteDs1820
        MOV  A,#ReadDs             ; 发出读温度命令
        LCALL WriteByteDs1820
        LCALL ReadDs18b20           ;READ_1820
        RET
;读DS18B20的程序,从DS18B20中读出一个字节的数据
ReadByteDs1820:
       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的程序
WriteByteDs1820:
       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中读出两个字节的温度数据
ReadDs18b20:
	LCALL ReadByteDs1820
       	MOV  TEMPER_L ,A
	LCALL ReadByteDs1820
       	MOV  TEMPER_H,A
        RET
;重新写DS18B20暂存存储器设定值
RE_CONFIG:
        JB FLAG1,RE_CONFIG1  ; 若DS18B20存在,转RE_CONFIG1
        RET
RE_CONFIG1:
        MOV    A,#0CCH        ; 发SKIP ROM命令
        LCALL    WriteByteDs1820
        MOV    A,#4EH        ; 发写暂存存储器命令
        LCALL    WriteByteDs1820
        MOV    A,#00H        ; TH(报警上限)中写入00H
        ;LCALL    WriteByteDs1820
        MOV    A,#00H        ; TL(报警下限)中写入00H
        ;LCALL    WriteByteDs1820
        MOV    A,#7FH        ; 选择12位温度分辨率
        LCALL    WriteByteDs1820
        RET
;延时子程序
Delay500uS:
        MOV   R6,#00H
        DJNZ  R6,$
        RET
Delay64uS:
	      MOV   R6,#20H
        DJNZ  R6,$
        RET
Delay1S:
	     MOV B,#130
Dela11:
	    PUSH B
	    POP  B
	    DJNZ B,Dela11
	    RET
;DS18B20初始化程序
InitDs18b20:
        CLR    DQ
        MOV    R7,#80h
        DJNZ    R7,$        ; 延时
        SETB    DQ
        MOV    R7,#25h      ;
        DJNZ    R7,$
        SETB    FLAG1    ; 置标志位,表示DS1820存在
        JNB    DQ,TSR5
        CLR    FLAG1     ; 清标志位,表示DS1820不存在
        LJMP    TSR7
TSR5:
        MOV    R7,#06BH    ;200US
        DJNZ   R7,$        ; 延时
TSR7:
        SETB    DQ
        RET

; 将从DS18B20中读出的温度数据进行转换
TEMPER_COV:
    MOV    A,TEMPER_H
    SUBB    A,#0F8H
    JC      TEM0              ; 看温度值是否为负？不是，转
    SETB  FLAG2               ; 是，置标志位FLAG2
    MOV    A,TEMPER_H
    CPL A
    MOV    TEMPER_H,A
    MOV    A,TEMPER_L
    CPL A
    INC A
    MOV    TEMPER_L,A
TEM0:
    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
    END