48 lines
710 B
Plaintext
48 lines
710 B
Plaintext
BConsume::buildVerbList:
|
|
lsp param[$1]
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_007c
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push2
|
|
lsg global[$1]
|
|
push1
|
|
pToa pSelf
|
|
send $8
|
|
bnot
|
|
bnt code_007c
|
|
pTos pState
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_005a
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
jmp code_007b
|
|
|
|
code_005a: dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_006d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $12 ; 18, nsLeft
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
jmp code_007b
|
|
|
|
code_006d: push2
|
|
lofsa string_0028 ; "Unknown consumable state of %d"
|
|
push
|
|
pTos pState
|
|
calle export60029_1, $4
|
|
bnot
|
|
code_007b: toss
|
|
code_007c: ret
|
|
|