	opt	forwardrefmax
	ORG	$3000
START	LDD	#32
	LDX	#STR	
	JSR	PRINT
	RTS	;return to basic
PPOS	FCB	0,0
STR	FCN	"HELLO 1234567890 hello 1234567890"
PRINT	STD	PPOS
	LDD	#$400
	ADDD	PPOS
	TFR	D,Y
PLP1	LDA	,X+
	STA	,Y+
	LDA	,X
	CMPA	#0
	BNE	PLP1
	RTS
	END	START


