BEntry::dispose:
		push1
		pTos	pDest
		calle	export60000_0, $2
		bnot
		bnt	code_004b
		pushi	$95		; 149, dispose
		push0
		pToa	pDest
		send	$4
		bnot
code_004b:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	WorldObjectBase, $4
		bnot
		ret

BEntry::buildVerbList:
		link	$2
		pushi	$97		; 151, isKindOf
		push1
		class	WorldEgo
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_008e
		pushi	$384		; 900, pSittingOn
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_008e
		pushi	$381		; 897, pMode
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_008e
		pushi	$9f		; 159, add
		push1
		pushi	$6d		; 109, 'm', picture
		class	VerbList
		sat	temp[$0]
		send	$6
		bnot
code_008e:	ret

BEntry::fromPacket:
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pDest
		ret

