DS18B20温度转换 --------------------------------------- ; 以下程序包含两个功能: ; 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(综合电子论坛)  *注：部份文章为网上收录供大家共同学习参考之用，并不代表本站意见。如存在版权问题请马上通知我们，我们将马上删除。