126 lines
1.7 KiB
Plaintext
126 lines
1.7 KiB
Plaintext
CT::init:
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lsp param[$1]
|
|
super Cycle, $6
|
|
bnot
|
|
lap param[$3]
|
|
aTop cycleDir
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_00ad
|
|
lap param[$4]
|
|
aTop caller
|
|
code_00ad: lsp param[$2]
|
|
pToa clientLastCel
|
|
gt?
|
|
bnt code_00b8
|
|
pToa clientLastCel
|
|
jmp code_00ba
|
|
|
|
code_00b8: lap param[$2]
|
|
code_00ba: aTop endCel
|
|
ret
|
|
|
|
CT::doit:
|
|
link $2
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
pushi $15f ; 351, nextCel
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$0]
|
|
ne?
|
|
bnt code_0107
|
|
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
|
|
lst temp[$1]
|
|
pToa endCel
|
|
eq?
|
|
bnt code_00fd
|
|
pushi $160 ; 352, cycleDone
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0107
|
|
|
|
code_00fd: pushi $10 ; 16, cel
|
|
push1
|
|
lst temp[$0]
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_0107: ret
|
|
|
|
CT::cycleDone:
|
|
ldi $1
|
|
aTop completed
|
|
pushi $159 ; 345, motionCue
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
End::init:
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
pushi $161 ; 353, lastCel
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push1
|
|
lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_0132
|
|
lap param[$2]
|
|
jmp code_0134
|
|
|
|
code_0132: ldi $0
|
|
code_0134: push
|
|
super CT, $c
|
|
bnot
|
|
ret
|
|
|
|
Beg::init:
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
push0
|
|
pushi $ff ; 255, asInteger
|
|
lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_0150
|
|
lap param[$2]
|
|
jmp code_0152
|
|
|
|
code_0150: ldi $0
|
|
code_0152: push
|
|
super CT, $c
|
|
bnot
|
|
ret
|
|
|