1608 lines
22 KiB
Plaintext
1608 lines
22 KiB
Plaintext
BtnList::init:
|
|
link $2
|
|
pToa pRect
|
|
not
|
|
bnt code_00a2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
aTop pRect
|
|
code_00a2: ldi $1
|
|
aTop pInitted
|
|
lap param[$0]
|
|
bnt code_00ae
|
|
lap param[$1]
|
|
jmp code_00c0
|
|
|
|
code_00ae: pToa client
|
|
not
|
|
bnt code_00be
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
jmp code_00c0
|
|
|
|
code_00be: pToa client
|
|
code_00c0: aTop client
|
|
pTos client
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
ne?
|
|
bnt code_00da
|
|
pushi $1d1 ; 465, addToDisposeList
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_00da: pToa itemList
|
|
not
|
|
bnt code_00ea
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop itemList
|
|
code_00ea: pTos start
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
add
|
|
aTop end
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
gt?
|
|
bnt code_0106
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
aTop end
|
|
code_0106: pToa start
|
|
sat temp[$0]
|
|
code_010a: lst temp[$0]
|
|
pToa end
|
|
lt?
|
|
bnt code_014d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
pushi $36 ; 54, '6', client
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push0
|
|
push1
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $c
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$1]
|
|
pToa itemList
|
|
send $6
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_010a
|
|
|
|
code_014d: pushi $dc ; 220, posn
|
|
push2
|
|
pTos x
|
|
pTos y
|
|
self $8
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
gt?
|
|
bnt code_016e
|
|
pushi $23d ; 573, addPaging
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_016e: pushi $94 ; 148, init
|
|
push0
|
|
&rest $2
|
|
super Set, $4
|
|
bnot
|
|
ret
|
|
|
|
BtnList::dispose:
|
|
link $1
|
|
pToa keep
|
|
bnt code_01c5
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_01c5
|
|
pToa client
|
|
bnt code_01c5
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_018f: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
lt?
|
|
bnt code_01be
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_018f
|
|
|
|
code_01be: ldi $0
|
|
aTop keep
|
|
aTop client
|
|
ret
|
|
|
|
code_01c5: ldi $0
|
|
aTop pInitted
|
|
pToa itemList
|
|
bnt code_01dc
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
aTop itemList
|
|
code_01dc: pTos upButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_01f7
|
|
pTos upButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_01f7
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa upButton
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop upButton
|
|
code_01f7: pTos downButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_0212
|
|
pTos downButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0212
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa downButton
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop downButton
|
|
code_0212: ldi $0
|
|
sat temp[$0]
|
|
code_0216: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
lt?
|
|
bnt code_0261
|
|
pToa client
|
|
not
|
|
bt code_0239
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
not
|
|
code_0239: bnt code_025d
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_025d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_025d: +at temp[$0]
|
|
jmp code_0216
|
|
|
|
code_0261: pushi $a6 ; 166, release
|
|
push0
|
|
self $4
|
|
bnot
|
|
pToa pRect
|
|
bnt code_0277
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pRect
|
|
code_0277: pushi $95 ; 149, dispose
|
|
push0
|
|
super Set, $4
|
|
bnot
|
|
ret
|
|
|
|
BtnList::add:
|
|
pushi $9f ; 159, add
|
|
push0
|
|
&rest $1
|
|
super Set, $4
|
|
bnot
|
|
pToa pInitted
|
|
bnt code_0295
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0295: ret
|
|
|
|
BtnList::delete:
|
|
pushi $58 ; 88, 'X', delete
|
|
push0
|
|
&rest $1
|
|
super Set, $4
|
|
bnot
|
|
pToa pInitted
|
|
bnt code_02aa
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_02aa: ret
|
|
|
|
BtnList::draw:
|
|
link $5
|
|
lap param[$0]
|
|
bnt code_02b5
|
|
lap param[$1]
|
|
aTop start
|
|
code_02b5: pTos start
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
add
|
|
aTop end
|
|
pTos end
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
gt?
|
|
bnt code_02d2
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
aTop end
|
|
code_02d2: pushi $a6 ; 166, release
|
|
push0
|
|
pToa itemList
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$3]
|
|
sat temp[$2]
|
|
pTos upButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_02fa
|
|
pTos upButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_02fa
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa upButton
|
|
send $6
|
|
bnot
|
|
code_02fa: pTos downButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_0313
|
|
pTos downButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0313
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pToa downButton
|
|
send $6
|
|
bnot
|
|
code_0313: pToa elements
|
|
sat temp[$4]
|
|
pToa start
|
|
sat temp[$0]
|
|
code_031b: lst temp[$0]
|
|
pToa end
|
|
lt?
|
|
bnt code_0357
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
lst temp[$4]
|
|
lst temp[$0]
|
|
callk kernel_90, $6
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
lat temp[$1]
|
|
send $a
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$1]
|
|
pToa itemList
|
|
send $6
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_031b
|
|
|
|
code_0357: ret
|
|
|
|
BtnList::erase:
|
|
link $3
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_035e: lst temp[$1]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa itemList
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_03aa
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
pToa itemList
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$2]
|
|
pushi $cf ; 207, casts
|
|
push0
|
|
push0
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
push0
|
|
push1
|
|
push0
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
+at temp[$1]
|
|
jmp code_035e
|
|
|
|
code_03aa: pushi $a6 ; 166, release
|
|
push0
|
|
pToa itemList
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
BtnList::update:
|
|
link $1
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
pTos x
|
|
pTos y
|
|
self $8
|
|
bnot
|
|
lap param[$0]
|
|
bnt code_03cb
|
|
lap param[$1]
|
|
sat temp[$0]
|
|
jmp code_03cf
|
|
|
|
code_03cb: pToa start
|
|
sat temp[$0]
|
|
code_03cf: pushi $1ba ; 442, erase
|
|
push0
|
|
self $4
|
|
bnot
|
|
lst temp[$0]
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
add
|
|
aTop end
|
|
pTos end
|
|
lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
add
|
|
gt?
|
|
bnt code_03f9
|
|
lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
add
|
|
aTop end
|
|
code_03f9: lat temp[$0]
|
|
aTop start
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
pTos upButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_042b
|
|
pTos upButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_042b
|
|
pushi $1b4 ; 436, enable
|
|
push1
|
|
pTos start
|
|
ldi $0
|
|
ne?
|
|
push
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa upButton
|
|
send $a
|
|
bnot
|
|
code_042b: pTos downButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_044f
|
|
pTos downButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_044f
|
|
pushi $1b4 ; 436, enable
|
|
push1
|
|
pTos end
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
lt?
|
|
push
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pToa downButton
|
|
send $a
|
|
bnot
|
|
code_044f: pToa client
|
|
not
|
|
bnt code_0459
|
|
ldi $0
|
|
jmp code_04f5
|
|
|
|
code_0459: pTos upButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_04a9
|
|
pTos upButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_04a9
|
|
pushi $1e1 ; 481, curItem
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa upButton
|
|
eq?
|
|
bnt code_04a9
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push1
|
|
pToa upButton
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_04a9
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push1
|
|
pToa downButton
|
|
send $6
|
|
bnot
|
|
bnt code_049d
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
pTos downButton
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
jmp code_04f5
|
|
|
|
code_049d: pushi $20f ; 527, advance
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
jmp code_04f5
|
|
|
|
code_04a9: pTos downButton
|
|
ldi $0
|
|
ne?
|
|
bnt code_04f5
|
|
pTos downButton
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_04f5
|
|
pushi $1e1 ; 481, curItem
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa downButton
|
|
eq?
|
|
bnt code_04f5
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push1
|
|
pToa downButton
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_04f5
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
push1
|
|
pToa upButton
|
|
send $6
|
|
bnot
|
|
bnt code_04ec
|
|
pushi $1d4 ; 468, selectItem
|
|
push1
|
|
pTos upButton
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
jmp code_04f5
|
|
|
|
code_04ec: pushi $20f ; 527, advance
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
code_04f5: ret
|
|
|
|
BtnList::addPaging:
|
|
link $9
|
|
pTos downButton
|
|
pToa upButton
|
|
eq?
|
|
bnt code_06b7
|
|
pprev
|
|
ldi $0
|
|
eq?
|
|
bnt code_06b7
|
|
pushi $3 ; z
|
|
push1
|
|
lofsa string_00b4 ; " Next "
|
|
push
|
|
lsg global[$3b]
|
|
callk kernel_70, $6
|
|
bnot
|
|
push
|
|
ldi $14 ; 20, nsRight
|
|
add
|
|
sat temp[$4]
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
lofsa upBtnHandler
|
|
sat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_0547
|
|
pushi $25 ; 37, '%', fore
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $1c1 ; 449, borderSize
|
|
push0
|
|
lat temp[$7]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
jmp code_055c
|
|
|
|
code_0547: pushi $25 ; 37, '%', fore
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $1c1 ; 449, borderSize
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
code_055c: pushi $23 ; 35, '#', text
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_00bb ; "Prev"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
push0
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $1c1 ; 449, borderSize
|
|
push1
|
|
lst temp[$5]
|
|
pushi $1e3 ; 483, wide
|
|
push1
|
|
lst temp[$4]
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
pushi $25 ; 37, '%', fore
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
lst temp[$4]
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
push1
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
lst temp[$0]
|
|
push0
|
|
push1
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop upButton
|
|
send $40
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
lofsa downBtnHandler
|
|
sat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_00c0 ; "Next"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
push0
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsg global[$3b]
|
|
pushi $1c1 ; 449, borderSize
|
|
push1
|
|
lst temp[$5]
|
|
pushi $1e3 ; 483, wide
|
|
push1
|
|
lst temp[$4]
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
pushi $25 ; 37, '%', fore
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
lst temp[$4]
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
push1
|
|
pushi $1c7 ; 455, handler
|
|
push1
|
|
lst temp[$0]
|
|
push0
|
|
push1
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
aTop downButton
|
|
send $40
|
|
bnot
|
|
pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
pTos x
|
|
pTos y
|
|
pTos x
|
|
pTos buttonW
|
|
pToa col
|
|
mul
|
|
add
|
|
push
|
|
pTos y
|
|
pTos buttonH
|
|
pTos margin
|
|
ldi $2
|
|
div
|
|
add
|
|
push
|
|
pToa row
|
|
mul
|
|
add
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
send $c
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos margin
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa downButton
|
|
send $4
|
|
bnot
|
|
add
|
|
push
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa upButton
|
|
send $4
|
|
bnot
|
|
add
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
sat temp[$8]
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa downButton
|
|
send $8
|
|
bnot
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa downButton
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa margin
|
|
add
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa downButton
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa upButton
|
|
send $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
code_06b7: pushi $9f ; 159, add
|
|
push2
|
|
pTos downButton
|
|
pTos upButton
|
|
pToa client
|
|
send $8
|
|
bnot
|
|
pushi $1b4 ; 436, enable
|
|
push2
|
|
push0
|
|
push1
|
|
pToa upButton
|
|
send $8
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
le?
|
|
bnt code_06e9
|
|
pushi $1b4 ; 436, enable
|
|
push2
|
|
push0
|
|
push1
|
|
pToa downButton
|
|
send $8
|
|
bnot
|
|
code_06e9: ret
|
|
|
|
BtnList::addList:
|
|
link $3
|
|
ldi $0
|
|
sat temp[$2]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bt code_0707
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
not
|
|
code_0707: bnt code_070d
|
|
ldi $0
|
|
jmp code_074c
|
|
|
|
code_070d: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Str
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0721
|
|
ldi $1
|
|
sat temp[$2]
|
|
jmp code_074c
|
|
|
|
code_0721: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class <NIL>
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0735
|
|
ldi $2
|
|
sat temp[$2]
|
|
jmp code_074c
|
|
|
|
code_0735: pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0748
|
|
ldi $3 ; z
|
|
sat temp[$2]
|
|
jmp code_074c
|
|
|
|
code_0748: ldi $4 ; scaleX
|
|
sat temp[$2]
|
|
code_074c: lat temp[$2]
|
|
bnt code_0820
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0755: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0809
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
lst temp[$2]
|
|
ldi $2
|
|
eq?
|
|
bnt code_0782
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$1]
|
|
self $6
|
|
bnot
|
|
jmp code_07cb
|
|
|
|
code_0782: pushi $9f ; 159, add
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
lst temp[$2]
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0795
|
|
lat temp[$1]
|
|
jmp code_07b3
|
|
|
|
code_0795: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_07a5
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_07b3
|
|
|
|
code_07a5: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_07b3
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
code_07b3: toss
|
|
push
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lag global[$9]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
send $a
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
code_07cb: pushi $2a ; 42, '*', font
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_07eb
|
|
pToa client
|
|
bnt code_07eb
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
pushi $2a ; 42, '*', font
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
code_07eb: pushi $51 ; 81, 'Q', value
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0804
|
|
pushi $51 ; 81, 'Q', value
|
|
push1
|
|
pTos startVal
|
|
lat temp[$0]
|
|
add
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
code_0804: +at temp[$0]
|
|
jmp code_0755
|
|
|
|
code_0809: pushi $a1 ; 161, firstEqual
|
|
push2
|
|
pushi $88 ; 136, right
|
|
push0
|
|
self $8
|
|
bnot
|
|
bnt code_0820
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $1be ; 446, setSize
|
|
self $6
|
|
bnot
|
|
code_0820: ret
|
|
|
|
BtnList::posn:
|
|
link $b
|
|
pToa pRect
|
|
not
|
|
bnt code_0833
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
aTop pRect
|
|
code_0833: lap param[$0]
|
|
bnt code_083b
|
|
lap param[$1]
|
|
jmp code_083d
|
|
|
|
code_083b: ldi $0
|
|
code_083d: aTop x
|
|
lap param[$0]
|
|
bnt code_0847
|
|
lap param[$2]
|
|
jmp code_0849
|
|
|
|
code_0847: pToa margin
|
|
code_0849: aTop y
|
|
pToa client
|
|
bnt code_087c
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
push0
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa x
|
|
add
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa y
|
|
add
|
|
push
|
|
pToa pRect
|
|
send $8
|
|
bnot
|
|
code_087c: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
gt?
|
|
bnt code_0892
|
|
pTos row
|
|
pToa col
|
|
mul
|
|
jmp code_0898
|
|
|
|
code_0892: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0898: sat temp[$4]
|
|
pToa buttonW
|
|
not
|
|
bnt code_08d3
|
|
ldi $0
|
|
sat temp[$5]
|
|
sat temp[$0]
|
|
code_08a6: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
lt?
|
|
bnt code_08cf
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
push
|
|
lat temp[$5]
|
|
gt?
|
|
bnt code_08cb
|
|
lat temp[$6]
|
|
sat temp[$5]
|
|
code_08cb: +at temp[$0]
|
|
jmp code_08a6
|
|
|
|
code_08cf: lat temp[$5]
|
|
aTop buttonW
|
|
code_08d3: pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $4e ; 78, 'N', width
|
|
pTos buttonW
|
|
self $8
|
|
bnot
|
|
pToa buttonH
|
|
not
|
|
bnt code_0918
|
|
ldi $0
|
|
sat temp[$5]
|
|
sat temp[$0]
|
|
code_08ea: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
lt?
|
|
bnt code_0914
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
push
|
|
lat temp[$5]
|
|
gt?
|
|
bnt code_0910
|
|
lat temp[$6]
|
|
sat temp[$5]
|
|
code_0910: +at temp[$0]
|
|
jmp code_08ea
|
|
|
|
code_0914: lat temp[$5]
|
|
aTop buttonH
|
|
code_0918: pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $e1 ; 225, height
|
|
pTos buttonH
|
|
self $8
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
pTos buttonW
|
|
pToa col
|
|
mul
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
pTos buttonH
|
|
pToa row
|
|
mul
|
|
push
|
|
pToa pRect
|
|
send $c
|
|
bnot
|
|
pToa client
|
|
bnt code_094e
|
|
pushi $af ; 175, union
|
|
push1
|
|
pTos pRect
|
|
push0
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_094e: ldi $0
|
|
sat temp[$8]
|
|
sat temp[$7]
|
|
pTos margin
|
|
pToa buttonW
|
|
add
|
|
sat temp[$a]
|
|
pTos margin
|
|
ldi $2
|
|
div
|
|
push
|
|
pToa buttonH
|
|
add
|
|
sat temp[$9]
|
|
ldi $0
|
|
sat temp[$0]
|
|
pToa x
|
|
sat temp[$3]
|
|
pToa y
|
|
sat temp[$2]
|
|
code_0972: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
lt?
|
|
bnt code_0a14
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lst temp[$3]
|
|
lst temp[$2]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
send $8
|
|
bnot
|
|
pToa row
|
|
not
|
|
bt code_099d
|
|
pTos row
|
|
ldi $1
|
|
eq?
|
|
code_099d: bnt code_09ba
|
|
lst temp[$3]
|
|
lat temp[$a]
|
|
add
|
|
sat temp[$3]
|
|
+at temp[$8]
|
|
push
|
|
pToa col
|
|
ge?
|
|
bnt code_0a0f
|
|
ldi $0
|
|
sat temp[$8]
|
|
pToa x
|
|
sat temp[$3]
|
|
jmp code_0a0f
|
|
|
|
code_09ba: pToa col
|
|
not
|
|
bt code_09c4
|
|
pTos col
|
|
ldi $1
|
|
eq?
|
|
code_09c4: bnt code_09e1
|
|
lst temp[$2]
|
|
lat temp[$9]
|
|
add
|
|
sat temp[$2]
|
|
+at temp[$7]
|
|
push
|
|
pToa row
|
|
ge?
|
|
bnt code_0a0f
|
|
ldi $0
|
|
sat temp[$7]
|
|
pToa y
|
|
sat temp[$2]
|
|
jmp code_0a0f
|
|
|
|
code_09e1: lst temp[$3]
|
|
lat temp[$a]
|
|
add
|
|
sat temp[$3]
|
|
+at temp[$8]
|
|
push
|
|
pToa col
|
|
ge?
|
|
bnt code_0a0f
|
|
ldi $0
|
|
sat temp[$8]
|
|
pToa x
|
|
sat temp[$3]
|
|
lst temp[$2]
|
|
lat temp[$9]
|
|
add
|
|
sat temp[$2]
|
|
+at temp[$7]
|
|
push
|
|
pToa row
|
|
ge?
|
|
bnt code_0a0f
|
|
ldi $0
|
|
sat temp[$7]
|
|
pToa y
|
|
sat temp[$2]
|
|
code_0a0f: +at temp[$0]
|
|
jmp code_0972
|
|
|
|
code_0a14: ret
|
|
|
|
upBtnHandler::init:
|
|
lap param[$1]
|
|
aTop client
|
|
ret
|
|
|
|
upBtnHandler::dispose:
|
|
pToa client
|
|
bnt code_0a25
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0a25: pushi $95 ; 149, dispose
|
|
push0
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
upBtnHandler::doit:
|
|
link $1
|
|
pToa client
|
|
bnt code_0a69
|
|
pushi $bb ; 187, start
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $231 ; 561, row
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $232 ; 562, col
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
mul
|
|
sub
|
|
sat temp[$0]
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_0a5e
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0a5e: pushi $1ad ; 429, update
|
|
push1
|
|
lst temp[$0]
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_0a69: ldi $0
|
|
ret
|
|
|
|
downBtnHandler::init:
|
|
lap param[$1]
|
|
aTop client
|
|
ret
|
|
|
|
downBtnHandler::dispose:
|
|
pToa client
|
|
bnt code_0a7c
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0a7c: pushi $95 ; 149, dispose
|
|
push0
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
downBtnHandler::doit:
|
|
link $1
|
|
pToa client
|
|
bnt code_0ae5
|
|
pushi $bb ; 187, start
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $231 ; 561, row
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $232 ; 562, col
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
mul
|
|
add
|
|
sat temp[$0]
|
|
push
|
|
pushi $b4 ; 180, end
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_0ada
|
|
pushi $b4 ; 180, end
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $231 ; 561, row
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $232 ; 562, col
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
mul
|
|
sub
|
|
sat temp[$0]
|
|
code_0ada: pushi $1ad ; 429, update
|
|
push1
|
|
lst temp[$0]
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_0ae5: ldi $0
|
|
ret
|
|
|