<mdl.comp>/bophac.mud.3

   1
   2 <FLOAD "PS:<COMPIL>NT.NBIN">
   3
   4 <SETG OPLEN 836>
   5
   6 <DEFINE BEGIN-HACK (SNM
   7                     "AUX" (CH1 <OPEN "READB" "PS:<COMPIL>OPS.VEC">)
   8                           (CH2 <OPEN "READB" "PS:<COMPIL>OPS.OVEC">))
   9         #DECL ((SNM) <SPECIAL STRING>)
  10         <READB <SETG OPT <IUVECTOR ,OPLEN>> .CH1>
  11         <READB <SETG OOPT <IUVECTOR ,OPLEN>> .CH2>
  12         <SET READ-TABLE <SETG  READ-TABLE <IVECTOR 128 0>>>
  13         <PUT .READ-TABLE <+ <ASCII !"`> 1> ,OPCS>
  14         <PRINTTYPE OPCODE!-OP ,OUTPUT-OPCODE>
  15         <CLOSE .CH1>
  16         <CLOSE .CH2>
  17         T>
  18
  19 <DEFINE END-HACK ()
  20         <GUNASSIGN OPT>
  21         <GUNASSIGN READ-TABLE>
  22         <UNASSIGN READ-TABLE>
  23         <GUNASSIGN OOPT>
  24         <PRINTTYPE OPCODE!-OP ,PRINT>
  25         T>
  26
  27  \f