BCF 	TRISB,0		
	MOVLW	0x48			
	MOVWF	T0CON			
	BCF 	INTCON,TMR0IF	
HERE	MOVLW	0x5			
	MOVWF	TMR0L			
	CALL	DELAY		
	BTG	PORTB,0		
	BRA 	HERE			
DELAY	BSF 	T0CON,TMR0ON	
AGAIN	BTFSS	INTCON,TMR0IF	
	BRA	AGAIN			
	BCF 	T0CON,TMR0ON	
	BCF 	INTCON,TMR0IF 	
	RETURN