CLRF	TRISB		
	CLRF	PORTB		
AGAIN	INCF	PORTB,F 	
	BTFSS	PORTB,4	
	BRA	AGAIN
	GOTO	$