QkoSad
209 lines
2.8 KiB
Plaintext
Executable File
209 lines
2.8 KiB
Plaintext
Executable File
function Bat.new 0
|
|
push constant 5
|
|
call Memory.alloc 1
|
|
pop pointer 0
|
|
push argument 0
|
|
pop this 0
|
|
push argument 1
|
|
pop this 1
|
|
push argument 2
|
|
pop this 2
|
|
push argument 3
|
|
pop this 3
|
|
push constant 2
|
|
pop this 4
|
|
push pointer 0
|
|
call Bat.show 1
|
|
pop temp 0
|
|
push pointer 0
|
|
return
|
|
function Bat.dispose 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push pointer 0
|
|
call Memory.deAlloc 1
|
|
pop temp 0
|
|
push constant 0
|
|
return
|
|
function Bat.show 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push constant 1
|
|
neg
|
|
call Screen.setColor 1
|
|
pop temp 0
|
|
push pointer 0
|
|
call Bat.draw 1
|
|
pop temp 0
|
|
push constant 0
|
|
return
|
|
function Bat.hide 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push constant 0
|
|
call Screen.setColor 1
|
|
pop temp 0
|
|
push pointer 0
|
|
call Bat.draw 1
|
|
pop temp 0
|
|
push constant 0
|
|
return
|
|
function Bat.draw 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push this 0
|
|
push this 1
|
|
push this 0
|
|
push this 2
|
|
add
|
|
push this 1
|
|
push this 3
|
|
add
|
|
call Screen.drawRectangle 4
|
|
pop temp 0
|
|
push constant 0
|
|
return
|
|
function Bat.setDirection 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push argument 1
|
|
pop this 4
|
|
push constant 0
|
|
return
|
|
function Bat.getLeft 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push this 0
|
|
return
|
|
function Bat.getRight 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push this 0
|
|
push this 2
|
|
add
|
|
return
|
|
function Bat.setWidth 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push pointer 0
|
|
call Bat.hide 1
|
|
pop temp 0
|
|
push argument 1
|
|
pop this 2
|
|
push pointer 0
|
|
call Bat.show 1
|
|
pop temp 0
|
|
push constant 0
|
|
return
|
|
function Bat.move 0
|
|
push argument 0
|
|
pop pointer 0
|
|
push this 4
|
|
push constant 1
|
|
eq
|
|
not
|
|
if-goto L0
|
|
push this 0
|
|
push constant 4
|
|
sub
|
|
pop this 0
|
|
push this 0
|
|
push constant 0
|
|
lt
|
|
not
|
|
if-goto L1
|
|
push constant 0
|
|
pop this 0
|
|
goto L2
|
|
label L1
|
|
label L2
|
|
push constant 0
|
|
call Screen.setColor 1
|
|
pop temp 0
|
|
push this 0
|
|
push this 2
|
|
add
|
|
push constant 1
|
|
add
|
|
push this 1
|
|
push this 0
|
|
push this 2
|
|
add
|
|
push constant 4
|
|
add
|
|
push this 1
|
|
push this 3
|
|
add
|
|
call Screen.drawRectangle 4
|
|
pop temp 0
|
|
push constant 1
|
|
neg
|
|
call Screen.setColor 1
|
|
pop temp 0
|
|
push this 0
|
|
push this 1
|
|
push this 0
|
|
push constant 3
|
|
add
|
|
push this 1
|
|
push this 3
|
|
add
|
|
call Screen.drawRectangle 4
|
|
pop temp 0
|
|
goto L3
|
|
label L0
|
|
push this 0
|
|
push constant 4
|
|
add
|
|
pop this 0
|
|
push this 0
|
|
push this 2
|
|
add
|
|
push constant 511
|
|
gt
|
|
not
|
|
if-goto L4
|
|
push constant 511
|
|
push this 2
|
|
sub
|
|
pop this 0
|
|
goto L5
|
|
label L4
|
|
label L5
|
|
push constant 0
|
|
call Screen.setColor 1
|
|
pop temp 0
|
|
push this 0
|
|
push constant 4
|
|
sub
|
|
push this 1
|
|
push this 0
|
|
push constant 1
|
|
sub
|
|
push this 1
|
|
push this 3
|
|
add
|
|
call Screen.drawRectangle 4
|
|
pop temp 0
|
|
push constant 1
|
|
neg
|
|
call Screen.setColor 1
|
|
pop temp 0
|
|
push this 0
|
|
push this 2
|
|
add
|
|
push constant 3
|
|
sub
|
|
push this 1
|
|
push this 0
|
|
push this 2
|
|
add
|
|
push this 1
|
|
push this 3
|
|
add
|
|
call Screen.drawRectangle 4
|
|
pop temp 0
|
|
label L3
|
|
push constant 0
|
|
return
|