1565 lines
22 KiB
Plaintext
1565 lines
22 KiB
Plaintext
Slider::init:
|
|
link $6
|
|
lap param[$0]
|
|
bnt code_00e2
|
|
lap param[$1]
|
|
bnt code_00e2
|
|
lap param[$1]
|
|
jmp code_00f4
|
|
|
|
code_00e2: pToa client
|
|
not
|
|
bnt code_00f2
|
|
pushi $1d0 ; 464, pScreen
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
jmp code_00f4
|
|
|
|
code_00f2: pToa client
|
|
code_00f4: aTop client
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
self $4
|
|
bnot
|
|
pTos back
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0108
|
|
lag global[$5d]
|
|
aTop back
|
|
code_0108: pTos fore
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0113
|
|
lag global[$5c]
|
|
aTop fore
|
|
code_0113: pushi $8d ; 141, new
|
|
push0
|
|
class Cast
|
|
send $4
|
|
bnot
|
|
aTop pCast
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop plane
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $1b8 ; 440, addCast
|
|
push1
|
|
pTos pCast
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
pToa thumb
|
|
not
|
|
bnt code_02c7
|
|
pToa left
|
|
sat temp[$2]
|
|
pToa top
|
|
sat temp[$3]
|
|
pToa thumbView
|
|
bnt code_01ad
|
|
pushi $e ; 14, view
|
|
push1
|
|
push
|
|
pushi $f ; 15, loop
|
|
push1
|
|
pTos thumbLoop
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
pTos thumbCel
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
push1
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_45, $2
|
|
bnot
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
add
|
|
push
|
|
pushi $e6 ; 230, sizeToCel
|
|
pushi $3 ; z
|
|
pTos thumbView
|
|
pTos thumbLoop
|
|
pTos thumbCel
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lst temp[$2]
|
|
lst temp[$3]
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class View
|
|
send $4
|
|
bnot
|
|
aTop thumb
|
|
send $30
|
|
bnot
|
|
jmp code_0272
|
|
|
|
code_01ad: pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$5]
|
|
pToa vTracking
|
|
bnt code_01eb
|
|
pToa thumbSize
|
|
bnt code_01ca
|
|
sat temp[$5]
|
|
jmp code_0212
|
|
|
|
code_01ca: push2
|
|
pushi $8 ; fixPriority
|
|
lst temp[$5]
|
|
push1
|
|
pTos topValue
|
|
pToa bottomValue
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
div
|
|
push
|
|
calle export60025_3, $4
|
|
bnot
|
|
sat temp[$5]
|
|
jmp code_0212
|
|
|
|
code_01eb: pToa thumbSize
|
|
bnt code_01f3
|
|
sat temp[$4]
|
|
jmp code_0212
|
|
|
|
code_01f3: push2
|
|
pushi $8 ; fixPriority
|
|
lst temp[$4]
|
|
push1
|
|
pTos topValue
|
|
pToa bottomValue
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
div
|
|
push
|
|
calle export60025_3, $4
|
|
bnot
|
|
sat temp[$4]
|
|
code_0212: pushi $d3 ; 211, copy
|
|
push1
|
|
pushSelf
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
lst temp[$2]
|
|
lst temp[$3]
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
pTos fore
|
|
pushi $26 ; 38, '&', back
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
pushi $e1 ; 225, height
|
|
push1
|
|
lst temp[$5]
|
|
pushi $4e ; 78, 'N', width
|
|
push1
|
|
lst temp[$4]
|
|
pushi $11 ; 17, bitmap
|
|
push1
|
|
pushi $5 ; scaleY
|
|
push0
|
|
lst temp[$4]
|
|
lst temp[$5]
|
|
pushi $fe ; 254, strIndex
|
|
pTos fore
|
|
callk kernel_35, $a
|
|
bnot
|
|
push
|
|
pushi $4a ; 74, 'J', setPri
|
|
push1
|
|
push1
|
|
push0
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_45, $2
|
|
bnot
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
add
|
|
push
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos pCast
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
aTop thumb
|
|
send $38
|
|
bnot
|
|
code_0272: pToa vTracking
|
|
bnt code_028a
|
|
pTos bottom
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
sub
|
|
aTop maximum
|
|
pToa top
|
|
aTop minimum
|
|
jmp code_029b
|
|
|
|
code_028a: pTos right
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
sub
|
|
aTop maximum
|
|
pToa left
|
|
aTop minimum
|
|
code_029b: pToa value
|
|
bnt code_02bc
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_02bc
|
|
pToa vTracking
|
|
bnt code_02b8
|
|
lst temp[$3]
|
|
lat temp[$0]
|
|
add
|
|
sat temp[$3]
|
|
jmp code_02bc
|
|
|
|
code_02b8: lat temp[$0]
|
|
sat temp[$2]
|
|
code_02bc: pushi $20b ; 523, drawThumb
|
|
push2
|
|
lst temp[$2]
|
|
lst temp[$3]
|
|
self $8
|
|
bnot
|
|
code_02c7: ret
|
|
|
|
Slider::dispose:
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop thumb
|
|
pToa pCast
|
|
bnt code_02e8
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
aTop pCast
|
|
code_02e8: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super <NIL>, $4
|
|
bnot
|
|
ret
|
|
|
|
Slider::handleEvent:
|
|
link $1
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_0302
|
|
ldi $0
|
|
ret
|
|
|
|
code_0302: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $1d3 ; 467, modal
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_037a
|
|
pToa pIsTracking
|
|
bnt code_0335
|
|
lst temp[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_0335
|
|
ldi $0
|
|
aTop pIsTracking
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_037a
|
|
|
|
code_0335: lst temp[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_034d
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_034d
|
|
ldi $1
|
|
aTop pIsTracking
|
|
jmp code_037a
|
|
|
|
code_034d: pToa pIsTracking
|
|
bnt code_0362
|
|
lst temp[$0]
|
|
ldi $0
|
|
eq?
|
|
bnt code_0362
|
|
pushi $20c ; 524, trackSlider
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
jmp code_037a
|
|
|
|
code_0362: pToa pIsTracking
|
|
bnt code_037a
|
|
lst temp[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_037a
|
|
ldi $0
|
|
aTop pIsTracking
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_037a: lst temp[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_048c
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_048c
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
lsp param[$1]
|
|
pToa thumb
|
|
send $6
|
|
bnot
|
|
bnt code_03b8
|
|
pushi $20c ; 524, trackSlider
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0484
|
|
|
|
code_03b8: pushi $b9 ; 185, localize
|
|
push1
|
|
pTos plane
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pToa vTracking
|
|
bnt code_0428
|
|
pToa pSnapTo
|
|
bnt code_03fb
|
|
pushi $20d ; 525, posnToValue
|
|
push1
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
jmp code_0484
|
|
|
|
code_03fb: pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
pushi $20d ; 525, posnToValue
|
|
push1
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
jmp code_0484
|
|
|
|
code_0428: pToa pSnapTo
|
|
bnt code_045a
|
|
pushi $20d ; 525, posnToValue
|
|
push1
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
jmp code_0484
|
|
|
|
code_045a: pushi $20b ; 523, drawThumb
|
|
push2
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
pushi $20d ; 525, posnToValue
|
|
push1
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
code_0484: pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
code_048c: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Slider::moveTo:
|
|
link $3
|
|
lsp param[$1]
|
|
pToa left
|
|
sub
|
|
sat temp[$0]
|
|
lsp param[$2]
|
|
pToa top
|
|
sub
|
|
sat temp[$1]
|
|
pToa vTracking
|
|
bnt code_04ad
|
|
lat temp[$1]
|
|
jmp code_04af
|
|
|
|
code_04ad: lat temp[$0]
|
|
code_04af: sat temp[$2]
|
|
pTos maximum
|
|
add
|
|
aTop maximum
|
|
pTos minimum
|
|
lat temp[$2]
|
|
add
|
|
aTop minimum
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
super <NIL>, $8
|
|
bnot
|
|
pToa thumb
|
|
bnt code_04ed
|
|
pToa thumbView
|
|
bnt code_04e0
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pToa thumb
|
|
send $8
|
|
bnot
|
|
jmp code_04ed
|
|
|
|
code_04e0: pushi $dd ; 221, moveBy
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pToa thumb
|
|
send $8
|
|
bnot
|
|
code_04ed: ret
|
|
|
|
Slider::draw:
|
|
link $1
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
super <NIL>, $4
|
|
bnot
|
|
bnt code_04fa
|
|
ret
|
|
|
|
code_04fa: pToa bitmap
|
|
sat temp[$0]
|
|
bnt code_0511
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pTos bitmap
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_0511: pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0548
|
|
pushi $5 ; scaleY
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos skip
|
|
pTos back
|
|
callk kernel_35, $a
|
|
bnot
|
|
aTop bitmap
|
|
pushi $7 ; priority
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
push0
|
|
push0
|
|
callk kernel_35, $e
|
|
bnot
|
|
jmp code_0564
|
|
|
|
code_0548: pushi $5 ; scaleY
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pTos skip
|
|
pTos back
|
|
callk kernel_35, $a
|
|
bnot
|
|
aTop bitmap
|
|
code_0564: lat temp[$0]
|
|
bnt code_056e
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_056e: ret
|
|
|
|
Slider::drawThumb:
|
|
link $2
|
|
pToa thumb
|
|
bnt code_05e6
|
|
lap param[$0]
|
|
bnt code_057e
|
|
lap param[$1]
|
|
jmp code_0587
|
|
|
|
code_057e: pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_0587: sat temp[$0]
|
|
lap param[$0]
|
|
bnt code_0591
|
|
lap param[$2]
|
|
jmp code_059a
|
|
|
|
code_0591: pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_059a: sat temp[$1]
|
|
pToa vTracking
|
|
bnt code_05ba
|
|
lst temp[$1]
|
|
pToa minimum
|
|
lt?
|
|
bnt code_05ad
|
|
pToa minimum
|
|
sat temp[$1]
|
|
jmp code_05d2
|
|
|
|
code_05ad: lst temp[$1]
|
|
pToa maximum
|
|
gt?
|
|
bnt code_05d2
|
|
pToa maximum
|
|
sat temp[$1]
|
|
jmp code_05d2
|
|
|
|
code_05ba: lst temp[$0]
|
|
pToa minimum
|
|
lt?
|
|
bnt code_05c7
|
|
pToa minimum
|
|
sat temp[$0]
|
|
jmp code_05d2
|
|
|
|
code_05c7: lst temp[$0]
|
|
pToa maximum
|
|
gt?
|
|
bnt code_05d2
|
|
pToa maximum
|
|
sat temp[$0]
|
|
code_05d2: pushi $db ; 219, moveTo
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pToa thumb
|
|
send $8
|
|
bnot
|
|
push1
|
|
pTos thumb
|
|
callk kernel_32, $2
|
|
bnot
|
|
code_05e6: ret
|
|
|
|
Slider::trackSlider:
|
|
link $5
|
|
lap param[$0]
|
|
bnt code_07c0
|
|
lap param[$1]
|
|
bnt code_07c0
|
|
pToa thumb
|
|
bnt code_07c0
|
|
pTos state
|
|
ldi $1
|
|
and
|
|
bnt code_07c0
|
|
push1
|
|
push0
|
|
pushi $f4 ; 244, curEvent
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
sub
|
|
sat temp[$3]
|
|
push2
|
|
push0
|
|
pushi $f4 ; 244, curEvent
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
sub
|
|
sat temp[$4]
|
|
code_0636: pushi $2b ; 43, '+', type
|
|
push0
|
|
pushi $f3 ; 243, nextEvent
|
|
push1
|
|
pushi $7fff ; 32767
|
|
lag global[$e]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
ne?
|
|
bnt code_072c
|
|
pushi $b9 ; 185, localize
|
|
push1
|
|
pTos plane
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pToa vTracking
|
|
bnt code_06a5
|
|
push2
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$4]
|
|
add
|
|
sat temp[$2]
|
|
lst temp[$1]
|
|
pToa top
|
|
lt?
|
|
bnt code_0684
|
|
pToa top
|
|
sat temp[$1]
|
|
code_0684: lst temp[$1]
|
|
pToa bottom
|
|
gt?
|
|
bnt code_068f
|
|
pToa bottom
|
|
sat temp[$1]
|
|
code_068f: pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_06e6
|
|
|
|
code_06a5: push1
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$3]
|
|
add
|
|
sat temp[$2]
|
|
lst temp[$1]
|
|
pToa left
|
|
lt?
|
|
bnt code_06c8
|
|
pToa left
|
|
sat temp[$1]
|
|
code_06c8: lst temp[$1]
|
|
pToa right
|
|
gt?
|
|
bnt code_06d3
|
|
pToa right
|
|
sat temp[$1]
|
|
code_06d3: pushi $20b ; 523, drawThumb
|
|
push2
|
|
lst temp[$1]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
code_06e6: pushi $20d ; 525, posnToValue
|
|
push1
|
|
pToa vTracking
|
|
bnt code_06f9
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
jmp code_0702
|
|
|
|
code_06f9: pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_0702: push
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
pushi $1d3 ; 467, modal
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_0724
|
|
jmp code_072c
|
|
|
|
jmp code_0636
|
|
|
|
code_0724: push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
jmp code_0636
|
|
|
|
code_072c: pushi $20d ; 525, posnToValue
|
|
push1
|
|
lst temp[$1]
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
pToa pSnapTo
|
|
bnt code_077d
|
|
pToa vTracking
|
|
bnt code_075d
|
|
pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
jmp code_0778
|
|
|
|
code_075d: pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
code_0778: push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
code_077d: pTos value
|
|
pToa topValue
|
|
lt?
|
|
bnt code_079e
|
|
pTos value
|
|
pToa bottomValue
|
|
lt?
|
|
bnt code_079e
|
|
pTos bottomValue
|
|
pToa topValue
|
|
lt?
|
|
bnt code_0798
|
|
pToa bottomValue
|
|
aTop value
|
|
jmp code_07bd
|
|
|
|
code_0798: pToa topValue
|
|
aTop value
|
|
jmp code_07bd
|
|
|
|
code_079e: pTos value
|
|
pToa topValue
|
|
gt?
|
|
bnt code_07bd
|
|
pTos value
|
|
pToa bottomValue
|
|
gt?
|
|
bnt code_07bd
|
|
pTos bottomValue
|
|
pToa topValue
|
|
lt?
|
|
bnt code_07b9
|
|
pToa topValue
|
|
aTop value
|
|
jmp code_07bd
|
|
|
|
code_07b9: pToa bottomValue
|
|
aTop value
|
|
code_07bd: ldi $1
|
|
ret
|
|
|
|
code_07c0: ret
|
|
|
|
Slider::highlight:
|
|
ret
|
|
|
|
Slider::move:
|
|
link $4
|
|
push1
|
|
lsp param[$1]
|
|
calle export60025_0, $2
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $1
|
|
aTop stepSize
|
|
lap param[$1]
|
|
sat temp[$0]
|
|
code_07d8: pTos stepSize
|
|
push1
|
|
lst temp[$0]
|
|
callk kernel_61, $2
|
|
bnot
|
|
le?
|
|
bnt code_087f
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pToa vTracking
|
|
bnt code_0820
|
|
lst temp[$3]
|
|
lst temp[$1]
|
|
pToa stepSize
|
|
mul
|
|
add
|
|
sat temp[$3]
|
|
push
|
|
pToa maximum
|
|
gt?
|
|
bnt code_0813
|
|
pToa maximum
|
|
sat temp[$3]
|
|
code_0813: lst temp[$3]
|
|
pToa minimum
|
|
lt?
|
|
bnt code_083f
|
|
pToa minimum
|
|
sat temp[$3]
|
|
jmp code_083f
|
|
|
|
code_0820: lst temp[$2]
|
|
lst temp[$1]
|
|
pToa stepSize
|
|
mul
|
|
add
|
|
sat temp[$2]
|
|
push
|
|
pToa maximum
|
|
gt?
|
|
bnt code_0834
|
|
pToa maximum
|
|
sat temp[$2]
|
|
code_0834: lst temp[$2]
|
|
pToa minimum
|
|
lt?
|
|
bnt code_083f
|
|
pToa minimum
|
|
sat temp[$2]
|
|
code_083f: pushi $20b ; 523, drawThumb
|
|
push2
|
|
lst temp[$2]
|
|
lst temp[$3]
|
|
self $8
|
|
bnot
|
|
pushi $20d ; 525, posnToValue
|
|
push1
|
|
pToa vTracking
|
|
bnt code_0856
|
|
lat temp[$3]
|
|
jmp code_0858
|
|
|
|
code_0856: lat temp[$2]
|
|
code_0858: push
|
|
self $6
|
|
bnot
|
|
aTop value
|
|
lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bt code_0868
|
|
lap param[$2]
|
|
not
|
|
code_0868: bnt code_0872
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
code_0872: lst temp[$0]
|
|
pTos stepSize
|
|
lat temp[$1]
|
|
mul
|
|
sub
|
|
sat temp[$0]
|
|
jmp code_07d8
|
|
|
|
code_087f: pToa value
|
|
ret
|
|
|
|
Slider::doit:
|
|
pToa handler
|
|
bnt code_088d
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_088d: pToa theObj
|
|
bnt code_08a0
|
|
push2
|
|
push
|
|
pTos theSelector
|
|
&rest $1
|
|
calle export60025_5, $4
|
|
bnot
|
|
jmp code_08a2
|
|
|
|
code_08a0: pToa value
|
|
code_08a2: ret
|
|
|
|
Slider::posnToValue:
|
|
link $2
|
|
lap param[$0]
|
|
bnt code_08ad
|
|
lap param[$1]
|
|
jmp code_08c5
|
|
|
|
code_08ad: pToa vTracking
|
|
bnt code_08bc
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
jmp code_08c5
|
|
|
|
code_08bc: pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_08c5: sat temp[$0]
|
|
pToa vTracking
|
|
bnt code_08e5
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push1
|
|
pTos topValue
|
|
pToa bottomValue
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
div
|
|
jmp code_08fc
|
|
|
|
code_08e5: pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push1
|
|
pTos topValue
|
|
pToa bottomValue
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
div
|
|
code_08fc: sat temp[$1]
|
|
pTos bottomValue
|
|
pToa pSnapTo
|
|
bnt code_0913
|
|
pTos maximum
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
add
|
|
push
|
|
lat temp[$0]
|
|
sub
|
|
jmp code_0923
|
|
|
|
code_0913: pTos maximum
|
|
lst temp[$1]
|
|
ldi $2
|
|
div
|
|
add
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
add
|
|
push
|
|
lat temp[$0]
|
|
sub
|
|
code_0923: push
|
|
pTos topValue
|
|
pToa bottomValue
|
|
sub
|
|
mul
|
|
push
|
|
pTos maximum
|
|
pToa minimum
|
|
sub
|
|
div
|
|
add
|
|
ret
|
|
|
|
Slider::valueToPosn:
|
|
link $1
|
|
lap param[$0]
|
|
bnt code_093d
|
|
lap param[$1]
|
|
jmp code_0943
|
|
|
|
code_093d: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0943: sat temp[$0]
|
|
push
|
|
pToa topValue
|
|
lt?
|
|
bnt code_0963
|
|
lst temp[$0]
|
|
pToa bottomValue
|
|
lt?
|
|
bnt code_0963
|
|
pTos bottomValue
|
|
pToa topValue
|
|
lt?
|
|
bnt code_095e
|
|
pToa maximum
|
|
jmp code_09a5
|
|
|
|
code_095e: pToa minimum
|
|
jmp code_09a5
|
|
|
|
code_0963: lst temp[$0]
|
|
pToa topValue
|
|
gt?
|
|
bnt code_0983
|
|
lst temp[$0]
|
|
pToa bottomValue
|
|
gt?
|
|
bnt code_0983
|
|
pTos bottomValue
|
|
pToa topValue
|
|
lt?
|
|
bnt code_097e
|
|
pToa minimum
|
|
jmp code_09a5
|
|
|
|
code_097e: pToa maximum
|
|
jmp code_09a5
|
|
|
|
code_0983: pTos minimum
|
|
push1
|
|
pTos topValue
|
|
lat temp[$0]
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
pTos maximum
|
|
pToa minimum
|
|
sub
|
|
mul
|
|
push
|
|
push1
|
|
pTos topValue
|
|
pToa bottomValue
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
div
|
|
add
|
|
code_09a5: ret
|
|
|
|
Slider::update:
|
|
link $1
|
|
pushi $20e ; 526, valueToPosn
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pToa vTracking
|
|
bnt code_09bf
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
jmp code_09c8
|
|
|
|
code_09bf: pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_09c8: sub
|
|
sat temp[$0]
|
|
bnt code_09d6
|
|
pushi $d7 ; 215, move
|
|
push2
|
|
push
|
|
push1
|
|
self $8
|
|
bnot
|
|
code_09d6: ret
|
|
|
|
Slider::setSize:
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_09ed
|
|
pushi $e6 ; 230, sizeToCel
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
self $a
|
|
bnot
|
|
code_09ed: ret
|
|
|
|
Slider::advance:
|
|
link $1
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push1
|
|
pTos bottomValue
|
|
pToa topValue
|
|
sub
|
|
push
|
|
calle export60025_0, $2
|
|
bnot
|
|
add
|
|
sat temp[$0]
|
|
pushi $d7 ; 215, move
|
|
push2
|
|
push2
|
|
push0
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
push
|
|
pToa vTracking
|
|
bnt code_0a26
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
jmp code_0a2f
|
|
|
|
code_0a26: pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_0a2f: sub
|
|
push
|
|
calle export60025_3, $4
|
|
bnot
|
|
push
|
|
push1
|
|
self $8
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
Slider::retreat:
|
|
link $1
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push1
|
|
pTos bottomValue
|
|
pToa topValue
|
|
sub
|
|
push
|
|
calle export60025_0, $2
|
|
bnot
|
|
sub
|
|
sat temp[$0]
|
|
pushi $d7 ; 215, move
|
|
push2
|
|
push2
|
|
push0
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
push
|
|
pToa vTracking
|
|
bnt code_0a7e
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
jmp code_0a87
|
|
|
|
code_0a7e: pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
code_0a87: sub
|
|
push
|
|
calle export60025_2, $4
|
|
bnot
|
|
push
|
|
push1
|
|
self $8
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
Slider::updateThumb:
|
|
lap param[$0]
|
|
bnt code_0aa6
|
|
lap param[$1]
|
|
aTop value
|
|
code_0aa6: pToa vTracking
|
|
bnt code_0ac9
|
|
pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
jmp code_0ae4
|
|
|
|
code_0ac9: pushi $20b ; 523, drawThumb
|
|
push2
|
|
pushi $20e ; 526, valueToPosn
|
|
push1
|
|
pTos value
|
|
self $6
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa thumb
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
code_0ae4: ret
|
|
|