-hellostr
	/putstr
	RET

@putstr ( str -- )
	DUP LDA       ( read memory )
	DUP #00ff AND ( split the short in two )
	SWP #0008 RSF
	WRT WRT       ( write )
	INC           ( increment pointer )
	DUP LDA       ( loop until end of string )
	JNZ ,putstr
	POP
	kRET

( "hello world" )
@hellostr 6865 6c6c 6f20 776f 726c 640a 0000