CueSet::add:
		pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		super	Set, $6
		bnot
		pushi	$ce		; 206, pList
		push1
		pushSelf
		lap	param[$1]
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		lag	global[$65]
		send	$6
		bnot
		ret

CueSet::delete:
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		lag	global[$65]
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		super	Set, $6
		bnot
		pushi	$ce		; 206, pList
		push1
		push0
		lap	param[$1]
		send	$6
		bnot
		ret

ManagedRoom::init:
		ldi	$1
		aTop	pInitted
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Obj, $4
		bnot
		ret

ManagedRoom::dispose:
		link	$4
		pToa	pCuees
		bnt	code_01b4
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$45		; 69, 'E', doit
		send	$6
		bnot
code_01b4:	pushi	$279		; 633, pFocusedRoom
		push0
		lag	global[$30]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$c9		; 201, setScript
		push1
		push0
		self	$6
		bnot
		pToa	pDemons
		bnt	code_01d6
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pDemons
code_01d6:	pToa	pCast
		bnt	code_01e5
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pCast
code_01e5:	pToa	pFeatures
		bnt	code_01f4
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pFeatures
code_01f4:	pToa	pSounds
		bnt	code_0203
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pSounds
code_0203:	pToa	pTimers
		bnt	code_0212
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pTimers
code_0212:	pToa	pTalkers
		bnt	code_0221
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pTalkers
code_0221:	pToa	pScreen
		bnt	code_0230
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pScreen
code_0230:	pToa	pCuees
		bnt	code_024a
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$45		; 69, 'E', doit
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pCuees
		send	$4
		bnot
		ldi	$0
		aTop	pCuees
code_024a:	pToa	plane
		bnt	code_0259
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	plane
code_0259:	pToa	obstacles
		bnt	code_02de
		pushi	$5a		; 90, 'Z', size
		push0
		send	$4
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$3]
code_026a:	lst	temp[$3]
		lat	temp[$1]
		lt?
		bnt	code_02cd
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$3]
		pToa	obstacles
		send	$6
		bnot
		sat	temp[$2]
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_02a6
		pushi	$97		; 151, isKindOf
		push1
		class	Polygon
		push
		lat	temp[$2]
		send	$6
		bnot
		bnt	code_02a6
		pushi	$16f		; 367, pDispose
		push1
		push1
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$a
		bnot
		jmp	code_02c9

code_02a6:	push2
		lofsa	string_00f7	; "Found a non-polygon in the obstacles list. (%s)"
		push
		push1
		lst	temp[$2]
		calle	export60000_0, $2
		bnot
		bnt	code_02c1
		pushi	$20		; 32, ' ', name
		push0
		lat	temp[$2]
		send	$4
		bnot
		jmp	code_02c4

code_02c1:	lofsa	string_0127	; "<bad object>"
code_02c4:	push
		callk	kernel_132, $4
		bnot
code_02c9:	+at	temp[$3]
		jmp	code_026a

code_02cd:	pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		pToa	obstacles
		send	$8
		bnot
		ldi	$0
		aTop	obstacles
code_02de:	pToa	scaler
		bnt	code_02ed
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	scaler
code_02ed:	pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$30]
		send	$6
		bnot
		ldi	$0
		aTop	pInitted
		pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		lat	temp[$0]
		bnt	code_030b
		push
		selfID
		ne?
		bnt	code_030b
code_030b:	ret

ManagedRoom::doit:
		link	$1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pSounds
		sat	temp[$0]
		send	$4
		bnot
		bnt	code_0326
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$24a		; 586, check
		lat	temp[$0]
		send	$6
		bnot
code_0326:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	pTimers
		sat	temp[$0]
		send	$4
		bnot
		bnt	code_033d
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$45		; 69, 'E', doit
		lat	temp[$0]
		send	$6
		bnot
code_033d:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	pCast
		sat	temp[$0]
		send	$4
		bnot
		bnt	code_0351
		pushi	$45		; 69, 'E', doit
		push0
		lat	temp[$0]
		send	$4
		bnot
code_0351:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	pCuees
		sat	temp[$0]
		send	$4
		bnot
		bnt	code_0368
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$45		; 69, 'E', doit
		lat	temp[$0]
		send	$6
		bnot
code_0368:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	pDemons
		sat	temp[$0]
		send	$4
		bnot
		bnt	code_037f
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$45		; 69, 'E', doit
		lat	temp[$0]
		send	$6
		bnot
code_037f:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	pTimers
		sat	temp[$0]
		send	$4
		bnot
		bnt	code_0396
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$58		; 88, 'X', delete
		lat	temp[$0]
		send	$6
		bnot
code_0396:	pToa	script
		sat	temp[$0]
		bnt	code_03a2
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_03a2:	ret

ManagedRoom::setScript:
		pToa	script
		bnt	code_03ae
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_03ae:	lap	param[$1]
		aTop	script
		bnt	code_03be
		pushi	$94		; 148, init
		push1
		pushSelf
		&rest	$2
		send	$6
		bnot
code_03be:	ret

ManagedRoom::handleEvent:
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bnt	code_03cd
		ldi	$1
		jmp	code_0400

code_03cd:	pToa	script
		bnt	code_03e0
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		send	$6
		bnot
		bnt	code_03e0
		ldi	$1
		jmp	code_0400

code_03e0:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		pToa	pCast
		send	$6
		bnot
		bnt	code_03f1
		ldi	$1
		jmp	code_0400

code_03f1:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		pToa	pScreen
		send	$6
		bnot
		bnt	code_0400
		ldi	$1
code_0400:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

ManagedRoom::newRoom:
		pushi	$272		; 626, newRoom
		push0
		&rest	$1
		lag	global[$30]
		send	$4
		bnot
		ret

ManagedRoom::show:
		pToa	pVisible
		not
		bnt	code_0427
		pushi	$7		; priority
		push1
		push1
		pToa	plane
		send	$6
		bnot
		ldi	$1
		aTop	pVisible
code_0427:	pToa	picture
		bnt	code_0433
		pushi	$1bb		; 443, drawPic
		push1
		push
		self	$6
		bnot
code_0433:	pushi	$75		; 117, 'u', show
		push0
		pushi	$57		; 87, 'W', draw
		push0
		pToa	pScreen
		send	$8
		bnot
		push1
		pTos	plane
		callk	kernel_42, $2
		bnot
		ret

ManagedRoom::hide:
		pToa	pVisible
		bnt	code_0458
		pushi	$7		; priority
		push1
		pushi	$ff		; 255, asInteger
		pToa	plane
		send	$6
		bnot
		ldi	$0
		aTop	pVisible
code_0458:	pushi	$69		; 105, 'i', hide
		push0
		pToa	pScreen
		send	$4
		bnot
		push1
		pTos	plane
		callk	kernel_42, $2
		bnot
		ret

ManagedRoom::virtualize:
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_0134	; "RoomCast"
		push
		pushi	$8d		; 141, new
		push0
		class	Cast
		send	$4
		bnot
		aTop	pCast
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_013d	; "RoomFeatures"
		push
		pushi	$8d		; 141, new
		push0
		class	EventHandler
		send	$4
		bnot
		aTop	pFeatures
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_014a	; "RoomSounds"
		push
		pushi	$8d		; 141, new
		push0
		class	EventHandler
		send	$4
		bnot
		aTop	pSounds
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_0155	; "RoomTimers"
		push
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	pTimers
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_0160	; "RoomDemons"
		push
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	pDemons
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_016b	; "RoomTalkers"
		push
		pushi	$8d		; 141, new
		push0
		class	EventHandler
		send	$4
		bnot
		aTop	pTalkers
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_0177	; "RoomCuees"
		push
		pushi	$8d		; 141, new
		push0
		class	CueSet
		send	$4
		bnot
		aTop	pCuees
		send	$6
		bnot
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_0181	; "RoomPlane"
		push
		pushi	$6d		; 109, 'm', picture
		push1
		pushi	$fe		; 254, strIndex
		pushi	$94		; 148, init
		pushi	$4		; scaleX
		push0
		push0
		pushi	$27f		; 639, rename
		pushi	$1df		; 479, validKey
		pushi	$28		; 40, '(', style
		push1
		pTos	style
		pushi	$1b8		; 440, addCast
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	Plane
		send	$4
		bnot
		aTop	plane
		send	$24
		bnot
		pushi	$7		; priority
		push0
		pToa	plane
		send	$4
		bnot
		not
		bt	code_0545
		pushi	$7		; priority
		push0
		pToa	plane
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		eq?
code_0545:	bnt	code_0550
		pushi	$7		; priority
		push1
		push1
		pToa	plane
		send	$6
		bnot
code_0550:	pushi	$20		; 32, ' ', name
		push1
		lofsa	string_018b	; "RoomScreen"
		push
		pushi	$8d		; 141, new
		push0
		class	screen
		send	$4
		bnot
		aTop	pScreen
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		push0
		push0
		pToa	pScreen
		send	$4
		bnot
		send	$4
		bnot
		push0
		push1
		pTos	plane
		pushi	$248		; 584, open
		push0
		pToa	pScreen
		send	$a
		bnot
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		ret

ManagedRoom::drawPic:
		lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_05a8
		lap	param[$3]
		bnt	code_05a8
		lsp	param[$1]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_059d
		lap	param[$1]
		aTop	picture
code_059d:	lsp	param[$2]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_05a8
		lap	param[$2]
		aTop	style
code_05a8:	pTos	style
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_05c5
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_05c1
		lsp	param[$2]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_05c1
		lap	param[$2]
		jmp	code_05c7

code_05c1:	ldi	$0
		jmp	code_05c7

code_05c5:	pToa	style
code_05c7:	sap	param[$2]
		pushi	$1bb		; 443, drawPic
		push2
		lsp	param[$1]
		push
		pToa	plane
		send	$8
		bnot
		ret

ManagedRoom::addPolygon:
		link	$7
		pToa	obstacles
		not
		bnt	code_05e8
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	obstacles
code_05e8:	ldi	$0
		sat	temp[$2]
code_05ec:	lst	temp[$2]
		lap	param[$0]
		lt?
		bnt	code_06a6
		lat	temp[$2]
		lapi	param[$1]
		sat	temp[$3]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	obstacles
		send	$4
		bnot
		bnt	code_0696
		pushi	$5b		; 91, '[', points
		push0
		lat	temp[$3]
		send	$4
		bnot
		sat	temp[$1]
		push2
		lst	temp[$3]
		pTos	obstacles
		callk	kernel_102, $4
		bnot
		sat	temp[$0]
		bnt	code_06a1
		pushi	$2b		; 43, '+', type
		push1
		pushi	$2b		; 43, '+', type
		push0
		lat	temp[$3]
		send	$4
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	Polygon
		send	$4
		bnot
		sat	temp[$6]
		send	$6
		bnot
		push2
		pushi	$4		; scaleX
		pushi	$71		; 113, 'q', data
		push0
		pushi	$5b		; 91, '[', points
		push0
		lat	temp[$6]
		send	$4
		bnot
		send	$4
		bnot
		push
		callk	kernel_91, $4
		bnot
		pushi	$71		; 113, 'q', data
		push1
		lst	temp[$0]
		pushi	$5b		; 91, '[', points
		push0
		lat	temp[$6]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$6]
		pToa	obstacles
		send	$6
		bnot
		pushi	$5a		; 90, 'Z', size
		push1
		pushi	$d8		; 216, callKernel
		push2
		push1
		pushi	$71		; 113, 'q', data
		push0
		pushi	$5b		; 91, '[', points
		push0
		lat	temp[$6]
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$5b		; 91, '[', points
		push0
		lat	temp[$6]
		send	$4
		bnot
		send	$8
		bnot
		push
		ldi	$2
		div
		push
		lat	temp[$6]
		send	$6
		bnot
		jmp	code_06a1

code_0696:	pushi	$9f		; 159, add
		push1
		lst	temp[$3]
		pToa	obstacles
		send	$6
		bnot
code_06a1:	+at	temp[$2]
		jmp	code_05ec

code_06a6:	ret

ManagedRoom::deletePolygon:
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		pToa	obstacles
		send	$6
		bnot
		ret

ManagedRoom::setScale:
		link	$1
		lsp	param[$0]
		ldi	$1
		eq?
		bnt	code_06c1
		lap	param[$3]
		sat	temp[$0]
		jmp	code_06eb

code_06c1:	pushi	$14b		; 331, frontY
		push1
		lsp	param[$3]
		pushi	$14c		; 332, backY
		push1
		lsp	param[$4]
		pushi	$145		; 325, frontSize
		push1
		lsp	param[$1]
		pushi	$14d		; 333, backSize
		push1
		lsp	param[$2]
		pushi	$8d		; 141, new
		push0
		class	Scaler
		send	$4
		bnot
		sat	temp[$0]
		send	$18
		bnot
		lap	param[$1]
		aTop	frontSize
code_06eb:	lat	temp[$0]
		aTop	scaler
		ret

ManagedRoom::isMatch:
		ldi	$0
		ret

ManagedRoom::setInfo:
		ret

StaticRoom::dispose:
		link	$1
		pToa	modNum
		sat	temp[$0]
		pushi	$95		; 149, dispose
		push0
		super	ManagedRoom, $4
		bnot
		lat	temp[$0]
		bnt	code_0710
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$69]
		send	$6
		bnot
code_0710:	ret

StaticRoom::setInfo:
		lap	param[$1]
		aTop	modNum
		ret

RoomMgr::init:
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	pRoomList
		lag	global[$40]
		sal	local[$1]
		ldi	$5		; scaleY
		sal	local[$0]
		ret

RoomMgr::dispose:
		pToa	pRoomList
		bnt	code_0739
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pRoomList
code_0739:	ldi	$0
		aTop	pFocusedRoom
		ret

RoomMgr::doit:
		link	$5
		pToa	pRestart
		bnt	code_0761
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$95		; 149, dispose
		pToa	pRoomList
		send	$6
		bnot
		pushi	$a6		; 166, release
		push0
		pToa	pRoomList
		send	$4
		bnot
		pToa	pRestart
		sag	global[$36]
		ldi	$0
		aTop	pRestart
code_0761:	pToa	pNextRoom
		bnt	code_0771
		pushi	$2c7		; 711, spawnRoom
		push1
		push
		self	$6
		bnot
		ldi	$0
		aTop	pNextRoom
code_0771:	lsl	local[$0]
		push1
		lsg	global[$40]
		lal	local[$1]
		sub
		push
		callk	kernel_61, $2
		bnot
		sub
		sal	local[$0]
		lag	global[$40]
		sal	local[$1]
		lsl	local[$0]
		ldi	$0
		le?
		bnt	code_07e4
		ldi	$5		; scaleY
		sal	local[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pRoomList
		send	$4
		bnot
		sat	temp[$2]
		pushi	$45		; 69, 'E', doit
		push0
		class	SoundMgr
		send	$4
		bnot
		push0
		callk	kernel_121, $0
		bnot
		aTop	scratch
		lat	temp[$2]
		sat	temp[$4]
code_07ae:	lst	temp[$2]
		ldi	$0
		gt?
		bnt	code_07dd
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		ldi	$1
		sub
		push
		pToa	pRoomList
		send	$6
		bnot
		sat	temp[$0]
		lag	global[$3]
		sat	temp[$3]
		lat	temp[$0]
		sag	global[$3]
		pushi	$45		; 69, 'E', doit
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$3]
		sag	global[$3]
		-at	temp[$2]
		jmp	code_07ae

code_07dd:	push0
		callk	kernel_33, $0
		bnot
		jmp	code_07e9

code_07e4:	push0
		callk	kernel_33, $0
		bnot
code_07e9:	pToa	pFocusedRoom
		bnt	code_0820
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0820
		pushi	$97		; 151, isKindOf
		push1
		class	ManagedRoom
		push
		pToa	pFocusedRoom
		send	$6
		bnot
		bnt	code_0820
		pToa	pFocusedRoom
		sag	global[$3]
		pushi	$45		; 69, 'E', doit
		push0
		lag	global[$e]
		send	$4
		bnot
		lag	global[$6a]
		bnt	code_081c
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_081c:	pToa	pFocusedRoom
		sag	global[$3]
code_0820:	ret

RoomMgr::handleEvent:
		pToa	pFocusedRoom
		bnt	code_0831
		pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		&rest	$2
		send	$6
		bnot
		ret

code_0831:	ldi	$0
		ret

RoomMgr::newRoom:
		link	$1
		pushi	$2c6		; 710, findRoom
		push0
		&rest	$1
		self	$4
		bnot
		sat	temp[$0]
		lag	global[$34]
		sag	global[$35]
		lst	temp[$0]
		ldi	$0
		eq?
		bnt	code_0857
		pushi	$2c5		; 709, createRoom
		push0
		&rest	$1
		self	$4
		bnot
		sat	temp[$0]
code_0857:	pushi	$2c7		; 711, spawnRoom
		push1
		lst	temp[$0]
		self	$6
		bnot
		lat	temp[$0]
		ret

RoomMgr::createRoom:
		link	$1
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_089b
		pToa	pVirtualType
		bnt	code_088d
		pushi	$8d		; 141, new
		push0
		send	$4
		bnot
		sat	temp[$0]
		pushi	$2c0		; 704, setInfo
		push0
		&rest	$1
		send	$4
		bnot
		pushi	$2bc		; 700, virtualize
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_08b7

code_088d:	push1
		lofsa	string_01ad	; "RoomManager::createRoom (pVirtualType is undefined)"
		push
		calle	export60029_0, $2
		bnot
		jmp	code_08b7

code_089b:	push2
		lsp	param[$1]
		push0
		callk	kernel_2, $4
		bnot
		sat	temp[$0]
		pushi	$2c0		; 704, setInfo
		push0
		&rest	$1
		send	$4
		bnot
		pushi	$2bc		; 700, virtualize
		push0
		lat	temp[$0]
		send	$4
		bnot
code_08b7:	pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		pToa	pRoomList
		send	$6
		bnot
		lat	temp[$0]
		ret

RoomMgr::findRoom:
		pushi	$a0		; 160, firstTrue
		push1
		pushi	$2bf		; 703, isMatch
		&rest	$1
		pToa	pRoomList
		send	$6
		bnot
		ret

RoomMgr::spawnRoom:
		link	$4
		pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		pToa	pRoomList
		send	$6
		bnot
		bnt	code_095d
		lag	global[$3]
		sat	temp[$2]
		lap	param[$1]
		sag	global[$3]
		pToa	pFocusedRoom
		sat	temp[$1]
		bnt	code_0914
		pushi	$2bb		; 699, pType
		push0
		pToa	pFocusedRoom
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_090c
		pushi	$95		; 149, dispose
		push0
		pToa	pFocusedRoom
		send	$4
		bnot
		jmp	code_0914

code_090c:	pushi	$69		; 105, 'i', hide
		push0
		pToa	pFocusedRoom
		send	$4
		bnot
code_0914:	lap	param[$1]
		aTop	pFocusedRoom
		pushi	$23c		; 572, pInitted
		push0
		send	$4
		bnot
		not
		bnt	code_092b
		pushi	$94		; 148, init
		push0
		lap	param[$1]
		send	$4
		bnot
code_092b:	pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_0953
		pushi	$99		; 153, respondsTo
		push1
		pushi	$180		; 384, modNum
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0953
		pushi	$180		; 384, modNum
		push0
		lap	param[$1]
		send	$4
		bnot
		sag	global[$34]
code_0953:	pushi	$75		; 117, 'u', show
		push0
		lap	param[$1]
		send	$4
		bnot
		jmp	code_0969

code_095d:	push1
		lofsa	string_01e1	; "RoomManager::spawnRoom (aWhatRoom is not a member of pRoomList)"
		push
		calle	export60029_0, $2
		bnot
code_0969:	pushi	$2b		; 43, '+', type
		push0
		pushi	$f3		; 243, nextEvent
		push1
		pushi	$3		; z
		lag	global[$e]
		send	$6
		bnot
		send	$4
		bnot
		push
		ldi	$0
		ne?
		bnt	code_0982
		jmp	code_0969

code_0982:	lat	temp[$2]
		sag	global[$3]
		ret

RoomMgr::add:
		pushi	$9f		; 159, add
		push0
		&rest	$1
		pToa	pRoomList
		send	$4
		bnot
		ret

RoomMgr::delete:
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		pToa	pRoomList
		send	$6
		bnot
		lsp	param[$1]
		pToa	pFocusedRoom
		eq?
		bnt	code_09a8
		ldi	$0
		aTop	pFocusedRoom
code_09a8:	ret

doDoit::doit:
		link	$1
		lag	global[$3]
		sat	temp[$0]
		lap	param[$1]
		sag	global[$3]
		pushi	$45		; 69, 'E', doit
		push0
		lap	param[$1]
		send	$4
		bnot
		lat	temp[$0]
		sag	global[$3]
		ret

