BCF 	TRISB,1		
	BSF 	TRISA,4		
	MOVLW	0x68			
	MOVWF	T0CON			
	MOVLW	-D'100'		
	MOVWF	TMR0L			
	BCF 	INTCON,TMR0IF	
	BSF 	T0CON,TMR0ON	
AGAIN	BTFSS	INTCON,TMR0IF	
	BRA	AGAIN			
	BCF	T0CON,TMR0ON 	
OVER	BTG	PORTB,1		
	CALL	DELAY			
	GOTO	OVER