ORG	0000H	;DS18B20.ASM        0-125度的溫度計(jì)  原創(chuàng):陳永飛  QQ:49204743  地址:江蘇省南京市
	TEMPER_L	EQU	41H	;用于保存讀出溫度的低8位          信箱:baiyni888@163.com
	TEMPER_H	EQU	40H	;用于保存讀出溫度的高8位
	FLAG1	EQU	38H	;是否檢測到DS18B20標(biāo)志位
	A_BIT1	EQU	31H	;數(shù)碼管個(gè)位數(shù)存放內(nèi)存位置
	B_BIT1	EQU	32H	;數(shù)碼管十位數(shù)存放內(nèi)存位置
        D_BIT1	EQU	35H     ;數(shù)碼管百位數(shù)存放內(nèi)存位置
DQ	EQU	P3.2	;30H,31H,32H,33H:	X	個(gè)位	十位	X
MOD7:	MOV	SP,#60H
	LCALL	GET_TEMPER	;調(diào)用讀溫度子程序
	LCALL	TEMPCOV
	LCALL	DISPLAY	;調(diào)用數(shù)碼管顯示子程序
	AJMP	MOD7
TEMP0:	INC	A
	AJMP	TEMP1
TEMPCOV:	MOV	A,TEMPER_L	;數(shù)據(jù)處理子程序TEMPCOV
	MOV	B,#16
	DIV	AB
	JB	B.3,TEMP0
TEMP1:	MOV	34H,A	;將TEMPER_L的高四位右移四位,存入34H中（溫度值）
	MOV	A,B	;將TEMPER_L的低四位X10/16得小數(shù)后一位數(shù).
	MOV	B,#10
	MUL	AB
	MOV	B,#16
	DIV	AB
	MOV	30H,A	;將小數(shù)后一位數(shù).存入30H中
	MOV	A,TEMPER_H	;TEMPER_H中存放高8位數(shù),權(quán)重16
	MOV	B,#16
	MUL	AB
	ADD	A,34H	;34H中存入溫度值的整數(shù)部分
	MOV	B,#10
	DIV	AB
	MOV	31H,B	;個(gè)位存入31H中
	MOV	B,#10	;
	DIV	AB	;
	MOV	32H,B	;十位存入32H中
	MOV	B,#10	;
	DIV	AB	;
	MOV	35H,B	;百位存入33H中
	MOV	A,TEMPER_H
	MOV	33H,#10H	;
	JB	ACC.7,EXIT7
	MOV	33H,#00H
EXIT7:	RET
INIT_1820:	;這是DS18B20復(fù)位初始化子程序
	SETB	DQ
	NOP
	CLR	DQ	;主機(jī)發(fā)出延時(shí)537微秒的復(fù)位低脈沖
	MOV	R1,#3
TSR1:	MOV	R0,#107
	DJNZ	R0,$
	DJNZ	R1,TSR1
	SETB	DQ	;然后拉高數(shù)據(jù)線
	NOP
	NOP
	NOP
	MOV	R0,#25H
TSR2:	JNB	DQ,TSR3	;等待DS18B20回應(yīng)
	DJNZ	R0,TSR2
	LJMP	TSR4	;延時(shí)
TSR3:	SETB	FLAG1	;置標(biāo)志位,表示DS1820存在
	LJMP	TSR5
TSR4:	CLR	FLAG1	;清標(biāo)志位,表示DS1820不存在
	LJMP	TSR7
TSR5:	MOV	R0,#117
TSR6:	DJNZ	R0,TSR6	;時(shí)序要求延時(shí)一段時(shí)間
TSR7:	SETB	DQ
	RET
	;-------------------------------------------------
GET_TEMPER:	;讀出轉(zhuǎn)換后的溫度值
	SETB	DQ
	LCALL	INIT_1820	;先復(fù)位DS18B20
	JB	FLAG1,TSS2
	RET	;判斷DS1820是否存在?若DS18B20不存在則返回
TSS2:	MOV	A,#0CCH	;跳過ROM匹配
	LCALL	WRITE_1820
	MOV	A,#44H	;發(fā)出溫度轉(zhuǎn)換命令
	LCALL	WRITE_1820
	LCALL	DISPLAY	;等待AD轉(zhuǎn)換結(jié)束,12位的話750微秒
	LCALL	INIT_1820	;準(zhǔn)備讀溫度前先復(fù)位
	MOV	A,#0CCH	;跳過ROM匹配
	LCALL	WRITE_1820
	MOV	A,#0BEH	;發(fā)出讀溫度命令
	LCALL	WRITE_1820
	LCALL	READ_18200	;將讀出的溫度數(shù)據(jù)保存到35H/36H
	RET
	;寫DS18B20的子程序(有具體的時(shí)序要求)
WRITE_1820:	MOV	R2,#8	;一共8位數(shù)據(jù)
	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中讀出兩個(gè)字節(jié)的溫度數(shù)據(jù)
READ_18200:	MOV	R4,#2	;將溫度高位和低位從DS18B20中讀出
	MOV	R1,#TEMPER_L	;低位存入TEMPER_L(TEMPER_L),高位存入(TEMPER_H)
RE00:	MOV	R2,#8	;數(shù)據(jù)一共有8位
RE01:	CLR	C
	SETB	DQ
	NOP
	NOP
	CLR	DQ
	NOP
	NOP
	NOP
	SETB	DQ
	MOV	R3,#9
RE10:	DJNZ	R3,RE10
	MOV	C,DQ
	MOV	R3,#23
RE20:	DJNZ	R3,RE20
	RRC	A
	DJNZ	R2,RE01
	MOV	@R1,A
	DEC	R1
	DJNZ	R4,RE00
	RET
	;顯示子程序
DISPLAY:	MOV	DPTR,#TAB	;指定查表啟始地址
	MOV	R0,#4
DPL1:	MOV	R1,#250	;顯示1000次
DPLOP:	MOV	A,A_BIT1	;取個(gè)位數(shù)
	MOVC	A,@A+DPTR	;查個(gè)位數(shù)的7段代碼
	MOV	P1,A	;送出個(gè)位的7段代碼
	CLR	P3.7	;開個(gè)位顯示
	ACALL	D1MS	;顯示1MS
	SETB	P3.7
	MOV	A,B_BIT1	;取十位數(shù)
	MOVC	A,@A+DPTR	;查十位數(shù)的7段代碼
	MOV	P1,A	;送出十位的7段代碼
	CLR	P3.5	;開十位顯示
	ACALL	D1MS	;顯示1MS
	SETB	P3.5
	MOV	A,D_BIT1	;取百位數(shù)
	MOVC	A,@A+DPTR	;查百位數(shù)的7段代碼
	MOV	P1,A	;送出百位的7段代碼
	CLR	P3.4	;開百位顯示
	ACALL	D1MS	;顯示1MS
	SETB	P3.4
	MOV	P1,#00H
	DJNZ	R1,DPLOP	;100次沒完循環(huán)
	DJNZ	R0,DPL1	;4個(gè)100次沒完循環(huán)
	RET
	;1MS延時(shí)(按12MHZ算)
D1MS:	MOV	R7,#0FFH
	DJNZ	R7,$
	;	DJNZ	R7,$
	RET
	;實(shí)驗(yàn)板上的7段數(shù)碼管0～9數(shù)字的共陰顯示代碼
TAB:	        DB        07DH;0
        DB        018H;1
        DB        06EH;2
        DB        03EH;3
        DB        01BH;4
        DB        037H;5
        DB        077H;6
        DB        01CH;7
        DB        07FH;8
        DB        03FH;9
	
	END