ActiveCursorList::addToFront:
		pushi	$aa		; 170, addToFront
		push0
		&rest	$1
		super	Set, $4
		bnot
		pushi	$45		; 69, 'E', doit
		push0
		self	$4
		bnot
		ret

ActiveCursorList::delete:
		pushi	$58		; 88, 'X', delete
		push0
		&rest	$1
		super	Set, $4
		bnot
		pushi	$45		; 69, 'E', doit
		push0
		self	$4
		bnot
		ret

ActiveCursorList::doit:
		lsg	global[$b]
		pushi	$4b		; 75, 'K', at
		push1
		push0
		self	$6
		bnot
		ne?
		bnt	code_00aa
		pushi	$57		; 87, 'W', draw
		push0
		pushi	$4b		; 75, 'K', at
		push1
		push0
		self	$6
		bnot
		sag	global[$b]
		send	$4
		bnot
code_00aa:	ret

Cursor::init:
		lap	param[$0]
		bnt	code_00b5
		lap	param[$1]
		aTop	client
		jmp	code_00ba

code_00b5:	lofsa	ActiveCursorList
		aTop	client
code_00ba:	ret

Cursor::dispose:
		pushi	$1b5		; 437, disable
		push0
		self	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		super	Rect, $4
		bnot
		ret

Cursor::draw:
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_85, $6
		bnot
		ret

Cursor::posn:
		push2
		lsp	param[$1]
		lsp	param[$2]
		callk	kernel_85, $4
		bnot
		ret

Cursor::show:
		push1
		lap	param[$0]
		bnt	code_00eb
		lap	param[$1]
		jmp	code_00ed

code_00eb:	ldi	$1
code_00ed:	push
		callk	kernel_85, $2
		bnot
		ret

Cursor::setCursor:
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0108
		lap	param[$1]
		aTop	view
		lap	param[$2]
		aTop	loop
		lap	param[$3]
		aTop	cel
		jmp	code_0126

code_0108:	pushi	$e		; 14, view
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	view
		pushi	$f		; 15, loop
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	loop
		pushi	$10		; 16, cel
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	cel
code_0126:	pTos	loop
		ldi	$0
		lt?
		bnt	code_0138
		push2
		lofsa	string_006b	; "setCursor called with loop of %d"
		push
		pTos	loop
		callk	kernel_132, $4
		bnot
code_0138:	ret

Cursor::enable:
		pToa	client
		bnt	code_0145
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		send	$6
		bnot
code_0145:	ret

Cursor::disable:
		pToa	client
		bnt	code_015f
		pushi	$5a		; 90, 'Z', size
		push0
		send	$4
		bnot
		push
		ldi	$1
		gt?
		bnt	code_015f
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		pToa	client
		send	$6
		bnot
code_015f:	ret