RCOUNT EQU	$820			
	BSET	 DDRB,%00000010	
	CLC 	 			
	LDAA	 #8			
	STAA	 RCOUNT		
	LDAA	 #$41			
	BSET 	 PORTB,%00000010	
AGAIN	LSRA	 			
	BCC	 OVER			
	BSET	 PORTB,%00000010	
	BRA	 NEXT
OVER	BCLR	 PORTB,%00000010	
NEXT	DEC	 RCOUNT
	BNE	 AGAIN
	BSET 	 PORTB,%00000010