1 2 3 4 5 6 7 8 9 10 11 12 13 14
-hellostr JRT ,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