BHead::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	BWearable, $4
		bnot
		ldi	$0
		lsli	local[$0]
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_00e7
		push0
		call	code_1008, $0
		bnot
code_00e7:	pushi	$8d		; 141, new
		push1
		pushi	$4		; scaleX
		class	IntArray
		send	$6
		bnot
		aTop	pBitmapArray
		pushi	$8d		; 141, new
		push1
		pushi	$8		; fixPriority
		class	IntArray
		send	$6
		bnot
		aTop	pOriginPoints
		pushi	$45b		; 1115, calcViews
		push0
		self	$4
		bnot
		pushi	$4ee		; 1262, setEyeColor
		push1
		pTos	pEyeColor
		pushi	$4ef		; 1263, setSkinColor
		push1
		pTos	pSkinColor
		pushi	$4ed		; 1261, setHairColor
		push1
		pTos	pHairColor
		self	$12
		bnot
		ret

BHead::dispose:
		link	$2
		ldi	$0
		sat	temp[$0]
code_0124:	lst	temp[$0]
		ldi	$4		; scaleX
		lt?
		bnt	code_0143
		pushi	$9f		; 159, add
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	pBitmapArray
		send	$6
		bnot
		push
		lag	global[$66]
		send	$6
		bnot
		+at	temp[$0]
		jmp	code_0124

code_0143:	pushi	$95		; 149, dispose
		push0
		pToa	pBitmapArray
		send	$4
		bnot
		ldi	$0
		aTop	pBitmapArray
		pushi	$95		; 149, dispose
		push0
		pToa	pOriginPoints
		send	$4
		bnot
		ldi	$0
		aTop	pOriginPoints
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$1]
		pushi	$3ea		; 1002, pClutStart
		push0
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_017d
		push0
		calle	export40005_2, $0
		bnot
code_017d:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	BWearable, $4
		bnot
		ret

BHead::calcViews:
		pushi	$30d		; 781, pHeadView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		push1
		pTos	pHeadNum
		self	$8
		bnot
		push
		pushi	$30e		; 782, pHairView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		push2
		pTos	pHairNum
		self	$8
		bnot
		push
		pushi	$30f		; 783, pBrowView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		pushi	$3		; z
		pTos	pBrowNum
		self	$8
		bnot
		push
		pushi	$310		; 784, pEyeView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		pushi	$4		; scaleX
		pTos	pEyeNum
		self	$8
		bnot
		push
		pushi	$311		; 785, pNoseView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		pushi	$5		; scaleY
		pTos	pNoseNum
		self	$8
		bnot
		push
		pushi	$312		; 786, pEarView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		pushi	$6		; maxScale
		pTos	pEarNum
		self	$8
		bnot
		push
		pushi	$313		; 787, pMouthView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		pushi	$7		; priority
		pTos	pMouthNum
		self	$8
		bnot
		push
		pushi	$314		; 788, pFaceHairView
		push1
		pushi	$4ec		; 1260, calcView
		push2
		pushi	$8		; fixPriority
		pTos	pFaceHairNum
		self	$8
		bnot
		push
		self	$30
		bnot
		pushi	$4de		; 1246, updateBitmaps
		push0
		self	$4
		bnot
		ret

BHead::calcView:
		link	$3
		lsp	param[$1]
		ldi	$8		; fixPriority
		gt?
		bnt	code_021d
		ldi	$ff		; 255, asInteger
		ret

code_021d:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$46		; 70, 'F', isBlocked
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0347
		pTos	pRace
		dup
		ldi	$1
		eq?
		bnt	code_028c
		pTos	pSex
		dup
		ldi	$1
		eq?
		bnt	code_0269
		lsp	param[$1]
		dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0250
		ldi	$7		; priority
		sap	param[$2]
		jmp	code_0266

code_0250:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_025c
		ldi	$1
		sap	param[$2]
		jmp	code_0266

code_025c:	dup
		ldi	$7		; priority
		eq?
		bnt	code_0266
		ldi	$6		; maxScale
		sap	param[$2]
code_0266:	toss
		jmp	code_0288

code_0269:	dup
		ldi	$2
		eq?
		bnt	code_0288
		lsp	param[$1]
		dup
		ldi	$5		; scaleY
		eq?
		bnt	code_027d
		ldi	$11		; 17, bitmap
		sap	param[$2]
		jmp	code_0287

code_027d:	dup
		ldi	$7		; priority
		eq?
		bnt	code_0287
		ldi	$3		; z
		sap	param[$2]
code_0287:	toss
code_0288:	toss
		jmp	code_0346

code_028c:	dup
		ldi	$3		; z
		eq?
		bnt	code_02d8
		pTos	pSex
		dup
		ldi	$1
		eq?
		bnt	code_02b5
		lsp	param[$1]
		dup
		ldi	$4		; scaleX
		eq?
		bnt	code_02a8
		ldi	$9		; inLeft
		sap	param[$2]
		jmp	code_02b2

code_02a8:	dup
		ldi	$7		; priority
		eq?
		bnt	code_02b2
		ldi	$a		; 10, inTop
		sap	param[$2]
code_02b2:	toss
		jmp	code_02d4

code_02b5:	dup
		ldi	$2
		eq?
		bnt	code_02d4
		lsp	param[$1]
		dup
		ldi	$4		; scaleX
		eq?
		bnt	code_02c9
		ldi	$4		; scaleX
		sap	param[$2]
		jmp	code_02d3

code_02c9:	dup
		ldi	$7		; priority
		eq?
		bnt	code_02d3
		ldi	$5		; scaleY
		sap	param[$2]
code_02d3:	toss
code_02d4:	toss
		jmp	code_0346

code_02d8:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0346
		pTos	pSex
		dup
		ldi	$1
		eq?
		bnt	code_031a
		lsp	param[$1]
		dup
		ldi	$2
		eq?
		bnt	code_02f5
		ldi	$8		; fixPriority
		sap	param[$2]
		jmp	code_0317

code_02f5:	dup
		ldi	$1
		eq?
		bnt	code_0301
		ldi	$2
		sap	param[$2]
		jmp	code_0317

code_0301:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_030d
		ldi	$0
		sap	param[$2]
		jmp	code_0317

code_030d:	dup
		ldi	$7		; priority
		eq?
		bnt	code_0317
		ldi	$4		; scaleX
		sap	param[$2]
code_0317:	toss
		jmp	code_0345

code_031a:	dup
		ldi	$2
		eq?
		bnt	code_0345
		lsp	param[$1]
		dup
		ldi	$1
		eq?
		bnt	code_032e
		ldi	$2
		sap	param[$2]
		jmp	code_0344

code_032e:	dup
		ldi	$7		; priority
		eq?
		bnt	code_033a
		ldi	$0
		sap	param[$2]
		jmp	code_0344

code_033a:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0344
		ldi	$4		; scaleX
		sap	param[$2]
code_0344:	toss
code_0345:	toss
code_0346:	toss
code_0347:	lsp	param[$1]
		ldi	$1
		sub
		push
		ldi	$4		; scaleX
		mul
		push
		pTos	pRace
		ldi	$1
		sub
		add
		push
		pTos	pSex
		ldi	$1
		sub
		push
		ldi	$20		; 32, ' ', name
		mul
		add
		sat	temp[$0]
		lali	local[$0]
		sat	temp[$0]
		push
		ldi	$1
		add
		lali	local[$40]
		sat	temp[$2]
		bnt	code_038d
		push2
		lsp	param[$2]
		push
		calle	export60025_1, $4
		bnot
		sap	param[$2]
		lat	temp[$0]
		lsli	local[$40]
		lsp	param[$2]
		ldi	$2
		mul
		add
		sat	temp[$1]
		jmp	code_0391

code_038d:	ldi	$ff		; 255, asInteger
		sat	temp[$1]
code_0391:	lat	temp[$1]
		ret

BHead::updateDisplay:
		link	$7
		pushi	$3ec		; 1004, pAction
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$0]
		pushi	$f		; 15, loop
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		push
		ldi	$3		; z
		gt?
		bnt	code_03b2
		ret

code_03b2:	lst	temp[$0]
		ldi	$1
		eq?
		bnt	code_0416
		lst	temp[$1]
		ldi	$2
		mul
		sat	temp[$6]
		pushi	$4b		; 75, 'K', at
		push1
		push
		pToa	pOriginPoints
		send	$6
		bnot
		sat	temp[$4]
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$6]
		ldi	$1
		add
		push
		pToa	pOriginPoints
		send	$6
		bnot
		sat	temp[$5]
		lsp	param[$1]
		pToa	pSelf
		eq?
		bnt	code_03f9
		pushi	$11		; 17, bitmap
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$1]
		pToa	pBitmapArray
		send	$6
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
		jmp	code_0451

code_03f9:	pushi	$3b5		; 949, addLinkedBitmap
		pushi	$4		; scaleX
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$1]
		pToa	pBitmapArray
		send	$6
		bnot
		push
		push1
		lst	temp[$4]
		lst	temp[$5]
		lap	param[$1]
		send	$c
		bnot
		jmp	code_0451

code_0416:	pushi	$466		; 1126, generateBitmap
		push2
		lst	temp[$0]
		lst	temp[$1]
		self	$8
		bnot
		sat	temp[$3]
		lsp	param[$1]
		pToa	pSelf
		eq?
		bnt	code_0436
		pushi	$11		; 17, bitmap
		push1
		lst	temp[$3]
		pToa	pSelf
		send	$6
		bnot
		jmp	code_0451

code_0436:	pushi	$3b5		; 949, addLinkedBitmap
		pushi	$3		; z
		lst	temp[$3]
		push1
		pTos	pSelf
		lap	param[$1]
		send	$a
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$3]
		lag	global[$66]
		send	$6
		bnot
code_0451:	ret

BHead::updateBitmaps:
		link	$2
		pushi	$4ef		; 1263, setSkinColor
		push1
		pTos	pSkinColor
		pushi	$4ed		; 1261, setHairColor
		push1
		pTos	pHairColor
		pushi	$4ee		; 1262, setEyeColor
		push1
		pTos	pEyeColor
		self	$12
		bnot
		ldi	$0
		sat	temp[$0]
code_046d:	lst	temp[$0]
		ldi	$4		; scaleX
		lt?
		bnt	code_049b
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	pBitmapArray
		send	$6
		bnot
		sat	temp[$1]
		bnt	code_0497
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$66]
		send	$6
		bnot
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$0]
		push0
		pToa	pBitmapArray
		send	$8
		bnot
code_0497:	+at	temp[$0]
		jmp	code_046d

code_049b:	ldi	$0
		sat	temp[$0]
code_049f:	lst	temp[$0]
		ldi	$4		; scaleX
		lt?
		bnt	code_04bf
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$0]
		pushi	$466		; 1126, generateBitmap
		push2
		push1
		lst	temp[$0]
		self	$8
		bnot
		push
		pToa	pBitmapArray
		send	$8
		bnot
		+at	temp[$0]
		jmp	code_049f

code_04bf:	ret

BHead::generateBitmap:
		link	$6
		pToa	pHeadView
		sat	temp[$2]
		pTos	pHairNum
		ldi	$1f		; 31, brBottom
		eq?
		bnt	code_0580
		pToa	pHeadNum
		lsli	local[$154]
		ldi	$1
		sub
		sat	temp[$2]
		lsp	param[$1]
		ldi	$0
		eq?
		bnt	code_04e7
		ldi	$1
		sap	param[$1]
		ldi	$2
		sap	param[$2]
code_04e7:	pushi	$3ed		; 1005, pBaseView
		push1
		lst	temp[$2]
		pushi	$e		; 14, view
		push1
		lst	temp[$2]
		lap	param[$1]
		add
		push
		pushi	$f		; 15, loop
		push1
		lsp	param[$2]
		pushi	$3af		; 943, createBitmap
		push0
		pToa	pSelf
		send	$16
		bnot
		pushi	$11		; 17, bitmap
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$0]
		pushi	$11		; 17, bitmap
		push1
		push0
		pToa	pSelf
		send	$6
		bnot
		pushi	$4b		; 75, 'K', at
		push2
		lsp	param[$2]
		ldi	$2
		mul
		push
		pushi	$4		; scaleX
		push0
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		callk	kernel_34, $8
		bnot
		push
		pToa	pOriginPoints
		send	$8
		bnot
		pushi	$4b		; 75, 'K', at
		push2
		lsp	param[$2]
		ldi	$2
		mul
		push
		ldi	$1
		add
		push
		pushi	$4		; scaleX
		push1
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		callk	kernel_34, $8
		bnot
		push
		pToa	pOriginPoints
		send	$8
		bnot
		jmp	code_05d6

code_0580:	pushi	$3ed		; 1005, pBaseView
		push1
		lst	temp[$2]
		pushi	$e		; 14, view
		push1
		lst	temp[$2]
		lap	param[$1]
		add
		push
		pushi	$f		; 15, loop
		push1
		lsp	param[$2]
		pToa	pSelf
		send	$12
		bnot
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$3]
		ldi	$1
		sat	temp[$5]
		pushi	$7		; priority
		pushi	$d		; 13, seenRect
		lsp	param[$1]
		lsp	param[$2]
		push
		pTos	pSelf
		lat	temp[$3]
		eq?
		bnt	code_05bc
		ldi	$ff		; 255, asInteger
		jmp	code_05c5

code_05bc:	pushi	$4d3		; 1235, pHelmetView
		push0
		lat	temp[$3]
		send	$4
		bnot
code_05c5:	push
		pushSelf
		pushi	$71		; 113, 'q', data
		push0
		pToa	pOriginPoints
		send	$4
		bnot
		push
		callk	kernel_35, $e
		bnot
		sat	temp[$0]
code_05d6:	lat	temp[$0]
		ret

BHead::fromPacket:
		link	$1
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		add
		aTop	pRace
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		add
		aTop	pSex
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHeadNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHairNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pBrowNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEyeNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pNoseNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEarNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pMouthNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pFaceHairNum
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pSkinColor
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHairColor
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEyeColor
		pushi	$4f5		; 1269, checkFeatureRanges
		push0
		self	$4
		bnot
		pushi	$4ef		; 1263, setSkinColor
		push1
		pTos	pSkinColor
		pushi	$4ed		; 1261, setHairColor
		push1
		pTos	pHairColor
		pushi	$4ee		; 1262, setEyeColor
		push1
		pTos	pEyeColor
		self	$12
		bnot
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$0]
		bnt	code_06c0
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_06c0
		pushi	$319		; 793, pHead
		push0
		lat	temp[$0]
		send	$4
		bnot
		not
		bnt	code_06c0
		pushi	$4f9		; 1273, setHead
		push1
		pTos	pSelf
		lat	temp[$0]
		send	$6
		bnot
code_06c0:	pushi	$45b		; 1115, calcViews
		push0
		self	$4
		bnot
		ret

BHead::buildPacket:
		pushi	$13a		; 314, putByte
		push1
		pTos	pRace
		ldi	$1
		sub
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pSex
		ldi	$1
		sub
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pHeadNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pHairNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pBrowNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pEyeNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pNoseNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pEarNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pMouthNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pFaceHairNum
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pSkinColor
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pHairColor
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pEyeColor
		lap	param[$1]
		send	$6
		bnot
		ret

BHead::updateAction:
		pushi	$373		; 883, setAction
		push1
		lsp	param[$1]
		ldi	$0
		eq?
		bnt	code_076f
		ldi	$0
		jmp	code_0771

code_076f:	ldi	$1
code_0771:	push
		pToa	pSelf
		send	$6
		bnot
		ret

BHead::setHairColor:
		push2
		lsp	param[$1]
		ldi	$0
		lsli	local[$100]
		calle	export60025_1, $4
		bnot
		sap	param[$1]
		aTop	pHairColor
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$59		; 89, 'Y', printLang
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_07e2
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$3b		; 59, ';', b_i2
		pushi	$58		; 88, 'X', delete
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$62		; 98, 'b', vol
		pushi	$59		; 89, 'Y', printLang
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$62		; 98, 'b', vol
		pushi	$5a		; 90, 'Z', size
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$62		; 98, 'b', vol
		pushi	$5b		; 91, '[', points
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0933

code_07e2:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$58		; 88, 'X', delete
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0839
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$54		; 84, 'T', title
		pushi	$58		; 88, 'X', delete
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$67		; 103, 'g', quitGame
		pushi	$59		; 89, 'Y', printLang
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$67		; 103, 'g', quitGame
		pushi	$5a		; 90, 'Z', size
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$67		; 103, 'g', quitGame
		pushi	$5b		; 91, '[', points
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0933

code_0839:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$5c		; 92, '\', palette
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0871
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$36		; 54, '6', client
		pushi	$58		; 88, 'X', delete
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$65		; 101, 'e', topString
		pushi	$59		; 89, 'Y', printLang
		pushi	$3		; z
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0933

code_0871:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$61		; 97, 'a', frame
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_08c9
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$66		; 102, 'f', flags
		pushi	$58		; 88, 'X', delete
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$67		; 103, 'g', quitGame
		pushi	$59		; 89, 'Y', printLang
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$67		; 103, 'g', quitGame
		pushi	$5a		; 90, 'Z', size
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$67		; 103, 'g', quitGame
		pushi	$5b		; 91, '[', points
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0933

code_08c9:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$62		; 98, 'b', vol
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0920
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$63		; 99, 'c', perform
		pushi	$58		; 88, 'X', delete
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$62		; 98, 'b', vol
		pushi	$59		; 89, 'Y', printLang
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$62		; 98, 'b', vol
		pushi	$5a		; 90, 'Z', size
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$62		; 98, 'b', vol
		pushi	$5b		; 91, '[', points
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0933

code_0920:	pushi	$3ae		; 942, setColor
		push2
		lsp	param[$1]
		ldi	$1
		add
		lsli	local[$100]
		pushi	$58		; 88, 'X', delete
		pToa	pSelf
		send	$8
		bnot
code_0933:	ret

BHead::setEyeColor:
		push2
		lsp	param[$1]
		ldi	$0
		lsli	local[$11d]
		calle	export60025_1, $4
		bnot
		sap	param[$1]
		aTop	pEyeColor
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		push
		ldi	$1
		add
		lsli	local[$11d]
		pushi	$f		; 15, loop
		push2
		pToa	pSelf
		send	$a
		bnot
		ret

BHead::setSkinColor:
		link	$1
		pTos	pRace
		dup
		ldi	$1
		eq?
		bnt	code_097d
		push2
		lsp	param[$1]
		ldi	$0
		lsli	local[$127]
		calle	export60025_1, $4
		bnot
		sap	param[$1]
		aTop	pSkinColor
		jmp	code_09cc

code_097d:	dup
		ldi	$2
		eq?
		bnt	code_0998
		push2
		lsp	param[$1]
		ldi	$0
		lsli	local[$12c]
		calle	export60025_1, $4
		bnot
		sap	param[$1]
		aTop	pSkinColor
		jmp	code_09cc

code_0998:	dup
		ldi	$3		; z
		eq?
		bnt	code_09b3
		push2
		lsp	param[$1]
		ldi	$0
		lsli	local[$133]
		calle	export60025_1, $4
		bnot
		sap	param[$1]
		aTop	pSkinColor
		jmp	code_09cc

code_09b3:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_09cc
		push2
		lsp	param[$1]
		ldi	$0
		lsli	local[$138]
		calle	export60025_1, $4
		bnot
		sap	param[$1]
		aTop	pSkinColor
code_09cc:	toss
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$0]
		pushi	$3ea		; 1002, pClutStart
		push0
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0a0b
		pushi	$3ea		; 1002, pClutStart
		push1
		pushi	$ff		; 255, asInteger
		pToa	pSelf
		send	$6
		bnot
		pushi	$330		; 816, pColor
		push1
		pushi	$330		; 816, pColor
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
		push0
		calle	export40005_1, $0
		bnot
code_0a0b:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$5a		; 90, 'Z', size
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0a63
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$55		; 85, 'U', button
		pushi	$68		; 104, 'h', restart
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$65		; 101, 'e', topString
		pushi	$69		; 105, 'i', hide
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$66		; 102, 'f', flags
		pushi	$6a		; 106, 'j', scaleSignal
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$56		; 86, 'V', icon
		pushi	$6b		; 107, 'k', vanishingX
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0bee

code_0a63:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$5b		; 91, '[', points
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0abb
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$3c		; 60, '<', b_di
		pushi	$68		; 104, 'h', restart
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$65		; 101, 'e', topString
		pushi	$69		; 105, 'i', hide
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$66		; 102, 'f', flags
		pushi	$6a		; 106, 'j', scaleSignal
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$3e		; 62, '>', b_incr
		pushi	$6b		; 107, 'k', vanishingX
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0bee

code_0abb:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$5d		; 93, ']', dataInc
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0b13
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$37		; 55, '7', dx
		pushi	$68		; 104, 'h', restart
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$65		; 101, 'e', topString
		pushi	$69		; 105, 'i', hide
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$66		; 102, 'f', flags
		pushi	$6a		; 106, 'j', scaleSignal
		push1
		pToa	pSelf
		send	$a
		bnot
		pushi	$3ae		; 942, setColor
		pushi	$3		; z
		pushi	$38		; 56, '8', dy
		pushi	$6b		; 107, 'k', vanishingX
		push1
		pToa	pSelf
		send	$a
		bnot
		jmp	code_0bee

code_0b13:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$5e		; 94, '^', handle
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0b37
		pushi	$3ae		; 942, setColor
		push2
		pushi	$53		; 83, 'S', restore
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
		jmp	code_0bee

code_0b37:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$5f		; 95, '_', min
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0b5b
		pushi	$3ae		; 942, setColor
		push2
		pushi	$3f		; 63, '?', xStep
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
		jmp	code_0bee

code_0b5b:	pushi	$35f		; 863, getAffectedState
		push1
		pushi	$60		; 96, '`', sec
		pushi	$3a7		; 935, getBaseOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0b7f
		pushi	$3ae		; 942, setColor
		push2
		pushi	$64		; 100, 'd', moveDone
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
		jmp	code_0bee

code_0b7f:	pTos	pRace
		dup
		ldi	$1
		eq?
		bnt	code_0b9d
		pushi	$3ae		; 942, setColor
		push2
		lsp	param[$1]
		ldi	$1
		add
		lsli	local[$127]
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
		jmp	code_0bed

code_0b9d:	dup
		ldi	$2
		eq?
		bnt	code_0bb9
		pushi	$3ae		; 942, setColor
		push2
		lsp	param[$1]
		ldi	$1
		add
		lsli	local[$12c]
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
		jmp	code_0bed

code_0bb9:	dup
		ldi	$3		; z
		eq?
		bnt	code_0bd4
		pushi	$3ae		; 942, setColor
		push2
		lsp	param[$1]
		ldi	$1
		add
		lsli	local[$133]
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
		jmp	code_0bed

code_0bd4:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0bed
		pushi	$3ae		; 942, setColor
		push2
		lsp	param[$1]
		ldi	$1
		add
		lsli	local[$138]
		pushi	$68		; 104, 'h', restart
		pToa	pSelf
		send	$8
		bnot
code_0bed:	toss
code_0bee:	ret

BHead::nextFeature:
code_0bef:	pushi	$4f2		; 1266, deltaFeatureSelect
		push2
		lsp	param[$1]
		push1
		self	$8
		bnot
		not
		bnt	code_0bfe
		jmp	code_0bef

code_0bfe:	ldi	$0
		ret

BHead::prevFeature:
code_0c01:	pushi	$4f2		; 1266, deltaFeatureSelect
		push2
		lsp	param[$1]
		pushi	$ff		; 255, asInteger
		self	$8
		bnot
		not
		bnt	code_0c11
		jmp	code_0c01

code_0c11:	ldi	$0
		ret

BHead::deltaFeatureSelect:
		link	$4
		lap	param[$1]
		lali	local[$13f]
		sat	temp[$0]
		lsp	param[$1]
		ldi	$8		; fixPriority
		le?
		bnt	code_0c50
		lsp	param[$1]
		ldi	$1
		sub
		push
		ldi	$4		; scaleX
		mul
		push
		pTos	pRace
		ldi	$1
		sub
		add
		push
		pTos	pSex
		ldi	$1
		sub
		push
		ldi	$20		; 32, ' ', name
		mul
		add
		sat	temp[$1]
		lali	local[$0]
		sat	temp[$1]
		push
		ldi	$1
		add
		lali	local[$40]
		sat	temp[$2]
		jmp	code_0cc2

code_0c50:	lsp	param[$1]
		dup
		ldi	$9		; inLeft
		eq?
		bnt	code_0c9a
		pTos	pRace
		dup
		ldi	$1
		eq?
		bnt	code_0c6b
		ldi	$0
		lali	local[$127]
		sat	temp[$2]
		jmp	code_0c96

code_0c6b:	dup
		ldi	$2
		eq?
		bnt	code_0c7a
		ldi	$0
		lali	local[$12c]
		sat	temp[$2]
		jmp	code_0c96

code_0c7a:	dup
		ldi	$3		; z
		eq?
		bnt	code_0c89
		ldi	$0
		lali	local[$133]
		sat	temp[$2]
		jmp	code_0c96

code_0c89:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0c96
		ldi	$0
		lali	local[$138]
		sat	temp[$2]
code_0c96:	toss
		jmp	code_0cc1

code_0c9a:	dup
		ldi	$a		; 10, inTop
		eq?
		bnt	code_0ca6
		ldi	$b		; 11, inRight
		sat	temp[$2]
		jmp	code_0cc1

code_0ca6:	dup
		ldi	$b		; 11, inRight
		eq?
		bnt	code_0cb5
		ldi	$0
		lali	local[$11d]
		sat	temp[$2]
		jmp	code_0cc1

code_0cb5:	push1
		lofsa	string_0334	; "BHead::deltaFeatureSelect (unknown color feature)"
		push
		calle	export60029_0, $2
		bnot
code_0cc1:	toss
code_0cc2:	lat	temp[$2]
		bnt	code_0cf2
		lst	temp[$0]
		push0
		self	$4
		bnot
		sat	temp[$3]
		push
		lap	param[$2]
		add
		sat	temp[$3]
		push2
		push
		lst	temp[$2]
		calle	export60025_1, $4
		bnot
		sat	temp[$3]
		lst	temp[$0]
		push1
		push
		self	$6
		bnot
		pushi	$4f7		; 1271, updateFeature
		push1
		lsp	param[$1]
		self	$6
		bnot
code_0cf2:	pushi	$4f4		; 1268, checkExclusions
		push0
		self	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		eq?
		ret

BHead::checkExclusions:
		link	$1
		ldi	$1
		sat	temp[$0]
code_0d04:	lst	temp[$0]
		ldi	$8		; fixPriority
		le?
		bnt	code_0d1d
		pushi	$4f3		; 1267, checkExclusion
		push1
		lst	temp[$0]
		self	$6
		bnot
		bnt	code_0d19
		lat	temp[$0]
		ret

code_0d19:	+at	temp[$0]
		jmp	code_0d04

code_0d1d:	ldi	$ff		; 255, asInteger
		ret

BHead::checkExclusion:
		link	$b
		lap	param[$1]
		lali	local[$13f]
		sat	temp[$1]
		push
		push0
		self	$4
		bnot
		sat	temp[$a]
		lsp	param[$1]
		ldi	$1
		sub
		push
		ldi	$4		; scaleX
		mul
		push
		pTos	pRace
		ldi	$1
		sub
		add
		push
		pTos	pSex
		ldi	$1
		sub
		push
		ldi	$20		; 32, ' ', name
		mul
		add
		sat	temp[$0]
		lsli	local[$0]
		ldi	$2
		add
		sat	temp[$0]
		lali	local[$40]
		sat	temp[$4]
		+at	temp[$0]
		ldi	$0
		sat	temp[$5]
code_0d5e:	lst	temp[$5]
		ldi	$7		; priority
		lt?
		bnt	code_0e0d
		lst	temp[$5]
		ldi	$1
		add
		lali	local[$13f]
		sat	temp[$1]
		lst	temp[$4]
		push1
		lat	temp[$5]
		shl
		and
		bnt	code_0e08
		lst	temp[$0]
		ldi	$2
		add
		sat	temp[$6]
		ldi	$0
		sat	temp[$7]
code_0d85:	lst	temp[$7]
		ldi	$2
		lt?
		bnt	code_0e04
		lat	temp[$0]
		lali	local[$40]
		sat	temp[$9]
		ldi	$0
		sat	temp[$8]
code_0d97:	lst	temp[$8]
		ldi	$10		; 16, cel
		lt?
		bnt	code_0dfd
		lst	temp[$9]
		push1
		lat	temp[$8]
		shl
		and
		bnt	code_0df9
		ldi	$0
		sat	temp[$2]
code_0dad:	lst	temp[$2]
		ldi	$2
		lt?
		bnt	code_0df9
		ldi	$0
		sat	temp[$3]
code_0db9:	lst	temp[$3]
		ldi	$10		; 16, cel
		lt?
		bnt	code_0df3
		lat	temp[$6]
		lsli	local[$40]
		push1
		lat	temp[$3]
		shl
		and
		bnt	code_0def
		lst	temp[$a]
		lst	temp[$8]
		lst	temp[$7]
		ldi	$5		; scaleY
		shl
		add
		eq?
		bnt	code_0def
		lst	temp[$1]
		push0
		self	$4
		bnot
		push
		lst	temp[$3]
		lst	temp[$2]
		ldi	$5		; scaleY
		shl
		add
		eq?
		bnt	code_0def
		ldi	$1
		ret

code_0def:	+at	temp[$3]
		jmp	code_0db9

code_0df3:	+at	temp[$2]
		+at	temp[$6]
		jmp	code_0dad

code_0df9:	+at	temp[$8]
		jmp	code_0d97

code_0dfd:	+at	temp[$7]
		+at	temp[$0]
		jmp	code_0d85

code_0e04:	lat	temp[$6]
		sat	temp[$0]
code_0e08:	+at	temp[$5]
		jmp	code_0d5e

code_0e0d:	ldi	$0
		ret

BHead::updateFeature:
		link	$2
		lsp	param[$1]
		ldi	$8		; fixPriority
		le?
		bnt	code_0e41
		lap	param[$1]
		lali	local[$14b]
		sat	temp[$0]
		lap	param[$1]
		lali	local[$13f]
		sat	temp[$1]
		lst	temp[$0]
		push1
		pushi	$4ec		; 1260, calcView
		push2
		lsp	param[$1]
		push
		push0
		self	$4
		bnot
		push
		self	$8
		bnot
		push
		self	$6
		bnot
		jmp	code_0e76

code_0e41:	lsp	param[$1]
		dup
		ldi	$9		; inLeft
		eq?
		bnt	code_0e55
		pushi	$4ef		; 1263, setSkinColor
		push1
		pTos	pSkinColor
		self	$6
		bnot
		jmp	code_0e75

code_0e55:	dup
		ldi	$a		; 10, inTop
		eq?
		bnt	code_0e66
		pushi	$4ed		; 1261, setHairColor
		push1
		pTos	pHairColor
		self	$6
		bnot
		jmp	code_0e75

code_0e66:	dup
		ldi	$b		; 11, inRight
		eq?
		bnt	code_0e75
		pushi	$4ee		; 1262, setEyeColor
		push1
		pTos	pEyeColor
		self	$6
		bnot
code_0e75:	toss
code_0e76:	pushi	$4de		; 1246, updateBitmaps
		push0
		self	$4
		bnot
		ret

BHead::setSex:
		lap	param[$1]
		aTop	pSex
		pushi	$4f5		; 1269, checkFeatureRanges
		push0
		pushi	$4f8		; 1272, fixExclusions
		push0
		pushi	$45b		; 1115, calcViews
		push0
		self	$c
		bnot
		ret

BHead::setRace:
		lap	param[$1]
		aTop	pRace
		pushi	$4f5		; 1269, checkFeatureRanges
		push0
		pushi	$4f8		; 1272, fixExclusions
		push0
		pushi	$45b		; 1115, calcViews
		push0
		self	$c
		bnot
		ret

BHead::checkFeatureRanges:
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		push1
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		push2
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		pushi	$3		; z
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		pushi	$4		; scaleX
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		pushi	$5		; scaleY
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		pushi	$6		; maxScale
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		pushi	$7		; priority
		pushi	$4f6		; 1270, checkFeatureRange
		push1
		pushi	$8		; fixPriority
		self	$30
		bnot
		ret

BHead::checkFeatureRange:
		link	$3
		pTos	pHairNum
		ldi	$1f		; 31, brBottom
		eq?
		bnt	code_0ee2
		ret

code_0ee2:	lsp	param[$1]
		ldi	$1
		sub
		push
		ldi	$4		; scaleX
		mul
		push
		pTos	pRace
		ldi	$1
		sub
		add
		push
		pTos	pSex
		ldi	$1
		sub
		push
		ldi	$20		; 32, ' ', name
		mul
		add
		sat	temp[$0]
		lali	local[$0]
		sat	temp[$0]
		push
		ldi	$1
		add
		lali	local[$40]
		sat	temp[$1]
		lap	param[$1]
		lali	local[$13f]
		sat	temp[$2]
		push
		push0
		self	$4
		bnot
		push
		lat	temp[$1]
		ge?
		bnt	code_0f29
		lst	temp[$2]
		push1
		lst	temp[$1]
		ldi	$1
		sub
		push
		self	$6
		bnot
code_0f29:	ret

BHead::fixExclusions:
		link	$1
code_0f2c:	pushi	$4f4		; 1268, checkExclusions
		push0
		self	$4
		bnot
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0f46
		pushi	$3a2		; 930, nextFeature
		push1
		lst	temp[$0]
		self	$6
		bnot
		jmp	code_0f2c

code_0f46:	ret

BHead::handlesAction:
		pushi	$3		; z
		lsp	param[$1]
		pushi	$3a3		; 931, prevFeature
		pushi	$3a2		; 930, nextFeature
		calle	export60025_4, $6
		bnot
		ret

BHead::copy:
		link	$1
		pushi	$300		; 768, pHeadNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHeadNum
		pushi	$301		; 769, pHairNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHairNum
		pushi	$302		; 770, pBrowNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pBrowNum
		pushi	$303		; 771, pEyeNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEyeNum
		pushi	$304		; 772, pNoseNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pNoseNum
		pushi	$305		; 773, pEarNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEarNum
		pushi	$306		; 774, pMouthNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pMouthNum
		pushi	$307		; 775, pFaceHairNum
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pFaceHairNum
		pushi	$4ef		; 1263, setSkinColor
		push1
		pushi	$308		; 776, pSkinColor
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		pushi	$4ed		; 1261, setHairColor
		push1
		pushi	$309		; 777, pHairColor
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		pushi	$4ee		; 1262, setEyeColor
		push1
		pushi	$30a		; 778, pEyeColor
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		pushi	$4f1		; 1265, setRace
		push1
		pushi	$30b		; 779, pRace
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		pushi	$4f0		; 1264, setSex
		push1
		pushi	$30c		; 780, pSex
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
code_1008:	ret

		link	$8
		ldi	$0
		sat	temp[$3]
		ldi	$0
		sat	temp[$4]
		ldi	$1
		sat	temp[$0]
code_1017:	lst	temp[$0]
		ldi	$2
		le?
		bnt	code_10a0
		ldi	$1
		sat	temp[$1]
code_1023:	lst	temp[$1]
		ldi	$8		; fixPriority
		le?
		bnt	code_109b
		ldi	$1
		sat	temp[$2]
code_102f:	lst	temp[$2]
		ldi	$4		; scaleX
		le?
		bnt	code_1097
		lst	temp[$4]
		lat	temp[$3]
		sali	local[$0]
		lst	temp[$4]
		ldi	$2
		add
		sat	temp[$4]
		push1
		lsli	local[$40]
		calle	export60025_7, $2
		bnot
		sat	temp[$5]
		+at	temp[$4]
		lat	temp[$5]
		bnt	code_1091
		ldi	$0
		sat	temp[$7]
code_105b:	lst	temp[$7]
		lat	temp[$5]
		lt?
		bnt	code_1091
		push1
		lat	temp[$4]
		lsli	local[$40]
		calle	export60025_7, $2
		bnot
		sat	temp[$6]
		+at	temp[$4]
		lst	temp[$6]
		push1
		lsli	local[$40]
		calle	export60025_7, $2
		bnot
		add
		sat	temp[$6]
		+at	temp[$4]
		push
		lst	temp[$6]
		ldi	$2
		mul
		add
		sat	temp[$4]
		+at	temp[$7]
		jmp	code_105b

code_1091:	+at	temp[$3]
		+at	temp[$2]
		jmp	code_102f

code_1097:	+at	temp[$1]
		jmp	code_1023

code_109b:	+at	temp[$0]
		jmp	code_1017

code_10a0:	ret

