mirror of
https://github.com/historicalsource/planetfall
synced 2024-06-17 07:20:58 +03:00
139 lines
3.8 KiB
Plaintext
139 lines
3.8 KiB
Plaintext
|
|
<SETG SIBREAKS ".,\"">
|
|
<GLOBAL PRSA 0 %<> WORD>
|
|
<GLOBAL PRSI 0 %<> WORD>
|
|
<GLOBAL PRSO 0 %<> WORD>
|
|
<GLOBAL P-ADVERB <> %<> WORD>
|
|
<GLOBAL P-ADJECTIVE <> %<> WORD>
|
|
<GLOBAL P-SPACE 1 %<> WORD>
|
|
<GLOBAL P-TABLE 0 %<> WORD>
|
|
<GLOBAL P-ONEOBJ 0 %<> WORD>
|
|
<GLOBAL P-SYNTAX 0 %<> WORD>
|
|
<GLOBAL P-CCSRC 0 %<> WORD>
|
|
<GLOBAL P-LEN 0 %<> WORD>
|
|
<GLOBAL P-DIR 0 %<> WORD>
|
|
<GLOBAL HERE 0 %<> WORD>
|
|
<GLOBAL WINNER 0 %<> WORD>
|
|
<GLOBAL P-LEXV <ITABLE BYTE 120> %<> WORD>
|
|
<GLOBAL P-INBUF <ITABLE BYTE 80> %<> WORD>
|
|
<GLOBAL P-CONT <> %<> WORD>
|
|
<GLOBAL P-IT-OBJECT <> %<> WORD>
|
|
<GLOBAL P-IT-LOC <> %<> WORD>
|
|
<GLOBAL LAST-PSEUDO-LOC <> %<> WORD>
|
|
<GLOBAL P-OFLAG <> %<> WORD>
|
|
<GLOBAL P-MERGED <> %<> WORD>
|
|
<GLOBAL P-ACLAUSE <> %<> WORD>
|
|
<GLOBAL P-ANAM <> %<> WORD>
|
|
<GLOBAL P-AADJ <> %<> WORD>
|
|
<CONSTANT P-PHRLEN 3>
|
|
<CONSTANT P-ORPHLEN 7>
|
|
<CONSTANT P-RTLEN 3>
|
|
<CONSTANT P-LEXWORDS 1>
|
|
<CONSTANT P-LEXSTART 1>
|
|
<CONSTANT P-LEXELEN 2>
|
|
<CONSTANT P-WORDLEN 4>
|
|
<CONSTANT P-PSOFF 4>
|
|
<CONSTANT P-P1OFF 5>
|
|
<CONSTANT P-P1BITS 3>
|
|
<CONSTANT P-ITBLLEN 9>
|
|
<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0> %<> WORD>
|
|
<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0> %<> WORD>
|
|
<GLOBAL P-VTBL <TABLE 0 0 0 0> %<> WORD>
|
|
<GLOBAL P-NCN 0 %<> WORD>
|
|
<CONSTANT P-VERB 0>
|
|
<CONSTANT P-VERBN 1>
|
|
<CONSTANT P-PREP1 2>
|
|
<CONSTANT P-PREP1N 3>
|
|
<CONSTANT P-PREP2 4>
|
|
<CONSTANT P-PREP2N 5>
|
|
<CONSTANT P-NC1 6>
|
|
<CONSTANT P-NC1L 7>
|
|
<CONSTANT P-NC2 8>
|
|
<CONSTANT P-NC2L 9>
|
|
<GLOBAL QUOTE-FLAG <> %<> WORD>
|
|
<DEFINE-ROUTINE PARSER>
|
|
<GLOBAL P-WALK-DIR <> %<> WORD>
|
|
<DEFINE-ROUTINE WT?>
|
|
<DEFINE-ROUTINE CLAUSE>
|
|
<DEFINE-ROUTINE NUMBER?>
|
|
<GLOBAL P-NUMBER 0 %<> WORD>
|
|
<DEFINE-ROUTINE ORPHAN-MERGE>
|
|
<DEFINE-ROUTINE ACLAUSE-WIN>
|
|
<DEFINE-ROUTINE WORD-PRINT>
|
|
<DEFINE-ROUTINE UNKNOWN-WORD>
|
|
<DEFINE-ROUTINE CANT-USE>
|
|
<GLOBAL P-SLOCBITS 0 %<> WORD>
|
|
<CONSTANT P-SYNLEN 8>
|
|
<CONSTANT P-SBITS 0>
|
|
<CONSTANT P-SPREP1 1>
|
|
<CONSTANT P-SPREP2 2>
|
|
<CONSTANT P-SFWIM1 3>
|
|
<CONSTANT P-SFWIM2 4>
|
|
<CONSTANT P-SLOC1 5>
|
|
<CONSTANT P-SLOC2 6>
|
|
<CONSTANT P-SACTION 7>
|
|
<CONSTANT P-SONUMS 3>
|
|
<DEFINE-ROUTINE SYNTAX-CHECK>
|
|
<DEFINE-ROUTINE CANT-ORPHAN>
|
|
<DEFINE-ROUTINE ORPHAN>
|
|
<DEFINE-ROUTINE CLAUSE-PRINT>
|
|
<DEFINE-ROUTINE BUFFER-PRINT>
|
|
<DEFINE-ROUTINE CAPITALIZE>
|
|
<DEFINE-ROUTINE PREP-PRINT>
|
|
<DEFINE-ROUTINE CLAUSE-COPY>
|
|
<DEFINE-ROUTINE CLAUSE-ADD>
|
|
<DEFINE-ROUTINE PREP-FIND>
|
|
<DEFINE-ROUTINE SYNTAX-FOUND>
|
|
<GLOBAL P-GWIMBIT 0 %<> WORD>
|
|
<DEFINE-ROUTINE GWIM>
|
|
<DEFINE-ROUTINE SNARF-OBJECTS>
|
|
<DEFINE-ROUTINE BUT-MERGE>
|
|
<GLOBAL P-NAM <> %<> WORD>
|
|
<GLOBAL P-ADJ <> %<> WORD>
|
|
<GLOBAL P-ADJN <> %<> WORD>
|
|
<GLOBAL P-PRSO <ITABLE NONE 50> %<> WORD>
|
|
<GLOBAL P-PRSI <ITABLE NONE 50> %<> WORD>
|
|
<GLOBAL P-BUTS <ITABLE NONE 50> %<> WORD>
|
|
<GLOBAL P-MERGE <ITABLE NONE 50> %<> WORD>
|
|
<GLOBAL P-OCLAUSE <ITABLE NONE 50> %<> WORD>
|
|
<GLOBAL P-MATCHLEN 0 %<> WORD>
|
|
<GLOBAL P-GETFLAGS 0 %<> WORD>
|
|
<CONSTANT P-ALL 1>
|
|
<CONSTANT P-ONE 2>
|
|
<CONSTANT P-INHIBIT 4>
|
|
<GLOBAL P-CSPTR <> %<> WORD>
|
|
<GLOBAL P-CEPTR <> %<> WORD>
|
|
<GLOBAL P-AND <> %<> WORD>
|
|
<DEFINE-ROUTINE SNARFEM>
|
|
<DEFINE-ROUTINE ADJ-CHECK>
|
|
<CONSTANT SH 128>
|
|
<CONSTANT SC 64>
|
|
<CONSTANT SIR 32>
|
|
<CONSTANT SOG 16>
|
|
<CONSTANT STAKE 8>
|
|
<CONSTANT SMANY 4>
|
|
<CONSTANT SHAVE 2>
|
|
<DEFINE-ROUTINE GET-OBJECT>
|
|
<DEFINE-ROUTINE MOBY-FIND>
|
|
<GLOBAL P-MOBY-FOUND <> %<> WORD>
|
|
<GLOBAL P-XNAM <> %<> WORD>
|
|
<GLOBAL P-XADJ <> %<> WORD>
|
|
<GLOBAL P-XADJN <> %<> WORD>
|
|
<DEFINE-ROUTINE WHICH-PRINT>
|
|
<DEFINE-ROUTINE GLOBAL-CHECK>
|
|
<DEFINE-ROUTINE DO-SL>
|
|
<CONSTANT P-SRCBOT 2>
|
|
<CONSTANT P-SRCTOP 0>
|
|
<CONSTANT P-SRCALL 1>
|
|
<DEFINE-ROUTINE SEARCH-LIST>
|
|
<DEFINE-ROUTINE OBJ-FOUND>
|
|
<DEFINE-ROUTINE TAKE-CHECK>
|
|
<DEFINE-ROUTINE ITAKE-CHECK>
|
|
<DEFINE-ROUTINE HERE?>
|
|
<DEFINE-ROUTINE HELD?>
|
|
<DEFINE-ROUTINE MANY-CHECK>
|
|
<DEFINE-ROUTINE ZMEMQ>
|
|
<DEFINE-ROUTINE ZMEMQB>
|
|
<DEFINE-ROUTINE LIT?>
|
|
<DEFINE-ROUTINE PRSO-PRINT>
|
|
<DEFINE-ROUTINE THIS-IT?> |