ClutOverride::new:
		push1
		pushSelf
		callk	kernel_10, $2
		bnot
		ret

ClutOverride::init:
		link	$1
		pToa	data
		not
		bnt	code_00a3
		pushi	$d8		; 216, callKernel
		pushi	$3		; z
		push0
		pushi	$100		; 256, strMax
		pTos	type
		self	$a
		bnot
		aTop	data
code_00a3:	ldi	$0
		sat	temp[$0]
code_00a7:	lst	temp[$0]
		ldi	$100		; 256, strMax
		lt?
		bnt	code_00bd
		pushi	$61c		; 1564, selfAt
		push2
		lst	temp[$0]
		dup
		self	$8
		bnot
		+at	temp[$0]
		jmp	code_00a7

code_00bd:	lap	param[$1]
		aTop	pClient
		pushi	$17a		; 378, clut
		push0
		send	$4
		bnot
		aTop	pClut
		pushi	$17a		; 378, clut
		push1
		pushSelf
		lap	param[$1]
		send	$6
		bnot
		ret

ClutOverride::dispose:
		pToa	pClient
		bnt	code_00e2
		pushi	$17a		; 378, clut
		push1
		pTos	pClut
		send	$6
		bnot
code_00e2:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Clut, $4
		bnot
		ret

ClutOverride::at:
		pToa	pClut
		bnt	code_00fa
		pushi	$4b		; 75, 'K', at
		push0
		&rest	$1
		send	$4
		bnot
		ret

code_00fa:	ret

ClutOverride::selfAt:
		pushi	$4b		; 75, 'K', at
		push0
		&rest	$1
		super	Clut, $4
		bnot
		ret

InvisibleClut::init:
		link	$1
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Clut, $4
		bnot
		ldi	$0
		sat	temp[$0]
code_0115:	lat	temp[$0]
		lsli	local[$0]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_013a
		pushi	$4b		; 75, 'K', at
		pushi	$5		; scaleY
		lat	temp[$0]
		lsli	local[$0]
		pushi	$f0		; 240, drawSelected
		pushi	$f1		; 241, scale
		pushi	$f2		; 242, pCast
		pushi	$f3		; 243, nextEvent
		self	$e
		bnot
		+at	temp[$0]
		jmp	code_0115

code_013a:	pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		pushi	$f		; 15, loop
		pushi	$f0		; 240, drawSelected
		pushi	$f1		; 241, scale
		self	$a
		bnot
		pushi	$4b		; 75, 'K', at
		push2
		pushi	$18		; 24, lsRight
		pushi	$f0		; 240, drawSelected
		self	$8
		bnot
		pushi	$4b		; 75, 'K', at
		pushi	$5		; scaleY
		pushi	$68		; 104, 'h', restart
		pushi	$f3		; 243, nextEvent
		pushi	$f2		; 242, pCast
		pushi	$f1		; 241, scale
		pushi	$f0		; 240, drawSelected
		self	$e
		bnot
		ret

FrozenClut::init:
		link	$1
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Clut, $4
		bnot
		ldi	$0
		sat	temp[$0]
code_017c:	lat	temp[$0]
		lsli	local[$0]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_019d
		pushi	$4b		; 75, 'K', at
		pushi	$5		; scaleY
		lat	temp[$0]
		lsli	local[$0]
		pushi	$35		; 53, '5', nodePtr
		pushi	$36		; 54, '6', client
		pushi	$37		; 55, '7', dx
		pushi	$38		; 56, '8', dy
		self	$e
		bnot
		+at	temp[$0]
		jmp	code_017c

code_019d:	pushi	$4b		; 75, 'K', at
		pushi	$5		; scaleY
		pushi	$68		; 104, 'h', restart
		pushi	$38		; 56, '8', dy
		pushi	$37		; 55, '7', dx
		pushi	$36		; 54, '6', client
		pushi	$35		; 53, '5', nodePtr
		self	$e
		bnot
		ret

