QkoSad
107 lines
1.4 KiB
Plaintext
Executable File
107 lines
1.4 KiB
Plaintext
Executable File
function Main.main 1
|
|
push constant 8001
|
|
push constant 16
|
|
push constant 1
|
|
neg
|
|
call Main.fillMemory 3
|
|
pop temp 0
|
|
push constant 8000
|
|
call Memory.peek 1
|
|
pop local 0
|
|
push local 0
|
|
call Main.convert 1
|
|
pop temp 0
|
|
push constant 0
|
|
return
|
|
function Main.convert 3
|
|
push constant 1
|
|
neg
|
|
pop local 2
|
|
label L0
|
|
push local 2
|
|
not
|
|
if-goto L1
|
|
push local 1
|
|
push constant 1
|
|
add
|
|
pop local 1
|
|
push local 0
|
|
call Main.nextMask 1
|
|
pop local 0
|
|
push local 1
|
|
push constant 16
|
|
gt
|
|
not
|
|
not
|
|
if-goto L2
|
|
push argument 0
|
|
push local 0
|
|
and
|
|
push constant 0
|
|
eq
|
|
not
|
|
not
|
|
if-goto L3
|
|
push constant 8000
|
|
push local 1
|
|
add
|
|
push constant 1
|
|
call Memory.poke 2
|
|
pop temp 0
|
|
goto L4
|
|
label L3
|
|
push constant 8000
|
|
push local 1
|
|
add
|
|
push constant 0
|
|
call Memory.poke 2
|
|
pop temp 0
|
|
label L4
|
|
goto L5
|
|
label L2
|
|
push constant 0
|
|
pop local 2
|
|
label L5
|
|
goto L0
|
|
label L1
|
|
push constant 0
|
|
return
|
|
function Main.nextMask 0
|
|
push argument 0
|
|
push constant 0
|
|
eq
|
|
not
|
|
if-goto L6
|
|
push constant 1
|
|
return
|
|
goto L7
|
|
label L6
|
|
push argument 0
|
|
push constant 2
|
|
call Math.multiply 2
|
|
return
|
|
label L7
|
|
function Main.fillMemory 0
|
|
label L8
|
|
push argument 1
|
|
push constant 0
|
|
gt
|
|
not
|
|
if-goto L9
|
|
push argument 0
|
|
push argument 2
|
|
call Memory.poke 2
|
|
pop temp 0
|
|
push argument 1
|
|
push constant 1
|
|
sub
|
|
pop argument 1
|
|
push argument 0
|
|
push constant 1
|
|
add
|
|
pop argument 0
|
|
goto L8
|
|
label L9
|
|
push constant 0
|
|
return
|