QkoSad
24 lines
333 B
Plaintext
Executable File
24 lines
333 B
Plaintext
Executable File
function Array.new 0
|
|
push argument 0
|
|
push constant 0
|
|
lt
|
|
not
|
|
if-goto L0
|
|
push constant 7
|
|
call Sys.error 1
|
|
pop temp 0
|
|
goto L1
|
|
label L0
|
|
label L1
|
|
push argument 0
|
|
call Memory.alloc 1
|
|
return
|
|
function Array.dispose 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push pointer 0
|
|
call Memory.deAlloc 1
|
|
pop temp 0
|
|
push constant 0
|
|
return
|