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

