TEMPER_L EQU 36H
TEMPER_H EQU 35H
TEMPER_NUM EQU 60H
jishu EQU 37H
FLAG1 BIT 00H
DQ BIT P3.4
AAA:
mov p1,#0f9h
MOV SP,#70H
LCALL GET_TEMPER
LCALL TEMPER_COV
loop4:mov r5,#20
loop3:mov 38H,#0ffh

LOOP2:mov A,TEMPER_NUM
MOV B,#10
;MOV B,R5
DIV AB
mov p1,#0fah

MOV DPTR,#TABLE1
MOVC A,@A+DPTR
MOV P0,A
LCALL DELy
mov a,#0ffh
mov p1,#0fbh
MOV A,B
MOV DPTR,#TABLE2
MOVC A,@A+DPTR
MOV P0,A
LCALL DELy
mov a,#0ffh
djnz 38H,loop2
djnz r5, loop3
sjmp  aaa

NOP
;------------------讀出轉換后的溫度值
GET_TEMPER:
SETB DQ ; 定時入口
BCD:LCALL INIT_1820
JB FLAG1,S22
LJMP BCD ; 若DS18B20不存在則返回

S22:LCALL DELAY1
MOV A,#0CCH ; 跳過ROM匹配------0CC
LCALL WRITE_1820
MOV A,#44H ; 發(fā)出溫度轉換命令
LCALL WRITE_1820
NOP
LCALL DELAY
LCALL DELAY
CBA:LCALL INIT_1820
JB FLAG1,ABC
LJMP CBA
ABC:LCALL DELAY1
MOV A,#0CCH ; 跳過ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 發(fā)出讀溫度命令
LCALL WRITE_1820
LCALL READ_18200 ;READ_1820
RET
;------------------讀DS18B20的程序,從DS18B20中讀出一個字節(jié)的數(shù)據(jù)
READ_1820:
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的程序
WRITE_1820:
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中讀出兩個字節(jié)的溫度數(shù)據(jù)
READ_18200:
MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
MOV R1,#36H ; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H)
RE00:
MOV R2,#8
RE01:
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,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
;-------------------將從DS18B20中讀出的溫度數(shù)據(jù)進行轉換
TEMPER_COV:
MOV A,#0F0H
ANL A,TEMPER_L ; 舍去溫度低位中小數(shù)點后的四位溫度數(shù)值
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 ; 保存變換后的溫度數(shù)據(jù)
RET
;-------------------將16進制的溫度數(shù)據(jù)轉換成壓縮BCD碼

;-------------------DS18B20初始化程序
INIT_1820:
SETB DQ
NOP
CLR DQ
MOV R0,#80H
TSR1:
DJNZ R0,TSR1 ; 延時
SETB DQ
MOV R0,#25H ;96US-25H
TSR2:
DJNZ R0,TSR2
JNB DQ,TSR3
LJMP TSR4 ; 延時
TSR3:
SETB FLAG1 ; 置標志位,表示DS1820存在
LJMP TSR5
TSR4:
CLR FLAG1 ; 清標志位,表示DS1820不存在
LJMP TSR7
TSR5:
MOV R0,#06BH ;200US
TSR6:
DJNZ R0,TSR6 ; 延時
TSR7:
SETB DQ
RET
;------------------重新寫DS18B20暫存存儲器設定值
RE_CONFIG:
JB FLAG1,RE_CONFIG1 ; 若DS18B20存在,轉RE_CONFIG1
RET
RE_CONFIG1:
MOV A,#0CCH ; 發(fā)SKIP ROM命令
LCALL WRITE_1820
MOV A,#4EH ; 發(fā)寫暫存存儲器命令
LCALL WRITE_1820

MOV A,#00H ; TH(報警上限)中寫入00H
LCALL WRITE_1820
MOV A,#00H ; TL(報警下限)中寫入00H
LCALL WRITE_1820
MOV A,#7FH ; 選擇12位溫度分辨率
LCALL WRITE_1820
RET
;------------------延時子程序
DELAY:MOV R7,#00H
MIN:DJNZ R7,YS500
RET
YS500:LCALL YS500US
LJMP MIN
YS500US:MOV R6,#00H
DJNZ R6,$
RET       
DELAY1:MOV R7,#20H
DJNZ R7,$
RET
dely:  mov  r3,#100  
       
       djnz r3,$
       ret
TABLE1: DB   0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
TABLE2: DB   0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H