404 lines
5.7 KiB
Plaintext
404 lines
5.7 KiB
Plaintext
code_004d: add
|
|
link $9
|
|
pushi $b9 ; 185, localize
|
|
push1
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$1]
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$7]
|
|
ldi $0
|
|
sat temp[$4]
|
|
lst temp[$4]
|
|
lsp param[$0]
|
|
ldi $1
|
|
sub
|
|
lt?
|
|
bnt $d1
|
|
lat temp[$4]
|
|
lapi param[$2]
|
|
sat temp[$2]
|
|
bnt $cd
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
ldi $0
|
|
sat temp[$5]
|
|
lst temp[$5]
|
|
lat temp[$8]
|
|
lt?
|
|
bnt $cd
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
bnt $c9
|
|
push2
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
push
|
|
lat temp[$1]
|
|
gt?
|
|
bnt $c9
|
|
lat temp[$3]
|
|
sat temp[$0]
|
|
lat temp[$6]
|
|
sat temp[$1]
|
|
+at temp[$5]
|
|
jmp $94
|
|
|
|
+at temp[$4]
|
|
jmp $76
|
|
|
|
lat temp[$0]
|
|
bnt $de
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $ba ; 186, globalize
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
curNetMsg::dispose:
|
|
link $1
|
|
pToa data
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop data
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super NetMsg, $4
|
|
bnot
|
|
lat temp[$0]
|
|
aTop data
|
|
ldi $0
|
|
aTop claimed
|
|
ret
|
|
|
|
netMsgHandler::handleMsg:
|
|
link $2
|
|
pToa elements
|
|
bnt code_0146
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushSelf
|
|
class Sequence
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_0117: pushi $4c ; 76, 'L', next
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_013d
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_013d
|
|
pushi $9b ; 155, handleMsg
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0117
|
|
|
|
code_013d: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_0146: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
NetUser::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
super User, $4
|
|
bnot
|
|
lofsa netMsgHandler
|
|
sag global[$2f]
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $ff ; 255, asInteger
|
|
push2
|
|
callk kernel_91, $6
|
|
bnot
|
|
push
|
|
lofsa curNetMsg
|
|
aTop curMsg
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
NetUser::doit:
|
|
link $9
|
|
pToa curMsg
|
|
sat temp[$0]
|
|
ldi $1
|
|
sat temp[$5]
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_0182: lag global[$4f]
|
|
bnt code_0198
|
|
push2
|
|
pushi $d ; 13, seenRect
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_128, $4
|
|
bnot
|
|
sat temp[$3]
|
|
code_0198: bt code_019c
|
|
lat temp[$5]
|
|
code_019c: bnt code_02cb
|
|
ldi $0
|
|
sat temp[$5]
|
|
pToa curEvent
|
|
sat temp[$1]
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $7fff ; 32767
|
|
send $6
|
|
bnot
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pToa input
|
|
bnt code_01d7
|
|
lst temp[$2]
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bt code_01cc
|
|
lst temp[$2]
|
|
ldi $100 ; 256, strMax
|
|
eq?
|
|
code_01cc: bnt code_01d7
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lst temp[$1]
|
|
self $6
|
|
bnot
|
|
code_01d7: pToa controls
|
|
bnt code_02a6
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lag global[$4d]
|
|
send $4
|
|
bnot
|
|
bnt code_01f4
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $1ce ; 462, process
|
|
lst temp[$1]
|
|
lag global[$4d]
|
|
send $8
|
|
bnot
|
|
code_01f4: lag global[$1]
|
|
bnt code_0227
|
|
pToa controls
|
|
bnt code_0227
|
|
lst temp[$2]
|
|
ldi $100 ; 256, strMax
|
|
eq?
|
|
bnt code_0227
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_0227
|
|
pushi $316 ; 790, handleVerb
|
|
push1
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_02a6
|
|
|
|
code_0227: lag global[$1]
|
|
bnt code_0296
|
|
pToa controls
|
|
bnt code_0296
|
|
lst temp[$2]
|
|
ldi $100 ; 256, strMax
|
|
eq?
|
|
bnt code_0296
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $10 ; 16, cel
|
|
eq?
|
|
bnt code_0296
|
|
push2
|
|
lst temp[$1]
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
call code_004d, $4
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_02a6
|
|
pushi $2b ; 43, '+', type
|
|
push1
|
|
pushi $4000 ; 16384
|
|
pushi $31 ; 49, '1', message
|
|
push1
|
|
push2
|
|
lat temp[$1]
|
|
send $c
|
|
bnot
|
|
pushi $32d ; 813, pObj
|
|
push1
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
class WDragger
|
|
send $6
|
|
bnot
|
|
pushi $c8 ; 200, handleEvent
|
|
push2
|
|
lst temp[$1]
|
|
lst temp[$4]
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
pushi $32d ; 813, pObj
|
|
push1
|
|
push0
|
|
class WDragger
|
|
send $6
|
|
bnot
|
|
jmp code_02a6
|
|
|
|
code_0296: lst temp[$2]
|
|
ldi $0
|
|
ne?
|
|
bnt code_02a6
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lst temp[$1]
|
|
self $6
|
|
bnot
|
|
code_02a6: lat temp[$3]
|
|
bnt code_0182
|
|
pushi $2dc ; 732, _len_
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $9b ; 155, handleMsg
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$12]
|
|
send $6
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lag global[$6a]
|
|
send $4
|
|
bnot
|
|
jmp code_0182
|
|
|
|
code_02cb: ret
|
|
|
|
NetUser::nextNetMsg:
|
|
link $2
|
|
pToa curMsg
|
|
sat temp[$1]
|
|
push2
|
|
pushi $d ; 13, seenRect
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_128, $4
|
|
bnot
|
|
sat temp[$0]
|
|
not
|
|
bnt code_02e8
|
|
ldi $0
|
|
ret
|
|
|
|
code_02e8: pushi $2dc ; 732, _len_
|
|
push1
|
|
lst temp[$0]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
lat temp[$1]
|
|
send $a
|
|
bnot
|
|
lat temp[$1]
|
|
ret
|
|
|