Zork source code from 1979.

src/zork/build.cmd

@@ -0,0 +1,145 @@
+MARC MARC
+‡
+CONN <ZORK>
+<MDL>MDL104
+<RESTORE "<MDL>M104UNI">
+<SNAME "ZORK">
+<FLOAD "LITLPK.GBIN">
+<USE "CLEAN" "PURITY">
+<SETG NULL!- <INSERT <STRING <ASCII 127>> <ROOT>>>
+%%<BLOCK (<MOBLIST FROBOZZ> <GET INITIAL OBLIST> <ROOT>)>
+<DEFINE GL (FILE "AUX" VAL (CH <OPEN "READ" .FILE>) L)
+  <SET L
+     <MAPF ,LIST
+	   <FUNCTION ()
+	     <SET VAL <READ .CH '<MAPSTOP>>>
+	     <EVAL .VAL>
+	     .VAL>>>
+  <SET <SET VAL <PARSE <7 .CH>>> .L>
+  .VAL>
+<DEFINE FLUSHG (ATM "AUX" (G ..ATM))
+  <MAPF <>
+    <FUNCTION (X)
+      <COND (<AND <TYPE? .X FORM>
+		  <G? <LENGTH .X> 2>
+		  <MEMQ <1 .X> '![SETG DEFMAC DEFINE]>>
+	     <AND <MANIFEST? <2 .X>>
+		  <UNMANIFEST <2 .X>>>
+	     <GUNASSIGN <2 .X>>)>>
+    .G>
+  <UNASSIGN <REMOVE .ATM>>>
+%%<ENDBLOCK>
+<GL!-FROBOZZ "PRIM.NBIN">
+<GL!-FROBOZZ "MAKSTR.NBIN">
+<FLOAD "ZORK.XGBIN">
+<FLUSHG!-FROBOZZ PRIM>
+<FLUSHG!-FROBOZZ MAKSTR>
+<FLOAD "TYPHAK.NBIN">
+<MAPF <> <FUNCTION (X)
+		   <MAPF <> <FUNCTION (X)
+				      <COND (<GBOUND? .X> <PUT-DECL <GLOC .X> ANY>)>>
+			 .X>>
+      <GET INITIAL OBLIST>>
+<CLEANUP>
+<PRINT-CLEANUP>
+%%<SET X ,PURELST>
+<GROUP-PURIFY X>
+<GL!-FROBOZZ "PRIM.NBIN">
+<GL!-FROBOZZ "MAKSTR.NBIN">
+<FLOAD "DUNG">
+<SETG END-GAME-EXISTS? T>
+%%<BLOCK (<GET FROBOZZ OBLIST> <GET INITIAL OBLIST> <ROOT>)>
+<DEFINE ROOM-FROB (RM L "AUX" TL)
+  <COND (<SET TL <MEMBER <RDESC1 .RM> .L>>
+	 <PUT .RM ,RDESC1 <1 .TL>>)
+	(<SET L (<RDESC1 .RM> !.L)>)>
+  <COND (<SET TL <MEMBER <RDESC2 .RM> .L>>
+	 <PUT .RM ,RDESC2 <1 .TL>>)
+	(<SET L (<RDESC2 .RM> !.L)>)>
+  <MAPR <>
+    <FUNCTION (Y "AUX" (X <1 .Y>))
+      <COND (<AND <TYPE? .X CEXIT> <CXSTR .X>>
+	     <COND (<SET TL <MEMBER <CXSTR .X> .L>>
+		    <PUT .X ,CXSTR <1 .TL>>)
+		   (<SET L (<CXSTR .X> !.L)>)>)
+	    (<AND <TYPE? .X DOOR> <DSTR .X>>
+	     <COND (<SET TL <MEMBER <DSTR .X> .L>>
+		    <PUT .X ,DSTR <1 .TL>>)
+		   (<SET L (<DSTR .X> !.L)>)>)
+	    (<TYPE? .X NEXIT>
+	     <COND (<SET TL <MEMBER .X .L>>
+		    <PUT .Y 1 <1 .TL>>)
+		   (<SET L (.X !.L)>)>)>>
+    <REXITS .RM>>
+  .L>
+<DEFINE OBJECT-FROB (OBJ L "AUX" TL TEMP)
+  <COND (<SET TL <MEMBER <ODESC1 .OBJ> .L>>
+	 <OPUT .OBJ ODESC1 <1 .TL>>)
+	(<SET L (<ODESC1 .OBJ> !.L)>)>
+  <COND (<SET TL <MEMBER <ODESC2 .OBJ> .L>>
+	 <PUT .OBJ ,ODESC2 <1 .TL>>)
+	(<SET L (<ODESC2 .OBJ> !.L)>)>
+  <COND (<SET TL <MEMBER <ODESCO .OBJ> .L>>
+	 <OPUT .OBJ ODESCO <1 .TL>>)
+	(<SET L (<ODESCO .OBJ> !.L)>)>
+  <COND (<SET TEMP <OREAD .OBJ>>
+	 <SET L (.TEMP !.L)>)>
+  <COND (<SET TEMP <OFMSGS .OBJ>>
+	 <SET L (.TEMP !.L)>)>
+  .L>
+%%<ENDBLOCK>
+<GL!-FROBOZZ "DISP1.GBIN">
+<DISPATCH-HACK>
+<FLUSHG!-FROBOZZ PRIM>
+<FLUSHG!-FROBOZZ MAKSTR>
+<FLUSHG!-FROBOZZ DISP1>
+<SET Y ()>
+<SETG FF "; \\\"Dungeon\\\"">
+%%<MAPF <>
+  <FUNCTION (X)
+    <SET Y <ROOM-FROB!-FROBOZZ .X .Y>>>
+  ,ROOMS>
+%%<MAPF <>
+  <FUNCTION (X)
+    <SET Y <OBJECT-FROB!-FROBOZZ .X .Y>>>
+  ,OBJECTS>
+%%<PUT <PUT FROBOZZ OBLIST> OBLIST>
+%%<MAPR <>
+	<FUNCTION (X)
+	  <PUT .X 1 ,<1 .X>>>
+	,PURE-LIST>
+%%<PUTREST <REST ,PURE-LIST <- <LENGTH ,PURE-LIST> 1>> .Y>
+%%<SET Y <IVECTOR <LENGTH ,PURE-LIST>>>
+%%<MAPR <>
+  <FUNCTION (X Y)
+	<PUT .X 1 <1 .Y>>>
+  .Y ,PURE-LIST>
+%%<SETG PURE-LIST .Y>
+<UNASSIGN <REMOVE Y>>
+<LENGTH ,PURE-LIST>
+%%<PURIFY ,PURE-LIST ,DISPATCH-TABLE>
+<KILL:PURITY>
+<FLUSH-CLEANUP>
+<UNASSIGN X>
+<REMOVE <GUNASSIGN PURE-LIST>>
+<REMOVE <UNASSIGN FOO>>
+<DEFINE F (BAR) <GUNASSIGN <REMOVE .BAR>>>
+<F DROP>
+<F L-UNUSE>
+<F USE>
+<F ENTRY>
+<F PACKAGE>
+<F ENDPACKAGE>
+<F FIND/LOAD>
+<F F>
+<HANDLER <GET ERROR!-INTERRUPTS INTERRUPT> ,ERRH>
+<SETG MUD-HAND <OFF <3 <GET ,INCHAN INTERRUPT>>>>
+<SETG ZORK-HAND <OFF <HANDLER <GET ,INCHAN INTERRUPT> ,CTRL-S>>>
+<GC 0 T>
+<SETG DBG <>>
+<GC-MON T>
+<BLOAT 0 0 0 0 0 300>
+<SAVE-IT "<TAA>MADADV.SAVE" <>>
+<QUIT>
+DEL ZORK.XGBIN
+EXP