| GOOD | BAD |
|---|
IconI::show:
link $7
pTos signal
ldi $20 ; 32, ' ', window
or
aTop signal
lap param[$0]
bnt code_0103
lap param[$1]
aTop nsLeft
push
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelWide, $6
add
aTop nsRight
lap param[$2]
aTop nsTop
push
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelHigh, $6
add
aTop nsBottom
jmp code_0123
| IconI::show:
link $7
pTos signal
ldi $20 ; 32, ' ', window
or
aTop signal
lap param[$0]
bnt code_0103
lap param[$1]
aTop nsLeft
push
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelWide, $6
add
aTop nsRight
lap param[$2]
aTop nsTop
push
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelHigh, $6
add
aTop nsBottom
jmp code_0123
|
code_0103: pTos nsLeft
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelWide, $6
add
aTop nsRight
pTos nsTop
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelHigh, $6
add
aTop nsBottom
| code_0103: pTos nsLeft
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelWide, $6
add
aTop nsRight
pTos nsTop
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelHigh, $6
add
aTop nsBottom
|
code_0123: pushi $6 ; nsTop
pTos view
pTos loop
pTos cel
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pTos signal
ldi $4 ; cel
and
bnt code_0141
pushi $e3 ; 227, mask
push0
self $4
| code_0123: pushi $6 ; nsTop
pTos view
pTos loop
pTos cel
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pTos signal
ldi $4 ; cel
and
bnt code_0141
pushi $e3 ; 227, mask
push0
self $4
|
code_0141: lag global[$46]
bnt code_0159
pushi $74 ; 116, 't', respondsTo
push1
pushi $ad ; 173, stop
lag global[$46]
send $6
bnt code_0159
pushi $ad ; 173, stop
push0
lag global[$46]
send $4
code_0159: ret
| code_0141: lag global[$46]
bnt code_0159
pushi $74 ; 116, 't', respondsTo
push1
pushi $ad ; 173, stop
lag global[$46]
send $6
bnt code_0159
pushi $ad ; 173, stop
push0
lag global[$46]
send $4
code_0159: ret
|
IconI::select:
link $3
pTos signal
ldi $4 ; cel
and
bnt code_0168
ldi $0
jmp code_026c
| IconI::select:
link $3
pTos signal
ldi $4 ; cel
and
bnt code_0168
ldi $0
jmp code_0262
|
code_0168: lap param[$0]
bnt code_0260
lap param[$1]
bnt code_0260
pTos signal
ldi $1
and
bnt code_0260
ldi $1
sat temp[$1]
pushi $6 ; nsTop
pTos view
pTos loop
lst temp[$1]
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
| code_0168: lap param[$0]
bnt code_0260
lap param[$1]
bnt code_0260
pTos signal
ldi $1
and
bnt code_0260
ldi $1
sat temp[$1]
pushi $6 ; nsTop
pTos view
pTos loop
lst temp[$1]
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
|
code_019f: pushi $1f ; 31, type
push0
pushi $6d ; 109, 'm', new
push0
class Event
send $4
sat temp[$0]
send $4
push
ldi $2
ne?
bnt code_0224
pushi $94 ; 148, localize
push0
lat temp[$0]
send $4
pushi $e2 ; 226, onMe
push1
lst temp[$0]
self $6
bnt code_01f1
lat temp[$1]
not
bnt code_01ef
ldi $1
sat temp[$1]
pushi $6 ; nsTop
pTos view
pTos loop
lst temp[$1]
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
code_01ef: jmp code_021a
| code_019f: pushi $1f ; 31, type
push0
pushi $6d ; 109, 'm', new
push0
class Event
send $4
sat temp[$0]
send $4
push
ldi $2
ne?
bnt code_0224
pushi $94 ; 148, localize
push0
lat temp[$0]
send $4
pushi $e2 ; 226, onMe
push1
lst temp[$0]
self $6
bnt code_01f1
lat temp[$1]
not
bnt code_01ef
ldi $1
sat temp[$1]
pushi $6 ; nsTop
pTos view
pTos loop
lst temp[$1]
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
code_01ef: jmp code_021a
|
code_01f1: lat temp[$1]
bnt code_021a
ldi $0
sat temp[$1]
pushi $6 ; nsTop
pTos view
pTos loop
lst temp[$1]
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
| code_01f1: lat temp[$1]
bnt code_021a
ldi $0
sat temp[$1]
pushi $6 ; nsTop
pTos view
pTos loop
lst temp[$1]
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
|
code_021a: pushi $6f ; 111, 'o', dispose
push0
lat temp[$0]
send $4
jmp code_019f
| code_021a: pushi $6f ; 111, 'o', dispose
push0
lat temp[$0]
send $4
jmp code_019f
|
code_0224: pushi $6f ; 111, 'o', dispose
push0
lat temp[$0]
send $4
lst temp[$1]
ldi $1
eq?
bnt code_0252
pushi $6 ; nsTop
pTos view
pTos loop
push0
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
| code_0224: pushi $6f ; 111, 'o', dispose
push0
lat temp[$0]
send $4
lst temp[$1]
ldi $1
eq?
bnt code_0252
pushi $6 ; nsTop
pTos view
pTos loop
push0
pTos nsLeft
pTos nsTop
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
pTos nsLeft
pTos nsBottom
pTos nsRight
push1
callk Graph, $c
|
code_0252: pushi $8e ; 142, script
push0
lag global[$1]
send $4
sat temp[$2]
lat temp[$1]
jmp code_026c
| code_0252: pushi $8e ; 142, script
push0
lag global[$1]
send $4
sat temp[$2]
lat temp[$1]
jmp code_0262
|
code_0260: pushi $8e ; 142, script
push0
lag global[$1]
send $4
sat temp[$2]
ldi $1
code_026c: ret
| code_0260: ldi $1
code_0262: ret
|
IconI::highlight:
link $5
pTos signal
ldi $20 ; 32, ' ', window
and
not
bt code_027e
pTos highlightColor
ldi $ff ; 255, cycler
eq?
bnt code_027f
code_027e: ret
| IconI::highlight:
link $5
pTos signal
ldi $20 ; 32, ' ', window
and
not
bt code_0274
pTos highlightColor
ldi $ff ; 255, cycler
eq?
bnt code_0275
code_0274: ret
|
code_027f: lap param[$0]
bnt code_028b
lap param[$1]
bnt code_028b
pToa highlightColor
jmp code_028d
| code_0275: lap param[$0]
bnt code_0281
lap param[$1]
bnt code_0281
pToa highlightColor
jmp code_0283
|
code_028b: pToa lowlightColor
| code_0281: pToa lowlightColor
|
code_028d: sat temp[$4]
pTos nsTop
ldi $2
add
sat temp[$0]
pTos nsLeft
ldi $2
add
sat temp[$1]
pTos nsBottom
ldi $3 ; loop
sub
sat temp[$2]
pTos nsRight
ldi $3 ; loop
sub
sat temp[$3]
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$0]
lst temp[$1]
lst temp[$0]
lst temp[$3]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$0]
lst temp[$3]
lst temp[$2]
lst temp[$3]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$2]
lst temp[$3]
lst temp[$2]
lst temp[$1]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$2]
lst temp[$1]
lst temp[$0]
lst temp[$1]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
ldi $2
sub
push
pTos nsLeft
ldi $2
sub
push
pTos nsBottom
pTos nsRight
ldi $3 ; loop
add
push
push1
callk Graph, $c
ret
| code_0283: sat temp[$4]
pTos nsTop
ldi $2
add
sat temp[$0]
pTos nsLeft
ldi $2
add
sat temp[$1]
pTos nsBottom
ldi $3 ; loop
sub
sat temp[$2]
pTos nsRight
ldi $3 ; loop
sub
sat temp[$3]
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$0]
lst temp[$1]
lst temp[$0]
lst temp[$3]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$0]
lst temp[$3]
lst temp[$2]
lst temp[$3]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$2]
lst temp[$3]
lst temp[$2]
lst temp[$1]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $8 ; nsBottom
pushi $4 ; cel
lst temp[$2]
lst temp[$1]
lst temp[$0]
lst temp[$1]
lst temp[$4]
pushi $ff ; 255, cycler
pushi $ff ; 255, cycler
callk Graph, $10
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos nsTop
ldi $2
sub
push
pTos nsLeft
ldi $2
sub
push
pTos nsBottom
pTos nsRight
ldi $3 ; loop
add
push
push1
callk Graph, $c
ret
|
IconI::onMe:
push1
push0
lap param[$1]
send $4
push
pToa nsLeft
ge?
bnt code_034c
push0
push0
lap param[$1]
send $4
push
pToa nsTop
ge?
bnt code_034c
push1
push0
lap param[$1]
send $4
push
pToa nsRight
le?
bnt code_034c
push0
push0
lap param[$1]
send $4
push
pToa nsBottom
le?
jmp code_034e
| IconI::onMe:
push1
push0
lap param[$1]
send $4
push
pToa nsLeft
ge?
bnt code_0342
push0
push0
lap param[$1]
send $4
push
pToa nsTop
ge?
bnt code_0342
push1
push0
lap param[$1]
send $4
push
pToa nsRight
le?
bnt code_0342
push0
push0
lap param[$1]
send $4
push
pToa nsBottom
le?
jmp code_0344
|
code_034c: ldi $0
code_034e: ret
| code_0342: ldi $0
code_0344: ret
|
IconI::mask:
pushi $6 ; nsTop
pTos maskView
pTos maskLoop
pTos maskCel
pTos nsLeft
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelWide, $6
push
pushi $3 ; loop
pTos maskView
pTos maskLoop
pTos maskCel
callk CelWide, $6
sub
push
ldi $2
div
add
push
pTos nsTop
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelHigh, $6
push
pushi $3 ; loop
pTos maskView
pTos maskLoop
pTos maskCel
callk CelHigh, $6
sub
push
ldi $2
div
add
push
pushi $ff ; 255, cycler
callk DrawCel, $c
ret
| IconI::mask:
pushi $6 ; nsTop
pTos maskView
pTos maskLoop
pTos maskCel
pTos nsLeft
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelWide, $6
push
pushi $3 ; loop
pTos maskView
pTos maskLoop
pTos maskCel
callk CelWide, $6
sub
push
ldi $2
div
add
push
pTos nsTop
pushi $3 ; loop
pTos view
pTos loop
pTos cel
callk CelHigh, $6
push
pushi $3 ; loop
pTos maskView
pTos maskLoop
pTos maskCel
callk CelHigh, $6
sub
push
ldi $2
div
add
push
pushi $ff ; 255, cycler
callk DrawCel, $c
ret
|
IconBar::doit:
link $5
code_039f: pTos state
ldi $20 ; 32, ' ', window
and
bnt code_0487
pushi $6d ; 109, 'm', new
push0
pushi $f5 ; 245, curEvent
push0
lag global[$49]
send $4
send $4
sat temp[$0]
bnt code_0487
pushi $1f ; 31, type
push0
lat temp[$0]
send $4
sat temp[$1]
pushi $25 ; 37, '%', message
push0
lat temp[$0]
send $4
sat temp[$2]
pushi $3d ; 61, '=', modifiers
push0
lat temp[$0]
send $4
sat temp[$3]
push1
push1
callk Wait, $2
lsg global[$4f]
push0
callk GetTime, $0
add
sag global[$50]
lag global[$12]
bnt code_03ef
pushi $77 ; 119, 'w', eachElementDo
push1
pushi $39 ; 57, '9', doit
lag global[$12]
send $6
| IconBar::doit:
link $5
code_0395: pTos state
ldi $20 ; 32, ' ', window
and
bnt code_047d
pushi $6d ; 109, 'm', new
push0
pushi $f5 ; 245, curEvent
push0
lag global[$49]
send $4
send $4
sat temp[$0]
bnt code_047d
pushi $1f ; 31, type
push0
lat temp[$0]
send $4
sat temp[$1]
pushi $25 ; 37, '%', message
push0
lat temp[$0]
send $4
sat temp[$2]
pushi $3d ; 61, '=', modifiers
push0
lat temp[$0]
send $4
sat temp[$3]
push1
push1
callk Wait, $2
lsg global[$4f]
push0
callk GetTime, $0
add
sag global[$50]
lag global[$12]
bnt code_03e5
pushi $77 ; 119, 'w', eachElementDo
push1
pushi $39 ; 57, '9', doit
lag global[$12]
send $6
|
code_03ef: pushi $8e ; 142, script
push0
lag global[$1]
send $4
sat temp[$4]
lst temp[$1]
ldi $100 ; 256, lastCel
eq?
bnt code_042b
ldi $4 ; cel
sat temp[$1]
lst temp[$3]
ldi $3 ; loop
and
bnt code_0410
ldi $1b ; 27, mode
jmp code_0412
| code_03e5: pushi $8e ; 142, script
push0
lag global[$1]
send $4
sat temp[$4]
lst temp[$1]
ldi $100 ; 256, lastCel
eq?
bnt code_0421
ldi $4 ; cel
sat temp[$1]
lst temp[$3]
ldi $3 ; loop
and
bnt code_0406
ldi $1b ; 27, mode
jmp code_0408
|
code_0410: ldi $d ; 13, lsRight
code_0412: sat temp[$2]
ldi $0
sat temp[$3]
pushi $1f ; 31, type
push1
lst temp[$1]
pushi $25 ; 37, '%', message
push1
lst temp[$2]
pushi $3d ; 61, '=', modifiers
push1
lst temp[$3]
lat temp[$0]
send $12
| code_0406: ldi $d ; 13, lsRight
code_0408: sat temp[$2]
ldi $0
sat temp[$3]
pushi $1f ; 31, type
push1
lst temp[$1]
pushi $25 ; 37, '%', message
push1
lst temp[$2]
pushi $3d ; 61, '=', modifiers
push1
lst temp[$3]
lat temp[$0]
send $12
|
code_042b: pushi $94 ; 148, localize
push0
lat temp[$0]
send $4
lst temp[$1]
ldi $1
eq?
bt code_0448
lst temp[$1]
ldi $4 ; cel
eq?
bnt code_0472
lst temp[$2]
ldi $d ; 13, lsRight
eq?
bnt code_0472
| code_0421: pushi $94 ; 148, localize
push0
lat temp[$0]
send $4
lst temp[$1]
ldi $1
eq?
bt code_043e
lst temp[$1]
ldi $4 ; cel
eq?
bnt code_0468
lst temp[$2]
ldi $d ; 13, lsRight
eq?
bnt code_0468
|
code_0448: push1
pTos helpIconItem
callk IsObject, $2
bnt code_0472
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
and
bnt code_0472
pushi $1f ; 31, type
push1
pushi $6000 ; 24576
pushi $25 ; 37, '%', message
push1
pushi $25 ; 37, '%', message
push0
pToa helpIconItem
send $4
push
lat temp[$0]
send $c
| code_043e: push1
pTos helpIconItem
callk IsObject, $2
bnt code_0468
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
and
bnt code_0468
pushi $1f ; 31, type
push1
pushi $6000 ; 24576
pushi $25 ; 37, '%', message
push1
pushi $25 ; 37, '%', message
push0
pToa helpIconItem
send $4
push
lat temp[$0]
send $c
|
code_0472: push1
lst temp[$0]
callk MapKeyToDir, $2
pushi $f0 ; 240, dispatchEvent
push1
lst temp[$0]
self $6
bnt code_0484
jmp code_0487
| code_0468: push1
lst temp[$0]
callk MapKeyToDir, $2
pushi $f0 ; 240, dispatchEvent
push1
lst temp[$0]
self $6
bnt code_047a
jmp code_047d
|
code_0484: jmp code_039f
code_0487: ret
| code_047a: jmp code_0395
code_047d: ret
|
IconBar::handleEvent:
link $7
pushi $94 ; 148, localize
push0
lap param[$1]
send $4
pushi $1f ; 31, type
push0
lap param[$1]
send $4
sat temp[$1]
pTos state
ldi $4 ; cel
and
bnt code_04a5
jmp code_0715
| IconBar::handleEvent:
link $7
pushi $94 ; 148, localize
push0
lap param[$1]
send $4
pushi $1f ; 31, type
push0
lap param[$1]
send $4
sat temp[$1]
pTos state
ldi $4 ; cel
and
bnt code_049b
jmp code_070b
|
code_04a5: lat temp[$1]
not
bnt code_04e7
pTos state
ldi $400 ; 1024, BAD SELECTOR
and
bnt code_04e7
pushi $f6 ; 246, canControl
push0
push0
lap param[$1]
send $4
le?
bnt code_04e7
push0
push0
lap param[$1]
send $4
push
pToa height
le?
bnt code_04e7
push0
push1
push0
lap param[$1]
send $4
le?
bnt code_04e7
push1
push0
lap param[$1]
send $4
push
ldi $140 ; 320, inRect
le?
bnt code_04e7
ldi $0
sat temp[$0]
not
bt code_0512
| code_049b: lat temp[$1]
not
bnt code_04dd
pTos state
ldi $400 ; 1024, BAD SELECTOR
and
bnt code_04dd
pushi $f6 ; 246, canControl
push0
push0
lap param[$1]
send $4
le?
bnt code_04dd
push0
push0
lap param[$1]
send $4
push
pToa height
le?
bnt code_04dd
push0
push1
push0
lap param[$1]
send $4
le?
bnt code_04dd
push1
push0
lap param[$1]
send $4
push
ldi $140 ; 320, inRect
le?
bnt code_04dd
ldi $0
sat temp[$0]
not
bt code_0508
|
code_04e7: lst temp[$1]
ldi $4 ; cel
eq?
bnt code_05f1
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
push
ldi $1b ; 27, mode
eq?
bt code_050b
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
push
ldi $5300 ; 21248
eq?
bnt code_05f1
| code_04dd: lst temp[$1]
ldi $4 ; cel
eq?
bnt code_05e7
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
push
ldi $1b ; 27, mode
eq?
bt code_0501
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
push
ldi $5300 ; 21248
eq?
bnt code_05e7
|
code_050b: ldi $1
sat temp[$0]
bnt code_05f1
| code_0501: ldi $1
sat temp[$0]
bnt code_05e7
|
code_0512: pushi $95 ; 149, globalize
push0
lap param[$1]
send $4
push1
push0
lap param[$1]
send $4
aTop oldMouseX
push0
push0
lap param[$1]
send $4
aTop oldMouseY
lag global[$13]
sat temp[$4]
pToa curIcon
sat temp[$5]
pToa curInvIcon
sat temp[$6]
pushi $e0 ; 224, show
push0
self $4
pushi $cc ; 204, setCursor
push1
pushi $3e7 ; 999, BAD SELECTOR
lag global[$1]
send $6
lat temp[$0]
bnt code_0581
pushi $cc ; 204, setCursor
pushi $4 ; cel
lsg global[$13]
push1
pushi $7 ; nsLeft
push0
pToa curIcon
send $4
push
pushi $9 ; nsRight
push0
pToa curIcon
send $4
push
pushi $7 ; nsLeft
push0
pToa curIcon
send $4
sub
push
ldi $2
div
add
push
pushi $8 ; nsBottom
push0
pToa curIcon
send $4
push
ldi $3 ; loop
sub
push
lag global[$1]
send $c
| code_0508: pushi $95 ; 149, globalize
push0
lap param[$1]
send $4
push1
push0
lap param[$1]
send $4
aTop oldMouseX
push0
push0
lap param[$1]
send $4
aTop oldMouseY
lag global[$13]
sat temp[$4]
pToa curIcon
sat temp[$5]
pToa curInvIcon
sat temp[$6]
pushi $e0 ; 224, show
push0
self $4
pushi $cc ; 204, setCursor
push1
pushi $3e7 ; 999, BAD SELECTOR
lag global[$1]
send $6
lat temp[$0]
bnt code_0577
pushi $cc ; 204, setCursor
pushi $4 ; cel
lsg global[$13]
push1
pushi $7 ; nsLeft
push0
pToa curIcon
send $4
push
pushi $9 ; nsRight
push0
pToa curIcon
send $4
push
pushi $7 ; nsLeft
push0
pToa curIcon
send $4
sub
push
ldi $2
div
add
push
pushi $8 ; nsBottom
push0
pToa curIcon
send $4
push
ldi $3 ; loop
sub
push
lag global[$1]
send $c
|
code_0581: pushi $39 ; 57, '9', doit
push0
self $4
pushi $f6 ; 246, canControl
push0
lag global[$49]
send $4
bt code_059a
pushi $f7 ; 247, canInput
push0
lag global[$49]
send $4
bnt code_05a3
| code_0577: pushi $39 ; 57, '9', doit
push0
self $4
pushi $f6 ; 246, canControl
push0
lag global[$49]
send $4
bt code_0590
pushi $f7 ; 247, canInput
push0
lag global[$49]
send $4
bnt code_0599
|
code_059a: pushi $21 ; 33, '!', cursor
push0
pToa curIcon
send $4
jmp code_05a5
| code_0590: pushi $21 ; 33, '!', cursor
push0
pToa curIcon
send $4
jmp code_059b
|
code_05a3: lag global[$15]
code_05a5: sat temp[$3]
lat temp[$0]
bnt code_05bd
pushi $cc ; 204, setCursor
pushi $4 ; cel
lst temp[$3]
push1
pTos oldMouseX
pTos oldMouseY
lag global[$1]
send $c
jmp code_05e9
| code_0599: lag global[$15]
code_059b: sat temp[$3]
lat temp[$0]
bnt code_05b3
pushi $cc ; 204, setCursor
pushi $4 ; cel
lst temp[$3]
push1
pTos oldMouseX
pTos oldMouseY
lag global[$1]
send $c
jmp code_05df
|
code_05bd: pushi $cc ; 204, setCursor
pushi $4 ; cel
lst temp[$3]
push1
push1
push0
pushi $6d ; 109, 'm', new
push0
lap param[$1]
send $4
send $4
push
push2
push0
push0
lap param[$1]
send $4
push
push1
pToa height
add
push
calle export999_3, $4
push
lag global[$1]
send $c
| code_05b3: pushi $cc ; 204, setCursor
pushi $4 ; cel
lst temp[$3]
push1
push1
push0
pushi $6d ; 109, 'm', new
push0
lap param[$1]
send $4
send $4
push
push2
push0
push0
lap param[$1]
send $4
push
push1
pToa height
add
push
calle export999_3, $4
push
lag global[$1]
send $c
|
code_05e9: pushi $66 ; 102, 'f', hide
push0
self $4
jmp code_0715
| code_05df: pushi $66 ; 102, 'f', hide
push0
self $4
jmp code_070b
|
code_05f1: lst temp[$1]
ldi $4 ; cel
and
bnt code_0698
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
push
dup
ldi $d ; 13, lsRight
eq?
bnt code_0653
push1
pTos curIcon
callk IsObject, $2
not
bnt code_0612
jmp code_0651
| code_05e7: lst temp[$1]
ldi $4 ; cel
and
bnt code_068e
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
push
dup
ldi $d ; 13, lsRight
eq?
bnt code_0649
push1
pTos curIcon
callk IsObject, $2
not
bnt code_0608
jmp code_0647
|
code_0612: pTos curIcon
pToa useIconItem
ne?
bt code_061d
pToa curInvIcon
bnt code_0649
| code_0608: pTos curIcon
pToa useIconItem
ne?
bt code_0613
pToa curInvIcon
bnt code_063f
|
code_061d: pushi $1f ; 31, type
push1
pushi $1f ; 31, type
push0
pToa curIcon
send $4
push
pushi $25 ; 37, '%', message
push1
pTos curIcon
pToa useIconItem
eq?
bnt code_063b
pushi $25 ; 37, '%', message
push0
pToa curInvIcon
send $4
jmp code_0642
| code_0613: pushi $1f ; 31, type
push1
pushi $1f ; 31, type
push0
pToa curIcon
send $4
push
pushi $25 ; 37, '%', message
push1
pTos curIcon
pToa useIconItem
eq?
bnt code_0631
pushi $25 ; 37, '%', message
push0
pToa curInvIcon
send $4
jmp code_0638
|
code_063b: pushi $25 ; 37, '%', message
push0
pToa curIcon
send $4
| code_0631: pushi $25 ; 37, '%', message
push0
pToa curIcon
send $4
|
code_0642: push
lap param[$1]
send $c
jmp code_0651
| code_0638: push
lap param[$1]
send $c
jmp code_0647
|
code_0649: pushi $1f ; 31, type
push1
push0
lap param[$1]
send $6
code_0651: jmp code_0695
| code_063f: pushi $1f ; 31, type
push1
push0
lap param[$1]
send $6
code_0647: jmp code_068b
|
code_0653: dup
ldi $5200 ; 20992
eq?
bnt code_0674
pushi $f6 ; 246, canControl
push0
lag global[$49]
send $4
bnt code_066a
pushi $ee ; 238, swapCurIcon
push0
self $4
| code_0649: dup
ldi $5200 ; 20992
eq?
bnt code_066a
pushi $f6 ; 246, canControl
push0
lag global[$49]
send $4
bnt code_0660
pushi $ee ; 238, swapCurIcon
push0
self $4
|
code_066a: pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
jmp code_0695
| code_0660: pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
jmp code_068b
|
code_0674: dup
ldi $0
eq?
bnt code_0695
pushi $1f ; 31, type
push0
lap param[$1]
send $4
push
ldi $40 ; 64, '@', at
and
bnt code_0695
pushi $ef ; 239, advanceCurIcon
push0
self $4
pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
| code_066a: dup
ldi $0
eq?
bnt code_068b
pushi $1f ; 31, type
push0
lap param[$1]
send $4
push
ldi $40 ; 64, '@', at
and
bnt code_068b
pushi $ef ; 239, advanceCurIcon
push0
self $4
pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
|
code_0695: toss
jmp code_0715
| code_068b: toss
jmp code_070b
|
code_0698: lst temp[$1]
ldi $1
and
bnt code_0715
pushi $3d ; 61, '=', modifiers
push0
lap param[$1]
send $4
push
ldi $3 ; loop
and
bnt code_06bc
pushi $ef ; 239, advanceCurIcon
push0
self $4
pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
jmp code_0715
| code_068e: lst temp[$1]
ldi $1
and
bnt code_070b
pushi $3d ; 61, '=', modifiers
push0
lap param[$1]
send $4
push
ldi $3 ; loop
and
bnt code_06b2
pushi $ef ; 239, advanceCurIcon
push0
self $4
pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
jmp code_070b
|
code_06bc: pushi $3d ; 61, '=', modifiers
push0
lap param[$1]
send $4
push
ldi $4 ; cel
and
bnt code_06e3
pushi $f6 ; 246, canControl
push0
lag global[$49]
send $4
bnt code_06d9
pushi $ee ; 238, swapCurIcon
push0
self $4
| code_06b2: pushi $3d ; 61, '=', modifiers
push0
lap param[$1]
send $4
push
ldi $4 ; cel
and
bnt code_06d9
pushi $f6 ; 246, canControl
push0
lag global[$49]
send $4
bnt code_06cf
pushi $ee ; 238, swapCurIcon
push0
self $4
|
code_06d9: pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
jmp code_0715
| code_06cf: pushi $49 ; 73, 'I', claimed
push1
push1
lap param[$1]
send $6
jmp code_070b
|
code_06e3: push1
pTos curIcon
callk IsObject, $2
bnt code_0715
pushi $1f ; 31, type
push1
pushi $1f ; 31, type
push0
pToa curIcon
send $4
push
pushi $25 ; 37, '%', message
push1
pTos curIcon
pToa useIconItem
eq?
bnt code_0709
pushi $25 ; 37, '%', message
push0
pToa curInvIcon
send $4
jmp code_0710
| code_06d9: push1
pTos curIcon
callk IsObject, $2
bnt code_070b
pushi $1f ; 31, type
push1
pushi $1f ; 31, type
push0
pToa curIcon
send $4
push
pushi $25 ; 37, '%', message
push1
pTos curIcon
pToa useIconItem
eq?
bnt code_06ff
pushi $25 ; 37, '%', message
push0
pToa curInvIcon
send $4
jmp code_0706
|
code_0709: pushi $25 ; 37, '%', message
push0
pToa curIcon
send $4
code_0710: push
lap param[$1]
send $c
code_0715: ret
| code_06ff: pushi $25 ; 37, '%', message
push0
pToa curIcon
send $4
code_0706: push
lap param[$1]
send $c
code_070b: ret
|
IconBar::show:
link $8
pushi $ae ; 174, pause
push0
lag global[$8]
send $4
pTos state
ldi $20 ; 32, ' ', window
or
aTop state
pushi $cc ; 204, setCursor
push2
pushi $3e7 ; 999, BAD SELECTOR
push1
lag global[$1]
send $8
pushi $40 ; 64, '@', at
push1
push0
self $6
sat temp[$0]
pushi $3 ; loop
push2
push0
lat temp[$0]
send $4
push
pushi $3 ; loop
push0
lat temp[$0]
send $4
push
pushi $4 ; cel
push0
lat temp[$0]
send $4
push
callk CelHigh, $6
aTop height
push0
callk GetPort, $0
aTop port
push1
pushi $ff ; 255, cycler
callk SetPort, $2
pushi $6 ; nsTop
pushi $7 ; nsLeft
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
push1
callk Graph, $c
aTop underBits
push0
callk PicNotValid, $0
sat temp[$1]
push1
push1
callk PicNotValid, $2
ldi $0
sat temp[$3]
pToa y
sat temp[$4]
push1
pTos elements
callk FirstNode, $2
sat temp[$5]
| IconBar::show:
link $8
pushi $ae ; 174, pause
push0
lag global[$8]
send $4
pTos state
ldi $20 ; 32, ' ', window
or
aTop state
pushi $cc ; 204, setCursor
push2
pushi $3e7 ; 999, BAD SELECTOR
push1
lag global[$1]
send $8
pushi $40 ; 64, '@', at
push1
push0
self $6
sat temp[$0]
pushi $3 ; loop
push2
push0
lat temp[$0]
send $4
push
pushi $3 ; loop
push0
lat temp[$0]
send $4
push
pushi $4 ; cel
push0
lat temp[$0]
send $4
push
callk CelHigh, $6
aTop height
push0
callk GetPort, $0
aTop port
push1
pushi $ff ; 255, cycler
callk SetPort, $2
pushi $6 ; nsTop
pushi $7 ; nsLeft
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
push1
callk Graph, $c
aTop underBits
push0
callk PicNotValid, $0
sat temp[$1]
push1
push1
callk PicNotValid, $2
ldi $0
sat temp[$3]
pToa y
sat temp[$4]
push1
pTos elements
callk FirstNode, $2
sat temp[$5]
|
code_0796: lat temp[$5]
bnt code_07e6
push1
lst temp[$5]
callk NextNode, $2
sat temp[$6]
push1
lst temp[$5]
callk NodeValue, $2
sat temp[$7]
push1
lst temp[$7]
callk IsObject, $2
not
bnt code_07b4
ret
| code_078c: lat temp[$5]
bnt code_07dc
push1
lst temp[$5]
callk NextNode, $2
sat temp[$6]
push1
lst temp[$5]
callk NodeValue, $2
sat temp[$7]
push1
lst temp[$7]
callk IsObject, $2
not
bnt code_07aa
ret
|
code_07b4: pushi $9 ; nsRight
push0
lat temp[$7]
send $4
push
ldi $0
le?
bnt code_07d8
pushi $e0 ; 224, show
push2
lst temp[$3]
lst temp[$4]
lat temp[$7]
send $8
pushi $9 ; nsRight
push0
lat temp[$7]
send $4
sat temp[$3]
jmp code_07e0
| code_07aa: pushi $9 ; nsRight
push0
lat temp[$7]
send $4
push
ldi $0
le?
bnt code_07ce
pushi $e0 ; 224, show
push2
lst temp[$3]
lst temp[$4]
lat temp[$7]
send $8
pushi $9 ; nsRight
push0
lat temp[$7]
send $4
sat temp[$3]
jmp code_07d6
|
code_07d8: pushi $e0 ; 224, show
push0
lat temp[$7]
send $4
code_07e0: lat temp[$6]
sat temp[$5]
jmp code_0796
| code_07ce: pushi $e0 ; 224, show
push0
lat temp[$7]
send $4
code_07d6: lat temp[$6]
sat temp[$5]
jmp code_078c
|
code_07e6: pToa curInvIcon
bnt code_08bb
pushi $f8 ; 248, has
push1
pushi $84 ; 132, indexOf
push1
pTos curInvIcon
lag global[$9]
send $6
push
lag global[$0]
send $6
bnt code_08b7
pushi $9 ; nsRight
push0
pToa useIconItem
send $4
push
pushi $7 ; nsLeft
push0
pToa useIconItem
send $4
sub
push
pushi $3 ; loop
push2
push0
pToa curInvIcon
send $4
push
pushi $3 ; loop
push0
pToa curInvIcon
send $4
push
pushi $4 ; cel
push0
pToa curInvIcon
send $4
push
callk CelWide, $6
sub
push
ldi $2
div
push
pushi $7 ; nsLeft
push0
pToa useIconItem
send $4
add
sat temp[$3]
pTos y
pushi $8 ; nsBottom
push0
pToa useIconItem
send $4
push
pushi $6 ; nsTop
push0
pToa useIconItem
send $4
sub
push
pushi $3 ; loop
push2
push0
pToa curInvIcon
send $4
push
pushi $3 ; loop
push0
pToa curInvIcon
send $4
push
pushi $4 ; cel
push0
pToa curInvIcon
send $4
push
callk CelHigh, $6
sub
push
ldi $2
div
push
pushi $6 ; nsTop
push0
pToa useIconItem
send $4
add
add
sat temp[$4]
pushi $6 ; nsTop
push2
push0
pToa curInvIcon
send $4
push
pushi $3 ; loop
push0
pToa curInvIcon
send $4
push
pushi $4 ; cel
push0
pToa curInvIcon
send $4
push
lst temp[$3]
lst temp[$4]
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $e ; 14, signal
push0
pToa useIconItem
send $4
push
ldi $4 ; cel
and
bnt code_08b5
pushi $e3 ; 227, mask
push0
pToa useIconItem
send $4
code_08b5: jmp code_08bb
| code_07dc: pToa curInvIcon
bnt code_08b1
pushi $f8 ; 248, has
push1
pushi $84 ; 132, indexOf
push1
pTos curInvIcon
lag global[$9]
send $6
push
lag global[$0]
send $6
bnt code_08ad
pushi $9 ; nsRight
push0
pToa useIconItem
send $4
push
pushi $7 ; nsLeft
push0
pToa useIconItem
send $4
sub
push
pushi $3 ; loop
push2
push0
pToa curInvIcon
send $4
push
pushi $3 ; loop
push0
pToa curInvIcon
send $4
push
pushi $4 ; cel
push0
pToa curInvIcon
send $4
push
callk CelWide, $6
sub
push
ldi $2
div
push
pushi $7 ; nsLeft
push0
pToa useIconItem
send $4
add
sat temp[$3]
pTos y
pushi $8 ; nsBottom
push0
pToa useIconItem
send $4
push
pushi $6 ; nsTop
push0
pToa useIconItem
send $4
sub
push
pushi $3 ; loop
push2
push0
pToa curInvIcon
send $4
push
pushi $3 ; loop
push0
pToa curInvIcon
send $4
push
pushi $4 ; cel
push0
pToa curInvIcon
send $4
push
callk CelHigh, $6
sub
push
ldi $2
div
push
pushi $6 ; nsTop
push0
pToa useIconItem
send $4
add
add
sat temp[$4]
pushi $6 ; nsTop
push2
push0
pToa curInvIcon
send $4
push
pushi $3 ; loop
push0
pToa curInvIcon
send $4
push
pushi $4 ; cel
push0
pToa curInvIcon
send $4
push
lst temp[$3]
lst temp[$4]
pushi $ff ; 255, cycler
callk DrawCel, $c
pushi $e ; 14, signal
push0
pToa useIconItem
send $4
push
ldi $4 ; cel
and
bnt code_08ab
pushi $e3 ; 227, mask
push0
pToa useIconItem
send $4
code_08ab: jmp code_08b1
|
code_08b7: ldi $0
aTop curInvIcon
code_08bb: push1
lst temp[$1]
callk PicNotValid, $2
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
push1
callk Graph, $c
pushi $e1 ; 225, highlight
push1
pTos curIcon
self $6
ret
| code_08ad: ldi $0
aTop curInvIcon
code_08b1: push1
lst temp[$1]
callk PicNotValid, $2
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
push1
callk Graph, $c
pushi $e1 ; 225, highlight
push1
pTos curIcon
self $6
ret
|
IconBar::hide:
link $3
pTos state
ldi $20 ; 32, ' ', window
and
bnt code_09aa
pushi $ae ; 174, pause
push1
push0
lag global[$8]
send $6
pTos state
ldi $df ; 223, helpVerb
and
aTop state
push1
pTos elements
callk FirstNode, $2
sat temp[$0]
| IconBar::hide:
link $3
pTos state
ldi $20 ; 32, ' ', window
and
bnt code_099f
pushi $ae ; 174, pause
push1
push0
lag global[$8]
send $6
pTos state
ldi $df ; 223, helpVerb
and
aTop state
push1
pTos elements
callk FirstNode, $2
sat temp[$0]
|
code_0900: lat temp[$0]
bnt code_0940
push1
lst temp[$0]
callk NextNode, $2
sat temp[$1]
push1
lst temp[$0]
callk NodeValue, $2
sat temp[$2]
push1
lst temp[$2]
callk IsObject, $2
not
bnt code_091e
ret
| code_08f6: lat temp[$0]
bnt code_0935
push1
lst temp[$0]
callk NextNode, $2
sat temp[$1]
push1
lst temp[$0]
callk NodeValue, $2
sat temp[$2]
push1
lst temp[$2]
callk IsObject, $2
not
bnt code_0914
ret
|
code_091e: push1
lst temp[$0]
callk NodeValue, $2
sat temp[$2]
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
lat temp[$2]
send $4
push
ldi $20 ; 32, ' ', window
bnot
and
push
lat temp[$2]
send $6
lat temp[$1]
sat temp[$0]
jmp code_0900
| code_0914: push1
lst temp[$0]
callk NodeValue, $2
sat temp[$2]
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
lat temp[$2]
send $4
push
ldi $df ; 223, helpVerb
; ------------- bnot -------------
and
push
lat temp[$2]
send $6
lat temp[$1]
sat temp[$0]
jmp code_08f6
|
code_0940: pTos state
ldi $800 ; 2048, BAD SELECTOR
and
not
bnt code_0971
push1
pTos helpIconItem
callk IsObject, $2
bnt code_0971
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
and
bnt code_0971
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $ef ; 239, advanceCurIcon
and
push
pToa helpIconItem
send $6
| code_0935: pTos state
ldi $800 ; 2048, BAD SELECTOR
and
not
bnt code_0966
push1
pTos helpIconItem
callk IsObject, $2
bnt code_0966
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
and
bnt code_0966
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $ef ; 239, advanceCurIcon
and
push
pToa helpIconItem
send $6
|
code_0971: push2
pushi $8 ; nsBottom
pTos underBits
callk Graph, $4
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
push1
callk Graph, $c
pushi $5 ; underBits
pushi $d ; 13, lsRight
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
callk Graph, $a
push1
pTos port
callk SetPort, $2
pToa activateHeight
aTop height
code_09aa: ret
| code_0966: push2
pushi $8 ; nsBottom
pTos underBits
callk Graph, $4
pushi $6 ; nsTop
pushi $c ; 12, lsBottom
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
push1
callk Graph, $c
pushi $5 ; underBits
pushi $d ; 13, lsRight
pTos y
push0
pTos y
pToa height
add
push
pushi $140 ; 320, inRect
callk Graph, $a
push1
pTos port
callk SetPort, $2
pToa activateHeight
aTop height
code_099f: ret
|
IconBar::advance:
link $2
ldi $1
sat temp[$1]
code_09b1: lst temp[$1]
pToa size
le?
bnt code_0a01
pushi $40 ; 64, '@', at
push1
lst temp[$1]
pushi $84 ; 132, indexOf
push1
pTos highlightedIcon
self $6
add
push
pToa size
mod
push
self $6
sat temp[$0]
push1
lst temp[$0]
callk IsObject, $2
not
bnt code_09e4
push1
pushi $7c ; 124, '|', first
push0
self $4
push
callk NodeValue, $2
sat temp[$0]
| IconBar::advance:
link $2
ldi $1
sat temp[$1]
code_09a6: lst temp[$1]
pToa size
le?
bnt code_09f6
pushi $40 ; 64, '@', at
push1
lst temp[$1]
pushi $84 ; 132, indexOf
push1
pTos highlightedIcon
self $6
add
push
pToa size
mod
push
self $6
sat temp[$0]
push1
lst temp[$0]
callk IsObject, $2
not
bnt code_09d9
push1
pushi $7c ; 124, '|', first
push0
self $4
push
callk NodeValue, $2
sat temp[$0]
|
code_09e4: pushi $e ; 14, signal
push0
lat temp[$0]
send $4
push
ldi $4 ; cel
and
not
bnt code_09f4
jmp code_0a01
| code_09d9: pushi $e ; 14, signal
push0
lat temp[$0]
send $4
push
ldi $4 ; cel
and
not
bnt code_09e9
jmp code_09f6
|
code_09f4: lst temp[$1]
ldi $1
add
push
pToa size
mod
sat temp[$1]
jmp code_09b1
| code_09e9: lst temp[$1]
ldi $1
add
push
pToa size
mod
sat temp[$1]
jmp code_09a6
|
code_0a01: pushi $e1 ; 225, highlight
push2
lst temp[$0]
pTos state
ldi $20 ; 32, ' ', window
and
push
self $8
ret
| code_09f6: pushi $e1 ; 225, highlight
push2
lst temp[$0]
pTos state
ldi $20 ; 32, ' ', window
and
push
self $8
ret
|
IconBar::retreat:
link $2
ldi $1
sat temp[$1]
code_0a16: lst temp[$1]
pToa size
le?
bnt code_0a67
pushi $40 ; 64, '@', at
push1
pushi $84 ; 132, indexOf
push1
pTos highlightedIcon
self $6
push
lat temp[$1]
sub
push
pToa size
mod
push
self $6
sat temp[$0]
push1
lst temp[$0]
callk IsObject, $2
not
bnt code_0a4a
push1
pushi $7f ; 127, last
push0
self $4
push
callk NodeValue, $2
sat temp[$0]
| IconBar::retreat:
link $2
ldi $1
sat temp[$1]
code_0a0b: lst temp[$1]
pToa size
le?
bnt code_0a5c
pushi $40 ; 64, '@', at
push1
pushi $84 ; 132, indexOf
push1
pTos highlightedIcon
self $6
push
lat temp[$1]
sub
push
pToa size
mod
push
self $6
sat temp[$0]
push1
lst temp[$0]
callk IsObject, $2
not
bnt code_0a3f
push1
pushi $7f ; 127, last
push0
self $4
push
callk NodeValue, $2
sat temp[$0]
|
code_0a4a: pushi $e ; 14, signal
push0
lat temp[$0]
send $4
push
ldi $4 ; cel
and
not
bnt code_0a5a
jmp code_0a67
| code_0a3f: pushi $e ; 14, signal
push0
lat temp[$0]
send $4
push
ldi $4 ; cel
and
not
bnt code_0a4f
jmp code_0a5c
|
code_0a5a: lst temp[$1]
ldi $1
add
push
pToa size
mod
sat temp[$1]
jmp code_0a16
| code_0a4f: lst temp[$1]
ldi $1
add
push
pToa size
mod
sat temp[$1]
jmp code_0a0b
|
code_0a67: pushi $e1 ; 225, highlight
push2
lst temp[$0]
pTos state
ldi $20 ; 32, ' ', window
and
push
self $8
ret
| code_0a5c: pushi $e1 ; 225, highlight
push2
lst temp[$0]
pTos state
ldi $20 ; 32, ' ', window
and
push
self $8
ret
|
IconBar::select:
pushi $b8 ; 184, select
push1
lsp param[$0]
ldi $2
ge?
bnt code_0a83
lap param[$2]
code_0a83: push
lap param[$1]
send $6
bnt code_0aa0
pushi $e ; 14, signal
push0
lap param[$1]
send $4
push
ldi $2
and
not
bnt code_0a9c
lap param[$1]
aTop curIcon
code_0a9c: ldi $1
jmp code_0aa2
| IconBar::select:
pushi $b8 ; 184, select
push1
lsp param[$0]
ldi $2
ge?
bnt code_0a78
lap param[$2]
code_0a78: push
lap param[$1]
send $6
bnt code_0a83
ldi $1
jmp code_0a85
|
code_0aa0: ldi $0
code_0aa2: ret
| code_0a83: ldi $0
code_0a85: ret
|
IconBar::highlight:
link $1
pushi $e ; 14, signal
push0
lap param[$1]
send $4
push
ldi $4 ; cel
and
not
bnt code_0acf
push1
pTos highlightedIcon
callk IsObject, $2
bnt code_0ac4
pushi $e1 ; 225, highlight
push1
push0
pToa highlightedIcon
send $6
| IconBar::highlight:
link $1
pushi $e ; 14, signal
push0
lap param[$1]
send $4
push
ldi $4 ; cel
and
not
bnt code_0ab2
push1
pTos highlightedIcon
callk IsObject, $2
bnt code_0aa7
pushi $e1 ; 225, highlight
push1
push0
pToa highlightedIcon
send $6
|
code_0ac4: pushi $e1 ; 225, highlight
push1
push1
lap param[$1]
aTop highlightedIcon
send $6
| code_0aa7: pushi $e1 ; 225, highlight
push1
push1
lap param[$1]
aTop highlightedIcon
send $6
|
code_0acf: lsp param[$0]
ldi $2
ge?
bnt code_0b10
lap param[$2]
bnt code_0b10
pushi $cc ; 204, setCursor
pushi $4 ; cel
lsg global[$13]
push1
pushi $7 ; nsLeft
push0
lap param[$1]
send $4
push
pushi $9 ; nsRight
push0
lap param[$1]
send $4
push
pushi $7 ; nsLeft
push0
lap param[$1]
send $4
sub
push
ldi $2
div
add
push
pushi $8 ; nsBottom
push0
lap param[$1]
send $4
push
ldi $3 ; loop
sub
push
lag global[$1]
send $c
code_0b10: ret
| code_0ab2: lsp param[$0]
ldi $2
ge?
bnt code_0af3
lap param[$2]
bnt code_0af3
pushi $cc ; 204, setCursor
pushi $4 ; cel
lsg global[$13]
push1
pushi $7 ; nsLeft
push0
lap param[$1]
send $4
push
pushi $9 ; nsRight
push0
lap param[$1]
send $4
push
pushi $7 ; nsLeft
push0
lap param[$1]
send $4
sub
push
ldi $2
div
add
push
pushi $8 ; nsBottom
push0
lap param[$1]
send $4
push
ldi $3 ; loop
sub
push
lag global[$1]
send $c
code_0af3: ret
|
IconBar::swapCurIcon:
link $1
pTos state
ldi $4 ; cel
and
bnt code_0b1d
ret
jmp code_0b66
| IconBar::swapCurIcon:
link $1
pTos state
ldi $4 ; cel
and
bnt code_0b00
ret
jmp code_0b49
|
code_0b1d: push1
pushi $7c ; 124, '|', first
push0
self $4
push
callk NodeValue, $2
sat temp[$0]
pTos curIcon
lat temp[$0]
ne?
bnt code_0b50
pushi $e ; 14, signal
push0
lat temp[$0]
send $4
push
ldi $4 ; cel
and
not
bnt code_0b50
pToa curIcon
aTop prevIcon
push1
pushi $7c ; 124, '|', first
push0
self $4
push
callk NodeValue, $2
aTop curIcon
jmp code_0b66
| code_0b00: push1
pushi $7c ; 124, '|', first
push0
self $4
push
callk NodeValue, $2
sat temp[$0]
pTos curIcon
lat temp[$0]
ne?
bnt code_0b33
pushi $e ; 14, signal
push0
lat temp[$0]
send $4
push
ldi $4 ; cel
and
not
bnt code_0b33
pToa curIcon
aTop prevIcon
push1
pushi $7c ; 124, '|', first
push0
self $4
push
callk NodeValue, $2
aTop curIcon
jmp code_0b49
|
code_0b50: pToa prevIcon
bnt code_0b66
pushi $e ; 14, signal
push0
pToa prevIcon
send $4
push
ldi $4 ; cel
and
not
bnt code_0b66
pToa prevIcon
aTop curIcon
| code_0b33: pToa prevIcon
bnt code_0b49
pushi $e ; 14, signal
push0
pToa prevIcon
send $4
push
ldi $4 ; cel
and
not
bnt code_0b49
pToa prevIcon
aTop curIcon
|
code_0b66: pushi $cc ; 204, setCursor
push2
pushi $21 ; 33, '!', cursor
push0
pToa curIcon
send $4
push
push1
lag global[$1]
send $8
ret
| code_0b49: pushi $cc ; 204, setCursor
push2
pushi $21 ; 33, '!', cursor
push0
pToa curIcon
send $4
push
push1
lag global[$1]
send $8
ret
|
IconBar::advanceCurIcon:
link $3
pTos state
ldi $4 ; cel
and
bnt code_0b82
ret
| IconBar::advanceCurIcon:
link $3
pTos state
ldi $4 ; cel
and
bnt code_0b65
ret
|
code_0b82: pToa curIcon
sat temp[$0]
ldi $0
sat temp[$1]
code_0b8a: pushi $e ; 14, signal
push0
pushi $40 ; 64, '@', at
push1
pushi $84 ; 132, indexOf
push1
lst temp[$0]
self $6
push
ldi $1
add
push
pToa size
mod
push
self $6
sat temp[$0]
send $4
push
ldi $6 ; nsTop
and
bnt code_0bbd
lst temp[$1]
push1
pToa size
add
gt?
bnt code_0bb9
ret
jmp code_0bbb
| code_0b65: pToa curIcon
sat temp[$0]
ldi $0
sat temp[$1]
code_0b6d: pushi $e ; 14, signal
push0
pushi $40 ; 64, '@', at
push1
pushi $84 ; 132, indexOf
push1
lst temp[$0]
self $6
push
ldi $1
add
push
pToa size
mod
push
self $6
sat temp[$0]
send $4
push
ldi $6 ; nsTop
and
bnt code_0ba0
lst temp[$1]
push1
pToa size
add
gt?
bnt code_0b9c
ret
jmp code_0b9e
|
code_0bb9: +at temp[$1]
code_0bbb: jmp code_0b8a
| code_0b9c: +at temp[$1]
code_0b9e: jmp code_0b6d
|
code_0bbd: lat temp[$0]
aTop curIcon
pushi $cc ; 204, setCursor
push2
pushi $21 ; 33, '!', cursor
push0
pToa curIcon
send $4
push
push1
lag global[$1]
send $8
ret
| code_0ba0: lat temp[$0]
aTop curIcon
pushi $cc ; 204, setCursor
push2
pushi $21 ; 33, '!', cursor
push0
pToa curIcon
send $4
push
push1
lag global[$1]
send $8
ret
|
IconBar::dispatchEvent:
link $3d
push1
push0
lap param[$1]
send $4
sat temp[$1]
push0
push0
lap param[$1]
send $4
sat temp[$0]
pushi $1f ; 31, type
push0
lap param[$1]
send $4
sat temp[$2]
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
sat temp[$3]
pushi $49 ; 73, 'I', claimed
push0
lap param[$1]
send $4
sat temp[$5]
pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lsp param[$1]
self $8
sat temp[$4]
lat temp[$4]
bnt code_0c33
pushi $21 ; 33, '!', cursor
push0
pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lsp param[$1]
self $8
sat temp[$4]
send $4
sat temp[$39]
pushi $e ; 14, signal
push0
lat temp[$4]
send $4
sat temp[$3a]
lst temp[$4]
pToa helpIconItem
eq?
sat temp[$3b]
| IconBar::dispatchEvent:
link $3d
push1
push0
lap param[$1]
send $4
sat temp[$1]
push0
push0
lap param[$1]
send $4
sat temp[$0]
pushi $1f ; 31, type
push0
lap param[$1]
send $4
sat temp[$2]
pushi $25 ; 37, '%', message
push0
lap param[$1]
send $4
sat temp[$3]
pushi $49 ; 73, 'I', claimed
push0
lap param[$1]
send $4
sat temp[$5]
pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lsp param[$1]
self $8
sat temp[$4]
lat temp[$4]
bnt code_0c16
pushi $21 ; 33, '!', cursor
push0
pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lsp param[$1]
self $8
sat temp[$4]
send $4
sat temp[$39]
pushi $e ; 14, signal
push0
lat temp[$4]
send $4
sat temp[$3a]
lst temp[$4]
pToa helpIconItem
eq?
sat temp[$3b]
|
code_0c33: lst temp[$2]
ldi $40 ; 64, '@', at
and
bnt code_0c5a
lst temp[$3]
dup
ldi $3 ; loop
eq?
bnt code_0c4a
pushi $c5 ; 197, advance
push0
self $4
jmp code_0c56
| code_0c16: lst temp[$2]
ldi $40 ; 64, '@', at
and
bnt code_0c3d
lst temp[$3]
dup
ldi $3 ; loop
eq?
bnt code_0c2d
pushi $c5 ; 197, advance
push0
self $4
jmp code_0c39
|
code_0c4a: dup
ldi $7 ; nsLeft
eq?
bnt code_0c56
pushi $c6 ; 198, retreat
push0
self $4
code_0c56: toss
jmp code_0e6a
| code_0c2d: dup
ldi $7 ; nsLeft
eq?
bnt code_0c39
pushi $c6 ; 198, retreat
push0
self $4
code_0c39: toss
jmp code_0e4d
|
code_0c5a: lst temp[$2]
dup
ldi $0
eq?
bnt code_0cc4
push0
lat temp[$0]
le?
bnt code_0c7e
lst temp[$0]
pTos y
pToa height
add
le?
bnt code_0c7e
push0
lat temp[$1]
le?
bnt code_0c7e
lst temp[$1]
ldi $140 ; 320, inRect
le?
| code_0c3d: lst temp[$2]
dup
ldi $0
eq?
bnt code_0ca7
push0
lat temp[$0]
le?
bnt code_0c61
lst temp[$0]
pTos y
pToa height
add
le?
bnt code_0c61
push0
lat temp[$1]
le?
bnt code_0c61
lst temp[$1]
ldi $140 ; 320, inRect
le?
|
code_0c7e: not
bnt code_0caa
pTos state
ldi $400 ; 1024, BAD SELECTOR
and
bnt code_0ca8
push1
pTos helpIconItem
callk IsObject, $2
not
bt code_0ca0
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
and
not
bnt code_0ca8
| code_0c61: not
bnt code_0c8d
pTos state
ldi $400 ; 1024, BAD SELECTOR
and
bnt code_0c8b
push1
pTos helpIconItem
callk IsObject, $2
not
bt code_0c83
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
and
not
bnt code_0c8b
|
code_0ca0: ldi $0
aTop oldMouseY
ldi $1
sat temp[$5]
code_0ca8: jmp code_0cc1
| code_0c83: ldi $0
aTop oldMouseY
ldi $1
sat temp[$5]
code_0c8b: jmp code_0ca4
|
code_0caa: lat temp[$4]
bnt code_0cc1
lst temp[$4]
pToa highlightedIcon
ne?
bnt code_0cc1
ldi $0
aTop oldMouseY
pushi $e1 ; 225, highlight
push1
lst temp[$4]
self $6
code_0cc1: jmp code_0e69
| code_0c8d: lat temp[$4]
bnt code_0ca4
lst temp[$4]
pToa highlightedIcon
ne?
bnt code_0ca4
ldi $0
aTop oldMouseY
pushi $e1 ; 225, highlight
push1
lst temp[$4]
self $6
code_0ca4: jmp code_0e4c
|
code_0cc4: dup
ldi $1
eq?
bnt code_0d21
lat temp[$4]
bnt code_0d1e
pushi $b8 ; 184, select
push2
lst temp[$4]
push1
self $8
bnt code_0d1e
lat temp[$3b]
bnt code_0d10
lat temp[$39]
bnt code_0ceb
pushi $cc ; 204, setCursor
push1
lst temp[$39]
lag global[$1]
send $6
| code_0ca7: dup
ldi $1
eq?
bnt code_0d04
lat temp[$4]
bnt code_0d01
pushi $b8 ; 184, select
push2
lst temp[$4]
push1
self $8
bnt code_0d01
lat temp[$3b]
bnt code_0cf3
lat temp[$39]
bnt code_0cce
pushi $cc ; 204, setCursor
push1
lst temp[$39]
lag global[$1]
send $6
|
code_0ceb: pTos state
ldi $800 ; 2048, BAD SELECTOR
and
bnt code_0cfb
pushi $f2 ; 242, noClickHelp
push0
self $4
jmp code_0d0e
| code_0cce: pTos state
ldi $800 ; 2048, BAD SELECTOR
and
bnt code_0cde
pushi $f2 ; 242, noClickHelp
push0
self $4
jmp code_0cf1
|
code_0cfb: pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
or
push
pToa helpIconItem
send $6
code_0d0e: jmp code_0d17
| code_0cde: pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
or
push
pToa helpIconItem
send $6
code_0cf1: jmp code_0cfa
|
code_0d10: lst temp[$3a]
ldi $40 ; 64, '@', at
and
sat temp[$5]
code_0d17: pushi $39 ; 57, '9', doit
push0
lat temp[$4]
send $4
code_0d1e: jmp code_0e69
| code_0cf3: lst temp[$3a]
ldi $40 ; 64, '@', at
and
sat temp[$5]
code_0cfa: pushi $39 ; 57, '9', doit
push0
lat temp[$4]
send $4
code_0d01: jmp code_0e4c
|
code_0d21: dup
ldi $4 ; cel
eq?
bnt code_0dca
lst temp[$3]
dup
ldi $1b ; 27, mode
eq?
bnt code_0d37
ldi $1
sat temp[$5]
jmp code_0dc6
| code_0d04: dup
ldi $4 ; cel
eq?
bnt code_0dad
lst temp[$3]
dup
ldi $1b ; 27, mode
eq?
bnt code_0d1a
ldi $1
sat temp[$5]
jmp code_0da9
|
code_0d37: dup
ldi $5300 ; 21248
eq?
bnt code_0d45
ldi $1
sat temp[$5]
jmp code_0dc6
| code_0d1a: dup
ldi $5300 ; 21248
eq?
bnt code_0d28
ldi $1
sat temp[$5]
jmp code_0da9
|
code_0d45: dup
ldi $d ; 13, lsRight
eq?
bnt code_0dab
lat temp[$4]
not
bnt code_0d54
pToa highlightedIcon
sat temp[$4]
| code_0d28: dup
ldi $d ; 13, lsRight
eq?
bnt code_0d8e
lat temp[$4]
not
bnt code_0d37
pToa highlightedIcon
sat temp[$4]
|
code_0d54: lat temp[$4]
bnt code_0d89
lst temp[$4]
pToa helpIconItem
eq?
bnt code_0d89
lst temp[$39]
ldi $ff ; 255, cycler
ne?
bnt code_0d70
pushi $cc ; 204, setCursor
push1
lst temp[$39]
lag global[$1]
send $6
| code_0d37: lat temp[$4]
bnt code_0d6c
lst temp[$4]
pToa helpIconItem
eq?
bnt code_0d6c
lst temp[$39]
ldi $ff ; 255, cycler
ne?
bnt code_0d53
pushi $cc ; 204, setCursor
push1
lst temp[$39]
lag global[$1]
send $6
|
code_0d70: pToa helpIconItem
bnt code_0d87
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
or
push
pToa helpIconItem
send $6
code_0d87: jmp code_0da9
| code_0d53: pToa helpIconItem
bnt code_0d6a
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $10 ; 16, brTop
or
push
pToa helpIconItem
send $6
code_0d6a: jmp code_0d8c
|
code_0d89: push1
lst temp[$4]
callk IsObject, $2
bnt code_0da9
pushi $b8 ; 184, select
push1
lst temp[$4]
self $6
bnt code_0da9
pushi $39 ; 57, '9', doit
push0
lat temp[$4]
send $4
lst temp[$3a]
ldi $40 ; 64, '@', at
and
sat temp[$5]
code_0da9: jmp code_0dc6
| code_0d6c: push1
lst temp[$4]
callk IsObject, $2
bnt code_0d8c
pushi $b8 ; 184, select
push1
lst temp[$4]
self $6
bnt code_0d8c
pushi $39 ; 57, '9', doit
push0
lat temp[$4]
send $4
lst temp[$3a]
ldi $40 ; 64, '@', at
and
sat temp[$5]
code_0d8c: jmp code_0da9
|
code_0dab: dup
ldi $f00 ; 3840, BAD SELECTOR
eq?
bnt code_0dba
pushi $c6 ; 198, retreat
push0
self $4
jmp code_0dc6
| code_0d8e: dup
ldi $f00 ; 3840, BAD SELECTOR
eq?
bnt code_0d9d
pushi $c6 ; 198, retreat
push0
self $4
jmp code_0da9
|
code_0dba: dup
ldi $9 ; nsRight
eq?
bnt code_0dc6
pushi $c5 ; 197, advance
push0
self $4
code_0dc6: toss
jmp code_0e69
| code_0d9d: dup
ldi $9 ; nsRight
eq?
bnt code_0da9
pushi $c5 ; 197, advance
push0
self $4
code_0da9: toss
jmp code_0e4c
|
code_0dca: dup
ldi $6000 ; 24576
eq?
bnt code_0e69
lat temp[$4]
bnt code_0e47
pushi $df ; 223, helpVerb
push0
lat temp[$4]
send $4
bnt code_0e47
push0
callk HaveMouse, $0
not
bnt code_0df4
pushi $cc ; 204, setCursor
push1
pushi $3e4 ; 996, BAD SELECTOR
lag global[$1]
send $6
sat temp[$3c]
| code_0dad: dup
ldi $6000 ; 24576
eq?
bnt code_0e4c
lat temp[$4]
bnt code_0e2a
pushi $df ; 223, helpVerb
push0
lat temp[$4]
send $4
bnt code_0e2a
push0
callk HaveMouse, $0
not
bnt code_0dd7
pushi $cc ; 204, setCursor
push1
pushi $3e4 ; 996, BAD SELECTOR
lag global[$1]
send $6
sat temp[$3c]
|
code_0df4: push0
callk GetPort, $0
sat temp[$6]
pushi $1e ; 30, font
push1
lsg global[$16]
pushi $43 ; 67, 'C', width
push1
pushi $fa ; 250, completed
pushi $cd ; 205, addText
pushi $7 ; nsLeft
pushi $dd ; 221, noun
push0
lat temp[$4]
send $4
push
pushi $df ; 223, helpVerb
push0
lat temp[$4]
send $4
push
push0
push1
push0
push0
pushi $de ; 222, modNum
push0
lat temp[$4]
send $4
push
pushi $6e ; 110, 'n', init
push0
class Print
send $22
push1
lst temp[$6]
callk SetPort, $2
push0
callk HaveMouse, $0
not
bnt code_0e47
pushi $cc ; 204, setCursor
push1
lst temp[$3c]
lag global[$1]
send $6
| code_0dd7: push0
callk GetPort, $0
sat temp[$6]
pushi $1e ; 30, font
push1
lsg global[$16]
pushi $43 ; 67, 'C', width
push1
pushi $fa ; 250, completed
pushi $cd ; 205, addText
pushi $7 ; nsLeft
pushi $dd ; 221, noun
push0
lat temp[$4]
send $4
push
pushi $df ; 223, helpVerb
push0
lat temp[$4]
send $4
push
push0
push1
push0
push0
pushi $de ; 222, modNum
push0
lat temp[$4]
send $4
push
pushi $6e ; 110, 'n', init
push0
class Print
send $22
push1
lst temp[$6]
callk SetPort, $2
push0
callk HaveMouse, $0
not
bnt code_0e2a
pushi $cc ; 204, setCursor
push1
lst temp[$3c]
lag global[$1]
send $6
|
code_0e47: pToa helpIconItem
bnt code_0e5e
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $ef ; 239, advanceCurIcon
and
push
pToa helpIconItem
send $6
| code_0e2a: pToa helpIconItem
bnt code_0e41
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
pToa helpIconItem
send $4
push
ldi $ef ; 239, advanceCurIcon
and
push
pToa helpIconItem
send $6
|
code_0e5e: pushi $cc ; 204, setCursor
push1
pushi $3e7 ; 999, BAD SELECTOR
lag global[$1]
send $6
code_0e69: toss
code_0e6a: lat temp[$5]
ret
| code_0e41: pushi $cc ; 204, setCursor
push1
pushi $3e7 ; 999, BAD SELECTOR
lag global[$1]
send $6
code_0e4c: toss
code_0e4d: lat temp[$5]
ret
|
IconBar::disable:
link $2
lap param[$0]
bnt code_0ece
ldi $0
sat temp[$0]
code_0e77: lst temp[$0]
lap param[$0]
lt?
bnt code_0ecc
push1
lat temp[$0]
lspi param[$1]
callk IsObject, $2
bnt code_0e8e
lat temp[$0]
lapi param[$1]
jmp code_0e97
| IconBar::disable:
link $2
lap param[$0]
bnt code_0eb1
ldi $0
sat temp[$0]
code_0e5a: lst temp[$0]
lap param[$0]
lt?
bnt code_0eaf
push1
lat temp[$0]
lspi param[$1]
callk IsObject, $2
bnt code_0e71
lat temp[$0]
lapi param[$1]
jmp code_0e7a
|
code_0e8e: pushi $40 ; 64, '@', at
push1
lat temp[$0]
lspi param[$1]
self $6
code_0e97: sat temp[$1]
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
lat temp[$1]
send $4
push
ldi $4 ; cel
or
push
lat temp[$1]
send $6
lst temp[$1]
pToa curIcon
eq?
bnt code_0ebb
pushi $ef ; 239, advanceCurIcon
push0
self $4
jmp code_0ec8
| code_0e71: pushi $40 ; 64, '@', at
push1
lat temp[$0]
lspi param[$1]
self $6
code_0e7a: sat temp[$1]
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
lat temp[$1]
send $4
push
ldi $4 ; cel
or
push
lat temp[$1]
send $6
lst temp[$1]
pToa curIcon
eq?
bnt code_0e9e
pushi $ef ; 239, advanceCurIcon
push0
self $4
jmp code_0eab
|
code_0ebb: lst temp[$1]
pToa highlightedIcon
eq?
bnt code_0ec8
pushi $c5 ; 197, advance
push0
self $4
code_0ec8: +at temp[$0]
jmp code_0e77
code_0ecc: jmp code_0ed5
| code_0e9e: lst temp[$1]
pToa highlightedIcon
eq?
bnt code_0eab
pushi $c5 ; 197, advance
push0
self $4
code_0eab: +at temp[$0]
jmp code_0e5a
code_0eaf: jmp code_0eb8
|
code_0ece: pTos state
ldi $4 ; cel
or
aTop state
code_0ed5: ret
| code_0eb1: pTos state
ldi $4 ; cel
or
aTop state
code_0eb8: ret
|
IconBar::enable:
link $2
lap param[$0]
bnt code_0f1c
ldi $0
sat temp[$0]
code_0ee0: lst temp[$0]
lap param[$0]
lt?
bnt code_0f1a
push1
lat temp[$0]
lspi param[$1]
callk IsObject, $2
bnt code_0ef7
lat temp[$0]
lapi param[$1]
jmp code_0f00
| IconBar::enable:
link $2
lap param[$0]
bnt code_0efe
ldi $0
sat temp[$0]
code_0ec3: lst temp[$0]
lap param[$0]
lt?
bnt code_0efc
push1
lat temp[$0]
lspi param[$1]
callk IsObject, $2
bnt code_0eda
lat temp[$0]
lapi param[$1]
jmp code_0ee3
|
code_0ef7: pushi $40 ; 64, '@', at
push1
lat temp[$0]
lspi param[$1]
self $6
code_0f00: sat temp[$1]
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
lat temp[$1]
send $4
push
ldi $4 ; cel
bnot
and
push
lat temp[$1]
send $6
+at temp[$0]
jmp code_0ee0
code_0f1a: jmp code_0f24
| code_0eda: pushi $40 ; 64, '@', at
push1
lat temp[$0]
lspi param[$1]
self $6
code_0ee3: sat temp[$1]
pushi $e ; 14, signal
push1
pushi $e ; 14, signal
push0
lat temp[$1]
send $4
push
ldi $fb ; 251, nextCel
; ------------- bnot -------------
and
push
lat temp[$1]
send $6
+at temp[$0]
jmp code_0ec3
code_0efc: jmp code_0f05
|
code_0f1c: pTos state
ldi $4 ; cel
bnot
and
aTop state
code_0f24: ret
| code_0efe: pTos state
ldi $fb ; 251, nextCel
; ------------- bnot -------------
and
aTop state
code_0f05: ret
|
IconBar::noClickHelp:
link $6
ldi $0
sat temp[$2]
lat temp[$2]
sat temp[$1]
push0
callk GetPort, $0
sat temp[$3]
pushi $f4 ; 244, eraseOnly
push0
lag global[$22]
send $4
sat temp[$4]
pushi $f4 ; 244, eraseOnly
push1
push1
lag global[$22]
send $6
| IconBar::noClickHelp:
link $6
ldi $0
sat temp[$2]
lat temp[$2]
sat temp[$1]
push0
callk GetPort, $0
sat temp[$3]
pushi $f4 ; 244, eraseOnly
push0
lag global[$22]
send $4
sat temp[$4]
pushi $f4 ; 244, eraseOnly
push1
push1
lag global[$22]
send $6
|
code_0f48: pushi $1f ; 31, type
push0
pushi $6d ; 109, 'm', new
push0
pushi $f5 ; 245, curEvent
push0
lag global[$49]
send $4
send $4
sat temp[$0]
send $4
not
bnt code_100c
pushi $73 ; 115, 's', isMemberOf
push1
class IconBar
push
self $6
not
bnt code_0f73
pushi $94 ; 148, localize
push0
lat temp[$0]
send $4
| code_0f29: pushi $1f ; 31, type
push0
pushi $6d ; 109, 'm', new
push0
pushi $f5 ; 245, curEvent
push0
lag global[$49]
send $4
send $4
sat temp[$0]
send $4
not
bnt code_0fed
pushi $73 ; 115, 's', isMemberOf
push1
class IconBar
push
self $6
not
bnt code_0f54
pushi $94 ; 148, localize
push0
lat temp[$0]
send $4
|
code_0f73: pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lst temp[$0]
self $8
sat temp[$2]
lat temp[$2]
bnt code_0ff1
pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lst temp[$0]
self $8
sat temp[$2]
push
lat temp[$1]
ne?
bnt code_0fef
pushi $df ; 223, helpVerb
push0
lat temp[$2]
send $4
bnt code_0fef
lat temp[$2]
sat temp[$1]
lag global[$19]
bnt code_0fae
pushi $6f ; 111, 'o', dispose
push0
lag global[$19]
send $4
| code_0f54: pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lst temp[$0]
self $8
sat temp[$2]
lat temp[$2]
bnt code_0fd2
pushi $78 ; 120, 'x', firstTrue
push2
pushi $e2 ; 226, onMe
lst temp[$0]
self $8
sat temp[$2]
push
lat temp[$1]
ne?
bnt code_0fd0
pushi $df ; 223, helpVerb
push0
lat temp[$2]
send $4
bnt code_0fd0
lat temp[$2]
sat temp[$1]
lag global[$19]
bnt code_0f8f
pushi $6f ; 111, 'o', dispose
push0
lag global[$19]
send $4
|
code_0fae: pushi $1e ; 30, font
push1
lsg global[$16]
pushi $43 ; 67, 'C', width
push1
pushi $fa ; 250, completed
pushi $cd ; 205, addText
pushi $7 ; nsLeft
pushi $dd ; 221, noun
push0
lat temp[$2]
send $4
push
pushi $df ; 223, helpVerb
push0
lat temp[$2]
send $4
push
push0
push1
push0
push0
pushi $de ; 222, modNum
push0
lat temp[$2]
send $4
push
pushi $d2 ; 210, modeless
push1
push1
pushi $6e ; 110, 'n', init
push0
class Print
send $28
push1
lst temp[$3]
callk SetPort, $2
code_0fef: jmp code_1002
| code_0f8f: pushi $1e ; 30, font
push1
lsg global[$16]
pushi $43 ; 67, 'C', width
push1
pushi $fa ; 250, completed
pushi $cd ; 205, addText
pushi $7 ; nsLeft
pushi $dd ; 221, noun
push0
lat temp[$2]
send $4
push
pushi $df ; 223, helpVerb
push0
lat temp[$2]
send $4
push
push0
push1
push0
push0
pushi $de ; 222, modNum
push0
lat temp[$2]
send $4
push
pushi $d2 ; 210, modeless
push1
push1
pushi $6e ; 110, 'n', init
push0
class Print
send $28
push1
lst temp[$3]
callk SetPort, $2
code_0fd0: jmp code_0fe3
|
code_0ff1: lag global[$19]
bnt code_0ffe
pushi $6f ; 111, 'o', dispose
push0
lag global[$19]
send $4
jmp code_1002
| code_0fd2: lag global[$19]
bnt code_0fdf
pushi $6f ; 111, 'o', dispose
push0
lag global[$19]
send $4
jmp code_0fe3
|
code_0ffe: ldi $0
sat temp[$1]
code_1002: pushi $6f ; 111, 'o', dispose
push0
lat temp[$0]
send $4
jmp code_0f48
| code_0fdf: ldi $0
sat temp[$1]
code_0fe3: pushi $6f ; 111, 'o', dispose
push0
lat temp[$0]
send $4
jmp code_0f29
|
code_100c: pushi $f4 ; 244, eraseOnly
push1
lst temp[$4]
lag global[$22]
send $6
pushi $cc ; 204, setCursor
push2
pushi $3e7 ; 999, BAD SELECTOR
push1
lag global[$1]
send $8
lag global[$19]
bnt code_102d
pushi $6f ; 111, 'o', dispose
push0
lag global[$19]
send $4
| code_0fed: pushi $f4 ; 244, eraseOnly
push1
lst temp[$4]
lag global[$22]
send $6
pushi $cc ; 204, setCursor
push2
pushi $3e7 ; 999, BAD SELECTOR
push1
lag global[$1]
send $8
lag global[$19]
bnt code_100e
pushi $6f ; 111, 'o', dispose
push0
lag global[$19]
send $4
|
code_102d: push1
lst temp[$3]
callk SetPort, $2
pushi $e2 ; 226, onMe
push1
lst temp[$0]
pToa helpIconItem
send $6
not
bnt code_1048
pushi $f0 ; 240, dispatchEvent
push1
lst temp[$0]
self $6
code_1048: ret
| code_100e: push1
lst temp[$3]
callk SetPort, $2
pushi $e2 ; 226, onMe
push1
lst temp[$0]
pToa helpIconItem
send $6
not
bnt code_1029
pushi $f0 ; 240, dispatchEvent
push1
lst temp[$0]
self $6
code_1029: ret
|
IconBar::findIcon:
link $2
ldi $0
sat temp[$0]
code_104f: lst temp[$0]
pToa size
lt?
bnt code_1073
pushi $40 ; 64, '@', at
push1
lst temp[$0]
self $6
sat temp[$1]
pushi $25 ; 37, '%', message
push0
lat temp[$1]
send $4
push
lap param[$1]
eq?
bnt code_106f
lat temp[$1]
ret
| IconBar::findIcon:
link $2
ldi $0
sat temp[$0]
code_1030: lst temp[$0]
pToa size
lt?
bnt code_1054
pushi $40 ; 64, '@', at
push1
lst temp[$0]
self $6
sat temp[$1]
pushi $25 ; 37, '%', message
push0
lat temp[$1]
send $4
push
lap param[$1]
eq?
bnt code_1050
lat temp[$1]
ret
|
code_106f: +at temp[$0]
jmp code_104f
code_1073: ldi $0
ret
| code_1050: +at temp[$0]
jmp code_1030
code_1054: ldi $0
ret
|