      JMP INIT4     YES,INVALID 
      LDA TEMP7     NO,TRYING TO
      ADA M4         USE MODULE#>3? 
      SSA 
      JMP INIT7     NO,OK 
INIT4 EQU * 
      CLB           YES,INVALID 
      LDA TEMP0     LOAD BAD ENTRY
HLT53 HLT 53B 
      JMP CONF+1    TRY AGAIN 
CONF2 EQU * 
      LDA TEMP7 
      ADA M3        TRYING TO USE 
      SSA            MODULE #<3?
      JMP CONF3     YES,INVALID 
      LDA TEMP7     NO
      ADA M16       TRYING TO USE 
      SSA            MODULE #>15(OCTAL)?
      JMP INIT7          NO,OK
CONF3 EQU * 
      CLB           YES,INVALID 
      LDA TEMP0     LOAD BAD ENTRY
HLT52 HLT 52B 
      JMP CONF+1    TRY AGAIN 
INIT7 EQU * 
      LDA TEMP0     STORE CURRENT 
      AND MASK6      CONTROL STORE
      ALF             MODULE #
      STA MOD 
      LDA IOTAB 
      STA TEMP0 
INIT3 EQU * 
      LDA TEMP0     FORM
      LDB A,I        SELECT 
      LDA B,I          CODE 
      AND MASK4        INTO 
      IOR SC            APPLICABLE
      STA B,I             I/O 
      LDB TEMP0           INSTRUCTIONS
      INB 
      STB TEMP0 
      CPB IOEND 
      RSS 
      JMP INIT3 
      JMP CONF,I
      HED ERROR AND MESSAGE TABLES,WORK BUFFER
* 
*     *   ERROR TABLE   * 
* 
      ORG 4000B 
ERTAB DEF *+1 
      NOP           HEADING 
      DEF E001+1    E001
      DEF E002+1    E002
      DEF E003+1    E003
      DEF E004+1    E0XX XX=STEP #(4 THRU 16) 
      DEF E005+1    E0YY YY=STEP #(17 THRU 22)
      NOP           H030
      DEF E007+1    E0ZZ ZZ=STEP #(17 THRU 22)
      NOP           PASS COUNT MESSAGE
      NOP           H031
      DEF E010+1    E016
* 
*     *   MESSAGE TABLE  *
* 
TABLE DEF *+1 
      DEF MSG0
      DEF MSG1
      DEF MSG2
      DEF MSG3
MS4   DEF MSG4
      DEF MSG5
      DEF MSG6
      DEF MSG7
      DEF MSG8
      DEF MSG9
      DEF MSG10 
* 
*     *   WORK AREA FOR MESSAGE PARAMETERS   *
* 
OCTA1 BSS 1 
OCTA2 BSS 2 
OCTA3 BSS 3 
      HED 2100 MICROCODE MODIFICATION TABLE 
* 
*     *   2100 MICROCODE MODIFICATION TABLE   * 
* 
MI00A OCT 377       JMP *+16
MI00B OCT 27420 
      OCT 777       JMP  TSTM1
      OCT 27430 
      OCT 1377      JMP  TSTM2
      OCT 27540 
      OCT 1777      JMP  FORM 
      OCT 27775 
      OCT 2377      JMP  FORM 
      OCT 27775 
      OCT 2777      JMP  LOOP 
      OCT 27700 
      OCT 3375      JMP  *+256
      OCT 37406 
      OCT 3775      JMP  *+256
      OCT 37407 
      OCT 4375      JMP  *+256
      OCT 37410 
      OCT 4775      JMP  *+256
      OCT 37411 
      OCT 5375      JMP  *+256
      OCT 37412 
      OCT 5777      JMP  *+512
      OCT 37413 
      OCT 6377      JMP  *+512
      OCT 37414 
      OCT 6777      JMP  *+512
      OCT 37415 
      OCT 7377      JMP  *+512
      OCT 37416 
      OCT 7777      JMP  *+512
      OCT 37417 
      OCT 40377     JMP GOOF
      OCT 27640 
      OCT 40777     JMP TSTM3 
      OCT 27600 
      OCT 41377     JMP GOOF
      OCT 27640 
      OCT 41777     JMP GOOF
      OCT 27640 
      OCT 42377     JMP GOOF
      OCT 27640 
      OCT 42777     JMP GOOF
      OCT 27640 
      OCT 43377     JMP TSTM3 
      OCT 27600 
      OCT 43777     JMP GOOF
      OCT 27640 
      OCT 44377     JMP TSTM3 
      OCT 27600 
      OCT 44777     JMP GOOF
      OCT 27640 
      OCT 45377     JMP GOOF
      OCT 27640 
      OCT 45777     JMP GOOF
      OCT 27640 
      OCT 46377     JMP GOOF
      OCT 27640 
      OCT 46777     JMP TSTM3 
      OCT 27600 
      OCT 47377     JMP GOOF
      OCT 27640 
      OCT 47777     JMP TSTM3 
      OCT 27600 
      OCT 176755    FORM ADR IOR S1 
      OCT 173777
      OCT 177367         S1  JMP SJMP 
      OCT 27500 
      HED 21XX MICROCODE MODIFICATION TABLE 
* 
*     *   21XX MICROCODE MODIFICATION TABLE   * 
* 
MX00A OCT 320       JMP UNCD   TSTM1
      OCT 62030 
      OCT 720       JMP UNCD   TSTM2
      OCT 64030 
      OCT 1320      JMP UNCD   GOOF 
      OCT 74030 
      OCT 1720      JMP UNCD   GOOF 
      OCT 74030 
      OCT 2320      JMP UNCD   GOOF 
      OCT 74030 
      OCT 2720      JMP UNCD   GOOF 
      OCT 74030 
      OCT 3320      JMP UNCD   GOOF 
      OCT 74030 
      OCT 3720      JMP UNCD   GOOF 
      OCT 74030 
      OCT 4320      JMP UNCD  TSTM3 
      OCT 77230 
      OCT 4720      JMP UNCD   GOOF 
      OCT 74030 
      OCT 5320      JMP UNCD   GOOF 
      OCT 74030 
      OCT 5720      JMP UNCD   GOOF 
      OCT 74030 
      OCT 6320      JMP UNCD   GOOF 
      OCT 74030 
      OCT 6720      JMP UNCD   GOOF 
      OCT 74030 
      OCT 7320      JMP UNCD   LOOP 
      OCT 70030 
      OCT 7720      JMP UNCD   TSTM3
      OCT 77230 
X375A OCT 176720    JMP CNDX TBZ  OUT 
      OCT 77771 
      HED MESSAGES
* 
*     *   MESSAGES   *
* 
      SUP 
MSG0  OCT 6412
      ASC 11,12908 WCS DIAGNOSTIC / 
MSG1  ASC 11,E001 IO BUS NOT CLEAR/ 
MSG2  ASC 09,E002 NO DMA FLAG / 
MSG3  ASC 08,E003 NO DMA INT/ 
MSG4  ASC 01,E0 
PM4AA BSS 1 
      ASC 08, BAD COMPARISON
      OCT 6412
      ASC 12,MODULE  DATA        DATA 
      OCT 6412
      ASC 14,ADDRESS READ        WRITTEN
      OCT 6412
      OCT 6412
PM4A  BSS 3 
      OCT 20040 
PM4B  BSS 5 
      OCT 20040 
PM4C  BSS 5 
PM4CE ASC 01, / 
MSG5  ASC 01,E0 
PM5   BSS 1 
      ASC 04, NO MAC/ 
MSG6  OCT 6412
      ASC 04,H030 MOD 
PM6A  BSS 1 
      ASC 02,,TST 
PM6B  BSS 1 
      ASC 03,,STEP
PM6C  BSS 1 
      ASC 01, / 
MSG7  ASC 01,E0 
PM7   BSS 1 
      ASC 05, BAD MAC / 
MSG8  ASC 03,PASS 
PM8   BSS 3 
PM8A  ASC 01, / 
MSG9  ASC 05,H031 MAC=
PM9A  BSS 3 
      OCT 6412
      ASC 02, A=
PM9B  BSS 3 
      ASC 06, SHOULD BE=
PM9C  BSS 3 
      OCT 6412
      ASC 02, B=
PM9D  BSS 3 
      ASC 06, SHOULD BE=
PM9E  BSS 3 
      ASC 01, / 
MSG10 ASC 09,E016 DMA NOT COMP/ 
      HED 2100 DIAGNOSTIC MICROCODE AREA
* 
*     *   2100 MICROPROGRAM AREA  * 
* 
X2100 EQU * 
MA000 OCT 377       JMP  *+16 
      OCT 27420 
MA001 OCT 777       JMP  TSTM1
      OCT 27430 
MA002 OCT 1377      JMP  TSTM2
      OCT 27540 
MA003 OCT 1777      JMP  FORM 
      OCT 27775 
MA004 OCT 2377      JMP  FORM 
      OCT 27775 
MA005 OCT 2777      JMP  LOOP 
      OCT 27700 
MA006 OCT 3375      JMP  *+256
      OCT 37406 
MA007 OCT 3775      JMP  *+256
      OCT 37407 
MA010 OCT 4375      JMP  *+256
      OCT 37410 
MA011 OCT 4775      JMP  *+256
      OCT 37411 
MA012 OCT 5375      JMP  *+256
      OCT 37412 
MA013 OCT 5777      JMP  *+512
      OCT 37413 
MA014 OCT 6377      JMP  *+512
      OCT 37414 
MA015 OCT 6777      JMP  *+512
      OCT 37415 
MA016 OCT 7377      JMP  *+512
      OCT 37416 
MA017 OCT 7777      JMP  *+512
      OCT 37417 
MA020 OCT 10377          CJMP OUT 
      OCT 47730 
MA021 OCT 10771     CR IOR A  0 
      OCT 177000
MA022 OCT 11373     CL IOR A  0 
      OCT 177000
MA023 OCT 11777     CJMP 0
      OCT 47730 
MA024 OCT 12371     CR IOR B  0 
      OCT 176400
MA025 OCT 12773     CL IOR B  0 
      OCT 176400
MA026 OCT 13377        IOR   EOP
      OCT 177775
MA027 OCT 13777        IOR
      OCT 177777
MA030 OCT 14377     TSTM1  IOR  EOP 
      OCT 177775
MA031 OCT 14777        IOR
      OCT 177777
MA032 OCT 15377     IOR 
      OCT 177777
      OCT 15777     IOR 
      OCT 177777
      OCT 16377     IOR 
      OCT 177777
      OCT 16777     IOR 
      OCT 177777
      OCT 17377     IOR 
      OCT 177777
      OCT 17777     IOR 
      OCT 177777
      OCT 20377     IOR 
      OCT 177777
      OCT 20777     IOR 
      OCT 177777
      OCT 21377     IOR 
      OCT 177777
      OCT 21777     IOR 
      OCT 177777
      OCT 22377     IOR 
      OCT 177777
      OCT 22777     IOR 
      OCT 177777
      OCT 23377     IOR 
      OCT 177777
      OCT 23777     IOR 
      OCT 177777
      OCT 24377     IOR 
      OCT 177777
      OCT 24777     IOR 
      OCT 177777
      OCT 25377     IOR 
      OCT 177777
      OCT 25777     IOR 
      OCT 177777
      OCT 26377     IOR 
      OCT 177777
      OCT 26777     IOR 
      OCT 177777
      OCT 27377     IOR 
      OCT 177777
      OCT 27777     IOR 
      OCT 177777
      OCT 30377     IOR 
      OCT 177777
      OCT 30777     IOR 
      OCT 177777
      OCT 31377     IOR 
      OCT 177777
      OCT 31777     IOR 
      OCT 177777
      OCT 32377     IOR 
      OCT 177777
      OCT 32777     IOR 
      OCT 177777
      OCT 33377     IOR 
      OCT 177777
      OCT 33777     IOR 
      OCT 177777
MA070 OCT 34377     CJMP OUT
      OCT 47730 
MA071 OCT 34771     CR IOR A  0 
      OCT 177000
MA072 OCT 35373     CL IOR A  0 
      OCT 177000
MA073 OCT 35777     CJMP OUT
      OCT 47730 
MA074 OCT 36371     CR IOR B  0 
      OCT 176400
MA075 OCT 36773     CL IOR B  0 
      OCT 176400
MA076 OCT 37377        IOR   EOP
      OCT 177775
MA077 OCT 37777        IOR
      OCT 177777
MA100 OCT 40377     JMP GOOF
      OCT 27640 
MA101 OCT 40777     JMP TSTM3 
      OCT 27600 
MA102 OCT 41377     JMP GOOF
      OCT 27640 
MA103 OCT 41777     JMP GOOF
      OCT 27640 
MA104 OCT 42377     JMP GOOF
      OCT 27640 
MA105 OCT 42777     JMP GOOF
      OCT 27640 
MA106 OCT 43377     JMP TSTM3 
      OCT 27600 
MA107 OCT 43777     JMP GOOF
      OCT 27640 
MA110 OCT 44377     JMP TSTM3 
      OCT 27600 
MA111 OCT 44777     JMP GOOF
      OCT 27640 
MA112 OCT 45377     JMP GOOF
      OCT 27640 
MA113 OCT 45777     JMP GOOF
      OCT 27640 
MA114 OCT 46377     JMP GOOF
      OCT 27640 
MA115 OCT 46777     JMP TSTM3 
      OCT 27600 
MA116 OCT 47377     JMP GOOF
      OCT 27640 
MA117 OCT 47777     JMP TSTM3 
      OCT 27600 
      OCT 50377     IOR 
      OCT 177777
      OCT 50777     IOR 
      OCT 177777
      OCT 51377     IOR 
      OCT 177777
      OCT 51777     IOR 
      OCT 177777
      OCT 52377     IOR 
      OCT 177777
      OCT 52777     IOR 
      OCT 177777
      OCT 53377     IOR 
      OCT 177777
      OCT 53777     IOR 
      OCT 177777
MA130 OCT 54377     CJMP OUT
      OCT 47730 
MA131 OCT 54771     CR IOR A  0 
      OCT 177000
MA132 OCT 55373     CL IOR A  0 
      OCT 177000
MA133 OCT 55777     CJMP OUT
      OCT 47730 
MA134 OCT 56371     CR IOR B  0 
      OCT 176400
MA135 OCT 56773     CL IOR B  0 
      OCT 176400
MA136 OCT 57377        IOR EOP
      OCT 177775
MA137 OCT 57777        IOR
      OCT 177777
MA140 OCT 60371     TSTM2 CR IOR A  0 
      OCT 177000
MA141 OCT 60774         P INC P  EOP
      OCT 114375
MA142 OCT 61377         IOR 
      OCT 177777
      OCT 61777     IOR 
      OCT 177777
      OCT 62377     IOR 
      OCT 177777
      OCT 62777     IOR 
      OCT 177777
      OCT 63377     IOR 
      OCT 177777
      OCT 63777     IOR 
      OCT 177777
      OCT 64377     IOR 
      OCT 177777
      OCT 64777     IOR 
      OCT 177777
      OCT 65377     IOR 
      OCT 177777
      OCT 65777     IOR 
      OCT 177777
      OCT 66377     IOR 
      OCT 177777
      OCT 66777     IOR 
      OCT 177777
      OCT 67377     IOR 
      OCT 177777
      OCT 67777     IOR 
      OCT 177777
      OCT 70377     IOR 
      OCT 177777
      OCT 70777     IOR 
      OCT 177777
      OCT 71377     IOR 
      OCT 177777
      OCT 71777     IOR 
      OCT 177777
      OCT 72377     IOR 
      OCT 177777
      OCT 72777     IOR 
      OCT 177777
      OCT 73377     IOR 
      OCT 177777
MA167 OCT 73777     IOR 
      OCT 177777
MA170 OCT 74377     CJMP OUT
      OCT 47730 
MA171 OCT 74771     CR IOR A  0 
      OCT 177000
MA172 OCT 75373     CL IOR A  0 
      OCT 177000
MA173 OCT 75777     CJMP OUT
      OCT 47730 
MA174 OCT 76371     CR IOR B  0 
      OCT 176400
MA175 OCT 76773     CR IOR B  0 
      OCT 176400
MA176 OCT 77377        IOR EOP
      OCT 177775
MA177 OCT 77777        IOR
      OCT 177777
MA200 OCT 100010    TSTM3 A RRS AND S1
      OCT 143777
MA201 OCT 100466        B S1 AND A
      OCT 147377
MA202 OCT 101054        B ADR AND B   EOP 
      OCT 146775
MA203 OCT 101774        P INC P 
      OCT 114377
      OCT 102377    IOR 
      OCT 177777
      OCT 102777    IOR 
      OCT 177777
      OCT 103377    IOR 
      OCT 177777
      OCT 103777    IOR 
      OCT 177777
      OCT 104377    IOR 
      OCT 177777
      OCT 104777    IOR 
      OCT 177777
      OCT 105377    IOR 
      OCT 177777
      OCT 105777    IOR 
      OCT 177777
      OCT 106377    IOR 
      OCT 177777
      OCT 106777    IOR 
      OCT 177777
      OCT 107377    IOR 
      OCT 177777
      OCT 107777    IOR 
      OCT 177777
      OCT 110377    IOR 
      OCT 177777
      OCT 110777    IOR 
      OCT 177777
      OCT 111377    IOR 
      OCT 177777
      OCT 111777    IOR 
      OCT 177777
      OCT 112377    IOR 
      OCT 177777
      OCT 112777    IOR 
      OCT 177777
      OCT 113377    IOR 
      OCT 177777
      OCT 113777    IOR 
      OCT 177777
MA230 OCT 114377    CJMP OUT
      OCT 47730 
MA231 OCT 114771    CR IOR A  0 
      OCT 177000
MA232 OCT 115373    CL IOR A  0 
      OCT 177000
MA233 OCT 115777    CJMP OUT
      OCT 47730 
MA234 OCT 116371    CR IOR B  0 
      OCT 176400
MA235 OCT 116773    CL IOR B  0 
      OCT 176400
MA236 OCT 117377       IOR EOP
      OCT 177775
MA237 OCT 117777       IOR
      OCT 177777
MA240 OCT 120371    GOOF CR IOR S1 252
      OCT 173652
MA241 OCT 120773      CL IOR A 252
      OCT 177252
MA242 OCT 121027    A S1 IOR A
      OCT 177377
MA243 OCT 121437    A    IOR B EOP
      OCT 176775
MA244 OCT 122374       P INC P
      OCT 114377
      OCT 122777    IOR 
      OCT 177777
                                                                                                                                                                      