      SKP 
*MICMX,B,L,C
**
**        21MX MICROCODED MEMORY TESTS
*         ORG                 6000B   MODULE 12 
*         JMP                 START     FRONT PANNEL ENTRY
*         JMP                 RE.ENTER  RE-ENTER FROM FRONT PANNEL
*         JMP                 WRT.READ
*         JMP                 READ
*         JMP                 GAL.READ
*         JMP                 REFRESH 
*              RTN
*         JMP                 GL.RD.02
*              RTN
*         JMP                 RE.ENTR1
*         JMP                 RE.ENTR2
*         JMP                 RE.ENTR3
*         JMP                 RE.ENTR4
*         JMP                 RE.ENTR5
*         JMP                 RE.ENTR6
*         JMP                 RE.ENTR7
      SKP 
*START    IMM       HIGH S4   17B       7777 IN S4
*                        L    S4        7777 IN L 
*                   ADD  S12  A         UPPER LIMIT IN S12
*                   PASS S11  A         LOWER LIMIT IN S11
*                   PASS S10  Y         SAVE TEST PATTERN IN S10
*                   PASS S9   X         SAVE BG IN S9 
*                   PASS S8   B         SAVE MACRO INSTRUCTION
**
*RE.ENTR0           PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    S12         AND ENDING ADDRESS
*RE.ENTR1           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   376B        AND RE-ENTRY NUMBER 
*         JSB                 WRT.READ  LOAD MEMORY 
*                   PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    S12         AND ENDING ADDRESS
*RE.ENTR2           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   375B        AND RE-ENTRY NUMBER 
*         JSB                 READ      CHECK MEMORY FOR GOOD LOAD
*                   PASS X    S11       SET WORKING ADDRESS 
*                   PASS Y    S11         AND PATTERN ADDRESS 
*RE.ENTR3 IMM       CMLO S7   374B      SET RE-ENTRY NUMBER 
*         JSB                 GL.RD.00  RUN PATTERN THROUGH TEST AREA 
*                   PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    S12         AND ENDING ADDRESS
*RE.ENTR4           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   373B        AND RE-ENTRY NUMBER 
*         JSB                 WRT.READ  LOAD MEMORY 
*RE.ENTR5 IMM       CMLO S7   372B      SET RE-ENTRY NUMBER 
*         JSB                 REFRESH   STAY IN CODE TO ALLOW REFRESH 
*                   PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    S12         AND ENDING ADDRESS
*RE.ENTR6           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   371B        AND RE-ENTRY NUMBER 
*         JSB                 READ      INSURE MEMORY WAS NOT CHANGED 
*         IMM       CMLO S7   300B      SET GOOD HALT 77B 
*                   ZERO X              CLEAR X 
*                   ZERO Y                AND Y FOR GOOD COMPLETION 
      SKP 
*EXIT               DEC  S1   P         CHECK IF FRONT PANNEL ENTRY 
*         IMM       LOW  S2   370B
*                   PASS L    S2
*                   AND       P 
*         JMP  CNDX TBZ       *+2       IF P NOT = TO 0 THEN
*              RTN  PASS M    S1          RETURN TO SOFRWARE PROGRAM
**
*                   ZERO P              INSURE P=0
*         IMM       CMHI S6   173B      GENERATE 102000 FOR HALT
*                   PASS L    S7
*                   IOR  A    S6         AND THEN 1020XX
*                   INC  B    S8        SET MACRO FOR RE-ENTERY 
*         JMP  CNDX NHOI      *+2       IS THIS THE HALT BUTTON 
*                   INC  P    P         YES INCREMENT P 
*         JSB                 *+1 
*              RTN  ZERO M              RETURN
**
*RE.ENTER IMM       HIGH S7   177B      CLEAR BIT 15 OF 
*                   PASS L    S7
*                   AND  X    X           X  AND
*                   AND  Y    Y           Y REGISTERS 
*                   INC  X    X           MOVE TO NEXT ADDRESS
*         IMM       CMLO S7   370B      SET MASK TO DETERMINE 
*                   PASS L    S7          WHICH ROUTINE TO
*                   AND  A    A 
*         IMM       CMLO S7   367B      ADD 10 OCTAL
*                   PASS L    S7
*                   IOR  A    A 
*                   PASS IR   A             RETURN TO 
*         JMP  J30            6000B     RETURN TO IT
**
*RE.ENTR7           PASS S    DSPL
*         JMP  CNDX AL15 RJS  RE.ENTR0  MOVE TO NEXT BLOCK? 
*         IMM       CMHI S7   357B      YES - ADD 4K
*                   PASS L    S7
*                   ADD  S12  S12 
*                   ADD  S11  S11 
*         JMP  CNDX AL15 RJS  *+3       WRAPPAROUND?
*                   ZERO S11            YES CLEAR LOWER LIMIT 
*         IMM       HIGH S12  17B            SET UPPER LIMIT
*         JMP                 RE.ENTR0
      SKP 
**        WRT.READ MEMORY FROM  X  TO  Y  TO BACKGROUND PATTERN IN B
**
*WRT.READ                M    X         M-REG=CURRENT ADDRESS 
*         WRTE           T    B         WRITE BACKGROUND
*         READ           L    B         READ BACKGROUND 
*                   PASS A    T         SAVE DATA READ IN A 
*                   XOR       A         VERIFY
*         JMP  CNDX TBZ  RJS  D.ERROR    DATA 
*         JMP  CNDX NHOI RJS  HALT.INT  HALT OR INTERRUPT? YES
*                        L    Y         GET LAST ADDRESS IN L 
*                   XOR       X         DONE
*         JMP  CNDX TBZ       *+3       TEST AREA? YES-GO SEE IF DONE 
*                   INC  X    X         BUMP POINTER
*         JMP                 WRT.READ  CONTINUE
*                   DEC  S1   P         SET M TO RETURN 
*              RTN  PASS M    S1        RETURN
**
*READ                    M    X         M-REG=CURRENT ADDRESS 
*         READ           L    B         READ BACKGROUND 
*                   PASS A    T         SAVE DATA READ IN A 
*                   XOR       A         VERIFY
*         JMP  CNDX TBZ  RJS  D.ERROR    DATA 
*         JMP  CNDX NHOI RJS  HALT.INT  HALT OR INTERRUPT? YES
*                        L    Y         GET LAST ADDRESS IN L 
*                   XOR       X         DONE
*         JMP  CNDX TBZ       *+3       TEST AREA? YES-GO SEE IF DONE 
*                   INC  X    X         BUMP POINTER
*         JMP                 READ      CONTINUE
*                   DEC  S1   P         SET M TO RETURN 
*              RTN  PASS M    S1        RETURN
      SKP 
**        GALLOPING READ RECOVERY TEST
**
*GAL.READ           PASS S10  A         SAVE TEST PATTERN 
*                   PASS S9   B         SAVE BACKGROUND 
*                   PASS S11  X         STARTING ADDRESSS 
*                   PASS S12  Y         ENDING ADDRESS
*                   PASS Y    X         BOTH MUST BE THE SAME TO START
**
*GL.RD.00           PASS B    S10       SET TEST PATTERN AS EXPECTED
*                   PASS M    Y          AND ADDRESS
*         WRTE           T    B         WRITE TEST PATTERN OVER BG
*         IMM       CMHI S1   375B      DID USER WANT TO
*                   PASS L    S1
*                   AND       DSPL
*         JMP  CNDX TBZ  RJS  HALT.INT  ABORT? YES GO EXIT
*GL.RD.01           PASS B    S10       SET TEST PATTERN AS EXPECTED
*         READ           M    Y         READ PATTERN
*                   PASS A    T         PUT DATA READ IN A
*                   PASS L    B         DID IT
*                   XOR       A          CONTAIN THE
*         JMP  CNDX TBZ  RJS  D.ERROR    TEST PATTERN? NO-DATA ERROR
*         JMP  CNDX NHOI RJS  HALT.INT  HALT OR INTERRUPT? YES-GO PROCESS 
*                        L    Y         PATTERN ADDRESS 
*                   XOR       X          = WORKING
*         JMP  CNDX TBZ       GL.RD.02    ADDRESS? YES-SKIP READ
*                   PASS B    S9        SET EXPECTED TO BG
*         READ           M    X         READ BACKGROUND ADDRESS 
*                   PASS A    T         PUT DATA READ IN A
*                   PASS L    B         DID IT
*                   XOR       A          CONTAIN THE
*         JMP  CNDX TBZ  RJS  D.ERROR     BG PATTERN? NO-DATA ERROR 
*         JMP  CNDX NHOI RJS  HALT.INT  HALT OR INTERRUPT? YES
*GL.RD.02                L    S12       UPPER 4K LIMIT IN L 
*                   XOR       X         DONE ALL READ ACCESS TRANSITIONS
*         JMP  CNDX TBZ       *+3        FOR ONE TEST ADDRESS?
*                   INC  X    X         NO.BUMP WORKING ADDRESS 
*         JMP                 GL.RD.01  CONTINUE
*                   PASS B    S9        RESTORE BG IN PATTERN ADDRESS 
*                   PASS M    Y 
*         WRTE           T    B 
*                   XOR       Y         DONE ALL TEST 
*         JMP  CNDX TBZ       *+4        YES RETURN 
*                   INC  Y    Y         (MOVE TO NEXT TEST ADDRESS)144
*                   PASS X    S11       (RESET STARTING ADDRESS)
*         JMP                 GL.RD.00   ADDRESS IN 4K? 
*                   DEC  S1   P         SET M TO RETURN 
*              RTN  PASS M    S1        RETURN
      SKP 
**        REFRESH TEST
**
*REFRESH  IMM       CMLO S1   367B      DELAY 
*                   ZERO S2              FOR
*         JMP  CNDX NHOI RJS  HALT.INT    APPROXIMATELY 
*                   DEC  S2   S2           500 MILLISECONDS 
*         JMP  CNDX TBZ  RJS  *-2           WITHOUT 
*                   DEC  S1   S1             ADDRESSING 
*         JMP  CNDX TBZ  RJS  REFRESH+1       MEMORY
*                   DEC  S1   P         SET M TO RETURN 
*              RTN  PASS M    S1        RETURN
**
**        HALT OR INTERRUPT 
**
*HALT.INT IMM       CMHI S5   177B       SET BIT 15 IN
*                   PASS L    S5
*                   IOR  Y    Y          IN Y TO INDICATE INTERRUPT 
*         JMP                 EXIT       RETURN 
**
**        PROCESSES ERRORS
**
*D.ERROR  IMM       CMHI S5   177B      SET BIT 15 IN 
*                   PASS L    S5
*                   IOR  X    X         IN X TO INDICATE ERROR
*         JMP                 EXIT      RETURN
*         END 
      SKP 
MX.MS EQU * 
      OCT 6000,506  MODULE 12 ADDRESS 6000B 
      OCT 321,101030
      OCT 321,104170
      OCT 321,105530
      OCT 321,106430
      OCT 321,107270
      OCT 321,112070
      OCT 017,136776
      OCT 321,111130
      OCT 017,136776
      OCT 321,101470
      OCT 321,101730
      OCT 321,102170
      OCT 321,102370
      OCT 321,102530
      OCT 321,102730
      OCT 321,105030
      OCT 340,037157
      OCT 017,146157
      OCT 004,127557
      OCT 017,127517
      OCT 017,173457
      OCT 017,171417
      OCT 017,125357
      OCT 017,165617
      OCT 017,167657
      OCT 017,160517
      OCT 357,175317
      OCT 301,105530
      OCT 017,165617
      OCT 017,167657
      OCT 017,160517
      OCT 357,173317
      OCT 301,106430
      OCT 017,165617
      OCT 017,165657
      OCT 357,171317
      OCT 301,107530
      OCT 017,165617
      OCT 017,167657
      OCT 017,160517
      OCT 357,167317
      OCT 301,105530
      OCT 357,165317
      OCT 301,112070
      OCT 017,165617
      OCT 017,167657
      OCT 017,160517
      OCT 357,163317
      OCT 301,106430
      OCT 357,001317
      OCT 001,137617
      OCT 001,137657
      OCT 007,175017
      OCT 347,161057
      OCT 017,142157
      OCT 015,174757
      OCT 320,043531
      OCT 017,140476
      OCT 001,137717
      OCT 351,167257
      OCT 017,154157
      OCT 017,052557
      OCT 000,056517
      OCT 326,044071
      OCT 000,075717
      OCT 301,104130
      OCT 001,136476
      OCT 341,177317
      OCT 017,154157
      OCT 015,171617
      OCT 015,173657
      OCT 000,071617
      OCT 357,161317
      OCT 017,154157
      OCT 015,126557
      OCT 357,157317
      OCT 017,154157
      OCT 017,026557
      OCT 017,126417
      OCT 321,100035
      OCT 017,115757
      OCT 322,001371
      OCT 353,137317
      OCT 017,154157
      OCT 004,167557
      OCT 004,165517
      OCT 322,005471
      OCT 001,137517
      OCT 340,037557
      OCT 321,101370
      OCT 017,170457
      OCT 177,124117
      OCT 237,124157
      OCT 017,104557
      OCT 013,026757
      OCT 320,012731
      OCT 326,012531
      OCT 017,172157
      OCT 013,070757
      OCT 320,046331
      OCT 000,071617
      OCT 321,105530
      OCT 007,175017
      OCT 017,140476
      OCT 017,170457
      OCT 237,124157
      OCT 017,104557
      OCT 013,026757
      OCT 320,012731
      OCT 326,012531
      OCT 017,172157
      OCT 013,070757
      OCT 320,047171
      OCT 000,071617
      OCT 321,106430
      OCT 007,175017
      OCT 017,140476
      OCT 017,127457
      OCT 017,125417
      OCT 017,171517
      OCT 017,173557
      OCT 017,171657
      OCT 017,162517
      OCT 017,172457
      OCT 177,124117
      OCT 353,173017
      OCT 017,140157
      OCT 015,114757
      OCT 320,012531
      OCT 017,162517
      OCT 237,172457
      OCT 017,104557
      OCT 017,124157
      OCT 013,026757
      OCT 320,012731
      OCT 326,012531
      OCT 017,172157
      OCT 013,070757
      OCT 320,051131
      OCT 017,160517
      OCT 237,170457
      OCT 017,104557
      OCT 017,124157
      OCT 013,026757
      OCT 320,012731
      OCT 326,012531
      OCT 017,166157
      OCT 013,070757
      OCT 320,051371
      OCT 000,071617
      OCT 321,110070
      OCT 017,160517
      OCT 017,172457
      OCT 177,124117
      OCT 013,072757
      OCT 320,051771
      OCT 000,073657
      OCT 017,165617
      OCT 321,107530
      OCT 007,175017
      OCT 017,140476
      OCT 357,157017
      OCT 001,137057
      OCT 326,012531
      OCT 007,143057
      OCT 320,012171
      OCT 007,141017
      OCT 320,012131
      OCT 007,175017
      OCT 017,140476
      OCT 351,177217
      OCT 017,150157
      OCT 017,073657
      OCT 321,103230
      OCT 351,177217
      OCT 017,150157
      OCT 017,071617
      OCT 321,103230
MX.ME EQU * 
      SKP 
*MICMXE,B,L,C 
**
**        21MXE MICROCODED MEMORY TESTS 
*         ORG                 34400B   MODULE 57
*         JMP                 START     FRONT PANNEL ENTRY
*         JMP                 RE.ENTER  RE-ENTER FROM FRONT PANNEL
*         JMP                 WRT.READ
*         JMP                 READ
*         JMP                 GAL.READ
*         JMP                 REFRESH 
*         READ RTN
*         JMP                 GL.RD.02
*         READ RTN
*         JMP                 RE.ENTR1
*         JMP                 RE.ENTR2
*         JMP                 RE.ENTR3
*         JMP                 RE.ENTR4
*         JMP                 RE.ENTR5
*         JMP                 RE.ENTR6
*         JMP                 RE.ENTR7
      SKP 
*START    IMM       HIGH S4   17B       7777 IN S4
*                        L    S4        7777 IN L 
*                   ADD  SP   A         UPPER LIMIT IN SP 
*                   PASS S11  A         LOWER LIMIT IN S11
*                   PASS S10  Y         SAVE TEST PATTERN IN S10
*                   PASS S9   X         SAVE BG IN S9 
*                   PASS S8   B         SAVE MACRO INSTRUCTION
**
*RE.ENTR0           PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    SP          AND ENDING ADDRESS
*RE.ENTR1           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   376B        AND RE-ENTRY NUMBER 
*         JSB                 WRT.READ  LOAD MEMORY 
*                   PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    SP          AND ENDING ADDRESS
*RE.ENTR2           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   375B        AND RE-ENTRY NUMBER 
*         JSB                 READ      CHECK MEMORY FOR GOOD LOAD
*                   PASS X    S11       SET WORKING ADDRESS 
*                   PASS Y    S11         AND PATTERN ADDRESS 
*RE.ENTR3 IMM       CMLO S7   374B      SET RE-ENTRY NUMBER 
*         JSB                 GL.RD.00  RUN PATTERN THROUGH TEST AREA 
*                   PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    SP          AND ENDING ADDRESS
*RE.ENTR4           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   373B        AND RE-ENTRY NUMBER 
*         JSB                 WRT.READ  LOAD MEMORY 
*RE.ENTR5 IMM       CMLO S7   372B      SET RE-ENTRY NUMBER 
*         JSB                 REFRESH   STAY IN CODE TO ALLOW REFRESH 
*                   PASS X    S11       SET STARTING ADDRESS
*                   PASS Y    SP          AND ENDING ADDRESS
*RE.ENTR6           PASS B    S9          AND BACKGROUND
*         IMM       CMLO S7   371B        AND RE-ENTRY NUMBER 
*         JSB                 READ      INSURE MEMORY WAS NOT CHANGED 
*         IMM       CMLO S7   300B      SET GOOD HALT 77B 
*                   ZERO X              CLEAR X 
*                   ZERO Y                AND Y FOR GOOD COMPLETION 
      SKP 
*EXIT               DEC  S1   P         CHECK IF FRONT PANNEL ENTRY 
*         IMM       LOW  S2   370B
*                   PASS L    S2
*                   AND       P 
*         JMP  CNDX ALZ       *+2       IF P NOT = TO 0 THEN
*         READ RTN  PASS M    S1          RETURN TO SOFRWARE PROGRAM
**
*                   ZERO P              INSURE P=0
*         IMM       CMHI S6   173B      GENERATE 102000 FOR HALT
*                   PASS L    S7
*                   IOR  A    S6         AND THEN 1020XX
*                   INC  B    S8        SET MACRO FOR RE-ENTERY 
*         JMP  CNDX HOI  RJS  *+2       IS THIS THE HALT BUTTON 
*                   INC  P    P         YES INCREMENT P 
*         JSB                 *+1 
*         READ RTN  ZERO M              RETURN
**
*RE.ENTER IMM       HIGH S7   177B      CLEAR BIT 15 OF 
*                   PASS L    S7
*                   AND  X    X           X  AND
*                   AND  Y    Y           Y REGISTERS 
*                   INC  X    X           MOVE TO NEXT ADDRESS
*         IMM       CMLO S7   370B      SET MASK TO DETERMINE 
*                   PASS L    S7          WHICH ROUTINE TO
*                   AND  A    A 
*         IMM       CMLO S7   367B      ADD 10 OCTAL
*                   PASS L    S7
*                   IOR  A    A 
*                   PASS IRCM A             RETURN TO 
*         JMP  RJ30           34400B    RETURN TO IT
**
*RE.ENTR7           PASS S    DSPL
*         JMP  CNDX AL15 RJS  RE.ENTR0  MOVE TO NEXT BLOCK? 
*         IMM       CMHI S7   357B      YES - ADD 4K
*                   PASS L    S7
*                   ADD  SP   SP
*                   ADD  S11  S11 
*         JMP  CNDX AL15 RJS  *+3       WRAPPAROUND?
*                   ZERO S11            YES CLEAR LOWER LIMIT 
*         IMM       HIGH SP   17B            SET UPPER LIMIT
*         JMP                 RE.ENTR0
      SKP 
**        WRT.READ MEMORY FROM  X  TO  Y  TO BACKGROUND PATTERN IN B
**
*WRT.READ                M    X         M-REG=CURRENT ADDRESS 
*         WRTE PRST      TAB  B         WRITE BACKGROUND
*         READ PRST      L    B         READ BACKGROUND 
*                   PASS A    TAB       SAVE DATA READ IN A 
*                   XOR       A         VERIFY
*         JMP  CNDX ALZ  RJS  D.ERROR    DATA 
*         JMP  CNDX HOI       HALT.INT  HALT OR INTERRUPT? YES
*                        L    Y         GET LAST ADDRESS IN L 
*                   XOR       X         DONE
*         JMP  CNDX ALZ       *+3       TEST AREA? YES-GO SEE IF DONE 
*                   INC  X    X         BUMP POINTER
*         JMP                 WRT.READ  CONTINUE
*                   DEC  S1   P         SET M TO RETURN 
*         READ RTN  PASS M    S1        RETURN
**
*READ                    M    X         M-REG=CURRENT ADDRESS 
*         READ PRST      L    B         READ BACKGROUND 
*                   PASS A    TAB       SAVE DATA READ IN A 
*                   XOR       A         VERIFY
*         JMP  CNDX ALZ  RJS  D.ERROR    DATA 
*         JMP  CNDX HOI       HALT.INT  HALT OR INTERRUPT? YES
*                        L    Y         GET LAST ADDRESS IN L 
*                   XOR       X         DONE
*         JMP  CNDX ALZ       *+3       TEST AREA? YES-GO SEE IF DONE 
*                   INC  X    X         BUMP POINTER
*         JMP                 READ      CONTINUE
*                   DEC  S1   P         SET M TO RETURN 
*         READ RTN  PASS M    S1        RETURN
      SKP 
**        GALLOPING READ RECOVERY TEST
**
*GAL.READ           PASS S10  A         SAVE TEST PATTERN 
*                   PASS S9   B         SAVE BACKGROUND 
*                   PASS S11  X         STARTING ADDRESSS 
*                   PASS SP   Y         ENDING ADDRESS
*                   PASS Y    X         BOTH MUST BE THE SAME TO START
**
*GL.RD.00           PASS B    S10       SET TEST PATTERN AS EXPECTED
*                   PASS M    Y          AND ADDRESS
*         WRTE PRST      TAB  B         WRITE TEST PATTERN OVER BG
*         IMM       CMHI S1   375B      DID USER WANT TO
*                   PASS L    S1
*                   AND       DSPL
*         JMP  CNDX ALZ  RJS  HALT.INT  ABORT?  YES GO EXIT 
*GL.RD.01           PASS B    S10       SET TEST PATTERN AS EXPECTED
*         READ PRST      M    Y         READ PATTERN
*                   PASS A    TAB       PUT DATA READ IN A
*                   PASS L    B         DID IT
*                   XOR       A          CONTAIN THE
*         JMP  CNDX ALZ  RJS  D.ERROR    TEST PATTERN? NO-DATA ERROR
*         JMP  CNDX HOI       HALT.INT  HALT OR INTERRUPT? YES-GO PROCESS 
*                        L    Y         PATTERN ADDRESS 
*                   XOR       X          = WORKING
*         JMP  CNDX ALZ       GL.RD.02    ADDRESS? YES-SKIP READ
*                   PASS B    S9        SET EXPECTED TO BG
*         READ PRST      M    X         READ BACKGROUND ADDRESS 
*                   PASS A    TAB       PUT DATA READ IN A
*                   PASS L    B         DID IT
*                   XOR       A          CONTAIN THE
*         JMP  CNDX ALZ  RJS  D.ERROR     BG PATTERN? NO-DATA ERROR 
*         JMP  CNDX HOI       HALT.INT  HALT OR INTERRUPT? YES
*GL.RD.02                L    SP        UPPER 4K LIMIT IN L 
*                   XOR       X         DONE ALL READ ACCESS TRANSITIONS
*         JMP  CNDX ALZ       *+3        FOR ONE TEST ADDRESS?
*                   INC  X    X         NO.BUMP WORKING ADDRESS 
*         JMP                 GL.RD.01  CONTINUE
*                   PASS B    S9        RESTORE BG IN PATTERN ADDRESS 
*                   PASS M    Y 
*         WRTE PRST      TAB  B 
*                   XOR       Y         DONE ALL TEST 
*         JMP  CNDX ALZ       *+4        YES RETURN 
*                   INC  Y    Y         (MOVE TO NEXT TEST ADDRESS)144
*                   PASS X    S11       (RESET STARTING ADDRESS)
*         JMP                 GL.RD.00   ADDRESS IN 4K? 
*                   DEC  S1   P         SET M TO RETURN 
*         READ RTN  PASS M    S1        RETURN
      SKP 
**        REFRESH TEST
**
*REFRESH  IMM       CMLO S1   367B      DELAY 
*                   ZERO S2              FOR
*         JMP  CNDX HOI       HALT.INT    APPROXIMATELY 
*                   DEC  S2   S2           500 MILLISECONDS 
*         JMP  CNDX ALZ  RJS  *-2           WITHOUT 
*                   DEC  S1   S1             ADDRESSING 
*         JMP  CNDX ALZ  RJS  REFRESH+1       MEMORY
*                   DEC  S1   P         SET M TO RETURN 
*         READ RTN  PASS M    S1        RETURN
**
**        HALT OR INTERRUPT 
**
*HALT.INT IMM       CMHI S5   177B       SET BIT 15 IN
*                   PASS L    S5
*                   IOR  Y    Y          IN Y TO INDICATE INTERRUPT 
*         JMP                 EXIT       RETURN 
**
**        PROCESSES ERRORS
**
*D.ERROR  IMM       CMHI S5   177B      SET BIT 15 IN 
*                   PASS L    S5
*                   IOR  X    X         IN X TO INDICATE ERROR
*         JMP                 EXIT      RETURN
*         END 
      SKP 
MX.ES EQU * 
      OCT 34400,3534 MODULE 57 ADDRESS 34400B 
      OCT 327,021007
      OCT 327,024147
      OCT 327,025507
      OCT 327,026407
      OCT 327,027247
      OCT 327,032047
      OCT 230,036740
      OCT 327,031107
      OCT 230,036740
      OCT 327,021447
      OCT 327,021707
      OCT 327,022147
      OCT 327,022347
      OCT 327,022507
      OCT 327,022707
      OCT 327,025007
      OCT 344,037147
      OCT 010,046507
      OCT 003,007547
      OCT 010,007507
      OCT 010,073447
      OCT 010,071407
      OCT 010,011347
      OCT 010,065607
      OCT 010,067647
      OCT 010,060207
      OCT 353,175307
      OCT 307,025507
      OCT 010,065607
      OCT 010,067647
      OCT 010,060207
      OCT 353,173307
      OCT 307,026407
      OCT 010,065607
      OCT 010,065647
      OCT 353,171307
      OCT 307,027507
      OCT 010,065607
      OCT 010,067647
      OCT 010,060207
      OCT 353,167307
      OCT 307,025507
      OCT 353,165307
      OCT 307,032047
      OCT 010,065607
      OCT 010,067647
      OCT 010,060207
      OCT 353,163307
      OCT 307,026407
      OCT 353,001307
      OCT 006,037607
      OCT 006,037647
      OCT 000,075007
      OCT 343,161047
      OCT 010,042507
      OCT 012,074747
      OCT 320,023502
      OCT 230,040640
      OCT 006,037707
      OCT 355,167247
      OCT 010,054507
      OCT 010,152147
      OCT 007,156207
      OCT 323,164042
      OCT 007,175707
      OCT 307,024107
      OCT 226,036640
      OCT 345,177307
      OCT 010,054507
      OCT 012,071607
      OCT 012,073647
      OCT 007,171607
      OCT 353,161307
      OCT 010,054507
      OCT 012,006147
      OCT 353,157307
      OCT 010,054507
      OCT 010,106147
      OCT 010,006607
      OCT 327,020004
      OCT 010,015747
      OCT 327,161342
      OCT 357,137307
      OCT 010,054507
      OCT 003,067547
      OCT 003,065507
      OCT 327,165442
      OCT 006,037507
      OCT 344,037547
      OCT 327,021347
      OCT 010,070647
      OCT 210,010015
      OCT 230,010515
      OCT 010,000147
      OCT 014,106747
      OCT 320,072702
      OCT 323,132502
      OCT 010,072507
      OCT 014,170747
      OCT 320,026302
      OCT 007,171607
      OCT 327,025507
      OCT 000,075007
      OCT 230,040640
      OCT 010,070647
      OCT 230,010515
      OCT 010,000147
      OCT 014,106747
      OCT 320,072702
      OCT 323,132502
      OCT 010,072507
      OCT 014,170747
      OCT 320,027142
      OCT 007,171607
      OCT 327,026407
      OCT 000,075007
      OCT 230,040640
      OCT 010,007447
      OCT 010,011407
      OCT 010,071507
      OCT 010,073547
      OCT 010,071647
      OCT 010,062207
      OCT 010,072647
      OCT 210,010015
      OCT 357,173007
      OCT 010,040507
      OCT 012,014747
      OCT 320,072502
      OCT 010,062207
      OCT 230,072655
      OCT 010,000147
      OCT 010,010507
      OCT 014,106747
      OCT 320,072702
      OCT 323,132502
      OCT 010,072507
      OCT 014,170747
      OCT 320,031102
      OCT 010,060207
      OCT 230,070655
      OCT 010,000147
      OCT 010,010507
      OCT 014,106747
      OCT 320,072702
      OCT 323,132502
      OCT 010,066507
      OCT 014,170747
      OCT 320,031342
      OCT 007,171607
      OCT 327,030047
      OCT 010,060207
      OCT 010,072647
      OCT 210,010015
      OCT 014,172747
      OCT 320,031742
      OCT 007,173647
      OCT 010,065607
      OCT 327,027507
      OCT 000,075007
      OCT 230,040640
      OCT 353,157007
      OCT 006,037047
      OCT 323,132502
      OCT 000,043047
      OCT 320,072142
      OCT 000,041007
      OCT 320,072102
      OCT 000,075007
      OCT 230,040640
      OCT 355,177207
      OCT 010,050507
      OCT 010,173647
      OCT 327,023207
      OCT 355,177207
      OCT 010,050507
      OCT 010,171607
      OCT 327,023207
MX.EE EQU * 
      SKP 
FWAA  EQU * 
      END 
                                                                                                                                                                