-hellostr
	/putstr
	RET

@putstr ( str -- )
	DUP LDA WRT  ( write )
	INC          ( increment pointer )
	DUP LDA      ( loop until end of string )
	JNZ ,putstr
	POP
	RET

( "hello world" )
@hellostr 0068 0065 006c 006c 006f 0020 0077 006f 0072 006c 0064 000a 0000