ds18b20b.asm

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

;****************************************************************
;/* 这是被CALLB20.C调用的DS18B20汇编语言程序，文件名为DS18B20B.ASM */
;/* 功能：本程序主要是读出单个DS18B20芯片转换后的温度值，并把它    */
;/*    转换成BCD码，范围（－55℃～99℃）。单片机的P1.0接DS18B20    */
;/*    的BQ。FLAG1:标志位,为"1"时表示检测到DS18B20;FLAG2:标志单元  */
;/*    , 为"1"时表示检测到的温度值为负值，为"0"时表示检测到的温度  */
;/*    值为正值。DQ:DS18B20的数据总线接脚 ;                        */
;/*    TEMPER_NUM:保存读出的温度数据。 本程序仅适合单个DS18B20     */
;/*    和51单片机的连接,晶振为12MHZ左右。                          */
;/*    本程序是被调用的汇编语言程序，由外部传递进来的参数在R7中，  */
;/*    是字符型的，在本程序中未用；返回的参数是整形的，其中高八位  */
;/*    放置温度值的正负号，为"1"时表示检测到的温度值为负值，为"0"  */
;/*    时表示检测到的温度值为正值，低八位放置温度值。              */
;******************************************************************
TEMPER_L    EQU    36H
TEMPER_H    EQU    35H
TEMPER_NUM  EQU    33H
FLAG1       EQU    0D5H
FLAG2       EQU    34H
DQ          EQU    P1.0
   NAME DS18B20
   ?PR?_a_func?DS18B20     SEGMENT CODE
   ?DT?_a_func?DS18B20     SEGMENT DATA OVERLAYABLE
   ?DT?DS18B20             SEGMENT DATA
   PUBLIC   chai
   PUBLIC   ?_a_func?BYTE
   PUBLIC    _a_func
   RSEG  ?DT?_a_func?DS18B20
	 ?_a_func?BYTE:
	 aa:DS 1
   RSEG  ?DT?DS18B20
	 chai:DS 2
   RSEG  ?PR?_a_func?DS18B20
	 _a_func:
         MOV aa,R7            ;R7中放传递进来的字符型参数
         MOV FLAG2,#00        ;清负号标志FLAG2
         LCALL RE_CONFIG      ;重新写DS18B20暂存存储器设定值
         LCALL GET_TEMPER     ;读出转换后的温度值
         MOV  TEMPER_L,#90H
	       MOV  TEMPER_H,#0FCH
         LCALL TEMPER_COV     ;将从DS18B20中读出的温度数据转换成BCD码
         MOV A,TEMPER_NUM
         MOV R7,A             ;R7中放返回温度值
         MOV R6,FLAG2         ;R6中放返回温度值的符号，1为负，0为正。
         RET


;读出转换后的温度值
GET_TEMPER:
	SkipDs18b20	  EQU 0CCH
	StartDs18b20	EQU 44H
	ReadDs		    EQU 0BEH
	      SETB  DQ                  ; 定时入口
   	    CALL InitDs18b20
        JB   FLAG1,S22
	      RET
 S22:   CALL Delay64uS
	      MOV A,#SkipDs18b20        ; 跳过ROM匹配-0CC
        CALL WriteByteDs1820
        MOV  A,#StartDs18b20      ; 发出温度转换命令
        CALL WriteByteDs1820
        CALL DELAY1s
	      CALL InitDs18b20
        JB   FLAG1,ABC
	      RET
 ABC:   CALL Delay64uS
        MOV  A,#SkipDs18b20        ; 跳过ROM匹配
        CALL WriteByteDs1820
        MOV  A,#ReadDs             ; 发出读温度命令
        CALL WriteByteDs1820
        CALL 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:
	      CALL ReadByteDs1820
       	MOV  TEMPER_L ,A
	      CALL ReadByteDs1820
       	MOV  TEMPER_H,A
        RET
;重新写DS18B20暂存存储器设定值
RE_CONFIG:
        JB FLAG1,RE_CONFIG1  ; 若DS18B20存在,转RE_CONFIG1
        RET
RE_CONFIG1:
        MOV    A,#0CCH        ; 发SKIP ROM命令
        CALL    WriteByteDs1820
        MOV    A,#4EH        ; 发写暂存存储器命令
        CALL    WriteByteDs1820
        MOV    A,#00H        ; TH(报警上限)中写入00H
        ;CALL    WriteByteDs1820
        MOV    A,#00H        ; TL(报警下限)中写入00H
        ;CALL    WriteByteDs1820
        MOV    A,#7FH        ; 选择12位温度分辨率
        CALL    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              ; 看温度值是否为负？不是，转
    MOV  FLAG2,#01H           ; 是，置标志位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