BCycle::doit:
		pushi	$14a		; 330, cycleSpeed
		push1
		pTos	pCycleSpeed
		pToa	pSelf
		send	$6
		bnot
		pTos	pCycleType
		dup
		ldi	$0
		eq?
		bnt	code_0051
		pushi	$105		; 261, setCycle
		push1
		class	Fwd
		push
		pToa	pSelf
		send	$6
		bnot
		jmp	code_008d

code_0051:	dup
		ldi	$1
		eq?
		bnt	code_0065
		pushi	$105		; 261, setCycle
		push1
		class	Rev
		push
		pToa	pSelf
		send	$6
		bnot
		jmp	code_008d

code_0065:	dup
		ldi	$2
		eq?
		bnt	code_007b
		pushi	$105		; 261, setCycle
		push2
		class	Osc
		push
		pushi	$a		; 10, inTop
		pToa	pSelf
		send	$8
		bnot
		jmp	code_008d

code_007b:	dup
		ldi	$3		; z
		eq?
		bnt	code_008d
		pushi	$105		; 261, setCycle
		push1
		class	RandCycle
		push
		pToa	pSelf
		send	$6
		bnot
code_008d:	toss
		ret

