X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fbophac.mud.3;fp=%3Cmdl.comp%3E%2Fbophac.mud.3;h=1475eb166b3095f10d608b2036353bb93591902c;hp=0000000000000000000000000000000000000000;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9

diff --git a/<mdl.comp>/bophac.mud.3 b/<mdl.comp>/bophac.mud.3
new file mode 100644
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>
+
+ 
\ No newline at end of file