BCLR	DDRB,%00000100		
	LDAA	#$FF		
	STAA  DDRA				
	BSET 	DDRE,%00001000		
	LDAA	#$45				
AGAIN	BRSET	PORTB,%00000100,OVER	
	BRA	AGAIN				
OVER	STAA	PORTA				
	BSET	PORTE,%00001000		
	BCLR	PORTE,%00000000