DL01          
	
	nop
	DECFSZ R4L,F
	BRA DL01
	RETURN

 DL02
	MOVLW 0x01
	SUBWF R4L,F
	CLRF WREG
	BTFSS STATUS,C
	ADDLW 0x01
	SUBWF R4H,F
	BTFSS STATUS,C
	RETURN
	BRA DL02	
	
                       	
; 1-wire Routine
WW01	
	BCF LATB,1
	BCF TRISB,1
	MOVLW 0xAB
	MOVWF R4L
	RCALL DL01
	BSF TRISB,1
	MOVLW 0x17
	MOVWF R4L
	RCALL DL01
	BTFSC PORTB,1
	BSF STATUS,C
	BTFSS PORTB,1
	BCF STATUS,C
	MOVLW 0xA5
	MOVWF R4L
	RCALL DL01
	RETURN

WW02	
	BCF LATB,1
	BCF TRISB,1
	NOP
	NOP
	BSF TRISB,1
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	BTFSC PORTB,1
	BSF STATUS,C
	BTFSS PORTB,1
	BCF STATUS,C
	MOVLW 0x15
	MOVWF R4L
	RCALL DL01
	RETURN

WW03	
	BCF LATB,1
	BCF TRISB,1
	NOP
	NOP
	BSF LATB,1
	MOVLW 0x17
	MOVWF R4L
	RCALL DL01
	BSF TRISB,1
	NOP
	NOP
	NOP
	RETURN

WW04	
	BCF LATB,1
	BCF TRISB,1
	MOVLW 0x18
	MOVWF R4L
	RCALL DL01
	BSF TRISB,1
	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	
	MOVLW 0x08
	MOVWF R3L
WW08
	RCALL WW02
	RRCF R3H,F
	DECFSZ R3L,F
	BRA WW08
	MOVF R3H,W
	RETURN