2 <FLOAD "PS:<COMPIL>NT.NBIN">
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>
21 <GUNASSIGN READ-TABLE>
24 <PRINTTYPE OPCODE!-OP ,PRINT>