temperature.asm

8051+ds18b20温度实时检测,通过两个led八段显示器显示,精度为1°

;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;                   温度检测实例
;功能：从温度传感器DS18B20读写，然后将接收到的数据
;             直接显示到两个数码管上
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 这是关于DS18B20的读写程序,数据脚P2.2,晶振11.0592mhz
; 温度传感器18B20汇编程序,采用器件默认的12位转化,最大转化时间750微秒
; 可以将检测到的温度直接显示到两个数码管上
; 显示温度00到99度
    ORG 0000H
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;单片机内存分配申明
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    TEMPER_L EQU 29H   ;  用于保存读出温度的低8位
    TEMPER_H EQU 28H   ;  用于保存读出温度的高8位
    FLAG1 EQU 38H       ;  是否检测到DS18B20标志位
    A_BIT EQU 20h        ;  数码管个位数存放内存位置
    B_BIT EQU 21h        ;   数码管十位数存放内存位置
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;主循环，用来反复读温度和显示温度
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
MAIN:
    LCALL GET_TEMPER    ;  调用读温度子程序
; 进行温度显示,这里考虑用两位数码管来显示温度
; 显示范围00到99度,显示精度为1度
; 因为12位转化时每一位的精度为0.0625度,不要求显示小数所以可以抛弃29H的低4位
; 将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度

    MOV A,29H
    MOV C,40H            ;  将28H中的最低位移入C
    RRC A
    MOV C,41H
    RRC A
    MOV C,42H
    RRC A
    MOV C,43H
    RRC A
    MOV 29H,A
    LCALL DISPLAY         ;  调用数码管显示子程序
    CPL P1.0
    AJMP MAIN
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 这是DS18B20复位初始化子程序
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
INIT_1820:
    SETB P2.2                       ;  拉高2.2管脚的电平
    NOP
    CLR P2.2                        ;  拉低2.2管脚的电平
;  主机发出延时537微秒的复位低脉冲
    MOV R1,#3
TSR1:
    MOV R0,#107
    DJNZ R0,$               ;  当R0不等于0时，原地等待
    DJNZ R1,TSR1           ;  当R1不等于0时，返回TSR1，用于延时
    SETB P2.2               ;  然后拉高数据线，将18B20中的数据清零
    NOP
    NOP
    NOP
    MOV R0,#25H
TSR2:
    JNB P2.2,TSR3            ;  等待DS18B20回应，有回应则跳到TSR3
    DJNZ R0,TSR2            ;  如果等没到37次，则继续等待回应
    LJMP TSR4               ;  跳转到TSR4
TSR3:
    SETB FLAG1              ;  置标志位,表示DS1820存在
    LJMP TSR5                ;  跳转到TSR5
TSR4:
    CLR FLAG1                ;  清标志位,表示DS1820不存在
    LJMP TSR7                 ;  跳转到TSR5
TSR5:
    MOV R0,#117
TSR6:
    DJNZ R0,TSR6              ;  时序要求延时一段时间
TSR7:
    SETB P2.2                   ;  拉高数据线
    RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 读出转换后的温度值
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
GET_TEMPER:
    SETB P2.2                  ;  拉高数据线
    LCALL INIT_1820           ;  先复位DS18B20
    JB FLAG1,TSS2             ;  如果检测到18B20，则跳转到TSS2
    CLR P2.2
    RET                       ;  判断DS1820是否存在?若DS18B20不存在则返回
TSS2:
    MOV A,#0CCH               ;  跳过ROM匹配
    LCALL WRITE_1820          ;  调用写18B20指令，将累加器中的命令写进18B20中
    MOV A,#44H                 ;  发出温度转换命令
    LCALL WRITE_1820          ;  调用写18B20指令，将累加器中的命令写进18B20中
;  这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒
    LCALL DISPLAY
    LCALL INIT_1820            ;  准备读温度前先复位
    MOV A,#0CCH               ;  跳过ROM匹配
    LCALL WRITE_1820
    MOV A,#0BEH                ;  发出读温度命令
    LCALL WRITE_1820
    LCALL READ_18200           ;  将读出的温度数据保存到35H/36H
    CLR P1.4
    RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;写DS18B20的子程序(有具体的时序要求)
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
WRITE_1820:
    MOV R2,#8                    ;  一共8位数据
    CLR C                        ;  清除进位标志位
WR1:
    CLR P2.2                      ;  拉低数据线60微秒以上后，将数据移位写入18B20
    MOV R3,#5
    DJNZ R3,$                     ;  等待60微秒以上，完成写初始化，然后写入数据，
    RRC A                        ;  将累加器中的数据带进位右移
    MOV P2.2,C                   ;  将进位位写进18B20后，等待15微秒以上
    MOV R3,#21
    DJNZ R3,$                     ;  等待15微秒以上，完成一比特的写操作
    SETB P2.2                     ;  拉高数据线，初始化写
    NOP
    DJNZ R2,WR1                 ;  如果一个字节没写完，继续写
    SETB P2.2                    ;  拉高数据线
    RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;读DS18B20的子程序(有具体的时序要求)
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
READ_18200: 
; 读DS18B20的程序,从DS18B20中读出两个字节的温度数据
    MOV R4,#2                ;  将温度高位和低位从DS18B20中读出
    MOV R1,#29H              ;  低位存入29H(TEMPER_L),高位存入28H(TEMPER_H)
RE00:
    MOV R2,#8                ;  数据一共有8位
RE01:
    CLR C                    ;  清除进位标志位
    SETB P2.2                 ;  拉高数据线后，等待1微秒初始化读
    NOP
    NOP
    CLR P2.2                  ;  拉低数据线后，保持1微秒以上使读初始化有效
    NOP
    NOP
    NOP
    SETB P2.2                 ;  拉高数据线后，开始读操作
    MOV R3,#8
RE10:
    DJNZ R3,RE10             ;  等待15微秒后，写入数据正确
    MOV C,P2.2               ;  将数据读入累加器
    MOV R3,#21              
RE20:
    DJNZ R3,RE20             ;  等待60微秒以上后，进行下一次读操作
    RRC A                    ;  将累加器带进位右移
    DJNZ R2,RE01             ;  如果没读满一个字节，继续读取数据
    MOV @R1,A               ;  将累加器中的数据存储进地址29H中
    DEC R1
    DJNZ R4,RE00             ;  继续读取高位
    RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;显示子程序
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
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,#NUMTAB        ;  指定查表启始地址
    MOV R0,#4
DPL1:
    MOV R1,#250                   ;  显示1000次
DPLOP: 
    MOV A,A_BIT                  ;  取个位数
    MOVC A,@A+DPTR             ;  查个位数的7段代码
    MOV P0,A                      ;  送出个位的7段代码
    CLR P2.7                       ;  开个位显示
    ACALL D1MS                   ;  显示1ms
    SETB P2.7
    MOV A,B_BIT                   ;  取十位数
    MOVC A,@A+DPTR              ;  查十位数的7段代码
    MOV P0,A                       ;  送出十位的7段代码
    CLR P2.6                        ;  开十位显示
    ACALL D1MS                    ;  显示1ms
    SETB P2.6
    DJNZ R1,DPLOP                   ;  未到100次循环，则继续
    DJNZ R0,DPL1                    ;   未到4个100次循环，则继续
    RET
;  1MS延时
D1MS:
    MOV R7,#80
    DJNZ R7,$
    RET
;  实验板上的7段数码管0～9数字的共阴显示代码
NUMTAB: DB 03FH,06H,5BH,4FH,66H,06DH,07DH,07H,07FH,06FH
    END