742 lines
10 KiB
Plaintext
742 lines
10 KiB
Plaintext
BreakStrIntoList::doit:
|
|
link $9
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
sat temp[$8]
|
|
ldi $0
|
|
sat temp[$5]
|
|
code_00a1: ldi $1
|
|
bnt code_0179
|
|
pushi $4 ; scaleX
|
|
dup
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
lsp param[$2]
|
|
lsg global[$3a]
|
|
callk kernel_70, $8
|
|
bnot
|
|
sat temp[$3]
|
|
not
|
|
bnt code_00c2
|
|
jmp code_0179
|
|
|
|
code_00c2: lst temp[$8]
|
|
lat temp[$3]
|
|
sub
|
|
sat temp[$8]
|
|
pushi $d2 ; 210, copyToFrom
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lst temp[$0]
|
|
push0
|
|
lst temp[$3]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
send $c
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$3]
|
|
push0
|
|
lat temp[$2]
|
|
send $8
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$2]
|
|
lap param[$3]
|
|
send $6
|
|
bnot
|
|
pushi $d7 ; 215, move
|
|
pushi $3 ; z
|
|
push0
|
|
lst temp[$3]
|
|
pushi $ff ; 255, asInteger
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
code_0109: pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $20 ; 32, ' ', name
|
|
eq?
|
|
bnt code_0129
|
|
pushi $d7 ; 215, move
|
|
pushi $3 ; z
|
|
push0
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
jmp code_0109
|
|
|
|
code_0129: lst temp[$8]
|
|
ldi $0
|
|
gt?
|
|
bnt code_00a1
|
|
pushi $4 ; scaleX
|
|
dup
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
lsp param[$2]
|
|
lsg global[$3a]
|
|
callk kernel_70, $8
|
|
bnot
|
|
push1
|
|
pushi $5 ; scaleY
|
|
callk kernel_70, $2
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_0099 ; "|c%d|%s"
|
|
push
|
|
lst temp[$4]
|
|
lst temp[$0]
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_00a1
|
|
|
|
code_0179: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
FastScrollWindow::init:
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class List
|
|
send $4
|
|
bnot
|
|
aTop pTextList
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super BitMap, $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$27]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
FastScrollWindow::dispose:
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$27]
|
|
send $6
|
|
bnot
|
|
pToa pTextList
|
|
bnt code_01bb
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pTextList
|
|
code_01bb: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super BitMap, $4
|
|
bnot
|
|
ret
|
|
|
|
FastScrollWindow::clear:
|
|
pToa pTextList
|
|
bnt code_01dd
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
send $6
|
|
bnot
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
code_01dd: pToa bitmap
|
|
bnt code_0205
|
|
pushi $7 ; priority
|
|
pushi $5 ; scaleY
|
|
push
|
|
push0
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
lsg global[$54]
|
|
callk kernel_35, $e
|
|
bnot
|
|
code_0205: ret
|
|
|
|
FastScrollWindow::draw:
|
|
link $5
|
|
pToa bitmap
|
|
not
|
|
bnt code_0230
|
|
pushi $5 ; scaleY
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $fe ; 254, strIndex
|
|
lsg global[$54]
|
|
callk kernel_35, $a
|
|
bnot
|
|
aTop bitmap
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_0230: pushi $7 ; priority
|
|
pushi $5 ; scaleY
|
|
pTos bitmap
|
|
push0
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
lsg global[$54]
|
|
callk kernel_35, $e
|
|
bnot
|
|
pTos pStartOverride
|
|
ldi $1
|
|
eq?
|
|
bnt code_029e
|
|
pTos pIndex
|
|
ldi $0
|
|
lt?
|
|
bnt code_0267
|
|
ldi $0
|
|
aTop pIndex
|
|
code_0267: pToa pIndex
|
|
sat temp[$1]
|
|
push
|
|
pToa pNumLines
|
|
add
|
|
sat temp[$4]
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_0287
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
code_0287: pTos pNumLines
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pIndex
|
|
sub
|
|
eq?
|
|
bnt code_02ae
|
|
ldi $0
|
|
aTop pStartOverride
|
|
jmp code_02ae
|
|
|
|
code_029e: pToa pStart
|
|
aTop pIndex
|
|
sat temp[$1]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
code_02ae: ldi $0
|
|
sat temp[$2]
|
|
code_02b2: lst temp[$1]
|
|
lat temp[$4]
|
|
lt?
|
|
bnt code_02fe
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
pToa pTextList
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $e ; 14, view
|
|
pushi $4 ; scaleX
|
|
pTos bitmap
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
lst temp[$2]
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
lst temp[$2]
|
|
ldi $c ; 12, inBottom
|
|
add
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
pushi $f0 ; 240, drawSelected
|
|
lsg global[$3a]
|
|
push0
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
callk kernel_35, $1c
|
|
bnot
|
|
lst temp[$2]
|
|
ldi $c ; 12, inBottom
|
|
add
|
|
sat temp[$2]
|
|
+at temp[$1]
|
|
jmp code_02b2
|
|
|
|
code_02fe: push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|
|
FastScrollWindow::add:
|
|
link $1
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos pTextList
|
|
lofsa BreakStrIntoList
|
|
send $a
|
|
bnot
|
|
code_031d: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pBufferSize
|
|
gt?
|
|
bnt code_034a
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
pToa pTextList
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
push
|
|
pToa pTextList
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_031d
|
|
|
|
code_034a: pTos pIndex
|
|
ldi $0
|
|
ne?
|
|
bnt code_0361
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pBufferSize
|
|
eq?
|
|
bnt code_0361
|
|
dpToa pIndex
|
|
code_0361: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pNumLines
|
|
sub
|
|
aTop pStart
|
|
pTos pStart
|
|
ldi $0
|
|
lt?
|
|
bnt code_037a
|
|
ldi $0
|
|
aTop pStart
|
|
code_037a: ret
|
|
|
|
FastScrollWindow::handleEvent:
|
|
link $1
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_0545
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $4700 ; 18176
|
|
eq?
|
|
bnt code_03e8
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $4 ; scaleX
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0511
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pIndex
|
|
ldi $1
|
|
aTop pStartOverride
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pNumLines
|
|
gt?
|
|
bnt code_0511
|
|
pushi $351 ; 849, newLinesShow
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_0511
|
|
|
|
code_03e8: dup
|
|
ldi $4f00 ; 20224
|
|
eq?
|
|
bnt code_042a
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $4 ; scaleX
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0511
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pIndex
|
|
aTop pStartOverride
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $352 ; 850, newLinesHide
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_0511
|
|
|
|
code_042a: dup
|
|
ldi $4900 ; 18688
|
|
eq?
|
|
bnt code_0460
|
|
pTos pIndex
|
|
pToa pNumLines
|
|
sub
|
|
aTop pIndex
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_0442
|
|
ldi $0
|
|
aTop pIndex
|
|
code_0442: pTos pIndex
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pNumLines
|
|
sub
|
|
lt?
|
|
bnt code_0511
|
|
pushi $351 ; 849, newLinesShow
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_0511
|
|
|
|
code_0460: dup
|
|
ldi $5100 ; 20736
|
|
eq?
|
|
bnt code_04a5
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pNumLines
|
|
sub
|
|
sat temp[$0]
|
|
pTos pIndex
|
|
pToa pNumLines
|
|
add
|
|
aTop pIndex
|
|
push
|
|
lat temp[$0]
|
|
gt?
|
|
bnt code_0491
|
|
lat temp[$0]
|
|
aTop pIndex
|
|
pTos pIndex
|
|
ldi $0
|
|
lt?
|
|
bnt code_0491
|
|
ldi $0
|
|
aTop pIndex
|
|
code_0491: pTos pIndex
|
|
lat temp[$0]
|
|
ge?
|
|
bnt code_0511
|
|
pushi $352 ; 850, newLinesHide
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_0511
|
|
|
|
code_04a5: dup
|
|
ldi $4800 ; 18432
|
|
eq?
|
|
bnt code_04d4
|
|
dpToa pIndex
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_04b8
|
|
ldi $0
|
|
aTop pIndex
|
|
code_04b8: pTos pIndex
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pNumLines
|
|
sub
|
|
lt?
|
|
bnt code_0511
|
|
pushi $351 ; 849, newLinesShow
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_0511
|
|
|
|
code_04d4: dup
|
|
ldi $5000 ; 20480
|
|
eq?
|
|
bnt code_0511
|
|
ipToa pIndex
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
ge?
|
|
bnt code_04f7
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
aTop pIndex
|
|
code_04f7: pTos pIndex
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pTextList
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pNumLines
|
|
sub
|
|
ge?
|
|
bnt code_0511
|
|
pushi $352 ; 850, newLinesHide
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
code_0511: toss
|
|
pushi $5 ; scaleY
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $4900 ; 18688
|
|
pushi $5100 ; 20736
|
|
pushi $4800 ; 18432
|
|
pushi $5000 ; 20480
|
|
calle export60025_4, $a
|
|
bnot
|
|
bnt code_0545
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pStartOverride
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0545: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|