MYREG EQU 0x37		
	CLRF	TRISB		
AGAIN	BTFSS	MYREG,0	
	GOTO	OVER		
	BCF	MYREG,0	
OVER	MOVFF	MYREG,PORTB	
	GOTO	AGAIN