203 lines
2.7 KiB
Plaintext
203 lines
2.7 KiB
Plaintext
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
|
|
|