616 lines
8.7 KiB
Plaintext
616 lines
8.7 KiB
Plaintext
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
|
|
|