156 lines
2.0 KiB
Plaintext
156 lines
2.0 KiB
Plaintext
Cycle::init:
|
|
lap param[$0]
|
|
bnt code_00a2
|
|
lap param[$1]
|
|
aTop client
|
|
code_00a2: lag global[$40]
|
|
aTop cycleCnt
|
|
ldi $0
|
|
aTop completed
|
|
pushi $161 ; 353, lastCel
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop clientLastCel
|
|
ret
|
|
|
|
Cycle::nextCel:
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa cycleDir
|
|
add
|
|
ret
|
|
|
|
Cycle::cycleDone:
|
|
ret
|
|
|
|
Cycle::motionCue:
|
|
pushi $15b ; 347, cycler
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Cycle::dispose:
|
|
pToa caller
|
|
bnt code_0100
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $cb ; 203, cuee
|
|
push1
|
|
push
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Cue
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
push
|
|
pushi $ca ; 202, pCuees
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_0100: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Fwd::doit:
|
|
link $1
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $15f ; 351, nextCel
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$0]
|
|
ne?
|
|
bnt code_015d
|
|
pTos clientLastCel
|
|
ldi $0
|
|
eq?
|
|
bnt code_012c
|
|
ret
|
|
|
|
jmp code_0146
|
|
|
|
code_012c: lst temp[$0]
|
|
pToa clientLastCel
|
|
gt?
|
|
bnt code_013c
|
|
pushi $160 ; 352, cycleDone
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0146
|
|
|
|
code_013c: pushi $10 ; 16, cel
|
|
push1
|
|
lst temp[$0]
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_0146: 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
|
|
code_015d: ret
|
|
|
|
Fwd::cycleDone:
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
Walk::doit:
|
|
link $1
|
|
pushi $162 ; 354, isStopped
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_017d
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
super Fwd, $4
|
|
bnot
|
|
code_017d: ret
|
|
|