BCF 	TRISB,3		
	MOVLW	0x80			
	MOVWF	T0CON			
HERE	CLRF  TMR0H
	CLRF 	TMR0L			
	BCF 	INTCON,TMR0IF	
	CALL 	DELAY		
	BTG	PORTB,3		
	BRA 	HERE			
DELAY	BSF 	T0CON,TMR0ON	
AGAIN	BTFSS	INTCON,TMR0IF	
	BRA	AGAIN			
	BCF 	T0CON,TMR0ON 	
	RETURN