63 lines
897 B
Plaintext
63 lines
897 B
Plaintext
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
|
|
|