DL01          
	;nop
	nop
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ R4L,F
	BRA DL01
	RETURN

 DL02
	MOVLW 0x04
	SUBWF R4L,F
	CLRF WREG
	BTFSS STATUS,C
	ADDLW 0x04
	SUBWF R4H,F
	BTFSS STATUS,C
	RETURN
	BRA DL02	
	
                       	
; 1-wire Routine
WW01
	BCF INTCON,GIE	
	BCF  DS18B20_outlatch
	BCF  DS18B20_DIR 
	MOVLW 0xFF
	MOVWF R4L
	RCALL DL01
	BSF  DS18B20_DIR 
	MOVLW 0xF6
	MOVWF R4L
	RCALL DL01
	BTFSC DS18B20_IO 
	BSF STATUS,C
	BTFSS  DS18B20_IO 
	BCF STATUS,C
	MOVLW 0xFF
	MOVWF R4L
	RCALL DL01
	BSF INTCON,GIE
	RETURN

WW02	
	BCF  DS18B20_outlatch
	BCF DS18B20_DIR 
	;NOP
	NOP
	BSF  DS18B20_DIR 
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	BTFSC  DS18B20_IO 
	BSF STATUS,C
	BTFSS  DS18B20_IO 
	BCF STATUS,C
	MOVLW 0x85  ;15
	MOVWF R4L
	RCALL DL01
	RETURN

WW03	
	BCF DS18B20_outlatch
	BCF DS18B20_DIR 
	NOP
	NOP
	BSF DS18B20_outlatch
	MOVLW 0x37  ;17
	MOVWF R4L
	RCALL DL01
	BSF  DS18B20_DIR 
	NOP
	;NOP
	;NOP
	NOP
	RETURN

WW04	
	BCF DS18B20_outlatch
	BCF DS18B20_DIR 
	MOVLW 0x32  ;18
	MOVWF R4L
	RCALL DL01
	BSF  DS18B20_DIR 
	NOP
	;NOP
	;NOP
	NOP
	RETURN
WW05	
	MOVWF R3H
	MOVLW 0x08
	MOVWF R3L
WW06
	BTFSC R3H,0
	RCALL WW03
	BTFSS R3H,0
	RCALL WW04
	RRCF R3H,F
	DECFSZ R3L,F
	BRA WW06
	RETURN

WW07
	BCF INTCON,GIE	
	MOVLW 0x08
	MOVWF R3L
WW08
	RCALL WW02
	RRCF R3H,F
	DECFSZ R3L,F
	BRA WW08
	MOVF R3H,W
	BSF INTCON,GIE
	RETURN