ds18b20温度显示实验.asm

本人做温度测试显示实验时所用的编码程序

 ;*************************************************************
 ;程序名称：DS18B20温度显示实验
 ;程序编写      联系QQ：
 ;程序功能: 显示实时温度，精确度极高
 ;程序最后修改时间:2008/8/1
 ;*************************************************************

        BAIWEI      equ 37h
        SHIWEI      equ 38h
        GEWEI       equ 39h
        TEMPER_L    EQU 36H
        TEMPER_H    EQU 35H
        TEMPER_d    EQU 61H          ;小数位
        TEMPER_NUM  EQU 60H
        FLAG1       BIT 00H
        DQ          BIT P2.2
        dula        bit P2.6
        wela        bit P2.7
        

        MOV   SP,#70H

    AAA:LCALL GET_TEMPER
        LCALL TEMPER_COV
        mov   a,TEMPER_NUM            ;分开 TEMPER_NUM
        anl   a,#0f0h
        swap  a
        mov   BAIWEI,a
        mov   a,TEMPER_NUM
        anl   a,#0fh
        mov   SHIWEI,a
        mov   GEWEI,TEMPER_d

        mov   r2,#256
   lplp:lcall display
        djnz  r2,lplp

        LJMP  AAA
        NOP
;------------------读出转换后的温度值
GET_TEMPER:
        LCALL INIT_1820    ;初始化程序
        SETB  DQ ; 定时入口
    BCD:JB    FLAG1,S22
        LJMP  BCD ; 若DS18B20不存在则返回

    S22:LCALL DELAY1
        MOV A,#0CCH ; 跳过ROM匹配------0CC
        LCALL WRITE_1820
        MOV A,#44H ; 发出温度转换命令
        LCALL WRITE_1820
        NOP
        LCALL DELAY
        LCALL DELAY
    CBA:LCALL INIT_1820
        JB    FLAG1,ABC
        LJMP  CBA
    ABC:LCALL DELAY1
        MOV A,#0CCH ; 跳过ROM匹配
        LCALL WRITE_1820
        MOV A,#0BEH ; 发出读温度命令
        LCALL WRITE_1820
        LCALL READ_18200 ;或者 READ_1820
        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 ; 保存变换后的温度数据
        mov  a,#0fh
        ANL  A,TEMPER_L

        mov  TEMPER_d,a
        clr  c
        subb a,#10
        jc   jianlo
        mov  TEMPER_d,a
        inc  TEMPER_NUM

 jianlo:
        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

;-------------------DS18B20初始化程序
INIT_1820:
          SETB DQ
          NOP
          CLR  DQ
          MOV  R0,#80H
    TSR1:
         DJNZ  R0,TSR1         ; 延时
         SETB  DQ
         MOV   R0,#25H         ;96US-25H
    TSR2:
         DJNZ  R0,TSR2
         JNB   DQ,TSR3
         LJMP  TSR4            ; 延时
    TSR3:
         SETB  FLAG1           ; 置标志位,表示DS1820存在
         LJMP  TSR5
    TSR4:
         CLR   FLAG1           ; 清标志位,表示DS1820不存在
         LJMP  TSR7
    TSR5:
         MOV   R0,#06BH         ;200US
    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,#7FH           ; 选择12位温度分辨率
         LCALL WRITE_1820
         RET
;------------------延时子程序
   DELAY:MOV   R7,#2H
     MIN:DJNZ  R7,YS500
         RET
   YS500:LCALL YS500US
         LJMP  MIN
 YS500US:MOV   R6,#200
         DJNZ  R6,$
         RET
  DELAY1:MOV   R7,#20H
         DJNZ  R7,$
         RET

display:			;显示程序
         MOV   DPTR,#TABLE
         clr   dula;
         mov   a,BAIWEI
         MOVC  a,@A+DPTR
         mov   p0,a    		;显示百位
         setb  dula;
         clr   dula;

         clr   wela;
         mov   P0,#7eh;
         setb  wela;
         clr   wela;
         mov   50h,#5h
         call  delayxms

         clr   dula;
         mov   a,SHIWEI
         MOVC  a,@A+DPTR
         orl   a,#80h           ;显示小数点
         mov   p0,a ;		;显示十位
         setb  dula;
         clr   dula;

         clr   wela;
         mov   P0,#7dh;
         setb  wela;
         clr   wela;
         mov   50h,#5h
         call  delayxms

         mov   a,GEWEI
         MOVC  a,@A+DPTR
         mov   p0,a ;		;显示个位
         setb  dula;
         clr   dula;
         mov   P0,#7bh;
         setb  wela;
         clr   wela;
         mov   50h,#5h
         call  delayxms
         ret

delayxms:mov 52h,#1               ;50h,51h,52h用于延时  50h为参数x  延时1*x ms
  delaya:mov 51h,#125
         djnz 51h,$
         djnz 52h,delaya
         djnz 50h,delayxms
         ret ;延时返回



  table:db   3fh,06h,5bh,4fh,66h,6dh,7dh,07h,
        db   7fh,6fh,77h,7ch,39h,5eh,79h,71h