Path::init:
		link	$2
		lap	param[$1]
		aTop	client
		push1
		push0
		pToa	client
		send	$4
		bnot
		aTop	x
		push2
		push0
		pToa	client
		send	$4
		bnot
		aTop	y
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_0079
		ldi	$1
		lapi	param[$1]
		aTop	points
code_0079:	lsp	param[$0]
		ldi	$3		; z
		ge?
		bnt	code_0086
		ldi	$2
		lapi	param[$1]
		aTop	caller
code_0086:	pushi	$64		; 100, 'd', moveDone
		push0
		self	$4
		bnot
		ret

Path::dispose:
		pToa	points
		bnt	code_009c
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	points
code_009c:	pushi	$95		; 149, dispose
		push0
		super	MoveTo, $4
		bnot
		ret

Path::moveDone:
		pushi	$290		; 656, atEnd
		push0
		self	$4
		bnot
		bnt	code_00b7
		pushi	$64		; 100, 'd', moveDone
		push0
		super	MoveTo, $4
		bnot
		jmp	code_00dd

code_00b7:	pushi	$b7		; 183, get
		push0
		pToa	points
		send	$4
		bnot
		aTop	x
		pushi	$b7		; 183, get
		push0
		pToa	points
		send	$4
		bnot
		aTop	y
		pushi	$94		; 148, init
		pushi	$3		; z
		pTos	client
		pTos	x
		pTos	y
		super	MoveTo, $a
		bnot
code_00dd:	ret

Path::atEnd:
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	points
		send	$4
		bnot
		push
		ldi	$0
		eq?
		ret

