2182 lines
31 KiB
Plaintext
2182 lines
31 KiB
Plaintext
Dialog::new:
|
|
link $2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super Set, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pToa plane
|
|
sat temp[$1]
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_011a
|
|
lag global[$8]
|
|
sat temp[$1]
|
|
code_011a: pToa font
|
|
not
|
|
bnt code_0129
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3a]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0129: push0
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Dialog::open:
|
|
link $3
|
|
pTos modal
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_0176
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $1b4 ; 436, enable
|
|
push0
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$c]
|
|
send $4
|
|
bnot
|
|
aTop savedCursor
|
|
send $c
|
|
bnot
|
|
jmp code_01b2
|
|
|
|
code_0176: dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_01b2
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class screen
|
|
push
|
|
self $6
|
|
bnot
|
|
bnt code_019e
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
jmp code_01b2
|
|
|
|
code_019e: pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
code_01b2: toss
|
|
pToa priority
|
|
not
|
|
bt code_01bd
|
|
pTos priority
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
code_01bd: bnt code_01ca
|
|
push0
|
|
callk kernel_44, $0
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
aTop priority
|
|
code_01ca: pushi $7 ; priority
|
|
push1
|
|
pTos priority
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pushSelf
|
|
pToa plane
|
|
send $10
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $94 ; 148, init
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Dialog::dispose:
|
|
link $5
|
|
lag global[$68]
|
|
bnt code_01fc
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_01fc: pToa curItem
|
|
bnt code_0213
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
push
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
code_0213: ldi $0
|
|
aTop curShowMouseObj
|
|
pToa disposeList
|
|
bnt code_0226
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop disposeList
|
|
code_0226: pushi $b3 ; 179, begin
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushSelf
|
|
class Sequence
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
send $4
|
|
bnot
|
|
code_0239: pushi $51 ; 81, 'Q', value
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
bnt code_026f
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $80 ; 128, lastKey
|
|
and
|
|
not
|
|
bnt code_025e
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_0239
|
|
|
|
code_025e: pushi $4c ; 76, 'L', next
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
not
|
|
bnt code_0239
|
|
jmp code_026f
|
|
|
|
jmp code_0239
|
|
|
|
code_026f: push2
|
|
push1
|
|
pTos elements
|
|
callk kernel_90, $4
|
|
bnot
|
|
ldi $0
|
|
aTop elements
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pToa plane
|
|
bnt code_029d
|
|
sat temp[$4]
|
|
pushi $1b9 ; 441, deleteCast
|
|
push1
|
|
pushSelf
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
code_029d: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pToa caller
|
|
sat temp[$3]
|
|
pTos modal
|
|
ldi $2
|
|
eq?
|
|
bnt code_02c9
|
|
pToa savedCursor
|
|
bnt code_02c9
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop savedCursor
|
|
code_02c9: push1
|
|
pushSelf
|
|
callk kernel_11, $2
|
|
bnot
|
|
lat temp[$3]
|
|
bnt code_02df
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop caller
|
|
code_02df: ret
|
|
|
|
Dialog::delete:
|
|
pToa disposeList
|
|
bnt code_02ee
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_02ee: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super Set, $6
|
|
bnot
|
|
ret
|
|
|
|
Dialog::doit:
|
|
link $6
|
|
lsg global[$41]
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
add
|
|
sag global[$40]
|
|
lap param[$0]
|
|
bnt code_030e
|
|
lap param[$1]
|
|
jmp code_0319
|
|
|
|
code_030e: pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
self $8
|
|
bnot
|
|
code_0319: sat temp[$0]
|
|
pushi $1d4 ; 468, selectItem
|
|
push2
|
|
push
|
|
push0
|
|
self $8
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $1b4 ; 436, enable
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$c]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
sat temp[$1]
|
|
pToa curItem
|
|
not
|
|
bnt code_0350
|
|
pToa eatTheMice
|
|
sat temp[$3]
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
sat temp[$4]
|
|
jmp code_0354
|
|
|
|
code_0350: ldi $0
|
|
sat temp[$3]
|
|
code_0354: lat temp[$1]
|
|
not
|
|
bnt code_03b6
|
|
push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
lag global[$28]
|
|
bnt code_0369
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
push1
|
|
send $6
|
|
bnot
|
|
code_0369: pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $1cd ; 461, cycle
|
|
self $6
|
|
bnot
|
|
pushi $b9 ; 185, localize
|
|
push1
|
|
pTos plane
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $7fff ; 32767
|
|
pushi $f4 ; 244, curEvent
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
send $6
|
|
bnot
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lst temp[$2]
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $24a ; 586, check
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_03a7
|
|
jmp code_03b6
|
|
|
|
code_03a7: lst temp[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0354
|
|
ldi $0
|
|
sat temp[$1]
|
|
jmp code_03b6
|
|
|
|
jmp code_0354
|
|
|
|
code_03b6: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$5]
|
|
send $4
|
|
bnot
|
|
lat temp[$1]
|
|
ret
|
|
|
|
Dialog::handleEvent:
|
|
link $4
|
|
pushi $24c ; 588, mapKeyToDir
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
bnt code_03d6
|
|
push1
|
|
lsp param[$1]
|
|
callk kernel_83, $2
|
|
bnot
|
|
code_03d6: 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]
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_03fd
|
|
ldi $0
|
|
jmp code_068c
|
|
|
|
code_03fd: lst temp[$2]
|
|
ldi $0
|
|
eq?
|
|
bnt code_04ab
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $a
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0497
|
|
push
|
|
pToa curShowMouseObj
|
|
ne?
|
|
bnt code_0456
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $400 ; 1024, pEndurance
|
|
and
|
|
bnt code_0456
|
|
pToa curShowMouseObj
|
|
bnt code_0447
|
|
pushi $1cf ; 463, showMouseOver
|
|
push1
|
|
push0
|
|
send $6
|
|
bnot
|
|
code_0447: pushi $1cf ; 463, showMouseOver
|
|
push1
|
|
push1
|
|
lat temp[$1]
|
|
aTop curShowMouseObj
|
|
send $6
|
|
bnot
|
|
jmp code_068c
|
|
|
|
code_0456: pToa curShowMouseObj
|
|
bnt code_046d
|
|
lst temp[$1]
|
|
ne?
|
|
bnt code_046d
|
|
pushi $1cf ; 463, showMouseOver
|
|
push1
|
|
push0
|
|
pToa curShowMouseObj
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop curShowMouseObj
|
|
code_046d: push1
|
|
lst temp[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_068c
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Slider
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_068c
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_068c
|
|
|
|
code_0497: pToa curShowMouseObj
|
|
bnt code_068c
|
|
pushi $1cf ; 463, showMouseOver
|
|
push1
|
|
push0
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop curShowMouseObj
|
|
jmp code_068c
|
|
|
|
code_04ab: pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $c8 ; 200, handleEvent
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_04f9
|
|
pushi $1d4 ; 468, selectItem
|
|
push2
|
|
push
|
|
push1
|
|
self $8
|
|
bnot
|
|
bnt code_04f2
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $1cc ; 460, checkState
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_068c
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push2
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_068c
|
|
ldi $0
|
|
sat temp[$0]
|
|
jmp code_068c
|
|
|
|
code_04f2: ldi $0
|
|
sat temp[$0]
|
|
jmp code_068c
|
|
|
|
code_04f9: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_0508
|
|
ldi $0
|
|
jmp code_068c
|
|
|
|
code_0508: lst temp[$2]
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_059f
|
|
lst temp[$3]
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
bnt code_059f
|
|
pToa curItem
|
|
bnt code_059f
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class EditItem
|
|
push
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_059f
|
|
push2
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
bnt code_059f
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push1
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_059f
|
|
pushi $1d6 ; 470, crIsChar
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_059f
|
|
pToa retObject
|
|
bnt code_056f
|
|
pushi $3 ; z
|
|
push
|
|
pTos retSelector
|
|
push1
|
|
calle export60025_5, $6
|
|
bnot
|
|
code_056f: pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class EditItem
|
|
push
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0598
|
|
pushi $1db ; 475, exitOnEnter
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
bnt code_0598
|
|
ldi $1
|
|
sat temp[$0]
|
|
jmp code_068c
|
|
|
|
code_0598: ldi $ff ; 255, asInteger
|
|
sat temp[$0]
|
|
jmp code_068c
|
|
|
|
code_059f: pushi $4 ; scaleX
|
|
lat temp[$2]
|
|
eq?
|
|
bnt code_05e4
|
|
pushi $9 ; inLeft
|
|
lat temp[$3]
|
|
eq?
|
|
bt code_05cf
|
|
pushi $d ; 13, seenRect
|
|
lat temp[$3]
|
|
eq?
|
|
bnt code_05e4
|
|
pToa curItem
|
|
bnt code_05e4
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $1cc ; 460, checkState
|
|
send $6
|
|
bnot
|
|
bnt code_05e4
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push2
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
not
|
|
code_05cf: bnt code_05e4
|
|
pushi $20f ; 527, advance
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_068c
|
|
|
|
code_05e4: pushi $4 ; scaleX
|
|
lat temp[$2]
|
|
eq?
|
|
bnt code_0606
|
|
pushi $f00 ; 3840, BAD SELECTOR
|
|
lat temp[$3]
|
|
eq?
|
|
bnt code_0606
|
|
pushi $210 ; 528, retreat
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_068c
|
|
|
|
code_0606: pushi $4 ; scaleX
|
|
lat temp[$2]
|
|
eq?
|
|
bnt code_0626
|
|
pushi $1b ; 27, illegalBits
|
|
lat temp[$3]
|
|
eq?
|
|
bnt code_0626
|
|
pTos modal
|
|
ldi $0
|
|
ne?
|
|
bnt code_0626
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class screen
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
code_0626: bt code_066c
|
|
pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
self $8
|
|
bnot
|
|
not
|
|
bnt code_068c
|
|
pTos modal
|
|
ldi $1
|
|
eq?
|
|
bt code_0643
|
|
pTos modal
|
|
ldi $2
|
|
eq?
|
|
code_0643: bnt code_068c
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class screen
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_068c
|
|
pushi $4 ; scaleX
|
|
lat temp[$2]
|
|
eq?
|
|
bnt code_065f
|
|
pushi $d ; 13, seenRect
|
|
lat temp[$3]
|
|
eq?
|
|
code_065f: bt code_066c
|
|
push1
|
|
lat temp[$2]
|
|
eq?
|
|
bt code_066c
|
|
pushi $20 ; 32, ' ', name
|
|
lat temp[$2]
|
|
eq?
|
|
code_066c: bnt code_068c
|
|
pToa retObject
|
|
bnt code_067f
|
|
pushi $3 ; z
|
|
push
|
|
pTos retSelector
|
|
push0
|
|
calle export60025_5, $6
|
|
bnot
|
|
code_067f: pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $ff ; 255, asInteger
|
|
sat temp[$0]
|
|
code_068c: ldi $9 ; inLeft
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Dialog::returnHandler:
|
|
link $3
|
|
ldi $fe ; 254, strIndex
|
|
sat temp[$1]
|
|
pTos modal
|
|
ldi $0
|
|
eq?
|
|
bnt code_06a3
|
|
ldi $0
|
|
jmp code_0734
|
|
|
|
code_06a3: ldi $1
|
|
sat temp[$2]
|
|
lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_06ba
|
|
lsp param[$1]
|
|
ldi $1
|
|
eq?
|
|
bt code_06ba
|
|
lsp param[$1]
|
|
ldi $0
|
|
eq?
|
|
code_06ba: bnt code_06c3
|
|
lap param[$1]
|
|
sat temp[$1]
|
|
jmp code_0729
|
|
|
|
code_06c3: pToa curItem
|
|
not
|
|
bnt code_06cf
|
|
ldi $1
|
|
sat temp[$1]
|
|
jmp code_0729
|
|
|
|
code_06cf: pushi $29 ; 41, ')', state
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_0725
|
|
pushi $51 ; 81, 'Q', value
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $241 ; 577, keepDialog
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bnt code_06f8
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_06f8: pToa retObject
|
|
bnt code_0729
|
|
pushi $3 ; z
|
|
push
|
|
pTos retSelector
|
|
pushi $51 ; 81, 'Q', value
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60025_5, $6
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0729
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
self $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$2]
|
|
jmp code_0729
|
|
|
|
code_0725: ldi $0
|
|
sat temp[$2]
|
|
code_0729: lat temp[$2]
|
|
bnt code_0734
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0734: lat temp[$1]
|
|
ret
|
|
|
|
Dialog::process:
|
|
link $4
|
|
ldi $0
|
|
sat temp[$0]
|
|
pTos modal
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0777
|
|
lap param[$0]
|
|
bnt code_074d
|
|
lap param[$1]
|
|
jmp code_074f
|
|
|
|
code_074d: ldi $0
|
|
code_074f: sat temp[$2]
|
|
code_0751: pushi $45 ; 69, 'E', doit
|
|
push1
|
|
lst temp[$2]
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $1d5 ; 469, returnHandler
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $fe ; 254, strIndex
|
|
ne?
|
|
bnt code_076e
|
|
jmp code_0878
|
|
|
|
code_076e: lat temp[$0]
|
|
sat temp[$2]
|
|
jmp code_0751
|
|
|
|
jmp code_0878
|
|
|
|
code_0777: pushi $b9 ; 185, localize
|
|
push1
|
|
pToa plane
|
|
bnt code_0781
|
|
jmp code_078f
|
|
|
|
code_0781: push0
|
|
push0
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_078f: push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $1f7 ; 503, input
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
bnt code_07db
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_07db
|
|
pTos modal
|
|
ldi $2
|
|
eq?
|
|
bnt code_07db
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1b ; 27, illegalBits
|
|
ne?
|
|
bnt code_07db
|
|
pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $97 ; 151, isKindOf
|
|
class EditItem
|
|
push
|
|
self $8
|
|
bnot
|
|
not
|
|
bnt code_07db
|
|
ldi $0
|
|
sat temp[$0]
|
|
jmp code_0878
|
|
|
|
code_07db: pTos modal
|
|
ldi $2
|
|
eq?
|
|
sat temp[$3]
|
|
pushi $ba ; 186, globalize
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
bnt code_082d
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
ne?
|
|
bnt code_082d
|
|
pTos modal
|
|
ldi $0
|
|
eq?
|
|
bnt code_082d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class screen
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_082d
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
lsp param[$1]
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
bnt code_082d
|
|
ldi $1
|
|
sat temp[$3]
|
|
code_082d: pushi $b9 ; 185, localize
|
|
push1
|
|
pToa plane
|
|
bnt code_0837
|
|
jmp code_0845
|
|
|
|
code_0837: push0
|
|
push0
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_0845: push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0862
|
|
pushi $1d5 ; 469, returnHandler
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_0862: lat temp[$3]
|
|
bnt code_086f
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_086f: pushi $ba ; 186, globalize
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_0878: toss
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Dialog::draw:
|
|
ldi $0
|
|
aTop hidden
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $57 ; 87, 'W', draw
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
Dialog::erase:
|
|
ldi $1
|
|
aTop hidden
|
|
pushi $1ba ; 442, erase
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Dialog::addItem:
|
|
link $4
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_08a9: lst temp[$1]
|
|
lsp param[$0]
|
|
ldi $1
|
|
sub
|
|
lt?
|
|
bnt code_08da
|
|
lat temp[$1]
|
|
lapi param[$2]
|
|
sat temp[$2]
|
|
lst temp[$1]
|
|
ldi $1
|
|
add
|
|
lapi param[$2]
|
|
sat temp[$3]
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
lst temp[$2]
|
|
push
|
|
calle export60025_5, $6
|
|
bnot
|
|
lst temp[$1]
|
|
ldi $2
|
|
add
|
|
sat temp[$1]
|
|
jmp code_08a9
|
|
|
|
code_08da: pushi $1be ; 446, setSize
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Dialog::posnItem:
|
|
link $5
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_08fc
|
|
lap param[$1]
|
|
jmp code_0919
|
|
|
|
code_08fc: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0917
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
self $6
|
|
bnot
|
|
jmp code_0919
|
|
|
|
code_0917: ldi $0
|
|
code_0919: sat temp[$4]
|
|
not
|
|
bnt code_091f
|
|
ret
|
|
|
|
code_091f: lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_092a
|
|
lap param[$1]
|
|
jmp code_092c
|
|
|
|
code_092a: lap param[$2]
|
|
code_092c: sat temp[$2]
|
|
lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_0939
|
|
lap param[$2]
|
|
jmp code_093b
|
|
|
|
code_0939: lap param[$3]
|
|
code_093b: sat temp[$3]
|
|
lst temp[$2]
|
|
ldi $fb ; 251, subStr
|
|
eq?
|
|
bnt code_0979
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_0979
|
|
pushi $e3 ; 227, expand
|
|
push2
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
push
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0979: lst temp[$2]
|
|
dup
|
|
ldi $fd ; 253, strip
|
|
eq?
|
|
bnt code_0986
|
|
ldi $6 ; maxScale
|
|
jmp code_0a30
|
|
|
|
code_0986: dup
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_09a3
|
|
pToa prevItem
|
|
bnt code_099e
|
|
pushi $88 ; 136, right
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c ; 12, inBottom
|
|
add
|
|
jmp code_0a30
|
|
|
|
code_099e: lat temp[$2]
|
|
jmp code_0a30
|
|
|
|
code_09a3: dup
|
|
ldi $fe ; 254, strIndex
|
|
eq?
|
|
bnt code_09bc
|
|
pToa prevItem
|
|
bnt code_09b7
|
|
pushi $87 ; 135, left
|
|
push0
|
|
send $4
|
|
bnot
|
|
jmp code_0a30
|
|
|
|
code_09b7: lat temp[$2]
|
|
jmp code_0a30
|
|
|
|
code_09bc: dup
|
|
ldi $fa ; 250, lower
|
|
eq?
|
|
bnt code_09dd
|
|
pushi $6 ; maxScale
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
ldi $1
|
|
lapi param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
lapi param[$3]
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
add
|
|
jmp code_0a30
|
|
|
|
code_09dd: dup
|
|
ldi $fb ; 251, subStr
|
|
eq?
|
|
bnt code_09fd
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
jmp code_0a30
|
|
|
|
code_09fd: dup
|
|
ldi $fc ; 252, getToken
|
|
eq?
|
|
bnt code_0a0f
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
jmp code_0a30
|
|
|
|
code_0a0f: dup
|
|
ldi $f9 ; 249, upper
|
|
eq?
|
|
bnt code_0a2e
|
|
lsp param[$4]
|
|
lsp param[$5]
|
|
lap param[$4]
|
|
sub
|
|
push
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
add
|
|
jmp code_0a30
|
|
|
|
code_0a2e: lat temp[$2]
|
|
code_0a30: toss
|
|
sat temp[$0]
|
|
lst temp[$3]
|
|
dup
|
|
ldi $fd ; 253, strip
|
|
eq?
|
|
bnt code_0a40
|
|
ldi $6 ; maxScale
|
|
jmp code_0aad
|
|
|
|
code_0a40: dup
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0a5e
|
|
pToa prevItem
|
|
bnt code_0a59
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $6 ; maxScale
|
|
add
|
|
jmp code_0aad
|
|
|
|
code_0a59: lat temp[$3]
|
|
jmp code_0aad
|
|
|
|
code_0a5e: dup
|
|
ldi $fe ; 254, strIndex
|
|
eq?
|
|
bnt code_0a78
|
|
pToa prevItem
|
|
bnt code_0a73
|
|
pushi $89 ; 137, top
|
|
push0
|
|
send $4
|
|
bnot
|
|
jmp code_0aad
|
|
|
|
code_0a73: lat temp[$3]
|
|
jmp code_0aad
|
|
|
|
code_0a78: dup
|
|
ldi $fb ; 251, subStr
|
|
eq?
|
|
bnt code_0a9a
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
jmp code_0aad
|
|
|
|
code_0a9a: dup
|
|
ldi $fc ; 252, getToken
|
|
eq?
|
|
bnt code_0aab
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
jmp code_0aad
|
|
|
|
code_0aab: lat temp[$3]
|
|
code_0aad: toss
|
|
sat temp[$1]
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lst temp[$0]
|
|
push
|
|
lat temp[$4]
|
|
send $8
|
|
bnot
|
|
lat temp[$4]
|
|
aTop prevItem
|
|
ret
|
|
|
|
Dialog::selectItem:
|
|
pToa curItem
|
|
bnt code_0b0f
|
|
push
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_0ad1
|
|
ldi $0
|
|
jmp code_0b0f
|
|
|
|
code_0ad1: pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $1ca ; 458, select
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0aec
|
|
pushi $1ca ; 458, select
|
|
push1
|
|
push0
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
jmp code_0b0f
|
|
|
|
code_0aec: pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0b0f
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
push
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
code_0b0f: lap param[$1]
|
|
aTop curItem
|
|
pToa curItem
|
|
not
|
|
bnt code_0b1d
|
|
ldi $0
|
|
jmp code_0bcd
|
|
|
|
code_0b1d: pToa curItem
|
|
bnt code_0b8e
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0b8e
|
|
lap param[$2]
|
|
bnt code_0b8e
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $1cb ; 459, choose
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0b8e
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $1c7 ; 455, handler
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0b71
|
|
pushi $1c7 ; 455, handler
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
bnt code_0b71
|
|
pushi $45 ; 69, 'E', doit
|
|
push2
|
|
pTos curItem
|
|
pushi $1cb ; 459, choose
|
|
pushi $1c7 ; 455, handler
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_0bcd
|
|
|
|
code_0b71: pToa selectHandler
|
|
bnt code_0b82
|
|
pushi $45 ; 69, 'E', doit
|
|
push2
|
|
pTos curItem
|
|
pushSelf
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_0bcd
|
|
|
|
code_0b82: pushi $1cb ; 459, choose
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
jmp code_0bcd
|
|
|
|
code_0b8e: pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $1ca ; 458, select
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0baa
|
|
pushi $1ca ; 458, select
|
|
push1
|
|
push1
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
jmp code_0bcd
|
|
|
|
code_0baa: pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
bnt code_0bcd
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8 ; fixPriority
|
|
or
|
|
push
|
|
pToa curItem
|
|
send $6
|
|
bnot
|
|
code_0bcd: ldi $1
|
|
ret
|
|
|
|
Dialog::advance:
|
|
link $3
|
|
pToa curItem
|
|
bnt code_0c34
|
|
sat temp[$1]
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushSelf
|
|
class Sequence
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
pTos curItem
|
|
send $6
|
|
bnot
|
|
code_0bee: pushi $4c ; 76, 'L', next
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
not
|
|
bnt code_0c06
|
|
pushi $b3 ; 179, begin
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_0bee
|
|
|
|
code_0c06: pushi $29 ; 41, ')', state
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
and
|
|
bnt code_0bee
|
|
jmp code_0c18
|
|
|
|
jmp code_0bee
|
|
|
|
code_0c18: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$2]
|
|
bnt code_0c34
|
|
lst temp[$1]
|
|
ne?
|
|
bnt code_0c34
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
lst temp[$2]
|
|
self $6
|
|
bnot
|
|
code_0c34: ret
|
|
|
|
Dialog::retreat:
|
|
link $3
|
|
pToa curItem
|
|
bnt code_0c9c
|
|
sat temp[$1]
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushSelf
|
|
class Sequence
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
pTos curItem
|
|
send $6
|
|
bnot
|
|
code_0c53: pushi $a9 ; 169, prev
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
not
|
|
bnt code_0c6d
|
|
pushi $b4 ; 180, end
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_0c53
|
|
|
|
code_0c6d: pushi $29 ; 41, ')', state
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
and
|
|
bnt code_0c53
|
|
jmp code_0c7f
|
|
|
|
jmp code_0c53
|
|
|
|
code_0c7f: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$2]
|
|
bnt code_0c9c
|
|
lst temp[$1]
|
|
ne?
|
|
bnt code_0c9c
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
lst temp[$2]
|
|
self $6
|
|
bnot
|
|
code_0c9c: ret
|
|
|
|
Dialog::check:
|
|
link $1
|
|
pToa seconds
|
|
bnt code_0cbd
|
|
push1
|
|
push1
|
|
callk kernel_121, $2
|
|
bnot
|
|
sat temp[$0]
|
|
pTos lastSeconds
|
|
ne?
|
|
bnt code_0cc9
|
|
lat temp[$0]
|
|
aTop lastSeconds
|
|
dpToa seconds
|
|
not
|
|
ret
|
|
|
|
jmp code_0cc9
|
|
|
|
code_0cbd: pToa ticks
|
|
bnt code_0cc9
|
|
lsg global[$40]
|
|
sub
|
|
push
|
|
ldi $0
|
|
gt?
|
|
ret
|
|
|
|
code_0cc9: ldi $0
|
|
ret
|
|
|
|
Dialog::setSize:
|
|
link $5
|
|
pToa plane
|
|
bnt code_0d69
|
|
pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push0
|
|
push0
|
|
push0
|
|
send $c
|
|
bnot
|
|
pToa elements
|
|
sat temp[$2]
|
|
push2
|
|
pushi $17 ; 23, lsTop
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$3]
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_0cf2: lst temp[$1]
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_0d16
|
|
pushi $af ; 175, union
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
lst temp[$2]
|
|
lst temp[$1]
|
|
callk kernel_90, $6
|
|
bnot
|
|
sat temp[$4]
|
|
push
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
+at temp[$1]
|
|
jmp code_0cf2
|
|
|
|
code_0d16: pushi $e3 ; 227, expand
|
|
push2
|
|
push2
|
|
push2
|
|
pToa plane
|
|
send $8
|
|
bnot
|
|
pushi $1c3 ; 451, fixedWidth
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
bnt code_0d3f
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $1c3 ; 451, fixedWidth
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
code_0d3f: pushi $1c4 ; 452, fixedHeight
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
bnt code_0d5e
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $1c4 ; 452, fixedHeight
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa plane
|
|
send $6
|
|
bnot
|
|
code_0d5e: pushi $db ; 219, moveTo
|
|
push2
|
|
push0
|
|
push0
|
|
pToa plane
|
|
send $8
|
|
bnot
|
|
code_0d69: ret
|
|
|
|
Dialog::expand:
|
|
pToa plane
|
|
bnt code_0d8a
|
|
pushi $e3 ; 227, expand
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
send $8
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
pushi $3 ; z
|
|
pushi $dd ; 221, moveBy
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
self $a
|
|
bnot
|
|
code_0d8a: ret
|
|
|
|
Dialog::contract:
|
|
pToa plane
|
|
bnt code_0daf
|
|
pushi $e4 ; 228, contract
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
send $8
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
pushi $3 ; z
|
|
pushi $dd ; 221, moveBy
|
|
lap param[$1]
|
|
neg
|
|
push
|
|
lap param[$2]
|
|
neg
|
|
push
|
|
self $a
|
|
bnot
|
|
code_0daf: ret
|
|
|
|
Dialog::addToDisposeList:
|
|
pToa disposeList
|
|
not
|
|
bnt code_0dc1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop disposeList
|
|
code_0dc1: pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
pToa disposeList
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
Dialog::hide:
|
|
pToa plane
|
|
bnt code_0dd7
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0dd7: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
Dialog::show:
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
bnt code_0df7
|
|
ret
|
|
|
|
code_0df7: pToa plane
|
|
bnt code_0e02
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0e02: pTos modal
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_0e22
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
jmp code_0e61
|
|
|
|
code_0e22: dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0e61
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class screen
|
|
push
|
|
self $6
|
|
bnot
|
|
bnt code_0e4d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
jmp code_0e61
|
|
|
|
code_0e4d: pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$13]
|
|
send $6
|
|
bnot
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
code_0e61: toss
|
|
ret
|
|
|
|
Dialog::setBackground:
|
|
pushi $1bd ; 445, setBitmap
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
pushi $1bc ; 444, scaleBitmap
|
|
push0
|
|
pushi $6d ; 109, 'm', picture
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
pToa plane
|
|
send $14
|
|
bnot
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push1
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
push0
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
send $e
|
|
bnot
|
|
push1
|
|
pTos plane
|
|
callk kernel_42, $2
|
|
bnot
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|
|
Dialog::isHidden:
|
|
pushi $1bf ; 447, isHidden
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
FancyDialog::new:
|
|
link $2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super Dialog, $4
|
|
bnot
|
|
sat temp[$0]
|
|
push0
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0ef6
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
push0
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push0
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0ef6: pToa plane
|
|
sat temp[$1]
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_0f0b
|
|
lag global[$4e]
|
|
bnt code_0f07
|
|
jmp code_0f09
|
|
|
|
code_0f07: lag global[$8]
|
|
code_0f09: sat temp[$1]
|
|
code_0f0b: pToa font
|
|
not
|
|
bnt code_0f1b
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3a]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0f1b: push0
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|