Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / bophac.mud.3

diff --git a/<mdl.comp>/bophac.mud.3 b/<mdl.comp>/bophac.mud.3
new file mode 100644 (file)
index 0000000..1475eb1
--- /dev/null
+++ b/<mdl.comp>/bophac.mud.3
@@ -0,0 +1,27 @@
+
+<FLOAD "PS:<COMPIL>NT.NBIN">
+
+<SETG OPLEN 836>
+
+<DEFINE BEGIN-HACK (SNM
+                   "AUX" (CH1 <OPEN "READB" "PS:<COMPIL>OPS.VEC">)
+                         (CH2 <OPEN "READB" "PS:<COMPIL>OPS.OVEC">))
+       #DECL ((SNM) <SPECIAL STRING>)
+       <READB <SETG OPT <IUVECTOR ,OPLEN>> .CH1>
+       <READB <SETG OOPT <IUVECTOR ,OPLEN>> .CH2>
+       <SET READ-TABLE <SETG  READ-TABLE <IVECTOR 128 0>>>
+       <PUT .READ-TABLE <+ <ASCII !"`> 1> ,OPCS>
+       <PRINTTYPE OPCODE!-OP ,OUTPUT-OPCODE>
+       <CLOSE .CH1>
+       <CLOSE .CH2>
+       T>
+
+<DEFINE END-HACK ()
+       <GUNASSIGN OPT>
+       <GUNASSIGN READ-TABLE>
+       <UNASSIGN READ-TABLE>
+       <GUNASSIGN OOPT>
+       <PRINTTYPE OPCODE!-OP ,PRINT>
+       T>
+
+ \f
\ No newline at end of file