LDAA 	#$FF		
	STAA	DDRB			
	BCLR	DDRT,%00001000	
	LDAA 	#%00001000		
	STAA	ICPAR			
	LDAA 	#%01000000			
	STAA	TCTL4			
	LDAA  #0
	STAA  PACN3	
OVER	LDAA	PACN3	
	STAA	PORTB	
	BRA	OVER