BCarryable::preDispose:
		link	$1
		pToa	pOwner
		bnt	code_0076
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		pToa	pOwner
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_0076
		pushi	$58		; 88, 'X', delete
		push1
		pTos	pSelf
		lat	temp[$0]
		send	$6
		bnot
code_0076:	ret

BCarryable::dispose:
		pToa	pContainerButton
		bnt	code_008a
		pushi	$4b8		; 1208, deleteObj
		push1
		pTos	pSelf
		pushi	$36		; 54, '6', client
		push0
		send	$4
		bnot
		send	$6
		bnot
code_008a:	pushi	$95		; 149, dispose
		push0
		super	WorldObjectBase, $4
		bnot
		ret

BCarryable::fromPacket:
		link	$2
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pShow
		ret

BCarryable::generatePolygon:
		ldi	$2
		ret

BCarryable::buildVerbList:
		link	$3
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0141
		pushi	$381		; 897, pMode
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_0141
		pushi	$381		; 897, pMode
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		and
		not
		bnt	code_0141
		class	VerbList
		sat	temp[$1]
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		pToa	pSelf
		send	$6
		bnot
		sat	temp[$2]
		bnt	code_00f0
		pushi	$41e		; 1054, pIsWorn
		push0
		send	$4
		bnot
code_00f0:	not
		bnt	code_0141
		pushi	$35c		; 860, getBase
		push1
		class	BSit
		push
		pToa	pSelf
		send	$6
		bnot
		sat	temp[$2]
		bnt	code_010a
		pushi	$343		; 835, pOwner
		push0
		send	$4
		bnot
code_010a:	not
		bnt	code_0141
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0141
		pushi	$3a9		; 937, isOwnedBy
		push2
		lsp	param[$1]
		push1
		pToa	pSelf
		send	$8
		bnot
		bnt	code_0136
		pushi	$9f		; 159, add
		push1
		pushi	$a		; 10, inTop
		lat	temp[$1]
		send	$6
		bnot
		jmp	code_0141

code_0136:	pushi	$9f		; 159, add
		push1
		pushi	$8		; fixPriority
		lat	temp[$1]
		send	$6
		bnot
code_0141:	pushi	$97		; 151, isKindOf
		push1
		class	ContainerDisplay
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_019e
		class	VerbList
		sat	temp[$1]
		pushi	$35b		; 859, getOwner
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$365		; 869, pSelf
		push0
		pushi	$4b4		; 1204, pContainer
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		ne?
		bnt	code_019e
		pushi	$365		; 869, pSelf
		push0
		pushi	$4b4		; 1204, pContainer
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		lag	global[$1]
		eq?
		bnt	code_0193
		pushi	$9f		; 159, add
		push1
		pushi	$8		; fixPriority
		lat	temp[$1]
		send	$6
		bnot
		jmp	code_019e

code_0193:	pushi	$9f		; 159, add
		push1
		pushi	$b		; 11, inRight
		lat	temp[$1]
		send	$6
		bnot
code_019e:	ret

BCarryable::setOwner:
		link	$4
		ldi	$0
		sat	temp[$3]
code_01a5:	lst	temp[$3]
		pushi	$5a		; 90, 'Z', size
		push0
		class	gDialogList
		send	$4
		bnot
		lt?
		bnt	code_0201
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$3]
		class	gDialogList
		send	$6
		bnot
		sat	temp[$2]
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_01fd
		pushi	$97		; 151, isKindOf
		push1
		class	VerbDialog
		push
		lat	temp[$2]
		send	$6
		bnot
		bnt	code_01fd
		pushi	$142		; 322, pObject
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		selfID
		eq?
		bnt	code_01fd
		pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$2]
		class	gDialogList
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		jmp	code_0201

code_01fd:	+at	temp[$3]
		jmp	code_01a5

code_0201:	pushi	$32d		; 813, pObj
		push0
		class	WDragger
		send	$4
		bnot
		push
		pToa	pSelf
		eq?
		bnt	code_0219
		pushi	$359		; 857, stopDragging
		push0
		class	WDragger
		send	$4
		bnot
code_0219:	lap	param[$1]
		bnt	code_0251
		pToa	pOwner
		not
		bnt	code_024a
		pushi	$3c6		; 966, deleteFromRoom
		push0
		pToa	pSelf
		send	$4
		bnot
		pToa	pShow
		bnt	code_023a
		pushi	$373		; 883, setAction
		push1
		pushi	$21		; 33, '!', key
		pToa	pSelf
		send	$6
		bnot
code_023a:	lsp	param[$1]
		lag	global[$1]
		ne?
		bnt	code_024a
		pushi	$3a5		; 933, hideContents
		push0
		pToa	pSelf
		send	$4
		bnot
code_024a:	lap	param[$1]
		aTop	pOwner
		jmp	code_0327

code_0251:	pToa	pOwner
		bnt	code_0323
		pushi	$f		; 15, loop
		push0
		send	$4
		bnot
		push
		dup
		ldi	$0
		eq?
		bnt	code_0287
		push1
		push1
		push1
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		add
		push
		push2
		push1
		push2
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		ldi	$3		; z
		sub
		push
		pToa	pSelf
		send	$c
		bnot
		jmp	code_02f0

code_0287:	dup
		ldi	$1
		eq?
		bnt	code_02b0
		push1
		push1
		push1
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		sub
		push
		push2
		push1
		push2
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		ldi	$3		; z
		sub
		push
		pToa	pSelf
		send	$c
		bnot
		jmp	code_02f0

code_02b0:	dup
		ldi	$2
		eq?
		bnt	code_02d1
		push1
		push1
		push1
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		push2
		push1
		push2
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		pToa	pSelf
		send	$c
		bnot
		jmp	code_02f0

code_02d1:	dup
		ldi	$3		; z
		eq?
		bnt	code_02f0
		push1
		push1
		push1
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		push2
		push1
		push2
		push0
		pToa	pOwner
		send	$4
		bnot
		push
		pToa	pSelf
		send	$c
		bnot
code_02f0:	toss
		lap	param[$1]
		aTop	pOwner
		pushi	$373		; 883, setAction
		push1
		pushi	$1d		; 29, brTop
		pushi	$3c5		; 965, addToRoom
		push1
		lsg	global[$3]
		pushi	$3c8		; 968, matchScaler
		push1
		lsg	global[$3]
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		pToa	pSelf
		send	$18
		bnot
		pTos	pOwner
		lag	global[$1]
		ne?
		bnt	code_0327
		pushi	$3a5		; 933, hideContents
		push0
		pToa	pSelf
		send	$4
		bnot
		jmp	code_0327

code_0323:	lap	param[$1]
		aTop	pOwner
code_0327:	ret

BCarryable::canApproach:
		link	$1
		ldi	$1
		sat	temp[$0]
		lsp	param[$1]
		pToa	pOwner
		eq?
		bnt	code_0339
		ldi	$2
		sat	temp[$0]
code_0339:	lat	temp[$0]
		ret

BCarryable::canFace:
		link	$1
		ldi	$1
		sat	temp[$0]
		lsp	param[$1]
		pToa	pOwner
		eq?
		bnt	code_034d
		ldi	$2
		sat	temp[$0]
code_034d:	lat	temp[$0]
		ret

BCarryable::updateContainerButton:
		link	$1
		pToa	pOwner
		bnt	code_0363
		pushi	$4		; scaleX
		pushi	$15		; 21, nsBottom
		pushi	$4		; scaleX
		push
		pTos	pSelf
		callk	kernel_118, $8
		bnot
code_0363:	ret

