25 lines
346 B
Text
25 lines
346 B
Text
%\n { 0a } %\0 { 00 }
|
|
|
|
|18 @Console/write
|
|
|
|
|100
|
|
|
|
;str2 ;str1 copy-str
|
|
;str2 print-str
|
|
|
|
BRK
|
|
|
|
@copy/str ( dest* src* -: )
|
|
STH2
|
|
&loop
|
|
LDAkr STH2k STAr INC2 LDAkr STHr INC2r ?/loop
|
|
POP2 POP2r
|
|
JMP2r
|
|
|
|
@print/str_ ( str* -: )
|
|
LDAk .Console/write DEO
|
|
INC2 @print/str LDAk ?/str_
|
|
POP2 JMP2r
|
|
|
|
@str1 "Uxntal \n \0
|
|
@str2
|