|
|
---------------------------------------
; 以下程序包含两个功能:
; 1) 读 DS18B20 的 64bits ROM，程序中已将此功能注消，需要此功能请取消注释。
; 2) 启动一个 DS18B20 做温度转换（精度为出厂默认值: 0.0625℃），并读取转换值。
; 3) 本程序运行于 AT89C51/52 或 AT89C1051/2051。
; 4) 本程序在 Intel ASM51 VER2.2 编译通过。
;*************************************************************************************
DQ BIT P1.5 ; 1-WIRLE
STLPW BIT P1.4 ; STEAL POWER CONTROL
READROM EQU 33H ; ROM CAMMAND
MATCHROM EQU 55H ;
SKIPROM EQU 0CCH ;
SEARCHRDH EQU 0F0H ;
ALARMSEARCH EQU 0ECH ;
WRITESCRATCHPAD EQU 4EH ; MEMORY COMMAND
READSCRATCHPAD EQU 0BEH ;
COPYSCRATCHPAD EQU 48H ;
CONVERT EQU 44H ;
RECALLEE EQU 0B8H ;
READPOWER EQU 0B4H ;
FAMILY EQU 28H ; SAMPLE 64 BITS ROM
SN1 EQU 4EH ;
SN2 EQU 91H ;
SN3 EQU 08H ;
SN4 EQU 00H ;
SN5 EQU 00H ;
SN6 EQU 00H ;
CRC EQU 1EH ;
;******************************************************************
ORG 0000H
LJMP MAIN
MAIN:
; LCALL INIT
;
; MOV A,#READROM
; LCALL WRWIRE
; MOV R0,#20H
; MOV R1,#08H
;SCANROM: LCALL RDWIRE
; MOV @R0,A
; INC R0
; DJNZ R1,SCANROM
; NOP ; INTERRUPTE HERE CHECK SAMPLE DS18B20 64 BITS ROM.
;
; RAM 27H -> CRC.
; RAM 21H-26H -> 6 BYTES SARIAL NUMBER.
; RAM 20H -> FAMILY NUMBER.(DS18B20 = 28H)
; THE FOLLOWING PROGRAMME IS ONLY USED FOR ANY ONE DS18B20, BUT ONLY ONE.
; YOU CAN MODIFY IT FOR MANY DS18B20, REFER TO DATASHEET OF DS18B20.
SCANTMP: LCALL INIT ; START CONVERT, 0.625‘C/STEP
MOV A,#SKIPROM ;
LCALL WRWIRE ;
MOV A,#CONVERT ;
LCALL WRWIRE ;
LCALL T1S ; WAIT FOR CONVERT COMPLET.
LCALL INIT ; READ TEMPERATURE
MOV A,#SKIPROM ;
LCALL WRWIRE ;
MOV A,#READSCRATCHPAD
LCALL WRWIRE ;
LCALL RDWIRE ;
MOV DPL,A ;
LCALL RDWIRE ;
MOV DPH , A ; DPTR IS SAVED DATA OF TEMPERATURE
MOV B,#10H ;
MOV A,DPH ;
MUL AB ;
MOV R0,A ;
MOV B,#10H ;
MOV A,DPL ;
DIV AB ;
ADD A,R0 ; EASY TO READ TEMPERATURE FROM ACC
LCALL INIT
NOP ; INTERRUPTE HERE CHECK TEMPERATURE
AJMP SCANTMP
;*****SUBSUBSUBSUBSUBSUBSUBSUBSUB**********************************************
;RESET DS18B20.
INIT:
PUSH 0000H
CLR STLPW
CLR DQ
MOV R0,#0FFH ; DELAY 512uS
DJNZ R0,$
SETB DQ
SETB STLPW
MOV R0,#18H ; DELAY 50uS
DJNZ R0,$
CLR STLPW
JB DQ,$ ; WAIT FOR DQ LOW
JNB DQ,$ ; WAIT FOR DQ HIGHT
SETB STLPW
MOV R0,#0FFH ; DELAY 512uS
DJNZ R0,$
POP 0000H
RET
;******************************************************************
; WRITE 1 BYTE TO DS18B20.
; ACC IS SAVED DATA.
WRWIRE:
PUSH ACC
PUSH 0000H
PUSH 0001H
MOV R0,#08H
WRWIRE_1: RRC A
CLR STLPW
CLR DQ
MOV R1,#06H ; DELAY 14uS
DJNZ R1,$ ;
MOV DQ,C ; WRITE DQ
MOV R1,#09H ; DELAY 20uS WAIT FOR DS18B20 SAMPLE
DJNZ R1,$ ;
SETB DQ
SETB STLPW
MOV R1,#30H ; DELAY 100uS FOR RECOVER
DJNZ R1,$ ;
DJNZ R0,WRWIRE_1
POP 0001H
POP 0000H
POP ACC
RET
;*******************************************************************
; READ 1 BYTE TO ACC
; ACC IS USED
RDWIRE:
PUSH 0000H
PUSH 0001H
MOV R0,#08H
RDWIRE_1: CLR STLPW
CLR DQ
MOV R1,#04H ; DELAY 10uS
DJNZ R1,$ ;
SETB DQ ; READY FOR RECEIVE DS18B20 DQ
MOV C,DQ ; READ DQ TO ACC
RRC A ;
SETB DQ
SETB STLPW
MOV R1,#30H ; DELAY 100uS FOR RECOVER
DJNZ R1,$
DJNZ R0,RDWIRE_1
POP 0001H
POP 0000H
RET
;******************************************************************
; DELAY 0.9S-1S
T1S:
PUSH 0000H
PUSH 0001H
PUSH 0002H
MOV R2,#07H
T1S_2: MOV R1,#0FFH
T1S_1: MOV R0,#0FFH ; 512uS
DJNZ R0,$ ;
DJNZ R1,T1S_1 ; 514*255+2=131072uS
DJNZ R2,T1S_2 ; 131072*7=917504uS
POP 0002H
POP 0001H
POP 0000H
RET
;*******************************************************************
END
|
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
