COUNTER	EQU	$C03F
*INPUT	EQU	#$C040

	ORG	$c000
	LDX	#$C040
	LDAB	#$51 ;LOAD Q TO B
	LDAA	#0
	STAA	COUNTER
INLOOP	JSR	$FFCD
	STAA	0,X
	INX
	INC	COUNTER
	CBA
	BNE	INLOOP

	JSR	$FFC4
	JSR	$FFC4

	LDX	#$C040
LOOP2	LDAA	0,X
	JSR	$FFB8
	INX
	DEC	COUNTER
	BNE	LOOP2
	SWI