MoveFwd::init:
		lap	param[$0]
		bnt	code_00a0
		pushi	$94		; 148, init
		pushi	$4		; scaleX
		lsp	param[$1]
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		pushi	$43		; 67, 'C', heading
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lsp	param[$2]
		callk	kernel_66, $4
		bnot
		add
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		pushi	$43		; 67, 'C', heading
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lsp	param[$2]
		callk	kernel_67, $4
		bnot
		sub
		push
		lsp	param[$0]
		ldi	$3		; z
		ge?
		bnt	code_0099
		lap	param[$3]
code_0099:	push
		super	PolyPath, $c
		bnot
		jmp	code_00a8

code_00a0:	pushi	$94		; 148, init
		push0
		super	PolyPath, $4
		bnot
code_00a8:	ret

