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

