1 C00   23:42 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   23:42 JUN 20,'83    SIGMA 5/7 CPU DIAGNOSTIC-MAP 960-0012-1A  08-04-81                    PAGE    2
A       1                                     TITLE    'SIGMA 5/7 CPU DIAGNOSTIC-MAP 960-0012-1A  08-04-81'
        2                            *
        3                            *
        4                            *
        5                            * PROGRAM NUMBER 960-0012
        6                            *
        7                            *
        8                            * PROGRAM OBJECTIVES
        9                            *
       10                            * THIS PROGRAM TESTS THE OPTIONAL MEMORY MAP AND ACCESS PROTECTION
       11                            * FEATURES OF THE SIGMA 5/7 CPU. PROGRAMMED WAITS AND MESSAGE PRINTOUTS
       12                            * ARE USED TO INDICATE PROGRAM STATUS AND TEST RESULTS.  IN CASE OF
       13                            * INTERRELATED MULTIPLE FAILURES, THE PROGRAM MAY NOT NECESSARILY
       14                            * PINPOINT THE EXACT LOCATIONS OF THE ERRORS, BUT THE MODULE INTERFERING
       15                            * WITH THE TESTS OF A PARTICULAR PAGE WILL BE INDICATED.
       16                            *
       17                            *
       18                            *
       19                            * OPERATING REQUIREMENTS AND SPECIFICATIONS
       20                            *
       21                            *     REQUIRED EQUIPMENT      SIGMA 5/7 CPU WITH MEMORY MAP FEATURE
       22                            *
       23                            *                             4096 WORDS (MINIMUM) OF MEMORY
       24                            *
       25                            *                             CARD READER OR PAPER TAPE READER FOR
       26                            *                             PROGRAM INPUT
       27                            *
       28                            *     OPTIONAL EQUIPMENT      KEYBOARD PRINTER OR LINE PRINTER FOR
       29                            *                             MESSAGE PRINTOUTS
       30                            *
       31                            *     PROGRAM PREREQUISITES   THE FOLLOWING PROGRAMS MUST BE RUN
       32                            *                             SUCCESSFULLY BEFORE RUNNING THIS PROGRAM:
       33                            *
       34                            *                                 1. CPU VERIFY (PROG. NO. 960-0006)
       35                            *
       36                            *                                 2. CPU PATTERN (PROG. NO. 960-0007)
       37                            *
       38                            *                                 3. CPU AUTO (PROG. NO. 960-0008 OR
       39                            *                                                        960-0051)
       40                            *                                 4. CPU SUFFIX (PROG. NO. 960-0009 OR
       41                            *                                                          960-0050)
       42                            *                                 5. INTERRUPT (PROG. NO. 960-0015)
       43                            *
       44                            *                                 6. MEMORY PROTECT (PROG. NO. 960-0013)
       45                            *
       46                            *     MEMORY STORAGE          4096 LOCATIONS REQUIRED.  FROM X'0' TO
       47                            *                             X'FFF'
       48                            *
       49                            *     RUN TIME                AFTER LOADING, PROGRAM REQUIRES LESS THAN
       50                            *                             3 SECONDS TO COMPLETE ONE SUCCESSFUL PASS
       51                            *
       52                            *     PROGRAM MEDIA           SELF-LOADING, 80-COLUMN CARDS OR 8-LEVEL
       53                            *                             PAPER TAPE
       54                            *
       55                            *     SOURCE LANGUAGE         SIGMA METASYMBOL (SEE SDS REFERENCE
       56                            *                             MANUAL 900952)
       57                            *
       58                            *
       59                            * LOADING PROCEDURE
       60                            *
       61                            * USE THE LOADING PROCEDURE DESCRIBED IN DIAGNOSTIC PROGRAM MANUAL
       62                            * SDS 900972. IF AUTOMATIC IMPLEMENTATION OF REAL-TIME CLOCKS AFTER
       63                            * 20 SUCCESSFUL PASSES IS NOT DESIRED, PERFORM THE FOLLOWING:
       64                            *
       65                            *     1. SET SENSE SWITCH 2 TO 1 BEFORE LOADING THE PROGRAM.
       66                            *
       67                            *     2. LOAD THE PROGRAM.  A WAIT SHOULD OCCUR AFTER LOADING IS
       68                            * COMPLETED.
       69                            *
       70                            *     3. SET SENSE SWITCH 1 TO 1, RESET SENSE SWITCH 2 TO 0, AND THEN
       71                            * CLEAR WAIT TO CONTINUE.  ANOTHER WAIT SHOULD OCCUR IMMEDIATELY.
       72                            *
       73                            *     4. RESET SENSE SWITCH 1 TO 0 IF SHORT LOOP OPTION IS NOT DESIRED
       74                            * (SEE CONTROL OPTIONS), AND CLEAR WAIT TO CONTINUE.
       75                            *
       76                            *
       77                            * IF AFTER EXECUTING THE ABOVE PROCEDURE, REAL TIME CLOCK IS DESIRED
       78                            * PRESS THE INTERRUPT AND SET THE DESIRED BITS BETWEEN BITS 16-19
       79                            * IN REGISTER 5 AND CLEAR THE WAIT TO CONTINUE. IF THIS OPERATION IS
       80                            * PERFORMED BEFORE 20 PASSES, REAL TIME CLOCK WILL BE SET  AT THE END
       81                            * OF THE 20 PASSES. IF IT IS PERFORMED AFTER THE 20 PASSES, REAL TIME
       82                            * CLOCK IS SET IMMEDIATELY AFTER CLEARING THE WAIT.
       83                            *
       84                            *
       85                            *
       86                            *
       87                            * OPERATING PROCEDURE
       88                            *
       89                            *
       90                            * CONTROL OPTIONS
       91                            *
       92                            * PROGRAM OPTIONS CAN BE SELECTED FROM THE PROCESSOR CONTROL PANEL BY
       93                            * SETTING SENSE SWITCHES 1 THROUGH 4 OR BY PRESSING THE INTERRUPT
       94                            * BUTTON.  THE FOLLOWING OPTIONS ARE AVAILABLE:
       95                            *
       96                            *       SWITCH       STATUS                        OPTION
       97                            *
       98                            *        SS1           1            TWO OPTIONS AVAILABLE.  IF SET TO 1
       99                            *                                   AFTER LOADING BUT BEFORE START OF
      100                            *                                   PROGRAM RUN, AUTOMATIC IMPLEMENT-
      101                            *                                   ATION OF REAL-TIME CLOCKS AFTER 20
      102                            *                                   SUCCESSFUL PASSES IS PREVENTED,AND
      103                            *                                   A WAIT OCCURS (SEE LOADING PRO-
      104                            *                                   CEDURE).  CLEARING WAIT WITHOUT
      105                            *                                   RESETTING SS1 INVOKES SHORT LOOP
      106                            *                                   OPTION.  WHEN A MALFUNCTION IS
      107                            *                                   DETECTED, PROGRAM CONTINUOUSLY LOOPS
      108                            *                                   THROUGH A SHORT SEQUENCE WITHOUT
      109                            *                                   RELOADING MAP/AC REGISTERS.
      110                            *
      111                            *        SS1           0            NEITHER REAL-TIME CLOCK NOR SHORT
      112                            *                                   LOOP OPTION IS SELECTED.
      113                            *
      114                            *        SS2           1            LONG LOOP.  WHEN A MALFUNTION IS
      115                            *                                   DETECTED, PROGRAM  LOOPS THROUGH
      116                            *                                   A LONG SEQUENCE, RELOADING MAP/AC
      117                            *                                   REGISTERS WITH ORIGINAL PATTERN FOR
      118                            *                                   WHICH ERROR WAS DETECTED.
      119                            *
      120                            *        SS2           0            LONG LOOP OPTION IS INHIBITED.
      121                            *
      122                            *        SS3           1            PRINT TEST RESULTS.  EVERY TEST
      123                            *                                   RESULT IS PRINTED OUT REGARDLESS
      124                            *                                   OF ERRORS.
      125                            *
      126                            *        SS3           0            TEST RESULTS PRINTED FOR ERROR ONLY.
      127                            *
      128                            *        SS4           1            NO WAIT ON ERRORS.
      129                            *
      130                            *        SS4           0            WAIT ON ERRORS
      131                            *
      132                            *     INTERRUPT     PRESSED         IF PRESSED WHILE PROGRAM IS RUNNING,
      133                            *                                   SYSTEM IS BROUGHT TO WAIT STATE
      134                            *                                   WITH REGISTER CONTENTS AS FOLLOWS:
      135                            *
      136                            *                                       R0   OUTPUT DEVICE BITS STORED
      137                            *                                            IN BITS 20-31.  THESE MAY
      138                            *                                            BE CHANGED FOR DIFFERENT
      139                            *                                            OUTPUT DEVICE.
      140                            *
      141                            *                                       R2   CONTAINS ERROR COUNT.
      142                            *
      143                            *                                       R3   CONTAINS PASS COUNT.
      144                            *
      145                            *                                       R5   COUNT PULSE INTERRUPT BITS
      146                            *                                            IN BITS 16-19.  THESE MAY
      147                            *                                            BE CHANGED FOR TESTING
      148                            *                                            EFFECTS OF COUNT PULSE
      149                            *                                            INTERRUPTS ON MAP/AC TESTS.
      150                            *
      151                            *                                   CONTENTS OF OTHER REGISTERS MAY NOT
      152                            *                                   BE ALTERED BY THE OPERATOR,
      153                            *
      154                            *
      155                            * TEST DIRECTIVES
      156                            *
      157                            * NO TEST DIRECTIVES ARE REQUIRED FOR OPERATING THIS PROGRAM.
      158                            *
      159                            *
      160                            * START-RESTART PROCEDURE
      161                            *
      162                            * ONCE THE PROGRAM IS LOADED IT AUTOMATICALLY BEGINS TESTING THE MAP
      163                            * AND ACCESS CONTROL REGISTERS.  HOWEVER, IF SS4 IS RESET (0), THE
      164                            * PROGRAM ENTERS A WAIT STATE DUE TO INTERFERENCE OR AN ERROR IN THE
      165                            * CURRENT MODULE UNDER TEST.  FOR THIS CASE THE PROGRAM CAN BE RESTARTED
      166                            * BY CLEARING THE WAIT (COMPUTE SWITCH TO IDLE AND BACK TO RUN). IF THE
      167                            * PROGRAM COMES TO A WAIT FOR ANY OTHER REASON, ESPECIALLY WITH SS4
      168                            * SET TO 1, FURTHER TESTING CANNOT CONTINUE.  THE PROGRAM MUST BE
      169                            * RESTARTED BY PRESSING THE SYS RESET BUTTON AND SETTING THE COMPUTE
      170                            * SWITCH TO RUN.
      171                            *
      172                            * IF THE PROGRAM COMES TO A WAIT AS A RESULT OF A PCP INTERRUPT, THE
      173                            * OPERATOR CAN CHANGE OR OBSERVE THE CONTENTS OF CERTAIN REGISTERS
      174                            * (SEE CONTROL OPTIONS).  THE PROGRAM CAN BE RESTARTED BY CLEARING THE
      175                            * WAIT.
      176                            *
      177                            * IF COMPLETE LOSS OF PROGRAM CONTROL OCCURS, THE PROGRAM CAN BE
      178                            * RESTARTED BY PRESSING THE SYS RESET BUTTON AND SETTING THE COMPUTE
      179                            * SWITCH TO RUN.
      180                            *
      181                            *
      182                            * TERMINATION PROCEDURES
      183                            *
      184                            * ONCE STARTED, THE PROGRAM RUNS CONTINUOUSLY UNTIL AN ERROR OCCURS
      185                            * (SS4 SET TO 0).  THE PROGRAM CAN BE TERMINATED AT ANY TIME BY THE
      186                            * OPERATOR.
      187                            *
      188                            *
      189                            * SUCCESS/FAILURE INDICATIONS
      190                            *
      191                            * INDICATIONS OF SUCCESS OR FAILURE ARE GIVEN BY PROGRAMMED WAITS AND
      192                            * MESSAGE PRINTOUTS.
      193                            * THE PROGRAM PRINTS THE MESSAGE '20 PASSES' AT THE COMPLETION OF
      194                            * EVERY TWENTIETH PASS THROUGH THE PROGRAM.
      195                            *
      196                            *
      197                            * WAITS
      198                            *
      199                            * TO DETERMINE THE CAUSE OF A WAIT AND THE RECOVERY PROCEDURE, PROCEED
      200                            * AS FOLLOWS:
      201                            *
      202                            *     1. OBSERVE INSTRUCTION ADDRESS INDICATORS FOR ADDRESS OF WAIT.
      203                            *
      204                            *     2. LOOK UP ADDRESS IN THIRD COLUMN OF PROGRAM LISTING.  DESCRIP-
      205                            * TION OF WAIT IS GIVEN IN COMMENTS ADJACENT TO WAIT INSTRUCTION.
      206                            *
      207                            *
      208                            * MESSAGE PRINTOUTS
      209                            *
      210                            * IF SS3 IS SET TO 1, A MESSAGE IS PRINTED OUT FOR EVERY TEST
      211                            * IRRESPECTIVE OF ERROR RECOGNITION.  SUCCESS IS RECOGNIZED WHEN DATA
      212                            * STORED IS EQUAL TO DATA READ OUT.  IF AN ERROR IS DETECTED, THE
      213                            * PROGRAM LOADS THE MAP/AC REGISTERS WITH DIFFERENT TEST PATTERNS TO
      214                            * IDENTIFY POSSIBLE INTERFERENCE FROM A SUCCEEDING BLOCK.  FOUR SUC-
      215                            * CESSIVE BLOCKS ARE LOCATED ON ONE MODULE, THUS GIVING:
      216                            *
      217                            *     1. 16 CONSECUTIVE PAGES PER BLOCK FOR AC TESTS.
      218                            *
      219                            *     2. 4 CONSECUTIVE PAGES PER BLOCK FOR MAP TESTS.
      220                            *
      221                            *
      222                            * FOUR MAIN FAILURES CAN BE LISTED:
      223                            *
      224                            *     1. SINGLE FAILURE - A FAILURE AFFECTING ONE OR MORE PAGES WITHIN
      225                            * THE MODULE CURRENTLY UNDER TEST OR WITHIN A PREVIOUSLY TESTED MODULE.
      226                            * THIS CATEGORY ALSO INCLUDES MULTIPLE FAILURES OF A NONINTERRELATED
      227                            * NATURE.
      228                            *
      229                            *     2. MULTIPLE FAILURES - THESE FAILURES ARE INTERACTIVE.  ALTHOUGH
      230                            * THE PROGRAM TRIES TO GIVE CAUSES OF ERRORS, THE CONCLUSIONS MAY NOT
      231                            * BE PRECISE.
      232                            *
      233                            *     3. COMMON INPUT/OUTPUT LINE ERRORS - ERRORS DUE TO SHORTED OR
      234                            * OPEN INPUT DIODES, ADDRESS LINES, DATA OUTPUT LINES, OR SOME OTHER
      235                            * COMMON SIGNALS.  THESE ERRORS INDICATE A DEFINITE FAILURE PATTERN.
      236                            *
      237                            *     4. VIRTUAL PAGE 0 (VP0) FAILURE - THIS FAILURE MAY NOT NECESSARILY
      238                            * BE DUE TO AN ERROR IN VP0.  IT MAY ALSO BE DUE TO A NONALLOWED OPER-
      239                            * ATION TRAP OR A NONEXISTENT INSTRUCTION TRAP. THE FOLLOWING STEPS
      240                            * SHOULD BE TAKEN TO FURTHER ANALYZE THE RESULTS:
      241                            *
      242                            *         A. NOTE ADDRESS IN BITS 15-31 AT LOCATION MACTRAP.
      243                            *
      244                            *         B. CHECK BITS 8 AND 9 AT THIS LOCATION.  IF BOTH BITS ARE 0,
      245                            * THE PROGRAM IS IN NONMAPPING MODE AND A NONEXISTENT INSTRUCTION IS
      246                            * ATTEMPTED.  GENERALLY THIS SHOULD NOT HAPPEN UNLESS THE OPERATOR HAS
      247                            * ALTERED CONTENTS OF THE PROGRAM OR MADE SOME OPERATIONAL ERRORS.
      248                            * DISPLAYING THE INSTRUCTION AT THE ADDRESS IN BITS 15-31 WILL SHOW
      249                            * WHERE THE PROGRAM IS.
      250                            *
      251                            *         C. IF BITS 8 AND 9 AT LOCATION MACTRAP ARE 11, THE PROGRAM IS
      252                            * IN MAPPING AND SLAVE MODE.  IF LOCATION BLK16AC IS NEGATIVE, MAP TEST
      253                            * IS BEING PERFORMED AND THE ERROR IS PROBABLY IN VP0.  IF LOCATION
      254                            * BLK16AC IS NOT NEGATIVE, AC TESTING IS BEING PERFORMED.  NOTE THE
      255                            * PAGE BEING TESTED BY DISPLAYING BITS 15-22 OF R1.  THE ERROR IS
      256                            * PROBABLY IN THIS MAP REGISTER. IT CANNOT HOLD '00'.
      257                            *
      258                            *     5. THE MESSAGE 'ABORT  LOGIC  IS  MALFUNCTIONING' INDICATES
      259                            *        ONE OF THE FOLLOWING:
      260                            *
      261                            *        A. DATA IN MEMORY LOCATION X'1FF' WAS CHANGED WHEN ACCESS
      262                            *           PROTECTION ALLOWED ONLY READING OF THIS LOCATION.
      263                            *
      264                            *        B. AN ACCESS VIOLATION OCCURED WHEN NOT EXPECTED AND
      265                            *           PROGRAM CAN NOT DETERMINE CAUSE.
      266                            *
      267                            *        THIS MESSAGE NORMALLY INDICATES THE INABILITY OF THE
      268                            *        ACCESS PROTECTION LOGIC TO ABORT THE INSTRUCTIONS
      269                            *        OPERATION OR MAJOR LOGIC FAILURE IN ACCESS PROTECTION.
      270                            *
      271                            *
      272                            * APPENDIX C CONTAINS THREE TYPICAL PRINTOUTS.  CASE 1 SHOWS A SUCCESS-
      273                            * FUL PRINTOUT.  CASE 2 SHOWS AN ISOLATED FAILURE IN MODULE 27Y.
      274                            * CASE 3 SHOWS A COMMON INPUT ERROR.  IN THIS CASE THE ERROR IS REPORTED
      275                            * ON EVERY FOURTH LINE.  A CLOSER LOOK INDICATES FAILURE OF INPUT
      276                            * SIGNAL W/PB1/16, PIN 10Y-34.
      277                            *
      278                            *
      279                            * FAULT  DICTIONARY
      280                            *
      281                            * THE FOLLOWING SIGNALS FURTHER TESTED ARE NOT ON STANDARD MAP/AC
      282                            * MODULES AND ARE LISTED FOR QUICK REFERENCE:
      283                            *
      284                            *          SIGNAL        MODULE      PIN
      285                            *
      286                            *          NPCB0           3Y         2
      287                            *
      288                            *       FAILD-WRITE        2V        11
      289                            *
      290                            *       ABORT LOGIC     14V, 2V,
      291                            *                        OR 4U
      292                            *
      293                            *
      294                            *
      295                                     SYSTEM   SIG7FDP
      296                            *        FILLS  ALL  LOC  BETWEEN  AF AND % WITH  ZEROS
      297         00000000           FILL     CNAME
      298                                     PROC
      299                                     DISP     %
      300                                     LIST     0
      301                            LF       EQU      %
      302                                     DO       ABSVAL(AF)-ABSVAL(%)
      303                                     GEN,32   0
      304                                     FIN
      305                                     LIST     1
      306                                     PEND
      307         00000000           FILL11   CNAME
      308                                     PROC
      309                                     DISP     %
      310                                     LIST     0
      311                            LF       EQU      %
      312                                     DO       ABSVAL(AF)-ABSVAL(%)
      313                                     GEN,32   X'FFFFFFFF'       GENERATES ALL 1'S
      314                                     FIN
      315                                     LIST     1
      316                                     PEND
      317         00000001           X1       EQU      1
      318         00000002           X2       EQU      2
      319         00000003           X3       EQU      3
      320         00000004           X4       EQU      4
      321         00000005           X5       EQU      5
      322         00000006           X6       EQU      6
      323         00000007           X7       EQU      7
      324         00000000           R0       EQU      0
      325         00000001           R1       EQU      1
      326         00000002           R2       EQU      2
      327         00000003           R3       EQU      3
      328         00000004           R4       EQU      4
      329         00000005           R5       EQU      5
      330         00000006           R6       EQU      6
      331         00000007           R7       EQU      7
      332         00000008           R8       EQU      8
      333         00000009           R9       EQU      9
      334         0000000A           R10      EQU      10
      335         0000000B           R11      EQU      11
      336         0000000C           R12      EQU      12
      337         0000000D           R13      EQU      13
      338         0000000E           R14      EQU      14
      339         0000000F           R15      EQU      15
      340   01 00040                          ORG      X'40'
            01 00040
      341   01 00040    0F000086              XPSD,0   SIGMA5            FIRST TRAP SIGMA 5
      342         01 00041                    FILL     X'48'
      343   01 00048    0F0000D6              XPSD,0   SUPMODE           TO SUPERVISOR MODE IF CALL1
      344   01 00049    0F000350              XPSD,0   SUPMAP            FOR CAL2 INST AFTER MAP TEST
      345   01 0004A    0F00024E              XPSD,0   SUPNPCB           CAL 3 FOR NPCB TEST
      346         01 0004B                    FILL     X'52'
      347   01 00052    331004D0              MTW,1    CNTR1
      348   01 00053    331004D1              MTW,1    CNTR2
      349   01 00054    331004D2              MTW,1    CNTR3
      350   01 00055    331004D3     CNT4I    MTW,1    CNTR4
      351         01 00056                    FILL     X'5A'
      352   01 0005A    22A0000A A            LI,10    10
      353   01 0005B    06000000 A            CAL3,0   0
      354   01 0005C    0F00008A              XPSD,0   MEMSZ
      355   01 0005D    0F0004DA              XPSD,0   CPNINT            CONTROL PANEL INTERRUPT
      356   01 0005E    00000000 A   PGMAX    DATA     0                 MAX PG NO
      357   01 0005F    000FFFFF A   MEMLIMT  DATA     X'FFFFF'          1 MEGA WORD
      358   01 00060    0E000080     START    LPSD,0   LPSDMA            CHECK FOR BIG MEMORY
      359   01 00061    0F000082              XPSD,0   XPSDMA            IS IF MA BIT IS SET
      360   01 00062    28500060              CVS,5    START             CHECK IF ON SIGMA 5
      361   01 00063    6AF00602     START2   BAL,15   CHKBIG            IF BIG CHECK FEATURES
      362   01 00064    225001FF A            LI,5     X'1FF'
      363   01 00065    22E00000 A            LI,14    0
      364   01 00066    35E004D3              STW,14   CNTR4
      365   01 00067    32E00584              LW,14    CNT4INIT
      366   01 00068    35E00055 A            STW,14   X'55'
      367   01 00069    22E00010 A            LI,14    X'0010'
      368   01 0006A    6DE01200 A            WD,14    X'1200'           ARM AND ENABLE CNTRL PNL INTRPT
      369   01 0006B    324000BA              LW,4     XEQINST
      370   01 0006C    32A0005C A            LW,10    X'5C'
      371   01 0006D    35A00040 A            STW,10   X'40'             STORE AT X'40'
      372   01 0006E    32B000A9              LW,11    BSTART
      373   01 0006F    35B00026 A            STW,11   X'26'             STORE BR TO START AFTER CPU RST
      374   01 00070    22D00000 A            LI,13    0
      375   01 00071    215009FF A   LOADMM   CI,5     X'9FF'            DO NOT RESET MEM. LESS THAN 7FF
      376   01 00072    69100076              BL       SETPAGE           IF ADDRESS < 7FF PROGRAM AREA IS HERE
      377                            *    PROGRAM MUST NOT GO BEYOND X'7FF' LOCATION.
      378   01 00073    227FFE01 A            LI,7     -X'1FF'
      379   01 00074    B5DE0005 A            STW,13   *5,X7
      380   01 00075    65700074              BIR,R7   %-1               RESET WORD 00 TO 1FE OF EVERY PAGE
      381   01 00076    95400005 A   SETPAGE  STD,4    *5
      382   01 00077    3150005F              CW,5     MEMLIMT           1 MEG ON SIGMA 7
      383   01 00078    6830008F              BE       SZXIT
      384   01 00079    20500200 A   NEXTPG   AI,5     X'200'            FOR NEXT PAGE
      385   01 0007A    68000071              B        LOADMM
      386   01 0007B    2257FFFF A   SIGM5M   LI,5     X'7FFFF'          512K LIMIT
      387   01 0007C    3550005F              STW,5    MEMLIMT
      388   01 0007D    68000063              B        START2
      389   01 0007E    0F400176     XCSTRAP  XPSD,4   MACTRAP
      390   01 0007F    00000000 A   BLK16AC  DATA     0                 BLK OF 16 AC REGS.
      391                                     BOUND    8
      392   01 00080    00000061     LPSDMA   DATA     START+1,X'00800000' SET MA
            01 00081    00800000 A
      393   01 00082    00000000 A   XPSDMA   DATA     0,0,START+2,X'00800000'
            01 00083    00000000 A
            01 00084    00000062
            01 00085    00800000 A
      394   01 00086    00000000 A   SIGMA5   DATA     0,0,SIGM5M,X'00800000'
            01 00087    00000000 A
            01 00088    0000007B
            01 00089    00800000 A
      395   01 0008A    00000000 A   MEMSZ    DATA     0,0
            01 0008B    00000000 A
      396   01 0008C    0000008E              DATA     %+2,X'00800000'
            01 0008D    00800000 A
      397   01 0008E    205FFE00 A            AI,5     -512              ADRS IN R5 TOO LARGE BY 1 PAGE
      398   01 0008F    3550005E     SZXIT    STW,5    PGMAX             MAX PAGE NUMBER IN THIS M/C
      399   01 00090    3210007E              LW,1     XCSTRAP
      400   01 00091    35100040 A            STW,1    X'40'
      401   01 00092    22600001 A            LI,6     1
      402   01 00093    3560020F              STW,6    TRAPLVL
      403   01 00094    22000055              LI,R0    DA(MNHD)
      404   01 00095    0F000116              XPSD,0   PRINT
      405   01 00096    22000000 A            LI,0     0
      406   01 00097    35000268              STW,0    WRTCHK
      407   01 00098    35000393              STW,0    ERRCOUNT
      408   01 00099    35000392              STW,0    PASCOUNT
      409   01 0009A    350005CF              STW,0    PASCNT2           RESET PASS MESSAGE COUNT
      410   01 0009B    6C000000 A            RD,0     0                 IF SS1 ON WHEN LOADING
      411   01 0009C    6880009F              BCR,8    %+3               PREVENT COUNTER INTER IMP IF SS1=0
      412   01 0009D    2E000000 A            WAIT     0                 TURN SS1=0
      413   01 0009E    350004CF              STW,0    CPINTM            RESET CPINTM
      414   01 0009F    3500023C              STW,0    INTBLK            INTRFERE BLK RESET
      415   01 000A0    325004D4              LW,5     MASK
      416   01 000A1    6D501100 A            WD,5     X'1100'           DISABLE INTERRUPTS
      417   01 000A2    32F0067E              LW,15    =X'02200000'      INST LCI 0 IN R15
      418   01 000A3    35F0002F A            STW,15   X'2F'
      419   01 000A4    6C000000 A            RD,0     0
      420   01 000A5    682000BB              BCR,2    MPRESET
      421   01 000A6    2200005C              LI,R0    DA(HDTP)          HEADING TYPE
      422   01 000A7    0F000116              XPSD,0   PRINT
      423   01 000A8    680000BB              B        MPRESET
      424   01 000A9    68000060     BSTART   B        START
      425                                     BOUND    8
      426   01 000AA    050002B0     MNHD     GEN,8,24 X'05',BA(HDMN)
      427   01 000AB    02000030 A            GEN,8,24 X'02',48
      428   01 000AC    1540E2C9 A   HDMN     DATA     X'1540E2C9'       CARR/RET,SPACE,S,I CHARACTERS
      429   01 000AD    C7D4C140 A            TEXT     'GMA CPU DIAGNOSTIC-MAP  PROGRAM 960-0012-1A'
            01 000AE    C3D7E440 A
            01 000AF    C4C9C1C7 A
            01 000B0    D5D6E2E3 A
            01 000B1    C9C360D4 A
            01 000B2    C1D74040 A
            01 000B3    D7D9D6C7 A
            01 000B4    D9C1D440 A
            01 000B5    F9F6F060 A
            01 000B6    F0F0F1F2 A
            01 000B7    60F1C140 A
      430                                     BOUND    8
      431   01 000B8    05000820     HDTP     GEN,8,24 X'05',BA(TYPHDNG) TYPE OUT HEADING
      432   01 000B9    02000018 A            GEN,8,24 X'02',24          TYPE OUT HEADING
      433   01 000BA    2210000F A   XEQINST  LI,1     15
      434   01 000BB    22200126     MPRESET  LI,2     MPINIT
      435   01 000BC    3230067F              LW,3     =X'40000000'      INITIALIZE MAP TO ZEROS
      436   01 000BD    6F280000 A            MMC,2    4
      437   01 000BE    22200166              LI,2     ACINIT            AC INITIALIZE TO ALL IS 16 REGS
      438   01 000BF    32300680              LW,3     =X'10000000'
      439   01 000C0    6F240000 A            MMC,2    2
      440   01 000C1    18000000 A            SD,0     0                 RESET R0 R1 R1 HAS VP ADRS FOR INDEXING
      441   01 000C2    35000107              STW,0    VPID
      442   01 000C3    3500007F              STW,0    BLK16AC
      443   01 000C4    350000F0              STW,0    VPAGE
      444   01 000C5    15000206              STD,0    RSLT+4
      445   01 000C6    32500166              LW,5     ACINIT
      446   01 000C7    32300681              LW,3     =X'C0000000'      MASK BITS FOR VP NUMBER IDENTITY
      447   01 000C8    224FFFFF A            LI,4     -1                MASK FOR RESETTING LEFT VP BITS
      448   01 000C9    22200000 A            LI,2     0
      449   01 000CA    02200040 A            LCI      4                 STORE INST FOR PAGE 0
      450   01 000CB    2AA00112              LM,10    VP1FFTS1          LOAD SLAVE MODE 4 INST
      451   01 000CC    2BA00030 A            STM,10   X'30'
      452   01 000CD    12E0034A              LD,14    MPVPTST+2
      453   01 000CE    32C00269              LW,12    VP0FLD
      454   01 000CF    35C000D1              STW,12   XACVP
      455   01 000D0    15E00034 A            STD,14   X'34'             STORE MAP TEST SLAVE MODE INST AT
      456   01 000D1    0E00028A     XACVP    LPSD,0   VP0TST              X'34'
      457   01 000D2    0E000110     VP1FLD   LPSD,0   VP1FFTST
      458   01 000D3    00000000 A   CVPAC    DATA     0                 CURNT VP AC BITS
      459                                     BOUND    8
      460   01 000D4    00000000 A   R01ST    DATA     0,0               STOPING R0 R1
            01 000D5    00000000 A
      461                                     BOUND    8
      462   01 000D6    00000000 A   SUPMODE  DATA     0,0
            01 000D7    00000000 A
      463   01 000D8    000000DA              DATA     %+2,X'00800000'
            01 000D9    00800000 A
      464   01 000DA    02200060 A            LCI      6
      465   01 000DB    2B000236              STM,0    R05STOR           STORE 6 REGS
      466   01 000DC    32A00268              LW,10    WRTCHK            IF WRITE CHECK
      467   01 000DD    69200295              BGZ      WRERROR
      468   01 000DE    25100077 A            SLS,R1   -9                PAGE POINTER SHIFTED
      469   01 000DF    4B100682              AND,R1   =15               PAGE NU IN THIS BLCK RETAINED
      470                            *  SHIFT  RT  R5  BY  32-2(N+1) BITS WHERE N IS VALUE IN R0
      471   01 000E0    22C0001E A            LI,12    30
      472   01 000E1    30100001 A            AW,R1    R1                DBL N
      473   01 000E2    3810000C A            SW,R1    12                30-2N
      474   01 000E3    25520000 A            SLS,5    0,X1              LAST 2 BITS OF R5 ARE CURNT VP ACS.
      475   01 000E4    355000D3              STW,5    CVPAC             CURRENT VP AC BITS STORED
      476   01 000E5    22300003 A            LI,3     3                 INST NUMBER=3
      477   01 000E6    680001AB              B        ANALCNT           CONTINUE TRAP ANALYSIS
      478   01 000E7    20100200 A   NXTVP    AI,1     X'200'            INCREMENT PAGE POINTER FOR NEXT PAGE
      479   01 000E8    35100107              STW,1    VPID              STORE PAGE ADRS FOR INTERM USE OF R1
      480   01 000E9    32500005 A            LW,5     5                 IF R5 EQ 0 BR
      481   01 000EA    683000F2              BEZ      NXT16BLK
      482   01 000EB    2540007E A            SLS,4    -2                NEXT VP IN SAME BLOCK
      483   01 000EC    2530007E A            SLS,3    -2
      484   01 000ED    331000F0              MTW,1    VPAGE             INCREM PAGE NO IN THIS BLOCK
      485   01 000EE    32500004 A            LW,5     4
      486   01 000EF    680000F8              B        LPSDBR
      487   01 000F0    00000000 A   VPAGE    DATA     0                 PAGE NU IN THIS BLOCK
      488   01 000F1    00000000 A   BLK64MAP DATA     0                 BLK OF 64 MAP REGS.
      489   01 000F2    3210007F     NXT16BLK LW,1     BLK16AC
      490   01 000F3    353000F0              STW,3    VPAGE             RESET PAGE NUMB IN THIS BLOCK
      491   01 000F4    3310007F              MTW,1    BLK16AC           ELSE CONTINUE FOR NEXT BLOCK
      492   01 000F5    32300681              LW,3     =X'C0000000'      RESET R3 R4 TO TOP PAGE OF BLOCK
      493   01 000F6    224FFFFF A            LI,4     -1
      494   01 000F7    225FFFFF A            LI,5     -1
      495   01 000F8    321000D2     LPSDBR   LW,1     VP1FLD
      496   01 000F9    351000D1              STW,1    XACVP
      497   01 000FA    32F0007F              LW,15    BLK16AC           BLK16 NUMBER
      498   01 000FB    25F0000D A            SLS,15   13                CONTROL START LOADED WITH WORD NUMBER
      499   01 000FC    30F00683              AW,15    =X'01000000'      WRD COUNT 1
      500   01 000FD    22E00005 A            LI,14    5                 PROGRAM CONTROL IMAGE IS IN R5
      501   01 000FE    6FE40000 A            MMC,14   2
      502   01 000FF    22D0000F A            LI,13    15
      503   01 00100    38D0007F              SW,13    BLK16AC
      504   01 00101    68300105              BEZ      ACXYZ1
      505   01 00102    75D0000F A            STB,13   R15
      506   01 00103    22E00167              LI,14    ACINIT+1
      507   01 00104    6FE40000 A            MMC,14   2
      508   01 00105    32100107     ACXYZ1   LW,1     VPID
      509   01 00106    680000D1              B        XACVP
      510   01 00107    00000000 A   VPID     DATA     0                 STORE PAGE IDENTI
      511   01 00108    221FFFFF A   ACEND    LI,1     -1                LOAD -1 IN BLK16AC
      512   01 00109    3510007F              STW,1    BLK16AC           RESET AC BLK COUNTER
      513   01 0010A    6C000000 A            RD,0     0
      514   01 0010B    6820010E              BCR,2    ACXIT
      515   01 0010C    2200020C              LI,0     DA(PRACND)
      516   01 0010D    0F000116              XPSD,0   PRINT
      517   01 0010E    6800033C     ACXIT    B        MAPTEST
      518   01 0010F    00002000 A   RSTACLD  DATA     X'00002000'       FOR LOADING REST OF THE AC BLOCKS
      519                                     BOUND    8
      520   01 00110    00C0     A   VP1FFTST DATA,2   X'00C0',X'2F'
            01 00110 2  002F     A
      521                            *    SLAVE  MODE   INSTS ALWAYS FETCHED FROM X'30'-X'33'
      522   01 00111    00000000 A            DATA     0
      523   01 00112    32C201FF A   VP1FFTS1 LW,12    X'1FF',X1         RD/WR/ACS
      524   01 00113    680201FF A            BCR,0    X'1FF',X1         EXQT INST AT (2N+1)FF TO TEST AC = 10
      525   01 00114    350201FF A            STW,0    X'1FF',X1
      526   01 00115    04000000 A            CAL1,0   0,0               TO X'48' IF ARRIVE HERE
      527                                     BOUND    8
      528   01 00116    00000000 A   PRINT    DATA     0,0,PRINT+4,X'00800000'
            01 00117    00000000 A
            01 00118    0000011A
            01 00119    00800000 A
      529   01 0011A    CDB00124              TIO,11   *TYPE             CHECK CONDITION OF DEVICE
      530   01 0011B    7020000B A            LC       11                BITS 0 - 3 OF STATUS IN COND CODE OF PSD
      531   01 0011C    6860011E              BCR,6    %+2
      532   01 0011D    68000123              B        EXITIO            ELSE SKIP PRINT
      533   01 0011E    69100120              BCS,1    BUSY              IF AUTOMATIC BR
      534   01 0011F    68000123              B        EXITIO            ELSE BR
      535   01 00120    CCB00124     BUSY     SIO,11   *TYPE             PRINT OUT MESSAGE
      536   01 00121    CDB00124     DONEMSG  TIO,11   *TYPE
      537   01 00122    69C00121              BCS,12   DONEMSG           IF NOT THROUGH BR BACK
      538   01 00123    0E000116     EXITIO   LPSD,0   PRINT
      539   01 00124    00000001 A   TYPE     DATA     1                 TYPE WRITER ADRS
      540                                     BOUND    8
      541         01 00126           MPINIT   FILL     %+64              64 WORDS OF ZERO
      542   01 00166    CFFFFFFF A   ACINIT   DATA     X'CFFFFFFF'       SET VP1 TO 00 FOR TESTING VP0
      543         01 00167                    FILL11   %+15
      544   01 00176    00000000 A   MACTRAP  DATA     0,0,MACTRAP+4,X'00800000'
            01 00177    00000000 A
            01 00178    0000017A
            01 00179    00800000 A
      545   01 0017A    2E000000 A            WAIT     0                 ERROR IF ARRIVE HERE
      546   01 0017B    68000194              B        MEMPRTC           MEM PROTECT ROUTINE
      547   01 0017C    2E000002 A            WAIT     2                 PREVILEGED INST. VIOLATION
      548   01 0017D    2E000003 A            WAIT     3                 PROTECT PRIVILEGED VIOLATIONS
      549   01 0017E    6800031D              B        EXCMEM            EXCESS MEM REFERRED
      550   01 0017F    68000327              B        PRTEXC            PROTECT & EXCESS MEM
      551   01 00180    2E000006 A            WAIT     6                 EXCESS MEM PRIVILEGED INST.
      552   01 00181    2E000007 A            WAIT     7                 EXCESS PRIVILEGED & PROGECT
      553   01 00182    6800018C              B        INSACS            INST ACS RTN
      554   01 00183    68000194              B        MEMPRTC           INST IMPLEM & PROTECT
      555   01 00184    2E00000A A            WAIT     10
      556   01 00185    2E00000B A            WAIT     11
      557   01 00186    6800018C              B        INSACS            BR TO INST ACS
      558   01 00187    2E00000D A            WAIT     13
      559   01 00188    2E00000E A            WAIT     14
      560   01 00189    2E00000F A            WAIT     15
      561   01 0018A    22300001 A   ACSTRP   LI,3     1
      562   01 0018B    680001AB              B        ANALCNT
      563   01 0018C    32A00176     INSACS   LW,10    MACTRAP
      564   01 0018D    22B001FF A            LI,11    X'1FF'
      565   01 0018E    45B0000A A            CS,11    R10               IF LAST 9 BITS ARE '1FF'
      566   01 0018F    69300298              BNE      ACMER             IF NOT EQU ERROR IN MAPPING VP0
      567   01 00190    4BA00684              AND,10   =X'FFFE0000'
      568   01 00191    20A00032 A            AI,10    X'32'             NEXT INST TO BE AT X '32'
      569   01 00192    35A00176              STW,10   MACTRAP
      570   01 00193    0E000176              LPSD,0   MACTRAP
      571   01 00194    02200060 A   MEMPRTC  LCI      6
      572   01 00195    2B000236              STM,0    R05STOR
      573   01 00196    328001CE              LW,8     PB0TSTBT          IF NPCB0 TEST
      574   01 00197    6920029B              BGZ      PNPCB
      575   01 00198    32A00268              LW,10    WRTCHK            IF WRITE CHK
      576   01 00199    6920028C              BGZ      WRTXIT            WRITE XIT IF WRTCHK=1
      577   01 0019A    3280007F              LW,8     BLK16AC           IF BLK16AC=-VE
      578   01 0019B    691004B0              BLZ      MAPERAC           ERROR IN MAP ACCESS IF ARRIVE HERE
      579                            *    R5  HAS BIT  PATTERN FOR THIS BLOCK OF REGS.
      580   01 0019C    25100077 A            SLS,R1   -9                PAGE POINTER SHIFTED
      581   01 0019D    4B100682              AND,R1   =15
      582   01 0019E    30100001 A            AW,R1    R1
      583   01 0019F    22C0001E A            LI,12    30
      584   01 001A0    3810000C A            SW,R1    12
      585   01 001A1    25520000 A            SLS,5    0,X1
      586   01 001A2    355000D3              STW,5    CVPAC             CURRENT VP AC BITS
      587   01 001A3    32300176     TRPANAL  LW,3     MACTRAP
      588   01 001A4    4B300685              AND,3    =X'FF'            IF THE ADRS IS XYZFF
      589   01 001A5    31300685              CW,3     =X'FF'            IF THE ADRS IS XYZFF
      590   01 001A6    6830018A              BE       ACSTRP            IF YES IT IS ACS TRAP
      591   01 001A7    2130002F A            CI,3     X'2F'             IF IT IS X'2F'
      592   01 001A8    693001AA              BNE      %+2
      593   01 001A9    22300000 A            LI,3     0                 ELSE PUT 0 IN R3 FOR AC=11
      594   01 001AA    4B300686              AND,3    =3                RETAIN LAST 2 BITS FOR INST IDENTIFY
      595   01 001AB    3530020E     ANALCNT  STW,3    INUMB             STORE INST NUMBER
      596   01 001AC    48300686              EOR,3    =3                GIVES AC READ OUT BY REVERSING BITS
      597   01 001AD    35300210              STW,3    ACREAD
      598   01 001AE    6AF00304              BAL,15   ANLABORT          ANALYSE FOR ABHORT ERROR
      599   01 001AF    32C000D3              LW,12    CVPAC
      600   01 001B0    6AF001B9              BAL,15   DTFORM
      601   01 001B1    35D00204              STW,13   RSLT+2
      602   01 001B2    32C00210              LW,12    ACREAD
      603   01 001B3    6AF001B9              BAL,15   DTFORM
      604   01 001B4    25D00070 A            SLS,13   -16
      605   01 001B5    55D00207              STH,13   RSLT+5
      606   01 001B6    313000D3              CW,3     CVPAC             IF ACR=ACS
      607   01 001B7    683002CD              BE       SEQRTR            IF YES STOR = READ TRAP
      608   01 001B8    680001C0              B        NEQTRAP
      609   01 001B9    25C0017F A   DTFORM   SLD,12   -1                BIT 31 IN R13
      610   01 001BA    25D00079 A            SLS,13   -7
      611   01 001BB    49D00687              OR,13    =X'F0000000'
      612   01 001BC    25C0017F A            SLD,12   -1
      613   01 001BD    25D00079 A            SLS,13   -7
      614   01 001BE    49D00687              OR,13    =X'F0000000'
      615   01 001BF    E800000F A            B        *15
      616   01 001C0    3210020F     NEQTRAP  LW,1     TRAPLVL
      617   01 001C1    692001E2              BGZ      ERTRP1            BR TO ERROR TRAP 1
      618   01 001C2    6910023D              BLZ      ERTRPM1           ERROR TRAP -1
      619   01 001C3    32A00176              LW,10    MACTRAP
      620   01 001C4    4BA00685              AND,10   =X'FF'
      621   01 001C5    21A0002F A            CI,10    X'2F'             IF ADRS IS X'2F'
      622   01 001C6    683001CF              BE       ERNPCB0
      623   01 001C7    3270007F              LW,7     BLK16AC
      624   01 001C8    2570007E A            SLS,7    -2
      625   01 001C9    527E04AE              LH,7     ACBLMOD,X7
      626   01 001CA    55700276              STH,7    MODNUMBR+2
      627   01 001CB    220000F0              LI,0     DA(ACMD)          PRINT MOD NUMBER
      628   01 001CC    0F000116              XPSD,0   PRINT
      629   01 001CD    68000277              B        CHKVPFF
      630   01 001CE    00000000 A   PB0TSTBT DATA     0                 NPCB0 TEST BIT
      631   01 001CF    331001CE     ERNPCB0  MTW,1    PB0TSTBT          SET TEST BIT
      632   01 001D0    0E0001D2              LPSD,0   TSTPCB
      633                                     BOUND    8
      634   01 001D2    00C0     A   TSTPCB   DATA,2   X'00C0',X'45A'
            01 001D2 2  045A     A
      635   01 001D3    00000000 A            DATA     0
      636                                     BOUND    8
      637   01 001D4    05000758     NPCB0ER  GEN,8,24 X'05',BA(PRNPCB0)
      638   01 001D5    02000028 A            GEN,8,24 X'02',40
      639   01 001D6    154040C1 A   PRNPCB0  TEXT     '
  AC REG 0 CAN NOT RETAIN 00 -MODULE 9Y'
            01 001D7    C340D9C5 A
            01 001D8    C740F040 A
            01 001D9    C3C1D540 A
            01 001DA    D5D6E340 A
            01 001DB    D9C5E3C1 A
            01 001DC    C9D540F0 A
            01 001DD    F04060D4 A
            01 001DE    D6C4E4D3 A
            01 001DF    C540F9E8 A
      640                                     BOUND    8
      641   01 001E0    050009CF     ACMD     GEN,8,24 X'05',BA(MODNUMBR)-1
      642   01 001E1    0200000C A            GEN,8,24 X'02',12
      643   01 001E2    02200060 A   ERTRP1   LCI      6
      644   01 001E3    2A000236              LM,0     R05STOR
      645   01 001E4    33100393              MTW,1    ERRCOUNT          INCREM ERROR COUNT
      646   01 001E5    6C000000 A            RD,0     0
      647   01 001E6    698000D1              BCS,8    XACVP
      648   01 001E7    32C00237              LW,12    R05STOR+1         R12 WILL HAVE VP NUMBER BITS 15-22
      649   01 001E8    25C00077 A            SLS,12   -9                VP NUMBER AS LAST BYTE
      650   01 001E9    6AF00211              BAL,15   BINHEX
      651   01 001EA    22100001 A            LI,1     1
      652   01 001EB    55D20202              STH,13   RSLT,X1           STORE VP NUMBER IN PRINT AREA
      653   01 001EC    6D000041 A            WD,0     X'41'             TURN ON ALARM
      654   01 001ED    22000100              LI,0     DA(MSGPRNT)       PRINR MEASGA
      655   01 001EE    0F000116              XPSD,0   PRINT
      656   01 001EF    02200060 A            LCI      6
      657   01 001F0    2A000236              LM,0     R05STOR
      658   01 001F1    6D000040 A            WD,0     X'40'             TURN OFF ALARM
      659   01 001F2    6C000000 A            RD,0     0
      660   01 001F3    694000FA              BCS,4    LDACRTN           LOOP LONG IF SS2=1
      661   01 001F4    33F0020F              MTW,-1   TRAPLVL
      662   01 001F5    32F0007F              LW,15    BLK16AC
      663   01 001F6    25F0000D A            SLS,15   13
      664   01 001F7    30F00683              AW,15    =X'01000000'      WORD COUNT NUMBER 1
      665   01 001F8    32B00005 A            LW,11    5                 LOAD R5 PWTTERN IN R11
      666   01 001F9    4BB00003 A            AND,11   R3                AND FOR REST REST OF THE CURNT BLK PAGES
      667   01 001FA    22E0000B A            LI,14    11                PATTERN IN R14 FOR MMC
      668   01 001FB    6FE40000 A            MMC,14   2
      669   01 001FC    22D0000F A            LI,13    15
      670   01 001FD    38D0007F              SW,13    BLK16AC
      671   01 001FE    683000D1              BEZ      XACVP             IF LAST BLOCK GO FOR XEQTING
      672   01 001FF    75D0000F A            STB,13   R15               STORE 15-(N) IN TOP BYTE OF R15 COUNT NO
      673   01 00200    22E00126              LI,14    MPINIT
      674   01 00201    6FE40000 A            MMC,14   2
      675   01 00202    680000D1              B        XACVP
      676   01 00200                          ORG      512
            01 00200
      677                            *  SEE EXPLANATION NEAR X'400'
      678                                     BOUND    8
      679   01 00200    05000808     MSGPRNT  GEN,8,24 X'05',BA(RSLT)
      680   01 00201    02000018 A            GEN,8,24 X'02',24          PRINT 24 CHARS OF MESSAGE
      681   01 00202    15404040 A   RSLT     TEXT     '
                       '
            01 00203    40404040 A
            01 00204    40404040 A
            01 00205    40404040 A
            01 00206    40404040 A
            01 00207    40404040 A
      682   01 00208    1540E5D7 A   TYPHDNG  TEXT     '
 VP  ACSTOR  ACREAD    '
            01 00209    4040C1C3 A
            01 0020A    E2E3D6D9 A
            01 0020B    4040C1C3 A
            01 0020C    D9C5C1C4 A
            01 0020D    40404040 A
      683   01 0020E    00000000 A   INUMB    DATA     0                 INST NUMBER WHICH CAUSED TRAP 0,1 OR 2
      684   01 0020F    00000001 A   TRAPLVL  DATA     1                 TRAP LEVEL SET TO 1 ORIGINALLY
      685   01 00210    00000000 A   ACREAD   DATA     0                 AC RETRIEVED STORED HERE 3,2 OR 1
      686   01 00211    221FFFF8 A   BINHEX   LI,1     -8
      687   01 00212    22D0000F A            LI,13    15
      688   01 00213    25C00304 A            SCD,12   4
      689   01 00214    21D000FA A            CI,R13   X'FA'
      690   01 00215    69100217              BCS,1    %+2
      691   01 00216    20D000C7 A            AI,13    X'C7'
      692   01 00217    75D2021E              STB,13   ZTEMP1+1,X1
      693   01 00218    65100212              BIR,X1   BINHEX+1
      694   01 00219    32D0021D              LW,R13   ZTEMP1
      695   01 0021A    32C0021C              LW,R12   ZTEMP
      696   01 0021B    E800000F A            B        *R15
      697   01 0021C    00000000 A   ZTEMP    DATA     0
      698   01 0021D    00000000 A   ZTEMP1   DATA     0,0
            01 0021E    00000000 A
      699   01 0021F    02200060 A   RELDAC   LCI      6
      700   01 00220    2A000236              LM,0     R05STOR
      701   01 00221    680000FA              B        LDACRTN
      702         01 000FA           LDACRTN  EQU      LPSDBR+2
      703         01 00222                    FILL     X'236'
      704                            *  LOC 230-236  AND 430- 436    MUST BE 0 SO THAT ERROR IN BIT 7 OR 8
      705                            * OF MAP REG WILL NOT  CAUSE PROGARM TO GO  OFF TRACK
      706                                     BOUND    8
      707         01 00236           R05STOR  FILL     %+6
      708                            *    IF  ARRIVE  HERE    BLK N+X CAUSES  INTERFERENCE  WITH CURRENT BLK
      709   01 0023C    00000000 A   INTBLK   DATA     0                 INTERFER BLK NUMBER STORED HERE
      710   01 0023D    32C002DD     ERTRPM1  LW,12    CSTNPLX
      711   01 0023E    25C00073 A            SLS,12   -13               LAST HEX CHAR AS N+X BLOCK
      712   01 0023F    4BC00685              AND,R12  =X'FF'
      713   01 00240    35C0023C              STW,12   INTBLK            INTRFERING BLK NUMBER STORED
      714   01 00241    73F0023C              MTB,-1   INTBLK            MAKE 1ST BYTE -1 TO IDENTIFY AS INTERFERENC
      715   01 00242    3270000C A            LW,7     R12
      716   01 00243    2570007E A            SLS,7    -2                DIVIDE BY 4 FOR MODULE NUMBER
      717   01 00244    4B700686              AND,7    =3                RETAIN ONLY LAST 2 BITS
      718   01 00245    527E04AE              LH,7     ACBLMOD,X7        LOAD MOD IDENT IN R7
      719   01 00246    55700276              STH,7    INTPRNT+10
      720   01 00247    6AF00211              BAL,15   BINHEX
      721   01 00248    4BD00688              AND,13   =X'40FF'          RETAIN ONLY THE LAST BYTE
      722   01 00249    55D00273              STH,13   INTPRNT+7
      723   01 0024A    22000135              LI,0     DA(PRININTF)
      724   01 0024B    0F000116              XPSD,0   PRINT             PRINT INTERF MESSAGE
      725   01 0024C    68000277              B        CHKVPFF           CHECK FOR LAST PAGE
      726                            *  THIS IS THE CHECK FOR LAST VP
      727                                     BOUND    8
      728   01 0024E    00000000 A   SUPNPCB  DATA     0,0
            01 0024F    00000000 A
      729   01 00250    00000252              DATA     %+2,X'00800000'
            01 00251    00800000 A
      730   01 00252    220000EA              LI,0     DA(NPCB0ER)
      731   01 00253    0F000116              XPSD,0   PRINT
      732   01 00254    33F001CE              MTW,-1   PB0TSTBT          RESET PB0 TEST BT
      733                            *   IF ARRIVE HERE VP0 IN ERROR PROGRAM CAN NOT CONTINUE
      734   01 00255    2E000000 A            WAIT     0
      735   01 00256    32E00237     VPTERM   LW,14    R05STOR+1         IF VP=255
      736   01 00257    22A00001 A            LI,10    1
      737   01 00258    35A0020F              STW,10   TRAPLVL           SET TRAP LEVEL TO 1
      738   01 00259    25E00077 A            SLS,14   -9
      739   01 0025A    21E000FF A            CI,14    255
      740   01 0025B    693002FD              BNE      CONNXT            CONT FOR NEXT VP
      741   01 0025C    3280023B              LW,8     R05STOR+5         LOAD AC PATTERN ON R8 FOR CHECK AC#00
      742   01 0025D    693002FD              BNEZ     CONNXT            IF NOT 0 BR FOR CONTUNUE
      743   01 0025E    22100200 A            LI,R1    X'200'            PAGE ADRS 1 IN R1
      744   01 0025F    32500689              LW,5     =X'2FFFFFFF'      CHECK VP1 FOR WRITE TRAP WITH AC=10
      745   01 00260    22E00005 A            LI,14    5
      746   01 00261    32F00683              LW,15    =X'01000000'      ONE WORD TO BE LOADED IN AC BLK 0
      747   01 00262    22C00001 A            LI,12    1
      748   01 00263    35C00268              STW,12   WRTCHK            STORE 1 IN WRITE CHK
      749   01 00264    6FE40000 A            MMC,14   2
      750   01 00265    33300110              MTW,3    VP1FFTST
      751   01 00266    22000000 A            LI,R0    0                 RESET R0
      752   01 00267    0E000110              LPSD,0   VP1FFTST
      753   01 00268    00000000 A   WRTCHK   DATA     0                 FLAG FOR WRITE CHECK LOGIC TEST
      754   01 00269    0E00028A     VP0FLD   LPSD,0   VP0TST
      755                                     BOUND    8
      756   01 0026A    050009B0     PRININTF GEN,8,24 X'05',BA(INTPRNT)
      757   01 0026B    0200002C A            GEN,8,24 X'02',44
      758   01 0026C    4040C9D5 A   INTPRNT  TEXT     '  INTERFERENCE  FROM  BLOCK     '
            01 0026D    E3C5D9C6 A
            01 0026E    C5D9C5D5 A
            01 0026F    C3C54040 A
            01 00270    C6D9D6D4 A
            01 00271    4040C2D3 A
            01 00272    D6C3D240 A
            01 00273    40404040 A
      759   01 00274    D4D6C4E4 A   MODNUMBR TEXT     'MODULE    Y '
            01 00275    D3C54040 A
            01 00276    4040E840 A
      760   01 00277    22A00001 A   CHKVPFF  LI,10    1
      761   01 00278    35A0020F              STW,10   TRAPLVL           SET TRAP LVL TO 1
      762   01 00279    6C000000 A            RD,0     0
      763   01 0027A    69100287              BCS,1    BACKBAC
      764   01 0027B    32E00237              LW,14    R05STOR+1
      765   01 0027C    25E00077 A            SLS,14   -9                LAST 8 BITS OF R4 GIVE VP NUMBER
      766   01 0027D    32F00210              LW,15    ACREAD            BITS 30 31 AS AC READ
      767   01 0027E    32A000D3              LW,10    CVPAC
      768   01 0027F    22700002 A            LI,7     2
      769   01 00280    75AE000F A            STB,10   R15,X7            AC STORED BITS IN 22 23 OF R15
      770   01 00281    55E0000F A            STH,14   R15               VP NUMB AS 8 15 BITS
      771   01 00282    32E0023C              LW,14    INTBLK            IF R 14 -VE INTEREFERENS FROM BLK
      772   01 00283    68300285              BEZ      %+2
      773   01 00284    7310000F A            MTB,1    R15
      774   01 00285    46E0000F A            XW,R14   R15               PUTS RSLTS IN R14 INTERFER BLK IN R15
      775   01 00286    2E000000 A            WAIT     0
      776   01 00287    22E00000 A   BACKBAC  LI,14    0
      777   01 00288    35E0023C              STW,14   INTBLK
      778   01 00289    68000256              B        VPTERM
      779                            * DISPLAY R 14 AND R 15  FOR RESULTS
      780                            * R14 INDICATES BIT 0 =0 AC TEST ELSE MAP TEST
      781                            * BIT 7 =1 INTRFERENCE   BIT(8-15)  VP REGISTER NUMBER BEING TESTED
      782                            *  BITS(16-23)  MAP/ AC STORED  BITS(24-31)  MAP / AC READ BITS
      783                            * DATA READ/ STORED : 8 BITS FOR MAP AND RIGHT MOST 2 BITS FOR AC TEST
      784                            * R15 : BITS(24-31) INTERFERENCE BLOCK NUMBER ,  IF BITS(0-7) = FF
      785                                     BOUND    8
      786   01 0028A    00C0     A   VP0TST   DATA,2   X'00C0',X'230'
            01 0028A 2  0230     A
      787                            *   MAPPED ADRS   TO BE AT     X'30'
      788   01 0028B    00000000 A            DATA     0
      789   01 0028C    33D00110     WRTXIT   MTW,-3   VP1FFTST
      790   01 0028D    32900269              LW,9     VP0FLD            PUT BACK CONDITIONS FOR INITIALIZE
      791   01 0028E    359000D1              STW,9    XACVP
      792                            *        FROM  HERE    COUNT  NUMBER OF PASSES OR ANYTHING
      793   01 0028F    32F00683              LW,15    =X'01000000'
      794   01 00290    22500000 A            LI,5     0
      795   01 00291    35500268              STW,5    WRTCHK            RESET WRT CHECK
      796   01 00292    22E00005 A            LI,14    5
      797   01 00293    6FE40000 A            MMC,14   2
      798   01 00294    68000108              B        ACEND
      799                            *    IF  ARRIVE  HERE IT IS END OF  AC TEST
      800                            *    AC  END     *  *  * *  *  *  *  *
      801                            *    AC  END     *  *  * *  *  *  *  *
      802   01 00295    2200015B     WRERROR  LI,0     DA(WPLOGIC)
      803   01 00296    0F000116              XPSD,0   PRINT
      804   01 00297    6800028C              B        WRTXIT
      805   01 00298    22000155     ACMER    LI,R0    DA(ERACM)
      806   01 00299    0F000116              XPSD,0   PRINT
      807   01 0029A    2E000000 A            WAIT     0
      808   01 0029B    22000150     PNPCB    LI,0     DA(CHNPC)
      809   01 0029C    0F000116              XPSD,0   PRINT
      810   01 0029D    33F001CE              MTW,-1   PB0TSTBT          RESET PB0 TST BIT
      811   01 0029E    2E000000 A            WAIT     0
      812                                     BOUND    8
      813   01 002A0    05000A88     CHNPC    GEN,8,24 X'05',BA(PCBCK)
      814   01 002A1    0200001C A            GEN,8,24 X'02',28
      815   01 002A2    1540D5D7 A   PCBCK    TEXT     '
 NPCB0 LOGIC MALFUNCTIONING'
            01 002A3    C3C2F040 A
            01 002A4    D3D6C7C9 A
            01 002A5    C340D4C1 A
            01 002A6    D3C6E4D5 A
            01 002A7    C3E3C9D6 A
            01 002A8    D5C9D5C7 A
      816                                     BOUND    8
      817   01 002AA    05000AB0     ERACM    GEN,8,24 X'05',BA(ERSTP)
      818   01 002AB    02000028 A            GEN,8,24 X'02',40
      819   01 002AC    154040E5 A   ERSTP    TEXT     '
  VP 0 DOES NOT MAP THE ADRS CORRECTLY '
            01 002AD    D740F040 A
            01 002AE    C4D6C5E2 A
            01 002AF    40D5D6E3 A
            01 002B0    40D4C1D7 A
            01 002B1    40E3C8C5 A
            01 002B2    40C1C4D9 A
            01 002B3    E240C3D6 A
            01 002B4    D9D9C5C3 A
            01 002B5    E3D3E840 A
      820                            *  HALT  IF WAIT  DUE TO THIS MESSAGE  NO TEST  CONTINUED
      821                                     BOUND    8
      822   01 002B6    05000AE0     WPLOGIC  GEN,8,24 X'05',BA(WRRSLT)
      823   01 002B7    02000054 A            GEN,8,24 X'02',84
      824   01 002B8    15404040 A   WRRSLT   TEXT     '
   WRITE  PROTECT  LOGIC DOES NOT GIVE TRAP  FO'
            01 002B9    E6D9C9E3 A
            01 002BA    C54040D7 A
            01 002BB    D9D6E3C5 A
            01 002BC    C3E34040 A
            01 002BD    D3D6C7C9 A
            01 002BE    C340C4D6 A
            01 002BF    C5E240D5 A
            01 002C0    D6E340C7 A
            01 002C1    C9E5C540 A
            01 002C2    E3D9C1D7 A
            01 002C3    4040C6D6 A
      825   01 002C4    D940C1C3 A            TEXT     'R AC =10  CHECK LOGIC FOR (FAILD)  '
            01 002C5    407EF1F0 A
            01 002C6    4040C3C8 A
            01 002C7    C5C3D240 A
            01 002C8    D3D6C7C9 A
            01 002C9    C340C6D6 A
            01 002CA    D9404DC6 A
            01 002CB    C1C9D3C4 A
            01 002CC    5D404040 A
      826   01 002CD    3280020F     SEQRTR   LW,8     TRAPLVL
      827   01 002CE    692002DE              BGZ      OKRSLT            IF TRAPLVL =1 RESULT IS OK
      828   01 002CF    691002E8              BLZ      NXBLCK            IF TRAPLVL=-1NO ERROR IN THIS BLOCK
      829                            * IF ARRIVE HERE TRAPLVL=0   CBLK =0 EXCEPT POSSIBLY CVPAC
      830                            * ALL OTHER BLOCKS ARE RESET TO 0
      831   01 002D0    3290007F              LW,9     BLK16AC
      832   01 002D1    33F0020F              MTW,-1   TRAPLVL           TRAPLVL TO -1
      833   01 002D2    2280023B              LI,8     R05STOR+5         CURRENT AC PATTERN IN R8
      834   01 002D3    2590000D A            SLS,9    13
      835   01 002D4    73100009 A            MTB,1    R9                PUT COUNT AS 1
      836   01 002D5    359002DD              STW,R9   TSTCNT+1
      837   01 002D6    6F840000 A            MMC,8    2
      838   01 002D7    22800167              LI,8     ACINIT+1
      839   01 002D8    358002DC              STW,8    TSTCNT
      840   01 002D9    02200060 A            LCI      6
      841   01 002DA    2A000236              LM,0     R05STOR
      842   01 002DB    680000D1              B        XACVP
      843                                     BOUND    8
      844   01 002DC    00000000 A   TSTCNT   DATA     0,0
            01 002DD    00000000 A
      845                            *  IF ARRIVE HERE  ACS=ACR  TRAPLVL=1
      846   01 002DE    6C000000 A   OKRSLT   RD,0     0
      847   01 002DF    68200256              BCR,2    VPTERM            IF SS3=0 BR FOR VP=FF TEST
      848   01 002E0    32C00237              LW,12    R05STOR+1
      849   01 002E1    25C00077 A            SLS,12   -9                SHIFT 9 BITS DOWN ALIGN
      850   01 002E2    6AF00211              BAL,15   BINHEX
      851   01 002E3    22700001 A            LI,7     1
      852   01 002E4    55DE0202              STH,13   RSLT,X7           STORE FOR PRINTING
      853   01 002E5    22000100              LI,0     DA(MSGPRNT)
      854   01 002E6    0F000116              XPSD,0   PRINT
      855   01 002E7    68000256              B        VPTERM            XIT FOR CONTINUED TEST
      856   01 002E8    329002DD     NXBLCK   LW,R9    TSTCNT+1          LOAD LAST MAP AC WORD ADRS
      857   01 002E9    4B90068A              AND,9    =X'000FFFFF'
      858   01 002EA    2191E000 A            CI,R9    X'1E000'          IF LAST BLOCK TESTED
      859   01 002EB    68300277              BE       CHKVPFF
      860                            *  AND  GO FOR  NXT TEST
      861   01 002EC    22800126              LI,8     MPINIT            RESET THE BLOCK TESTED
      862   01 002ED    25900073 A            SLS,9    -13
      863   01 002EE    3190007F              CW,9     BLK16AC
      864   01 002EF    683002F9              BE       TSTBLK
      865   01 002F0    329002DD     RSTBLOCK LW,9     TSTCNT+1
      866   01 002F1    6F840000 A            MMC,8    2
      867   01 002F2    73100009 A            MTB,1    R9                PUT BACK COUNT AS 1
      868   01 002F3    359002DD              STW,9    TSTCNT+1
      869   01 002F4    02200060 A            LCI      6
      870   01 002F5    2A000236              LM,0     R05STOR
      871   01 002F6    22800167              LI,8     ACINIT+1
      872   01 002F7    6F840000 A            MMC,8    2
      873   01 002F8    680000D1              B        XACVP
      874   01 002F9    32B0023B     TSTBLK   LW,11    R05STOR+5
      875   01 002FA    4BB00239              AND,11   R05STOR+3
      876   01 002FB    2280000B A            LI,8     11
      877   01 002FC    680002F0              B        RSTBLOCK
      878         01 002DD           CSTNPLX  EQU      TSTCNT+1
      879                            *    TSTCNT  DBLWRD HAS  R8 R9  UPDATE R9 BY X'2000' FOR NXT BLK LOAD
      880   01 002FD    02200060 A   CONNXT   LCI      6
      881   01 002FE    2A000236              LM,0     R05STOR
      882   01 002FF    328000D3              LW,8     CVPAC             IF CURRENT VP BITS ARE 00
      883   01 00300    683000E7              BEZ      NXTVP             IF YES BR FOR NXT VP
      884   01 00301    30500003 A            AW,5     3                 ADD 11 TO AC OF THIS PAGE
      885   01 00302    4B500004 A            AND,5    4                 RESET LEFT CARRY
      886   01 00303    680000FA              B        LPSDBR+2
      887   01 00304    22C001FF A   ANLABORT LI,12    X'1FF'
      888   01 00305    31C001FF A            CW,12    X'1FF'
      889   01 00306    6930030B              BNE      DTCHNG            IF WORD AT 1FF HAS CHANGED BR
      890   01 00307    21300000 A            CI,R3    0                 IF AC READ=00
      891   01 00308    6830030E              BE       ABER              ABHORT ERROR
      892   01 00309    B5C0000C A   ABBACK   STW,12   *12               ELSE RETAIN ORIG DATA
      893   01 0030A    E800000F A            B        *15
      894   01 0030B    21300001 A   DTCHNG   CI,R3    1                 IF AC READ=01 MEANS WRITE TRAP
      895   01 0030C    6830030E              BE       ABER              ABHORT ERROR IF DATA CHANGE INSPITE OF WRT
      896   01 0030D    68000309              B        ABBACK            ELSE OR BACK
      897   01 0030E    22000189     ABER     LI,R0    DA(ERAB)
      898   01 0030F    0F000116              XPSD,0   PRINT             PRINT ABORT ERROR
      899   01 00310    68000309              B        ABBACK
      900                                     BOUND    8
      901   01 00312    05000C50     ERAB     GEN,8,24 X'05',BA(ABPRNT)
      902   01 00313    02000024 A            GEN,8,24 X'02',36
      903   01 00314    154040C1 A   ABPRNT   TEXT     '
  ABORT  LOGIC  IS MALFUNCTIONING  '
            01 00315    C2D6D9E3 A
            01 00316    4040D3D6 A
            01 00317    C7C9C340 A
            01 00318    40C9E240 A
            01 00319    D4C1D3C6 A
            01 0031A    E4D5C3E3 A
            01 0031B    C9D6D5C9 A
            01 0031C    D5C74040 A
      904   01 0031D    150000D4     EXCMEM   STD,0    R01ST
      905   01 0031E    3280007F              LW,8     BLK16AC
      906   01 0031F    69100463              BLZ      MAPANAL           IF BLK16AC=-1 GO FOR MAP ANALYSIS
      907   01 00320    32C00001 A   ACABRTED LW,12    R1
      908   01 00321    25C00077 A            SLS,12   -9
      909   01 00322    6AF00211              BAL,15   BINHEX
      910   01 00323    55D0032B              STH,13   NXMTRP+1
      911   01 00324    22000194              LI,0     DA(NEXMEM)
      912   01 00325    0F000116              XPSD,0   PRINT
      913   01 00326    68000108              B        ACEND
      914   01 00327    68000320     PRTEXC   B        ACABRTED          AC ABORTED IF ARRIVE HERE
      915                                     BOUND    8
      916   01 00328    05000CA8     NEXMEM   GEN,8,24 X'05',BA(NXMTRP)
      917   01 00329    02000048 A            GEN,8,24 X'02',72
      918   01 0032A    15E5D740 A   NXMTRP   TEXT     '
VP     GIVES MEM TRAP WITH 00 STORED DURING AC '
            01 0032B    40404040 A
            01 0032C    C7C9E5C5 A
            01 0032D    E240D4C5 A
            01 0032E    D440E3D9 A
            01 0032F    C1D740E6 A
            01 00330    C9E3C840 A
            01 00331    F0F040E2 A
            01 00332    E3D6D9C5 A
            01 00333    C440C4E4 A
            01 00334    D9C9D5C7 A
            01 00335    40C1C340 A
      919   01 00336    E3C5E2E3 A            TEXT     'TEST. AC TEST ABORTED   '
            01 00337    4B40C1C3 A
            01 00338    40E3C5E2 A
            01 00339    E340C1C2 A
            01 0033A    D6D9E3C5 A
            01 0033B    C4404040 A
      920   01 0033C    18200002 A   MAPTEST  SD,2     2                 RESET R2 R3
      921   01 0033D    35200107              STW,2    VPID
      922   01 0033E    3520034C              STW,2    MAPPAGE           AMP PAGE NO IN THIS BLOCK 0-3
      923   01 0033F    3520034D              STW,2    BLK4MAP           BLOCK COUNT TO 0 FOR 1ST BLOCK 0-63 BLKS
      924   01 00340    35200001 A            STW,2    R1                R1 HAS PAGE ADRS BITS IN BITS 15-22
      925   01 00341    35200361              STW,2    MAPSTR
      926   01 00342    22700001 A            LI,7     1
      927   01 00343    22800234 A            LI,8     X'234'
      928   01 00344    3570034E              STW,7    MAPLVL            PUT MAPLVL=1
      929   01 00345    558E0348              STH,8    MPVPTST,X7
      930   01 00346    68000347              B        XMAPVP
      931   01 00347    0E000348     XMAPVP   LPSD,0   MPVPTST
      932                                     BOUND    8
      933   01 00348    00C0     A   MPVPTST  DATA,2   X'00C0',X'234'
            01 00348 2  0234     A
      934   01 00349    00000000 A            DATA     0
      935   01 0034A    320201FF A            LW,0     X'1FF',X1
      936   01 0034B    05000000 A            CAL2,0   0,0
      937   01 0034C    00000000 A   MAPPAGE  DATA     0                 PAGE NO IN THIS BLOCK 0-3 ONLY
      938   01 0034D    00000000 A   BLK4MAP  DATA     0                 BLOCK NO AS GRP OF 4 PAGES. BLK NO=00-63
      939   01 0034E    00000001 A   MAPLVL   DATA     1                 MAP LEVEL 1/0/-1 FOR ERROR IDENTIFICATION
      940                                     BOUND    8
      941   01 00350    00000000 A   SUPMAP   DATA     0,0
            01 00351    00000000 A
      942   01 00352    00000354              DATA     %+2,X'00800000'
            01 00353    00800000 A
      943   01 00354    02200040 A            LCI      4
      944   01 00355    2B000370              STM,0    R04STOR           STORE R0-R4 FOR RETAINING PATTERN ETC.
      945   01 00356    25000077 A            SLS,0    -9                ACCESSED ADRS BITS IN BITS 24-31 OF R0
      946   01 00357    35000362              STW,0    MAPRD
      947                            *  THESE ARE PHYSICAL ADRS BITS AFTER MAPPING. THEY SHOULD HVE ONE OF
      948                            *  THE FOLLOWING  CONFIG. 00,01,02,04,08,10,20,40,80 OR 7F.
      949   01 00358    3270034C              LW,7     MAPPAGE
      950   01 00359    72CE0002 A            LB,12    2,7
      951   01 0035A    22600003 A            LI,6     3
      952   01 0035B    75CC0361              STB,12   MAPSTR,6
      953   01 0035C    6A900363              BAL,9    PRNMPARG          PRINT MAP
      954   01 0035D    32C00361              LW,12    MAPSTR
      955   01 0035E    31C00362              CW,12    MAPRD
      956   01 0035F    68300374              BE       SEQRMAP           IF YES, BR FOR SEQR MAP
      957   01 00360    680003B8              B        NEQMAP
      958   01 00361    00000000 A   MAPSTR   DATA     0                 LAST BYTE PPHYS ADRS STORED
      959   01 00362    00000000 A   MAPRD    DATA     0                 LAST BYTE PHYS ADRS READ OUT
      960   01 00363    25100077 A   PRNMPARG SLS,1    -9                VP AS LAST 8 BITS
      961   01 00364    32C00001 A            LW,12    X1
      962   01 00365    6AF00211              BAL,15   BINHEX
      963   01 00366    22700001 A            LI,7     1
      964   01 00367    55DE0202              STH,13   RSLT,X7
      965   01 00368    32C00361              LW,12    MAPSTR
      966   01 00369    6AF00211              BAL,15   BINHEX
      967   01 0036A    4BD0068B              AND,13   =X'FFFF'
      968   01 0036B    35D00204              STW,13   RSLT+2
      969   01 0036C    32C00362              LW,12    MAPRD
      970   01 0036D    6AF00211              BAL,15   BINHEX
      971   01 0036E    55D00207              STH,13   RSLT+5
      972   01 0036F    E8000009 A            B        *9
      973                                     BOUND    8
      974   01 00370    00000000 A   R04STOR  DATA     0,0,0,0           4 WORDS STORED FOR MAP TESTS
            01 00371    00000000 A
            01 00372    00000000 A
            01 00373    00000000 A
      975   01 00374    3280034E     SEQRMAP  LW,8     MAPLVL
      976   01 00375    69200383              BGZ      MAPOK             IF LVL=1 MAP RESULTS OK
      977   01 00376    69100388              BLZ      NXMAPBK           NEXT MAP BLOCK IF LVL=-1
      978                            *  IF ARRIVE HERE  MAPLVL=0  ALL MAP PAGES AFTER THIS ARE FF
      979                            *  THIS EFFECTIVELY ISOLATED CUR MAP PAGE FROM POSSIBLE INTERFERENCE
      980                            *  FROM  THE ASCENDING ORDER MAP PAGES
      981   01 00377    3290034D     MLVL0    LW,9     BLK4MAP
      982   01 00378    33F0034E              MTW,-1   MAPLVL            SET MAP LEVEL TO -1
      983   01 00379    22800372              LI,8     R04STOR+2         TEST PATTERN ADRS IN R8
      984   01 0037A    2590000B A            SLS,9    11
      985   01 0037B    73100009 A            MTB,1    R9
      986   01 0037C    359002DD              STW,9    TSTCNT+1
      987   01 0037D    6F880000 A            MMC,8    4
      988   01 0037E    22800126              LI,8     MPINIT
      989   01 0037F    358002DC              STW,8    TSTCNT
      990                            * THIS RESETS FF FROM CURNT  BLOCK. IF MAPPAGE =3 THIS TEST
      991                            * MERELY REPEATS  FROM PREVIOUS TEST
      992   01 00380    02200040 A            LCI      4
      993   01 00381    2A000370              LM,0     R04STOR
      994   01 00382    68000347              B        XMAPVP
      995                            * IF ARRIVE HERE MAPSTR=MAPRD &  MAPLVL=1
      996   01 00383    6C000000 A   MAPOK    RD,0     0
      997   01 00384    682003A2              BCR,2    MAPTERM           IF SS3=0 BR FOR NEXT TEST
      998   01 00385    22000100              LI,0     DA(MSGPRNT)       ELSE PRINT REPORT
      999   01 00386    0F000116              XPSD,0   PRINT
     1000   01 00387    680003A2              B        MAPTERM
     1001   01 00388    128002DC     NXMAPBK  LD,8     TSTCNT
     1002   01 00389    4B90068A              AND,R9   =X'000FFFFF'
     1003   01 0038A    2191F800 A            CI,R9    X'1F800'          IF BLOCK RESET
     1004   01 0038B    68300441              BE       CHKMPFF
     1005   01 0038C    3090068C              AW,R9    =X'01000800'      NEXT BLK AND COUNT =1
     1006   01 0038D    158002DC              STD,8    TSTCNT
     1007   01 0038E    6F880000 A            MMC,8    4
     1008   01 0038F    02200040 A            LCI      4
     1009   01 00390    2A000370              LM,0     R04STOR
     1010   01 00391    68000347              B        XMAPVP
     1011   01 00392    00000000 A   PASCOUNT DATA     0
     1012   01 00393    00000000 A   ERRCOUNT DATA     0                 ERROR COUNT STORED HERE
     1013   01 00394    02200040 A   CONNXTMP LCI      4
     1014   01 00395    2A000370              LM,0     R04STOR
     1015   01 00396    32800361              LW,8     MAPSTR            IF CURRENT MAP BITS=00
     1016   01 00397    6830039D              BEZ      CNF01             BR FOR TESTING CONFIG =01
     1017   01 00398    21800080 A            CI,8     X'80'             IF LAST PATTERN FOR THIS MAP PAGE
     1018   01 00399    6830041C              BE       NXVPMP            BR TO NXT VP MAPPING
     1019   01 0039A    25200001 A            SLS,2    1                 LEFT SHIFT BIT 1 IN THE PAGE FOR NXT TST
     1020                            *        BR BACK  FOR MAP LOADING
     1021   01 0039B    35200372              STW,2    R04STOR+2
     1022   01 0039C    680003E5              B        MAPRELD           MAP RELOAD FOR NEXT TEST
     1023   01 0039D    22B00001 A   CNF01    LI,11    1
     1024   01 0039E    3270034C              LW,7     MAPPAGE
     1025   01 0039F    75BE0002 A            STB,11   R2,X7             STORE 1 IN THIS VP FOR CONTINUEING TEST
     1026   01 003A0    35200372              STW,2    R04STOR+2
     1027   01 003A1    680003E5              B        MAPRELD
     1028                            * FOR NEXT VP MAP RESET CURRENT PAGE TO 0
     1029   01 003A2    32E00371     MAPTERM  LW,14    R04STOR+1         STORE VP ADRS IN 14
     1030   01 003A3    22A00001 A            LI,10    1
     1031   01 003A4    35A0034E              STW,10   MAPLVL            SET MAPLVL TO 1
     1032   01 003A5    25E00077 A            SLS,14   -9                VP ADRS IN LAST BYTE
     1033   01 003A6    21E000FF A            CI,14    255               IF LAST PAGE
     1034   01 003A7    69300394              BNE      CONNXTMP          CONTINUE FOR NEXT VP MAP IF NOT LAST PAGE
     1035   01 003A8    32800372              LW,8     R04STOR+2         IF PATTERN TESTED OF VP 255 IS '80'
     1036   01 003A9    21800080 A            CI,8     X'0080'
     1037   01 003AA    69300394              BNE      CONNXTMP          IF NOT BR
     1038   01 003AB    680003AC              B        PASSEND           GO TO END OF THIS PASS
     1039   01 003AC    33100392     PASSEND  MTW,1    PASCOUNT
     1040   01 003AD    22200000 A            LI,R2    0
     1041   01 003AE    32F0068D              LW,15    =X'0101F800'      COUNT 1, CONTROL START 3F
     1042   01 003AF    22E00002 A            LI,14    R2
     1043   01 003B0    6FE80000 A            MMC,14   4                 RESET LAST BLOCK 3F OF MAP REGISTAR
     1044   01 003B1    6AF005C6              BAL,15   PASCNTC           CHECK FOR PASS MESSAGE
     1045   01 003B2    32A00392              LW,10    PASCOUNT
     1046   01 003B3    21A00014 A            CI,10    X'14'             IF PASSCOUNT =20
     1047   01 003B4    693000BB              BNE      MPRESET
     1048   01 003B5    6AF004F0              BAL,15   TEST:M1           TEST INDIRCT. ADDRS. FUNCTION HERE
     1049   01 003B6    6AF00549              BAL,15   T:CNT4            TEST MAP MODE OF COUNTER 4 INTERRUPT
     1050   01 003B7    680004B1              B        RTCLCK            ELSE GO FOR REAL TIME CLOCKS
     1051   01 003B8    3210034E     NEQMAP   LW,1     MAPLVL
     1052   01 003B9    692003C2              BGZ      ERMAP1            BR TO ERROR MAP + IF MAP LVL =1
     1053   01 003BA    69100455              BLZ      ERMAPM1           BR IF MAPLVL=-1
     1054   01 003BB    3270034D              LW,7     BLK4MAP
     1055   01 003BC    2570007E A            SLS,7    -2
     1056   01 003BD    527E04A6              LH,7     MAPBLMOD,X7
     1057   01 003BE    55700276              STH,7    MODNUMBR+2
     1058   01 003BF    220000F0              LI,0     DA(ACMD)
     1059   01 003C0    0F000116              XPSD,0   PRINT
     1060   01 003C1    68000441              B        CHKMPFF
     1061   01 003C2    33100393     ERMAP1   MTW,1    ERRCOUNT          INCREM ERROR COUNT
     1062   01 003C3    02200040 A            LCI      4
     1063   01 003C4    2A000370              LM,0     R04STOR
     1064   01 003C5    6C000000 A            RD,0     0
     1065   01 003C6    69800347              BCS,8    XMAPVP            LOOP IF SS1=1
     1066   01 003C7    6D000041 A            WD,0     X'41'             SOUND ALARM
     1067   01 003C8    22000100              LI,0     DA(MSGPRNT)
     1068   01 003C9    0F000116              XPSD,0   PRINT
     1069   01 003CA    6D000040 A            WD,0     X'40'             TURN OFF ALARM
     1070   01 003CB    6C000000 A            RD,0     0
     1071   01 003CC    694003E5              BCS,4    LDMAPRTN          LOAD MAP ROUTINE IF SS2=1
     1072   01 003CD    22A00000 A            LI,10    0
     1073   01 003CE    35A0034E              STW,10   MAPLVL            RESET MAPLVL =0
     1074   01 003CF    32F0034D              LW,15    BLK4MAP
     1075   01 003D0    25F0000B A            SLS,15   11                SET R14-15 FOR MMC
     1076   01 003D1    7310000F A            MTB,1    R15               SET TOP BYTE TO 1
     1077   01 003D2    32B00002 A            LW,11    R2                LOAD MAP PATTERN IN R11
     1078   01 003D3    3270034C              LW,7     MAPPAGE
     1079   01 003D4    670E03E1              EXU      SETMP,X7          TURN REMAINING PAGES OF BLOCK TOFF
     1080   01 003D5    32900107              LW,9     VPID
     1081   01 003D6    693003D8              BNEZ     %+2
     1082   01 003D7    4BB0068E              AND,R11  =X'FF00FFFF'      IF PAGE 0 VP1 MUST BE 0 FOR SLAVE MODE
     1083   01 003D8    22E0000B A            LI,14    11                ADRS 11 IN R14
     1084   01 003D9    6FE80000 A            MMC,14   4
     1085   01 003DA    22D0003F A            LI,13    63                IF LAST BLOCK BEING TESTED
     1086   01 003DB    38D0034D              SW,13    BLK4MAP
     1087   01 003DC    68300347              BEZ      XMAPVP
     1088   01 003DD    75D0000F A            STB,13   R15               PUT COUND NUMBER IN 1ST BYTE
     1089   01 003DE    22E00167              LI,14    ACINIT+1
     1090   01 003DF    6FE80000 A            MMC,14   4
     1091   01 003E0    68000347              B        XMAPVP
     1092   01 003E1    49B0068F     SETMP    OR,11    =X'FFFFFF'        SET 3 BYTES TO 11111111
     1093   01 003E2    49B0068B              OR,11    =X'FFFF'          SET LAST 2 BYTES TO FFFF
     1094   01 003E3    49B00685              OR,11    =X'FF'            SET LAST BYTE TO FF
     1095   01 003E4    49B00690              OR,11    =0                BR BACK
     1096   01 003E5    22E00002 A   MAPRELD  LI,14    R2                MAP IMAGE IS IN R2
     1097   01 003E6    32F0034D              LW,15    BLK4MAP           CURNT MAP IN R15
     1098   01 003E7    25F0000B A            SLS,15   11                CONTROL START SET UP FOR LOADING C BLK.
     1099   01 003E8    7310000F A            MTB,1    R15               SET UP COUNT AS 1 IN R15
     1100   01 003E9    6FE80000 A            MMC,14   4
     1101   01 003EA    22A0003F A            LI,10    63
     1102   01 003EB    38A0034D              SW,10    BLK4MAP           IF LAST BLOCK
     1103   01 003EC    68300400              BEZ      MAPXYZ1           DONT RESET ANY OTHER BLOCK SINCE IN BLK3
     1104   01 003ED    75A0000F A            STB,10   R15               STORE (63-BLK4MAP) IN COUNT WORDS TO BE RESE
     1105   01 003EE    22E00126              LI,14    MPINIT
     1106   01 003EF    6FE80000 A            MMC,14   4
     1107   01 003F0    68000400              B        MAPXYZ1
     1108   01 00400                          ORG      1024
            01 00400
     1109                            * DATA IS STORED IN 1FF 3FF 1FE AND 3FE DURING PROGRAM RUN
     1110   01 00400    02200040 A   MAPXYZ1  LCI      4
     1111   01 00401    2A000370              LM,0     R04STOR
     1112   01 00402    32100107              LW,1     VPID              VP IDENTIFICATION BITS 15-22
     1113   01 00403    3270034C              LW,7     MAPPAGE
     1114   01 00404    72CE0002 A            LB,12    R2,X7
     1115   01 00405    22600003 A            LI,6     3
     1116   01 00406    75CC0361              STB,12   MAPSTR,6
     1117   01 00407    68000347              B        XMAPVP
     1118   01 00408    15404040 A   ENDAC    TEXT     '
   END OF ACCESS PROTECTION TEST 
 VP  MAPSTR  '
            01 00409    C5D5C440 A
            01 0040A    D6C640C1 A
            01 0040B    C3C3C5E2 A
            01 0040C    E240D7D9 A
            01 0040D    D6E3C5C3 A
            01 0040E    E3C9D6D5 A
            01 0040F    40E3C5E2 A
            01 00410    E3401540 A
            01 00411    E5D74040 A
            01 00412    D4C1D7E2 A
            01 00413    E3D94040 A
     1119   01 00414    D4C1D7D9 A            TEXT     'MAPREAD     '
            01 00415    C5C1C440 A
            01 00416    40404040 A
     1120                                     BOUND    8
     1121   01 00418    05001020     PRACND   GEN,8,24 X'05',BA(ENDAC)
     1122   01 00419    22000022 A            GEN,8,24 X'22',34
     1123   01 0041A    05001042              GEN,8,24 X'05',BA(ENDAC+8)+2
     1124   01 0041B    0200001A A            GEN,8,24 X'02',26
     1125   01 0041C    20100200 A   NXVPMP   AI,1     X'200'            INCREMENT PAGE POINTER FOR NXT PAGE
     1126   01 0041D    35100107              STW,1    VPID              STORE PAGE ADRS FOR USING R1 INTERMEDIATE
     1127   01 0041E    22C00034 A            LI,12    X'34'
     1128   01 0041F    22700001 A            LI,R7    1
     1129   01 00420    55CE0348              STH,12   MPVPTST,X7        CHANGE ADRS TO X'34' FROM X'234'
     1130                            *  X'234' ADRS WAS PRESENT TO TEST PAGE 0
     1131   01 00421    21200080 A            CI,R2    X'0080'           IF LAST PAGE OF THIS BLOCK
     1132   01 00422    6830043A              BE       NXTBLK4           BR FOR NEXT BLOCK OF 4 PAGES
     1133   01 00423    3310034C              MTW,1    MAPPAGE           INCREASE PAGE NO IN THIS BLOCK
     1134   01 00424    68000436              B        BRMPRLD
     1135         01 00425                    FILL     X'436'
     1136                            *  SEE EXPLANATION NEAR X'236'
     1137   01 00436    22A00000 A   BRMPRLD  LI,10    0
     1138   01 00437    35A00372              STW,10   R04STOR+2
     1139   01 00438    22200000 A            LI,2     0
     1140   01 00439    680003E5              B        MAPRELD           BR FOR LOADING MAP
     1141   01 0043A    22000000 A   NXTBLK4  LI,0     0
     1142   01 0043B    3500034C              STW,0    MAPPAGE           MAP PAGE=0 FOR NEXT BLOCK
     1143   01 0043C    32A0034D              LW,10    BLK4MAP           IF ALL 63 BLOCKS TESTED
     1144   01 0043D    21A0003F A            CI,10    63
     1145   01 0043E    683003AC              BE       PASSEND           IF LAST BLOCK TESTED PASS END
     1146   01 0043F    3310034D              MTW,1    BLK4MAP           INCREASE FOR NEXT BLOCK TEST
     1147   01 00440    68000436              B        BRMPRLD
     1148   01 00441    22A00001 A   CHKMPFF  LI,10    1
     1149   01 00442    35A0034E              STW,10   MAPLVL
     1150   01 00443    6C000000 A            RD,0     0
     1151   01 00444    69100452              BCS,1    BACKBMP           BACKB
     1152   01 00445    32E00371              LW,14    R04STOR+1         PAGE NUMBER IN R14
     1153   01 00446    25E00077 A            SLS,14   -9
     1154   01 00447    32F00362              LW,15    MAPRD
     1155   01 00448    32A00361              LW,10    MAPSTR
     1156   01 00449    22700003 A            LI,7     3
     1157   01 0044A    75AE000F A            STB,10   15,X7
     1158   01 0044B    20E08000 A            AI,14    X'8000'
     1159   01 0044C    55E0000F A            STH,14   R15               BIT 0=1 FOR MAP IDENTITY
     1160   01 0044D    32E0023C              LW,14    INTBLK
     1161   01 0044E    68300450              BEZ      %+2
     1162   01 0044F    7310000F A            MTB,1    R15               SET BIT 7 TO INDICATE INTERFERENCE
     1163   01 00450    46E0000F A            XW,R14   R15
     1164                            *        THIS PUTS  RESULTS IN R14  AND INTERFERENCE IN R15
     1165                            *  EXPLANATION NEAR LABEL 'BACKBAC'
     1166   01 00451    2E000000 A            WAIT     0
     1167   01 00452    22E00000 A   BACKBMP  LI,14    0
     1168   01 00453    35E0023C              STW,14   INTBLK
     1169   01 00454    680003A2              B        MAPTERM
     1170         01 003E5           LDMAPRTN EQU      MAPRELD
     1171                            * IF ARRIVE HERE  MAPRD NT EQ MP STOR  MAPLVL=-1
     1172   01 00455    32C002DD     ERMAPM1  LW,12    CSTNPLX
     1173   01 00456    25C00075 A            SLS,12   -11               LAST 6 BITS AS BLK NO INTEFERING
     1174   01 00457    4BC00685              AND,12   =X'FF'            RETAIN ONLY LAST 8 BITS
     1175   01 00458    35C0023C              STW,12   INTBLK
     1176   01 00459    73F0023C              MTB,-1   INTBLK
     1177   01 0045A    3270000C A            LW,7     R12
     1178   01 0045B    2570007E A            SLS,7    -2
     1179   01 0045C    527E04A6              LH,7     MAPBLMOD,X7       NUMB IN R7 IS MOD IDENTITIER
     1180   01 0045D    55700276              STH,7    INTPRNT+10
     1181   01 0045E    6AF00211              BAL,15   BINHEX
     1182   01 0045F    55D00273              STH,13   INTPRNT+7         INSERT INTERFERING BLOCK NUMBER IN PRINT
     1183   01 00460    22000135              LI,0     DA(PRININTF)
     1184   01 00461    0F000116              XPSD,0   PRINT
     1185   01 00462    68000441              B        CHKMPFF
     1186   01 00463    02200040 A   MAPANAL  LCI      4
     1187   01 00464    2B000370              STM,0    R04STOR
     1188   01 00465    6A900363              BAL,9    PRNMPARG
     1189   01 00466    3270034C              LW,7     MAPPAGE
     1190   01 00467    32200372              LW,R2    R04STOR+2
     1191   01 00468    22C00000 A            LI,R12   0
     1192   01 00469    72CE0002 A            LB,12    2,7
     1193   01 0046A    35C00361              STW,12   MAPSTR
     1194   01 0046B    32F0034E              LW,15    MAPLVL
     1195   01 0046C    68200474              BLEZ     CMODER1
     1196   01 0046D    32D0005E              LW,13    PGMAX
     1197   01 0046E    25D00077 A            SLS,13   -9                LAST 8 BITS AS MAX PAGE NUMBER
     1198   01 0046F    31D00361              CW,13    MAPSTR            COMPARE WHICH PAGE IS LARGER
     1199   01 00470    68200485              BLE      CHKSCS
     1200   01 00471    22000248              LI,R0    DA(MAPSZER)
     1201   01 00472    0F000116              XPSD,0   PRINT
     1202   01 00473    68000441              B        CHKMPFF
     1203   01 00474    32D0005E     CMODER1  LW,13    PGMAX
     1204   01 00475    25D00077 A            SLS,13   -9
     1205   01 00476    31D00361              CW,13    MAPSTR
     1206   01 00477    68200441              BLE      CHKMPFF
     1207   01 00478    68000479              B        CMODER
     1208   01 00479    32700371     CMODER   LW,7     R04STOR+1         VP NUMBER IN R7
     1209   01 0047A    25700073 A            SLS,7    -13               MOD NUMBER IN LAST 4 BITS
     1210   01 0047B    527E04A6              LH,7     MAPBLMOD,X7       NUMBER IN R7 IS MOD IDENTIFIER
     1211   01 0047C    55700276              STH,7    INTPRNT+10        MOD IDENTIFY IN R7
     1212   01 0047D    220000F0              LI,0     DA(ACMD)
     1213   01 0047E    0F000116              XPSD,0   PRINT
     1214   01 0047F    22200000 A            LI,R2    0                 REST R2
     1215   01 00480    3270034C              LW,R7    MAPPAGE
     1216   01 00481    32E00361              LW,14    MAPSTR            PATTERN BITS IN R14
     1217   01 00482    75EE0002 A            STB,14   R2,X7             BYTE NUMBER IN R7 ELSE 0
     1218   01 00483    35200372              STW,R2   R04STOR+2
     1219   01 00484    68000441              B        CHKMPFF
     1220   01 00485    6C000000 A   CHKSCS   RD,0     0
     1221   01 00486    682003A2              BCR,2    MAPTERM
     1222   01 00487    12A0048E              LD,10    SCSDATA
     1223   01 00488    15A00206              STD,10   RSLT+4
     1224   01 00489    22000100              LI,0     DA(MSGPRNT)
     1225   01 0048A    0F000116              XPSD,0   PRINT
     1226   01 0048B    18A0000A A            SD,10    10
     1227   01 0048C    15A00206              STD,10   RSLT+4
     1228   01 0048D    680003A2              B        MAPTERM
     1229                                     BOUND    8
     1230   01 0048E    40E2E4C3 A   SCSDATA  TEXT     ' SUCCESS'
            01 0048F    C3C5E2E2 A
     1231                                     BOUND    8
     1232   01 00490    05000808     MAPSZER  GEN,8,24 X'05',BA(RSLT)
     1233   01 00491    82000010 A            GEN,8,24 X'82',16          DATA CHAIN
     1234   01 00492    05001250              GEN,8,24 X'05',BA(PRERMSG)
     1235   01 00493    02000044 A            GEN,8,24 X'02',68
     1236   01 00494    C7C9E5C5 A   PRERMSG  TEXT     'GIVES NON-EXIST MEM TRAP FOR ADRS SMALLER THAN S'
            01 00495    E240D5D6 A
            01 00496    D560C5E7 A
            01 00497    C9E2E340 A
            01 00498    D4C5D440 A
            01 00499    E3D9C1D7 A
            01 0049A    40C6D6D9 A
            01 0049B    40C1C4D9 A
            01 0049C    E240E2D4 A
            01 0049D    C1D3D3C5 A
            01 0049E    D940E3C8 A
            01 0049F    C1D540E2 A
     1237   01 004A0    C9E9C540 A            TEXT     'IZE OF THIS SYSTEM  '
            01 004A1    D6C640E3 A
            01 004A2    C8C9E240 A
            01 004A3    E2E8E2E3 A
            01 004A4    C5D44040 A
     1238                                     BOUND    8
     1239   01 004A6    F1F7F1F8 A   MAPBLMOD TEXT     '17181920212223242526272829303132'
            01 004A7    F1F9F2F0 A
            01 004A8    F2F1F2F2 A
            01 004A9    F2F3F2F4 A
            01 004AA    F2F5F2F6 A
            01 004AB    F2F7F2F8 A
            01 004AC    F2F9F3F0 A
            01 004AD    F3F1F3F2 A
     1240   01 004AE    40F9F1F0 A   ACBLMOD  TEXT     ' 9101112'
            01 004AF    F1F1F1F2 A
     1241   01 004B0    2E000000 A   MAPERAC  WAIT     0
     1242   01 004B1    32B00393     RTCLCK   LW,11    ERRCOUNT
     1243   01 004B2    683004B4              BEZ      AEINTP
     1244   01 004B3    680000BB              B        MPRESET
     1245   01 004B4    325004CF     AEINTP   LW,5     CPINTM
     1246   01 004B5    683000BB              BEZ      MPRESET
     1247   01 004B6    2200025D              LI,0     DA(PRTCM)         PRINT RTC MESSAGE
     1248   01 004B7    0F000116              XPSD,0   PRINT
     1249   01 004B8    680004D5              B        ENBL
     1250                                     BOUND    8
     1251   01 004BA    050012F0     PRTCM    GEN,8,24 X'05',BA(RTMSG)
     1252   01 004BB    02000048 A            GEN,8,24 X'02',72
     1253   01 004BC    15404040 A   RTMSG    TEXT     '
   REAL TIME CLOCKS ARE IN USE. TO DISABLE  CP '
            01 004BD    D9C5C1D3 A
            01 004BE    40E3C9D4 A
            01 004BF    C540C3D3 A
            01 004C0    D6C3D2E2 A
            01 004C1    40C1D9C5 A
            01 004C2    40C9D540 A
            01 004C3    E4E2C54B A
            01 004C4    40E3D640 A
            01 004C5    C4C9E2C1 A
            01 004C6    C2D3C540 A
            01 004C7    40C3D740 A
     1254   01 004C8    C9D5E3C5 A            TEXT     'INTERRUPT AND CLEAR R5  '
            01 004C9    D9D9E4D7 A
            01 004CA    E340C1D5 A
            01 004CB    C440C3D3 A
            01 004CC    C5C1D940 A
            01 004CD    D9F54040 A
     1255                                     BOUND    8
     1256   01 004CE    00000000 A   CPINT    DATA     0
     1257   01 004CF    0000F000 A   CPINTM   DATA     X'F000'
     1258   01 004D0    00000000 A   CNTR1    DATA     0                 COUNTER 1
     1259   01 004D1    00000000 A   CNTR2    DATA     0                 2
     1260   01 004D2    00000000 A   CNTR3    DATA     0                 3
     1261   01 004D3    00000000 A   CNTR4    DATA     0                 4
     1262   01 004D4    0000F000 A   MASK     DATA     X'F000'
     1263   01 004D5    325004D4     ENBL     LW,5     MASK
     1264   01 004D6    4B5004CF              AND,5    CPINTM
     1265   01 004D7    6D501200 A            WD,5     X'1200'           ARM & ENABLE COUNTER INTERRUPTS
     1266   01 004D8    680000BB              B        MPRESET
     1267                                     BOUND    8
     1268   01 004DA    00000000 A   CPNINT   DATA     0,0
            01 004DB    00000000 A
     1269   01 004DC    000004DE              DATA     %+2,X'00800000'
            01 004DD    00800000 A
     1270   01 004DE    02200060 A            LCI      6
     1271   01 004DF    2B000236              STM,0    R05STOR
     1272   01 004E0    325004CF              LW,5     CPINTM
     1273   01 004E1    6D501100 A            WD,5     X'1100'           DISABLE RTL DURING CPNL INTER
     1274   01 004E2    32300392              LW,R3    PASCOUNT
     1275   01 004E3    32200393              LW,R2    ERRCOUNT
     1276   01 004E4    32000124              LW,R0    TYPE              R0 HAS ADRS OF OUTPUT DEVICE
     1277   01 004E5    325004CF              LW,5     CPINTM            ACTIVE RTL BITS IN R5
     1278   01 004E6    2E000000 A            WAIT     0
     1279   01 004E7    4B5004D4              AND,R5   MASK              RETAIN ONLY BITS 16-19
     1280   01 004E8    355004CF              STW,5    CPINTM            STORE CHANGED BITS
     1281   01 004E9    21300014 A            CI,3     X'14'             IF 20 PASSES
     1282   01 004EA    691004EC              BL       %+2
     1283   01 004EB    6D501200 A            WD,5     X'1200'           ARM & ENABLE CNTR SET BY OPERATOR
     1284   01 004EC    35000124              STW,0    TYPE
     1285   01 004ED    02200060 A            LCI      6
     1286   01 004EE    2A000236              LM,0     R05STOR           RESTORE ORG CONTENTS OF R0 TO R6
     1287   01 004EF    0E3004DA              LPSD,3   CPNINT
     1288                            *
     1289                            *  TEST INDIRECT  ADDRESS FUNCTION TO AN ACCESS PROTECTED
     1290                            *  LOCATION CONTAINING A REGISTER ADDRESS.
     1291         00000600           REG:8    EQU      X'600'            PLACE REG LABEL IN X'600
     1292         00000601           REG:9    EQU      X'601'            PLACE REG LABEL IN X'601'
     1293                            *
     1294                            *
     1295   01 004F0                 TEST:M1  RES      0
     1296   01 004F0    22800008 A            LI,8     8
     1297   01 004F1    22900009 A            LI,9     9
     1298   01 004F2    35800600 A            STW,8    REG:8
     1299   01 004F3    35900601 A            STW,9    REG:9             STORE REGISTERS ADDR. IN INS.ACC.LOC.
     1300   01 004F4    12200510              LD,2     XMAP              LOAD R2,R3 WITH MAP DOUBLEWORD
     1301   01 004F5    6F280000 A            MMC,2    4                 "  " MEMORY MAAP (PAGE ADDRESSES)
     1302   01 004F6    12400512              LD,4     XPROTECT          "  " R4,R5 WITH DOUBLEWORD
     1303   01 004F7    6F440000 A            MMC,4    2                 ACTIVATE ACCESS CONTROL CODES
     1304   01 004F8    32400040 A            LW,4     X'40'             FETCH INSTRUCTION IN TRAP LOC. X'40'
     1305   01 004F9    32000544              LW,0     TRAP              FETCH XPSD INSTRUCTION
     1306   01 004FA    35000040 A            STW,0    X'40'             STORE XPSD IN LOC. X'40' TRAP LOC.
     1307   01 004FB    32000545              LW,0     XCAPE             FETCH XPSD TO CLEAR SLAVE MODE IN PSD
     1308   01 004FC    3500004B A            STW,0    X'4B'             STORE IN X'4B' FOR THE CAL4,0
     1309   01 004FD    32800546              LW,8     :BRANCH           STORE EXECUTABLE INSTRUCTIONS
     1310   01 004FE    32900547              LW,9     :EXU              INREGISTERS 8 AND 9
     1311   01 004FF    0E000518              LPSD,0   PSD               START TESTING IND. INSTRUCTIONS
     1312   01 00500                 TEST     RES      0
     1313   01 00500    E8000600 A            B        *REG:8            BRANCH INDIRECTLY TO A LOC. REGS.
     1314   01 00501    E7000601 A            EXU      *REG:9            EXECUTE IDIRECTLY A REG. LOC.
     1315   01 00502    07000000 A            CAL4,0   0                 TRAP TO X'4B' TO RESET SLAVE TO MSTER
     1316   01 00503    22000000 A   BACK:    LI,0     0
     1317   01 00504    1220051E              LD,2     RESUME            FETCH WORDS TO CLEAR ACCESS PROTECT
     1318   01 00505    6F240000 A            MMC,2    2                 CLEAR ACCESS PROTECT BITS
     1319   01 00506    35000600 A            STW,0    REG:8             CLEAR X'600'
     1320   01 00507    35000601 A            STW,0    REG:9             CLEAR X'601'
     1321   01 00508    3500004B A            STW,0    X'4B'             CLEAR X'4B' AGAIN
     1322   01 00509    35400040 A            STW,4    X'40'             RESTORE PREVIOUS INSTRUCTION IN X'40'
     1323   01 0050A    E800000F A            B        *15               BRANCH BACK
     1324                            *
     1325                            *
     1326                            *        TRAP ROUTINE. TRAPS AT LOC. X'40' FOR INDIRECT ADDRS.
     1327                            *        TO AN ACCESS PROTECTED LOC. THAT HAS A REGISTER ADDRS.
     1328                            *
     1329   01 0050B    22000291     HALT     LI,0     DA(LOGICERR)      PRINT ERROR MESSAGE
     1330   01 0050C    0F000116              XPSD,0   PRINT             PRINT.
     1331   01 0050D    2E000000 A            WAIT     0                 WAIT HERE AFTER ERROR OCCURRED
     1332   01 0050E    68000502              B        TEST+2            CONTINUE BACK / BRANCH BACK
     1333                            *
     1334                                     BOUND    8
     1335   01 00510    00000542     XMAP     DATA     MAP,X'1000000'
            01 00511    01000000 A
     1336   01 00512    00000543     XPROTECT DATA     PROTECT,X'1000000'
            01 00513    01000000 A
     1337   01 00514    00000000 A   STOP     DATA     0,0,HALT,X'7800000'
            01 00515    00000000 A
            01 00516    0000050B
            01 00517    07800000 A
     1338   01 00518    00C0     A   PSD      DATA,2   X'C0',TEST,0,0
            01 00518 2  0500     N
            01 00519    0000     A
            01 00519 2  0000     A
     1339   01 0051A    00000000 A   XDW      DATA     0,0,BACK:,X'00800000'
            01 0051B    00000000 A
            01 0051C    00000503
            01 0051D    00800000 A
     1340   01 0051E    00000548     RESUME   DATA     SAME,X'1000000'
            01 0051F    01000000 A
     1341   01 00520    050014FC     MSG:     GEN,8,24 X'05',BA(TEXT:)   IOCD '20 PASSES' MESSAGE
     1342   01 00521    0200000A A            GEN,8,24 X'02',10
     1343   01 00522    05001490     LOGICERR GEN,8,24 X'05',BA(LGCMSG)
     1344   01 00523    0200006A A            GEN,8,24 X'02',106
     1345   01 00524    152540C5 A   LGCMSG   DATA     X'152540C5'       CARRIAGE RETURN HEX CHARACTERS
     1346   01 00525    C9E3C8C5 A            TEXT     'ITHER REVISION U OF FRAME 3 NOT IMPLEMENTED OR'
            01 00526    D940D9C5 A
            01 00527    E5C9E2C9 A
            01 00528    D6D540E4 A
            01 00529    40D6C640 A
            01 0052A    C6D9C1D4 A
            01 0052B    C540F340 A
            01 0052C    D5D6E340 A
            01 0052D    C9D4D7D3 A
            01 0052E    C5D4C5D5 A
            01 0052F    E3C5C440 A
            01 00530    D6D94040 A
     1347   01 00531    152540C1 A            DATA     X'152540C1'       CARRIAGE RETURN HEX CHARACTERS
     1348   01 00532    E2E2D6C3 A            TEXT     'SSOCIATED INDIRECT ADDRESSING LOGIC ERROR OCCURRED'
            01 00533    C9C1E3C5 A
            01 00534    C440C9D5 A
            01 00535    C4C9D9C5 A
            01 00536    C3E340C1 A
            01 00537    C4C4D9C5 A
            01 00538    E2E2C9D5 A
            01 00539    C740D3D6 A
            01 0053A    C7C9C340 A
            01 0053B    C5D9D9D6 A
            01 0053C    D940D6C3 A
            01 0053D    C3E4D9D9 A
            01 0053E    C5C44040 A
     1349   01 0053F    15F2F040 A   TEXT:    DATA     X'15F2F040'       '20 PASSES' MESSAGE
     1350   01 00540    D7C1E2E2 A            TEXT     'PASSES'
            01 00541    C5E24040 A
     1351                            *
     1352   01 00542    00010203 A   MAP      DATA     X'00010203'
     1353   01 00543    02000000 A   PROTECT  DATA     X'2000000'
     1354   01 00544    0F000514     TRAP     XPSD,0   STOP              INST. STUFFED IN TRAP LOCATION
     1355   01 00545    0F00051A     XCAPE    XPSD,0   XDW               XPSD TO CLEAR SLAVE MODE IN PSD
     1356   01 00546    68000501     :BRANCH  B        TEST+1            INSTRUCTION IN REGISTER 8
     1357   01 00547    68000502     :EXU     B        TEST+2            "  " "  " "  " "  " 9
     1358   01 00548    00000000 A   SAME     DATA     0
     1359                            *
     1360   01 00549    02200030 A   T:CNT4   LCI      3
     1361   01 0054A    2BA00586              STM,10   SAVE10            SAVE REGISTERS 10 AND 11
     1362   01 0054B    35100589              STW,1    SAVE10+3          SAVE REG 1
     1363   01 0054C    3500058A              STW,0    SAVE10+4          SAVE REG 0
     1364   01 0054D    22100001 A            LI,1     1                 SET REGISTER 1 = 1
     1365   01 0054E    220008D3 A            LI,0     X'8D3'
     1366   01 0054F    55020055              STH,0    CNT4I,1           EXCHANGE ADDRESSSES
     1367   01 00550    22C00000 A            LI,12    0
     1368   01 00551    35C008D3 A            STW,12   X'8D3'            CLEAR X'8DO'
     1369   01 00552    6AA00578              BAL,10   STCNT             TEST MAP COUNTER 4 (EFFECTIVE ADDR)
     1370   01 00553    330006D3 A   DONE1    MTW,0    X'6D3'            CHECK THE MAPPED LOCATION
     1371   01 00554    68300557              BEZ      %+3               LOCATION HAS A ZERO. ERROR!
     1372   01 00555    22001658              LI,0     BA(TEXT1)
     1373   01 00556    68000558              B        %+2
     1374   01 00557    22001688              LI,0     BA(TEXT2)
     1375   01 00558    55020594              STH,0    TEXTM:,1
     1376   01 00559    220002CA              LI,0     DA(TEXTM:)
     1377   01 0055A    0F000116              XPSD,0   PRINT             PRINT APPROPIATE MESSAGE
     1378   01 0055B    35C008D3 A            STW,12   X'8D3'            CLEAR X'8DO'
     1379   01 0055C    22A008D5 A            LI,10    X'8D5'            FETCH X'8D5' ADDRESS EFF. LOC.
     1380   01 0055D    35A006D3 A            STW,10   X'6D3'            STORE TO X'6D3'.MAP LOCATION
     1381   01 0055E    32A00055 A            LW,10    X'55'             FETCH INSTRUCTION IN X'55'
     1382   01 0055F    30A00691              AW,10    =X'80000000'
     1383   01 00560    35A00055 A            STW,10   X'55'             STORE TO X'55'
     1384   01 00561    6AA00578              BAL,10   STCNT             TEST MAP COUNTER 4. (INDIRECT ADDRS)
     1385   01 00562    32A00055 A   DONE2    LW,10    X'55'             RESTORE INSTRUCTION IN X'55' TO NORMAL
     1386   01 00563    38A00691              SW,10    =X'80000000'
     1387   01 00564    35A00055 A            STW,10   X'55'
     1388   01 00565    330006D5 A            MTW,0    X'6D5'            TEST EFFECTIVE LOCATION
     1389   01 00566    68300569              BEZ      %+3               CONTENTS EQUAL TO ZERO. ERROR1
     1390   01 00567    220016B8              LI,0     BA(TEXT3)
     1391   01 00568    6800056A              B        %+2
     1392   01 00569    220016E8              LI,0     BA(TEXT4)
     1393   01 0056A    55020594              STH,0    TEXTM:,1
     1394   01 0056B    220002CA              LI,0     DA(TEXTM:)
     1395   01 0056C    0F000116              XPSD,0   PRINT             PRINT MESSAGE
     1396   01 0056D    35C008D3 A            STW,12   X'8D3'            CLEAR XH8D3'
     1397   01 0056E    35C006D3 A            STW,12   X'6D3'            CLEAR X'6D3'
     1398   01 0056F    35C006D5 A            STW,12   X'6D5'            CLEAR X'6D5'
     1399   01 00570    35C008D5 A            STW,12   X'8D5'            CLEAR X'8D5'
     1400   01 00571    32000585              LW,0     CNT4IMOD          SET RTC 4 INTERRUPT LOCATION
     1401   01 00572    35000055              STW,0    CNT4I             FOR RTC TO RUN
     1402   01 00573    02200030 A            LCI      3
     1403   01 00574    2AA00586              LM,10    SAVE10            RESTORE REGS. 10,12
     1404   01 00575    32100589              LW,1     SAVE10+3          RESTORE REGISTER 1
     1405   01 00576    3200058A              LW,0     SAVE10+4          RESTORE REGISTER 0
     1406   01 00577    E800000F A            B        *15
     1407                            *
     1408                            *
     1409   01 00578    35A00590     STCNT    STW,10   LPSD1             , SAVE RETURN ADDRS.
     1410   01 00579    22A01000 A            LI,10    X'1000'
     1411   01 0057A    6DA01300 A            WD,10    X'1300'           ARM AND DISABLE COUNTER 4
     1412   01 0057B    6DA01700 A            WD,10    X'1700'           TRIGGER COUNTER 4
     1413   01 0057C    12A0058E              LD,10    SETMAP            FETCH DOUBLE WORDS
     1414   01 0057D    6FA80000 A            MMC,10   4                 LOAD MAP REGISTERS
     1415   01 0057E    0E000592              LPSD,0   LPSD2             SET MAP MODE
     1416   01 0057F    22A01000 A   GOON     LI,10    X'1000'
     1417   01 00580    6DA01400 A            WD,10    X'1400'           ENABLE COUNTER 4
     1418   01 00581    69000581              BCS,0    %                 NO OPERATION
     1419   01 00582    6DA01100 A            WD,10    X'1100'           DISARM COUNTER 4
     1420   01 00583    0E000590              LPSD,0   LPSD1             RETURN TO ROUTINE
     1421                            *
     1422                            *
     1423   01 00584    331004D3     CNT4INIT MTW,1    CNTR4
     1424   01 00585    33000000 A   CNT4IMOD MTW,0    0                 UNMAPED MTW FOR COUNTER 4 TO
     1425                            *                                     ALLOW RTC'S TO RUN WITHOUT
     1426                            *                                       ACCESS VIOLATIONS.
     1427                            *
     1428   01 00586    00000000 A   SAVE10   DATA     0,0,0,0,0         SAVE LOC. FOR REGS 10-12,1,0
            01 00587    00000000 A
            01 00588    00000000 A
            01 00589    00000000 A
            01 0058A    00000000 A
     1429   01 0058B    00010203 A   MAPREG   DATA     X'00010203'
     1430   01 0058C    03050607 A            DATA     X'03050607'
     1431                                     BOUND    8
     1432   01 0058E    0000058B     SETMAP   DATA     MAPREG,X'2000000'
            01 0058F    02000000 A
     1433   01 00590    00000000 A   LPSD1    DATA     0,X'00800000'
            01 00591    00800000 A
     1434   01 00592    0040     A   LPSD2    DATA,2   X'40',GOON,0,0
            01 00592 2  057F     N
            01 00593    0000     A
            01 00593 2  0000     A
     1435   01 00594    05000000 A   TEXTM:   GEN,8,24 X'05',0
     1436   01 00595    0200002F A            GEN,8,24 X'02',47
     1437   01 00596    1540C3D6 A   TEXT1    TEXT     '
 COUNTER 4 INTRP.(X 55 ) HAS MAP OPTION       '
            01 00597    E4D5E3C5 A
            01 00598    D940F440 A
            01 00599    C9D5E3D9 A
            01 0059A    D74B4DE7 A
            01 0059B    40F5F540 A
            01 0059C    5D40C8C1 A
            01 0059D    E240D4C1 A
            01 0059E    D740D6D7 A
            01 0059F    E3C9D6D5 A
            01 005A0    40404040 A
            01 005A1    40404040 A
     1438   01 005A2    1540C3D6 A   TEXT2    TEXT     '
 COUNTER 4 INTRP.(X 55 ) HAS NO MAP OPTION    '
            01 005A3    E4D5E3C5 A
            01 005A4    D940F440 A
            01 005A5    C9D5E3D9 A
            01 005A6    D74B4DE7 A
            01 005A7    40F5F540 A
            01 005A8    5D40C8C1 A
            01 005A9    E240D5D6 A
            01 005AA    40D4C1D7 A
            01 005AB    40D6D7E3 A
            01 005AC    C9D6D540 A
            01 005AD    40404040 A
     1439   01 005AE    1540C3D6 A   TEXT3    TEXT     '
 COUNTER 4 INTRP.HAS INDIRECT ADDRESS MAPPING '
            01 005AF    E4D5E3C5 A
            01 005B0    D940F440 A
            01 005B1    C9D5E3D9 A
            01 005B2    D74BC8C1 A
            01 005B3    E240C9D5 A
            01 005B4    C4C9D9C5 A
            01 005B5    C3E340C1 A
            01 005B6    C4C4D9C5 A
            01 005B7    E2E240D4 A
            01 005B8    C1D7D7C9 A
            01 005B9    D5C74040 A
     1440   01 005BA    1540C3D6 A   TEXT4    TEXT     '
 COUNTER 4 INTRP.HAS NO INDIRECT ADDRS MAPPING'
            01 005BB    E4D5E3C5 A
            01 005BC    D940F440 A
            01 005BD    C9D5E3D9 A
            01 005BE    D74BC8C1 A
            01 005BF    E240D5D6 A
            01 005C0    40C9D5C4 A
            01 005C1    C9D9C5C3 A
            01 005C2    E340C1C4 A
            01 005C3    C4D9E240 A
            01 005C4    D4C1D7D7 A
            01 005C5    C9D5C740 A
     1441                            *
     1442                            * THIS ROUTINE DETERMINES WHEN TWENTY PASSES HAVE BEEN MADE AND
     1443                            *  THEN PRINTS THE MESSAGE '20 PASSES' TO THE TELETYPE.
     1444                            *
     1445   01 005C6    331005CF     PASCNTC  MTW,1    PASCNT2           INCREMENT PASS COUNT
     1446   01 005C7    32A005CF              LW,10    PASCNT2           CHECK FOR 20 PASSES
     1447   01 005C8    21A00014 A            CI,10    20
     1448   01 005C9    E930000F A            BNE      *15               RETURN <20 PASSES
     1449   01 005CA    22000290              LI,0     DA(MSG:)          PRINT '20 PASSES'
     1450   01 005CB    0F000116              XPSD,0   PRINT
     1451   01 005CC    22A00000 A            LI,10    0                 CLEAR PASS COUNT
     1452   01 005CD    35A005CF              STW,10   PASCNT2
     1453   01 005CE    E800000F A            B        *15               EXIT
     1454                            *
     1455   01 005CF    00000000 A   PASCNT2  DATA     0                 PASS COUNT LOCATION
     1456                            *
     1457                            *
     1458   01 00602                          ORG      X'602'
            01 00602
     1459   01 00602    33000083     CHKBIG   MTW,0    XPSDMA+1          ARE WE BIG
     1460   01 00603    68300610              BEZ      NOTBIG            NO, SET MEM LIMIT
     1461   01 00604    32100640              LW,1     TRAPSD            SET FOR INDEX ERROR TRAP
     1462   01 00605    35100040 A            STW,1    X'40'
     1463   01 00606    22700000 A            LI,7     0                 SET INDEX REG VALUE TO ZERO
     1464   01 00607    22620000 A            LI,6     X'20000'          INDEX FOR BIG MEMORY ADDR
     1465   01 00608    22540000 A            LI,5     X'40000'
     1466   01 00609    32400692              LW,4     =X'80000'
     1467   01 0060A    221FFFF9 A            LI,1     -7                CHECK ANLZ RESULTS
     1468   01 0060B    4422062D              ANLZ,2   ANLZB+7,1          DO ANLZ
     1469   01 0060C    31220634              CW,2     COMPB+7,1         COMPARE RESULTS
     1470   01 0060D    69300613              BNE      BIGERR            ERROR IN HARDWARE
     1471   01 0060E    6510060B              BIR,1    %-3               LOOP
     1472   01 0060F    E800000F A            B        *15               EXTEND ADDRESS BIT OK RETURN
     1473   01 00610    2251FFFF A   NOTBIG   LI,5     X'1FFFF'
     1474   01 00611    3550005F              STW,5    MEMLIMT           STORE SMALL LIMIT
     1475   01 00612    E800000F A            B        *15               DONE
     1476   01 00613    211FFFFE A   BIGERR   CI,1     -2                DID A BIT PICK
     1477   01 00614    69100622              BL       BIGERX            YES, ERROR
     1478   01 00615    6920061D              BG       BIGE1
     1479   01 00616    33000086              MTW,0    SIGMA5            ARE WE A SIGMA 5
     1480   01 00617    69300622              BNE      BIGERX            YES, ERROR
     1481   01 00618    2213FFFF A            LI,1     X'3FFFF'          256K SIGMA 7
     1482   01 00619    3510005F              STW,1    MEMLIMT
     1483   01 0061A    2200031D              LI,0     DA(SIG7256)
     1484   01 0061B    0F000116              XPSD,0   PRINT
     1485   01 0061C    E800000F A            B        *15               DONE
     1486   01 0061D    33000086     BIGE1    MTW,0    SIGMA5
     1487   01 0061E    68300622              BE       BIGERX            ERROR IF SIGMA 7
     1488   01 0061F    2200031F              LI,0     DA(SIG5X)
     1489   01 00620    0F000116              XPSD,0   PRINT
     1490   01 00621    E800000F A            B        *15               DONE FOR SIGMA 5
     1491   01 00622    2200031B     BIGERX   LI,0     DA(BIGERM)
     1492   01 00623    0F000116              XPSD,0   PRINT
     1493   01 00624    2E000000 A            WAIT
     1494   01 00625    68000624              B        %-1
     1495   01 00626    120E0010 A   ANLZB    LD,0     16,7
     1496   01 00627    320E0010 A            LW,0     16,7
     1497   01 00628    520E0010 A            LH,0     16,7
     1498   01 00629    720E0010 A            LB,0     16,7
     1499   01 0062A    320C0010 A            LW,0     16,6              X'20000'
     1500   01 0062B    520A0010 A            LH,0     16,5              X'40000'
     1501   01 0062C    72080010 A            LB,0     16,4              X'80000'
     1502   01 0062D    00000008 A   COMPB    DATA     8
     1503   01 0062E    00000010 A            DATA     X'10'
     1504   01 0062F    00000020 A            DATA     X'20'
     1505   01 00630    00000040 A            DATA     X'40'
     1506   01 00631    00020010 A            DATA     X'20010'
     1507   01 00632    00040020 A            DATA     X'40020'
     1508   01 00633    00080040 A            DATA     X'80040'
     1509         01 00634                    FILL     X'636'
     1510                                     BOUND    8
     1511   01 00636    050019D4 N   BIGERM   GEN,8,24,8,24 5,BA(BIGM),2,40
                        02000028
     1512   01 00638    05001920 N   IDXERR   GEN,8,24,8,24 5,BA(IDXMSG),2,73
                        02000049
     1513   01 0063A    0500196C N   SIG7256  GEN,8,24,8,24 5,BA(SIG7256M),2,31
                        0200001F
     1514   01 0063C    0500198C N   SIG7MEG  GEN,8,24,8,24 5,BA(SIG71M),2,37
                        02000025
     1515   01 0063E    050019B4 N   SIG5X    GEN,8,24,8,24 5,BA(SIG5M),2,31
                        0200001F
     1516   01 00640    00000000 A   TRAPSD   DATA     0,0,%+2,X'00800000'
            01 00641    00000000 A
            01 00642    00000644
            01 00643    00800000 A
     1517   01 00644    2200031C              LI,0     DA(IDXERR)
     1518   01 00645    0F000116              XPSD,0   PRINT             PRINT ERROR MSG
     1519   01 00646    2E000000 A            WAIT
     1520   01 00647    68000646              B        %-1
     1521                            IDXMSG   TEXT     '
CPU TRAPS WHEN TRYING TO EXECUTE INSTRUCTION WITH',;
     1522   01 00648    15C3D7E4 A                     ' INDEX FIELD NON-ZERO!
'
            01 00649    40E3D9C1 A
            01 0064A    D7E240E6 A
            01 0064B    C8C5D540 A
            01 0064C    E3D9E8C9 A
            01 0064D    D5C740E3 A
            01 0064E    D640C5E7 A
            01 0064F    C5C3E4E3 A
            01 00650    C540C9D5 A
            01 00651    E2E3D9E4 A
            01 00652    C3E3C9D6 A
            01 00653    D540E6C9 A
            01 00654    E3C840C9 A
            01 00655    D5C4C5E7 A
            01 00656    40C6C9C5 A
            01 00657    D3C440D5 A
            01 00658    D6D560E9 A
            01 00659    C5D9D65A A
            01 0065A    15404040 A
     1523   01 0065B    15E2C9C7 A   SIG7256M TEXT     '
SIGMA 7 WITH 256K MEMORY LIMIT
'
            01 0065C    D4C140F7 A
            01 0065D    40E6C9E3 A
            01 0065E    C840F2F5 A
            01 0065F    F6D240D4 A
            01 00660    C5D4D6D9 A
            01 00661    E840D3C9 A
            01 00662    D4C9E315 A
     1524   01 00663    15E2C9C7 A   SIG71M   TEXT     '
SIGMA 7 WITH 1 MEGAWORD MEMORY LIMIT
'
            01 00664    D4C140F7 A
            01 00665    40E6C9E3 A
            01 00666    C840F140 A
            01 00667    D4C5C7C1 A
            01 00668    E6D6D9C4 A
            01 00669    40D4C5D4 A
            01 0066A    D6D9E840 A
            01 0066B    D3C9D4C9 A
            01 0066C    E3154040 A
     1525   01 0066D    15E2C9C7 A   SIG5M    TEXT     '
SIGMA 5 WITH 512K MEMORY LIMIT
'
            01 0066E    D4C140F5 A
            01 0066F    40E6C9E3 A
            01 00670    C840F5F1 A
            01 00671    F2D240D4 A
            01 00672    C5D4D6D9 A
            01 00673    E840D3C9 A
            01 00674    D4C9E315 A
     1526   01 00675    15D7D9D6 A   BIGM     TEXT     '
PROBLEM WITH BITS 12-14 NOT ZERO
'
            01 00676    C2D3C5D4 A
            01 00677    40E6C9E3 A
            01 00678    C840C2C9 A
            01 00679    E3E240F1 A
            01 0067A    F260F1F4 A
            01 0067B    40D5D6E3 A
            01 0067C    40E9C5D9 A
            01 0067D    D6154040 A
     1527         01 00060                    END      START
            01 0067E    02200000 A
            01 0067F    40000000 A
            01 00680    10000000 A
            01 00681    C0000000 A
            01 00682    0000000F A
            01 00683    01000000 A
            01 00684    FFFE0000 A
            01 00685    000000FF A
            01 00686    00000003 A
            01 00687    F0000000 A
            01 00688    000040FF A
            01 00689    2FFFFFFF A
            01 0068A    000FFFFF A
            01 0068B    0000FFFF A
            01 0068C    01000800 A
            01 0068D    0101F800 A
            01 0068E    FF00FFFF A
            01 0068F    00FFFFFF A
            01 00690    00000000 A
            01 00691    80000000 A
            01 00692    00080000 A

  CONTROL SECTION SUMMARY: 01 00693   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   23:42 JUN 20,'83    SIGMA 5/7 CPU DIAGNOSTIC-MAP 960-0012-1A  08-04-81                    PAGE    3
A  ABBACK           892-STW      896/B        899/B
   ABER             891/BE       895/BE       897-LI
   ABPRNT           901/GEN      903-TEXT
   ACABRTED         907-LW       914/B
   ACBLMOD          625/LH       718/LH      1240-TEXT
   ACEND            511-LI       798/B        913/B
   ACINIT           437/LI       445/LW       506/LI       542-DATA     838/LI       871/LI      1089/LI
   ACMD             627/LI       641-GEN     1058/LI      1212/LI
   ACMER            566/BNE      805-LI
   ACREAD           597/STW      602/LW       685-DATA     766/LW
   ACSTRP           561-LI       590/BE
   ACXIT            514/BCR      517-B
   ACXYZ1           504/BEZ      508-LW
   AEINTP          1243/BEZ     1245-LW
   ANALCNT          477/B        562/B        595-STW
   ANLABORT         598/BAL      887-LI
   ANLZB           1468/ANLZ    1495-LD
   BACK:           1316-LI      1339/DATA
   BACKBAC          763/BCS      776-LI
   BACKBMP         1151/BCS     1167-LI
   BIGERM          1491/LI      1511-GEN
   BIGERR          1470/BNE     1476-CI
   BIGERX          1477/BL      1480/BNE     1487/BE      1491-LI
   BIGE1           1478/BG      1486-MTW
   BIGM            1511/GEN     1526-TEXT
   BINHEX           650/BAL      686-LI       693/BIR      720/BAL      850/BAL      909/BAL      962/BAL
       966/BAL      970/BAL     1181/BAL
   BLK16AC          390-DATA     442/STW      489/LW       491/MTW      497/LW       503/SW       512/STW
       577/LW       623/LW       662/LW       670/SW       831/LW       863/CW       905/LW
   BLK4MAP          923/STW      938-DATA     981/LW      1054/LW      1074/LW      1086/SW      1097/LW
      1102/SW      1143/LW      1146/MTW
   BLK64MAP         488-DATA
   BRMPRLD         1134/B       1137-LI      1147/B
   BSTART           372/LW       424-B
   BUSY             533/BCS      535-SIO
   CHKBIG           361/BAL     1459-MTW
   CHKMPFF         1004/BE      1060/B       1148-LI      1185/B       1202/B       1206/BLE     1219/B
   CHKSCS          1199/BLE     1220-RD
   CHKVPFF          629/B        725/B        760-LI       859/BE
   CHNPC            808/LI       813-GEN
   CMODER          1207/B       1208-LW
   CMODER1         1195/BLEZ    1203-LW
   CNF01           1016/BEZ     1023-LI
   CNTR1            347/MTW     1258-DATA
   CNTR2            348/MTW     1259-DATA
   CNTR3            349/MTW     1260-DATA
   CNTR4            350/MTW      364/STW     1261-DATA    1423/MTW
   CNT4I            350-MTW     1366/STH     1401/STW
   CNT4IMOD        1400/LW      1424-MTW
   CNT4INIT         365/LW      1423-MTW
   COMPB           1469/CW      1502-DATA
   CONNXT           740/BNE      742/BNEZ     880-LCI
   CONNXTMP        1013-LCI     1034/BNE     1037/BNE
   CPINT           1256-DATA
   CPINTM           413/STW     1245/LW      1257-DATA    1264/AND     1272/LW      1277/LW      1280/STW
   CPNINT           355/XPSD    1268-DATA    1287/LPSD
   CSTNPLX          710/LW       878-EQU     1172/LW
   CVPAC            458-DATA     475/STW      586/STW      599/LW       606/CW       767/LW       882/LW
   DONEMSG          536-TIO      537/BCS
   DONE1           1370-MTW
   DONE2           1385-LW
   DTCHNG           889/BNE      894-CI
   DTFORM           600/BAL      603/BAL      609-SLD
   ENBL            1249/B       1263-LW
   ENDAC           1118-TEXT    1121/GEN     1123/GEN
   ERAB             897/LI       901-GEN
   ERACM            805/LI       817-GEN
   ERMAPM1         1053/BLZ     1172-LW
   ERMAP1          1052/BGZ     1061-MTW
   ERNPCB0          622/BE       631-MTW
   ERRCOUNT         407/STW      645/MTW     1012-DATA    1061/MTW     1242/LW      1275/LW
   ERSTP            817/GEN      819-TEXT
   ERTRPM1          618/BLZ      710-LW
   ERTRP1           617/BGZ      643-LCI
   EXCMEM           549/B        904-STD
   EXITIO           532/B        534/B        538-LPSD
   FILL             297-CNAME
   FILL11           307-CNAME
   GOON            1416-LI      1434/DATA
   HALT            1329-LI      1337/DATA
   HDMN             426/GEN      428-DATA
   HDTP             421/LI       431-GEN
   IDXERR          1512-GEN     1517/LI
   IDXMSG          1512/GEN     1521-TEXT
   INSACS           553/B        557/B        563-LW
   INTBLK           414/STW      709-DATA     713/STW      714/MTB      771/LW       777/STW     1160/LW
      1168/STW     1175/STW     1176/MTB
   INTPRNT          719/STH      722/STH      756/GEN      758-TEXT    1180/STH     1182/STH     1211/STH
   INUMB            595/STW      683-DATA
   LDACRTN          660/BCS      701/B        702-EQU
   LDMAPRTN        1071/BCS     1170-EQU
   LGCMSG          1343/GEN     1345-DATA
   LOADMM           375-CI       385/B
   LOGICERR        1329/LI      1343-GEN
   LPSDBR           486/B        495-LW       702/EQU      886/B
   LPSDMA           358/LPSD     392-DATA
   LPSD1           1409/STW     1420/LPSD    1433-DATA
   LPSD2           1415/LPSD    1434-DATA
   MACTRAP          389/XPSD     544-DATA     544/DATA     563/LW       569/STW      570/LPSD     587/LW
       619/LW
   MAP             1335/DATA    1352-DATA
   MAPANAL          906/BLZ     1186-LCI
   MAPBLMOD        1056/LH      1179/LH      1210/LH      1239-TEXT
   MAPERAC          578/BLZ     1241-WAIT
   MAPLVL           928/STW      939-DATA     975/LW       982/MTW     1031/STW     1051/LW      1073/STW
      1149/STW     1194/LW
   MAPOK            976/BGZ      996-RD
   MAPPAGE          922/STW      937-DATA     949/LW      1024/LW      1078/LW      1113/LW      1133/MTW
      1142/STW     1189/LW      1215/LW
   MAPRD            946/STW      955/CW       959-DATA     969/LW      1154/LW
   MAPREG          1429-DATA    1432/DATA
   MAPRELD         1022/B       1027/B       1096-LI      1140/B       1170/EQU
   MAPSTR           925/STW      952/STB      954/LW       958-DATA     965/LW      1015/LW      1116/STB
      1155/LW      1193/STW     1198/CW      1205/CW      1216/LW
   MAPSZER         1200/LI      1232-GEN
   MAPTERM          997/BCR     1000/B       1029-LW      1169/B       1221/BCR     1228/B
   MAPTEST          517/B        920-SD
   MAPXYZ1         1103/BEZ     1107/B       1110-LCI
   MASK             415/LW      1262-DATA    1263/LW      1279/AND
   MEMLIMT          357-DATA     382/CW       387/STW     1474/STW     1482/STW
   MEMPRTC          546/B        554/B        571-LCI
   MEMSZ            354/XPSD     395-DATA
   MLVL0            981-LW
   MNHD             403/LI       426-GEN
   MODNUMBR         626/STH      641/GEN      759-TEXT    1057/STH
   MPINIT           434/LI       541-FILL     673/LI       861/LI       988/LI      1105/LI
   MPRESET          420/BCR      423/B        434-LI      1047/BNE     1244/B       1246/BEZ     1266/B
   MPVPTST          452/LD       929/STH      931/LPSD     933-DATA    1129/STH
   MSG:            1341-GEN     1449/LI
   MSGPRNT          654/LI       679-GEN      853/LI       998/LI      1067/LI      1224/LI
   NEQMAP           957/B       1051-LW
   NEQTRAP          608/B        616-LW
   NEXMEM           911/LI       916-GEN
   NEXTPG           384-AI
   NOTBIG          1460/BEZ     1473-LI
   NPCB0ER          637-GEN      730/LI
   NXBLCK           828/BLZ      856-LW
   NXMAPBK          977/BLZ     1001-LD
   NXMTRP           910/STH      916/GEN      918-TEXT
   NXTBLK4         1132/BE      1141-LI
   NXTVP            478-AI       883/BEZ
   NXT16BLK         481/BEZ      489-LW
   NXVPMP          1018/BE      1125-AI
   OKRSLT           827/BGZ      846-RD
   PASCNTC         1044/BAL     1445-MTW
   PASCNT2          409/STW     1445/MTW     1446/LW      1452/STW     1455-DATA
   PASCOUNT         408/STW     1011-DATA    1039/MTW     1045/LW      1274/LW
   PASSEND         1038/B       1039-MTW     1145/BE
   PB0TSTBT         573/LW       630-DATA     631/MTW      732/MTW      810/MTW
   PCBCK            813/GEN      815-TEXT
   PGMAX            356-DATA     398/STW     1196/LW      1203/LW
   PNPCB            574/BGZ      808-LI
   PRACND           515/LI      1121-GEN
   PRERMSG         1234/GEN     1236-TEXT
   PRININTF         723/LI       756-GEN     1183/LI
   PRINT            404/XPSD     422/XPSD     516/XPSD     528-DATA     528/DATA     538/LPSD     628/XPSD
       655/XPSD     724/XPSD     731/XPSD     803/XPSD     806/XPSD     809/XPSD     854/XPSD     898/XPSD
       912/XPSD     999/XPSD    1059/XPSD    1068/XPSD    1184/XPSD    1201/XPSD    1213/XPSD    1225/XPSD
      1248/XPSD    1330/XPSD    1377/XPSD    1395/XPSD    1450/XPSD    1484/XPSD    1489/XPSD    1492/XPSD
      1518/XPSD
   PRNMPARG         953/BAL      960-SLS     1188/BAL
   PRNPCB0          637/GEN      639-TEXT
   PROTECT         1336/DATA    1353-DATA
   PRTCM           1247/LI      1251-GEN
   PRTEXC           550/B        914-B
   PSD             1311/LPSD    1338-DATA
   REG:8           1291-EQU     1298/STW     1313/B*      1319/STW
   REG:9           1292-EQU     1299/STW     1314/EXU*    1320/STW
   RELDAC           699-LCI
   RESUME          1317/LD      1340-DATA
   RSLT             444/STD      601/STW      605/STH      652/STH      679/GEN      681-TEXT     852/STH
       964/STH      968/STW      971/STH     1223/STD     1227/STD     1232/GEN
   RSTACLD          518-DATA
   RSTBLOCK         865-LW       877/B
   RTCLCK          1050/B       1242-LW
   RTMSG           1251/GEN     1253-TEXT
   R01ST            460-DATA     904/STD
   R04STOR          944/STM      974-DATA     983/LI       993/LM      1009/LM      1014/LM      1021/STW
      1026/STW     1029/LW      1035/LW      1063/LM      1111/LM      1138/STW     1152/LW      1187/STM
      1190/LW      1208/LW      1218/STW
   R05STOR          465/STM      572/STM      644/LM       648/LW       657/LM       700/LM       707-FILL
       735/LW       741/LW       764/LW       833/LI       841/LM       848/LW       870/LM       874/LW
       875/AND      881/LM      1271/STM     1286/LM
   SAME            1340/DATA    1358-DATA
   SAVE10          1361/STM     1362/STW     1363/STW     1403/LM      1404/LW      1405/LW      1428-DATA
   SCSDATA         1222/LD      1230-TEXT
   SEQRMAP          956/BE       975-LW
   SEQRTR           607/BE       826-LW
   SETMAP          1413/LD      1432-DATA
   SETMP           1079/EXU     1092-OR
   SETPAGE          376/BL       381-STD
   SIGMA5           341/XPSD     394-DATA    1479/MTW     1486/MTW
   SIGM5M           386-LI       394/DATA
   SIG5M           1515/GEN     1525-TEXT
   SIG5X           1488/LI      1515-GEN
   SIG7MEG         1514-GEN
   SIG71M          1514/GEN     1524-TEXT
   SIG7256         1483/LI      1513-GEN
   SIG7256M        1513/GEN     1523-TEXT
   START            358-LPSD     360/CVS      392/DATA     393/DATA     424/B       1527/END
   START2           361-BAL      388/B
   STCNT           1369/BAL     1384/BAL     1409-STW
   STOP            1337-DATA    1354/XPSD
   SUPMAP           344/XPSD     941-DATA
   SUPMODE          343/XPSD     462-DATA
   SUPNPCB          345/XPSD     728-DATA
   SZXIT            383/BE       398-STW
   T:CNT4          1049/BAL     1360-LCI
   TEST            1312-RES     1332/B       1338/DATA    1356/B       1357/B
   TEST:M1         1048/BAL     1295-RES
   TEXT:           1341/GEN     1349-DATA
   TEXTM:          1375/STH     1376/LI      1393/STH     1394/LI      1435-GEN
   TEXT1           1372/LI      1437-TEXT
   TEXT2           1374/LI      1438-TEXT
   TEXT3           1390/LI      1439-TEXT
   TEXT4           1392/LI      1440-TEXT
   TRAP            1305/LW      1354-XPSD
   TRAPLVL          402/STW      616/LW       661/MTW      684-DATA     737/STW      761/STW      826/LW
       832/MTW
   TRAPSD          1461/LW      1516-DATA
   TRPANAL          587-LW
   TSTBLK           864/BE       874-LW
   TSTCNT           836/STW      839/STW      844-DATA     856/LW       865/LW       868/STW      878/EQU
       986/STW      989/STW     1001/LD      1006/STD
   TSTPCB           632/LPSD     634-DATA
   TYPE             529/TIO*     535/SIO*     536/TIO*     539-DATA    1276/LW      1284/STW
   TYPHDNG          431/GEN      682-TEXT
   VPAGE            443/STW      484/MTW      487-DATA     490/STW
   VPID             441/STW      479/STW      508/LW       510-DATA     921/STW     1080/LW      1112/LW
      1126/STW
   VPTERM           735-LW       778/B        847/BCR      855/B
   VP0FLD           453/LW       754-LPSD     790/LW
   VP0TST           456/LPSD     754/LPSD     786-DATA
   VP1FFTST         457/LPSD     520-DATA     750/MTW      752/LPSD     789/MTW
   VP1FFTS1         450/LM       523-LW
   VP1FLD           457-LPSD     495/LW
   WPLOGIC          802/LI       822-GEN
   WRERROR          467/BGZ      802-LI
   WRRSLT           822/GEN      824-TEXT
   WRTCHK           406/STW      466/LW       575/LW       748/STW      753-DATA     795/STW
   WRTXIT           576/BGZ      789-MTW      804/B
   XACVP            454/STW      456-LPSD     496/STW      509/B        647/BCS      671/BEZ      675/B
       791/STW      842/B        873/B
   XCAPE           1307/LW      1355-XPSD
   XCSTRAP          389-XPSD     399/LW
   XDW             1339-DATA    1355/XPSD
   XEQINST          369/LW       433-LI
   XMAP            1300/LD      1335-DATA
   XMAPVP           930/B        931-LPSD     994/B       1010/B       1065/BCS     1087/BEZ     1091/B
      1117/B
   XPROTECT        1302/LD      1336-DATA
   XPSDMA           359/XPSD     393-DATA    1459/MTW
   ZTEMP            695/LW       697-DATA
   ZTEMP1           692/STB      694/LW       698-DATA
   :BRANCH         1309/LW      1356-B
   :EXU            1310/LW      1357-B
