;****************************************************************
;/* 這是被CALLB20.C調用的DS18B20匯編語言程序，文件名為DS18B20B.ASM */
;/* 功能：本程序主要是讀出單個DS18B20芯片轉換后的溫度值，并把它    */
;/*    轉換成BCD碼，范圍（－55℃～99℃）。單片機的P1.0接DS18B20    */
;/*    的BQ。FLAG1:標志位,為"1"時表示檢測到DS18B20;FLAG2:標志單元  */
;/*    , 為"1"時表示檢測到的溫度值為負值，為"0"時表示檢測到的溫度  */
;/*    值為正值。DQ:DS18B20的數據總線接腳 ;                        */
;/*    TEMPER_NUM:保存讀出的溫度數據。 本程序僅適合單個DS18B20     */
;/*    和51單片機的連接,晶振為12MHZ左右。                          */
;/*    本程序是被調用的匯編語言程序，由外部傳遞進來的參數在R7中，  */
;/*    是字符型的，在本程序中未用；返回的參數是整形的，其中高八位  */
;/*    放置溫度值的正負號，為"1"時表示檢測到的溫度值為負值，為"0"  */
;/*    時表示檢測到的溫度值為正值，低八位放置溫度值。              */
;******************************************************************
TEMPER_L    EQU    36H
TEMPER_H    EQU    35H
TEMPER_NUM  EQU    33H
FLAG1       EQU    0D5H
FLAG2       EQU    34H
DQ          EQU    P1.0
   NAME DS18B20
   ?PR?_a_func?DS18B20     SEGMENT CODE
   ?DT?_a_func?DS18B20     SEGMENT DATA OVERLAYABLE
   ?DT?DS18B20             SEGMENT DATA
   PUBLIC   chai
   PUBLIC   ?_a_func?BYTE
   PUBLIC    _a_func
   RSEG  ?DT?_a_func?DS18B20
	 ?_a_func?BYTE:
	 aa:DS 1
   RSEG  ?DT?DS18B20
	 chai:DS 2
   RSEG  ?PR?_a_func?DS18B20
	 _a_func:
         MOV aa,R7            ;R7中放傳遞進來的字符型參數
         MOV FLAG2,#00        ;清負號標志FLAG2
         LCALL RE_CONFIG      ;重新寫DS18B20暫存存儲器設定值
         LCALL GET_TEMPER     ;讀出轉換后的溫度值
         MOV  TEMPER_L,#90H
	       MOV  TEMPER_H,#0FCH
         LCALL TEMPER_COV     ;將從DS18B20中讀出的溫度數據轉換成BCD碼
         MOV A,TEMPER_NUM
         MOV R7,A             ;R7中放返回溫度值
         MOV R6,FLAG2         ;R6中放返回溫度值的符號，1為負，0為正。
         RET


;讀出轉換后的溫度值
GET_TEMPER:
	SkipDs18b20	  EQU 0CCH
	StartDs18b20	EQU 44H
	ReadDs		    EQU 0BEH
	      SETB  DQ                  ; 定時入口
   	    CALL InitDs18b20
        JB   FLAG1,S22
	      RET
 S22:   CALL Delay64uS
	      MOV A,#SkipDs18b20        ; 跳過ROM匹配-0CC
        CALL WriteByteDs1820
        MOV  A,#StartDs18b20      ; 發出溫度轉換命令
        CALL WriteByteDs1820
        CALL DELAY1s
	      CALL InitDs18b20
        JB   FLAG1,ABC
	      RET
 ABC:   CALL Delay64uS
        MOV  A,#SkipDs18b20        ; 跳過ROM匹配
        CALL WriteByteDs1820
        MOV  A,#ReadDs             ; 發出讀溫度命令
        CALL WriteByteDs1820
        CALL ReadDs18b20           ;READ_1820
        RET
;讀DS18B20的程序,從DS18B20中讀出一個字節的數據
ReadByteDs1820:
       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的程序
WriteByteDs1820:
       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中讀出兩個字節的溫度數據
ReadDs18b20:
	      CALL ReadByteDs1820
       	MOV  TEMPER_L ,A
	      CALL ReadByteDs1820
       	MOV  TEMPER_H,A
        RET
;重新寫DS18B20暫存存儲器設定值
RE_CONFIG:
        JB FLAG1,RE_CONFIG1  ; 若DS18B20存在,轉RE_CONFIG1
        RET
RE_CONFIG1:
        MOV    A,#0CCH        ; 發SKIP ROM命令
        CALL    WriteByteDs1820
        MOV    A,#4EH        ; 發寫暫存存儲器命令
        CALL    WriteByteDs1820
        MOV    A,#00H        ; TH(報警上限)中寫入00H
        ;CALL    WriteByteDs1820
        MOV    A,#00H        ; TL(報警下限)中寫入00H
        ;CALL    WriteByteDs1820
        MOV    A,#7FH        ; 選擇12位溫度分辨率
        CALL    WriteByteDs1820
        RET
;延時子程序
Delay500uS:
        MOV   R6,#00H
        DJNZ  R6,$
        RET
Delay64uS:
	MOV   R6,#20H
        DJNZ  R6,$
        RET
Delay1S:
	     MOV B,#130
Dela11:
	     PUSH B
	     POP  B
	     DJNZ B,Dela11
	     RET
;DS18B20初始化程序
InitDs18b20:
        CLR    DQ
        MOV    R7,#80h
        DJNZ    R7,$     ; 延時
        SETB    DQ
        MOV    R7,#25h     
        DJNZ    R7,$
        SETB    FLAG1    ; 置標志位,表示DS1820存在
        JNB    DQ,TSR5
        CLR    FLAG1     ; 清標志位,表示DS1820不存在
        LJMP    TSR7
TSR5:
        MOV    R7,#06BH  ;200US
        DJNZ   R7,$      ; 延時
TSR7:
        SETB    DQ
        RET

; 將從DS18B20中讀出的溫度數據進行轉換
TEMPER_COV:
    MOV    A,TEMPER_H
    SUBB    A,#0F8H
    JC      TEM0              ; 看溫度值是否為負？不是，轉
    MOV  FLAG2,#01H           ; 是，置標志位FLAG2
    MOV    A,TEMPER_H
    CPL A
    MOV    TEMPER_H,A
    MOV    A,TEMPER_L
    CPL A
    INC A
    MOV    TEMPER_L,A
TEM0:
    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    DPTR,#TEMP_TAB
    MOV    A,TEMPER_NUM
    MOVC    A,@A+DPTR
    MOV    TEMPER_NUM,A
    RET

TEMP_TAB:
    DB    00H,01H,02H,03H,04H,05H,06H,07H
    DB    08H,09H,10H,11H,12H,13H,14H,15H
    DB    16H,17H,18H,19H,20H,21H,22H,23H
    DB    24H,25H,26H,27H,28H,29H,30H,31H
    DB    32H,33H,34H,35H,36H,37H,38H,39H
    DB    40H,41H,42H,43H,44H,45H,46H,47H
    DB    48H,49H,50H,51H,52H,53H,54H,55H
    DB    56H,57H,58H,59H,60H,61H,62H,63H
    DB    64H,65H,66H,67H,68H,69H,70H,71H
    DB    72H,73H,74H,75H,76H,77H,78H,79H
    DB    80H,81H,82H,83H,84H,85H,86H,87H
    DB    88H,89H,90H,91H,92H,93H,94H,95H
    DB    96H,97H,98H,99H
    END