2574 lines
38 KiB
Plaintext
2574 lines
38 KiB
Plaintext
FileSelector::init:
|
|
link $2
|
|
pToa curFileStr
|
|
bnt code_010b
|
|
ret
|
|
|
|
code_010b: pToa searchStr
|
|
not
|
|
bnt code_0115
|
|
lofsa string_00c2 ; "*.*"
|
|
aTop searchStr
|
|
code_0115: pToa font
|
|
not
|
|
bnt code_011e
|
|
lag global[$3b]
|
|
aTop font
|
|
code_011e: pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
lofsa string_00c6 ; "M"
|
|
push
|
|
pTos font
|
|
pushi $ff ; 255, asInteger
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $b ; 11, inRight
|
|
mul
|
|
aTop itemWidth
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pToa homeStr
|
|
not
|
|
bnt code_0177
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $80 ; 128, lastKey
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop homeStr
|
|
push2
|
|
pushi $12 ; 18, nsLeft
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos homeStr
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_93, $4
|
|
bnot
|
|
code_0177: pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa homeStr
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
pToa homeStr
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $5c ; 92, '\', palette
|
|
ne?
|
|
bnt code_01a8
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa homeStr
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $5c ; 92, '\', palette
|
|
push0
|
|
pToa homeStr
|
|
send $a
|
|
bnot
|
|
code_01a8: pushi $d3 ; 211, copy
|
|
push1
|
|
pTos homeStr
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop curDirStr
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pTos searchStr
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop curFileStr
|
|
pushi $22d ; 557, readDirectory
|
|
push2
|
|
pTos curDirStr
|
|
pTos curFileStr
|
|
self $8
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_00c8 ; ""
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $78 ; 120, 'x', textRight
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
pTos fore
|
|
pushi $26 ; 38, '&', back
|
|
push1
|
|
pTos back
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pTos left
|
|
pTos top
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class TextItem
|
|
send $4
|
|
bnot
|
|
aTop directoryI
|
|
send $32
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
push2
|
|
pTos directoryI
|
|
pTos curDirStr
|
|
call code_0ecc, $4
|
|
bnot
|
|
push
|
|
pToa directoryI
|
|
send $6
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pTos curFileStr
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $2e ; 46, '.', max
|
|
push1
|
|
pushi $1e ; 30, brRight
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pTos left
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
pToa directoryI
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $6 ; maxScale
|
|
add
|
|
push
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class EditItem
|
|
send $4
|
|
bnot
|
|
aTop fileNameI
|
|
send $24
|
|
bnot
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
pToa fileNameI
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $200 ; 512, bottomValue
|
|
or
|
|
push
|
|
pToa fileNameI
|
|
send $6
|
|
bnot
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $e2 ; 226, heighten
|
|
push1
|
|
pushi $6 ; maxScale
|
|
self $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Selector, $4
|
|
bnot
|
|
pushi $8 ; fixPriority
|
|
pushi $1c1 ; 449, borderSize
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
add
|
|
sat temp[$1]
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_00c9 ; "..\\"
|
|
push
|
|
pushi $1c8 ; 456, helpStr
|
|
push1
|
|
lofsa string_00cd ; " Select to go one directory up towards the root."
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $1a ; 26, signal
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
push1
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop upDirBtn
|
|
send $30
|
|
bnot
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa upArrow
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa scrollBox
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1c1 ; 449, borderSize
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
add
|
|
push
|
|
pToa upDirBtn
|
|
send $8
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_00c2 ; "*.*"
|
|
push
|
|
pushi $1c8 ; 456, helpStr
|
|
push1
|
|
lofsa string_0100 ; " Select to change the search mask."
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $1a ; 26, signal
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
push2
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1c1 ; 449, borderSize
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
add
|
|
push
|
|
ldi $6 ; maxScale
|
|
add
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
push1
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop fileMaskBtn
|
|
send $38
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_0125 ; "Home"
|
|
push
|
|
pushi $1c8 ; 456, helpStr
|
|
push1
|
|
lofsa string_012a ; " Select to go back to your original home directory."
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $40 ; 64, '@', yStep
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
pushi $4 ; scaleX
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
push1
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop homeBtn
|
|
send $38
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_0160 ; " OK "
|
|
push
|
|
pushi $1c8 ; 456, helpStr
|
|
push1
|
|
lofsa string_0165 ; " Select to use this selection."
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $40 ; 64, '@', yStep
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
push1
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa upDirBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
pToa homeBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop okBtn
|
|
send $38
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_0186 ; "Cancel"
|
|
push
|
|
pushi $1c8 ; 456, helpStr
|
|
push1
|
|
lofsa string_018d ; " Select to abort this operation."
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $40 ; 64, '@', yStep
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
push0
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa okBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
pToa okBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop cancelBtn
|
|
send $38
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa cancelBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos left
|
|
ldi $6 ; maxScale
|
|
add
|
|
sub
|
|
push
|
|
pToa directoryI
|
|
send $6
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa directoryI
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa fileNameI
|
|
send $6
|
|
bnot
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
self $4
|
|
bnot
|
|
pTos client
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_04ef
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa directoryI
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa fileNameI
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa homeBtn
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa okBtn
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa cancelBtn
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa fileMaskBtn
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa scrollBox
|
|
send $6
|
|
bnot
|
|
jmp code_050f
|
|
|
|
code_04ef: pToa client
|
|
bnt code_050f
|
|
pushi $ad ; 173, addBefore
|
|
push2
|
|
pushSelf
|
|
pTos fileNameI
|
|
pushi $9f ; 159, add
|
|
pushi $6 ; maxScale
|
|
pTos directoryI
|
|
pTos upDirBtn
|
|
pTos fileMaskBtn
|
|
pTos homeBtn
|
|
pTos okBtn
|
|
pTos cancelBtn
|
|
send $18
|
|
bnot
|
|
code_050f: pToa curItem
|
|
bnt code_052c
|
|
pToa elements
|
|
bnt code_052c
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
pTos curItem
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_052c
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
code_052c: ldi $0
|
|
aTop curItem
|
|
ret
|
|
|
|
FileSelector::dispose:
|
|
pToa homeStr
|
|
bnt code_0540
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop homeStr
|
|
code_0540: pToa curFileStr
|
|
bnt code_054f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop curFileStr
|
|
code_054f: pToa curDirStr
|
|
bnt code_055e
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop curDirStr
|
|
code_055e: pToa elements
|
|
bnt code_056d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop elements
|
|
code_056d: pushi $95 ; 149, dispose
|
|
push0
|
|
super Selector, $4
|
|
bnot
|
|
ldi $0
|
|
aTop upDirBtn
|
|
aTop fileMaskBtn
|
|
aTop cancelBtn
|
|
aTop okBtn
|
|
aTop homeBtn
|
|
aTop fileNameI
|
|
aTop directoryI
|
|
ret
|
|
|
|
FileSelector::moveTo:
|
|
link $2
|
|
pToa directoryI
|
|
bnt code_060b
|
|
lsp param[$1]
|
|
pToa left
|
|
sub
|
|
sat temp[$0]
|
|
lsp param[$2]
|
|
pToa top
|
|
sub
|
|
sat temp[$1]
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
lt?
|
|
bnt code_060b
|
|
pToa directoryI
|
|
bnt code_05b1
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_05b1: pToa fileNameI
|
|
bnt code_05c0
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_05c0: pToa upDirBtn
|
|
bnt code_05cf
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_05cf: pToa fileMaskBtn
|
|
bnt code_05de
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_05de: pToa homeBtn
|
|
bnt code_05ed
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_05ed: pToa okBtn
|
|
bnt code_05fc
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_05fc: pToa cancelBtn
|
|
bnt code_060b
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
send $8
|
|
bnot
|
|
code_060b: pushi $db ; 219, moveTo
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
super Selector, $8
|
|
bnot
|
|
ret
|
|
|
|
FileSelector::setSize:
|
|
link $1
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $6
|
|
bnot
|
|
pToa directoryI
|
|
bnt code_063b
|
|
pushi $af ; 175, union
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_063b: pToa fileNameI
|
|
bnt code_0649
|
|
pushi $af ; 175, union
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0649: pToa scrollBox
|
|
bnt code_0657
|
|
pushi $af ; 175, union
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0657: pToa downArrow
|
|
bnt code_0665
|
|
pushi $af ; 175, union
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0665: pToa cancelBtn
|
|
bnt code_0673
|
|
pushi $af ; 175, union
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0673: pushi $d3 ; 211, copy
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
FileSelector::draw:
|
|
pToa directoryI
|
|
bnt code_0690
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0690: pToa fileNameI
|
|
bnt code_069a
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_069a: pToa homeBtn
|
|
bnt code_06a4
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_06a4: pToa okBtn
|
|
bnt code_06ae
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_06ae: pToa cancelBtn
|
|
bnt code_06b8
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_06b8: pToa fileMaskBtn
|
|
bnt code_06c2
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_06c2: pToa upDirBtn
|
|
bnt code_06cc
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_06cc: pushi $57 ; 87, 'W', draw
|
|
push0
|
|
super Selector, $4
|
|
bnot
|
|
ret
|
|
|
|
FileSelector::selectItem:
|
|
link $1
|
|
pToa curItem
|
|
sat temp[$0]
|
|
pushi $1d4 ; 468, selectItem
|
|
push0
|
|
&rest $1
|
|
super Selector, $4
|
|
bnot
|
|
pTos curItem
|
|
lat temp[$0]
|
|
ne?
|
|
bnt code_0721
|
|
lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_0721
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
pToa curItem
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa curFileStr
|
|
send $6
|
|
bnot
|
|
pToa fileNameI
|
|
bnt code_0721
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pTos curFileStr
|
|
pushi $2d ; 45, '-', cursor
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa curFileStr
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa fileNameI
|
|
send $10
|
|
bnot
|
|
code_0721: ret
|
|
|
|
FileSelector::sort:
|
|
link $3
|
|
pushi $221 ; 545, pSelector
|
|
push1
|
|
pushSelf
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lsp param[$1]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class SelectorText
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
send $c
|
|
bnot
|
|
pushi $a4 ; 164, isEmpty
|
|
push0
|
|
pToa elements
|
|
send $4
|
|
bnot
|
|
bnt code_0756
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$1]
|
|
pToa elements
|
|
send $6
|
|
bnot
|
|
jmp code_07cf
|
|
|
|
code_0756: pushi $8d ; 141, new
|
|
push1
|
|
pTos elements
|
|
class Sequence
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_0763: pushi $4c ; 76, 'L', next
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
bnt code_07a9
|
|
pushi $22f ; 559, test
|
|
push1
|
|
pushi $10 ; 16, cel
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $22f ; 559, test
|
|
push1
|
|
pushi $10 ; 16, cel
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ne?
|
|
bt code_07a3
|
|
pushi $d5 ; 213, compare
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $0
|
|
lt?
|
|
code_07a3: bnt code_07a9
|
|
ldi $0
|
|
jmp code_0763
|
|
|
|
code_07a9: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$2]
|
|
bnt code_07c4
|
|
pushi $ad ; 173, addBefore
|
|
push2
|
|
push
|
|
lst temp[$1]
|
|
pToa elements
|
|
send $8
|
|
bnot
|
|
jmp code_07cf
|
|
|
|
code_07c4: pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$1]
|
|
pToa elements
|
|
send $6
|
|
bnot
|
|
code_07cf: ret
|
|
|
|
FileSelector::readDirectory:
|
|
link $5
|
|
pToa elements
|
|
bnt code_07e4
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
send $a
|
|
bnot
|
|
code_07e4: pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop elements
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $d ; 13, seenRect
|
|
lofsa <NIL>
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
push2
|
|
lst temp[$1]
|
|
lofsa string_00c2 ; "*.*"
|
|
push
|
|
call code_1040, $4
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$0]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
callk kernel_93, $8
|
|
bnot
|
|
bnt code_08b9
|
|
code_084c: pushi $22f ; 559, test
|
|
push1
|
|
pushi $10 ; 16, cel
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_08a3
|
|
pushi $d5 ; 213, compare
|
|
push1
|
|
lofsa string_01b0 ; "."
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bt code_087d
|
|
pushi $d5 ; 213, compare
|
|
push1
|
|
lofsa string_01b2 ; ".."
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
code_087d: bnt code_088a
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_0895
|
|
|
|
code_088a: pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
code_0895: pushi $8d ; 141, new
|
|
push1
|
|
pushi $d ; 13, seenRect
|
|
lofsa <NIL>
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_08a3: push2
|
|
pushi $9 ; inLeft
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$0]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_93, $4
|
|
bnot
|
|
not
|
|
bt code_08b9
|
|
jmp code_084c
|
|
|
|
code_08b9: lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_08ca
|
|
push2
|
|
lst temp[$1]
|
|
lsp param[$2]
|
|
call code_1040, $4
|
|
bnot
|
|
code_08ca: pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
callk kernel_93, $8
|
|
bnot
|
|
bnt code_0923
|
|
code_08e7: pushi $22f ; 559, test
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_090d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $d ; 13, seenRect
|
|
lofsa <NIL>
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_090d: push2
|
|
pushi $9 ; inLeft
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$0]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_93, $4
|
|
bnot
|
|
not
|
|
bt code_0923
|
|
jmp code_08e7
|
|
|
|
code_0923: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$4]
|
|
code_0939: lst temp[$4]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0997
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$4]
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_01b5 ; "<%s>"
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$4]
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
push
|
|
lofsa <NIL>
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $22e ; 558, sort
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$4]
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
+at temp[$4]
|
|
jmp code_0939
|
|
|
|
code_0997: pushi $a6 ; 166, release
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
sat temp[$4]
|
|
code_09a8: lst temp[$4]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_09cb
|
|
pushi $22e ; 558, sort
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$4]
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
+at temp[$4]
|
|
jmp code_09a8
|
|
|
|
code_09cb: pushi $a6 ; 166, release
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
FileSelector::update:
|
|
link $3
|
|
lap param[$0]
|
|
bnt code_0a26
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
lsp param[$1]
|
|
pToa curFileStr
|
|
send $6
|
|
bnot
|
|
pushi $22d ; 557, readDirectory
|
|
push2
|
|
pTos curDirStr
|
|
pTos curFileStr
|
|
self $8
|
|
bnot
|
|
ldi $0
|
|
aTop start
|
|
aTop curItem
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa elements
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa itemsPerPage
|
|
sub
|
|
sat temp[$1]
|
|
pushi $200 ; 512, bottomValue
|
|
push1
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_0a17
|
|
ldi $0
|
|
jmp code_0a19
|
|
|
|
code_0a17: lat temp[$1]
|
|
code_0a19: push
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa scrollBar
|
|
send $e
|
|
bnot
|
|
code_0a26: pToa directoryI
|
|
bnt code_0a7e
|
|
push2
|
|
push
|
|
pTos curDirStr
|
|
call code_0ecc, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
pToa directoryI
|
|
send $4
|
|
bnot
|
|
bnt code_0a4f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
pToa directoryI
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_0a4f: pushi $26 ; 38, '&', back
|
|
push1
|
|
lsg global[$58]
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsg global[$54]
|
|
pToa directoryI
|
|
send $c
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lst temp[$0]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa directoryI
|
|
send $a
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_0a7e: pToa fileNameI
|
|
bnt code_0a9b
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pTos curFileStr
|
|
pushi $2d ; 45, '-', cursor
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa curFileStr
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa fileNameI
|
|
send $10
|
|
bnot
|
|
code_0a9b: pushi $1ad ; 429, update
|
|
push0
|
|
super Selector, $4
|
|
bnot
|
|
ret
|
|
|
|
FileSelector::handleEvent:
|
|
link $6
|
|
ldi $0
|
|
sat temp[$0]
|
|
pToa fileNameI
|
|
bnt code_0b30
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_0b30
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_0b30
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
bnt code_0b30
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
pToa fileNameI
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $ae ; 174, indexOf
|
|
push1
|
|
pushi $2a ; 42, '*', font
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bt code_0b02
|
|
pushi $ae ; 174, indexOf
|
|
push1
|
|
pushi $3f ; 63, '?', xStep
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
code_0b02: bnt code_0b19
|
|
pushi $1ad ; 429, update
|
|
push1
|
|
lst temp[$2]
|
|
self $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0d2c
|
|
|
|
code_0b19: pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
pTos okBtn
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
jmp code_0d2c
|
|
|
|
code_0b30: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bt code_0b40
|
|
pTos state
|
|
ldi $1
|
|
and
|
|
not
|
|
code_0b40: bnt code_0b47
|
|
ldi $0
|
|
jmp code_0d2c
|
|
|
|
code_0b47: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
and
|
|
bnt code_0c92
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
pToa scrollBox
|
|
send $6
|
|
bnot
|
|
bnt code_0c92
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa scrollBox
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pToa scrollBox
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa itemsPerPage
|
|
div
|
|
div
|
|
sat temp[$3]
|
|
push
|
|
pToa start
|
|
add
|
|
sat temp[$1]
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa elements
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0d2c
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
pToa elements
|
|
send $6
|
|
bnot
|
|
sat temp[$5]
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
lat temp[$5]
|
|
send $4
|
|
bnot
|
|
push
|
|
lofsa <NIL>
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
send $6
|
|
bnot
|
|
pushi $22f ; 559, test
|
|
push1
|
|
pushi $10 ; 16, cel
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0c20
|
|
pushi $f8 ; 248, translate
|
|
push2
|
|
lofsa string_01ba ; "<"
|
|
push
|
|
lofsa string_00c8 ; ""
|
|
push
|
|
lat temp[$2]
|
|
send $8
|
|
bnot
|
|
pushi $f8 ; 248, translate
|
|
push2
|
|
lofsa string_01bc ; ">"
|
|
push
|
|
lofsa string_00c8 ; ""
|
|
push
|
|
lat temp[$2]
|
|
send $8
|
|
bnot
|
|
push2
|
|
pTos curDirStr
|
|
lst temp[$2]
|
|
call code_10fa, $4
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push1
|
|
pTos curFileStr
|
|
self $6
|
|
bnot
|
|
jmp code_0c81
|
|
|
|
code_0c20: pToa allowDoubleClick
|
|
bnt code_0c6d
|
|
pTos curItem
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
pToa elements
|
|
send $6
|
|
bnot
|
|
eq?
|
|
bnt code_0c6d
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
push
|
|
pToa doubleClickTime
|
|
sub
|
|
push
|
|
ldi $14 ; 20, nsRight
|
|
lt?
|
|
bnt code_0c6d
|
|
pushi $51 ; 81, 'Q', value
|
|
push0
|
|
pToa okBtn
|
|
send $4
|
|
bnot
|
|
aTop value
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
pTos okBtn
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $2b ; 43, '+', type
|
|
push1
|
|
pushi $4 ; scaleX
|
|
pushi $31 ; 49, '1', message
|
|
push1
|
|
pushi $d ; 13, seenRect
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $12
|
|
bnot
|
|
jmp code_0c81
|
|
|
|
code_0c6d: push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
aTop doubleClickTime
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
lst temp[$1]
|
|
self $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0c81: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
jmp code_0d2c
|
|
|
|
code_0c92: pTos state
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_0d1e
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $10 ; 16, cel
|
|
eq?
|
|
bnt code_0d1e
|
|
pToa curItem
|
|
sat temp[$4]
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
super Selector, $6
|
|
bnot
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0cef
|
|
lst temp[$4]
|
|
pToa curItem
|
|
ne?
|
|
bnt code_0d1b
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pToa curItem
|
|
bnt code_0cde
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
send $4
|
|
bnot
|
|
jmp code_0ce0
|
|
|
|
code_0cde: pToa searchStr
|
|
code_0ce0: push
|
|
pToa curFileStr
|
|
send $6
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0d1b
|
|
|
|
code_0cef: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_0d1b
|
|
lst temp[$4]
|
|
pToa curItem
|
|
ne?
|
|
bnt code_0d1b
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pToa curItem
|
|
bnt code_0d0c
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
send $4
|
|
bnot
|
|
jmp code_0d0e
|
|
|
|
code_0d0c: pToa searchStr
|
|
code_0d0e: push
|
|
pToa curFileStr
|
|
send $6
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0d1b: toss
|
|
jmp code_0d2c
|
|
|
|
code_0d1e: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
super Selector, $6
|
|
bnot
|
|
bnt code_0d2c
|
|
ldi $0
|
|
code_0d2c: lat temp[$0]
|
|
ret
|
|
|
|
FileSelector::doit:
|
|
link $2
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0e72
|
|
lsp param[$2]
|
|
ldi $45 ; 69, 'E', doit
|
|
eq?
|
|
bnt code_0e72
|
|
lsp param[$1]
|
|
dup
|
|
pToa fileNameI
|
|
eq?
|
|
bnt code_0d4e
|
|
ldi $0
|
|
jmp code_0e6f
|
|
|
|
code_0d4e: dup
|
|
pToa homeBtn
|
|
eq?
|
|
bnt code_0d6b
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pTos homeStr
|
|
pToa curDirStr
|
|
send $6
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push1
|
|
pTos curFileStr
|
|
self $6
|
|
bnot
|
|
jmp code_0e6f
|
|
|
|
code_0d6b: dup
|
|
pToa fileMaskBtn
|
|
eq?
|
|
bnt code_0df8
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_00c2 ; "*.*"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
pToa fileMaskBtn
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $d5 ; 213, compare
|
|
push1
|
|
lst temp[$0]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_0dbb
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
lst temp[$0]
|
|
pToa curFileStr
|
|
send $6
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pTos searchStr
|
|
pToa fileMaskBtn
|
|
send $6
|
|
bnot
|
|
jmp code_0dd2
|
|
|
|
code_0dbb: pushi $d3 ; 211, copy
|
|
push1
|
|
pTos searchStr
|
|
pToa curFileStr
|
|
send $6
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lofsa string_00c2 ; "*.*"
|
|
push
|
|
pToa fileMaskBtn
|
|
send $6
|
|
bnot
|
|
code_0dd2: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa fileMaskBtn
|
|
send $4
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push1
|
|
pTos curFileStr
|
|
self $6
|
|
bnot
|
|
jmp code_0e6f
|
|
|
|
code_0df8: dup
|
|
pToa upDirBtn
|
|
eq?
|
|
bnt code_0e12
|
|
push1
|
|
pTos curDirStr
|
|
call code_113b, $2
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push1
|
|
pTos curFileStr
|
|
self $6
|
|
bnot
|
|
jmp code_0e6f
|
|
|
|
code_0e12: dup
|
|
pToa okBtn
|
|
eq?
|
|
bnt code_0e4e
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pTos curDirStr
|
|
pToa homeStr
|
|
send $6
|
|
bnot
|
|
pushi $51 ; 81, 'Q', value
|
|
push0
|
|
pToa okBtn
|
|
send $4
|
|
bnot
|
|
aTop value
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pTos curFileStr
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class SelectorText
|
|
send $4
|
|
bnot
|
|
aTop curItem
|
|
send $6
|
|
bnot
|
|
jmp code_0e6f
|
|
|
|
code_0e4e: dup
|
|
pToa cancelBtn
|
|
eq?
|
|
bnt code_0e64
|
|
pushi $51 ; 81, 'Q', value
|
|
push0
|
|
pToa cancelBtn
|
|
send $4
|
|
bnot
|
|
aTop value
|
|
ldi $0
|
|
aTop curItem
|
|
jmp code_0e6f
|
|
|
|
code_0e64: pushi $45 ; 69, 'E', doit
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
super Selector, $8
|
|
bnot
|
|
code_0e6f: toss
|
|
jmp code_0e76
|
|
|
|
code_0e72: pToa curItem
|
|
aTop value
|
|
code_0e76: ldi $1
|
|
ret
|
|
|
|
<NIL>::set:
|
|
pTos state
|
|
lap param[$1]
|
|
or
|
|
aTop state
|
|
ret
|
|
|
|
<NIL>::clear:
|
|
pTos state
|
|
lap param[$1]
|
|
bnot
|
|
and
|
|
aTop state
|
|
ret
|
|
|
|
<NIL>::test:
|
|
pTos state
|
|
lap param[$1]
|
|
and
|
|
ret
|
|
|
|
<NIL>::compare:
|
|
link $3
|
|
lap param[$1]
|
|
bnt code_0ec1
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0e9b: pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
sat temp[$2]
|
|
eq?
|
|
bnt code_0eb9
|
|
+at temp[$0]
|
|
jmp code_0e9b
|
|
|
|
code_0eb9: lst temp[$1]
|
|
lat temp[$2]
|
|
sub
|
|
ret
|
|
|
|
jmp code_0ecc
|
|
|
|
code_0ec1: pushi $d5 ; 213, compare
|
|
push1
|
|
lsp param[$1]
|
|
super Str, $6
|
|
bnot
|
|
ret
|
|
|
|
code_0ecc: ret
|
|
|
|
link $7
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lsp param[$2]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $2a ; 42, '*', font
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_01cb ; "..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
push
|
|
lst temp[$5]
|
|
pushi $ff ; 255, asInteger
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sub
|
|
sat temp[$4]
|
|
ldi $0
|
|
sat temp[$3]
|
|
push2
|
|
push0
|
|
lst temp[$5]
|
|
callk kernel_73, $4
|
|
bnot
|
|
sat temp[$6]
|
|
code_0f3b: pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
lst temp[$1]
|
|
lst temp[$5]
|
|
lst temp[$4]
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
le?
|
|
bnt code_0f60
|
|
jmp code_0f8a
|
|
|
|
jmp code_0f3b
|
|
|
|
code_0f60: ldi $1
|
|
sat temp[$3]
|
|
lat temp[$1]
|
|
sat temp[$2]
|
|
pushi $fb ; 251, subStr
|
|
push2
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
lat temp[$2]
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_0f3b
|
|
|
|
code_0f8a: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$3]
|
|
bnt code_0fb5
|
|
lat temp[$1]
|
|
sat temp[$2]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_01cf ; "...%s"
|
|
push
|
|
lst temp[$2]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
code_0fb5: lat temp[$1]
|
|
code_0fb7: ret
|
|
|
|
link $1
|
|
pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $5c ; 92, '\', palette
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_0fe2
|
|
pushi $d7 ; 215, move
|
|
pushi $3 ; z
|
|
push0
|
|
+at temp[$0]
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_1007
|
|
|
|
code_0fe2: pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $3a ; 58, ':', b_i1
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_1007
|
|
pushi $d7 ; 215, move
|
|
pushi $3 ; z
|
|
push0
|
|
+at temp[$0]
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
code_1007: lap param[$1]
|
|
code_1009: ret
|
|
|
|
link $1
|
|
pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $5c ; 92, '\', palette
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bt code_1032
|
|
pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $3a ; 58, ':', b_i1
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
code_1032: pushi $4b ; 75, 'K', at
|
|
push2
|
|
+at temp[$0]
|
|
push
|
|
push0
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
lap param[$1]
|
|
code_1040: ret
|
|
|
|
link $1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_1065
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $5c ; 92, '\', palette
|
|
push0
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lsp param[$2]
|
|
lap param[$1]
|
|
send $10
|
|
bnot
|
|
jmp code_10fa
|
|
|
|
code_1065: pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $5c ; 92, '\', palette
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bt code_108b
|
|
pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $3a ; 58, ':', b_i1
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
code_108b: bnt code_10a5
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$0]
|
|
ldi $1
|
|
add
|
|
push
|
|
push0
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lsp param[$2]
|
|
lap param[$1]
|
|
send $e
|
|
bnot
|
|
jmp code_10fa
|
|
|
|
code_10a5: push2
|
|
pushi $13 ; 19, nsTop
|
|
lsp param[$1]
|
|
callk kernel_93, $4
|
|
bnot
|
|
bnt code_10ef
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $5c ; 92, '\', palette
|
|
ne?
|
|
bnt code_10e2
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $5c ; 92, '\', palette
|
|
push0
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
code_10e2: pushi $f7 ; 247, cat
|
|
push1
|
|
lsp param[$2]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_10fa
|
|
|
|
code_10ef: pushi $d3 ; 211, copy
|
|
push1
|
|
lsp param[$2]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_10fa: ret
|
|
|
|
link $1
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push1
|
|
push
|
|
call code_0fb7, $2
|
|
bnot
|
|
push1
|
|
lsp param[$1]
|
|
call code_1009, $2
|
|
bnot
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lsp param[$2]
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lofsa string_01d5 ; "\\"
|
|
push
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $12
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_113b: ret
|
|
|
|
link $2
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push1
|
|
push
|
|
call code_0fb7, $2
|
|
bnot
|
|
push1
|
|
lsp param[$1]
|
|
call code_1009, $2
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_1173
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $5c ; 92, '\', palette
|
|
push0
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
code_1173: pushi $4b ; 75, 'K', at
|
|
push2
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
push0
|
|
pushi $ae ; 174, indexOf
|
|
push2
|
|
pushi $5c ; 92, '\', palette
|
|
push1
|
|
lap param[$1]
|
|
send $10
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
ldi $1
|
|
lt?
|
|
bnt code_11c7
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $3a ; 58, ':', b_i1
|
|
eq?
|
|
bnt code_11b6
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
push2
|
|
pushi $5c ; 92, '\', palette
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
jmp code_11f8
|
|
|
|
code_11b6: pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $5c ; 92, '\', palette
|
|
push0
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_11f8
|
|
|
|
code_11c7: lst temp[$1]
|
|
ldi $2
|
|
eq?
|
|
bnt code_11ec
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $3a ; 58, ':', b_i1
|
|
eq?
|
|
bnt code_11ec
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
+at temp[$1]
|
|
push
|
|
push0
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
jmp code_11f8
|
|
|
|
code_11ec: pushi $4b ; 75, 'K', at
|
|
push2
|
|
+at temp[$1]
|
|
push
|
|
push0
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
code_11f8: pushi $f7 ; 247, cat
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|