BCLR	DDRB,%10000000		
	BSET	DDRA,%00000001		
BACK	BRSET PORTB,%10000000,TOG	
	BRA	BACK				
TOG	BCLR	PORTA,%00000001		
	BSET	PORTA,%00000001		
	BRA	BACK