RCOUNT	EQU	$820		
MYREG		EQU	$821		
	BCLR	DDRB,%10000000	
	LDAA	#8			
	STAA	RCOUNT		
	CLC				
AGAIN	BRCLR	PORTB,%10000000,NEXT	
	SEC				
	RORA				
	BRA	OVER
NEXT	CLC				
	RORA				
OVER	DEC	RCOUNT		
	BNE	AGAIN			
	STAA	MYREG