BWearable::preDispose:
		pushi	$395		; 917, beTakenOff
		push0
		self	$4
		bnot
		ret

BWearable::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	WorldObjectBase, $4
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_00cf
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		pToa	pSelf
		send	$6
		bnot
code_00cf:	ret

BWearable::buildVerbList:
		link	$1
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_019d
		pushi	$381		; 897, pMode
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_019d
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_014a
		pushi	$35b		; 859, getOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		sat	temp[$0]
		push
		lap	param[$1]
		eq?
		bnt	code_014a
		pToa	pIsWorn
		bnt	code_0122
		pushi	$9f		; 159, add
		push1
		pushi	$2f		; 47, '/', mark
		class	VerbList
		send	$6
		bnot
		jmp	code_019d

code_0122:	pushi	$35c		; 860, getBase
		push1
		class	BWeapon
		push
		pToa	pSelf
		send	$6
		bnot
		bnt	code_013d
		pushi	$9f		; 159, add
		push1
		pushi	$3d		; 61, '=', b_xAxis
		class	VerbList
		send	$6
		bnot
		jmp	code_019d

code_013d:	pushi	$9f		; 159, add
		push1
		pushi	$16		; 22, lsLeft
		class	VerbList
		send	$6
		bnot
		jmp	code_019d

code_014a:	pushi	$35c		; 860, getBase
		push1
		class	BDye
		push
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_019d
		pushi	$631		; 1585, pHairDye
		push0
		send	$4
		bnot
		not
		bnt	code_019d
		pushi	$386		; 902, hasBase
		push1
		class	BWearable
		push
		lap	param[$1]
		send	$6
		bnot
		not
		bnt	code_019d
		pushi	$386		; 902, hasBase
		push1
		class	BDye
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_019d
		pushi	$3a9		; 937, isOwnedBy
		push1
		lsg	global[$1]
		lap	param[$1]
		send	$6
		bnot
		bnt	code_019d
		pushi	$9f		; 159, add
		push1
		pushi	$80		; 128, lastKey
		class	VerbList
		send	$6
		bnot
code_019d:	ret

BWearable::handlesAction:
		pushi	$3		; z
		lsp	param[$1]
		pushi	$393		; 915, bePutOn
		pushi	$395		; 917, beTakenOff
		calle	export60025_4, $6
		bnot
		ret

BWearable::updateDisplay:
		pToa	pSelf
		bnt	code_0238
		pToa	pWearer
		bnt	code_0238
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0238
		pushi	$3e7		; 999, pUpdatorList
		push0
		pToa	pSelf
		send	$4
		bnot
		bnt	code_020e
		pushi	$f		; 15, loop
		push1
		pushi	$f		; 15, loop
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push1
		pushi	$10		; 16, cel
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pToa	pSelf
		send	$c
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		pToa	pSelf
		send	$6
		bnot
		pushi	$3b2		; 946, addBitmap
		push1
		pushi	$11		; 17, bitmap
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0238

code_020e:	pushi	$3b3		; 947, addCel
		pushi	$3		; z
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pToa	pActionOffset
		add
		push
		pushi	$f		; 15, loop
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		lap	param[$1]
		send	$a
		bnot
code_0238:	ret

BWearable::setAreaWorn:
		lap	param[$1]
		aTop	pAreaWorn
		ret

BWearable::bePutOn:
		link	$7
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0284
		pTos	pMask
		ldi	$3		; z
		and
		bnt	code_0284
		pushi	$4d2		; 1234, getSex
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$1
		eq?
		bnt	code_0279
		pTos	pMask
		ldi	$fe		; 254, strIndex
		eq?
		bnt	code_0272
		ldi	$0
		aTop	pActionOffset
		jmp	code_0283

code_0272:	ldi	$2710		; 10000
		aTop	pActionOffset
		jmp	code_0283

code_0279:	dup
		ldi	$0
		eq?
		bnt	code_0283
		ldi	$0
		aTop	pActionOffset
code_0283:	toss
code_0284:	ldi	$1
		sat	temp[$3]
		pushi	$36b		; 875, updateAction
		push1
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		pushi	$3e9		; 1001, pUpdateObj
		push1
		lsp	param[$1]
		pToa	pSelf
		send	$6
		bnot
		ldi	$1
		aTop	pIsWorn
		lap	param[$1]
		aTop	pWearer
		pushi	$99		; 153, respondsTo
		push1
		pushi	$318		; 792, pShirtView
		send	$6
		bnot
		bnt	code_0541
		pTos	pAreaWorn
		dup
		ldi	$0
		eq?
		bnt	code_02d7
		pushi	$4d3		; 1235, pHelmetView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_02d7:	dup
		ldi	$1
		eq?
		bnt	code_038b
		pushi	$318		; 792, pShirtView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$4d4		; 1236, pRobeView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0540
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		pToa	pWearer
		send	$6
		bnot
		sat	temp[$4]
		bnt	code_0540
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		sat	temp[$6]
		ldi	$0
		sat	temp[$5]
code_031f:	lst	temp[$5]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$6]
		send	$4
		bnot
		lt?
		bnt	code_0540
		pushi	$4d4		; 1236, pRobeView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pushi	$3ed		; 1005, pBaseView
		push0
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$5]
		lat	temp[$6]
		send	$6
		bnot
		send	$4
		bnot
		eq?
		bnt	code_0384
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$5]
		lat	temp[$6]
		send	$6
		bnot
		send	$6
		bnot
		sat	temp[$4]
		bnt	code_0384
		pushi	$41e		; 1054, pIsWorn
		push0
		send	$4
		bnot
		bnt	code_0384
		pushi	$3ac		; 940, inheritClut
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$5]
		lat	temp[$6]
		send	$6
		bnot
		push
		pToa	pWearer
		send	$6
		bnot
		ldi	$0
		sat	temp[$3]
code_0384:	+at	temp[$5]
		jmp	code_031f

		jmp	code_0540

code_038b:	dup
		ldi	$2
		eq?
		bnt	code_03a7
		pushi	$4d4		; 1236, pRobeView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_03a7:	dup
		ldi	$6		; maxScale
		eq?
		bnt	code_0466
		pushi	$4d5		; 1237, pPantsView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$3ac		; 940, inheritClut
		push1
		pTos	pSelf
		lap	param[$1]
		send	$6
		bnot
		pushi	$4d6		; 1238, pSkirtView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0540
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		pToa	pWearer
		send	$6
		bnot
		sat	temp[$4]
		bnt	code_0540
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		sat	temp[$6]
		ldi	$0
		sat	temp[$5]
code_03fa:	lst	temp[$5]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$6]
		send	$4
		bnot
		lt?
		bnt	code_0540
		pushi	$4d6		; 1238, pSkirtView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pushi	$3ed		; 1005, pBaseView
		push0
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$5]
		lat	temp[$6]
		send	$6
		bnot
		send	$4
		bnot
		eq?
		bnt	code_045f
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$5]
		lat	temp[$6]
		send	$6
		bnot
		send	$6
		bnot
		sat	temp[$4]
		bnt	code_045f
		pushi	$41e		; 1054, pIsWorn
		push0
		send	$4
		bnot
		bnt	code_045f
		pushi	$3ac		; 940, inheritClut
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$5]
		lat	temp[$6]
		send	$6
		bnot
		push
		pToa	pWearer
		send	$6
		bnot
		ldi	$0
		sat	temp[$3]
code_045f:	+at	temp[$5]
		jmp	code_03fa

		jmp	code_0540

code_0466:	dup
		ldi	$7		; priority
		eq?
		bnt	code_0482
		pushi	$4d7		; 1239, pShoesView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_0482:	dup
		ldi	$8		; fixPriority
		eq?
		bnt	code_049e
		pushi	$4d8		; 1240, pBeltView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_049e:	dup
		ldi	$9		; inLeft
		eq?
		bnt	code_04ba
		pushi	$4d6		; 1238, pSkirtView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_04ba:	dup
		ldi	$3		; z
		eq?
		bnt	code_04d6
		pushi	$4d9		; 1241, pCowlView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_04d6:	dup
		ldi	$63		; 99, 'c', perform
		eq?
		bnt	code_04f1
		pushi	$4da		; 1242, pBaldricView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_04f1:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_050c
		pushi	$4db		; 1243, pWristView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_050c:	dup
		ldi	$11		; 17, bitmap
		eq?
		bnt	code_0527
		pushi	$4dc		; 1244, pShieldView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0540

code_0527:	dup
		ldi	$64		; 100, 'd', moveDone
		eq?
		bnt	code_0540
		pushi	$4dd		; 1245, pWeaponView
		push1
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
code_0540:	toss
code_0541:	lat	temp[$3]
		bnt	code_0550
		pushi	$3ac		; 940, inheritClut
		push1
		pTos	pSelf
		lap	param[$1]
		send	$6
		bnot
code_0550:	pTos	pAreaWorn
		ldi	$0
		eq?
		bnt	code_059c
		pushi	$99		; 153, respondsTo
		push1
		pushi	$319		; 793, pHead
		lap	param[$1]
		send	$6
		bnot
		bnt	code_059c
		push1
		pushi	$319		; 793, pHead
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_059c
		pushi	$4de		; 1246, updateBitmaps
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BHead
		push
		pushi	$319		; 793, pHead
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$6
		bnot
		send	$4
		bnot
		pushi	$36a		; 874, updateDisplay
		push0
		lap	param[$1]
		send	$4
		bnot
code_059c:	pushi	$436		; 1078, updateContainerButton
		push0
		self	$4
		bnot
		ret

BWearable::beTakenOff:
		link	$3
		pToa	pIsWorn
		bnt	code_0837
		pushi	$99		; 153, respondsTo
		push1
		pushi	$318		; 792, pShirtView
		pToa	pWearer
		send	$6
		bnot
		bnt	code_07db
		pTos	pAreaWorn
		dup
		ldi	$0
		eq?
		bnt	code_05d0
		pushi	$4d3		; 1235, pHelmetView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_05d0:	dup
		ldi	$1
		eq?
		bnt	code_05e4
		pushi	$318		; 792, pShirtView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_05e4:	dup
		ldi	$2
		eq?
		bnt	code_068c
		pushi	$4d4		; 1236, pRobeView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		pushi	$318		; 792, pShirtView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_07da
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		pToa	pWearer
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_07da
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$2]
code_0624:	lst	temp[$2]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$1]
		send	$4
		bnot
		lt?
		bnt	code_07da
		pushi	$318		; 792, pShirtView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pushi	$3ed		; 1005, pBaseView
		push0
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		lat	temp[$1]
		send	$6
		bnot
		send	$4
		bnot
		eq?
		bnt	code_0685
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		lat	temp[$1]
		send	$6
		bnot
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_0685
		pushi	$41e		; 1054, pIsWorn
		push0
		send	$4
		bnot
		bnt	code_0685
		pushi	$3ac		; 940, inheritClut
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		lat	temp[$1]
		send	$6
		bnot
		push
		pToa	pWearer
		send	$6
		bnot
code_0685:	+at	temp[$2]
		jmp	code_0624

		jmp	code_07da

code_068c:	dup
		ldi	$6		; maxScale
		eq?
		bnt	code_06a0
		pushi	$4d5		; 1237, pPantsView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_06a0:	dup
		ldi	$7		; priority
		eq?
		bnt	code_06b4
		pushi	$4d7		; 1239, pShoesView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_06b4:	dup
		ldi	$8		; fixPriority
		eq?
		bnt	code_06c8
		pushi	$4d8		; 1240, pBeltView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_06c8:	dup
		ldi	$9		; inLeft
		eq?
		bnt	code_0770
		pushi	$4d6		; 1238, pSkirtView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		pushi	$4d5		; 1237, pPantsView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_07da
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		pToa	pWearer
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_07da
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$2]
code_0708:	lst	temp[$2]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$1]
		send	$4
		bnot
		lt?
		bnt	code_07da
		pushi	$4d5		; 1237, pPantsView
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		pushi	$3ed		; 1005, pBaseView
		push0
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		lat	temp[$1]
		send	$6
		bnot
		send	$4
		bnot
		eq?
		bnt	code_0769
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		lat	temp[$1]
		send	$6
		bnot
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_0769
		pushi	$41e		; 1054, pIsWorn
		push0
		send	$4
		bnot
		bnt	code_0769
		pushi	$3ac		; 940, inheritClut
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		lat	temp[$1]
		send	$6
		bnot
		push
		pToa	pWearer
		send	$6
		bnot
code_0769:	+at	temp[$2]
		jmp	code_0708

		jmp	code_07da

code_0770:	dup
		ldi	$3		; z
		eq?
		bnt	code_0784
		pushi	$4d9		; 1241, pCowlView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_0784:	dup
		ldi	$63		; 99, 'c', perform
		eq?
		bnt	code_0798
		pushi	$4da		; 1242, pBaldricView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_0798:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_07ab
		pushi	$4db		; 1243, pWristView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_07ab:	dup
		ldi	$11		; 17, bitmap
		eq?
		bnt	code_07be
		pushi	$4dc		; 1244, pShieldView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		jmp	code_07da

code_07be:	dup
		ldi	$64		; 100, 'd', moveDone
		eq?
		bnt	code_07da
		pushi	$40f		; 1039, pWeapon
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
		pushi	$4dd		; 1245, pWeaponView
		push1
		pushi	$ff		; 255, asInteger
		pToa	pWearer
		send	$6
		bnot
code_07da:	toss
code_07db:	pTos	pAreaWorn
		ldi	$0
		eq?
		bnt	code_081e
		pushi	$99		; 153, respondsTo
		push1
		pushi	$319		; 793, pHead
		pToa	pWearer
		send	$6
		bnot
		bnt	code_081e
		push1
		pushi	$319		; 793, pHead
		push0
		pToa	pWearer
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_081e
		pushi	$4de		; 1246, updateBitmaps
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BHead
		push
		pushi	$319		; 793, pHead
		push0
		pToa	pWearer
		send	$4
		bnot
		send	$6
		bnot
		send	$4
		bnot
code_081e:	ldi	$0
		aTop	pIsWorn
		pushi	$3e9		; 1001, pUpdateObj
		push1
		push0
		pToa	pSelf
		send	$6
		bnot
		pushi	$436		; 1078, updateContainerButton
		push0
		self	$4
		bnot
		ldi	$0
		aTop	pWearer
code_0837:	ldi	$0
		ret

BWearable::updateAction:
		pushi	$373		; 883, setAction
		push1
		lsp	param[$1]
		pToa	pSelf
		send	$6
		bnot
		ret

BWearable::updateContainerButton:
		link	$1
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		pToa	pSelf
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_085f
		pushi	$436		; 1078, updateContainerButton
		push0
		send	$4
		bnot
code_085f:	ret

BWearable::fromPacket:
		link	$1
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pMask
		pushi	$2c8		; 712, lookup
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lag	global[$6a]
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_088c
		pushi	$393		; 915, bePutOn
		push1
		push
		self	$6
		bnot
code_088c:	ret

BLinkedWearable::updateDisplay:
		link	$2
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_09a3
		pToa	pGrabLoop
		bnt	code_08c8
		pToa	pWearer
		bnt	code_08c8
		pTos	pGrabAction
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_08ba
		pushi	$3ec		; 1004, pAction
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pToa	pGrabAction
		eq?
code_08ba:	bnt	code_08c8
		pushi	$f		; 15, loop
		push0
		pToa	pWearer
		send	$4
		bnot
		sat	temp[$1]
		jmp	code_08cc

code_08c8:	ldi	$0
		sat	temp[$1]
code_08cc:	push1
		pTos	pSelf
		callk	kernel_21, $2
		bnot
		push
		lst	temp[$1]
		ldi	$1
		add
		ge?
		bnt	code_09a3
		pushi	$3e7		; 999, pUpdatorList
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		ldi	$0
		ne?
		sat	temp[$0]
		bnt	code_08f8
		pushi	$f		; 15, loop
		push1
		lst	temp[$1]
		pToa	pSelf
		send	$6
		bnot
code_08f8:	push1
		pTos	pSelf
		callk	kernel_22, $2
		bnot
		push
		ldi	$2
		eq?
		bnt	code_095a
		lat	temp[$0]
		bnt	code_0941
		pushi	$10		; 16, cel
		push1
		push1
		pToa	pSelf
		send	$6
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		pToa	pSelf
		send	$6
		bnot
		pushi	$3b6		; 950, insertLinkedBitmap
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pTos	pLinkPoint
		pTos	pSelf
		lap	param[$1]
		send	$a
		bnot
		pushi	$10		; 16, cel
		push1
		push0
		pToa	pSelf
		send	$6
		bnot
		jmp	code_095a

code_0941:	pushi	$3b7		; 951, insertLinkedCel
		pushi	$4		; scaleX
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lst	temp[$1]
		push1
		pTos	pLinkPoint
		lap	param[$1]
		send	$c
		bnot
code_095a:	lat	temp[$0]
		bnt	code_0982
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		pToa	pSelf
		send	$6
		bnot
		pushi	$3b5		; 949, addLinkedBitmap
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pTos	pLinkPoint
		pTos	pSelf
		lap	param[$1]
		send	$a
		bnot
		jmp	code_09a3

code_0982:	pushi	$3b4		; 948, addLinkedCel
		pushi	$4		; scaleX
		pushi	$e		; 14, view
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lst	temp[$1]
		pushi	$10		; 16, cel
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pTos	pLinkPoint
		lap	param[$1]
		send	$c
		bnot
code_09a3:	ret

BLinkedWearable::updateAction:
		pushi	$373		; 883, setAction
		push1
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_09b4
		ldi	$0
		jmp	code_09b6

code_09b4:	ldi	$1
code_09b6:	toss
		push
		pToa	pSelf
		send	$6
		bnot
		ret

