PIC单片机控制DS18B20 源程序
扫描二维码
随时随地手机看文章
PIC单片机控制DS18B20 源程序
ORG PIC54
GOTO MAIN
ORG 0
;----------------------
;----------------------------
DELAY22
MOV LW D"200" ; DELAY 2*250=500mS
MOV WF COUNT1
DE32 MOV LW D"250" ; 8*250=2mS
MOV WF COUNT2
DE42 NOP ; 1+2+1=5uS
DECFSZ COUNT2,1
GOTO DE42
DECFSZ COUNT1,1
GOTO DE32
RETLW 0
;--------------------------------
; 子程序!!!
;********************************
MAIN
MOV LW 0FFH
TRIS RA
LOOP
CALL CONVERT
CALL DELAY22
CALL DELAY22
CALL GET_TEMP
GOTO LOOP
;------------------------
GET_TEMP
CALL INI
MOV LW 0CCH
MOV WF COMD
CALL WR1820
MOV LW 0BEH
MOV WF COMD
CALL WR1820
CALL RE1820
MOV F TEM_DATE,W
MOV WF TEM_DATEL
CALL RE1820
MOV F TEM_DATE,W
MOV WF TEM_DATEH
RETLW 0
;------------------------
CONVERT
CALL INI
MOV LW 0CCH
MOV WF COMD
CALL WR1820
MOV LW 44H
MOV WF COMD
CALL WR1820
RETLW 0
;---------DS1820---------
INI
; MOV LW B"00100000"
MOV LW 0
TRIS RA
BSF RA,3
NOP
BCF RA,3
MOV LW D"200"
MOV WF COUNT1
L0
DECFSZ COUNT1,1
GOTO L0
; MOV LW B"01100000"
MOV LW 0FH
TRIS RA
MOV LW D"30"
MOV WF COUNT1
L1
DECFSZ COUNT1,1
GOTO L1
BTFSC RA,3
GOTO INI
L2
MOV LW D"80"
MOV WF COUNT1
L3
DECFSZ COUNT1,1
GOTO L3
BTFSS RA,3
GOTO L0
RETLW 0
;-------------------------
WR1820
MOV LW 8
MOV WF COUNT2
WR0
; MOV LW B"00100000"
MOV LW 0
TRIS RA
BCF RA,3
NOP
NOP
MOV LW 2
MOV WF COUNT1
WR1
DECFSZ COUNT1,1
GOTO WR1
; MOV LW B"01111111"
MOV LW 0FH
BTFSC COMD,0
BSF RA,3
BTFSC COMD,0
TRIS RA
BCF STATUS,C
RRF COMD,1
MOV LW D"20"
MOV WF COUNT1
WR2
DECFSZ COUNT1,1
GOTO WR2
BSF RA,3
; MOV LW B"01100000"
MOV LW 0FH
TRIS RA
DECFSZ COUNT2,1
GOTO WR0
RETLW 0
;--------------------------
RE1820
MOV LW 8
MOV WF COUNT2
RE0
; MOV LW B"00100000"
MOV LW 0
TRIS RA
BCF RA,3
MOV LW 2
MOV WF COUNT1
RE1
DECFSZ COUNT1,1
GOTO RE1
; MOV LW B"01100000"
MOV LW 0FH
TRIS RA
NOP
BTFSS RA,3
BCF STATUS,C
BTFSC RA,3
BSF STATUS,C
RRF TEM_DATE,1
MOV LW D"20"
MOV WF COUNT1
RE2
DECFSZ COUNT1,1
GOTO RE2
DECFSZ COUNT2,1
GOTO RE0
BSF RA,3
RETLW 0
;-------------------------
;****************************
;**************************
END
下载文档
