ATPRoomTypeArray::isRoomType:
		link	$1
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		sat	temp[$0]
		lsp	param[$2]
		dup
		ldi	$1
		eq?
		bnt	code_012c
		lst	temp[$0]
		ldi	$1
		and
		jmp	code_01d4

code_012c:	dup
		ldi	$2
		eq?
		bnt	code_013a
		lst	temp[$0]
		ldi	$2
		and
		jmp	code_01d4

code_013a:	dup
		ldi	$3		; z
		eq?
		bnt	code_0148
		lst	temp[$0]
		ldi	$4		; scaleX
		and
		jmp	code_01d4

code_0148:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0156
		lst	temp[$0]
		ldi	$8		; fixPriority
		and
		jmp	code_01d4

code_0156:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0164
		lst	temp[$0]
		ldi	$10		; 16, cel
		and
		jmp	code_01d4

code_0164:	dup
		ldi	$6		; maxScale
		eq?
		bnt	code_0171
		lst	temp[$0]
		ldi	$20		; 32, ' ', name
		and
		jmp	code_01d4

code_0171:	dup
		ldi	$7		; priority
		eq?
		bnt	code_017e
		lst	temp[$0]
		ldi	$40		; 64, '@', yStep
		and
		jmp	code_01d4

code_017e:	dup
		ldi	$8		; fixPriority
		eq?
		bnt	code_018c
		lst	temp[$0]
		ldi	$80		; 128, lastKey
		and
		jmp	code_01d4

code_018c:	dup
		ldi	$9		; inLeft
		eq?
		bnt	code_019a
		lst	temp[$0]
		ldi	$100		; 256, strMax
		and
		jmp	code_01d4

code_019a:	dup
		ldi	$a		; 10, inTop
		eq?
		bnt	code_01a8
		lst	temp[$0]
		ldi	$200		; 512, bottomValue
		and
		jmp	code_01d4

code_01a8:	dup
		ldi	$b		; 11, inRight
		eq?
		bnt	code_01b6
		lst	temp[$0]
		ldi	$400		; 1024, pEndurance
		and
		jmp	code_01d4

code_01b6:	dup
		ldi	$f		; 15, loop
		eq?
		bnt	code_01c4
		lst	temp[$0]
		ldi	$800		; 2048, BAD SELECTOR
		and
		jmp	code_01d4

code_01c4:	dup
		ldi	$f		; 15, loop
		eq?
		bnt	code_01d2
		lst	temp[$0]
		ldi	$1000		; 4096, -objID-
		and
		jmp	code_01d4

code_01d2:	ldi	$0
code_01d4:	toss
		ret

ATPFlagsArray::hasPolygon:
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		ldi	$0
		shr
		push
		ldi	$1
		and
		bnt	code_01ec
		ldi	$0
		jmp	code_01ee

code_01ec:	ldi	$ff		; 255, asInteger
code_01ee:	ret

ATPFlagsArray::doScaler:
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		ldi	$1
		shr
		push
		ldi	$1
		and
		ret

ATPFlagsArray::getVersion:
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		ldi	$2
		shr
		push
		ldi	$3		; z
		and
		ret

ATPRandRoomArray::isUncommon:
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		ldi	$1
		and
		ret

ATPRandRoomArray::getPlacement:
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		ldi	$1
		shr
		push
		ldi	$1fff		; 8191
		and
		ret

