26 lines
250 B
Plaintext
26 lines
250 B
Plaintext
|
@ 0
|
||
|
args 0
|
||
|
size
|
||
|
#exec std/string/array/rev.lb
|
||
|
|
||
|
|
||
|
args 1
|
||
|
dup
|
||
|
@ 1
|
||
|
kjz 2
|
||
|
args 1
|
||
|
#exec std/rot.lb
|
||
|
#exec std/rot.lb
|
||
|
#expr -
|
||
|
jmp 1
|
||
|
|
||
|
@ 2
|
||
|
pop
|
||
|
;#exec std/string/array/rev.lb ; Finish getting arguments
|
||
|
|
||
|
#expr +
|
||
|
#exec std/rev.lb
|
||
|
pop
|
||
|
size
|
||
|
quit
|