Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / mudhak.mud.2

diff --git a/<mdl.comp>/mudhak.mud.2 b/<mdl.comp>/mudhak.mud.2
new file mode 100644 (file)
index 0000000..afa1c73
--- /dev/null
+++ b/<mdl.comp>/mudhak.mud.2
@@ -0,0 +1,17 @@
+
+<FLOAD "PS:<COMPIL>MUDREF.NBIN">
+
+<DEFINE BEGIN-MHACK ()
+       <SET READ-TABLE <SETG READ-TABLE 
+                         <COND (<GASSIGNED? READ-TABLE> ,READ-TABLE)
+                               (ELSE <IVECTOR 128 0>)>>>
+       <PUT .READ-TABLE <+ <ASCII !"|> 1> ,MUDREFIN>
+       <PRINTTYPE MUDREF!-OP ,OUTPUT-MUDREF>
+       T>
+
+<DEFINE END-MHACK ()
+       <PUT ,READ-TABLE <+ <ASCII !"|> 1> 0>
+       <PRINTTYPE MUDREF!-OP ,PRINT>
+       T>
+
+ \f
\ No newline at end of file