TEMPER_L 	EQU 	36H	;存放讀出溫度低位數據
	TEMPER_H 	EQU 	35H	;存放讀出溫度高位數據
	TEMPER_NUM 	EQU 	37H	;存放轉換后的溫度值
	FLAG1 		BIT	00H
	DQ 		BIT	P3.3	;一線總線控制端口
	SDA		BIT	P1.7	;I2C總線定義
	SCL		BIT	P1.6
	MTD		EQU	40H	;發送數據緩沖器
	MRD		EQU	49H	;接收數據緩沖區
	
	;定義器件地址,變量
	ZLG7290		EQU	70H	;ZLG7290的器件地址
	ACK		BIT	10H	;應答標志位
	SLA		DATA	50H	;器件的從地址
	SUBA		DATA	51H	;器件的子地址
	NUMBYTE		DATA	52H	;讀/寫的字節數變量

	ORG		8000H
	LJMP	MAIN
	ORG		8100H

;-------溫度計主程序如下：
MAIN:
	MOV 	SP,#70H
DISP_LOOP:
	LCALL 	GET_TEMPER	;從DS18B20讀出溫度數據
	LCALL	TEMPER_COV	;轉換讀出的溫度數據并保存
	LCALL 	DELAY

	MOV	MTD,#60H
	MOV	MTD+1,TEMPER_NUM;溫度值低位
	ANL	MTD+1,#0FH
	MOV	SLA,#ZLG7290	;指定器件地址
	MOV	SUBA,#07H	;指定子地址
	MOV	NUMBYTE,#02H	;發送2字節數據
	LCALL	IWRNBYTE	;調用寫2字節數據程序

	MOV	MTD,#61H
	MOV	A,TEMPER_NUM
	SWAP	A
	ANL	A,#0FH
	MOV	MTD+1,A		;溫度值高位
	MOV	SLA,#ZLG7290	;指定器件地址
	MOV	SUBA,#07H	;指定子地址
	MOV	NUMBYTE,#02H	;發送2字節數據
	LCALL	IWRNBYTE	;調用寫2字節數據程序
	
	LCALL	DELAY
	SJMP 	DISP_LOOP	;溫度循環采集顯示

;-------讀出轉換后的溫度值
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 		; 發出溫度轉換命令
	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 	; 發出讀溫度命令
	LCALL 	WRITE_1820
	LCALL 	READ_18200 	;READ_1820
	RET

;-------讀DS18B20的程序,從DS18B20中讀出一個字節的數據
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
WR1820:	CLR 	DQ
	MOV 	R3,#6
	DJNZ 	R3,$
	RRC 	A
	MOV 	DQ,C
	MOV 	R3,#23
	DJNZ 	R3,$
	SETB 	DQ
	NOP
	DJNZ 	R2,WR1820
	SETB 	DQ
	RET

;-------讀DS18B20的程序,從DS18B20中讀出兩個字節的溫度數據
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中讀出的溫度數據進行轉換
TEMPER_COV:
	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
	ADD 	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

;-------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 ; 發SKIP ROM命令
	LCALL 	WRITE_1820
	MOV 	A,#4EH ; 發寫暫存存儲器命令
	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

$INCLUDE(VI2C_ASM.INC)		;包含VIIC軟件包
	END