704 lines
9.7 KiB
Plaintext
704 lines
9.7 KiB
Plaintext
Plane::init:
|
|
pToa casts
|
|
not
|
|
bnt code_009b
|
|
pushi $9f ; 159, add
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
aTop casts
|
|
send $4
|
|
bnot
|
|
code_009b: push0
|
|
push1
|
|
pushSelf
|
|
pToa casts
|
|
send $6
|
|
bnot
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
lap param[$0]
|
|
bnt code_00c4
|
|
pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
self $c
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
code_00c4: ret
|
|
|
|
Plane::dispose:
|
|
link $1
|
|
pToa casts
|
|
bnt code_00e8
|
|
lag global[$3]
|
|
bnt code_00df
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa casts
|
|
send $6
|
|
bnot
|
|
code_00df: pushi $95 ; 149, dispose
|
|
push0
|
|
pToa casts
|
|
send $4
|
|
bnot
|
|
code_00e8: ldi $0
|
|
aTop bitmap
|
|
aTop casts
|
|
pushi $1ba ; 442, erase
|
|
push0
|
|
self $4
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_11, $2
|
|
bnot
|
|
ret
|
|
|
|
Plane::addCast:
|
|
pToa casts
|
|
bnt code_011a
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $9f ; 159, add
|
|
push0
|
|
push0
|
|
push1
|
|
pushSelf
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
lap param[$1]
|
|
send $e
|
|
bnot
|
|
push
|
|
pToa casts
|
|
send $6
|
|
bnot
|
|
code_011a: ret
|
|
|
|
Plane::deleteCast:
|
|
pToa casts
|
|
bnt code_0134
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
push0
|
|
push1
|
|
push0
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
push
|
|
pToa casts
|
|
send $6
|
|
bnot
|
|
code_0134: ret
|
|
|
|
Plane::draw:
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
pushSelf
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_0154
|
|
push1
|
|
pushSelf
|
|
callk kernel_40, $2
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
jmp code_015a
|
|
|
|
code_0154: push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
code_015a: ret
|
|
|
|
Plane::erase:
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
pushSelf
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
bnt code_0176
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_41, $2
|
|
bnot
|
|
code_0176: ret
|
|
|
|
Plane::drawPic:
|
|
lap param[$1]
|
|
aTop picture
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0186
|
|
lap param[$2]
|
|
aTop style
|
|
code_0186: pTos style
|
|
ldi $400 ; 1024, pEndurance
|
|
and
|
|
bnt code_0192
|
|
ldi $1
|
|
jmp code_0194
|
|
|
|
code_0192: ldi $0
|
|
code_0194: aTop mirrored
|
|
pushi $45 ; 69, 'E', doit
|
|
push2
|
|
pushSelf
|
|
pTos style
|
|
class Styler
|
|
send $8
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
ret
|
|
|
|
Plane::posn:
|
|
link $8
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_01df
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
jmp code_022c
|
|
|
|
code_01df: lag global[$3]
|
|
bnt code_021a
|
|
push0
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
bnt code_021a
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
jmp code_022c
|
|
|
|
code_021a: ldi $0
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$3]
|
|
ldi $27f ; 639, rename
|
|
sat temp[$4]
|
|
ldi $1df ; 479, validKey
|
|
sat temp[$5]
|
|
code_022c: pTos right
|
|
pToa left
|
|
sub
|
|
sat temp[$0]
|
|
pTos bottom
|
|
pToa top
|
|
sub
|
|
sat temp[$1]
|
|
lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0255
|
|
lst temp[$2]
|
|
lst temp[$4]
|
|
lat temp[$2]
|
|
sub
|
|
push
|
|
lat temp[$0]
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
add
|
|
sap param[$1]
|
|
jmp code_025c
|
|
|
|
code_0255: lsp param[$1]
|
|
lat temp[$2]
|
|
add
|
|
sap param[$1]
|
|
code_025c: lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0277
|
|
lst temp[$3]
|
|
lst temp[$5]
|
|
lat temp[$3]
|
|
sub
|
|
push
|
|
lat temp[$1]
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
add
|
|
sap param[$2]
|
|
jmp code_027e
|
|
|
|
code_0277: lsp param[$2]
|
|
lat temp[$3]
|
|
add
|
|
sap param[$2]
|
|
code_027e: pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$1]
|
|
lat temp[$0]
|
|
add
|
|
push
|
|
lsp param[$2]
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
self $c
|
|
bnot
|
|
ret
|
|
|
|
Plane::scaleBitmap:
|
|
link $b
|
|
lap param[$0]
|
|
bnt code_02b0
|
|
lap param[$1]
|
|
sat temp[$7]
|
|
lap param[$2]
|
|
sat temp[$8]
|
|
lap param[$3]
|
|
sat temp[$9]
|
|
lap param[$4]
|
|
sat temp[$a]
|
|
jmp code_02c0
|
|
|
|
code_02b0: pToa left
|
|
sat temp[$7]
|
|
pToa top
|
|
sat temp[$8]
|
|
pToa right
|
|
sat temp[$9]
|
|
pToa bottom
|
|
sat temp[$a]
|
|
code_02c0: pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa bitmap
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pToa bitmap
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
lst temp[$9]
|
|
lat temp[$7]
|
|
sub
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$0]
|
|
lst temp[$a]
|
|
lat temp[$8]
|
|
sub
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$2]
|
|
lst temp[$0]
|
|
ldi $fa ; 250, lower
|
|
lt?
|
|
bnt code_0301
|
|
lst temp[$0]
|
|
ldi $80 ; 128, lastKey
|
|
mul
|
|
push
|
|
lat temp[$1]
|
|
div
|
|
sat temp[$4]
|
|
jmp code_0315
|
|
|
|
code_0301: lst temp[$0]
|
|
ldi $2
|
|
div
|
|
push
|
|
ldi $80 ; 128, lastKey
|
|
mul
|
|
push
|
|
lat temp[$1]
|
|
div
|
|
push
|
|
ldi $2
|
|
mul
|
|
sat temp[$4]
|
|
code_0315: lst temp[$2]
|
|
ldi $80 ; 128, lastKey
|
|
mul
|
|
push
|
|
lat temp[$3]
|
|
div
|
|
sat temp[$5]
|
|
pushi $6a ; 106, 'j', scaleSignal
|
|
push1
|
|
push1
|
|
pushi $4 ; scaleX
|
|
push1
|
|
lst temp[$4]
|
|
pushi $5 ; scaleY
|
|
push1
|
|
push
|
|
pToa bitmap
|
|
send $12
|
|
bnot
|
|
push1
|
|
pTos bitmap
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|
|
Plane::setBitmap:
|
|
link $4
|
|
pToa bitmap
|
|
bnt code_034e
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop bitmap
|
|
jmp code_0361
|
|
|
|
code_034e: pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_0361: lsp param[$0]
|
|
ldi $3 ; z
|
|
lt?
|
|
bnt code_038f
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
push0
|
|
push0
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lst temp[$0]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop bitmap
|
|
send $e
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_03c3
|
|
lap param[$2]
|
|
sat temp[$3]
|
|
jmp code_03c3
|
|
|
|
code_038f: pushi $e ; 14, view
|
|
push1
|
|
lsp param[$1]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
lsp param[$2]
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
lsp param[$3]
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
push0
|
|
push0
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lst temp[$0]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
aTop bitmap
|
|
send $20
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_03c3
|
|
lap param[$4]
|
|
sat temp[$3]
|
|
code_03c3: pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa bitmap
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pToa bitmap
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
lat temp[$3]
|
|
bnt code_03e5
|
|
pushi $1bc ; 444, scaleBitmap
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_03fe
|
|
|
|
code_03e5: pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
pTos left
|
|
pTos top
|
|
pTos left
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
pTos top
|
|
lat temp[$2]
|
|
add
|
|
push
|
|
self $c
|
|
bnot
|
|
code_03fe: ret
|
|
|
|
Plane::setSize:
|
|
link $5
|
|
pToa casts
|
|
bnt code_04c9
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
pushi $3 ; z
|
|
pushi $24 ; 36, '$', elements
|
|
push0
|
|
pToa casts
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$1]
|
|
code_0423: lat temp[$1]
|
|
bnt code_049a
|
|
pushi $9e ; 158, nextNode
|
|
push1
|
|
push2
|
|
pushi $6 ; maxScale
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
push
|
|
pToa casts
|
|
send $6
|
|
bnot
|
|
push2
|
|
pushi $8 ; fixPriority
|
|
lst temp[$1]
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$3]
|
|
push2
|
|
pushi $3 ; z
|
|
pushi $24 ; 36, '$', elements
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$2]
|
|
code_0455: lat temp[$2]
|
|
bnt code_048d
|
|
pushi $9e ; 158, nextNode
|
|
push1
|
|
push2
|
|
pushi $6 ; maxScale
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
push
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
push2
|
|
pushi $8 ; fixPriority
|
|
lst temp[$2]
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $af ; 175, union
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $9e ; 158, nextNode
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
jmp code_0455
|
|
|
|
code_048d: pushi $9e ; 158, nextNode
|
|
push0
|
|
pToa casts
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_0423
|
|
|
|
code_049a: pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
pTos left
|
|
pTos top
|
|
pTos left
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
add
|
|
push
|
|
pTos top
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
add
|
|
push
|
|
self $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_04c9: ret
|
|
|
|
Plane::hide:
|
|
pTos priority
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_04df
|
|
pToa priority
|
|
aTop pOldPri
|
|
ldi $ff ; 255, asInteger
|
|
aTop priority
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
code_04df: ret
|
|
|
|
Plane::show:
|
|
pTos priority
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_04f1
|
|
pToa pOldPri
|
|
aTop priority
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
code_04f1: ret
|
|
|
|
Plane::isHidden:
|
|
pTos priority
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
ret
|
|
|