ds18b20xx.asm

单片机与单总线温度计DS18B20(三位数码显示)汇编程序

版权所有　 中国自动化资讯网(www.zidh.com)　逸飞（在您网上的用户名：xfyyf）
;逸飞　[e-mail]  
;将下面的程序衔接到你的程序中就可以了！！
;显示P2.5对应的为个位，P2.4对应十位，P2.3对应百位
;温度传感器ds1820 的汇编程序 晶振：12M 
TEMPER_L EQU  36H ;从DS18B20中读回高位，低位暂存区
TEMPER_H EQU 35H ;
TEMPER_NUM EQU 60H;温度值存储?
TEMPER_GE EQU 61H
TEMPER_SHI EQU 62H
TEMPER_BAI EQU 63H

FLAG1     BIT   00H 
DQ        BIT   P1.4;单总线口
  ORG  0000H
  AJMP MAIN
  ORG  0030H
MAIN: MOV SP,#70H 
           LCALL   GET_TEMPER 
           LCALL   TEMPER_COV 
	   LCALL   DISPLAY
           LJMP    MAIN
           NOP 
;**************************************************
;读出转换后的温度值 
;**************************************************
GET_TEMPER: 
          SETB      DQ ; 定时入口 
BCD:      LCALL     INIT_1820 
          JB            FLAG1,S22 
          LJMP      BCD ; 若DS18B20不存在则返回 

S22:     LCALL     DELAY1 
         MOV        A,#0CCH ;
         LCALL     WRITE_1820 
MOV A,#44H ; 
LCALL WRITE_1820 
NOP 
LCALL DELAY 
CBA:LCALL INIT_1820 
JB FLAG1,ABC 
LJMP CBA 
ABC:LCALL DELAY1 
MOV A,#0CCH ; 
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 ; 
MOV R1,#36H ; 
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 ; 
LCALL BIN_BCD 
RET
;;**************************************************** 
;将16进制的温度数据转换成压缩BCD码 
;;****************************************************
BIN_BCD: 
MOV A,TEMPER_NUM
MOV B,#100
DIV AB
MOV TEMPER_BAI,A
MOV A,B
MOV B,#10
DIV AB
MOV TEMPER_SHI,A
MOV TEMPER_GE,B
RET


;****************************************************
;DS18B20初始化程序 
;;****************************************************
INIT_1820: 
SETB DQ 
NOP 
CLR DQ 
MOV R0,#250
TSR1: 
DJNZ R0,TSR1 ; 延时520us 
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 ; 
LJMP TSR7 
TSR5: 
MOV R0,#06BH ;200US 
TSR6: 
DJNZ R0,TSR6 ; 延时 
TSR7: 
SETB DQ ;拉高总线
RET 
;*************************************************
;显示子程序
;*************************************************
Display:
 MOV DPTR,#disptab
 MOV  A,TEMPER_GE
 MOVC A,@A+DPTR
 MOV P0,A
 CLR P2.5
 CALL DELAY
 CALL DELAY
 SETB P2.5
 MOV DPTR,#disptab
 MOV  A,TEMPER_SHI
 MOVC A,@A+DPTR
 MOV P0,A
 CLR P2.4
 CALL DELAY
 CALL DELAY
 SETB P2.4
  MOV DPTR,#disptab
 MOV  A,TEMPER_BAI
 MOVC A,@A+DPTR
 MOV P0,A
 CLR P2.3
 CALL DELAY
 CALL DELAY
 SETB P2.3
 RET

;*************************************************
;延时子程序
;*************************************************

DELAY:
MOV R6,#250;延时500us
DJNZ R6,$ 
RET 

DELAY1:MOV R7,#20H 
DJNZ R7,$ 
RET 

disptab:
     db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh;字形代码表
            ;0 1 2 3 4 5 6 7 8 9

END