20 lines
331 B
Tal
20 lines
331 B
Tal
|0100
|
|
LIT2r 0000 main POP2r BRK
|
|
|
|
@msg 6e 75 71 6e 65 48 20 27 75 27 3f 00
|
|
|
|
@main ( -- )
|
|
OVR2r LIT2r 0002 SUB2r
|
|
;msg STH2kr STA2
|
|
STH2kr LDA2 str/<println>
|
|
|
|
&return
|
|
POP2r JMP2r
|
|
|
|
@str/<print> ( str* -- )
|
|
LDAk DUP ?{ POP POP2 JMP2r }
|
|
#18 DEO
|
|
INC2 !/<print>
|
|
|
|
@str/<println> ( str* -- )
|
|
str/<print> #0a #18 DEO |