DS18B20数字温度传感器的C语言程序

winnie

;---------------------------------
;      单线通信的温度IC
;           DS1820
;          实用程序
                 PROCESSOR PIC16F873PORTA    EQU 005H                  ;assembler constants
PORTB    EQU 006H
PORTC    EQU 007H
STATUS   EQU 003H
ADCON1   EQU 09FH
TRISA    EQU 085H
TRISB    EQU 086H
TRISC    EQU 087H
OPTION_REG  EQU 081H
INTCON   EQU 00BH
PIR1     EQU 00CH
TMR0     EQU 001H
COUNT      EQU 020H;               ; program variables in RAM
COUNT1     EQU 021H;
COUNT2     EQU 022H;
COUNT3       EQU 023H;
COUNT4       EQU 024H;
COUNT5       EQU 025H;
TEM_DATA      EQU 026H;
TEMPDATAL    EQU 027H;
TEMPDATAH      EQU 028H;
COMD  EQU 029H;
PDBYTE  EQU 02AH
COUNT0    EQU 02BH
TMPO   EQU  2CH
INTEGER EQU 02DH
FRACTION EQU 02EH
TEM EQU 02FH
TEM1  EQU 03AH
BAI EQU 030H
SHI EQU 031H
GE EQU 032H
XIAOSHU EQU 033H
X_CNT EQU 034H
RcvReg EQU 035H
RevReg EQU 036H
XmtReg EQU 037H
DCNT EQU 038H
R_CNT   EQU 039H
;************************************************
    ORG 000H                       ; define program to goto start
GOTO  START
    ORG 004H                       ; this is the interrupt vector
GOTO  INTERRUPT
            ; Initialisiing Procedure
;----------------------
;********************************
START   NOP
        BCF STATUS, 005H   ;SELECT BANK0
        BCF STATUS, 006H
        CLRF PORTA
        CLRF PORTB
        MOVLW 000H
        MOVWF INTCON  ;DISABLE INTERRRUPT
        BSF STATUS, 05H ; SELECT BANK1
        BCF STATUS, 06H
        MOVLW 006H
        MOVWF ADCON1  ;CONFIGURE PORTA AS DIGITAL
        MOVLW 000H
        MOVWF TRISC ; SET ALL PORTB OUTPUT
        MOVLW 000H
        MOVWF TRISB ; SET ALL PORTB OUTPUT
        MOVLW 000H
        MOVWF TRISA ; SET ALL PORTB OUTPUT
        BSF TRISA, 005H ; SET PORTA.1 AS INPUT FOR SWITCH
  ;     BSF TRISA, 002H ; SET PORTA.2 AS INPUT FOR SWITCH
        BCF  STATUS, 005H; SELECT BANK0
        MOVLW 000H     ;DISABLE ALL INTERRUPT
        MOVWF INTCON
        BCF STATUS, 007H; CLEAR IRP
        CLRF PORTA  
        CLRF PORTB
        MOVLW 000H
        MOVWF PORTC
        CLRF TEM_DATA
        CLRF TEMPDATAL
        CLRF TEMPDATAH
SENSOR
        ;BSF STATUS, 05H  ;
        ;MOVLW  001H
        ;MOVWF  TRISA
        ;BCF  STATUS, 006H
       BSF  PORTB, 002H
       CALL DELAY500MS
       CALL DELAY500MS
       CALL DELAY500MS
       CALL DELAY500MS
       BCF  PORTB, 002H
       CALL   CONVERT
       CALL DELAY500MS
       CALL DELAY500MS
       CALL DELAY500MS
       CALL DELAY500MS
       CALL   GETTEMP
       MOVLW TEMPDATAL
       MOVWF  PORTB
       CALL DELAY500MS
       CALL DELAY500MS
       MOVLW TEMPDATAH
       MOVWF  PORTB
       CALL DELAY500MS
       CALL DELAY500MS
       BSF  PORTB, 002H
       CALL DISPLAYMAIN
ROUND
       NOP
       NOP
       NOP
       NOP
     GOTO ROUND        
;CALL  DISPLAY
;------------------------
GETTEMP   
       CALL   SENSOR_RESET
       BTFSS PDBYTE, 000H
       GOTO  GETTEMP
       MOVLW  0CCH
       MOVWF  COMD
       CALL   WR1820
       CLRF   COMD
       MOVLW  0BEH
       MOVWF  COMD
       CALL   WR1820
       CLRF   COMD
       CALL   RE1820
       MOVF   TEM_DATA, 000H
       MOVWF  TEMPDATAL
       CALL   RE1820
       MOVF   TEM_DATA, 000H
       MOVWF  TEMPDATAH
       RETURN
;------------------------
CONVERT
        CALL   SENSOR_RESET
        BTFSS PDBYTE, 000H
        GOTO CONVERT
        MOVLW  0CCH
        MOVWF  COMD
        CALL   WR1820
        CLRF COMD
        MOVLW  44H
        MOVWF  COMD
        CALL   WR1820
        RETURN
;---------DS1820---------
SENSOR_RESET
     CALL  OW_HIZ
     CLRF  PDBYTE
     CALL  OW_LO
      CALL DELAY500US
     CALL  OW_HIZ
      CALL DELAY70US
     BTFSS   PORTA, 005H
     INCF   PDBYTE, 001H
     CALL DELAY400US
     RETURN
;-------------------------
WR1820
     MOVLW   8
     MOVWF   COUNT2
WR0
     CALL OW_LO
     NOP
     NOP
     NOP
     NOP
     NOP
     BCF  STATUS, 000H
     RRF  COMD, 001H  
     BTFSC STATUS, 000H
     BSF   PORTA, 005H
      CALL DELAY55US
     CALL  OW_HIZ
     NOP
     NOP
     DECFSZ  COUNT2, 001H
     GOTO  WR0
     RETLW   0
;--------------------------
RE1820
     CLRF TEM_DATA
     MOVLW   8
     MOVWF   COUNT2
RE0
     CALL  OW_LO
     NOP
     NOP
     NOP
     NOP
     NOP
     NOP
     CALL OW_HIZ
     NOP
     NOP
     NOP
     NOP
     BCF  STATUS, 000H
     BTFSC  PORTA, 005H
     BSF  STATUS, 000H
    RRF    TEM_DATA,001H
      CALL DELAY50US
     DECFSZ  COUNT2,001H
      GOTO  RE0
     RETLW   0
;-------------------------
OW_HIZ  BSF STATUS, 005H
        BSF TRISA, 005H
        BCF STATUS, 005H
        RETURN      
;****************************
OW_LO   BCF STATUS, 005H
        BCF PORTA, 005H
        BSF STATUS, 005H
        BCF TRISA, 005H
        BCF STATUS, 005H
        RETURN
;-------------------------------
DISPLAYMAIN
      BTFSC TEMPDATAH,07H
      goto NEGATIVE
;温度是正
  CALL EXCHANGE
  CALL HEXBDC
  CALL DISPLAY  
  GOTO DISPLAYEND
;温度是负
NEGATIVE
      CALL EXCHANGE
      COMF INTEGER
      MOVLW 01H
      ADDWF INTEGER,
      MOVLW B'01111111'
      ANDWF INTEGER,1H
      COMF FRACTION
      MOVLW B'00010000'
      ADDWF FRACTION,
      MOVLW B'11110000'
      ANDWF INTEGER,1H
     CALL HEXBDC
     MOVLW 0AH
     MOVWF BAI
     CALL DISPLAY
DISPLAYEND  NOP
     RETURN
;***********************************     
DISPLAY
   ;  BSF   PORTC,04H
    ; CALL  DELAY1MS  ;选第一个LED，百位  
   ;  CALL DELAY
     MOVF  BAI,0H
     IORLW B'00010000'
     MOVWF PORTC
     CALL  DELAY1MS
     NOP
     BCF   PORTC, 004H
     CALL  DELAY1MS
     NOP
   ;  BSF   PORTC,05H
   ;  CALL  DELAY1MS   ;选第二个LED，十位  
     MOVF  SHI,0H
     IORLW  B'00100000'
     MOVWF  PORTC
     CALL  DELAY1MS
     NOP
     BCF   PORTC, 005H
     CALL  DELAY1MS
     NOP
   ;  BSF    PORTC,06H
    ; CALL  DELAY1MS   ;选第三个LED，个位  
     MOVF  GE,0H
     IORLW B'01000000'
     MOVWF PORTC
     CALL  DELAY1MS
     NOP
     BCF   PORTC, 006H
     CALL  DELAY1MS
     NOP
  ;   BSF   PORTC, 007H
  ;   CALL    DELAY1MS   ;选第四个LED，一位小数  
     MOVF  XIAOSHU,0H
     IORLW B'10000000'
     MOVWF PORTC   
     CALL  DELAY1MS   
     NOP
     BCF   PORTC, 007H
     CALL  DELAY1MS
     NOP
     RETURN
;**************************************
EXCHANGE
      MOVF TEMPDATAH,0    ;变换位置，INTEGER存放整数，FRACTION存放小数
      ANDLW B'00000111'
      MOVWF INTEGER
      RLF INTEGER,1H
      RLF INTEGER,1H
      RLF INTEGER,1H
      RLF INTEGER,1H
      MOVLW  B'01110000'
      ANDWF INTEGER,1H
      SWAPF TEMPDATAL,1H
      MOVF TEMPDATAL,0H
      ANDLW B'11110000'
      MOVWF FRACTION
      MOVF TEMPDATAL,0H
      ANDLW B'00001111'
      ADDWF  INTEGER,1H
   RETURN
;******************************************
HEXBDC
      CLRF BAI
      CLRF SHI
      CLRF GE
      CLRF XIAOSHU
      MOVF INTEGER,0H
      MOVWF TEM
SHIWEI   
      MOVLW 0AH   
      SUBWF TEM,0H
      BTFSS STATUS,0H
      GOTO GEWEI
      MOVWF TEM
      MOVLW 01H
      INCF SHI,1H
      BTFSS SHI,3H  
      GOTO  SHIWEI
      BTFSS SHI,01H
      GOTO  SHIWEI
      CLRF SHI
      INCF BAI,01H
      GOTO SHIWEI
GEWEI
      MOVF TEM,0
      MOVWF GE
      BTFSS FRACTION,7H
      GOTO XIAOSHU0
      BTFSS FRACTION,6H
      GOTO XIAOSHU1
      MOVLW 8H
      MOVWF XIAOSHU
      GOTO JIESU
XIAOSHU0
      BTFSS FRACTION,6H
      GOTO XIAOSHU2
      MOVLW 3H
      MOVWF XIAOSHU
      GOTO JIESU
XIAOSHU1      
      MOVLW 5H
      MOVWF XIAOSHU
      GOTO JIESU
XIAOSHU2
      MOVLW 00H
      MOVWF XIAOSHU
JIESU
RETURN
;*****************************************************
;-------------------------------
DELAY15US  NOP
           NOP
           NOP
           NOP
           NOP
           NOP
           NOP
           NOP
           NOP
           NOP
           NOP
           NOP
  RETURN
;**************************
DELAY1MS   MOVLW   002H            ; delay program for 1M sec
            MOVWF   COUNT2
BRA133     MOVLW   0FFH
            MOVWF   COUNT1
BRA123     MOVLW   002H
     MOVWF   COUNT
BRA113     DECF    COUNT,1
     BTFSS   STATUS, 002H
      GOTO  BRA113
     DECF    COUNT1,1
     BTFSS   STATUS, 002H
  GOTO  BRA123
     DECF    COUNT2,1
     BTFSS   STATUS, 002H
      GOTO  BRA133
     RETURN
;--------------------------------------------------
DELAY10MS   CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
             CALL DELAY1MS
   RETURN
;*****************************************
INTERRUPT
      GOTO START
;----------------------------
;---------------------------------
DELAY500US
       MOVLW  (495/5)-1
       MOVWF   TMPO
       CALL    WAIT5U
     RETURN
;---------------------------
DELAY70US
       MOVLW  (65/5)
       MOVWF   TMPO
       CALL    WAIT5U
       RETURN
;------------------------------------
DELAY400US
       MOVLW  (395/5)
       MOVWF   TMPO
       CALL    WAIT5U
       RETURN
;-------------------------
DELAY55US
      MOVLW  (50/5)
       MOVWF   TMPO
       CALL    WAIT5U
       RETURN
;---------------------
DELAY50US
      MOVLW  (45/5)
       MOVWF   TMPO
       CALL    WAIT5U
       RETURN
;-------------------------------------
;**************************************************
WAIT5U   NOP
         NOP
         DECFSZ  TMPO, 001H
         GOTO WAIT5U
         RETLW  000H
;*---------------------------
DELAY500MS   MOVLW   005H            ; delay program for 0.5 sec
            MOVWF   COUNT2
BRA32     MOVLW   0FFH
            MOVWF   COUNT1
BRA22     MOVLW   0FFH
     MOVWF   COUNT
BRA12     DECF    COUNT,1
     BTFSS   STATUS, 002H
      GOTO  BRA12
     DECF    COUNT1,1
     BTFSS   STATUS, 002H
  GOTO  BRA22
     DECF    COUNT2,1
     BTFSS   STATUS, 002H
      GOTO  BRA32
     RETURN   
;--------------------------------
         END