INCLUDE 'mc9s12dp512.inc'
MYREG	EQU	$808		
	ORG	$8000
	LDS 	#$4000	
BACK	LDAA 	#$55		
	STAA  	PORTB		
	JSR 	DELAY		
	LDAA	#$AA		
	STAA	PORTB		
	JSR	DELAY	
	BRA 	BACK		
	ORG	$8300		
DELAY	LDAA	#$FF		
	STAA	MYREG
AGAIN	NOP			
	NOP
	DEC	MYREG	
	BNE 	AGAIN		
	RTS			
	END