19 lines
240 B
Tal
19 lines
240 B
Tal
|
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
|
||
|
|
|
||
|
|
|100
|
||
|
|
|
||
|
|
@on-reset ( -> )
|
||
|
|
;my-string print-text
|
||
|
|
BRK
|
||
|
|
|
||
|
|
@print-text ( str* -- )
|
||
|
|
&while
|
||
|
|
LDAk .Console/write DEO
|
||
|
|
INC2 LDAk ?&while
|
||
|
|
POP2
|
||
|
|
JMP2r
|
||
|
|
|
||
|
|
@my-string
|
||
|
|
"Hello 20 "World! 00
|
||
|
|
|