328 lines
4.6 KiB
Plaintext
328 lines
4.6 KiB
Plaintext
GroupMember::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop pServID
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
pToa pServID
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
GroupMember::dispose:
|
|
lag global[$d4]
|
|
bnt code_0091
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$d4]
|
|
code_0091: pToa pServID
|
|
bnt code_00a0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pServID
|
|
code_00a0: pToa pName
|
|
bnt code_00b8
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_00b8
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pName
|
|
send $4
|
|
bnot
|
|
code_00b8: ldi $0
|
|
aTop pName
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
GroupMember::servIDEquals:
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_00dc
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
pToa pServID
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_00e8
|
|
|
|
code_00dc: pushi $128 ; 296, equalLong
|
|
push1
|
|
lsp param[$1]
|
|
pToa pServID
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
code_00e8: ret
|
|
|
|
GroupList::delete:
|
|
lag global[$d4]
|
|
bnt code_00f8
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$d4]
|
|
code_00f8: pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
bt code_011e
|
|
lsp param[$1]
|
|
pToa pLeader
|
|
eq?
|
|
bt code_011e
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
eq?
|
|
code_011e: bnt code_01a5
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
aTop pLeader
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
self $6
|
|
bnot
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
not
|
|
bnt code_017d
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_017d
|
|
pushi $1b4 ; 436, enable
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $5 ; scaleY
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
jmp code_0190
|
|
|
|
code_017d: pushi $1b4 ; 436, enable
|
|
push2
|
|
push0
|
|
push1
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $5 ; scaleY
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
code_0190: pushi $382 ; 898, updatePanel
|
|
push1
|
|
pushi $383 ; 899, curPanel
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $6
|
|
bnot
|
|
jmp code_01b7
|
|
|
|
code_01a5: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
super Set, $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_01b7: ret
|
|
|
|
GroupList::add:
|
|
link $3
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bnt code_01c7
|
|
lap param[$1]
|
|
aTop pLeader
|
|
code_01c7: lsp param[$1]
|
|
pToa pLeader
|
|
eq?
|
|
not
|
|
bnt code_020b
|
|
pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
pToa pLeader
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_020b
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_020b
|
|
pushi $10f ; 271, setLong
|
|
push1
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
pToa pLeader
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_020b: pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
super Set, $6
|
|
bnot
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
not
|
|
bnt code_0249
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_0249
|
|
pushi $1b4 ; 436, enable
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $5 ; scaleY
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
jmp code_025c
|
|
|
|
code_0249: pushi $1b4 ; 436, enable
|
|
push2
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $5 ; scaleY
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
code_025c: pushi $382 ; 898, updatePanel
|
|
push1
|
|
pushi $383 ; 899, curPanel
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
GroupList::findByServID:
|
|
pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $37d ; 893, servIDEquals
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|