utport	EQU	$400
	ORG	$1000
	
	LDAB	#5
	STAB	var
start:
	LDAA	#1
loop_start:	
	STAA	utport
	LDAB	#$FF
	PSHB
	JSR	delay
	LEAS	-1,SP
	LSLA
	BEQ	start
	BRA	loop_start
	
	USE	delay.s12
	
var	RMB	100