Upload files to "Script"
This commit is contained in:
parent
599020fcaf
commit
d5d6d7ce3d
|
|
@ -0,0 +1,839 @@
|
||||||
|
IconBar::init:
|
||||||
|
pushi $258 ; 600, setOpenRect
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
pushi $255 ; 597, advanceCurIcon
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconBar::setOpenRect:
|
||||||
|
link $4
|
||||||
|
pToa openRect
|
||||||
|
bnt code_015c
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_015c: ldi $0
|
||||||
|
sat temp[$2]
|
||||||
|
ldi $0
|
||||||
|
sat temp[$3]
|
||||||
|
ldi $0
|
||||||
|
sat temp[$0]
|
||||||
|
code_0168: lst temp[$0]
|
||||||
|
pushi $5a ; 90, 'Z', size
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
lt?
|
||||||
|
bnt code_01d2
|
||||||
|
pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
lst temp[$0]
|
||||||
|
self $6
|
||||||
|
bnot
|
||||||
|
sat temp[$1]
|
||||||
|
pushi $89 ; 137, top
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $8a ; 138, bottom
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
eq?
|
||||||
|
bnt code_019a
|
||||||
|
pushi $1be ; 446, setSize
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_019a: pushi $88 ; 136, right
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
lat temp[$3]
|
||||||
|
gt?
|
||||||
|
bnt code_01b4
|
||||||
|
pushi $88 ; 136, right
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
sat temp[$3]
|
||||||
|
code_01b4: pushi $8a ; 138, bottom
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
lat temp[$2]
|
||||||
|
gt?
|
||||||
|
bnt code_01ce
|
||||||
|
pushi $8a ; 138, bottom
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
sat temp[$2]
|
||||||
|
code_01ce: +at temp[$0]
|
||||||
|
jmp code_0168
|
||||||
|
|
||||||
|
code_01d2: pushi $b5 ; 181, set
|
||||||
|
pushi $4 ; scaleX
|
||||||
|
pTos y
|
||||||
|
pTos x
|
||||||
|
lst temp[$2]
|
||||||
|
lst temp[$3]
|
||||||
|
pushi $8d ; 141, new
|
||||||
|
push0
|
||||||
|
class Rect
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop openRect
|
||||||
|
send $c
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconBar::shouldOpen:
|
||||||
|
pushi $254 ; 596, keepUp
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
bt code_0202
|
||||||
|
pToa openRect
|
||||||
|
not
|
||||||
|
bt code_0202
|
||||||
|
pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
code_0202: bnt code_0209
|
||||||
|
ldi $0
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_0215
|
||||||
|
|
||||||
|
code_0209: pushi $a3 ; 163, contains
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
pToa openRect
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
code_0215: ret
|
||||||
|
|
||||||
|
IconBar::shouldClose:
|
||||||
|
pushi $254 ; 596, keepUp
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
bt code_0222
|
||||||
|
pToa openRect
|
||||||
|
not
|
||||||
|
code_0222: bnt code_0229
|
||||||
|
ldi $0
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_023d
|
||||||
|
|
||||||
|
code_0229: pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
bnt code_023c
|
||||||
|
pushi $a3 ; 163, contains
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
pToa openRect
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
code_023c: ret
|
||||||
|
|
||||||
|
code_023d: ret
|
||||||
|
|
||||||
|
IconBar::open:
|
||||||
|
link $3
|
||||||
|
pushi $258 ; 600, setOpenRect
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
pToa priority
|
||||||
|
not
|
||||||
|
bt code_0251
|
||||||
|
pTos priority
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
eq?
|
||||||
|
code_0251: bnt code_025e
|
||||||
|
push0
|
||||||
|
callk kernel_44, $0
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $1
|
||||||
|
add
|
||||||
|
aTop priority
|
||||||
|
code_025e: pushi $9d ; 157, eachElementDo
|
||||||
|
push1
|
||||||
|
pushi $1be ; 446, setSize
|
||||||
|
self $6
|
||||||
|
bnot
|
||||||
|
pushi $7 ; priority
|
||||||
|
push1
|
||||||
|
pushi $1f4 ; 500, setView
|
||||||
|
pushi $94 ; 148, init
|
||||||
|
pushi $4 ; scaleX
|
||||||
|
pTos x
|
||||||
|
pTos y
|
||||||
|
pushi $27f ; 639, rename
|
||||||
|
pushi $1df ; 479, validKey
|
||||||
|
pushi $1b8 ; 440, addCast
|
||||||
|
push1
|
||||||
|
pushSelf
|
||||||
|
pToa plane
|
||||||
|
send $18
|
||||||
|
bnot
|
||||||
|
pTos state
|
||||||
|
ldi $1
|
||||||
|
or
|
||||||
|
aTop state
|
||||||
|
pushi $9d ; 157, eachElementDo
|
||||||
|
push2
|
||||||
|
pushi $94 ; 148, init
|
||||||
|
pushSelf
|
||||||
|
self $8
|
||||||
|
bnot
|
||||||
|
pToa curIcon
|
||||||
|
not
|
||||||
|
bnt code_02a6
|
||||||
|
pushi $255 ; 597, advanceCurIcon
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_02a6: pushi $57 ; 87, 'W', draw
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconBar::close:
|
||||||
|
pushi $254 ; 596, keepUp
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
bnt code_02dd
|
||||||
|
pushi $9d ; 157, eachElementDo
|
||||||
|
push2
|
||||||
|
pushi $1ca ; 458, select
|
||||||
|
push0
|
||||||
|
self $8
|
||||||
|
bnot
|
||||||
|
pushi $1ba ; 442, erase
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
pTos state
|
||||||
|
ldi $fe ; 254, strIndex
|
||||||
|
and
|
||||||
|
aTop state
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
pToa plane
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop plane
|
||||||
|
code_02dd: ret
|
||||||
|
|
||||||
|
IconBar::keepUp:
|
||||||
|
lap param[$0]
|
||||||
|
not
|
||||||
|
bnt code_02eb
|
||||||
|
pTos state
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
and
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_0315
|
||||||
|
|
||||||
|
code_02eb: lap param[$1]
|
||||||
|
bnt code_030d
|
||||||
|
pTos state
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
or
|
||||||
|
aTop state
|
||||||
|
pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
not
|
||||||
|
bnt code_0305
|
||||||
|
pushi $248 ; 584, open
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_0305: pTos state
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
and
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_0315
|
||||||
|
|
||||||
|
code_030d: pTos state
|
||||||
|
ldi $fb ; 251, subStr
|
||||||
|
and
|
||||||
|
aTop state
|
||||||
|
ret
|
||||||
|
|
||||||
|
code_0315: ret
|
||||||
|
|
||||||
|
IconBar::handleEvent:
|
||||||
|
link $1
|
||||||
|
pushi $b9 ; 185, localize
|
||||||
|
push1
|
||||||
|
pTos plane
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $1bf ; 447, isHidden
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
bt code_0334
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_0334: bnt code_033b
|
||||||
|
ldi $0
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_033b: pushi $256 ; 598, shouldOpen
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
self $6
|
||||||
|
bnot
|
||||||
|
bnt code_035c
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $248 ; 584, open
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ldi $1
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_035c: pushi $257 ; 599, shouldClose
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
self $6
|
||||||
|
bnot
|
||||||
|
bnt code_037d
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $253 ; 595, close
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ldi $1
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_037d: pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
bnt code_03bc
|
||||||
|
pushi $c8 ; 200, handleEvent
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
super Dialog, $6
|
||||||
|
bnot
|
||||||
|
sat temp[$0]
|
||||||
|
bnt code_03bc
|
||||||
|
push
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
ne?
|
||||||
|
bnt code_03bc
|
||||||
|
pushi $29 ; 41, ')', state
|
||||||
|
push0
|
||||||
|
lat temp[$0]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $2
|
||||||
|
and
|
||||||
|
bnt code_03bc
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $253 ; 595, close
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ldi $1
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_03bc: pushi $50 ; 80, 'P', claimed
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
bt code_03e2
|
||||||
|
pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
bnt code_03f3
|
||||||
|
pushi $254 ; 596, keepUp
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
bnt code_03f3
|
||||||
|
pushi $a3 ; 163, contains
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
pToa openRect
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
code_03e2: bnt code_03f3
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
ldi $1
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_03f3: pushi $2b ; 43, '+', type
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $1
|
||||||
|
eq?
|
||||||
|
bnt code_043d
|
||||||
|
pToa curIcon
|
||||||
|
bnt code_043d
|
||||||
|
pushi $259 ; 601, isCursor
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
bnt code_043d
|
||||||
|
pushi $48 ; 72, 'H', modifiers
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
and
|
||||||
|
bt code_0428
|
||||||
|
pushi $48 ; 72, 'H', modifiers
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $3 ; z
|
||||||
|
and
|
||||||
|
code_0428: bnt code_043d
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $255 ; 597, advanceCurIcon
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_043d: pushi $2b ; 43, '+', type
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $1
|
||||||
|
eq?
|
||||||
|
bnt code_04cd
|
||||||
|
pushi $48 ; 72, 'H', modifiers
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
bnt code_04cd
|
||||||
|
pToa curIcon
|
||||||
|
bnt code_04cd
|
||||||
|
lag global[$b]
|
||||||
|
bnt code_04cd
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push0
|
||||||
|
pToa curIcon
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
eq?
|
||||||
|
bt code_047c
|
||||||
|
pToa curIcon
|
||||||
|
bnt code_04cd
|
||||||
|
pushi $259 ; 601, isCursor
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_047c: bnt code_04cd
|
||||||
|
pushi $ba ; 186, globalize
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
pushi $a3 ; 163, contains
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
pToa plane
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
bnt code_04ab
|
||||||
|
pushi $25a ; 602, pFallThru
|
||||||
|
push0
|
||||||
|
pToa curIcon
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
bnt code_04ab
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
jmp code_04cd
|
||||||
|
|
||||||
|
code_04ab: pushi $2b ; 43, '+', type
|
||||||
|
push1
|
||||||
|
pushi $2b ; 43, '+', type
|
||||||
|
push0
|
||||||
|
pToa curIcon
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $31 ; 49, '1', message
|
||||||
|
push1
|
||||||
|
pushi $25b ; 603, verb
|
||||||
|
push0
|
||||||
|
pToa curIcon
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $12
|
||||||
|
bnot
|
||||||
|
code_04cd: pushi $ba ; 186, globalize
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
pushi $50 ; 80, 'P', claimed
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconBar::enable:
|
||||||
|
pushi $1b4 ; 436, enable
|
||||||
|
push2
|
||||||
|
push1
|
||||||
|
pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
not
|
||||||
|
push
|
||||||
|
lap param[$1]
|
||||||
|
send $8
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconBar::disable:
|
||||||
|
pushi $1b4 ; 436, enable
|
||||||
|
push2
|
||||||
|
push0
|
||||||
|
pTos state
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
not
|
||||||
|
push
|
||||||
|
lap param[$1]
|
||||||
|
send $8
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconBar::advanceCurIcon:
|
||||||
|
link $3
|
||||||
|
pTos state
|
||||||
|
ldi $8 ; fixPriority
|
||||||
|
and
|
||||||
|
bnt code_050d
|
||||||
|
ret
|
||||||
|
|
||||||
|
code_050d: pToa curIcon
|
||||||
|
not
|
||||||
|
bnt code_0518
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0523
|
||||||
|
|
||||||
|
code_0518: pushi $ae ; 174, indexOf
|
||||||
|
push1
|
||||||
|
pTos curIcon
|
||||||
|
self $6
|
||||||
|
bnot
|
||||||
|
sat temp[$1]
|
||||||
|
code_0523: lat temp[$1]
|
||||||
|
sat temp[$2]
|
||||||
|
code_0527: +at temp[$1]
|
||||||
|
push
|
||||||
|
pushi $5a ; 90, 'Z', size
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ge?
|
||||||
|
bnt code_0537
|
||||||
|
ldi $0
|
||||||
|
sat temp[$1]
|
||||||
|
code_0537: lst temp[$2]
|
||||||
|
lat temp[$1]
|
||||||
|
eq?
|
||||||
|
bnt code_0540
|
||||||
|
jmp code_056b
|
||||||
|
|
||||||
|
code_0540: pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
lst temp[$1]
|
||||||
|
self $6
|
||||||
|
bnot
|
||||||
|
sat temp[$0]
|
||||||
|
bnt code_0527
|
||||||
|
pushi $29 ; 41, ')', state
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $1
|
||||||
|
and
|
||||||
|
bnt code_0527
|
||||||
|
pushi $29 ; 41, ')', state
|
||||||
|
push0
|
||||||
|
lat temp[$0]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $200 ; 512, bottomValue
|
||||||
|
and
|
||||||
|
bnt code_0527
|
||||||
|
jmp code_056b
|
||||||
|
|
||||||
|
jmp code_0527
|
||||||
|
|
||||||
|
code_056b: pTos curIcon
|
||||||
|
lat temp[$0]
|
||||||
|
ne?
|
||||||
|
bnt code_0589
|
||||||
|
lst temp[$0]
|
||||||
|
pToa inventoryIcon
|
||||||
|
ne?
|
||||||
|
bnt code_057d
|
||||||
|
ldi $0
|
||||||
|
sag global[$44]
|
||||||
|
code_057d: lat temp[$0]
|
||||||
|
aTop curIcon
|
||||||
|
pushi $45 ; 69, 'E', doit
|
||||||
|
push0
|
||||||
|
pToa curIcon
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_0589: ret
|
||||||
|
|
||||||
|
IconBar::hide:
|
||||||
|
pToa plane
|
||||||
|
bnt code_0594
|
||||||
|
pushi $69 ; 105, 'i', hide
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_0594: ret
|
||||||
|
|
||||||
|
IconBar::show:
|
||||||
|
pToa plane
|
||||||
|
bnt code_059f
|
||||||
|
pushi $75 ; 117, 'u', show
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_059f: ret
|
||||||
|
|
||||||
|
IconButton::isCursor:
|
||||||
|
lag global[$b]
|
||||||
|
bnt code_05c7
|
||||||
|
pTos cursorView
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
eq?
|
||||||
|
bnt code_05c7
|
||||||
|
pTos cursorLoop
|
||||||
|
pushi $f ; 15, loop
|
||||||
|
push0
|
||||||
|
lag global[$b]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
eq?
|
||||||
|
bnt code_05c7
|
||||||
|
pTos cursorCel
|
||||||
|
pushi $10 ; 16, cel
|
||||||
|
push0
|
||||||
|
lag global[$b]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
eq?
|
||||||
|
code_05c7: ret
|
||||||
|
|
||||||
|
IconButton::setSize:
|
||||||
|
pushi $db ; 219, moveTo
|
||||||
|
push2
|
||||||
|
pTos x
|
||||||
|
pTos y
|
||||||
|
self $8
|
||||||
|
bnot
|
||||||
|
pushi $1be ; 446, setSize
|
||||||
|
push0
|
||||||
|
&rest $1
|
||||||
|
super Button, $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconButton::doit:
|
||||||
|
ret
|
||||||
|
|
||||||
|
IconButton::choose:
|
||||||
|
link $2
|
||||||
|
pTos btnType
|
||||||
|
ldi $1
|
||||||
|
eq?
|
||||||
|
bnt code_05f2
|
||||||
|
pTos state
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
xor
|
||||||
|
aTop state
|
||||||
|
jmp code_0662
|
||||||
|
|
||||||
|
code_05f2: pTos btnType
|
||||||
|
ldi $0
|
||||||
|
eq?
|
||||||
|
bnt code_05fc
|
||||||
|
jmp code_0662
|
||||||
|
|
||||||
|
code_05fc: pTos btnType
|
||||||
|
ldi $2
|
||||||
|
eq?
|
||||||
|
bnt code_0662
|
||||||
|
pTos state
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
or
|
||||||
|
aTop state
|
||||||
|
pToa buttonSet
|
||||||
|
bnt code_0662
|
||||||
|
ldi $0
|
||||||
|
sat temp[$0]
|
||||||
|
code_0614: lst temp[$0]
|
||||||
|
pushi $5a ; 90, 'Z', size
|
||||||
|
push0
|
||||||
|
pToa buttonSet
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
lt?
|
||||||
|
bnt code_0662
|
||||||
|
pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
lst temp[$0]
|
||||||
|
pToa buttonSet
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
sat temp[$1]
|
||||||
|
push
|
||||||
|
selfID
|
||||||
|
ne?
|
||||||
|
bnt code_065e
|
||||||
|
pushi $1cc ; 460, checkState
|
||||||
|
push1
|
||||||
|
pushi $4 ; scaleX
|
||||||
|
lat temp[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
bnt code_065e
|
||||||
|
pushi $29 ; 41, ')', state
|
||||||
|
push1
|
||||||
|
pushi $29 ; 41, ')', state
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $fb ; 251, subStr
|
||||||
|
and
|
||||||
|
push
|
||||||
|
lat temp[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $57 ; 87, 'W', draw
|
||||||
|
push0
|
||||||
|
lat temp[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
jmp code_0662
|
||||||
|
|
||||||
|
code_065e: +at temp[$0]
|
||||||
|
jmp code_0614
|
||||||
|
|
||||||
|
code_0662: pushi $1ca ; 458, select
|
||||||
|
push2
|
||||||
|
push0
|
||||||
|
push1
|
||||||
|
self $8
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
@ -0,0 +1,615 @@
|
||||||
|
code_0079: sub
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $2
|
||||||
|
ge?
|
||||||
|
bnt $88
|
||||||
|
lsp param[$1]
|
||||||
|
lap param[$2]
|
||||||
|
sub
|
||||||
|
sap param[$1]
|
||||||
|
lsp param[$1]
|
||||||
|
ldi $ff4c ; -180
|
||||||
|
le?
|
||||||
|
bnt $98
|
||||||
|
lsp param[$1]
|
||||||
|
ldi $168 ; 360, pY1
|
||||||
|
add
|
||||||
|
jmp $aa
|
||||||
|
|
||||||
|
lsp param[$1]
|
||||||
|
ldi $b4 ; 180, end
|
||||||
|
gt?
|
||||||
|
bnt $a8
|
||||||
|
lsp param[$1]
|
||||||
|
ldi $168 ; 360, pY1
|
||||||
|
sub
|
||||||
|
jmp $aa
|
||||||
|
|
||||||
|
lap param[$1]
|
||||||
|
ret
|
||||||
|
|
||||||
|
Grooper::doit:
|
||||||
|
link $1
|
||||||
|
pToa client
|
||||||
|
not
|
||||||
|
bnt code_00b6
|
||||||
|
lap param[$1]
|
||||||
|
aTop client
|
||||||
|
code_00b6: lsp param[$0]
|
||||||
|
ldi $3 ; z
|
||||||
|
ge?
|
||||||
|
bnt code_00c1
|
||||||
|
lap param[$3]
|
||||||
|
aTop caller
|
||||||
|
code_00c1: pushi $1a ; 26, signal
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $800 ; 2048, BAD SELECTOR
|
||||||
|
and
|
||||||
|
bnt code_00ea
|
||||||
|
push1
|
||||||
|
pTos caller
|
||||||
|
calle export60000_0, $2
|
||||||
|
bnot
|
||||||
|
bnt code_00e5
|
||||||
|
pushi $c7 ; 199, cue
|
||||||
|
push0
|
||||||
|
pToa caller
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_00e5: ldi $0
|
||||||
|
aTop caller
|
||||||
|
ret
|
||||||
|
|
||||||
|
code_00ea: pushi $a3 ; 163, contains
|
||||||
|
push1
|
||||||
|
pTos client
|
||||||
|
pushi $f2 ; 242, pCast
|
||||||
|
push0
|
||||||
|
lag global[$3]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
bt code_0108
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
ge?
|
||||||
|
bnt code_0162
|
||||||
|
lap param[$4]
|
||||||
|
code_0108: bnt code_0162
|
||||||
|
pushi $195 ; 405, setLoop
|
||||||
|
push1
|
||||||
|
pTos numLoops
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
eq?
|
||||||
|
bnt code_0119
|
||||||
|
ldi $2
|
||||||
|
jmp code_011b
|
||||||
|
|
||||||
|
code_0119: ldi $1
|
||||||
|
code_011b: push
|
||||||
|
push2
|
||||||
|
pushi $43 ; 67, 'C', heading
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $168 ; 360, pY1
|
||||||
|
pToa numLoops
|
||||||
|
div
|
||||||
|
add
|
||||||
|
push
|
||||||
|
pushi $168 ; 360, pY1
|
||||||
|
calle export60025_1, $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $168 ; 360, pY1
|
||||||
|
pToa numLoops
|
||||||
|
div
|
||||||
|
div
|
||||||
|
mul
|
||||||
|
lsli local[$8]
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push1
|
||||||
|
pTos caller
|
||||||
|
calle export60000_0, $2
|
||||||
|
bnot
|
||||||
|
bnt code_015d
|
||||||
|
pushi $c7 ; 199, cue
|
||||||
|
push0
|
||||||
|
pToa caller
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_015d: ldi $0
|
||||||
|
aTop caller
|
||||||
|
ret
|
||||||
|
|
||||||
|
code_0162: pushi $f ; 15, loop
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pTos numLoops
|
||||||
|
ldi $1
|
||||||
|
sub
|
||||||
|
eq?
|
||||||
|
bnt code_01b5
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
bnt code_01b5
|
||||||
|
pushi $97 ; 151, isKindOf
|
||||||
|
push1
|
||||||
|
class StopWalk
|
||||||
|
push
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
bnt code_01b5
|
||||||
|
pushi $292 ; 658, vStopped
|
||||||
|
push0
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
eq?
|
||||||
|
bnt code_01b5
|
||||||
|
pushi $10 ; 16, cel
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
lali local[$0]
|
||||||
|
jmp code_01bf
|
||||||
|
|
||||||
|
code_01b5: pushi $f ; 15, loop
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
lali local[$0]
|
||||||
|
code_01bf: sat temp[$0]
|
||||||
|
pToa oldMover
|
||||||
|
bnt code_01d0
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldMover
|
||||||
|
code_01d0: pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
bnt code_0210
|
||||||
|
pushi $98 ; 152, isMemberOf
|
||||||
|
push1
|
||||||
|
lofsa Grycler
|
||||||
|
push
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
bnt code_0210
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push1
|
||||||
|
pTos oldCycler
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldCycler
|
||||||
|
code_0210: pToa oldCycler
|
||||||
|
bnt code_021f
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldCycler
|
||||||
|
code_021f: pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop oldCycler
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop oldMover
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pushi $105 ; 261, setCycle
|
||||||
|
pushi $3 ; z
|
||||||
|
lofsa Grycler
|
||||||
|
push
|
||||||
|
pushSelf
|
||||||
|
lst temp[$0]
|
||||||
|
pToa client
|
||||||
|
send $16
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
Grooper::cue:
|
||||||
|
link $1
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
not
|
||||||
|
bnt code_026b
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push1
|
||||||
|
pTos oldMover
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldMover
|
||||||
|
code_026b: pToa oldMover
|
||||||
|
bnt code_027a
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldMover
|
||||||
|
code_027a: pToa oldCycler
|
||||||
|
bnt code_0288
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push1
|
||||||
|
push
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
code_0288: pToa caller
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $0
|
||||||
|
aTop oldCycler
|
||||||
|
aTop oldMover
|
||||||
|
aTop caller
|
||||||
|
push1
|
||||||
|
lst temp[$0]
|
||||||
|
calle export60000_0, $2
|
||||||
|
bnot
|
||||||
|
bnt code_02ab
|
||||||
|
pushi $c7 ; 199, cue
|
||||||
|
push0
|
||||||
|
&rest $1
|
||||||
|
lat temp[$0]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_02ab: ret
|
||||||
|
|
||||||
|
Grooper::dispose:
|
||||||
|
pToa oldCycler
|
||||||
|
bnt code_02bb
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldCycler
|
||||||
|
code_02bb: pToa oldMover
|
||||||
|
bnt code_02ca
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldMover
|
||||||
|
code_02ca: pToa client
|
||||||
|
bnt code_02d5
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
code_02d5: pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
super Code, $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
Grycler::init:
|
||||||
|
pushi $94 ; 148, init
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
super Cycle, $6
|
||||||
|
bnot
|
||||||
|
lap param[$2]
|
||||||
|
aTop caller
|
||||||
|
pushi $297 ; 663, numLoops
|
||||||
|
push0
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop numOfLoops
|
||||||
|
push1
|
||||||
|
push2
|
||||||
|
lsp param[$3]
|
||||||
|
ldi $2d ; 45, '-', cursor
|
||||||
|
mul
|
||||||
|
push
|
||||||
|
pushi $43 ; 67, 'C', heading
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
call code_0079, $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
calle export60025_0, $2
|
||||||
|
bnot
|
||||||
|
neg
|
||||||
|
aTop cycleDir
|
||||||
|
lap param[$3]
|
||||||
|
aTop loopIndex
|
||||||
|
pushi $29a ; 666, loopIsCorrect
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
bnt code_0387
|
||||||
|
pushi $295 ; 661, oldCycler
|
||||||
|
push0
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
bnt code_0380
|
||||||
|
pushi $97 ; 151, isKindOf
|
||||||
|
push1
|
||||||
|
class StopWalk
|
||||||
|
push
|
||||||
|
pushi $295 ; 661, oldCycler
|
||||||
|
push0
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
bnt code_0380
|
||||||
|
pushi $292 ; 658, vStopped
|
||||||
|
push0
|
||||||
|
pushi $295 ; 661, oldCycler
|
||||||
|
push0
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
eq?
|
||||||
|
bnt code_0380
|
||||||
|
pushi $195 ; 405, setLoop
|
||||||
|
push1
|
||||||
|
pToa loopIndex
|
||||||
|
lsli local[$8]
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
code_0380: pushi $160 ; 352, cycleDone
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_0387: ret
|
||||||
|
|
||||||
|
Grycler::dispose:
|
||||||
|
pToa completed
|
||||||
|
not
|
||||||
|
bnt code_0391
|
||||||
|
ldi $0
|
||||||
|
aTop caller
|
||||||
|
code_0391: pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
&rest $1
|
||||||
|
super Cycle, $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
Grycler::doit:
|
||||||
|
link $1
|
||||||
|
pushi $15f ; 351, nextCel
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
sat temp[$0]
|
||||||
|
pushi $195 ; 405, setLoop
|
||||||
|
push1
|
||||||
|
push
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $1007 ; 4103, -info-
|
||||||
|
push1
|
||||||
|
pushi $1007 ; 4103, -info-
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $8 ; fixPriority
|
||||||
|
or
|
||||||
|
push
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pushi $29a ; 666, loopIsCorrect
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
bnt code_03d8
|
||||||
|
pushi $160 ; 352, cycleDone
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_03d8: ret
|
||||||
|
|
||||||
|
Grycler::cycleDone:
|
||||||
|
link $1
|
||||||
|
ldi $1
|
||||||
|
aTop completed
|
||||||
|
pushi $295 ; 661, oldCycler
|
||||||
|
push0
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
sat temp[$0]
|
||||||
|
bnt code_0409
|
||||||
|
pushi $15e ; 350, clientLastCel
|
||||||
|
push1
|
||||||
|
pushi $161 ; 353, lastCel
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $1
|
||||||
|
sub
|
||||||
|
push
|
||||||
|
lat temp[$0]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
code_0409: pushi $159 ; 345, motionCue
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
Grycler::loopIsCorrect:
|
||||||
|
push1
|
||||||
|
push2
|
||||||
|
pTos loopIndex
|
||||||
|
ldi $2d ; 45, '-', cursor
|
||||||
|
mul
|
||||||
|
push
|
||||||
|
pushi $43 ; 67, 'C', heading
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
call code_0079, $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
callk kernel_61, $2
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $b4 ; 180, end
|
||||||
|
pToa numOfLoops
|
||||||
|
div
|
||||||
|
push
|
||||||
|
ldi $1
|
||||||
|
add
|
||||||
|
lt?
|
||||||
|
ret
|
||||||
|
|
||||||
|
Grycler::nextCel:
|
||||||
|
push1
|
||||||
|
lsg global[$40]
|
||||||
|
pToa cycleCnt
|
||||||
|
sub
|
||||||
|
push
|
||||||
|
callk kernel_61, $2
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $14a ; 330, cycleSpeed
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
lt?
|
||||||
|
bt code_0458
|
||||||
|
pushi $29a ; 666, loopIsCorrect
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_0458: bnt code_0464
|
||||||
|
pushi $f ; 15, loop
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
jmp code_0487
|
||||||
|
|
||||||
|
code_0464: lag global[$40]
|
||||||
|
aTop cycleCnt
|
||||||
|
pTos loopIndex
|
||||||
|
pTos cycleDir
|
||||||
|
pushi $8 ; fixPriority
|
||||||
|
pToa numOfLoops
|
||||||
|
div
|
||||||
|
mul
|
||||||
|
add
|
||||||
|
aTop loopIndex
|
||||||
|
push2
|
||||||
|
pTos loopIndex
|
||||||
|
pushi $8 ; fixPriority
|
||||||
|
calle export60025_1, $4
|
||||||
|
bnot
|
||||||
|
aTop loopIndex
|
||||||
|
pToa loopIndex
|
||||||
|
lali local[$8]
|
||||||
|
code_0487: ret
|
||||||
|
|
||||||
|
|
@ -0,0 +1,485 @@
|
||||||
|
export60074_0 = SmoothLooper
|
||||||
|
|
||||||
|
SmoothLooper::doit:
|
||||||
|
link $2
|
||||||
|
pushi $1a ; 26, signal
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $800 ; 2048, BAD SELECTOR
|
||||||
|
and
|
||||||
|
bnt code_0056
|
||||||
|
ret
|
||||||
|
|
||||||
|
code_0056: ldi $0
|
||||||
|
sat temp[$1]
|
||||||
|
pToa inProgress
|
||||||
|
bnt code_007f
|
||||||
|
pToa newMover
|
||||||
|
bnt code_0069
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_0069: pushi $44 ; 68, 'D', mover
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop newMover
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
jmp code_0096
|
||||||
|
|
||||||
|
code_007f: pToa vNormal
|
||||||
|
not
|
||||||
|
bnt code_008e
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop vNormal
|
||||||
|
code_008e: lap param[$1]
|
||||||
|
aTop client
|
||||||
|
ldi $1
|
||||||
|
aTop inProgress
|
||||||
|
code_0096: pushi $f ; 15, loop
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $3 ; z
|
||||||
|
gt?
|
||||||
|
bnt code_00d6
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pToa vNormal
|
||||||
|
eq?
|
||||||
|
bnt code_00d6
|
||||||
|
pToa inProgress
|
||||||
|
bnt code_00c3
|
||||||
|
pToa oldMover
|
||||||
|
bnt code_00d6
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
jmp code_00d6
|
||||||
|
|
||||||
|
code_00c3: pushi $e ; 14, view
|
||||||
|
push1
|
||||||
|
pTos vNormal
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push2
|
||||||
|
pTos client
|
||||||
|
lsp param[$2]
|
||||||
|
callk kernel_95, $4
|
||||||
|
bnot
|
||||||
|
code_00d6: pushi $f ; 15, loop
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
sat temp[$0]
|
||||||
|
push
|
||||||
|
dup
|
||||||
|
ldi $3 ; z
|
||||||
|
eq?
|
||||||
|
bnt code_013d
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $2d ; 45, '-', cursor
|
||||||
|
le?
|
||||||
|
bt code_00f4
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
gt?
|
||||||
|
code_00f4: bnt code_00f9
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_00f9: lsp param[$2]
|
||||||
|
ldi $87 ; 135, left
|
||||||
|
le?
|
||||||
|
bnt code_0110
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $0
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_0110: lsp param[$2]
|
||||||
|
ldi $e1 ; 225, height
|
||||||
|
le?
|
||||||
|
bnt code_0127
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $10 ; 16, cel
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_0127: lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
le?
|
||||||
|
bnt code_0249
|
||||||
|
ldi $5 ; scaleY
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $1
|
||||||
|
aTop nextLoop
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_013d: dup
|
||||||
|
ldi $0
|
||||||
|
eq?
|
||||||
|
bnt code_019b
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $2d ; 45, '-', cursor
|
||||||
|
le?
|
||||||
|
bt code_0150
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
gt?
|
||||||
|
code_0150: bnt code_0161
|
||||||
|
ldi $6 ; maxScale
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $3 ; z
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_0161: lsp param[$2]
|
||||||
|
ldi $87 ; 135, left
|
||||||
|
le?
|
||||||
|
bnt code_016c
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_016c: lsp param[$2]
|
||||||
|
ldi $e1 ; 225, height
|
||||||
|
le?
|
||||||
|
bnt code_0183
|
||||||
|
ldi $0
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $2
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_0183: lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
le?
|
||||||
|
bnt code_0249
|
||||||
|
ldi $6 ; maxScale
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $15 ; 21, nsBottom
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_019b: dup
|
||||||
|
ldi $1
|
||||||
|
eq?
|
||||||
|
bnt code_01f4
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $2d ; 45, '-', cursor
|
||||||
|
le?
|
||||||
|
bt code_01ae
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
gt?
|
||||||
|
code_01ae: bnt code_01bf
|
||||||
|
ldi $7 ; priority
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $3 ; z
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_01bf: lsp param[$2]
|
||||||
|
ldi $87 ; 135, left
|
||||||
|
le?
|
||||||
|
bnt code_01d6
|
||||||
|
ldi $1
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $12 ; 18, nsLeft
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_01d6: lsp param[$2]
|
||||||
|
ldi $e1 ; 225, height
|
||||||
|
le?
|
||||||
|
bnt code_01ec
|
||||||
|
ldi $1
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $2
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_01ec: lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
le?
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_01f4: dup
|
||||||
|
ldi $2
|
||||||
|
eq?
|
||||||
|
bnt code_0249
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $2d ; 45, '-', cursor
|
||||||
|
le?
|
||||||
|
bt code_0207
|
||||||
|
lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
gt?
|
||||||
|
code_0207: bnt code_0217
|
||||||
|
ldi $3 ; z
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $17 ; 23, lsTop
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_0217: lsp param[$2]
|
||||||
|
ldi $87 ; 135, left
|
||||||
|
le?
|
||||||
|
bnt code_022d
|
||||||
|
ldi $2
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $0
|
||||||
|
aTop nextLoop
|
||||||
|
ldi $1
|
||||||
|
sat temp[$1]
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_022d: lsp param[$2]
|
||||||
|
ldi $e1 ; 225, height
|
||||||
|
le?
|
||||||
|
bnt code_0237
|
||||||
|
jmp code_0249
|
||||||
|
|
||||||
|
code_0237: lsp param[$2]
|
||||||
|
ldi $13b ; 315, putWord
|
||||||
|
le?
|
||||||
|
bnt code_0249
|
||||||
|
ldi $3 ; z
|
||||||
|
sat temp[$0]
|
||||||
|
ldi $1
|
||||||
|
aTop nextLoop
|
||||||
|
sat temp[$1]
|
||||||
|
code_0249: toss
|
||||||
|
lat temp[$1]
|
||||||
|
bnt code_029a
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop oldCycler
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop oldMover
|
||||||
|
pushi $14a ; 330, cycleSpeed
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop oldCycleSpeed
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push1
|
||||||
|
pTos vChangeDir
|
||||||
|
pushi $14a ; 330, cycleSpeed
|
||||||
|
push1
|
||||||
|
pTos cycleSpeed
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pushi $f ; 15, loop
|
||||||
|
push1
|
||||||
|
lst temp[$0]
|
||||||
|
pushi $10 ; 16, cel
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pushi $105 ; 261, setCycle
|
||||||
|
push2
|
||||||
|
class End
|
||||||
|
push
|
||||||
|
pushSelf
|
||||||
|
pToa client
|
||||||
|
send $2c
|
||||||
|
bnot
|
||||||
|
jmp code_029e
|
||||||
|
|
||||||
|
code_029a: ldi $0
|
||||||
|
aTop inProgress
|
||||||
|
code_029e: ret
|
||||||
|
|
||||||
|
SmoothLooper::cue:
|
||||||
|
pTos nextLoop
|
||||||
|
ldi $f ; 15, loop
|
||||||
|
lt?
|
||||||
|
bnt code_02e3
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push1
|
||||||
|
pTos vNormal
|
||||||
|
pushi $f ; 15, loop
|
||||||
|
push1
|
||||||
|
pTos nextLoop
|
||||||
|
pushi $44 ; 68, 'D', mover
|
||||||
|
push1
|
||||||
|
pTos oldMover
|
||||||
|
pushi $15b ; 347, cycler
|
||||||
|
push1
|
||||||
|
pTos oldCycler
|
||||||
|
pushi $14a ; 330, cycleSpeed
|
||||||
|
push1
|
||||||
|
pTos oldCycleSpeed
|
||||||
|
pToa client
|
||||||
|
send $1e
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop oldMover
|
||||||
|
aTop oldCycler
|
||||||
|
aTop inProgress
|
||||||
|
pToa newMover
|
||||||
|
bnt code_032b
|
||||||
|
pushi $15c ; 348, setMotion
|
||||||
|
push1
|
||||||
|
push
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
ldi $0
|
||||||
|
aTop newMover
|
||||||
|
jmp code_032b
|
||||||
|
|
||||||
|
code_02e3: pTos nextLoop
|
||||||
|
ldi $10 ; 16, cel
|
||||||
|
sub
|
||||||
|
aTop nextLoop
|
||||||
|
pushi $f ; 15, loop
|
||||||
|
push1
|
||||||
|
pTos nextLoop
|
||||||
|
pushi $10 ; 16, cel
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pushi $105 ; 261, setCycle
|
||||||
|
push2
|
||||||
|
class End
|
||||||
|
push
|
||||||
|
pushSelf
|
||||||
|
pToa client
|
||||||
|
send $14
|
||||||
|
bnot
|
||||||
|
pTos nextLoop
|
||||||
|
dup
|
||||||
|
ldi $0
|
||||||
|
eq?
|
||||||
|
bnt code_030c
|
||||||
|
ldi $2
|
||||||
|
jmp code_0328
|
||||||
|
|
||||||
|
code_030c: dup
|
||||||
|
ldi $5 ; scaleY
|
||||||
|
eq?
|
||||||
|
bnt code_0316
|
||||||
|
ldi $1
|
||||||
|
jmp code_0328
|
||||||
|
|
||||||
|
code_0316: dup
|
||||||
|
ldi $2
|
||||||
|
eq?
|
||||||
|
bnt code_0320
|
||||||
|
ldi $0
|
||||||
|
jmp code_0328
|
||||||
|
|
||||||
|
code_0320: dup
|
||||||
|
ldi $7 ; priority
|
||||||
|
eq?
|
||||||
|
bnt code_0328
|
||||||
|
ldi $3 ; z
|
||||||
|
code_0328: toss
|
||||||
|
aTop nextLoop
|
||||||
|
code_032b: ret
|
||||||
|
|
||||||
|
SmoothLooper::dispose:
|
||||||
|
pToa oldMover
|
||||||
|
bnt code_0337
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_0337: pToa newMover
|
||||||
|
bnt code_0342
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_0342: pToa oldCycler
|
||||||
|
bnt code_034d
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
code_034d: ldi $0
|
||||||
|
aTop oldCycler
|
||||||
|
aTop newMover
|
||||||
|
aTop oldMover
|
||||||
|
aTop inProgress
|
||||||
|
pushi $e ; 14, view
|
||||||
|
push1
|
||||||
|
pTos vNormal
|
||||||
|
pushi $47 ; 71, 'G', looper
|
||||||
|
push1
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $c
|
||||||
|
bnot
|
||||||
|
push2
|
||||||
|
pTos client
|
||||||
|
pushi $43 ; 67, 'C', heading
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
callk kernel_95, $4
|
||||||
|
bnot
|
||||||
|
pushi $95 ; 149, dispose
|
||||||
|
push0
|
||||||
|
super Code, $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
@ -0,0 +1,104 @@
|
||||||
|
Osc::init:
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $2
|
||||||
|
ge?
|
||||||
|
bnt code_004b
|
||||||
|
lap param[$2]
|
||||||
|
aTop howManyCycles
|
||||||
|
code_004b: lsp param[$0]
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
ge?
|
||||||
|
bnt code_0067
|
||||||
|
lap param[$4]
|
||||||
|
aTop startCel
|
||||||
|
lap param[$5]
|
||||||
|
aTop endCel
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $6 ; maxScale
|
||||||
|
eq?
|
||||||
|
bnt code_0081
|
||||||
|
lap param[$6]
|
||||||
|
aTop caller
|
||||||
|
jmp code_0081
|
||||||
|
|
||||||
|
code_0067: ldi $0
|
||||||
|
aTop startCel
|
||||||
|
pushi $161 ; 353, lastCel
|
||||||
|
push0
|
||||||
|
lap param[$1]
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
aTop endCel
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $3 ; z
|
||||||
|
eq?
|
||||||
|
bnt code_0081
|
||||||
|
lap param[$3]
|
||||||
|
aTop caller
|
||||||
|
code_0081: pushi $94 ; 148, init
|
||||||
|
push1
|
||||||
|
lsp param[$1]
|
||||||
|
super Cycle, $6
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
Osc::doit:
|
||||||
|
link $1
|
||||||
|
pushi $15f ; 351, nextCel
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
sat temp[$0]
|
||||||
|
push
|
||||||
|
pToa endCel
|
||||||
|
gt?
|
||||||
|
bt code_00a2
|
||||||
|
lst temp[$0]
|
||||||
|
pToa startCel
|
||||||
|
lt?
|
||||||
|
code_00a2: bnt code_00b2
|
||||||
|
pToa cycleDir
|
||||||
|
neg
|
||||||
|
aTop cycleDir
|
||||||
|
pushi $160 ; 352, cycleDone
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
jmp code_00bc
|
||||||
|
|
||||||
|
code_00b2: pushi $10 ; 16, cel
|
||||||
|
push1
|
||||||
|
lst temp[$0]
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
code_00bc: ret
|
||||||
|
|
||||||
|
Osc::cycleDone:
|
||||||
|
pToa howManyCycles
|
||||||
|
bnt code_00dc
|
||||||
|
pushi $10 ; 16, cel
|
||||||
|
push1
|
||||||
|
pushi $15f ; 351, nextCel
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pToa client
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
pTos howManyCycles
|
||||||
|
ldi $0
|
||||||
|
gt?
|
||||||
|
bnt code_00e7
|
||||||
|
dpToa howManyCycles
|
||||||
|
jmp code_00e7
|
||||||
|
|
||||||
|
code_00dc: ldi $1
|
||||||
|
aTop completed
|
||||||
|
pushi $159 ; 345, motionCue
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_00e7: ret
|
||||||
|
|
||||||
|
|
@ -0,0 +1,163 @@
|
||||||
|
MCyc::init:
|
||||||
|
link $2
|
||||||
|
lap param[$1]
|
||||||
|
aTop client
|
||||||
|
lap param[$2]
|
||||||
|
aTop points
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $2
|
||||||
|
gt?
|
||||||
|
bnt code_0064
|
||||||
|
lap param[$3]
|
||||||
|
aTop caller
|
||||||
|
lsp param[$0]
|
||||||
|
ldi $3 ; z
|
||||||
|
gt?
|
||||||
|
bnt code_0064
|
||||||
|
lap param[$4]
|
||||||
|
aTop cycleDir
|
||||||
|
code_0064: ldi $0
|
||||||
|
aTop size
|
||||||
|
code_0068: pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
pTos size
|
||||||
|
pToa points
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
ldi $8000 ; -32768
|
||||||
|
ne?
|
||||||
|
bnt code_007d
|
||||||
|
ipToa size
|
||||||
|
jmp code_0068
|
||||||
|
|
||||||
|
code_007d: pTos cycleDir
|
||||||
|
ldi $1
|
||||||
|
eq?
|
||||||
|
bnt code_008a
|
||||||
|
ldi $0
|
||||||
|
aTop value
|
||||||
|
jmp code_0091
|
||||||
|
|
||||||
|
code_008a: pTos size
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
sub
|
||||||
|
aTop value
|
||||||
|
code_0091: pushi $94 ; 148, init
|
||||||
|
push0
|
||||||
|
super Cycle, $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
|
MCyc::doit:
|
||||||
|
push1
|
||||||
|
lsg global[$40]
|
||||||
|
pToa cycleCnt
|
||||||
|
sub
|
||||||
|
push
|
||||||
|
callk kernel_61, $2
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $14a ; 330, cycleSpeed
|
||||||
|
push0
|
||||||
|
pToa client
|
||||||
|
send $4
|
||||||
|
bnot
|
||||||
|
ge?
|
||||||
|
bnt code_00bd
|
||||||
|
lag global[$40]
|
||||||
|
aTop cycleCnt
|
||||||
|
pushi $15f ; 351, nextCel
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_00bd: ret
|
||||||
|
|
||||||
|
MCyc::nextCel:
|
||||||
|
pushi $f ; 15, loop
|
||||||
|
push1
|
||||||
|
pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
pTos value
|
||||||
|
pToa points
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pushi $10 ; 16, cel
|
||||||
|
push1
|
||||||
|
pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
pTos value
|
||||||
|
ldi $1
|
||||||
|
add
|
||||||
|
push
|
||||||
|
pToa points
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
push1
|
||||||
|
push1
|
||||||
|
pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
pTos value
|
||||||
|
ldi $2
|
||||||
|
add
|
||||||
|
push
|
||||||
|
pToa points
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
push2
|
||||||
|
push1
|
||||||
|
pushi $4b ; 75, 'K', at
|
||||||
|
push1
|
||||||
|
pTos value
|
||||||
|
ldi $3 ; z
|
||||||
|
add
|
||||||
|
push
|
||||||
|
pToa points
|
||||||
|
send $6
|
||||||
|
bnot
|
||||||
|
push
|
||||||
|
pToa client
|
||||||
|
send $18
|
||||||
|
bnot
|
||||||
|
pTos value
|
||||||
|
pTos cycleDir
|
||||||
|
ldi $4 ; scaleX
|
||||||
|
mul
|
||||||
|
add
|
||||||
|
aTop value
|
||||||
|
pTos cycleDir
|
||||||
|
ldi $1
|
||||||
|
eq?
|
||||||
|
bnt code_011b
|
||||||
|
pTos value
|
||||||
|
pToa size
|
||||||
|
ge?
|
||||||
|
code_011b: bt code_0129
|
||||||
|
pTos cycleDir
|
||||||
|
ldi $ff ; 255, asInteger
|
||||||
|
eq?
|
||||||
|
bnt code_0132
|
||||||
|
pTos value
|
||||||
|
ldi $0
|
||||||
|
lt?
|
||||||
|
code_0129: bnt code_0132
|
||||||
|
pushi $160 ; 352, cycleDone
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
code_0132: ret
|
||||||
|
|
||||||
|
MCyc::cycleDone:
|
||||||
|
ldi $1
|
||||||
|
aTop completed
|
||||||
|
ldi $0
|
||||||
|
aTop value
|
||||||
|
pushi $159 ; 345, motionCue
|
||||||
|
push0
|
||||||
|
self $4
|
||||||
|
bnot
|
||||||
|
ret
|
||||||
|
|
||||||
Loading…
Reference in New Issue