449 lines
8.7 KiB
Plaintext
449 lines
8.7 KiB
Plaintext
|
|
.SEGMENT "0"
|
|
|
|
|
|
.FUNCT MORE-SPECIFIC:ANY:0:0
|
|
SET 'CLOCK-WAIT,TRUE-VALUE
|
|
PRINTR "[Please be more specific.]"
|
|
|
|
|
|
.FUNCT V-PDEBUG:ANY:0:0
|
|
ZERO? PRSO /?CCL3
|
|
ZERO? IDEBUG /?PRT4
|
|
SET 'IDEBUG,0
|
|
JUMP ?PRE6
|
|
?PRT4: SET 'IDEBUG,1
|
|
?PRE6: PRINTC 123
|
|
PRINTN IDEBUG
|
|
PRINTR "}"
|
|
?CCL3: ZERO? P-DBUG /?PRT9
|
|
SET 'P-DBUG,0
|
|
JUMP ?PRE11
|
|
?PRT9: SET 'P-DBUG,1
|
|
?PRE11: ZERO? P-DBUG /?CCL8
|
|
PRINTR "Find them bugs, boss!"
|
|
?CCL8: PRINTR "No bugs left, eh?"
|
|
|
|
|
|
.FUNCT VERB-ALL-TEST:ANY:2:2,O,I,L
|
|
LOC O >L
|
|
EQUAL? PRSA,V?GIVE,V?DROP \?CCL3
|
|
EQUAL? L,WINNER /TRUE
|
|
RFALSE
|
|
?CCL3: EQUAL? PRSA,V?PUT \?CCL8
|
|
EQUAL? O,I /FALSE
|
|
IN? O,I /FALSE
|
|
RTRUE
|
|
?CCL8: EQUAL? PRSA,V?TAKE \?CCL15
|
|
FSET? O,TAKEBIT /?CND16
|
|
FSET? O,TRYTAKEBIT \FALSE
|
|
?CND16: ZERO? I /?CCL22
|
|
EQUAL? L,I /?CND20
|
|
RFALSE
|
|
?CCL22: EQUAL? L,HERE /TRUE
|
|
?CND20: FSET? L,PERSONBIT /TRUE
|
|
FSET? L,SURFACEBIT /TRUE
|
|
FSET? L,CONTBIT \FALSE
|
|
FSET? L,OPENBIT /TRUE
|
|
RFALSE
|
|
?CCL15: ZERO? I /TRUE
|
|
EQUAL? O,I /FALSE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT FIX-HIM-HER-IT:ANY:2:2,PRON,OBJ
|
|
ZERO? OBJ \?CCL3
|
|
ICALL1 MORE-SPECIFIC
|
|
RFALSE
|
|
?CCL3: CALL2 ACCESSIBLE?,OBJ
|
|
ZERO? STACK \?CCL5
|
|
EQUAL? PRON,PRSO \?PRD9
|
|
CALL2 EVERYWHERE-VERB?,1
|
|
ZERO? STACK /?CTR4
|
|
?PRD9: EQUAL? PRON,PRSI \?CCL5
|
|
CALL2 EVERYWHERE-VERB?,2
|
|
ZERO? STACK \?CCL5
|
|
?CTR4: ICALL2 NOT-HERE,OBJ
|
|
RFALSE
|
|
?CCL5: EQUAL? PRSO,PRON \?CND14
|
|
SET 'PRSO,OBJ
|
|
ICALL TELL-PRONOUN,OBJ,PRON
|
|
?CND14: EQUAL? PRSI,PRON \?CND16
|
|
SET 'PRSI,OBJ
|
|
ICALL TELL-PRONOUN,OBJ,PRON
|
|
?CND16: EQUAL? PRSS,PRON \TRUE
|
|
SET 'PRSS,OBJ
|
|
ICALL TELL-PRONOUN,OBJ,PRON
|
|
RTRUE
|
|
|
|
|
|
.FUNCT TELL-PRONOUN:ANY:2:2,OBJ,PRON
|
|
FSET? PRON,TOUCHBIT /FALSE
|
|
EQUAL? OPRSO,OBJ /FALSE
|
|
EQUAL? PRSA,V?DO? /FALSE
|
|
PRINTI "["""
|
|
PRINTD PRON
|
|
PRINTI """ meaning "
|
|
ICALL2 TELL-THE,OBJ
|
|
PRINTR "]"
|
|
|
|
|
|
.FUNCT NO-M-WINNER-VERB?:ANY:0:0
|
|
RFALSE
|
|
|
|
|
|
.FUNCT FIND-A-WINNER:ANY:0:1,RM,OTHER,WHO,N
|
|
ASSIGNED? 'RM /?CND1
|
|
SET 'RM,HERE
|
|
?CND1: ZERO? QCONTEXT /?CCL5
|
|
IN? QCONTEXT,RM \?CCL5
|
|
RETURN QCONTEXT
|
|
?CCL5: FIRST? RM >OTHER /?BOGUS8
|
|
?BOGUS8: SET 'WHO,FALSE-VALUE
|
|
?PRG9: ZERO? OTHER \?CCL13
|
|
RETURN WHO
|
|
?CCL13: FSET? OTHER,PERSONBIT \?CND11
|
|
FSET? OTHER,INVISIBLE /?CND11
|
|
EQUAL? OTHER,PLAYER /?CND11
|
|
IGRTR? 'N,1 /FALSE
|
|
SET 'WHO,OTHER
|
|
?CND11: NEXT? OTHER >OTHER /?PRG9
|
|
JUMP ?PRG9
|
|
|
|
|
|
.FUNCT TELL-SAID-TO:ANY:1:1,PER
|
|
PRINTI "[said to "
|
|
PRINTD PER
|
|
PRINTR "]"
|
|
|
|
|
|
.FUNCT QCONTEXT-GOOD?:ANY:0:0
|
|
ZERO? QCONTEXT /FALSE
|
|
FSET? QCONTEXT,PERSONBIT \FALSE
|
|
CALL2 META-LOC,QCONTEXT
|
|
EQUAL? HERE,STACK \FALSE
|
|
RETURN QCONTEXT
|
|
|
|
|
|
.FUNCT META-LOC:ANY:1:2,OBJ,INV,L
|
|
LOC OBJ >L
|
|
?PRG1: EQUAL? FALSE-VALUE,OBJ,L /FALSE
|
|
EQUAL? L,LOCAL-GLOBALS,GLOBAL-OBJECTS,GENERIC-OBJECTS \?CCL7
|
|
RETURN L
|
|
?CCL7: IN? OBJ,ROOMS \?CCL9
|
|
RETURN OBJ
|
|
?CCL9: ZERO? INV /?CND10
|
|
FSET? OBJ,INVISIBLE /FALSE
|
|
?CND10: SET 'OBJ,L
|
|
LOC OBJ >L
|
|
JUMP ?PRG1
|
|
|
|
|
|
.FUNCT CANT-UNDO:ANY:0:0
|
|
PRINTR "[I can't undo that now.]"
|
|
|
|
|
|
.FUNCT PERFORM:ANY:1:3,PA,PO,PI,V,OA,OO,OI,OQ,OS,X,?TMP1,?TMP2
|
|
SET 'OA,PRSA
|
|
SET 'OO,PRSO
|
|
SET 'OI,PRSI
|
|
ZERO? OO /?CCL3
|
|
EQUAL? OO,PI \?CCL3
|
|
SET 'OBJ-SWAP,TRUE-VALUE
|
|
JUMP ?CND1
|
|
?CCL3: ZERO? OI /?CCL7
|
|
EQUAL? OI,PO \?CCL7
|
|
SET 'OBJ-SWAP,TRUE-VALUE
|
|
JUMP ?CND1
|
|
?CCL7: SET 'OBJ-SWAP,FALSE-VALUE
|
|
?CND1: SET 'PRSA,PA
|
|
SET 'PRSI,PI
|
|
SET 'PRSO,PO
|
|
ZERO? P-DBUG /?CND10
|
|
PRINTI "{Perform: A="
|
|
PRINTN PA
|
|
ZERO? PO /?CND12
|
|
PRINTI "/O="
|
|
EQUAL? PRSA,V?WALK \?CCL16
|
|
PRINTN PO
|
|
JUMP ?CND12
|
|
?CCL16: ICALL2 TELL-D-LOC,PO
|
|
?CND12: ZERO? PI /?CND17
|
|
PRINTI "/I="
|
|
ICALL2 TELL-D-LOC,PI
|
|
?CND17: ZERO? PRSQ /?CND19
|
|
PRINTI "/Q="
|
|
PRINTN PRSQ
|
|
?CND19: ZERO? PRSS /?CND21
|
|
PRINTI "/S="
|
|
ICALL2 TELL-D-LOC,PRSS
|
|
?CND21: PRINTI "}
|
|
"
|
|
?CND10: SET 'V,FALSE-VALUE
|
|
ZERO? PRSS /?CND23
|
|
ICALL2 THIS-IS-IT,PRSS
|
|
?CND23: ZERO? PRSI /?CND25
|
|
ICALL2 THIS-IS-IT,PRSI
|
|
?CND25: ZERO? PRSO /?CND27
|
|
EQUAL? PRSA,V?TELL /?CND27
|
|
EQUAL? PRSA,V?WALK /?CND27
|
|
ICALL2 THIS-IS-IT,PRSO
|
|
?CND27: EQUAL? WINNER,PLAYER /?CND32
|
|
ICALL2 THIS-IS-IT,WINNER
|
|
?CND32: SET 'PO,PRSO
|
|
SET 'PI,PRSI
|
|
CALL1 NO-M-WINNER-VERB?
|
|
ZERO? STACK \?CND34
|
|
GETP WINNER,P?ACTION
|
|
CALL D-APPLY,STR?47,STACK,M-WINNER >V
|
|
?CND34: ZERO? PRSS /?CND37
|
|
ZERO? V \?CND39
|
|
GETP PRSS,P?ACTION
|
|
CALL D-APPLY,STR?48,STACK,M-SUBJ >V
|
|
?CND39: ZERO? V \?CND41
|
|
ZERO? PRSQ /?CND41
|
|
GET ACTIONS,PA >?TMP2
|
|
ADD QACTIONS,2 >?TMP1
|
|
GET QACTIONS,0
|
|
INTBL? ?TMP2,?TMP1,STACK >X \?CND41
|
|
GET X,2
|
|
CALL D-APPLY,STR?49,STACK >V
|
|
?CND41: ZERO? V \?CND47
|
|
ZERO? PRSQ /?CCL51
|
|
GET ACTIONS,PA >?TMP2
|
|
ADD QACTIONS,2 >?TMP1
|
|
GET QACTIONS,0
|
|
INTBL? ?TMP2,?TMP1,STACK >X \?CND52
|
|
GET X,1 >X
|
|
ZERO? X /?CND52
|
|
CALL D-APPLY,FALSE-VALUE,X >V
|
|
?CND52: ZERO? V \?CND47
|
|
GET ACTIONS,PRSQ
|
|
CALL D-APPLY,FALSE-VALUE,STACK >V
|
|
JUMP ?CND47
|
|
?CCL51: ICALL D-APPLY,FALSE-VALUE,V-STATEMENT
|
|
?CND47: EQUAL? M-FATAL,V \?CND58
|
|
SET 'P-CONT,-1
|
|
?CND58: SET 'PRSA,OA
|
|
SET 'PRSO,OO
|
|
SET 'PRSI,OI
|
|
RETURN V
|
|
?CND37: ZERO? V \?CND60
|
|
LOC WINNER
|
|
IN? STACK,ROOMS /?CND60
|
|
LOC WINNER
|
|
GETP STACK,P?ACTION
|
|
CALL D-APPLY,STR?50,STACK,M-BEG >V
|
|
?CND60: ZERO? V \?CND64
|
|
GETP HERE,P?ACTION
|
|
CALL D-APPLY,STR?50,STACK,M-BEG >V
|
|
?CND64: ZERO? V \?CND66
|
|
GET PREACTIONS,PA
|
|
CALL D-APPLY,STR?49,STACK >V
|
|
?CND66: SET 'NOW-PRSI,1
|
|
ZERO? V \?CND68
|
|
ZERO? PI /?CND68
|
|
EQUAL? PRSA,V?WALK /?CND68
|
|
LOC PI
|
|
ZERO? STACK /?CND68
|
|
LOC PI
|
|
GETP STACK,P?CONTFCN >V
|
|
ZERO? V /?CND68
|
|
CALL D-APPLY,STR?51,V,M-CONTAINER >V
|
|
?CND68: ZERO? V \?CND76
|
|
ZERO? PI /?CND76
|
|
EQUAL? PI,GLOBAL-HERE \?CND80
|
|
GETP HERE,P?ACTION
|
|
CALL D-APPLY,STR?52,STACK >V
|
|
?CND80: ZERO? V \?CND76
|
|
GETP PI,P?ACTION
|
|
CALL D-APPLY,STR?52,STACK >V
|
|
?CND76: SET 'NOW-PRSI,0
|
|
ZERO? V \?CND84
|
|
ZERO? PO /?CND84
|
|
EQUAL? PRSA,V?WALK /?CND84
|
|
LOC PO
|
|
ZERO? STACK /?CND84
|
|
LOC PO
|
|
GETP STACK,P?CONTFCN >V
|
|
ZERO? V /?CND84
|
|
CALL D-APPLY,STR?51,V,M-CONTAINER >V
|
|
?CND84: ZERO? V \?CND92
|
|
ZERO? PO /?CND92
|
|
EQUAL? PRSA,V?WALK /?CND92
|
|
EQUAL? PO,GLOBAL-HERE \?CND97
|
|
GETP HERE,P?ACTION
|
|
CALL D-APPLY,STR?53,STACK >V
|
|
?CND97: ZERO? V \?CND92
|
|
GETP PO,P?ACTION
|
|
CALL D-APPLY,STR?53,STACK >V
|
|
?CND92: ZERO? V \?CND101
|
|
GET ACTIONS,PA
|
|
CALL D-APPLY,FALSE-VALUE,STACK >V
|
|
?CND101: EQUAL? M-FATAL,V \?CND104
|
|
SET 'P-CONT,-1
|
|
?CND104: SET 'PRSA,OA
|
|
SET 'PRSO,OO
|
|
SET 'PRSI,OI
|
|
RETURN V
|
|
|
|
|
|
.FUNCT TELL-TOO-DARK:ANY:0:0
|
|
PRINT TOO-DARK
|
|
RETURN M-FATAL
|
|
|
|
|
|
.FUNCT ITAKE-CHECK:ANY:2:2,OBJ,BITS,TAKEN
|
|
EQUAL? OBJ,IT \?CCL3
|
|
SET 'OBJ,P-IT-OBJECT
|
|
JUMP ?CND1
|
|
?CCL3: EQUAL? OBJ,THEM \?CND1
|
|
SET 'OBJ,P-THEM-OBJECT
|
|
?CND1: CALL HELD?,OBJ,WINNER
|
|
ZERO? STACK \FALSE
|
|
EQUAL? OBJ,HANDS,ROOMS /FALSE
|
|
FSET? OBJ,TRYTAKEBIT /?CND10
|
|
EQUAL? WINNER,PLAYER /?CCL14
|
|
SET 'TAKEN,TRUE-VALUE
|
|
JUMP ?CND10
|
|
?CCL14: BTST BITS,32 \?CND10
|
|
CALL ITAKE,FALSE-VALUE,OBJ
|
|
EQUAL? STACK,TRUE-VALUE \?CND10
|
|
SET 'TAKEN,TRUE-VALUE
|
|
?CND10: ZERO? TAKEN \FALSE
|
|
BTST BITS,64 \FALSE
|
|
BTST BITS,128 /FALSE
|
|
PRINTC 91
|
|
EQUAL? WINNER,PLAYER \?CCL26
|
|
PRINTI "You are"
|
|
JUMP ?CND24
|
|
?CCL26: ICALL2 TELL-CTHE,WINNER
|
|
PRINTI " is"
|
|
?CND24: PRINTI "n't holding "
|
|
ICALL2 TELL-THE,OBJ
|
|
ICALL2 THIS-IS-IT,OBJ
|
|
PRINTR "!]"
|
|
|
|
|
|
.FUNCT TELL-D-LOC:ANY:1:1,OBJ
|
|
PRINTD OBJ
|
|
IN? OBJ,GLOBAL-OBJECTS \?CCL3
|
|
PRINTI "(gl)"
|
|
JUMP ?CND1
|
|
?CCL3: IN? OBJ,LOCAL-GLOBALS \?CCL5
|
|
PRINTI "(lg)"
|
|
JUMP ?CND1
|
|
?CCL5: IN? OBJ,ROOMS \?CND1
|
|
PRINTI "(rm)"
|
|
?CND1: EQUAL? OBJ,INTNUM \FALSE
|
|
PRINTC 40
|
|
PRINTN P-NUMBER
|
|
PRINTC 41
|
|
RTRUE
|
|
|
|
|
|
.FUNCT D-APPLY:ANY:2:3,STR,FCN,FOO,RES
|
|
ZERO? FCN /FALSE
|
|
ZERO? P-DBUG /?CND4
|
|
ZERO? STR \?CCL8
|
|
PRINTI "{Action:}
|
|
"
|
|
JUMP ?CND4
|
|
?CCL8: PRINTC 123
|
|
PRINT STR
|
|
EQUAL? STR,STR?47 \?CND9
|
|
PRINTC 61
|
|
PRINTD WINNER
|
|
?CND9: PRINTI ": "
|
|
?CND4: ZERO? FOO /?CCL13
|
|
CALL FCN,FOO >RES
|
|
JUMP ?CND11
|
|
?CCL13: CALL FCN >RES
|
|
?CND11: ZERO? P-DBUG /?CND14
|
|
ZERO? STR /?CND14
|
|
EQUAL? M-FATAL,RES /?CTR19
|
|
EQUAL? P-CONT,-1 \?CCL20
|
|
?CTR19: PRINTI "Fatal}
|
|
"
|
|
RETURN RES
|
|
?CCL20: ZERO? RES \?CCL24
|
|
PRINTI "Not handled}
|
|
"
|
|
RETURN RES
|
|
?CCL24: PRINTI "Handled}
|
|
"
|
|
?CND14: RETURN RES
|
|
|
|
|
|
.FUNCT NOT-HERE:ANY:1:2,OBJ,CLOCK
|
|
ZERO? CLOCK \?CND1
|
|
SET 'CLOCK-WAIT,TRUE-VALUE
|
|
PRINTI "[But"
|
|
?CND1: PRINTC 32
|
|
ICALL2 TELL-THE,OBJ
|
|
ICALL2 PRINT-IS/ARE,OBJ
|
|
PRINTI "n't "
|
|
CALL2 VISIBLE?,OBJ
|
|
ZERO? STACK /?CCL5
|
|
PRINTI "close enough"
|
|
CALL1 SPEAKING-VERB?
|
|
ZERO? STACK /?CND6
|
|
PRINTI " to hear you"
|
|
?CND6: PRINTC 46
|
|
JUMP ?CND3
|
|
?CCL5: PRINTI "here!"
|
|
?CND3: ICALL2 THIS-IS-IT,OBJ
|
|
ZERO? CLOCK \?CND8
|
|
PRINTC 93
|
|
?CND8: CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT GET-OWNER:ANY:1:1,OBJ,TMP,NP
|
|
CALL2 GET-NP,OBJ >NP
|
|
ZERO? NP /FALSE
|
|
GET NP,4 >TMP
|
|
ZERO? TMP \?CTR5
|
|
GET NP,1 >TMP
|
|
ZERO? TMP /?CCL6
|
|
GET TMP,2 >TMP
|
|
ZERO? TMP /?CCL6
|
|
?CTR5: LESS? 0,TMP \FALSE
|
|
GRTR? TMP,LAST-OBJECT /FALSE
|
|
RETURN TMP
|
|
?CCL6: GETP OBJ,P?OWNER >TMP
|
|
ZERO? TMP /FALSE
|
|
LESS? 0,TMP \?CCL17
|
|
GRTR? TMP,LAST-OBJECT \FALSE
|
|
?CCL17: RETURN PLAYER
|
|
|
|
|
|
.FUNCT GET-NP:ANY:0:1,OBJ,PRSI?
|
|
SET 'PRSI?,NOW-PRSI
|
|
EQUAL? OBJ,FALSE-VALUE,PRSO,PRSI \FALSE
|
|
ZERO? OBJ /?CND1
|
|
EQUAL? OBJ,PRSO \?CCL7
|
|
SET 'PRSI?,FALSE-VALUE
|
|
JUMP ?CND1
|
|
?CCL7: SET 'PRSI?,TRUE-VALUE
|
|
?CND1: ZERO? OBJ-SWAP /?CCL10
|
|
ZERO? PRSI? /?CCL13
|
|
RETURN PRSO-NP
|
|
?CCL13: RETURN PRSI-NP
|
|
?CCL10: ZERO? PRSI? /?CCL15
|
|
RETURN PRSI-NP
|
|
?CCL15: RETURN PRSO-NP
|
|
|
|
|
|
.FUNCT NOUN-USED?:ANY:2:4,OBJ,WD1,WD2,WD3,X
|
|
CALL2 GET-NP,OBJ >X
|
|
ZERO? X /FALSE
|
|
GET X,2 >X
|
|
ZERO? X /FALSE
|
|
EQUAL? X,WD1,WD2,WD3 /TRUE
|
|
RFALSE
|
|
|
|
.ENDSEG
|
|
|
|
.ENDI
|