686 lines
9.5 KiB
Plaintext
686 lines
9.5 KiB
Plaintext
<NIL>::new:
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
pTos font
|
|
ldi $0
|
|
eq?
|
|
bnt code_00d2
|
|
lag global[$3a]
|
|
jmp code_00d4
|
|
|
|
code_00d2: pToa font
|
|
code_00d4: push
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super BitMap, $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::init:
|
|
lap param[$0]
|
|
bnt code_00f1
|
|
lap param[$1]
|
|
bnt code_00f1
|
|
lap param[$1]
|
|
jmp code_0103
|
|
|
|
code_00f1: pToa client
|
|
not
|
|
bnt code_0101
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
jmp code_0103
|
|
|
|
code_0101: pToa client
|
|
code_0103: aTop client
|
|
pTos fore
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0110
|
|
lag global[$54]
|
|
aTop fore
|
|
code_0110: pTos top
|
|
pToa bottom
|
|
eq?
|
|
bnt code_011e
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_011e: pToa font
|
|
not
|
|
bnt code_0127
|
|
lag global[$3a]
|
|
aTop font
|
|
code_0127: push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop plane
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $17b ; 379, addToCast
|
|
push1
|
|
pTos client
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::dispose:
|
|
pToa client
|
|
bnt code_014b
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_014b: push1
|
|
pTos helpStr
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0164
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa helpStr
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop helpStr
|
|
code_0164: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super BitMap, $4
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::doit:
|
|
pToa handler
|
|
bnt code_0186
|
|
pushi $45 ; 69, 'E', doit
|
|
push2
|
|
pushSelf
|
|
pushi $45 ; 69, 'E', doit
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_0189
|
|
|
|
code_0186: pToa value
|
|
ret
|
|
|
|
code_0189: ret
|
|
|
|
<NIL>::hide:
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
&rest $1
|
|
super BitMap, $4
|
|
bnot
|
|
pToa client
|
|
bnt code_01a8
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
pushi $1d1 ; 465, addToDisposeList
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_01a8: ret
|
|
|
|
<NIL>::show:
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
&rest $1
|
|
super BitMap, $4
|
|
bnot
|
|
pToa client
|
|
bnt code_01d9
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
pushi $1d2 ; 466, disposeList
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
bnt code_01d9
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
pushi $1d2 ; 466, disposeList
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_01d9: ret
|
|
|
|
<NIL>::draw:
|
|
pTos signal
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop signal
|
|
pToa drawCode
|
|
bnt code_01f1
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
bnt code_01f1
|
|
ldi $1
|
|
ret
|
|
|
|
code_01f1: ldi $0
|
|
ret
|
|
|
|
<NIL>::drawSelected:
|
|
ret
|
|
|
|
<NIL>::enable:
|
|
lap param[$1]
|
|
bnt code_0202
|
|
pTos state
|
|
ldi $1
|
|
or
|
|
aTop state
|
|
jmp code_0209
|
|
|
|
code_0202: pTos state
|
|
ldi $fe ; 254, strIndex
|
|
and
|
|
aTop state
|
|
code_0209: lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bt code_0213
|
|
lap param[$2]
|
|
not
|
|
code_0213: bnt code_021b
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_021b: ret
|
|
|
|
<NIL>::select:
|
|
link $1
|
|
lap param[$0]
|
|
not
|
|
bnt code_022b
|
|
pTos state
|
|
ldi $8 ; fixPriority
|
|
and
|
|
not
|
|
jmp code_022d
|
|
|
|
code_022b: lap param[$1]
|
|
code_022d: sat temp[$0]
|
|
bnt code_023a
|
|
pTos state
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop state
|
|
jmp code_0241
|
|
|
|
code_023a: pTos state
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop state
|
|
code_0241: pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::choose:
|
|
pTos state
|
|
ldi $4 ; scaleX
|
|
xor
|
|
aTop state
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::checkState:
|
|
pTos state
|
|
lap param[$1]
|
|
and
|
|
ret
|
|
|
|
<NIL>::setSize:
|
|
ldi $0
|
|
ret
|
|
|
|
<NIL>::highlight:
|
|
lap param[$1]
|
|
bnt code_026c
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
or
|
|
aTop state
|
|
jmp code_0273
|
|
|
|
code_026c: pTos state
|
|
ldi $df ; 223, centerOn
|
|
and
|
|
aTop state
|
|
code_0273: pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::cycle:
|
|
ret
|
|
|
|
<NIL>::help:
|
|
pToa helpStr
|
|
bnt code_0296
|
|
pushi $6 ; maxScale
|
|
push
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_006c ; "Continue"
|
|
push
|
|
push1
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
calle export60029_0, $c
|
|
bnot
|
|
jmp code_0299
|
|
|
|
code_0296: ldi $0
|
|
ret
|
|
|
|
code_0299: ret
|
|
|
|
<NIL>::handleEvent:
|
|
link $4
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_02a9
|
|
ldi $0
|
|
ret
|
|
|
|
code_02a9: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
ldi $0
|
|
sat temp[$0]
|
|
lst temp[$2]
|
|
ldi $1
|
|
eq?
|
|
bnt code_02d1
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
code_02d1: sat temp[$1]
|
|
bnt code_02e1
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
and
|
|
code_02e1: bt code_02f7
|
|
lst temp[$2]
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_0330
|
|
lst temp[$3]
|
|
ldi $3b00 ; 15104
|
|
eq?
|
|
bnt code_0330
|
|
pTos state
|
|
ldi $8 ; fixPriority
|
|
and
|
|
code_02f7: bnt code_0330
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
lat temp[$1]
|
|
bnt code_0316
|
|
pToa canDrag
|
|
bnt code_0316
|
|
pushi $ee ; 238, drag
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
jmp code_03d2
|
|
|
|
code_0316: pushi $191 ; 401, help
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bnt code_0329
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_0329: ldi $0
|
|
sat temp[$0]
|
|
jmp code_03d2
|
|
|
|
code_0330: pTos state
|
|
ldi $1
|
|
and
|
|
not
|
|
bnt code_033d
|
|
ldi $0
|
|
jmp code_03d2
|
|
|
|
code_033d: lst temp[$2]
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_03b8
|
|
pushi $1d3 ; 467, modal
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
bnt code_03b8
|
|
push1
|
|
lst temp[$3]
|
|
calle export60027_0, $2
|
|
bnot
|
|
push
|
|
pToa key
|
|
eq?
|
|
bt code_03a8
|
|
pTos client
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
ne?
|
|
bnt code_039a
|
|
pTos key
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_039a
|
|
push1
|
|
lst temp[$3]
|
|
calle export60027_0, $2
|
|
bnot
|
|
push
|
|
push1
|
|
push1
|
|
pTos key
|
|
calle export60025_6, $2
|
|
bnot
|
|
push
|
|
calle export60027_0, $2
|
|
bnot
|
|
eq?
|
|
code_039a: bt code_03a8
|
|
pTos state
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_03b8
|
|
lst temp[$3]
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
code_03a8: bnt code_03b8
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
selfID
|
|
sat temp[$0]
|
|
jmp code_03d2
|
|
|
|
code_03b8: lat temp[$1]
|
|
bnt code_03d2
|
|
pushi $ec ; 236, track
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_03d2
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_03d2: lat temp[$0]
|
|
ret
|
|
|
|
<NIL>::process:
|
|
link $1
|
|
pushi $b9 ; 185, localize
|
|
push1
|
|
pTos plane
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_043d
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_0413
|
|
pushi $1c9 ; 457, highlight
|
|
push2
|
|
push0
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0413: pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_044c
|
|
pushi $1d4 ; 468, selectItem
|
|
push2
|
|
pushSelf
|
|
push1
|
|
pToa client
|
|
send $8
|
|
bnot
|
|
bnt code_0431
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0431: pushi $1d5 ; 469, returnHandler
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
jmp code_044c
|
|
|
|
code_043d: dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_044c
|
|
pushi $ed ; 237, trackDoit
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
code_044c: toss
|
|
ret
|
|
|
|
<NIL>::track:
|
|
link $1
|
|
pushi $1d3 ; 467, modal
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
ne?
|
|
bnt code_047f
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pushi $8c ; 140, scratch
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
ret
|
|
|
|
code_047f: pushi $ec ; 236, track
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super BitMap, $6
|
|
bnot
|
|
sat temp[$0]
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_049d
|
|
pushi $1c9 ; 457, highlight
|
|
push2
|
|
push0
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_049d: lat temp[$0]
|
|
ret
|
|
|
|
<NIL>::trackDoit:
|
|
link $1
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_04b7
|
|
lat temp[$0]
|
|
not
|
|
code_04b7: bt code_04c3
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
not
|
|
bnt code_04d3
|
|
lat temp[$0]
|
|
code_04c3: bnt code_04d3
|
|
pushi $1c9 ; 457, highlight
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
code_04d3: ret
|
|
|
|
<NIL>::showMouseOver:
|
|
pTos state
|
|
ldi $1
|
|
and
|
|
bnt code_04f0
|
|
pushi $1c9 ; 457, highlight
|
|
push1
|
|
lap param[$0]
|
|
bnt code_04e7
|
|
lap param[$1]
|
|
jmp code_04ec
|
|
|
|
code_04e7: pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
code_04ec: push
|
|
self $6
|
|
bnot
|
|
code_04f0: ret
|
|
|