739 lines
11 KiB
Plaintext
739 lines
11 KiB
Plaintext
RlmInfoBar::dispose:
|
|
pushi $37c ; 892, deleteStatusBox
|
|
push1
|
|
pTos pEgoBoxSet
|
|
self $6
|
|
bnot
|
|
pushi $37c ; 892, deleteStatusBox
|
|
push1
|
|
pTos pLeftBoxSet
|
|
self $6
|
|
bnot
|
|
pushi $37c ; 892, deleteStatusBox
|
|
push1
|
|
pTos pRightBoxSet
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pEgoBoxSet
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pLeftBoxSet
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pRightBoxSet
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Plane, $4
|
|
bnot
|
|
ret
|
|
|
|
RlmInfoBar::deleteStatusBox:
|
|
link $4
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_013d
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_013d
|
|
lst temp[$0]
|
|
ldi $0
|
|
eq?
|
|
code_00d1: lst temp[$0]
|
|
lat temp[$1]
|
|
lt?
|
|
bnt code_011c
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_010d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class View
|
|
push
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
bnt code_010d
|
|
push1
|
|
lst temp[$3]
|
|
callk kernel_31, $2
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
code_010d: pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$0]
|
|
push0
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_00d1
|
|
|
|
code_011c: pushi $3 ; z
|
|
pushi $2335 ; 9013
|
|
push0
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$2]
|
|
push
|
|
pToa bottom
|
|
ne?
|
|
bnt code_013d
|
|
lat temp[$2]
|
|
aTop bottom
|
|
ldi $fe ; 254, strIndex
|
|
aTop picture
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
code_013d: ret
|
|
|
|
RlmInfoBar::init:
|
|
ret
|
|
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push0
|
|
pushi $27f ; 639, rename
|
|
pushi $3 ; z
|
|
pushi $2335 ; 9013
|
|
push0
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
super Plane, $c
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
aTop pCast
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pTos pCast
|
|
self $6
|
|
bnot
|
|
pToa pBar
|
|
not
|
|
bnt code_01a3
|
|
ldi $1
|
|
aTop pBar
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push2
|
|
class IntArray
|
|
send $6
|
|
bnot
|
|
aTop pEgoBoxSet
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $4 ; scaleX
|
|
class IntArray
|
|
send $6
|
|
bnot
|
|
aTop pLeftBoxSet
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $4 ; scaleX
|
|
class IntArray
|
|
send $6
|
|
bnot
|
|
aTop pRightBoxSet
|
|
jmp code_01a9
|
|
|
|
code_01a3: pushi $75 ; 117, 'u', show
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_01a9: ret
|
|
|
|
RlmInfoBar::setBarText:
|
|
link $3
|
|
pToa pText
|
|
bnt code_01bb
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pText
|
|
code_01bb: pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_0058 ; "%s"
|
|
push
|
|
lsp param[$1]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $14 ; 20, nsRight
|
|
callk kernel_70, $6
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $192 ; 402, getName
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
sat temp[$2]
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
pushi $1a ; 26, signal
|
|
pushi $32b ; 811, pShadowColor
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
pushi $14 ; 20, nsRight
|
|
pushi $94 ; 148, init
|
|
pushi $6 ; maxScale
|
|
lst temp[$0]
|
|
push
|
|
pushi $9 ; inLeft
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
pTos pCast
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class ShadowText
|
|
send $4
|
|
bnot
|
|
aTop pText
|
|
send $26
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
RlmInfoBar::updateBar:
|
|
link $10
|
|
lsp param[$3]
|
|
ldi $0
|
|
lt?
|
|
bnt code_0230
|
|
ret
|
|
|
|
code_0230: lsp param[$3]
|
|
ldi $0
|
|
eq?
|
|
bnt code_024d
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_024d
|
|
pushi $4 ; scaleX
|
|
pushi $6 ; maxScale
|
|
pushi $5 ; scaleY
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
callk kernel_118, $8
|
|
bnot
|
|
ret
|
|
|
|
code_024d: ret
|
|
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$d]
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $113 ; 275, mul
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$d]
|
|
send $6
|
|
bnot
|
|
pushi $115 ; 277, div
|
|
push1
|
|
lsp param[$2]
|
|
lat temp[$d]
|
|
send $6
|
|
bnot
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
sat temp[$7]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
lst temp[$7]
|
|
ldi $64 ; 100, 'd', moveDone
|
|
gt?
|
|
bnt code_0299
|
|
ldi $64 ; 100, 'd', moveDone
|
|
sat temp[$7]
|
|
jmp code_02a4
|
|
|
|
code_0299: lst temp[$7]
|
|
ldi $0
|
|
lt?
|
|
bnt code_02a4
|
|
ldi $0
|
|
sat temp[$7]
|
|
code_02a4: lsp param[$3]
|
|
ldi $1
|
|
eq?
|
|
bnt code_02b6
|
|
lsp param[$1]
|
|
ldi $0
|
|
lt?
|
|
bnt code_02b6
|
|
ldi $0
|
|
sap param[$1]
|
|
code_02b6: lst temp[$7]
|
|
ldi $32 ; 50, '2', edit
|
|
gt?
|
|
bnt code_02c3
|
|
ldi $53 ; 83, 'S', restore
|
|
sat temp[$0]
|
|
jmp code_02d4
|
|
|
|
code_02c3: lst temp[$7]
|
|
ldi $1e ; 30, brRight
|
|
gt?
|
|
bnt code_02d0
|
|
ldi $40 ; 64, '@', yStep
|
|
sat temp[$0]
|
|
jmp code_02d4
|
|
|
|
code_02d0: ldi $3b ; 59, ';', b_i2
|
|
sat temp[$0]
|
|
code_02d4: ldi $0
|
|
sat temp[$9]
|
|
ldi $0
|
|
sat temp[$8]
|
|
pushi $3 ; z
|
|
pushi $2335 ; 9013
|
|
push1
|
|
push0
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $3 ; z
|
|
pushi $2335 ; 9013
|
|
push1
|
|
push0
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$3]
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_03c0
|
|
lsp param[$1]
|
|
ldi $0
|
|
le?
|
|
bnt code_0318
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_005b ; "%s: Dead"
|
|
push
|
|
lsp param[$5]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$5]
|
|
jmp code_032d
|
|
|
|
code_0318: pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_0064 ; "%s %d"
|
|
push
|
|
lsp param[$5]
|
|
lsp param[$1]
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$5]
|
|
code_032d: ldi $0
|
|
sat temp[$e]
|
|
lsp param[$3]
|
|
lat temp[$4]
|
|
mul
|
|
sat temp[$a]
|
|
pushi $3 ; z
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$5]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $3e7 ; 999, pUpdatorList
|
|
callk kernel_70, $6
|
|
bnot
|
|
sat temp[$6]
|
|
push
|
|
lat temp[$3]
|
|
gt?
|
|
bnt code_035b
|
|
lst temp[$6]
|
|
ldi $4 ; scaleX
|
|
add
|
|
sat temp[$3]
|
|
code_035b: lsp param[$4]
|
|
ldi $0
|
|
eq?
|
|
bnt code_0380
|
|
pushi $87 ; 135, left
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
lag global[$d3]
|
|
bnt code_037a
|
|
ldi $f ; 15, loop
|
|
sat temp[$e]
|
|
code_037a: pToa pLeftBoxSet
|
|
sat temp[$c]
|
|
jmp code_0398
|
|
|
|
code_0380: pushi $88 ; 136, right
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$3]
|
|
sub
|
|
sat temp[$8]
|
|
pToa pRightBoxSet
|
|
sat temp[$c]
|
|
code_0398: lst temp[$a]
|
|
lat temp[$e]
|
|
add
|
|
sat temp[$9]
|
|
push
|
|
lat temp[$4]
|
|
add
|
|
sat temp[$a]
|
|
ldi $0
|
|
sat temp[$e]
|
|
lst temp[$a]
|
|
pToa bottom
|
|
gt?
|
|
bnt code_03cf
|
|
lat temp[$a]
|
|
aTop bottom
|
|
ldi $fe ; 254, strIndex
|
|
aTop picture
|
|
push1
|
|
pushSelf
|
|
callk kernel_42, $2
|
|
bnot
|
|
jmp code_03cf
|
|
|
|
code_03c0: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_006a ; "Error"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$5]
|
|
code_03cf: push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lsp param[$3]
|
|
lat temp[$c]
|
|
send $6
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_03f4
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lsp param[$3]
|
|
lat temp[$c]
|
|
send $6
|
|
bnot
|
|
push
|
|
callk kernel_31, $2
|
|
bnot
|
|
code_03f4: ldi $0
|
|
sat temp[$2]
|
|
lst temp[$c]
|
|
pToa pEgoBoxSet
|
|
ne?
|
|
bnt code_04ad
|
|
pushi $11 ; 17, bitmap
|
|
push1
|
|
pushi $5 ; scaleY
|
|
push0
|
|
lst temp[$3]
|
|
ldi $1
|
|
add
|
|
push
|
|
lst temp[$4]
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
lsg global[$54]
|
|
callk kernel_35, $a
|
|
bnot
|
|
push
|
|
push1
|
|
push1
|
|
lst temp[$8]
|
|
push2
|
|
push1
|
|
lst temp[$9]
|
|
pushi $7 ; priority
|
|
push1
|
|
pTos priority
|
|
ldi $1
|
|
add
|
|
push
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
send $1e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
push0
|
|
lst temp[$3]
|
|
push0
|
|
pushi $5 ; scaleY
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
lst temp[$4]
|
|
lst temp[$3]
|
|
lst temp[$4]
|
|
pushi $5 ; scaleY
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
push0
|
|
push0
|
|
lst temp[$4]
|
|
pushi $5 ; scaleY
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$3]
|
|
push0
|
|
lst temp[$3]
|
|
lst temp[$4]
|
|
pushi $5 ; scaleY
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lsp param[$3]
|
|
lst temp[$2]
|
|
lat temp[$c]
|
|
send $8
|
|
bnot
|
|
code_04ad: push1
|
|
lst temp[$2]
|
|
callk kernel_30, $2
|
|
bnot
|
|
ldi $0
|
|
sat temp[$1]
|
|
lat temp[$7]
|
|
bnt code_0519
|
|
lsp param[$3]
|
|
ldi $1
|
|
le?
|
|
bnt code_04c9
|
|
ldi $2
|
|
sat temp[$e]
|
|
jmp code_04cd
|
|
|
|
code_04c9: ldi $0
|
|
sat temp[$e]
|
|
code_04cd: lst temp[$3]
|
|
lat temp[$7]
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
push
|
|
lat temp[$e]
|
|
sub
|
|
sat temp[$f]
|
|
push
|
|
ldi $1
|
|
lt?
|
|
bnt code_04e6
|
|
ldi $1
|
|
sat temp[$f]
|
|
code_04e6: pushi $5 ; scaleY
|
|
push0
|
|
lst temp[$f]
|
|
lst temp[$4]
|
|
ldi $2
|
|
sub
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
lst temp[$0]
|
|
callk kernel_35, $a
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $5 ; scaleY
|
|
pushi $6 ; maxScale
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
push1
|
|
push1
|
|
callk kernel_35, $a
|
|
bnot
|
|
push2
|
|
push1
|
|
lst temp[$1]
|
|
callk kernel_35, $4
|
|
bnot
|
|
code_0519: pushi $f ; 15, loop
|
|
pushi $4 ; scaleX
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$5]
|
|
send $4
|
|
bnot
|
|
push
|
|
push1
|
|
pushi $4 ; scaleX
|
|
lst temp[$3]
|
|
lst temp[$4]
|
|
pushi $2b ; 43, '+', type
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
push0
|
|
callk kernel_35, $1e
|
|
bnot
|
|
lat temp[$5]
|
|
bnt code_0552
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0552: push1
|
|
lst temp[$2]
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|