MYBITREG EQU 0x20	
	BSF	TRISB,0	
AGAIN	BTFSS PORTB,0 	
	GOTO	OVER		
	BSF	MYBITREG,0	
	GOTO	AGAIN		
OVER	BCF	MYBITREG,0	
	GOTO	AGAIN