BSF	TRISB,0	
	BCF	TRISB,7	
AGAIN	BTFSS	PORTB,0	
	GOTO	OVER		
	BSF	PORTB,7 
	GOTO	AGAIN		
OVER	BCF	PORTB,7
	GOTO	AGAIN