Orbit::init:
		link	$4
		lsp	param[$0]
		ldi	$1
		ge?
		bnt	code_00b2
		lap	param[$1]
		aTop	client
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_00b2
		lap	param[$2]
		aTop	centerObj
		lsp	param[$0]
		ldi	$3		; z
		ge?
		bnt	code_00b2
		lap	param[$3]
		aTop	radius
		lsp	param[$0]
		ldi	$4		; scaleX
		ge?
		bnt	code_00b2
		lap	param[$4]
		aTop	xTilt
		lsp	param[$0]
		ldi	$5		; scaleY
		ge?
		bnt	code_00b2
		lap	param[$5]
		aTop	yTilt
		lsp	param[$0]
		ldi	$6		; maxScale
		ge?
		bnt	code_00b2
		lap	param[$6]
		aTop	angleStep
		lsp	param[$0]
		ldi	$7		; priority
		ge?
		bnt	code_00b2
		lap	param[$7]
		aTop	winding
		lsp	param[$0]
		ldi	$8		; fixPriority
		ge?
		bnt	code_00b2
		lap	param[$8]
		aTop	curAngle
code_00b2:	pToa	centerObj
		bnt	code_00c8
		push1
		push0
		send	$4
		bnot
		sat	temp[$0]
		push2
		push0
		pToa	centerObj
		send	$4
		bnot
		sat	temp[$1]
		jmp	code_00d2

code_00c8:	ldi	$140		; 320, pHandle
		sat	temp[$0]
		ldi	$f0		; 240, drawSelected
		sat	temp[$1]
code_00d2:	push2
		pTos	curAngle
		pTos	radius
		callk	kernel_66, $4
		bnot
		sat	temp[$2]
		push2
		pTos	yTilt
		lag	global[$3f]
		add
		push
		push2
		pTos	curAngle
		pTos	radius
		callk	kernel_67, $4
		bnot
		push
		callk	kernel_67, $4
		bnot
		sat	temp[$3]
		pToa	xTilt
		bnt	code_010f
		push2
		push
		lst	temp[$2]
		callk	kernel_67, $4
		bnot
		sat	temp[$2]
		lst	temp[$3]
		push2
		pTos	xTilt
		push
		callk	kernel_66, $4
		bnot
		add
		sat	temp[$3]
code_010f:	lst	temp[$0]
		lat	temp[$2]
		add
		aTop	x
		lst	temp[$1]
		lat	temp[$3]
		sub
		aTop	y
		push2
		pTos	curAngle
		pTos	winding
		pToa	angleStep
		mul
		add
		push
		pushi	$168		; 360, pY1
		calle	export60025_1, $4
		bnot
		aTop	curAngle
		pushi	$94		; 148, init
		pushi	$3		; z
		pTos	client
		pTos	x
		pTos	y
		super	MoveTo, $a
		bnot
		ret

Orbit::moveDone:
		pushi	$94		; 148, init
		push0
		self	$4
		bnot
		ret

