Add std/string/array/concat.lb
This commit is contained in:
parent
5ac9f3e5da
commit
fcdb37b72f
25
std/string/array/concat.lb
Normal file
25
std/string/array/concat.lb
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
@ 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
|
Loading…
Reference in New Issue
Block a user