222 lines
2.9 KiB
Plaintext
222 lines
2.9 KiB
Plaintext
Server::init:
|
|
pushi $3 ; z
|
|
push0
|
|
push1
|
|
pushi $bb8 ; 3000, BAD SELECTOR
|
|
callk kernel_126, $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
selfID
|
|
sag global[$6a]
|
|
ret
|
|
|
|
Server::dispose:
|
|
ldi $0
|
|
sag global[$6a]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Server::doit:
|
|
pToa script
|
|
bnt code_0074
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0074: ret
|
|
|
|
Server::add:
|
|
link $1
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $2cb ; 715, pServIDLo
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2cc ; 716, pServIDHi
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $8
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
push1
|
|
push1
|
|
lst temp[$0]
|
|
lsp param[$1]
|
|
callk kernel_126, $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Server::delete:
|
|
link $1
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $2cb ; 715, pServIDLo
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2cc ; 716, pServIDHi
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $8
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
push2
|
|
push1
|
|
lst temp[$0]
|
|
lsp param[$1]
|
|
callk kernel_126, $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Server::lookup:
|
|
link $2
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_0107
|
|
pushi $3 ; z
|
|
dup
|
|
push1
|
|
lsp param[$1]
|
|
callk kernel_126, $6
|
|
bnot
|
|
ret
|
|
|
|
jmp code_0135
|
|
|
|
code_0107: pushi $b5 ; 181, set
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $8
|
|
bnot
|
|
pushi $3 ; z
|
|
dup
|
|
push1
|
|
lst temp[$0]
|
|
callk kernel_126, $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$1]
|
|
ret
|
|
|
|
code_0135: ret
|
|
|
|
Server::lookupObj:
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $2ca ; 714, pServID
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0170
|
|
pushi $2c8 ; 712, lookup
|
|
push2
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_018c
|
|
|
|
code_0170: pushi $2c8 ; 712, lookup
|
|
push2
|
|
pushi $2cb ; 715, pServIDLo
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2cc ; 716, pServIDHi
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
code_018c: ret
|
|
|
|
Server::setScript:
|
|
lap param[$1]
|
|
bnt code_019b
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_019b: ret
|
|
|