historicalsource/checkpoint
1
0
Fork 0
mirror of https://github.com/historicalsource/checkpoint synced 2024-04-29 23:49:25 +03:00
Code Issues Releases Wiki Activity
checkpoint/parser.cmp
historicalsource 8ae301e53b Final Revision
2019-04-13 22:12:44 -04:00

911 lines
29 KiB
Plaintext
Raw Blame History

;COMPARISON OF PS:<CHECKPOINT>PARSER.ZIL.151 AND PS:<CHECKPOINT>PARSER.ZIL.170
;OPTIONS ARE /3
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 1-8 (222)
<SETG SIBREAKS ".,\"!?">
"<GLOBAL GWIM-DISABLE <>>"
<GLOBAL PRSA 0>
<GLOBAL PRSI 0>
<GLOBAL PRSO 0>
"<GLOBAL P-TABLE 0>
<GLOBAL P-ONEOBJ 0>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-8 (222)
<SETG SIBREAKS ".,\"!?">
<GLOBAL PRSA 0>
<GLOBAL PRSI 0>
<GLOBAL PRSO 0>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 1-34 (564)
"INBUF - Input buffer for READ"
<GLOBAL P-INBUF <ITABLE BYTE 100>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-26 (483)
<GLOBAL AGAIN-LEXV <ITABLE BYTE 120>>
<GLOBAL RESERVE-LEXV <ITABLE BYTE 120>>
<GLOBAL RESERVE-PTR <>>
"INBUF - Input buffer for READ"
<GLOBAL P-INBUF <ITABLE BYTE 60>>
<GLOBAL OOPS-INBUF <ITABLE BYTE 60>>
<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>>
<CONSTANT O-PTR 0>
<CONSTANT O-START 1>
<CONSTANT O-LENGTH 2>
<CONSTANT O-END 3>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 1-56 (926)
"Parser variables and temporaries"
"<CONSTANT P-PHRLEN 3>
<CONSTANT P-ORPHLEN 7>
<CONSTANT P-RTLEN 3>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-58 (1115)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-14 (1292)
<CONSTANT P-PSOFF 6 ;4>
"Offset to first part of speech"
<CONSTANT P-P1OFF 7 ;5>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-70 (1371)
<CONSTANT P-PSOFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 6) (T 4)>>
"Offset to first part of speech"
<CONSTANT P-P1OFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 7) (T 5)>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-58 (1980)
"<GLOBAL P-WHAT-IGNORED <>>
<GLOBAL P-WON <>>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-114 (2165)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-77 (2349)
<GLOBAL L-PRSA <>>
<GLOBAL L-PRSO <>>
<GLOBAL L-PRSI <>>
<GLOBAL L-WINNER <>>
<ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP X)
;#DECL((CNT OCNT ICNT NUM) FIX (V) <OR 'T FIX FALSE> (OBJ)<OR FALSE OBJECT>
(OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
<REPEAT ()
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-130 (2483)
<ROUTINE MAIN-LOOP ("AUX" X) <REPEAT () <SET X <MAIN-LOOP-1>>>>
<ROUTINE MAIN-LOOP-1 ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP X)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-98 (3028)
<COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
<RETURN>)
(T
<COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
<PUT ,P-PRSI .CNT ,P-IT-OBJECT>
<TELL ,I-ASSUME THE ,P-IT-OBJECT ".)" CR>
<SET TMP T>
<RETURN>)>)>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-145 (2998)
<COND (<IGRTR? CNT .ICNT>
<RETURN>)>
<COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
<PUT ,P-PRSI .CNT ,P-IT-OBJECT>
<TELL ,I-ASSUME THE ,P-IT-OBJECT ".)" CR>
<SET TMP T>
<RETURN>)>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-109 (3333)
<COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
<RETURN>)
(T
<COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
<PUT ,P-PRSO .CNT ,P-IT-OBJECT>
<TELL ,I-ASSUME THE ,P-IT-OBJECT ".)" CR>
<RETURN>)>)>>)>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-155 (3280)
<COND (<IGRTR? CNT .OCNT>
<RETURN>)>
<COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
<PUT ,P-PRSO .CNT ,P-IT-OBJECT>
<TELL ,I-ASSUME THE ,P-IT-OBJECT ".)" CR>
<RETURN>)>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-163 (4830)
<COND (<G? <SET CNT <+ .CNT 1>> .NUM>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-208 (4754)
<COND (<IGRTR? CNT .NUM>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-207 (6192)
<COND (<GAME-VERB?> T)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-252 (6103)
;<COND (<GAME-VERB?> T)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-219 (6493)
<COND (<AND <NOT <VERB? SAVE RESTORE>>
<GAME-VERB?>> T)
(<AND <VERB? AGAIN>
<NOT <EQUAL? ,L-PRSA ,V?SAVE ,V?RESTORE>>
<GAME-VERB? ,L-PRSA>>
T)
(T
<SET V <CLOCKER>>)>)>>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-264 (6405)
<COND (<OR <VERB? SAVE RESTORE>
<NOT <GAME-VERB?>>>
<SET V <CLOCKER>>)>)>
<SETG PRSA <>>
<SETG PRSO <>>
<SETG PRSI <>>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-268 (7797)
(<EQUAL? .V ,V?$AGAIN ,V?$QUEUE ,V?$STATION> <RTRUE>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-311 (7659)
(<EQUAL? .V ;,V?$AGAIN ,V?$QUEUE ,V?$STATION> <RTRUE>)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-293 (8828)
<SETG L-WINNER ,WINNER>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-336 (8691)
;<SETG L-WINNER ,WINNER>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 2-311 (9347)
<RTRUE>)>
<COND (<AND <VERB? WALK FACE> <==? .OBJ ,PRSO>>
<RTRUE>)>
<COND (<NOT <FSET? .OBJ ,PERSONBIT>>
<COND (<NOT <EQUAL? .OBJ ,GLOBAL-HERE ,INTDIR>>
<FSET ,IT ,TOUCHBIT> ;"to cause pronoun 'it' in output"
<SETG P-IT-OBJECT .OBJ>)>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 1-354 (9211)
<RTRUE>)
(<EQUAL? .OBJ ,INTDIR ,GLOBAL-HERE>
<RTRUE>)
(<AND <VERB? WALK WALK-TO FACE> <==? .OBJ ,PRSO>>
<RTRUE>)>
<COND (<NOT <FSET? .OBJ ,PERSONBIT>>
<FSET ,IT ,TOUCHBIT> ;"to cause pronoun 'it' in output"
<SETG P-IT-OBJECT .OBJ>)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-17 (10550)
<GLOBAL NOW-PRSI <>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-17 (10410)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-48 (11630)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-46 (11466)
<GLOBAL NOW-PRSI <>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-65 (12130)
<COND (<NOT <EQUAL? .A ,V?WALK ,V?FACE>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-65 (11990)
<COND ;(<AND <NOT ,LIT>
<SEE-VERB?>>
<TOO-DARK>
<RFATAL>)
(<NOT <EQUAL? .A ,V?WALK ,V?FACE>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-121 (14238)
(<AND <SET O ,PRSO>
<SET V <THIS-IS-IT ,PRSO>>
<SET I ,PRSI>
<SET V <THIS-IS-IT ,PRSI>>
<SET V <THIS-IS-IT ,PRSO>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-125 (14183)
(<AND <SET V <THIS-IS-IT ,PRSI>>
<SET V <THIS-IS-IT ,PRSO>>
<SET O ,PRSO>
<SET I ,PRSI>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-143 (14925)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-146 (14836)
(<AND .I ;"This new clause applies CONTFCN to PRSI, BM 2/85"
<SETG NOW-PRSI T>
<NOT <EQUAL? .A ,V?WALK>>
<LOC .I>
<SET V <GETP <LOC .I> ,P?CONTFCN>>
<SET V <APPLY .V ,M-CONT>>>
.V)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-152 (15181)
<SET V <APPLY .V ,M-CONT>>
;<SET V <DD-APPLY "Container" <LOC .O>
<GETP <LOC .O> ,P?CONTFCN>>>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-162 (15325)
<SET V <APPLY .V ,M-CONT>>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 3-174 (15802)
;"<ROUTINE DD-APPLY (STR OBJ FCN)
<COND (,DEBUG
<PRINTC %<ASCII !\[>>
<TELL D .OBJ '=]'>)>
<D-APPLY .STR .FCN>>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 2-182 (15862)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-16 (17116)
<RFALSE>
;<COND (<NOT <ZERO? ,P-PROMPT>>
<ENABLE <QUEUE I-PROMPT 9>>
<RFALSE>)
(T
<TELL "|
(You won't see \"What next?\" any more.)" CR>
<COND (<VERB? ;WAIT WAIT-FOR WAIT-UNTIL> <CRLF>)>
<DISABLE <INT I-PROMPT>>
<RFALSE>)>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-16 (17038)
<RFALSE>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-67 (18978)
<COND (<G? ,QUESTION-WORD-COUNT 9>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-58 (18663)
<COND (<G? ,QUESTION-WORD-COUNT 4 ;9>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-76 (19282)
Now you can try again.)" CR>)
(T <TELL ", not statements or questions.)" CR>)>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-67 (18970)
Now you can try again">)
(T <TELL ", not statements or questions">)>
<TELL ".)" CR>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-101 (20351)
PISS SCREW SHIT CRAP SUCK>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-93 (20053)
PISS SCREW SHIT CRAP SUCK
FUCKED GODDAMN ASSHOLE CUNT SHITHEAD SUCKS DAMNED PEE COCKSUCKER BITCH>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-108 (20605)
<EQUAL? .WORD ,W?BASTARD ,W?SCREW ,W?CRAP>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-101 (20380)
<EQUAL? .WORD ,W?BASTARD ,W?SCREW ,W?CRAP>
<EQUAL? .WORD ,W?FUCKED ,W?GODDAMN ,W?ASSHOLE>
<EQUAL? .WORD ,W?CUNT ,W?SHITHEAD ,W?SUCKS>
<EQUAL? .WORD ,W?DAMNED ,W?PEE ,W?COCKSUCKER>
<EQUAL? .WORD ,W?BITCH>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-116 (20781)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-113 (20741)
"What charming language!"
"Computers aren't impressed by naughty words!"
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-121 (20933)
<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>) (OF-FLAG <>)
LEN (DIR <>) (NW 0) (LW 0) NUM SCNT (CNT -1) OWINNER)
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
(T <PUT ,P-ITBL .CNT 0>)>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-120 (20972)
<BUZZ AGAIN G OOPS>
<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>) (OF-FLAG <>)
LEN (DIR <>) (NW 0) (LW 0) (CNT -1) OMERGED OWINNER
OLEN)
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
(T
<COND (<NOT ,P-OFLAG>
<PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>
<PUT ,P-ITBL .CNT 0>)>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-130 (21259)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-135 (21427)
<SET OMERGED ,P-MERGED>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-138 (21504)
<SETG L-WINNER ,WINNER>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-144 (21698)
;<SETG L-WINNER ,WINNER>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-144 (21734)
<COND (<NOT <ZERO? ,P-CONT>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-150 (21929)
<COND (,RESERVE-PTR
<SET PTR ,RESERVE-PTR>
<STUFF ,P-LEXV ,RESERVE-LEXV>
<COND (<AND <EQUAL? ,VERBOSE 1 2>
<==? ,PLAYER ,WINNER>>
<CRLF>)>
<SETG RESERVE-PTR <>>
<SETG P-CONT <>>)
(<NOT <ZERO? ,P-CONT>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-153 (21999)
<SETG L-WINNER ,WINNER>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-167 (22436)
;<SETG L-WINNER ,WINNER>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-171 (22689)
;<==? <SETG P-PROMPT <- ,P-PROMPT 1>> 0>
<TELL "(You won't see \"What next?\" any more.)|
">
;<COND (<VERB? ;WAIT WAIT-FOR WAIT-UNTIL>
<CRLF>)>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-185 (23127)
<TELL
"(You won't see \"What next?\" any more.)|
">)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-179 (22951)
<STATUS-LINE>
<TELL ">">
<READ ,P-INBUF ,P-LEXV>)>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-191 (23271)
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<PROG ()
<STATUS-LINE>
<TELL ">">>)
(T
'<TELL ">">)>
<READ ,P-INBUF ,P-LEXV>
<SET OLEN <GETB ,P-LEXV ,P-LEXWORDS>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-196 (23742)
<COND (<0? ,P-LEN> <TELL "I beg your pardon?" CR> <RFALSE>)>
<SET LEN ,P-LEN>
<SETG P-DIR <>>
<SETG P-NCN 0>
<SETG P-GETFLAGS 0>
;"3/25/83: Next statement added."
<PUT ,P-ITBL ,P-VERBN 0>
<REPEAT ()
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-213 (24226)
<COND (<0? ,P-LEN> <TELL "I beg your pardon?" CR> <RFALSE>)
(<EQUAL? <GET ,P-LEXV .PTR> ,W?OOPS>
<COND (<NOT <G? ,P-LEN 1>>
<TELL "I can't help your clumsiness." CR>
<RFALSE>)
(<GET ,OOPS-TABLE ,O-PTR>
<PUT ,AGAIN-LEXV <GET ,OOPS-TABLE ,O-PTR>
<GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
<INBUF-ADD <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 6>>
<GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 7>>
<+ <* <GET ,OOPS-TABLE ,O-PTR> ,P-LEXELEN> 3>>
<STUFF ,P-LEXV ,AGAIN-LEXV>
<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>;"Will this help?"
<SET PTR <GET ,OOPS-TABLE ,O-START>>
<INBUF-STUFF ,P-INBUF ,OOPS-INBUF>)
(T
<PUT ,OOPS-TABLE ,O-END <>>
<TELL "There was no word to replace!" CR>
<RFALSE>)>)
(T <PUT ,OOPS-TABLE ,O-END <>>)>
<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?AGAIN ,W?G>
<COND (,P-OFLAG
<TELL "It's difficult to repeat fragments." CR>
<RFALSE>)
(<G? ,P-LEN 1>
<COND (<OR <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
,W?PERIOD ,W?COMMA ,W?THEN>
<EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
,W?AND>>
<SET PTR <+ .PTR <* 2 ,P-LEXELEN>>>
<PUTB ,P-LEXV ,P-LEXWORDS
<- <GETB ,P-LEXV ,P-LEXWORDS> 2>>)
(T
<TELL "I couldn't understand that sentence." CR>
<RFALSE>)>)
(T
<SET PTR <+ .PTR ,P-LEXELEN>>
<PUTB ,P-LEXV ,P-LEXWORDS
<- <GETB ,P-LEXV ,P-LEXWORDS> 1>>)>
<COND (<G? <GETB ,P-LEXV ,P-LEXWORDS> 0>
<STUFF ,RESERVE-LEXV ,P-LEXV>
<SETG RESERVE-PTR .PTR>)
(T
<SETG RESERVE-PTR <>>)>
;<SETG P-LEN <GETB ,AGAIN-LEXV ,P-LEXWORDS>>
<SETG WINNER .OWINNER>
<SETG P-MERGED .OMERGED>
<INBUF-STUFF ,P-INBUF ,OOPS-INBUF>
<STUFF ,P-LEXV ,AGAIN-LEXV>
<SET CNT -1>
<SET DIR ,P-WALK-DIR>
<REPEAT ()
<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
(T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>)
(T
<STUFF ,AGAIN-LEXV ,P-LEXV>
<INBUF-STUFF ,OOPS-INBUF ,P-INBUF>
<PUT ,OOPS-TABLE ,O-START .PTR>
<PUT ,OOPS-TABLE ,O-LENGTH <* 4 .OLEN>>
<SETG RESERVE-PTR <>>
<SET LEN ,P-LEN>
<SETG P-DIR <>>
<SETG P-NCN 0>
<SETG P-GETFLAGS 0>
;"3/25/83: Next statement added."
<PUT ,P-ITBL ,P-VERBN 0>
<REPEAT ()
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-226 (24687)
(<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
<EQUAL? .WRD ,W?QUOTE>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-302 (27443)
(<EQUAL? .WRD ,W?THEN ,W?PERIOD ,W?QUOTE>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-276 (26283)
<SET NUM
<+ <* .PTR 2> 2>>>>
<PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .NUM 1>>>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-351 (29013)
<SET ?TMP1
<+ <* .PTR 2> 2>>>>
<PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .?TMP1 1>>>)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 4-343 (28348)
<SET PTR <+ .PTR ,P-LEXELEN>>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 3-418 (31082)
<SET PTR <+ .PTR ,P-LEXELEN>>>)>
<PUT ,OOPS-TABLE ,O-PTR <>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 5-2 (28917)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 4-2 (31685)
"For AGAIN purposes, put contents of one LEXV table into another:"
<ROUTINE STUFF (DEST SRC "OPTIONAL" (MAX 29) "AUX" (PTR ,P-LEXSTART) (CTR 1)
BPTR)
<PUTB .DEST 0 <GETB .SRC 0>>
<PUTB .DEST 1 <GETB .SRC 1>>
<REPEAT ()
<PUT .DEST .PTR <GET .SRC .PTR>>
<SET BPTR <+ <* .PTR 2> 2>>
<PUTB .DEST .BPTR <GETB .SRC .BPTR>>
<SET BPTR <+ <* .PTR 2> 3>>
<PUTB .DEST .BPTR <GETB .SRC .BPTR>>
<SET PTR <+ .PTR ,P-LEXELEN>>
<COND (<IGRTR? CTR .MAX>
<RETURN>)>>>
"Put contents of one INBUF into another:"
<ROUTINE INBUF-STUFF (DEST SRC "AUX" (CNT -1))
<REPEAT ()
<COND (<IGRTR? CNT 59> <RETURN>)
(T <PUTB .DEST .CNT <GETB .SRC .CNT>>)>>>
"Put the word in the positions specified from P-INBUF to the end of
OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV:"
<ROUTINE INBUF-ADD (LEN BEG SLOT "AUX" DBEG (CTR 0) TMP)
<COND (<SET TMP <GET ,OOPS-TABLE ,O-END>>
<SET DBEG .TMP>)
(T
<SET DBEG <+ <GETB ,AGAIN-LEXV
<SET TMP <GET ,OOPS-TABLE ,O-LENGTH>>>
<GETB ,AGAIN-LEXV <+ .TMP 1>>>>)>
<PUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
<REPEAT ()
<PUTB ,OOPS-INBUF <+ .DBEG .CTR> <GETB ,P-INBUF <+ .BEG .CTR>>>
<SET CTR <+ .CTR 1>>
<COND (<EQUAL? .CTR .LEN> <RETURN>)>>
<PUTB ,AGAIN-LEXV .SLOT .DBEG>
<PUTB ,AGAIN-LEXV <- .SLOT 1> .LEN>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 5-18 (29639)
;#DECL ((PTR VAL OFF NUM) FIX (WRD NW) <OR FALSE FIX TABLE>
(ANDFLG FIRST??) <OR ATOM FALSE>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 4-59 (33766)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 6-24 (36837)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 5-24 (40859)
<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>> ;"? DELETE?"
<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
<COND (<ZERO? ,P-NCN> ;"? DELETE?"
<SETG P-NCN 1>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 6-36 (37254)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 5-40 (41449)
<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>> ;"? DELETE?"
<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 6-87 (38823)
"New ACLAUSE-WIN for TRAP retrofix 6/21/84"
<ROUTINE ACLAUSE-WIN (ADJ)
<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
<CLAUSE-COPY ,P-OTBL ,P-OTBL ,P-ACLAUSE <+ ,P-ACLAUSE 1>
,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
;"<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 5-93 (43124)
<ROUTINE ACLAUSE-WIN (ADJ "AUX" X)
<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
<SET X <+ ,P-ACLAUSE 1>>
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<CLAUSE-COPY ,P-OTBL ,P-OTBL ,P-ACLAUSE .X ,P-ACLAUSE .X .ADJ>)
(T
'<PROG ()
<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-SEPTR .X>
<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-DEPTR .X>
<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 6-103 (39369)
<CLAUSE-COPY ,P-ITBL ,P-OTBL ,P-NC1 ,P-NC1L
,P-ACLAUSE <+ ,P-ACLAUSE 1>>
;"<PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
<CLAUSE-COPY ,P-ITBL ,P-OTBL>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 5-110 (43715)
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<CLAUSE-COPY ,P-ITBL ,P-OTBL ,P-NC1 ,P-NC1L
,P-ACLAUSE <+ ,P-ACLAUSE 1>>)
(T
'<PROG ()
<PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
<CLAUSE-COPY ,P-ITBL ,P-OTBL>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 7-2 (39741)
"Print undefined word in input.
PTR points to the unknown word in P-LEXV"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 6-2 (44207)
"Print undefined word in input. PTR points to the unknown word in P-LEXV:"
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 7-25 (40401)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 6-24 (44864)
<PUT ,OOPS-TABLE ,O-PTR .PTR>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 7-52 (41477)
<GLOBAL P-SLOCBITS 0>
<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>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 6-53 (45974)
<GLOBAL P-SLOCBITS 0>
<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>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 9-13 (45365)
<CLAUSE-COPY ,P-ITBL ,P-OTBL ,P-NC2 ,P-NC2L ,P-NC2 ,P-NC2L>
;"<PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
<PUT ,P-CCTBL ,CC-DBPTR ,P-NC2>
<PUT ,P-CCTBL ,CC-DEPTR ,P-NC2L>
<CLAUSE-COPY ,P-ITBL ,P-OTBL>")>
<COND (<NOT <L? ,P-NCN 1>>
<CLAUSE-COPY ,P-ITBL ,P-OTBL ,P-NC1 ,P-NC1L ,P-NC1 ,P-NC1L>
;"<PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
<PUT ,P-CCTBL ,CC-DBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-DEPTR ,P-NC1L>
<CLAUSE-COPY ,P-ITBL ,P-OTBL>")>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 8-13 (49820)
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<CLAUSE-COPY ,P-ITBL ,P-OTBL
,P-NC2 ,P-NC2L ,P-NC2 ,P-NC2L>)
(T
'<PROG ()
<PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
<PUT ,P-CCTBL ,CC-DBPTR ,P-NC2>
<PUT ,P-CCTBL ,CC-DEPTR ,P-NC2L>
<CLAUSE-COPY ,P-ITBL ,P-OTBL>>)>)>
<COND (<NOT <L? ,P-NCN 1>>
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<CLAUSE-COPY ,P-ITBL ,P-OTBL
,P-NC1 ,P-NC1L ,P-NC1 ,P-NC1L>)
(T
'<PROG ()
<PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
<PUT ,P-CCTBL ,CC-DBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-DEPTR ,P-NC1L>
<CLAUSE-COPY ,P-ITBL ,P-OTBL>>)>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 9-116 (48910)
"<GLOBAL P-CCTBL <TABLE 0 0 0 0>>"
"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
"<CONSTANT CC-SBPTR 0>
<CONSTANT CC-SEPTR 1>
<CONSTANT CC-DBPTR 2>
<CONSTANT CC-DEPTR 3>"
;<ROUTINE CLAUSE-COPY (SRC DEST "OPTIONAL" (INSRT <>) "AUX" BEG END)
<SET BEG <GET .SRC <GET ,P-CCTBL ,CC-SBPTR>>>
<SET END <GET .SRC <GET ,P-CCTBL ,CC-SEPTR>>>
<PUT .DEST
<GET ,P-CCTBL ,CC-DBPTR>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 8-124 (53579)
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<ROUTINE CLAUSE-COPY (SRC DEST SRCBEG SRCEND DESTBEG DESTEND
"OPTIONAL" (INSRT <>) "AUX" BEG END)
<SET BEG <GET .SRC .SRCBEG>>
<SET END <GET .SRC .SRCEND>>
<PUT .DEST .DESTBEG
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 9-131 (49424)
<COND (<==? .BEG .END>
<PUT .DEST
<GET ,P-CCTBL ,CC-DEPTR>
<REST ,P-OCLAUSE
<+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
2>>>
<RETURN>)
(T
<COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
<CLAUSE-ADD .INSRT>)>
<CLAUSE-ADD <GET .BEG 0>>)>
<SET BEG <REST .BEG ,P-WORDLEN>>>>
<ROUTINE CLAUSE-COPY (SRC DEST SRCBEG SRCEND DESTBEG DESTEND
"OPTIONAL" (INSRT <>) "AUX" BEG END)
<SET BEG <GET .SRC .SRCBEG>>
<SET END <GET .SRC .SRCEND>>
<PUT .DEST .DESTBEG
<REST ,P-OCLAUSE
<+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
<REPEAT ()
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 8-133 (53916)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 10-2 (50396)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 8-143 (54225)
)(T
"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
'(
<CONSTANT CC-SBPTR 0>
<CONSTANT CC-SEPTR 1>
<CONSTANT CC-DBPTR 2>
<CONSTANT CC-DEPTR 3>
<GLOBAL P-CCTBL <TABLE 0 0 0 0>>
<ROUTINE CLAUSE-COPY (SRC DEST "OPTIONAL" (INSRT <>) "AUX" BEG END)
<SET BEG <GET .SRC <GET ,P-CCTBL ,CC-SBPTR>>>
<SET END <GET .SRC <GET ,P-CCTBL ,CC-SEPTR>>>
<PUT .DEST
<GET ,P-CCTBL ,CC-DBPTR>
<REST ,P-OCLAUSE
<+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
<REPEAT ()
<COND (<==? .BEG .END>
<PUT .DEST
<GET ,P-CCTBL ,CC-DEPTR>
<REST ,P-OCLAUSE
<+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
2>>>
<RETURN>)
(T
<COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
<CLAUSE-ADD .INSRT>)>
<CLAUSE-ADD <GET .BEG 0>>)>
<SET BEG <REST .BEG ,P-WORDLEN>>>>
))>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 11-18 (52884)
<GLOBAL P-NAM <>>
<GLOBAL P-XNAM <>>
<GLOBAL P-ADJ <>>
<GLOBAL P-XADJ <>>
"<GLOBAL P-ADJN <>>
<GLOBAL P-XADJN <>>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 10-18 (57608)
<GLOBAL P-NAM <>>
<GLOBAL P-XNAM <>>
<GLOBAL P-ADJ <>>
<GLOBAL P-XADJ <>>
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>)
(T
'(<GLOBAL P-ADJN <>>
<GLOBAL P-XADJN <>>))>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 12-7 (53462)
"AUX" (BUT <>) LEN WV WRD NW (WAS-ALL <>) TMP ONEOBJ)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 11-7 (58240)
"AUX" (BUT <>) LEN WV WRD NW (WAS-ALL <>) ONEOBJ)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 12-20 (53855)
<SET TMP <GET-OBJECT <OR .BUT .TBL>>>
<COND (.WAS-ALL <SETG P-GETFLAGS ,P-ALL>)>
<RETURN .TMP>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 11-20 (58629)
<SET WV <GET-OBJECT <OR .BUT .TBL>>>
<COND (.WAS-ALL <SETG P-GETFLAGS ,P-ALL>)>
<RETURN .WV>)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 12-55 (54967)
(<AND <WT? .WRD ,PS?ADJECTIVE>
<NOT ,P-ADJ>>
<SETG P-ADJ .WRD>)
;(<AND <SET WV <WT? .WRD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
<NOT ,P-ADJ>>
<SETG P-ADJ .WV>
<SETG P-ADJN .WRD>)
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 11-55 (59739)
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'(<AND <WT? .WRD ,PS?ADJECTIVE>
<NOT ,P-ADJ>>
<SETG P-ADJ .WRD>))
(T
'(<AND <SET WV <WT? .WRD ,PS?ADJECTIVE
,P1?ADJECTIVE>>
<NOT ,P-ADJ>>
<SETG P-ADJ .WV>
<SETG P-ADJN .WRD>))>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 12-69 (55368)
<CONSTANT SH 128>
<CONSTANT SC 64>
<CONSTANT SIR 32>
<CONSTANT SOG 16>
<CONSTANT STAKE 8>
<CONSTANT SMANY 4>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 11-72 (60231)
<CONSTANT SH 128>
<CONSTANT SC 64>
<CONSTANT SIR 32>
<CONSTANT SOG 16>
<CONSTANT STAKE 8>
<CONSTANT SMANY 4>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 13-11 (55934)
<SET ADJ ,P-ADJ ;N>
<COND (<AND <NOT ,P-NAM> ,P-ADJ>
<COND (<WT? ,P-ADJ ;N ,PS?OBJECT ;,P1?OBJECT>
<SETG P-NAM ,P-ADJ ;N>
<SETG P-ADJ <>>)
(<SET BTS <WT? ,P-ADJ ;N ,PS?DIRECTION ,P1?DIRECTION>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 12-11 (60762)
<SET ADJ %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
',P-ADJ)
(T
',P-ADJN)>>
<COND (<AND <NOT ,P-NAM> ,P-ADJ>
<COND (<WT? %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
',P-ADJ)
(T ',P-ADJN)>
,PS?OBJECT>
<SETG P-NAM %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
',P-ADJ)
(T ',P-ADJN)>>
<SETG P-ADJ <>>)
(<SET BTS <WT? %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
',P-ADJ)
(T ',P-ADJN)>
,PS?DIRECTION ,P1?DIRECTION>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 13-69 (57809)
<SETG P-ADJ <>>
;<SETG P-ADJN <>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 12-80 (62948)
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<SETG P-ADJ <>>)
(T
'<PROG ()
<SETG P-ADJ <>>
<SETG P-ADJN <>>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 13-96 (58566)
<SETG P-XADJ ,P-ADJ>
;<SETG P-XADJN ,P-ADJN>
<SETG P-NAM <>>
<SETG P-ADJ <>>
;<SETG P-ADJN <>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 12-111 (63830)
<SETG P-NAM <>>
%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<PROG ()
<SETG P-XADJ ,P-ADJ>
<SETG P-ADJ <>>>)
(T
'<PROG ()
<SETG P-XADJ ,P-ADJ>
<SETG P-XADJN ,P-ADJN>
<SETG P-ADJ <>>
<SETG P-ADJN <>>>)>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 13-122 (59358)
(<EQUAL? .V ,V?YES ,V?TALK-ABOUT> <RTRUE>)
(<EQUAL? .V ,V?ASK-CONTEXT-ABOUT ,V?ASK-CONTEXT-FOR> <RTRUE>)>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 12-143 (64801)
(<EQUAL? .V ,V?YES ,V?TALK-ABOUT ,V?ANSWER> <RTRUE>)
(<EQUAL? .V ,V?ASK-CONTEXT-ABOUT ,V?ASK-CONTEXT-FOR ,V?REPLY>
<RTRUE>)>>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 13-179 (61065)
"<GLOBAL P-MOBY-FLAG <>>"
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 12-202 (66536)
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 14-63 (64082)
<CONSTANT P-SRCBOT 2>
<CONSTANT P-SRCTOP 0>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 13-63 (69524)
<CONSTANT P-SRCBOT 2>
<CONSTANT P-SRCTOP 0>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 14-84 (64752)
<OR <FSET? .OBJ ,OPENBIT>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 13-82 (70182)
<OR .MOBY-FLAG <SEE-INSIDE? .OBJ>>
;<OR <FSET? .OBJ ,OPENBIT>
***************
**** FILE PS:<CHECKPOINT>PARSER.ZIL.151, 14-106 (65485)
<NOT <ZMEMQ ;B ,P-ADJ .SYNS <RMGL-SIZE .SYNS>>>>>
**** FILE PS:<CHECKPOINT>PARSER.ZIL.170, 13-105 (70959)
<NOT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
'<ZMEMQ ,P-ADJ .SYNS <RMGL-SIZE .SYNS>>)
(T
'<ZMEMQB ,P-ADJ .SYNS <RMGL-SIZE .SYNS>>)>>>>
***************
Reference in a new issue View git blame Copy permalink