1378 lines
20 KiB
Plaintext
1378 lines
20 KiB
Plaintext
Button::process:
|
|
link $2
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_00ec
|
|
ldi $0
|
|
ret
|
|
|
|
code_00ec: pushi $b9 ; 185, localize
|
|
push1
|
|
pTos plane
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_0167
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$4d]
|
|
send $6
|
|
bnot
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_0128
|
|
pushi $1c9 ; 457, highlight
|
|
push2
|
|
push0
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0128: pushi $a3 ; 163, contains
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_015f
|
|
pushi $ba ; 186, globalize
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
pToa client
|
|
sat temp[$1]
|
|
pushi $1d4 ; 468, selectItem
|
|
push2
|
|
pushSelf
|
|
push1
|
|
pToa client
|
|
send $8
|
|
bnot
|
|
bnt code_0153
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0153: pushi $1d5 ; 469, returnHandler
|
|
push1
|
|
pushSelf
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0176
|
|
|
|
code_015f: pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0176
|
|
|
|
code_0167: dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0176
|
|
pushi $ed ; 237, trackDoit
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
code_0176: toss
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Button::handleEvent:
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bt code_019e
|
|
pTos btnType
|
|
ldi $2
|
|
eq?
|
|
bnt code_01a5
|
|
pTos state
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_01a5
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
code_019e: bnt code_01a5
|
|
ldi $0
|
|
ret
|
|
|
|
jmp code_01b1
|
|
|
|
code_01a5: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super TextItem, $6
|
|
bnot
|
|
code_01b1: ret
|
|
|
|
Button::init:
|
|
link $22
|
|
lap param[$0]
|
|
bnt code_01bc
|
|
lap param[$1]
|
|
jmp code_01d4
|
|
|
|
code_01bc: pToa client
|
|
not
|
|
bnt code_01d2
|
|
lag global[$3]
|
|
bnt code_01ce
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
send $4
|
|
bnot
|
|
jmp code_01d4
|
|
|
|
code_01ce: ldi $0
|
|
jmp code_01d4
|
|
|
|
code_01d2: pToa client
|
|
code_01d4: aTop client
|
|
pTos font
|
|
ldi $0
|
|
eq?
|
|
bnt code_01e1
|
|
lag global[$3b]
|
|
aTop font
|
|
code_01e1: pTos selectColor
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_01ec
|
|
lag global[$61]
|
|
aTop selectColor
|
|
code_01ec: pTos chosenColor
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_01f7
|
|
lag global[$61]
|
|
aTop chosenColor
|
|
code_01f7: pTos normalColor
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0202
|
|
pToa skip
|
|
aTop normalColor
|
|
code_0202: pTos back
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_020d
|
|
pToa normalColor
|
|
aTop back
|
|
code_020d: pTos fore
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0218
|
|
lag global[$54]
|
|
aTop fore
|
|
code_0218: pTos hiColor
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0223
|
|
lag global[$61]
|
|
aTop hiColor
|
|
code_0223: pTos dimColor
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_022e
|
|
lag global[$5d]
|
|
aTop dimColor
|
|
code_022e: pToa wide
|
|
bnt code_0239
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_0239: ldi $ff ; 255, asInteger
|
|
aTop lastState
|
|
pTos signal
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop signal
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
&rest $2
|
|
super TextItem, $6
|
|
bnot
|
|
lag global[$3]
|
|
bnt code_0264
|
|
pTos client
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_0264
|
|
ldi $ff ; 255, asInteger
|
|
aTop lastState
|
|
code_0264: ret
|
|
|
|
Button::dispose:
|
|
pToa iconView
|
|
bnt code_0274
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop iconView
|
|
code_0274: pToa textRect
|
|
bnt code_0283
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop textRect
|
|
code_0283: pushi $95 ; 149, dispose
|
|
push0
|
|
super TextItem, $4
|
|
bnot
|
|
ret
|
|
|
|
Button::draw:
|
|
link $2
|
|
pushi $1f3 ; 499, refresh
|
|
push0
|
|
self $4
|
|
bnot
|
|
pToa drawCode
|
|
bnt code_02a3
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
bnt code_02a3
|
|
ret
|
|
|
|
code_02a3: lap param[$0]
|
|
bnt code_02a9
|
|
lap param[$1]
|
|
code_02a9: bt code_02b0
|
|
pTos lastState
|
|
pToa state
|
|
ne?
|
|
code_02b0: bnt code_0371
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0371
|
|
pToa plane
|
|
bnt code_0371
|
|
pToa bitmap
|
|
bnt code_02d7
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pTos bitmap
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_02d7: pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_031a
|
|
pushi $7 ; priority
|
|
pushi $9 ; inLeft
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
callk kernel_35, $e
|
|
bnot
|
|
aTop bitmap
|
|
pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
pTos bitmap
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
callk kernel_35, $8
|
|
bnot
|
|
jmp code_0358
|
|
|
|
code_031a: pToa plane
|
|
bnt code_0320
|
|
jmp code_0327
|
|
|
|
code_0320: push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
code_0327: sat temp[$1]
|
|
pushi $8 ; fixPriority
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos skip
|
|
pTos back
|
|
pushi $6e ; 110, 'n', resX
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $6f ; 111, 'o', resY
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
callk kernel_35, $10
|
|
bnot
|
|
aTop bitmap
|
|
code_0358: pushi $f0 ; 240, drawSelected
|
|
push0
|
|
pushi $1f1 ; 497, drawText
|
|
push0
|
|
pushi $1f2 ; 498, drawIcon
|
|
push0
|
|
self $c
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
pToa state
|
|
aTop lastState
|
|
code_0371: ret
|
|
|
|
Button::drawText:
|
|
link $2
|
|
pToa text
|
|
bnt code_04cc
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pToa textRect
|
|
bnt code_0395
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_044c
|
|
|
|
code_0395: pushi $d3 ; 211, copy
|
|
push1
|
|
pushSelf
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pToa borderSize
|
|
bnt code_03ae
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
push
|
|
push
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
code_03ae: pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
pTos text
|
|
pTos font
|
|
pushi $ff ; 255, asInteger
|
|
send $a
|
|
bnot
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push2
|
|
pTos borderSize
|
|
ldi $1
|
|
sub
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
calle export60025_2, $4
|
|
bnot
|
|
push
|
|
pTos borderSize
|
|
ldi $1
|
|
sub
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $2
|
|
div
|
|
add
|
|
push
|
|
calle export60025_3, $4
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bt code_043d
|
|
pTos state
|
|
ldi $4 ; scaleX
|
|
and
|
|
code_043d: bnt code_044c
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
pTos textOffsetX
|
|
pTos textOffsetY
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
code_044c: pushi $e ; 14, view
|
|
pushi $4 ; scaleX
|
|
pTos bitmap
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos text
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos back
|
|
pToa skip
|
|
eq?
|
|
bnt code_04b1
|
|
pTos state
|
|
ldi $1
|
|
and
|
|
not
|
|
bnt code_0497
|
|
pToa dimColor
|
|
jmp code_04b3
|
|
|
|
code_0497: pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_04a2
|
|
pToa selectColor
|
|
jmp code_04b3
|
|
|
|
code_04a2: pTos state
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_04ad
|
|
pToa chosenColor
|
|
jmp code_04b3
|
|
|
|
code_04ad: pToa fore
|
|
jmp code_04b3
|
|
|
|
code_04b1: pToa fore
|
|
code_04b3: push
|
|
pTos skip
|
|
pTos skip
|
|
pTos font
|
|
pTos mode
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
callk kernel_35, $1c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_04cc: ret
|
|
|
|
Button::drawIcon:
|
|
link $2
|
|
pToa iconView
|
|
bnt code_0512
|
|
pTos left
|
|
push1
|
|
push0
|
|
send $4
|
|
bnot
|
|
add
|
|
sat temp[$0]
|
|
pTos top
|
|
push2
|
|
push0
|
|
pToa iconView
|
|
send $4
|
|
bnot
|
|
add
|
|
sat temp[$1]
|
|
pushi $7 ; priority
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa iconView
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa iconView
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa iconView
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
callk kernel_35, $e
|
|
bnot
|
|
code_0512: ret
|
|
|
|
Button::drawSelected:
|
|
link $2
|
|
pTos state
|
|
ldi $8 ; fixPriority
|
|
and
|
|
not
|
|
bt code_0523
|
|
lap param[$0]
|
|
bnt code_052a
|
|
lap param[$1]
|
|
code_0523: bnt code_052a
|
|
ldi $0
|
|
jmp code_05b7
|
|
|
|
code_052a: pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0552
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0552
|
|
pushi $7 ; priority
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
pTos view
|
|
pTos loop
|
|
pushi $3 ; z
|
|
push0
|
|
push0
|
|
callk kernel_35, $e
|
|
bnot
|
|
jmp code_05b7
|
|
|
|
code_0552: pTos back
|
|
pToa skip
|
|
ne?
|
|
bnt code_05b7
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
sat temp[$0]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
sat temp[$1]
|
|
pushi $7 ; priority
|
|
push2
|
|
pTos bitmap
|
|
push0
|
|
push0
|
|
lst temp[$0]
|
|
push0
|
|
pTos selectColor
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pTos bitmap
|
|
lst temp[$0]
|
|
push0
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pTos selectColor
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pTos bitmap
|
|
push0
|
|
push0
|
|
push0
|
|
lst temp[$1]
|
|
pTos selectColor
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $7 ; priority
|
|
push2
|
|
pTos bitmap
|
|
push0
|
|
lst temp[$1]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pTos selectColor
|
|
callk kernel_35, $e
|
|
bnot
|
|
code_05b7: ret
|
|
|
|
Button::refresh:
|
|
pTos back
|
|
pToa skip
|
|
ne?
|
|
bnt code_05f0
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_05ca
|
|
pToa skip
|
|
jmp code_05ee
|
|
|
|
code_05ca: pTos state
|
|
ldi $1
|
|
and
|
|
not
|
|
bnt code_05d6
|
|
pToa dimColor
|
|
jmp code_05ee
|
|
|
|
code_05d6: pTos state
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_05e1
|
|
pToa chosenColor
|
|
jmp code_05ee
|
|
|
|
code_05e1: pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_05ec
|
|
pToa selectColor
|
|
jmp code_05ee
|
|
|
|
code_05ec: pToa normalColor
|
|
code_05ee: aTop back
|
|
code_05f0: pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0640
|
|
pTos state
|
|
ldi $1
|
|
and
|
|
not
|
|
bnt code_0604
|
|
ldi $2
|
|
jmp code_061c
|
|
|
|
code_0604: pTos state
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_060f
|
|
ldi $4 ; scaleX
|
|
jmp code_061c
|
|
|
|
code_060f: pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_061a
|
|
ldi $1
|
|
jmp code_061c
|
|
|
|
code_061a: ldi $0
|
|
code_061c: aTop cel
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
pToa cel
|
|
le?
|
|
bt code_063a
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_28, $6
|
|
bnot
|
|
push
|
|
ldi $1
|
|
le?
|
|
code_063a: bnt code_0640
|
|
ldi $0
|
|
aTop cel
|
|
code_0640: ret
|
|
|
|
Button::select:
|
|
lap param[$0]
|
|
bnt code_065b
|
|
lap param[$1]
|
|
bnt code_0652
|
|
pTos state
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop state
|
|
jmp code_0662
|
|
|
|
code_0652: pTos state
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop state
|
|
jmp code_0662
|
|
|
|
code_065b: pTos state
|
|
ldi $8 ; fixPriority
|
|
xor
|
|
aTop state
|
|
code_0662: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bt code_066b
|
|
lap param[$2]
|
|
code_066b: bnt code_0673
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0673: ret
|
|
|
|
Button::choose:
|
|
link $2
|
|
pTos btnType
|
|
ldi $1
|
|
eq?
|
|
bnt code_0687
|
|
pTos state
|
|
ldi $4 ; scaleX
|
|
xor
|
|
aTop state
|
|
jmp code_072c
|
|
|
|
code_0687: pTos btnType
|
|
ldi $0
|
|
eq?
|
|
bnt code_0691
|
|
jmp code_072c
|
|
|
|
code_0691: pTos btnType
|
|
ldi $2
|
|
eq?
|
|
bnt code_0703
|
|
pTos state
|
|
ldi $4 ; scaleX
|
|
or
|
|
aTop state
|
|
pToa buttonSet
|
|
bnt code_072c
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_06a9: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa buttonSet
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_072c
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
selfID
|
|
ne?
|
|
bnt code_06fc
|
|
pushi $1cc ; 460, checkState
|
|
push1
|
|
pushi $4 ; scaleX
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_06fc
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $fb ; 251, subStr
|
|
and
|
|
push
|
|
pushi $1ee ; 494, lastState
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
lat temp[$1]
|
|
send $c
|
|
bnot
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_072c
|
|
|
|
code_06fc: +at temp[$0]
|
|
jmp code_06a9
|
|
|
|
jmp code_072c
|
|
|
|
code_0703: pTos btnType
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_072c
|
|
pToa buttonSet
|
|
bnt code_072c
|
|
ipToa buttonPtr
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa buttonSet
|
|
send $4
|
|
bnot
|
|
ge?
|
|
bnt code_0720
|
|
ldi $0
|
|
aTop buttonPtr
|
|
code_0720: pushi $4b ; 75, 'K', at
|
|
push1
|
|
pTos buttonPtr
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
aTop text
|
|
code_072c: pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Button::highlight:
|
|
lap param[$1]
|
|
bnt code_0740
|
|
pTos state
|
|
ldi $20 ; 32, ' ', name
|
|
or
|
|
aTop state
|
|
jmp code_0747
|
|
|
|
code_0740: pTos state
|
|
ldi $df ; 223, centerOn
|
|
and
|
|
aTop state
|
|
code_0747: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bt code_0750
|
|
lap param[$2]
|
|
code_0750: bnt code_0758
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0758: ret
|
|
|
|
Button::setSize:
|
|
link $8
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
super TextItem, $4
|
|
bnot
|
|
pToa left
|
|
sat temp[$1]
|
|
pToa top
|
|
sat temp[$2]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pToa text
|
|
bnt code_079b
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
push2
|
|
pushi $9 ; inLeft
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pTos font
|
|
lap param[$0]
|
|
bnt code_0793
|
|
lap param[$1]
|
|
jmp code_0795
|
|
|
|
code_0793: ldi $0
|
|
code_0795: push
|
|
lat temp[$3]
|
|
send $a
|
|
bnot
|
|
code_079b: pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_07d1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $e6 ; 230, sizeToCel
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
send $a
|
|
bnot
|
|
pushi $af ; 175, union
|
|
push1
|
|
lst temp[$4]
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
code_07d1: pushi $d3 ; 211, copy
|
|
push1
|
|
lst temp[$3]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
pToa text
|
|
bnt code_0806
|
|
pToa borderSize
|
|
bnt code_0806
|
|
pushi $e3 ; 227, expand
|
|
push2
|
|
pTos borderSize
|
|
pTos borderSize
|
|
self $8
|
|
bnot
|
|
pTos right
|
|
ldi $2
|
|
add
|
|
aTop right
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
push0
|
|
push0
|
|
self $8
|
|
bnot
|
|
code_0806: pushi $db ; 219, moveTo
|
|
push2
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
self $8
|
|
bnot
|
|
pTos btnType
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_0874
|
|
pToa buttonSet
|
|
bnt code_0874
|
|
ldi $0
|
|
sat temp[$6]
|
|
sat temp[$5]
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0828: lst temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa buttonSet
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0863
|
|
push2
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
sat temp[$7]
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
bnt code_085f
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
sat temp[$5]
|
|
lat temp[$7]
|
|
sat temp[$6]
|
|
code_085f: +at temp[$0]
|
|
jmp code_0828
|
|
|
|
code_0863: lat temp[$5]
|
|
bnt code_0874
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
push
|
|
pTos font
|
|
push0
|
|
self $a
|
|
bnot
|
|
code_0874: pToa checkMark
|
|
bnt code_0881
|
|
pushi $e0 ; 224, widen
|
|
push1
|
|
pushi $10 ; 16, cel
|
|
self $6
|
|
bnot
|
|
code_0881: pToa wide
|
|
bnt code_088c
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_088c: ret
|
|
|
|
Button::setView:
|
|
lap param[$1]
|
|
aTop view
|
|
lap param[$2]
|
|
aTop loop
|
|
lap param[$3]
|
|
aTop cel
|
|
ret
|
|
|
|
Button::setIcon:
|
|
pToa iconView
|
|
not
|
|
bnt code_08aa
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
aTop iconView
|
|
code_08aa: pushi $e ; 14, view
|
|
push1
|
|
lsp param[$1]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
lsp param[$2]
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
lsp param[$3]
|
|
push1
|
|
push1
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_08c6
|
|
lap param[$4]
|
|
jmp code_08c8
|
|
|
|
code_08c6: ldi $0
|
|
code_08c8: push
|
|
push2
|
|
push1
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_08d6
|
|
lap param[$5]
|
|
jmp code_08d8
|
|
|
|
code_08d6: ldi $0
|
|
code_08d8: push
|
|
pToa iconView
|
|
send $1e
|
|
bnot
|
|
ret
|
|
|
|
Button::setText:
|
|
lap param[$1]
|
|
aTop text
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0956
|
|
pToa textRect
|
|
not
|
|
bnt code_08fb
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
aTop textRect
|
|
code_08fb: pushi $87 ; 135, left
|
|
push1
|
|
lsp param[$2]
|
|
pushi $89 ; 137, top
|
|
push1
|
|
lsp param[$3]
|
|
pToa textRect
|
|
send $c
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0927
|
|
pushi $88 ; 136, right
|
|
push1
|
|
lsp param[$4]
|
|
pushi $8a ; 138, bottom
|
|
push1
|
|
lsp param[$5]
|
|
pToa textRect
|
|
send $c
|
|
bnot
|
|
jmp code_0956
|
|
|
|
code_0927: pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
pTos text
|
|
pTos font
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0941
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0943
|
|
|
|
code_0941: ldi $ff ; 255, asInteger
|
|
code_0943: push
|
|
pToa textRect
|
|
send $a
|
|
bnot
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
pToa textRect
|
|
send $8
|
|
bnot
|
|
code_0956: ret
|
|
|
|
Button::makeActionBtn:
|
|
ldi $0
|
|
aTop btnType
|
|
ret
|
|
|
|
Button::makeCheckBtn:
|
|
ldi $1
|
|
aTop btnType
|
|
lap param[$0]
|
|
bnt code_0972
|
|
lap param[$1]
|
|
aTop buttonSet
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
code_0972: pTos state
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop state
|
|
ret
|
|
|
|
Button::makeRadioBtn:
|
|
ldi $2
|
|
aTop btnType
|
|
lap param[$1]
|
|
aTop buttonSet
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
pTos state
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop state
|
|
ret
|
|
|
|
Button::makeListBtn:
|
|
ldi $3 ; z
|
|
aTop btnType
|
|
lap param[$1]
|
|
aTop buttonSet
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_09a7
|
|
lap param[$2]
|
|
jmp code_09a9
|
|
|
|
code_09a7: ldi $0
|
|
code_09a9: aTop buttonPtr
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pTos buttonPtr
|
|
pToa buttonSet
|
|
send $6
|
|
bnot
|
|
aTop text
|
|
pTos state
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop state
|
|
pTos state
|
|
ldi $80 ; 128, lastKey
|
|
or
|
|
aTop state
|
|
ret
|
|
|