1 C00   20:29 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   20:29 JUN 20,'83    MEMORY DIAGNOSTIC-FAULT LOCATOR 705736-11/51A01 9/1/70                PAGE    2
A       1                             TITLE 'MEMORY DIAGNOSTIC-FAULT LOCATOR 705736-11/51A01 9/1/70'
        2                            *
        3                            *
        4                            * PROGRAM NO. 705736                MANUAL NO. 901687
        5                            *
        6                            *
        7                            *
        8                            * PROGRAM OBJECTIVES
        9                            * ------------------   THE PROGRAM PROVIDES CAPABILITY TO DETECT    *A01
       10                            * MALFUNCTIONS ASSOCIATED WITH SIGMA 5/7 NEW MEMORY.                *A01
       11                            * MATRIX SWITCHES, DRIVERS AND THE BASIC MEMORY UNITS (BMU)         *A01
       12                            * OF THE MEMORY SYSTEM ARE TESTED BY THIS PROGRAM.   THE DIAGNOSTIC
       13                            * WILL ONLY CHECK THE PORT TO WHICH THE CPU IS ATTACHED.  MALFUNCTIONS
       14                            * AND CONFLICTS ASSOCIATED WITH REMAINING PORTS IS TESTED BY THE
       15                            * DIAGNOSTIC PROGRAM NO. 705680
       16                            * THE USER MAY OPTIONALLY REQUEST A PRINTOUT OF SUSPECTED MODULES   *A01
       17                            * (THRU USE OF SENSE SWITCH 2) IN THE EVENT OF A FAILURE DETECTION. *A01
       18                            * THE LIST OF MODULES ARE NOT GUARANTEED TO ALWAYS CORRECT THE FAIL-*A01
       19                            * URE, THEREFORE THE USER IS CAUTIONED TO USE THE LIST AT HIS OWN   *A01
       20                            * RISK AND TO USE IT WITH DISCRETION.
       21                            *
       22                            *
       23                            * OPERATING REQUIRIMENTS AND SPECIFICATIONS
       24                            * -----------------------------------------
       25                            * REQUIRED EQUIPMENT
       26                            *                       SIGMA 5 OR 7 WITH 8K OF MEMORY MINIMUM
       27                            *                       MODEL 8265/8465                             *A01
       28                            *
       29                            *
       30                            *
       31                            *
       32                            *
       33                            *
       34                            *                       MAG.TAPE, CARD-READER OR PAPER-TAPE READER FOR
       35                            *                       PROGRAM INPUT.
       36                            *
       37                            *                       ASR/KSR OR LINE-PRINTER FOR MESSAGE PRINT-OUTS.
       38                            *
       39                            *
       40                            * PROGRAM MODIFICATIONS
       41                            * ---------------------
       42                            *
       43                            * REVISION A01 (8/30/70) PROGRAM MODIFICATIONS INDICATED IN COL 69-72*A01
       44                            *        PROGRAM MODIFIED TO: 1. CORRECT OPERATION OF LMS INST. IN  *A01
       45                            *        INTERLEAVE MODE , 2. PROVIDE KSR BREAK CAPABILITY FOR      *A01
       46                            *        MESSAGE TERMINATION , 3. ADD SENSE SWITCH 2. OPTION FOR    *A01
       47                            *        ERROR ISOLATION RECOMENDATIONS AND 4. CORRECT BIT 30       *A01
       48                            *        MATRIX DECODE.                                             *A01
       49                            *
       50                            *
       51                            *
       52                            * PROGRAM PREREQUISITES
       53                            * ---------------------
       54                            *                       THE 8K OPERATING AREA OF MEMORY IN WHICH THE
       55                            *                       PROGRAM RESIDES IS ASSUMED TO BE WORKING
       56                            *                       CORRECTLY.   SEE THE LOADING PROCEDURE IN ORDER
       57                            *                       TO LOAD THE PROGRAM TO A DIFFERENT SECTION OF
       58                            *                       THE MEMORY.
       59                            *
       60                            *
       61                            * BANK NO. SETTING REQUREMENT
       62                            * ---------------------------
       63                            *
       64                            *
       65                            *       ***************************************
       66                            *       *IMPORTANT - ALL MODULE ISOLATION     *
       67                            *       *ANALYSIS DEPENDS ON THIS REQUIREMENT.*
       68                            *       ***************************************
       69                            *                       BANKS "A" OF THE MEMORY MUST BE SET TO EVEN
       70                            *                       NUMBERS, WHILE CORRESPONDING BANK "B" ON A
       71                            *                       GIVEN SWITCH MUST BE ASSIGNED THE NEXT HIGHER
       72                            *                       ODD NUMBER.
       73                            *
       74                            *
       75                            * RUN TIME
       76                            * --------              AFTER LOADING, THE PROGRAM WILL REQUIRE
       77                            *                       APROXIMATELY 45 SECONDS FOR EACH 8K OF THE  *A01
       78                            *                       IMPLEMENTED MEMORY TO COMPLETE ONE SUCCESSFUL
       79                            *                       CYCLE.
       80                            *
       81                            * PROGRAM MEDIA
       82                            * -------------         SELF-LOADING  80-COLUMN CARDS OR 8-LEVEL PAPER-
       83                            *                       TAPE,  OR SIGMA  5/7  MAG.TAPE LIBRARY.
       84                            *
       85                            *
       86                            * SOURCE LANGUAGE
       87                            * ---------------       SIGMA META-SYMBOL
       88                            *
       89                            *
       90                            *
       91                            * LOADING PROCEDURE
       92                            * -----------------     THE SIGMA 5/7 RELOCATABLE DIAGNOSTIC PROGRAM
       93                            * LOADER, CATALOG NO. 704356, IS SUPPLIED WITH THE OBJECT PROGRAM MEDIA.
       94                            * FOLLOW DETAILED PROCEDURES LISTED IN THE LOADER MANUAL, XDS 900972.
       95                            * STEPS REQUIRED ARE:
       96                            *
       97                            *        1.  SET THE COMPUTE SWITCH TO IDLE
       98                            *
       99                            *        2.  CLEAR THE MEMORY BY PRESSING THE CPU/CLEAR AND SYSTEM
      100                            *            RESET/CLEAR SWITCHES SIMULTANEOUSLY.
      101                            *
      102                            *        3.  SET THE UNIT-ADDRESS SWITCHES TO THE ADDRESS OF THE DESIRED
      103                            *            INPUT PERIPHERAL DEVICE.
      104                            *
      105                            *        4. SET THE WATCHDOG-TIMER SWITCH TO NORMAL
      106                            *
      107                            *        5. SET THE INTERLEAVE SWITCH TO THE DIAGNOSTIC POSITION.   *A01
      108                            *           FOR INTERLEAVE TEST PROGRAM SHOULD BE LOADED WITH THE   *A01
      109                            *           INTERLEAVE SWITCH IN THE NORMAL MODE.                   *A01
      110                            *
      111                            *        6. SET THE PARITY ERROR MODE SWITCH AND THE CLOCK MODE SWITCH
      112                            *           TO CONT. POSITIONS AND THE ADDR STOP SWITCH TO OFF POSITION.
      113                            *
      114                            *        7. SET SENSE SWITCHES ACCORDING TO THE LOAD OPTIONS (SEE THE
      115                            *           OPERATING PROCEEDURE)
      116                            *
      117                            *        8. START THE PROGRAM INPUT DEVICE
      118                            *
      119                            *        9. PRESS THE LOAD BUTTON ON PCP
      120                            *
      121                            *       10. SET THE COMPUTE SWITCH TO RUN.
      122                            *
      123                            *           AT THIS POINT THE PROGRAM WILL BE LOADED ACCORDING THE
      124                            *           SETTING OF THE SENSE SWITCHES.
      125                            *
      126                            *
      127                            *
      128                            * OPERATING PROCEDURE & CONTROL OPTIONS
      129                            * -------------------------------------
      130                            *
      131                            * PROGRAM RELOCATION
      132                            * ******************
      133                            *
      134                            * IF THE PROGRAM IS TO RESIDE AND OPERATE IN AN AREA OTHER THAN
      135                            * THE FIRST 8K OF THE AVAILABE MEMORY OR IF THE BASE ADDRESS OF RESIDENT
      136                            * LOADER IS TO BE ALTERED PROCEED AS FOLLOWS:
      137                            *
      138                            *        1. BEFORE INITIATING THE LOAD OPERATION  SET SENSE SWITCH 1
      139                            *           (SS1) TO UP POSITION  (IF NO PROGRAM RELOCATION IS REQUIRED
      140                            *           OR CHANGE IN BASE ADDRESS OF THE LOADER IS DESIRED, LEAVE
      141                            *           SS1 IN DOWN POSITION WHILE PROGRAM IS BEING LOADED)
      142                            *
      143                            *        2. INITIATE LOAD OPERATION
      144                            *
      145                            *        3. IF SS1 = SET, A WAIT AT LOCATION 48(HEX) WILL OCCUR
      146                            *           ENTER THE DESIRED PROGRAM RELOCATION BIAS IN REGISTER 0, AND
      147                            *           SPECIFICATION OF BASE ADDRESS OF RESIDENT LOADER IN R1.
      148                            *           RESET SS1 AND CLEAR THE WAIT TO RESUME LOAD PROCESS
      149                            *
      150                            *           NOTE:  IF SS1 IS NOT RESET BEFORE CLEARING THE WAIT, A
      151                            *           ----   SECOND WAIT AT LOC. 25(HEX) WILL OCCUR DURING WHICH
      152                            *                  THE RELOCTION BIAS IN R0 MAY BE ALTERED TO SOME OTHER
      153                            *                  RELOCATION VALUE.  THE SETTING OF THE SS1 AFTER
      154                            *                  COMPLETION OF THE LOAD PROCESS WILL HAVE A DIFFERENT
      155                            *                  FUNCTIONS (SEE PROGRAM OPTIONS)
      156                            *
      157                            *        4. IF SS2 IS SET AT ANY TIME BEFORE LOADING IS COMPLETE A WAIT
      158                            *           AT LOCATION (R1)+66 (HEX) WILL OCCUR UPON SUCCESSFUL LOAD
      159                            *           PROCESS BEFORE PASSING THE CONTROL TO THE PROGRAM.
      160                            *           CLEAR THE WAIT TO START THE PROGRAM.
      161                            *
      162                            *
      163                            *        CONSTRAINTS:
      164                            *        ***********    SINCE THE CORE MEMORY LOCATIONS  0  TO  319
      165                            *                  ARE SPECIAL-PUPOSE RESERVED LOCATIONS,  IF PROGRAM
      166                            *                  IS RELOCATED TO AN UPPER CORE AREA  IN ORDER TO
      167                            *                  DIAGNOSE THE FIRST  8K  OF THE MEMORY, THERE ARE
      168                            *                  CASES THAT THE ISOLATION OF THE ERRORS MAY NOT BE
      169                            *                  FEASIBLE BY THE PROGRAM.
      170                            *                  IT IS THEREFORE SUGGESTED THAT RELOCATION OF THE
      171                            *                  PROGRAM TO BE AVOIDED WHEN IT IS TO TEST THE
      172                            *                  FIRST  8K  OF THE MEMORY.   CHANGE IN THE STARTING-
      173                            *                  ADDRESSES IS RECOMMENDED FOR THIS PURPOSE.
      174                            *
      175                            *
      176                            * THE PROGRAM OPTIONS - SENSE SWITCH SETTINGS
      177                            * -------------------------------------------
      178                            *           AFTER SUCCESSFUL LOADING AND PASSING THE CONTROL TO THE
      179                            *           PROGRAM THE SENSE SWITCHES WILL HAVE THE FOLLOWING MEANINGS:
      180                            *
      181                            *
      182                            *
      183                            *  SS1   RESET:   CONTINUOUS PASS - NO LOOPS OCCUR IN THE PROGRAM
      184                            *  ---
      185                            *        SET:     IF SS1 IS SET WHEN PROGRAM IS RUNNING IN DATA-CHECK
      186                            *                  PHASE OR IN PARITY-TEST PHASE,  LOOP ON THE CURRENT
      187                            *                  TEST-PATTERN WILL BE INITIATED.
      188                            *
      189                            *                  IF HOWEVER,  SS1  IS SET WHEN PROGRAM IS OPERATING IN
      190                            *                 ADDRESSING-TEST, ADRS-LINE TOGGLE TEST, OR THE RANDOM
      191                            *                 TEST PHASE, LOOP ON THE RESPECTIVE TEST WILL OCCUR.
      192                            *
      193                            *
      194                            *  SS2   RESET:   SUPPRESSES LIST OF SUSPECTED MODULES WHEN FAILURE *A01
      195                            *  ---            IS DETECTED.                                      *A01
      196                            *                                                                   *A01
      197                            *        SET:     LIST SUSPECTED MODULES WHICH CAN BE CAUSE OF      *A01
      198                            *                 FAILURE.
      199                            *
      200                            *        NOTE:    UNLESS OTHERWISE STATED, ALL MODULE LOCATIONS     *A01
      201                            *        -----    REFER TO SUSPECTED SOURCE SIGNALS.  IN SOME CASES *A01
      202                            *                 IT WILL BE NECCESSARY TO CONSULT LOGIC EQUATIONS  *A01
      203                            *                 OR DIAGRAMS TO TRACE THE POINTS WHERE THE SUSPECT-*A01
      204                            *                 ED SIGNAL IS OPEN OR SHORTED.                     *A01
      205                            *                 (CAUTION: SEE SECTION ON BANK NO. SETTING REQ.)   *A01
      206                            *  SS2   NO ACTION ON THE PROGRAM RUN
      207                            *  ---
      208                            *
      209                            *
      210                            *  SS3   RESET:   WAIT ON ERROR
      211                            *  ---
      212                            *        SET:     CONTINUE ON ERROR
      213                            *
      214                            *
      215                            * SS 4   RESET :  PRINT MODE INITIATED.                             *A01
      216                            *                                                                   *A01
      217                            *        SET :    SUPRESS PRINT OPERATIONS.                         *A01
      218                            *
      219                            *
      220                            * CHANGE OF MEMORY TEST-LIMITS - CONSOLE INTERRUPT
      221                            * ----------------------------------------------
      222                            *           THE MEMORY TEST LIMITS CAN BE CHANGED AT ANY POINT OF THE
      223                            *           PROGRAM RUN BY PRESSING CONSOLE-INTERRUPT BUTTON.  IF THE
      224                            *           PROGRAM IS IN PRINT MODE (SS4 SET) IT WILL TYPE OUT THE
      225                            *           CURRENT TEST LIMITS AND REQUEST OPERATOR ACTION.
      226                            *
      227                            *           LOW AND HIGH LIMITS OF THE MEMORY TO BE TESTED SHOULD BE
      228                            *           INPUTED AS ADDRESSES IN THE FORM OF 5 HEXADECIMAL CHARACTERS
      229                            *
      230                            *           THE VALUES OF TEST LIMITS SHOULD BE IN 8K BOUNDARY OTHERWISE
      231                            *           PROGRAM WILL MAKE THE PROPER ADJUSTMENTS.
      232                            *           IF NO CHANGE IN ANY OF THE LIMITS IS DESIRED, SIMPLY TYPE
      233                            *           "NO" OR "OK" FOLLOWED BY NL.
      234                            *
      235                            *           AFTER ANY PCP INTERRUPT THE PROGRAM WILL RESUME FROM THE
      236                            *           STARTING POINT OF THE DATA-CHECK PHASE.
      237                            *
      238                            *
      239                            * START-RESTART PROCEDURE
      240                            * -----------------------
      241                            *           AFTER LOADING, THE PROGRAM WILL START THE EXECUTION.
      242                            *
      243                            *            TO RESTART THE PROGRAM AT ANY POINT WITHOUT RELOADING:
      244                            *                1. PLACE COMPUTE SWITCH IN IDLE POSITION
      245                            *
      246                            *                2. PRESS SYSTEM/CLEAR BUTTON
      247                            *
      248                            *                3. MOVE DIPLAY SWITCH TO UP (INSTR ADDR) POSITION
      249                            *
      250                            *                4. RETURN COMPUTE SWITCH TO RUN.
      251                            *                   THEPROGRAM SHOULD NOW RESTART.
      252                            *
      253                            *
      254                            *
      255                            * SUCCESS/FAILURE INDICATIONS:
      256                            * ----------------------------
      257                            *
      258                            * WAITS      REFER TO PROGRAM LISTING FOR THE MEANING OF SPECIFIC WAITS.
      259                            *            PROGRAM WILL CONTINUE BY CLEARING THE WAIT.
      260                            *
      261                            *
      262                            * SUCCESS INDICATION:
      263                            *
      264                            *            WHEN THE PROGRAM IS SUCCESSFUL WITH EACH PHASE OF ITS
      265                            *            TEST STRUCTURE IT WILL RECYCLE CONTINUOUSLY.    AT THE
      266                            *            END OF EACH PHASE, IF IN PRINT MODE (SS4 SET) IT WILL
      267                            *            TYPE OUT SUCCESS MESSAGE.    AT THE CONCLUSION OF EACH
      268                            *            CYCLE THE PASS-NUMBER IS ALSO TYPED OUT.
      269                            *
      270                            *
      271                            * ERROR INDICATION AND ERROR FORMAT:
      272                            * **********************************
      273                            *
      274                            *            UPON DETECTION OF AN ERROR BY THE PROGRAM, THE ALARM LIGHT
      275                            *            WILL COME ON  AND IF  SS3  IS RESET AN ERROR-WAIT WILL
      276                            *            OCCUR.   BY CLEARING THE WAIT, THE PROGRAM WILL CONTINUE
      277                            *            AND IF IN PRINT-MODE ( SS4 SET ) IT WILL TYPE OUT COMPLETE
      278                            *            ERROR INFORMATION AND MEMORY ERROR-STATUS ( MODE-0 AND
      279                            *            MODE-1 ) IN THE FOLLOWING ORDER AND ABBREVIATION:
      280                            *
      281                            *                   FLT-TYPE (FAULT TYPE)
      282                            *                   --------
      283                            *                   00000000 = NO ERROR
      284                            *                   00000001 = READ PARITY ERROR
      285                            *                   00000010 = READ LOOP CHECK PARITY ERROR
      286                            *                   00000100 = PORT SELECTION ERROR (DRIVER)
      287                            *                   00001000 = PORT SELECTION ERROR (SWITCH 1)
      288                            *                   00010000 = PORT SELECTION ERROR (SWITCH 2)
      289                            *                   00100000 = MSTAT MAGNETIC FAULT (AIR FLOW OR LOGIC
      290                            *                                                    VOLTAGE OR VC)
      291                            *
      292                            *                   LPD (LAST PARITY BIT WRITTEN)
      293                            *                   ---
      294                            *
      295                            *                   SW# (SWICH NO.)
      296                            *                   ---
      297                            *                   00 = NEITHER SWITCH SELECTED BY DRIVER
      298                            *                   01 = SWITCH 1 SELECTED BY DRIVER
      299                            *                   10 = SWITCH 2 SELECTED BY DRIVER
      300                            *                   11 = SWITCHES 1&2 SELECTED BY DRIVER
      301                            *
      302                            *                   PORT-NO.
      303                            *                   --------
      304                            *                   00000001 = PORT 1 SELECTED
      305                            *                   00000010 = PORT 2 SELECTED
      306                            *                   00000100 = PORT 3 SELECTED
      307                            *                   00001000 = PORT 4 SELECTED
      308                            *                   00010000 = PORT 5 SELECTED
      309                            *                   00100000 = PORT 6 SELECTED
      310                            *                   01000000 = PORT 7 SELECTED
      311                            *                   10000000 = PORT 8 SELECTED
      312                            *
      313                            *                   BNK# (BANK NO.)
      314                            *                   ----
      315                            *                   XXXX = BINARY VALUE OF THE BANK NO.
      316                            *                          (NOT TRUE BANK NO. IN INTERLEAVE MODE)   *A01
      317                            *
      318                            *                   K (BANK SIZE)
      319                            *                   -
      320                            *                   0 = 16K BANK
      321                            *                   1 =  8K BANK
      322                            *
      323                            *                   IL (INTERLEAVE)
      324                            *                   --
      325                            *                   00 = NO INTERLEAVE
      326                            *                   01 = 2-WAY INTERLEAVE
      327                            *                   10 = 4-WAY INTERLEAVE
      328                            *
      329                            *                   TYP (MEMORY TYPE)
      330                            *                   ---
      331                            *                    0 = PLATED-WIRE MEMORY
      332                            *                    1 = CORE MEMORY
      333                            *
      334                            *
      335                            *                   ADR (ADDRESS OF THE FAULT IN HEXADECIMAL)
      336                            *                   ---
      337                            *
      338                            *            THE PROGRAM WILL THEN BRANCH OUT TO ISOLATE THE ERROR-
      339                            *            SOURCE AND IF SUCCESSFUL WILL TYPE OUT THE SUSPECTED MODULE
      340                            *            SLOT(S) IN THE FOLLOWING FORMAT:
      341                            *
      342                            *
      343                            *                   LLC/XT   WHERE  LL = LOCATION ( SLOT # )
      344                            *                   ------           C = CHASSIE LABLE
      345                            *                                    X = ELEMENT AS INDICATED BELOW:
      346                            *
      347                            *                                         D  INDICATES  DRIVER
      348                            *                                         M  INDICATES  MEMORY (BMU)
      349                            *                                         S  INDICATES  MATRIX SWITCH
      350                            *                                    T = (IF PRESENT) INDICATES A
      351                            *                                        TERMINAL MODULE.
      352                            *
      353                            *        NOTE:  UNLESS OTHERWISE REPORTED, ALL THE MODULE LOCATIONS
      354                            *        ----   REFER TO THE SUSPECTED SOURCE SIGNALS.  IN SOME CASES
      355                            *               IT WILL THUS BE NECCESSARY TO CONSULT LOGIC EQUATIONS
      356                            *               OR DIAGRAMS TO TRACK THE POINTS WHERE THE SUSPECTED
      357                            *               SIGNAL MIGHT BE ABSENT OR SHORT CIRCUITED.
      358                            *
      359                            *                MODULE SLOT LOCATIONS OF THE  "BMU"S  ARE BASED
      360                            *                ON THE FIRST CIRCULATED VERSION OF THE MODULE SHEETS.
      361                            *
      362                                     SYSTEM   SIG7FDP
      363                                     OPEN     CAL2              INHIBIT  CAL2  INSTR.
      364                            *
      365                            *
      366   01 00025                          ORG      X'25'
            01 00025
      367   01 00025    68000450              B        LOAD:PNT
      368   01 00040                          ORG      X'40'
            01 00040
      369                            *
      370   01 00040    0F000140              XPSD,0   %INTRAP           NON-ALLOWED OPERATION TRAP
      371   01 00041    0F000140              XPSD,0   %INTRAP           UNIMPLEMENTED INSTRUCTION TRAP
      372   01 00042    0F000140              XPSD,0   %INTRAP           PUSH-DOWN STACK LIMIT TRAP
      373   01 00043    0F000140              XPSD,0   %INTRAP           FIXED-POINT ARITH. OVERFLOW TRAP
      374   01 00044    0F000140              XPSD,0   %INTRAP           FLOATING-POINT FAULT TRAP
      375   01 00045    0F000140              XPSD,0   %INTRAP           DECIMAL ARITHMETIC FAULT TRAP
      376   01 00046    0F000140              XPSD,0   %INTRAP           WATCHDOG TIMER RUNOUT TRAP
      377   01 00047    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      378   01 00048    0F00016E              XPSD,0   %PRINT            CALL 1
      379   01 00049    0F000422              XPSD,0   %RPRTMOD          CALL 2
      380   01 0004A    0F000140              XPSD,0   %INTRAP           CALL 3
      381   01 0004B    0F000140              XPSD,0   %INTRAP           CALL 4
      382   01 0004C    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      383   01 0004D    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      384   01 0004E    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      385   01 0004F    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      386   01 00050    0F000140              XPSD,0   %INTRAP           POWER ON INTERRUPT
      387   01 00051    0F000140              XPSD,0   %INTRAP           POWER OFF INTERRUPT
      388   01 00052    33000052              MTW,0    %                 COUNTER 1 COUNT PULSE INTERRUPT
      389   01 00053    33000053              MTW,0    %                 COUNTER 2 COUNT PULSE INTERRUPT
      390   01 00054    33000054              MTW,0    %                 COUNTER 3 COUNT PULSE INTERRUPT
      391   01 00055    33000055              MTW,0    %                 COUNTER 4 COUNT PULSE INTERRUPT
      392   01 00056    0F000B78              XPSD,0   %MPINTRP          MEMORY PARITY INTERUPT
      393   01 00057    0F000140              XPSD,0   %INTRAP           UASSIGNED
      394   01 00058    0F000140              XPSD,0   %INTRAP           COUNTER 1 ZERO INTERRUPT
      395   01 00059    0F000140              XPSD,0   %INTRAP           COUNTER 2 ZERO INTERRUPT
      396   01 0005A    0F000140              XPSD,0   %INTRAP           COUNTER 3 ZERO INTERRUPT
      397   01 0005B    0F000140              XPSD,0   %INTRAP           COUNTER 4 ZERO INTERRUPT
      398   01 0005C    0F00022C              XPSD,0   %IOINT            INPUT / OUTPUT INTERRUPT
      399   01 0005D    0F0001A8              XPSD,0   %CPINT            CONTROL PANEL INTERRUPT
      400   01 0005E    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      401   01 0005F    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      402                            *
      403         000000E0                    DO       224
      404   01 00060    0F000140              XPSD,0   %INTRAP
      405                                     FIN
            01 00061    0F000140
            01 00062    0F000140
            01 00063    0F000140
            01 00064    0F000140
            01 00065    0F000140
            01 00066    0F000140
            01 00067    0F000140
            01 00068    0F000140
            01 00069    0F000140
            01 0006A    0F000140
            01 0006B    0F000140
            01 0006C    0F000140
            01 0006D    0F000140
            01 0006E    0F000140
            01 0006F    0F000140
            01 00070    0F000140
            01 00071    0F000140
            01 00072    0F000140
            01 00073    0F000140
            01 00074    0F000140
            01 00075    0F000140
            01 00076    0F000140
            01 00077    0F000140
            01 00078    0F000140
            01 00079    0F000140
            01 0007A    0F000140
            01 0007B    0F000140
            01 0007C    0F000140
            01 0007D    0F000140
            01 0007E    0F000140
            01 0007F    0F000140
            01 00080    0F000140
            01 00081    0F000140
            01 00082    0F000140
            01 00083    0F000140
            01 00084    0F000140
            01 00085    0F000140
            01 00086    0F000140
            01 00087    0F000140
            01 00088    0F000140
            01 00089    0F000140
            01 0008A    0F000140
            01 0008B    0F000140
            01 0008C    0F000140
            01 0008D    0F000140
            01 0008E    0F000140
            01 0008F    0F000140
            01 00090    0F000140
            01 00091    0F000140
            01 00092    0F000140
            01 00093    0F000140
            01 00094    0F000140
            01 00095    0F000140
            01 00096    0F000140
            01 00097    0F000140
            01 00098    0F000140
            01 00099    0F000140
            01 0009A    0F000140
            01 0009B    0F000140
            01 0009C    0F000140
            01 0009D    0F000140
            01 0009E    0F000140
            01 0009F    0F000140
            01 000A0    0F000140
            01 000A1    0F000140
            01 000A2    0F000140
            01 000A3    0F000140
            01 000A4    0F000140
            01 000A5    0F000140
            01 000A6    0F000140
            01 000A7    0F000140
            01 000A8    0F000140
            01 000A9    0F000140
            01 000AA    0F000140
            01 000AB    0F000140
            01 000AC    0F000140
            01 000AD    0F000140
            01 000AE    0F000140
            01 000AF    0F000140
            01 000B0    0F000140
            01 000B1    0F000140
            01 000B2    0F000140
            01 000B3    0F000140
            01 000B4    0F000140
            01 000B5    0F000140
            01 000B6    0F000140
            01 000B7    0F000140
            01 000B8    0F000140
            01 000B9    0F000140
            01 000BA    0F000140
            01 000BB    0F000140
            01 000BC    0F000140
            01 000BD    0F000140
            01 000BE    0F000140
            01 000BF    0F000140
            01 000C0    0F000140
            01 000C1    0F000140
            01 000C2    0F000140
            01 000C3    0F000140
            01 000C4    0F000140
            01 000C5    0F000140
            01 000C6    0F000140
            01 000C7    0F000140
            01 000C8    0F000140
            01 000C9    0F000140
            01 000CA    0F000140
            01 000CB    0F000140
            01 000CC    0F000140
            01 000CD    0F000140
            01 000CE    0F000140
            01 000CF    0F000140
            01 000D0    0F000140
            01 000D1    0F000140
            01 000D2    0F000140
            01 000D3    0F000140
            01 000D4    0F000140
            01 000D5    0F000140
            01 000D6    0F000140
            01 000D7    0F000140
            01 000D8    0F000140
            01 000D9    0F000140
            01 000DA    0F000140
            01 000DB    0F000140
            01 000DC    0F000140
            01 000DD    0F000140
            01 000DE    0F000140
            01 000DF    0F000140
            01 000E0    0F000140
            01 000E1    0F000140
            01 000E2    0F000140
            01 000E3    0F000140
            01 000E4    0F000140
            01 000E5    0F000140
            01 000E6    0F000140
            01 000E7    0F000140
            01 000E8    0F000140
            01 000E9    0F000140
            01 000EA    0F000140
            01 000EB    0F000140
            01 000EC    0F000140
            01 000ED    0F000140
            01 000EE    0F000140
            01 000EF    0F000140
            01 000F0    0F000140
            01 000F1    0F000140
            01 000F2    0F000140
            01 000F3    0F000140
            01 000F4    0F000140
            01 000F5    0F000140
            01 000F6    0F000140
            01 000F7    0F000140
            01 000F8    0F000140
            01 000F9    0F000140
            01 000FA    0F000140
            01 000FB    0F000140
            01 000FC    0F000140
            01 000FD    0F000140
            01 000FE    0F000140
            01 000FF    0F000140
            01 00100    0F000140
            01 00101    0F000140
            01 00102    0F000140
            01 00103    0F000140
            01 00104    0F000140
            01 00105    0F000140
            01 00106    0F000140
            01 00107    0F000140
            01 00108    0F000140
            01 00109    0F000140
            01 0010A    0F000140
            01 0010B    0F000140
            01 0010C    0F000140
            01 0010D    0F000140
            01 0010E    0F000140
            01 0010F    0F000140
            01 00110    0F000140
            01 00111    0F000140
            01 00112    0F000140
            01 00113    0F000140
            01 00114    0F000140
            01 00115    0F000140
            01 00116    0F000140
            01 00117    0F000140
            01 00118    0F000140
            01 00119    0F000140
            01 0011A    0F000140
            01 0011B    0F000140
            01 0011C    0F000140
            01 0011D    0F000140
            01 0011E    0F000140
            01 0011F    0F000140
            01 00120    0F000140
            01 00121    0F000140
            01 00122    0F000140
            01 00123    0F000140
            01 00124    0F000140
            01 00125    0F000140
            01 00126    0F000140
            01 00127    0F000140
            01 00128    0F000140
            01 00129    0F000140
            01 0012A    0F000140
            01 0012B    0F000140
            01 0012C    0F000140
            01 0012D    0F000140
            01 0012E    0F000140
            01 0012F    0F000140
            01 00130    0F000140
            01 00131    0F000140
            01 00132    0F000140
            01 00133    0F000140
            01 00134    0F000140
            01 00135    0F000140
            01 00136    0F000140
            01 00137    0F000140
            01 00138    0F000140
            01 00139    0F000140
            01 0013A    0F000140
            01 0013B    0F000140
            01 0013C    0F000140
            01 0013D    0F000140
            01 0013E    0F000140
            01 0013F    0F000140
      406                            *
      407                            *
      408         00000000           READKSR  CNAME
      409                                     PROC
      410                                     LI,9     -1                SET FLAG TO READ KSR
      411                                     STW,9    RWFLAG
      412                                     GEN,8,4,3,17,8,7,17 34,9,0,AF(2),04,0,AF(1)
      413                                     PEND
      414                            *
      415                            *
      416         00000000           PRINT    CNAME
      417                                     PROC
      418                                     LI,9     0
      419                                     STW,9    RWFLAG            RESET FLAG TO PRINT
      420                                     GEN,8,4,3,17,8,7,17 34,9,0,AF(2),04,0,AF(1)
      421                                     PEND
      422                            *
      423                            *
      424                            *
      425                            *
      426         00000004           CAL2     COM,1,7,4,3,17 AFA(1),5,0,AF(2),AF(1)
      427                            *
      428   01 00140                 ORIGIN   ORG      X'140'
            01 00140
      429                            *
      430                                     BOUND    8
      431   01 00140    00000000 A   %INTRAP  DATA     0,0
            01 00141    00000000 A
      432   01 00142    00000144              DATA     %+2
      433   01 00143    00000000 A            DATA     0
      434   01 00144    33000168              MTW,0    MCALFLG           MEM CALC
      435   01 00145    68300147              BCR,3    %+2               NO
      436   01 00146    6800016A              B        MCALRET           YES
      437   01 00147    330004D8              MTW,0    LASFLG            LAS INSTR TRAP ?
      438   01 00148    6830014E              BCR,3    TRPLMS
      439   01 00149    22900000 A            PRINT    LASTRAP,LASLMS
            01 0014A    359001A4
            01 0014B    22900F7F N
                        04000F7E
      440   01 0014D    68000154              B        EXCTRP
      441   01 0014E    330004D9     TRPLMS   MTW,0    LMSFLG            LMS TEST TRAP
      442   01 0014F    68300154              BCR,3    EXCTRP            NO
      443   01 00150    22900000 A            PRINT    LMSTRAP,LMSTRAPE  YES
            01 00151    359001A4
            01 00152    22900F7D N
                        04000F7C
      444   01 00154    32800140     EXCTRP   LW,8     %INTRAP
      445   01 00155    4B8011A0              AND,8    =X'1FFFF'         ORIGIN OF TRAP
      446   01 00156    35F00169              STW,15   TEMINT15
      447   01 00157    6AF00320              BAL,15   EBCDIC            CONVERT
      448   01 00158    32F00169              LW,15    TEMINT15
      449   01 00159    4B8011A1              AND,8    =X'40404000'      **
      450   01 0015A    15800F88              STD,8    TRAPORG
      451   01 0015B    22900000 A            PRINT    LASLMS,LASTRAPE
            01 0015C    359001A4
            01 0015D    22900F8C N
                        04000F7F
      452   01 0015F    33000B91              MTW,0    SPFLG             ADRS-TOGGLE FLG SET
      453   01 00160    68300164              BCR,3    LAMSWAIT          N/
      454   01 00161    33100B91              MTW,1    SPFLG             RESETFLG
      455   01 00162    E800000F A            B        *15               RETURN
      456                                     BOUND    8
      457   01 00164    2E000000 A   LAMSWAIT WAIT                       UNWANTED TRAP OR INTRPT OCCURED
      458                            *
      459                            * CLEAR WAIT TO RESTART THE PROGRAM
      460                            *
      461   01 00165    0E300166     TRAPRET  LPSD,3   %+1               CLEAR ACTIVE LEVEL
      462   01 00166    00000466              DATA     START             RESTART THE PROGRAM
      463   01 00167    00000000 A            DATA     0
      464                            *
      465   01 00168    00000000 A   MCALFLG  DATA     0
      466   01 00169    00000000 A   TEMINT15 DATA     0
      467                            *
      468   01 0016A    33100140     MCALRET  MTW,1    %INTRAP
      469   01 0016B    33100168              MTW,1    MCALFLG           RESET FLAG
      470   01 0016C    0E300140              LPSD,3   %INTRAP           RETURN
      471                            *
      472                                     BOUND    8
      473   01 0016E    00000000 A   %PRINT   DATA     0,0
            01 0016F    00000000 A
      474   01 00170    00000172              DATA     %+2
      475   01 00171    00000000 A            DATA     0
      476   01 00172    330001A4              MTW,0    RWFLAG
      477   01 00173    69300176              BCS,3    %+3
      478   01 00174    6C000010 A            RD,0     X'10'             READ SENSE SWITCHES
      479   01 00175    69100197              BCS,1    EXIT:IO           RETURN IF SS 4 IS SET           *A01
      480   01 00176    1580019E              STD,8    R8R9              SAVE R8 AND R9
      481   01 00177    2281FFFF A            LI,8     X'1FFFF'          IA MASK
      482   01 00178    CB80016E              AND,8    *%PRINT           FETCH CALLING PARAMETER (IA)
      483   01 00179    38900008 A            SW,9     8                 FORM WORD COUNT
      484   01 0017A    25900002 A            SLS,9    2                 FORM BYTE COUNT
      485   01 0017B    49800004 A            OR,8     4
      486   01 0017C    25800002 A            SLS,8    2                 FORM BYTE ADDR
      487   01 0017D    330001A4              MTW,0    RWFLAG            FLAG RESET TO PRINT
      488   01 0017E    68300181              BCR,3    %+3               YES
      489   01 0017F    498001A0              OR,8     ORDER             NO, THEN SET ORDER TO READ KSR
      490   01 00180    68000182              B        %+2
      491   01 00181    498001A5              OR,8     ORDERW            SET ORDER BITS
      492   01 00182    3580019C              STW,8    COMMAND           FIRST WORD OF I/O CDW
      493   01 00183    499001A1              OR,9     IO:FLAGS          SET I/O FLAGS
      494   01 00184    3590019D              STW,9    COMMAND+1         SECOND WORD OF I/O CDW
      495   01 00185    2200019C              LI,0     WA(COMMAND)       FETCH COMMAND ADDR
      496   01 00186    2500007F A            SLS,0    -1                FORM ABSOLUTE CDW ADDR.
      497   01 00187    330001A4              MTW,0    RWFLAG            RW FLAG SET
      498   01 00188    6830018A              BCR,3    %+2
      499   01 00189    68000191              B        KSRTST            THEN USE KSR
      500   01 0018A    328001A3              LW,8     LP                GET I/O ADDR FOR LINE PRINTER
      501   01 0018B    CD000008 A   LPTST    TIO,0    *8                LP ON LINE ?
      502   01 0018C    69C00191              BCS,12   KSRTST
      503   01 0018D    68600194             BCR,6     STRTIO
      504   01 0018E    6800018F              B        %+1
      505                            *
      506                            * IF LOOP FOR L.P. TO BE DESIRED, ENTER  "B %-3" IN THIS LOC.
      507                            *
      508                            *
      509   01 0018F    22800020 A            LI,8     32                                                *A01
      510   01 00190    6D801200 A            WD,8     X'1200'           ARM & ENABLE I/O INTRPT         *A01
      511   01 00191    328001A2     KSRTST   LW,8     KSR               GET I/O ADDR FOR KSR
      512   01 00192    CD000008 A            TIO,0    *8                KSR READY
      513   01 00193    69C00192              BCS,12   %-1               NO, LOOP
      514   01 00194    CC000008 A   STRTIO   SIO,0    *8                START THE DEVICE
      515   01 00195    CD000008 A            TIO,0    *8                YES
      516   01 00196    69C00195              BCS,12   %-1               WAIT UNTILL INPUT IS FINISHED
      517   01 00197    3310016E     EXIT:IO  MTW,1    %PRINT            ADVANCE RETURN ADDR
      518   01 00198    22800020 A            LI,8     32                                                *A01
      519   01 00199    6D801100 A            WD,8     X'1100'           DISARM & DISABLE I/O INTRPT     *A01
      520   01 0019A    1280019E              LD,8     R8R9              RESTORE R8 AND R9
      521   01 0019B    0E30016E              LPSD,3   %PRINT            RETURN TO CALLER ROUTINE
      522                                     BOUND    8
      523   01 0019C    00000000 A   COMMAND  DATA     0,0
            01 0019D    00000000 A
      524   01 0019E    00000000 A   R8R9     DATA     0,0
            01 0019F    00000000 A
      525   01 001A0    86000000 A   ORDER    DATA     X'86000000'       ORDER TO READ
      526   01 001A1    0C000000 A   IO:FLAGS DATA     X'0C000000'
      527   01 001A2    00000001 A   KSR      DATA     1
      528   01 001A3    00000002 A   LP       DATA     2
      529   01 001A4    00000000 A   RWFLAG   DATA     0
      530   01 001A5    05000000 A   ORDERW   DATA     X'05000000'       ORDER TO WRITE
      531   01 001A6    00000000 A   HIFLG    DATA     0
      532   01 001A7    00000000 A   TEMPLOW  DATA     0
      533                            *
      534                            * CONTROL PANEL INTRUPT PROCESSING ROUTINE.
      535                            *
      536                                     BOUND    8
      537   01 001A8    00000000 A   %CPINT   DATA     0,0
            01 001A9    00000000 A
      538   01 001AA    000001AC              DATA     %+2
      539   01 001AB    00000000 A            DATA     0
      540   01 001AC    22900000 A            PRINT    MSG4,MSG4END
            01 001AD    359001A4
            01 001AE    22900EB3 N
                        04000EA9
      541   01 001B0    32800001 A            LW,8     1
      542   01 001B1    6AF00320              BAL,15   EBCDIC            CONVERT TEST LOW LIMIT TO PRINT
      543   01 001B2    4B800269              AND,8    404040FF
      544   01 001B3    15800E96              STD,8    TESTLOW
      545   01 001B4    32800002 A            LW,8     2
      546   01 001B5    6AF00320              BAL,15   EBCDIC            CONVERT TEST HI TO PRINT
      547   01 001B6    4B800269              AND,8    404040FF
      548   01 001B7    15800E9E              STD,8    TESTHI
      549   01 001B8    22900000 A            PRINT    MSG2A,MSG2END     PRINT TEST LOW AND HI LIMITS
            01 001B9    359001A4
            01 001BA    22900EA0 N
                        04000E92
      550   01 001BC    22900000 A            PRINT    MSG5,MSG5END      PRINT DO YOU WANT CHANGES
            01 001BD    359001A4
            01 001BE    22900EC0 N
                        04000EB3
      551   01 001C0                 KSREAD   RES      0
      552   01 001C0    229FFFFF A            READKSR  BUF,BUF+1         READ KSR
            01 001C1    359001A4
            01 001C2    2290118D N
                        0400118C
      553   01 001C4    7280118C              LB,8     BUF               GET FIRST BYTE INPUTED
      554   01 001C5    218000E8 A            CI,8     X'E8'
      555   01 001C6    683001D4              BCR,3    LIMCHNG
      556   01 001C7    218000D5 A            CI,8     X'D5'
      557   01 001C8    68300212              BCR,3    CPRET
      558   01 001C9    22900000 A            PRINT    SYNERR,SYNEREND   PRINT SYNTAX ERROR
            01 001CA    359001A4
            01 001CB    22900EC6 N
                        04000EC0
      559   01 001CD    680001C0              B        KSREAD            TRY AGAIN
      560   01 001CE                 TYPERR   RES      0
      561   01 001CE    22900000 A            PRINT    SYNERR,SYNEREND   LIMIT SYN ERR REPORT
            01 001CF    359001A4
            01 001D0    22900EC6 N
                        04000EC0
      562   01 001D2    330001A6              MTW,0    HIFLG
      563   01 001D3    693001EA              BCS,3    LOLIMOK
      564   01 001D4                 LIMCHNG  RES      0
      565   01 001D4    22900000 A            PRINT    MSG6,MSG6END      PRINT LOW LIM REQST
            01 001D5    359001A4
            01 001D6    22900ECA N
                        04000EC6
      566   01 001D8    229FFFFF A            READKSR  BUF,BUF+3         READ KSR
            01 001D9    359001A4
            01 001DA    2290118F N
                        0400118C
      567   01 001DC    7280118C              LB,8     BUF
      568   01 001DD    218000D5 A            CI,8     X'D5'
      569   01 001DE    683001EA              BCR,3    LOLIMOK
      570   01 001DF    5280118C              LH,8     BUF
      571   01 001E0    4B8011A2              AND,8    =X'FFFF'
      572   01 001E1    2180D6D2 A            CI,8     X'D6D2'
      573   01 001E2    683001EA              BCR,3    LOLIMOK
      574                            *
      575                            *
      576   01 001E3    1280118C              LD,8     BUF               GET DW READ
      577   01 001E4    25800168 A            SLD,8    -24
      578   01 001E5    498011A3              OR,8     =X'F0F0F000'      TRANSLATE
      579   01 001E6    6AF00307              BAL,15   HEX               CONVERT
      580   01 001E7    4B8011A4              AND,8    =X'1E000'
      581   01 001E8    32100008 A            LW,1     8                 STORE IN R1
      582   01 001E9    351001A7              STW,1    TEMPLOW
      583   01 001EA                 LOLIMOK  RES      0
      584   01 001EA    22900000 A            PRINT    MSG7,MSG7END      PRINT HI LIM REQST
            01 001EB    359001A4
            01 001EC    22900ECE N
                        04000ECA
      585   01 001EE    229FFFFF A            READKSR  BUF,BUF+3         READ KSR
            01 001EF    359001A4
            01 001F0    2290118F N
                        0400118C
      586   01 001F2    7280118C              LB,8     BUF
      587   01 001F3    218000D5 A            CI,8     X'D5'             N
      588   01 001F4    683001FF              BCR,3    HILIMOK
      589   01 001F5    5280118C              LH,8     BUF
      590   01 001F6    4B8011A2              AND,8    =X'FFFF'
      591   01 001F7    2180D6D2 A            CI,8     X'D6D2'
      592   01 001F8    683001FF              BCR,3    HILIMOK
      593   01 001F9    1280118C              LD,8     BUF               GET DW READ
      594   01 001FA    25800168 A            SLD,8    -24
      595   01 001FB    498011A3              OR,8     =X'F0F0F000'      TRANSLATE
      596   01 001FC    6AF00307              BAL,15   HEX               CONVERT TO HEX
      597   01 001FD    32200008 A            LW,2     8                 STORE IN R2
      598   01 001FE    492011A5              OR,2     =X'1FFF'          SET 8K BITS
      599   01 001FF    32800001 A   HILIMOK  LW,8     1
      600   01 00200    22EFFFFF A            LI,14    -1
      601   01 00201    35E001A6              STW,14   HIFLG             SET FLAG
      602   01 00202    6AF00320              BAL,15   EBCDIC            COVERT TESTLOW
      603   01 00203    331001A6              MTW,1    HIFLG             RESET FLG
      604   01 00204    4B800269              AND,8    404040FF          SET HIGH  BITS TO BLANKS
      605   01 00205    15800E96              STD,8    TESTLOW           STORE IT
      606   01 00206    32800002 A            LW,8     2
      607   01 00207    6AF00320              BAL,15   EBCDIC            CONERT TESTHI TO EBCDIC
      608   01 00208    4B800269              AND,8    404040FF          BLANK HIGHER BITS
      609   01 00209    15800E9E              STD,8    TESTHI            STORE
      610   01 0020A    31200001 A            CW,2     1                 IS TESTHI < TESTLOW
      611   01 0020B    69100216              BCS,1    SMALHI            YES
      612   01 0020C    22900000 A            PRINT    MSG2,MSG2END      PRINT ACCEPTED LIMITS
            01 0020D    359001A4
            01 0020E    22900EA0 N
                        04000E8F
      613   01 00210    312004DD              CW,2     MEMRYSIZ          R2 >  MEMORY SIZE
      614   01 00211    6920021B              BCS,2    NONEXIST          YES
      615   01 00212    0E300214     CPRET    LPSD,3   CPINTFIN          NO, CLEAR ACTIVE INTRPT
      616                            *
      617                                     BOUND    8
      618   01 00214    00000579     CPINTFIN DATA     ALLSET            RETURN
      619   01 00215    00000000 A            DATA     0
      620                            *
      621   01 00216                 SMALHI   RES      0
      622   01 00216    22900000 A            PRINT    MSG3,MSG3END
            01 00217    359001A4
            01 00218    22900EA9 N
                        04000EA0
      623                            *
      624   01 0021A    680001CE              B        TYPERR            REQUEST INPUT AGAIN
      625   01 0021B                 NONEXIST RES      0
      626   01 0021B    22900000 A            PRINT    MSG55,MSG55END    PRINT MSG
            01 0021C    359001A4
            01 0021D    2290116D N
                        04001150
      627   01 0021F    229FFFFF A            READKSR  BUF,BUF+1
            01 00220    359001A4
            01 00221    2290118D N
                        0400118C
      628   01 00223    5280118C              LH,8     BUF
      629   01 00224    4B8011A2              AND,8    =X'FFFF'
      630   01 00225    2180C7D6 A            CI,8     X'C7D6'           GO
      631   01 00226    68300212              BCR,3    CPRET             RETURN
      632   01 00227    680001EA              B        LOLIMOK
      633                            *
      634   01 00228    33F0026F     INTRLVE  MTW,-1   INTRLFLG          SET INTERLEAVE FLAG
      635   01 00229    2E000000 A            WAIT                       WAIT FOR OPERATOR ACTION
      636   01 0022A    68000212              B        CPRET
      637                                     BOUND    8
      638   01 0022C    00000000 A   %IOINT   DATA     0,0
            01 0022D    00000000 A
      639   01 0022E    00000230              DATA     %+2
      640   01 0022F    00000000 A            DATA     0
      641   01 00230    CF000008 A            HIO,0    *8                                                *A01
      642                            *
      643   01 00231    0E300232     IORET    LPSD,3   %+1               CLEAR ACTIVE INTRRUPT LEVEL
      644   01 00232    00000197              DATA     EXIT:IO                                           *A01
      645                            *
      646   01 00233    00000000 A            DATA     0
      647   01 00234    4040F8D2 A   SIZTAB   DATA     X'4040F8D2'
      648   01 00235    40F1F6D2 A            DATA     X'40F1F6D2'
      649   01 00236    40F2F4D2 A            DATA     X'40F2F4D2'
      650   01 00237    40F3F2D2 A            DATA     X'40F3F2D2'
      651   01 00238    40F4F0D2 A            DATA     X'40F4F0D2'
      652   01 00239    40F4F8D2 A            DATA     X'40F4F8D2'
      653   01 0023A    40F5F6D2 A            DATA     X'40F5F6D2'
      654   01 0023B    40F6F4D2 A            DATA     X'40F6F4D2'
      655   01 0023C    40F7F2D2 A            DATA     X'40F7F2D2'
      656   01 0023D    40F8F0D2 A            DATA     X'40F8F0D2'
      657   01 0023E    40F8F8D2 A            DATA     X'40F8F8D2'
      658   01 0023F    40F9F6D2 A            DATA     X'40F9F6D2'
      659   01 00240    F1F0F4D2 A            DATA     X'F1F0F4D2'
      660   01 00241    F1F1F2D2 A            DATA     X'F1F1F2D2'
      661   01 00242    F1F2F0D2 A            DATA     X'F1F2F0D2'
      662   01 00243    F1F2F8D2 A            DATA     X'F1F2F8D2'
      663                            *
      664                            *
      665                            *
      666   01 00244    404040F0 A   3BF0     DATA     X'404040F0'
      667   01 00245    40404040 A   BLANKS   DATA     X'40404040'
      668   01 00246    00000060 A   H60      DATA     X'60'
      669   01 00247    40404015 A   BLKS:NL  DATA     X'40404015'
      670   01 00248                 END:CALC RES      0
      671                            *
      672   01 00248    FFFFFFFF A   PATTERN  DATA     X'FFFFFFFF'
      673   01 00249    00000000 A            DATA     X'00000000'
      674   01 0024A    FFFF0000 A   FS0S     DATA     X'FFFF0000'
      675   01 0024B    FF000000 A   FF0S     DATA     X'FF000000'
      676   01 0024C    00FF0000 A            DATA     X'00FF0000'
      677   01 0024D    0000FF00 A            DATA     X'0000FF00'
      678   01 0024E    000000FF A            DATA     X'000000FF'
      679   01 0024F    F0000000 A            DATA     X'F0000000'
      680   01 00250    0F000000 A            DATA     X'0F000000'
      681   01 00251    00F00000 A            DATA     X'00F00000'
      682   01 00252    000F0000 A            DATA     X'000F0000'
      683   01 00253    0000F000 A            DATA     X'0000F000'
      684   01 00254    00000F00 A            DATA     X'00000F00'
      685   01 00255    000000F0 A            DATA     X'000000F0'
      686   01 00256    0000000F A            DATA     X'0000000F'
      687   01 00257    AAAAAAAA A            DATA     X'AAAAAAAA'
      688   01 00258    CCCCCCCC A            DATA     X'CCCCCCCC'
      689   01 00259    DDDDDDDD A            DATA     X'DDDDDDDD'
      690   01 0025A    01234567 A            DATA     X'01234567'
      691   01 0025B    89ABCDEF A            DATA     X'89ABCDEF'
      692   01 0025C                 PATEND   RES      0
      693   01 0025C    00000647     TESTS    DATA     TEST0
      694   01 0025D    00000698              DATA     TEST1
      695   01 0025E    00000715              DATA     TEST2
      696   01 0025F    00000738              DATA     TEST3
      697   01 00260    000007AA              DATA     TEST4
      698   01 00261    00000839              DATA     TEST5
      699   01 00262    000008C1              DATA     TEST6
      700   01 00263    0000092B              DATA     TEST7
      701   01 00264    0000099F              DATA     TEST8
      702   01 00265    000009F0              DATA     TEST9
      703   01 00266    00000A39              DATA     TEST10
      704   01 00267                 LASTEST  RES      0
      705   01 00267    0001F000 A   H1F000   DATA     X'1F000'
      706   01 00268    00000FFF A   HFFF     DATA     X'FFF'
      707   01 00269    404040FF A   404040FF DATA     X'404040FF'
      708   01 0026A    00001FFF A   H1FFF    DATA     X'1FFF'
      709   01 0026B    00002000 A   8K       DATA     X'2000'
      710   01 0026C    0000007C A   H7C      DATA     X'7C'
      711   01 0026D    00000003 A   H3       DATA     X'3'
      712   01 0026E    00000000 A   DATAFLG  DATA     0
      713   01 0026F    00000000 A   INTRLFLG DATA     0
      714   01 00270    00000000 A   PARTYFLG DATA     0
      715   01 00271    00000000 A   IXFLG    DATA     0
      716                            *
      717                            * STATUS FORMAT AND IFORMATION ROUTINE
      718                            *
      719   01 00272    00000272     TSTLOCP  DATA     %                                                 *A01
      720   01 00273    000004DA              DATA     TESTLOC
      721                            *
      722                            *
      723   01 00274    022000F0 A   STATUS   LCI      15
      724   01 00275    2B0002F0              STM,0    STEMPLOC
      725   01 00276    33000271              MTW,0    IXFLG
      726   01 00277    6830027B              BCR,3    NOIX
      727   01 00278    02200080 A            LCI      8
      728   01 00279    AD920272              LMS,9    *TSTLOCP,1
      729   01 0027A    6800027D              B        SGO
      730   01 0027B    02200080 A   NOIX     LCI      8
      731   01 0027C    2D9A0000 A            LMS,9    0,5               R9 = MEMORY STATUS
      732   01 0027D    2580010E A   SGO      SLD,8    14                MOVE FAULT TYPE BITS INTO R8
      733   01 0027E    4B8011A6              AND,8    =X'FF'            MASK OUT REST OF R8
      734   01 0027F    358002EE              STW,8    FTYPE             SAVE BITS
      735   01 00280    22100000 A            LI,1     0                 BYTE POINTER TO MEMORY LOC
      736   01 00281    351002AB              STW,1    SFLG              SET UP FLAG FOR RE-ENTRY
      737   01 00282    75800007 A   PORTBITS STB,8    7
      738   01 00283    224FFFF8 A            LI,4     -8                BIT COUNTER
      739   01 00284    22600000 A   NEXTBIT  LI,6     0
      740   01 00285    25600101 A            SLD,6    1                 GET THIS BIT
      741   01 00286    206000F0 A            AI,6     X'F0'             ADD F0 TO CONVERT TO EBCDIC
      742   01 00287    75620F55              STB,6    STSFORM,1         STORE BYTE IN MEMORY
      743   01 00288    65100289              BIR,1    %+1               INCREMENT REG1
      744   01 00289    65400284              BIR,4    NEXTBIT
      745   01 0028A    330002AB              MTW,0    SFLG
      746   01 0028B    6830028D              BCR,3    %+2               TEST FLAG
      747   01 0028C    680002AC              B        PORTCALC          BRANCH DURING SECOND EXECUTION
      748   01 0028D    22800000 A            LI,8     0
      749   01 0028E    25800101 A            SLD,8    1                 GET'LAST PARITY WRITTEN'BIT
      750   01 0028F    358002FF              STW,8    LASTP             NOTE
      751   01 00290    208000F0 A            AI,8     X'F0'             CONVERT TO EBCDIC
      752   01 00291    498011A1              OR,8     =X'40404000'      INCLUDE BLANKS IN FORMAT
      753   01 00292    35800F57              STW,8    STSFORM+2
      754   01 00293    20100004 A            AI,1     4                 STEP UP BYTE POINTER BY 4
      755   01 00294    22800000 A            LI,8     0
      756   01 00295    25800102 A            SLD,8    2                 GET SW#
      757   01 00296    35800300              STW,8    SW#
      758   01 00297    22700000 A            LI,7     0
      759   01 00298    75800007 A            STB,8    7                 SET UP FOR CONVERSION
      760   01 00299    25700006 A            SLS,7    6
      761   01 0029A    22600000 A            LI,6     0
      762   01 0029B    25600101 A            SLD,6    1
      763   01 0029C    206000F0 A            AI,6     X'F0'             CONVERT TO EBCDIC
      764   01 0029D    25600007 A            SLS,6    7                 SHIFT TO MAKE ROOM FOR SECOND BYTE
      765   01 0029E    25600101 A            SLD,6    1                 SHIFT IN BIT2 OF SW#
      766   01 0029F    206000F0 A            AI,6     X'F0'             CONVERT THIS TO EBCDIC
      767   01 002A0    496011A7              OR,6     =X'40400000'      ADD 2 BLANKS TO LEFT
      768   01 002A1    35600F58              STW,6    STSFORM+3         STORE BYTE IN MEMORY
      769   01 002A2    20100004 A            AI,1     4                 ADVANCE BYTE POINTER
      770   01 002A3    326011A8              LW,6     =X'40404040'      INTRODUCE 4 BLANKS
      771   01 002A4    35600F59              STW,6    STSFORM+4         STORE IN MEMORY
      772   01 002A5    20100004 A            AI,1     4                 MOVE BYTE POINTER
      773   01 002A6    22800000 A            LI,8     0
      774   01 002A7    25800108 A            SLD,8    8                 SHIFT PORT # INTO R8
      775   01 002A8    35800303              STW,8    PORT#             SAVE BITS
      776   01 002A9    331002AB              MTW,1    SFLG              SETUP FLAG TO ENTER FLTTYP ROUTINE
      777   01 002AA    68000282              B        PORTBITS          BRANCH TO FLTTYP ROUTINE
      778   01 002AB    00000000 A   SFLG     DATA     0
      779   01 002AC    22800000 A   PORTCALC LI,8     0
      780   01 002AD    25800104 A            SLD,8    4                 MOVE BANK # BITS TO R8
      781   01 002AE    35800301              STW,8    BANK#             SAVE BITS
      782   01 002AF    326011A8              LW,6     =X'40404040'      INTRODUCE 4 BLANKS
      783   01 002B0    35600F5C              STW,6    STSFORM+7         STORE BYTE IN MEMORY
      784   01 002B1    20100004 A            AI,1     4                 MOVE BYTE POINTER
      785   01 002B2    75800007 A            STB,8    7                 SETUP FOR CONVERSION
      786   01 002B3    25700004 A            SLS,7    4
      787   01 002B4    224FFFFC A            LI,4     -4                BIT COUNTER
      788   01 002B5    22600000 A   BITNXT   LI,6     0
      789   01 002B6    25600101 A            SLD,6    1                 GET BIT
      790   01 002B7    206000F0 A            AI,6     X'F0'             CONVERT TO EBCDIC
      791   01 002B8    75620F55              STB,6    STSFORM,1         STORE BYTE IN MEMORY
      792   01 002B9    651002BA              BIR,1    %+1               INCREMENT BYTE POINTER LOCATION
      793   01 002BA    654002B5              BIR,4    BITNXT            REPEAT FOR SUCCESSIVE BITS
      794   01 002BB    22800000 A            LI,8     0
      795   01 002BC    25800101 A            SLD,8    1                 SHIFT BANK SIZE BIT INTO R8
      796   01 002BD    35800304              STW,8    BKSIZE            SAVE THIS BIT IN MEMORY
      797   01 002BE    208000F0 A            AI,8     X'F0'             CONVERT TO EBCDIC
      798   01 002BF    498011A1              OR,8     =X'40404000'      INTRODUCE 3 PRECEDING BLANKS
      799   01 002C0    35800F5E              STW,8    STSFORM+9         STORE IN MEMORY
      800   01 002C1    20100004 A            AI,1     4                 MOVE BYTE POINTER
      801   01 002C2    22800000 A            LI,8     0
      802   01 002C3    25800102 A            SLD,8    2                 MOVE INTERLEAVE BITS INTO R8
      803   01 002C4    35800302              STW,8    INTRL#            SAVE IN MEMORY
      804   01 002C5    22700000 A            LI,7     0
      805   01 002C6    75800007 A            STB,8    7                 STORE BITS IN R7
      806   01 002C7    25700006 A            SLS,7    6
      807   01 002C8    22600000 A            LI,6     0
      808   01 002C9    25600101 A            SLD,6    1                 GET FIRST BIT INTO R6
      809   01 002CA    206000F0 A            AI,6     X'F0'             CONVERT TO EBCDIC
      810   01 002CB    25600007 A            SLS,6    7                 SHIFT TO REPEAT ON SECOND BIT
      811   01 002CC    25600101 A            SLD,6    1                 GET SECOND BIT INTO POSITION
      812   01 002CD    206000F0 A            AI,6     X'F0'             CONVERT TO EBCDIC
      813   01 002CE    496011A7              OR,6     =X'40400000'      INTRODUCE 2 LEADING BLANKS
      814   01 002CF    35600F5F              STW,6    STSFORM+10        STORE IN MEMORY
      815   01 002D0    022000A0 A            LCI      X'A'
      816   01 002D1    2D0A0000 A            LMS,0    0,5               SET HOF
      817   01 002D2    02200090 A            LCI      9
      818   01 002D3    2D9A0000 A            LMS,9    0,5               READ STATUS MODE 1
      819   01 002D4    22800000 A            LI,8     0
      820   01 002D5    2580010F A            SLD,8    15                GET MEMTYPE
      821   01 002D6    4B8011A9              AND,8    =1
      822   01 002D7    35800305              STW,8    MEMTYPE           SAVE
      823   01 002D8    208000F0 A            AI,8     X'F0'             FORM EBCDIC
      824   01 002D9    498011A1              OR,8     =X'40404000'      ADD BLANKS TO LEFT BITS
      825   01 002DA    35800F60              STW,8    STSFORM+11
      826   01 002DB    32800245              LW,8     BLANKS
      827   01 002DC    35800F61              STW,8    STSFORM+12
      828   01 002DD    22800000 A            LI,8     0
      829   01 002DE    25800111 A            SLD,8    17                GET ADR BITS
      830   01 002DF    35800306              STW,8    ADR
      831   01 002E0    35F0035B              STW,15   TEMPRF
      832   01 002E1    6AF00320              BAL,15   EBCDIC            CONVERT
      833   01 002E2    32F0035B              LW,15    TEMPRF
      834   01 002E3    4B8011A6              AND,8    =X'FF'
      835   01 002E4    498011A1              OR,8     =X'40404000'
      836   01 002E5    35800F62              STW,8    STSFORM+13
      837   01 002E6    35900F63              STW,9    STSFORM+14
      838   01 002E7    328011AA              LW,8     =X'40401515'
      839   01 002E8    35800F64              STW,8    STSFORM+15
      840   01 002E9    022000B0 A            LCI      X'B'
      841   01 002EA    2D0A0000 A            LMS,0    0,5               RESET HOF
      842   01 002EB    022000F0 A            LCI      15
      843   01 002EC    2A0002F0              LM,0     STEMPLOC
      844   01 002ED    E800000F A            B        *15
      845                            *
      846                            *
      847   01 002EE    00000000 A   FTYPE    DATA     0                 RESERVE  MEMORY LOCATIONS.
      848                                   BOUND      8
      849   01 002F0                 STEMPLOC RES      15
      850                            *
      851   01 002FF    00000000 A   LASTP    DATA     0
      852   01 00300    00000000 A   SW#      DATA     0
      853   01 00301    00000000 A   BANK#    DATA     0
      854   01 00302    00000000 A   INTRL#   DATA     0
      855   01 00303    00000000 A   PORT#    DATA     0
      856   01 00304    00000000 A   BKSIZE   DATA     0
      857   01 00305    00000000 A   MEMTYPE  DATA     0
      858   01 00306    00000000 A   ADR      DATA     0
      859                            *
      860                            * SUBROUTINE TO CONVERT A DOUBLE WORD IN EBCDIC FORM TO HEX FORM
      861                            * ENTRY:  EBCDIC DW = R8,R9
      862                            * EXIT:   HEX WORD = R8
      863                            *
      864   01 00307    022000F0 A   HEX      LCI      15
      865   01 00308    2B00034C              STM,0    TEMPR0            SAVE ALL REGISTERS
      866   01 00309    227FFFF8 A            LI,7     -8
      867   01 0030A    25800378 A   LOOPHEX  SCD,8    -8
      868   01 0030B    72A00008 A            LB,10    8                 SET UP BYTE FOR CONVERSION TO HEX
      869   01 0030C    222000F0 A            LI,2     X'F0'
      870   01 0030D    223000F9 A            LI,3     X'F9'
      871   01 0030E    3920000A A            CLR,2    10
      872   01 0030F    68600311              BCR,6    %+2
      873   01 00310    68000315              B        RECHECK
      874   01 00311    4BA00A16              AND,10   HF
      875   01 00312    25A0017C A   MOVEHEX  SLD,10   -4
      876   01 00313    6570030A              BIR,7    LOOPHEX
      877   01 00314    6800031C              B        EXITHEX
      878   01 00315    222000C1 A   RECHECK  LI,2     X'C1'
      879   01 00316    223000C6 A            LI,3     X'C6'
      880   01 00317    3920000A A            CLR,2    10
      881   01 00318    6860031A              BCR,6    %+2
      882   01 00319    680001CE              B        TYPERR            BRANCH TO ERROR PRINTOUT ROUTINE
      883   01 0031A    38A011AB              SW,10    =X'B7'            CONVERT EBCDIC TO HEX
      884   01 0031B    68000312              B        MOVEHEX
      885   01 0031C    35B00354     EXITHEX  STW,11   TEMPR8
      886   01 0031D    022000F0 A            LCI      15
      887   01 0031E    2A00034C              LM,0     TEMPR0
      888   01 0031F    E800000F A            B        *15
      889                            *
      890                            * SUBROUTINE TO CONVERT A WORD INTO EBCDIC
      891                            * ENTRY:      R8 = THE WORD
      892                            * EXIT        R8 + R9 = EBCDIC FORM
      893                            *
      894   01 00320    022000F0 A   EBCDIC   LCI      15
      895   01 00321    2B000336              STM,0    EBTEMPS
      896   01 00322    225FFFF8 A            LI,5     -8                CHARC CNT
      897   01 00323    22100003 A            LI,1     3
      898   01 00324    22700000 A            LI,7     0
      899   01 00325    72700008 A   NXTCHRC  LB,7     8
      900   01 00326    25A00108 A            SLD,10   8
      901   01 00327    2570007C A            SLS,7    -4
      902   01 00328    21700009 A            CI,7     9                 IS IT #
      903   01 00329    6820032D              BCR,2    %+4
      904   01 0032A    207FFFF7 A            AI,7     -9
      905   01 0032B    497011AC              OR,7     =X'C0'            NO
      906   01 0032C    6800032E              B        %+2
      907   01 0032D    497011AD              OR,7     =X'F0'
      908   01 0032E    7572000B A            STB,7    11,1              PLACE IN POSITION
      909   01 0032F    25800204 A            SCS,8    4
      910   01 00330    65500325              BIR,5    NXTCHRC           CONVERT NXT CHARACTER
      911                            *
      912   01 00331    15A0033E              STD,10   EBTEMPS+8
      913   01 00332    022000F0 A            LCI      15
      914   01 00333    2A000336              LM,0     EBTEMPS
      915   01 00334    E800000F A            B        *15
      916                            *
      917                                   BOUND      8
      918   01 00336                 EBTEMPS  RES      15
      919                            *
      920                            * RSTORE REGISTERS
      921                            *
      922   01 00345    022000F0 A   RETREGS  LCI      15
      923   01 00346    2A00034C              LM,0     TEMPR0
      924   01 00347    E800000F A            B        *15
      925                            *
      926                            *
      927                            * SAVE ALL GENERAL REGISTERS
      928                            *
      929   01 00348    022000F0 A   SAVREGS  LCI      15
      930   01 00349    2B00034C              STM,0    TEMPR0
      931   01 0034A    E800000F A            B        *15
      932                            *
      933                            *
      934                                     BOUND    8
      935   01 0034C    00000000 A   TEMPR0   DATA     0
      936   01 0034D    00000000 A   TEMPR1   DATA     0
      937   01 0034E    00000000 A   TEMPR2   DATA     0
      938   01 0034F    00000000 A   TEMPR3   DATA     0
      939   01 00350    00000000 A   TEMPR4   DATA     0
      940   01 00351    00000000 A   TEMPR5   DATA     0
      941   01 00352    00000000 A   TEMPR6   DATA     0
      942   01 00353    00000000 A   TEMPR7   DATA     0
      943   01 00354    00000000 A   TEMPR8   DATA     0
      944   01 00355    00000000 A   TEMPR9   DATA     0
      945   01 00356    00000000 A   TEMPRA   DATA     0
      946   01 00357    00000000 A   TEMPRB   DATA     0
      947   01 00358    00000000 A   TEMPRC   DATA     0
      948   01 00359    00000000 A   TEMPRD   DATA     0
      949   01 0035A    00000000 A   TEMPRE   DATA     0
      950   01 0035B    00000000 A   TEMPRF   DATA     0
      951                            *
      952                            * SUBROUTINE TO DETERMINE THE STATE OF PARITY BIT OF A GIVEN WORD
      953                            * ENTRY: R9 = GIVEN WORD      R15 = RETURN ADRS.
      954                            * EXIT : CC = 0  INDICATE PARITY BIT SHOULD BE OFF (ODD BITS)
      955                            *        CC = 1  INDICATE PARITY BIT SHOULD BE ON (EVEN BITS)
      956                            *
      957   01 0035C    22600001 A   PBIT     LI,6     1                 INITIALIZE COUNTER
      958   01 0035D    35900355              STW,9    TEMPR9
      959   01 0035E    227FFFE0 A            LI,7     -32               SET BIT CNTR
      960   01 0035F    22800000 A   NXTPBIT  LI,8     0
      961   01 00360    25800101 A            SLD,8    1                 GET NEXT BIT
      962   01 00361    21800000 A            CI,8     0                 IS IT ZERO
      963   01 00362    68300364              BCR,3    %+2               YES
      964   01 00363    20600001 A            AI,6     1                 NO
      965   01 00364    6570035F              BIR,7    NXTPBIT           GO TRY NEXT BIT
      966   01 00365    4B6011A9              AND,6    =1                SAVE LSB
      967   01 00366    32900355              LW,9     TEMPR9            RESTORE R9
      968   01 00367    2560027C A            SCS,6    -4
      969   01 00368    3560040F              STW,6    TEMPCC
      970   01 00369    25600204 A            SCS,6    4
      971   01 0036A    7020040F              LC       TEMPCC            SET CC
      972   01 0036B    E800000F A            B        *15               RETURN
      973                            *
      974                            * SUBROUTINE TO COUNT THE NUMBER OF FAILING BITS IN A FAILING ADDR (FA)
      975                            * ENTERY :  R11= BAD DATA     R10 = TESTPAT    R15 = RETURN ADDR
      976                            * EXTIT:    R6 = # OF BAD BITS , R11= BAD DATA
      977                            *           R7 = BAD BIT #
      978                            *
      979                            *
      980   01 0036C    1580019E     CNT:BITS STD,8    R8R9
      981   01 0036D    3290000B A            LW,9     11
      982   01 0036E    22600000 A            LI,6     0                 CLEAR COUNTER
      983   01 0036F    35600353              STW,6    TEMPR7
      984   01 00370    227FFFE0 A            LI,7     -32               SET BIT COUNTER = 32
      985   01 00371    4890000A A            EOR,9    10                R9 = BAD BITS
      986   01 00372    22800000 A   SHFTBIT  LI,8     0                 CLEAR R8
      987   01 00373    25800101 A            SLD,8    1                 GET NEXT BIT TO EXAMINE
      988   01 00374    21800000 A            CI,8     0                 IS THIS BIT = 0
      989   01 00375    68300377              BCR,3    %+2               YES
      990   01 00376    20600001 A            AI,6     1                 NO,  COUNT
      991   01 00377    21600001 A            CI,6     1
      992   01 00378    6830037A              BCR,3    %+2
      993   01 00379    6800037D              B        BADBSET
      994   01 0037A    33000353              MTW,0    TEMPR7            1ST BAD BIT# SET
      995   01 0037B    6930037D              BCS,3    BADBSET           YES
      996   01 0037C    35700353              STW,7    TEMPR7            SAVE BIT #
      997   01 0037D    65700372     BADBSET  BIR,7    SHFTBIT           TRY NEXT BIT
      998                            *
      999   01 0037E    32700353              LW,7     TEMPR7            ALL DONE
     1000   01 0037F    20700020 A            AI,7     32                R7 = BIT #
     1001   01 00380    35700383              STW,7    BADBIT
     1002   01 00381    1280019E              LD,8     R8R9
     1003   01 00382    E800000F A            B        *15               RETURN
     1004                            *
     1005                            *
     1006   01 00383    00000000 A   BADBIT   DATA     0
     1007                            *
     1008                            * SUBROUTINE TO FIND THE FAILING HALF-BYTE OF A WORD
     1009                            * ENTRY:   R11= BAD DATA      R10 = TESTPAT    R15 = RETURN ADDR
     1010                            * EXIT :   CC = 0 INDICATES  HALF-BYTE 0  OR  4  FAIL
     1011                            *             = 1 INDICATES  HALF-BYTE 1  OR  5  FAIL
     1012                            *             = 2 INDICATES  HALF-BYTE 2  OR  6  FAIL
     1013                            *             = 3 INDICATES  HALF-BYTE 3  OR  7  FAIL
     1014                            *             = 4 INDICATES  NO HALF-BYTE FAIL SINGULARLY
     1015                            *
     1016   01 00384    3290000B A   BAD:HB   LW,9     11                SET  BAD DATA IN R9
     1017   01 00385    22600000 A            LI,6     0                 CLEAR COUNTER
     1018   01 00386    227FFFF8 A            LI,7     -8                SET HALF-BYTE COUNT = 8
     1019   01 00387    4890000A A            EOR,9    10                SET R9 = BAD BITS
     1020   01 00388    22800000 A   SHIFTHB  LI,8     0
     1021   01 00389    25800104 A            SLD,8    4                 GET NEXT HALF-BYTE
     1022   01 0038A    21800000 A            CI,8     0                 THIS HALF-BYTE = 0 (GOOD HB)
     1023   01 0038B    68300393              BCR,3    OKHB              YES
     1024   01 0038C    2180000F A            CI,8     X'F'              NO, THEN ALL 4 BITS BAD ?
     1025   01 0038D    69300395              BCS,3    NOHB                NO
     1026   01 0038E    21900000 A            CI,9     0                    YES,  AND BITS LEFT IN R11= 0
     1027   01 0038F    68300391              BCR,3    %+2                   YES
     1028   01 00390    68000395              B        NOHB                   NO
     1029   01 00391    4B60026D              AND,6    H3                SET HALF-BYTE # MOD 3
     1030   01 00392    68000396              B        RETHB             RETURN
     1031   01 00393    20600001 A   OKHB     AI,6     1                 SET COUNT TO NEXT HALF-BYTE
     1032   01 00394    65700388              BIR,7    SHIFTHB           BRANCH TO EXAMINE NEXT HALF-BYTE
     1033   01 00395    22600004 A   NOHB     LI,6     4                 SET COUNTER = 4 IF NO HALF-BYTE BAD
     1034   01 00396    2560027C A   RETHB    SCS,6    -4
     1035   01 00397    3560040F              STW,6    TEMPCC
     1036   01 00398    25600204 A            SCS,6    4
     1037   01 00399    7020040F              LC       TEMPCC            SET CC
     1038   01 0039A    E800000F A            B        *15               RETURN
     1039                            *
     1040                            * SUBROUTINE TO DETERMINE THE FAILING BYTE OF A WORD
     1041                            * ENTRY:   R11= BAD DATA   R10 = TESTPAT      R15 = RETURN ADDR
     1042                            * EXIT :   CC = 0,1,2,3 SHOWS BYTE 0,1,2,3 FAIL
     1043                            *          CC = 4  MEAN NONE OF THE BYTES FAIL SINGULARLY
     1044                            *
     1045   01 0039B    00FF0000 A   HFF0000  DATA     X'FF0000'
     1046                            *
     1047                            *
     1048   01 0039C    35900355     BAD:BYTE STW,9    TEMPR9            SAVE R9
     1049   01 0039D    3290000B A            LW,9     11
     1050   01 0039E    22600000 A            LI,6     0                 CLEAR COUNTER
     1051   01 0039F    4890000A A            EOR,9    10                SET BAD BITS
     1052   01 003A0    3190024B              CW,9     FF0S
     1053   01 003A1    683003AC              BCR,3    BYTE0             YES
     1054   01 003A2    3190039B              CW,9     HFF0000           BYTE 1 BAD
     1055   01 003A3    683003AB              BCR,3    BYTE1             YES
     1056   01 003A4    2190FF00 A            CI,9     X'FF00'           BYTE 2 BAD
     1057   01 003A5    683003AA              BCR,3    BYTE2             YES
     1058   01 003A6    219000FF A            CI,9     X'FF'             BYTE 3 BAD
     1059   01 003A7    683003A9              BCR,3    BYTE3             YES
     1060   01 003A8    20600001 A            AI,6     1                 NONE OF THE BYTES FAIL ALONE, R6=4
     1061   01 003A9    20600001 A   BYTE3    AI,6     1                 R6 = 3
     1062   01 003AA    20600001 A   BYTE2    AI,6     1                 R6 = 2
     1063   01 003AB    20600001 A   BYTE1    AI,6     1                 R6 = 1
     1064   01 003AC    32900355     BYTE0    LW,9     TEMPR9            RESTORE R9
     1065   01 003AD    2560027C A            SCS,6    -4
     1066   01 003AE    3560040F              STW,6    TEMPCC
     1067   01 003AF    25600204 A            SCS,6    4
     1068   01 003B0    7020040F              LC       TEMPCC            SET CC
     1069   01 003B1    E800000F A            B        *15               RETURN
     1070                            *
     1071                            * SUBROUTINE TO FIND THE FAILING HALF-WORD
     1072                            * ENTRY:   R11= BAD DATA   R10 = TESTPAT   R15 = RETURN ADDR
     1073                            * EXIT :  R6=CC = 0 MEANS FAILURE IN HALF-WORD 0
     1074                            *               = 1 MEANS FAILURE IN HALF-WORD 1
     1075                            *             = 2  MEANS  NONE OF THE HALF-WORDS FAIL
     1076                            *
     1077   01 003B2    35900355     BAD:HW   STW,9    TEMPR9            SAVE R9
     1078   01 003B3    3290000B A            LW,9     11                          R9 = BAD DATA
     1079   01 003B4    22600000 A            LI,6     0                 CLEAR CNTR
     1080   01 003B5    4890000A A            EOR,9    10                SET R9 = BAD BITS
     1081   01 003B6    4B9003C3              AND,9    HFFFF             FAILURE IN HW1
     1082   01 003B7    683003BC              BCR,3    HW0               NO
     1083   01 003B8    4B90024A              AND,9    FS0S              YES
     1084   01 003B9    683003BB              BCR,3    HW1
     1085   01 003BA    20600001 A            AI,6     1                 NO HALF-WORD FAILURE
     1086   01 003BB    20600001 A   HW1      AI,6     1
     1087   01 003BC    22700003 A   HW0      LI,7     3
     1088   01 003BD    32900355              LW,9     TEMPR9            RESTORE R9
     1089   01 003BE    2560027C A            SCS,6    -4
     1090   01 003BF    3560040F              STW,6    TEMPCC
     1091   01 003C0    25600204 A            SCS,6    4
     1092   01 003C1    7020040F              LC       TEMPCC            SET CC
     1093   01 003C2    E800000F A            B        *15               RETURN
     1094                            *
     1095   01 003C3    0000FFFF A   HFFFF    DATA     X'FFFF'
     1096                            *
     1097                            * SUBROUTINE TO DETERMINE # OF GOOD LOCATIONS AFTER A GIVEN FAILING ADDR
     1098                            * ENTRY:   R5 = F.A.,   R10 = TESTPAT,   R2 = TESTHI,  R15 = RETURN ADDR
     1099                            * EXIT :   R5 = F.A.,   R6 = # OF GOOD LOCS AFTER F.A.
     1100                            *
     1101   01 003C4    22600000 A   OK:GRUP  LI,6     0                 CLEAR THE COUNTER
     1102   01 003C5    32900005 A            LW,9     5                 SAVE F.A. IN R9
     1103   01 003C6    31500002 A            CW,5     2                 LAST ADDR ?
     1104   01 003C7    683003CE     NXTOK    BCR,3    OKDONE
     1105   01 003C8    328A0001 A            LW,8     1,5               FETCH DATA OF F.A. +1
     1106   01 003C9    3180000A A            CW,8     10                DATA OK ?
     1107   01 003CA    693003CE              BCS,3    OKDONE            NO
     1108   01 003CB    33100006 A            MTW,1    6                 YES, INCREMENT COUNTER
     1109   01 003CC    33100005 A            MTW,1    5                  AND ADDR
     1110   01 003CD    680003C7              B        NXTOK               TRY NEXT ADDR
     1111   01 003CE    46500009 A   OKDONE   XW,5     9                 RESTORE F.A. IN R5
     1112   01 003CF    E800000F A            B        *15               RETURN
     1113                            *
     1114                            * SUBROUTINE TO FIND NUMBER OF BAD LOCS FOLLOWING A FAILING ADDR (INCLS)
     1115                            * ENTER WITH R5 = F.A.   R10 = TESTPAT   R2= TESTHI ,  R15 = RETURN ADR
     1116                            *            R11 =BAD DATA
     1117                            * EXIT  WITH R8 = # OF BAD LOCS , R9 = # OF CONSEC BAD LOCS IN SAME BITS
     1118                            *
     1119                            *
     1120   01 003D0    226FFFFF A   FA:GRUP  LI,6     -1                R6 = FLAG
     1121   01 003D1    022000F0 A            LCI      15
     1122   01 003D2    2B00118C              STM,0    BUF
     1123   01 003D3    31500002 A   NXTFA    CW,5     2                 LAST TEST LOCATION +1 ?
     1124   01 003D4    692003E4              BCS,2    TALLYFA           YES,
     1125   01 003D5    328A0000 A            LW,8     0,5               NO, THEN FETCH DATA
     1126   01 003D6    3180000A A            CW,8     10                DATA OK
     1127   01 003D7    683003E4              BCR,3    TALLYFA           YES
     1128   01 003D8    33000006 A            MTW,0    6                 FLAG TO TEST FOR SAME BAD BITS SET
     1129   01 003D9    691003DD              BCS,1    ANYBIT            NO
     1130   01 003DA    4880000B A            EOR,8    11                YES, THE FAILURE IN SAME BITS ?
     1131   01 003DB    683003DD              BCR,3    ANYBIT                 YES
     1132   01 003DC    680003E4              B        TALLYFA                NO
     1133   01 003DD    20500001 A   ANYBIT   AI,5     1                 INCREMENT ADRS
     1134   01 003DE    33000AB6              MTW,0    TAGALT            TO TEST ALT. LOCS  FLG SET
     1135   01 003DF    683003D3              BCR,3    NXTFA             NO, TRY NEXT LOC.
     1136   01 003E0    20500001 A            AI,5     1                 YES,
     1137   01 003E1    328A0000 A            LW,8     0,5
     1138   01 003E2    3180000A A            CW,8     10                LOC. OK?
     1139   01 003E3    683003D3              BCR,3    NXTFA             YES,
     1140   01 003E4    38501191     TALLYFA  SW,5     BUF+5
     1141   01 003E5    33100006 A            MTW,1    6                 FLAG SET ?
     1142   01 003E6    683003EB              BCR,3    TSTBITS           NO, GO TEST FOR SAME BAD BITS
     1143   01 003E7    35501195              STW,5    BUF+9
     1144   01 003E8    022000F0 A            LCI      15
     1145   01 003E9    2A00118C              LM,0     BUF               SAVE REGS
     1146   01 003EA    E800000F A            B        *15               RETURN
     1147   01 003EB    35501194     TSTBITS  STW,5    BUF+8
     1148                            *
     1149   01 003EC    32501191              LW,5     BUF+5
     1150   01 003ED    680003D3              B        NXTFA             GO TRY SEARCH ON SAME BITS
     1151   01 003EE    E800000F A            B        *15               RETURN
     1152                            *
     1153                            *
     1154                            *
     1155                            * SUBROUTINE TO DETERMINE STARTING ADRS OF THE 2ND BANK OF A SWITCH
     1156                            * ENTRY:  LOCATION  "BANK#" = THE GIVEN FIRST BANK
     1157                            * EXIT :  R7 = STARTING ADDR OF THE 2ND BANK
     1158                            *         CC3&4=0 MEANS FIRST BANK ODD, OTHERWISE EVEN (BANK A)
     1159                            *         CC1 = SET MEANS BANK2 NON-EXISTENT
     1160   01 003EF    32800301     BANK2ADR LW,8     BANK#             GET BANK #
     1161   01 003F0    35900410              STW,9    BKR9
     1162   01 003F1    22900000 A            LI,9     0                 CLEAR R9
     1163   01 003F2    2580017F A            SLD,8    -1                EXAMINE BANK#
     1164   01 003F3    21900000 A            CI,9     0                 BANK# ODD
     1165   01 003F4    7400040F              STCF     TEMPCC
     1166   01 003F5    25800101 A            SLD,8    1
     1167   01 003F6    33000008 A            MTW,0    8
     1168   01 003F7    32700005 A            LW,7     5                                                 *A01
     1169   01 003F8    33000304              MTW,0    BKSIZE            8K BANK                         *A01
     1170   01 003F9    683003FC              BCR,3    %+3               NO,16K                          *A01
     1171   01 003FA    22802000 A            LI,8     X'2000'           YES                             *A01
     1172   01 003FB    680003FD              B        %+2                                               *A01
     1173   01 003FC    22804000 A            LI,8     X'4000'                                           *A01
     1174   01 003FD    7300040F              MTB,0    TEMPCC            ODD BANK                        *A01
     1175   01 003FE    69300401              BCS,3    %+3                                               *A01
     1176   01 003FF    30700008 A            AW,7     8                 YES, ADD BANK SIZEE             *A01
     1177   01 00400    68000402              B        %+2                                               *A01
     1178   01 00401    38700008 A            SW,7     8                 NO, SUBTRACT BANK SIZE          *A01
     1179   01 00402    33000007 A            MTW,0    7                 BANK ZERO                       *A01
     1180   01 00403    69300405              BCS,3    %+2               NO                              *A01
     1181   01 00404    20700140 A            AI,7     X'140'            YES                             *A01
     1182   01 00405    31700001 A            CW,7     1                 IN RANGE                        *A01
     1183   01 00406    6910040C              BCS,1    NONEXST           NO,                             *A01
     1184   01 00407    31700002 A            CW,7     2                                                 *A01
     1185   01 00408    6920040C              BCS,2    NONEXST           NO                              *A01
     1186   01 00409    32900410              LW,9     BKR9
     1187   01 0040A    7020040F              LC       TEMPCC            RESTORE CC
     1188   01 0040B    E800000F A            B        *15               RETURN
     1189   01 0040C    7280040F     NONEXST  LB,8     TEMPCC                                            *A01
     1190   01 0040D    498011AE              OR,8     =X'80'                                            *A01
     1191   01 0040E    7580040F              STB,8    TEMPCC            SET CC1                         *A01
     1192                            *
     1193   01 0040F    00000000 A   TEMPCC   DATA     0
     1194   01 00410    00000000 A   BKR9     DATA     0
     1195                            *
     1196   01 00411    00000ABC A   BANKTAB  DATA     X'ABC'
     1197   01 00412    00000ABC A            DATA     X'ABC'
     1198   01 00413    00000ABC A            DATA     X'ABC'
     1199   01 00414    00000ABC A            DATA     X'ABC'
     1200   01 00415    00000ABC A            DATA     X'ABC'
     1201   01 00416    00000ABC A            DATA     X'ABC'
     1202   01 00417    00000ABC A            DATA     X'ABC'
     1203   01 00418    00000ABC A            DATA     X'ABC'
     1204   01 00419    00000ABC A            DATA     X'ABC'
     1205   01 0041A    00000ABC A            DATA     X'ABC'
     1206   01 0041B    00000ABC A            DATA     X'ABC'
     1207   01 0041C    00000ABC A            DATA     X'ABC'
     1208   01 0041D    00000ABC A            DATA     X'ABC'
     1209   01 0041E    00000ABC A            DATA     X'ABC'
     1210   01 0041F    00000ABC A            DATA     X'ABC'
     1211   01 00420    00000ABC A            DATA     X'ABC'
     1212   01 00421    00000ABC A            DATA     X'ABC'
     1213                            *
     1214                            * ROUTINE TO REPORT MODULE LOCATIONS
     1215                            *
     1216                                     BOUND    8
     1217   01 00422    00000000 A   %RPRTMOD DATA     0,0
            01 00423    00000000 A
     1218   01 00424    00000426              DATA     %+2
     1219   01 00425    00000000 A            DATA     0
     1220   01 00426    22000000 A            LI,0     0
     1221   01 00427    6AF00348              BAL,15   SAVREGS
     1222   01 00428    6C000000 A            RD,0     0                 SW 2 SET                        *A01
     1223   01 00429    6840044A              BCR,4    MODEND+5          DO NOT REPORT MODULE IF RESET   *A01
     1224   01 0042A    2281FFFF A            LI,8     X'1FFFF'
     1225   01 0042B    4B800422              AND,8    %RPRTMOD
     1226   01 0042C    B2600008 A            LW,6     *8
     1227   01 0042D    2560006F A            SLS,6    -17
     1228   01 0042E    4B6011AF              AND,6    =7                R6 = X REG.
     1229   01 0042F    328C034C              LW,8     TEMPR0,6
     1230   01 00430    2261FFFF A            LI,6     X'1FFFF'
     1231   01 00431    CB600422              AND,6    *%RPRTMOD         R6 = BEG ADRS OF MOD LOCS
     1232   01 00432    30600008 A            AW,6     8                 ADD INDEX VALUE OF CALL INSTR.
     1233   01 00433    22500001 A            LI,5     1
     1234   01 00434    22700000 A            LI,7     0
     1235   01 00435    D2800006 A   NXTMOD   LH,8     *6                GET MOD LOC
     1236   01 00436    6AF00320              BAL,15   EBCDIC            CONVERT TO EBCDIC
     1237   01 00437    4B9011B0              AND,9    =X'FFFFFF00'
     1238   01 00438    4990044E              OR,9     H61               /
     1239   01 00439    359E118C              STW,9    BUF,7             STORE IN BUF AREA
     1240   01 0043A    33100007 A            MTW,1    7                 ADVANCE BUF POINTER
     1241   01 0043B    B2800006 A            LW,8     *6
     1242   01 0043C    25800010 A            SLS,8    16
     1243   01 0043D    4980044F              OR,8     H4040
     1244   01 0043E    358E118C              STW,8    BUF,7             STORE IN BUF AREA
     1245   01 0043F    65700440              BIR,7    %+1               ADVANCE BUF POINTER
     1246   01 00440    3150000E A            CW,5     14                LAST ONE
     1247   01 00441    68300445              BCR,3    MODEND            YES
     1248   01 00442    20500001 A            AI,5     1                  NO, STEP CNTR
     1249   01 00443    65600444              BIR,6    %+1
     1250   01 00444    68000435              B        NXTMOD            TRY NEXT ONE
     1251   01 00445    22900000 A   MODEND   LI,9     0
     1252   01 00446    359001A4              STW,9    RWFLAG            INITIALIZE READ-WRITE FLAG
     1253   01 00447    2290118C              LI,9     BUF               GET BUF ADR
     1254   01 00448    30900007 A            AW,9     7                 FORM ADR OF END OF THE BUF
     1255   01 00449    0400118C              CAL1,0   BUF               GO PRINT BUFFER AREA
     1256   01 0044A    6AF00345              BAL,15   RETREGS
     1257   01 0044B    33100575              MTW,1    ERRCNT
     1258   01 0044C    33100422              MTW,1    %RPRTMOD
     1259   01 0044D    0E300422              LPSD,3   %RPRTMOD          RETURN
     1260                            *
     1261   01 0044E    00000061 A   H61      DATA     X'61'
     1262   01 0044F    00004040 A   H4040    DATA     X'4040'
     1263                            *
     1264                            *
     1265                            *
     1266                            * MODIFICATION OF THE TRAP/INTERRUPT LOCATIONS FOR RELOCATABILITY
     1267                            *
     1268                                     BOUND    8
     1269                            *
     1270   01 00450    0F000452     LOAD:PNT XPSD,0   %+2
     1271   01 00451    00000000 A            DATA     0
     1272   01 00452    00000000 A            DATA     0,0
            01 00453    00000000 A
     1273   01 00454    00000456              DATA     %+2
     1274   01 00455    00000000 A            DATA     0
     1275   01 00456    32400452              LW,4     LOAD:PNT+2
     1276   01 00457    4B4011A0              AND,4    =X'1FFFF'
     1277   01 00458    204FFBAF N            AI,4     -LOAD:PNT-1       SET UP RELOC BIAS
     1278   01 00459    35400350              STW,4    TEMPR4
     1279   01 0045A    22100000 A            LI,1     0
     1280   01 0045B    225FFEE4 A            LI,5     -X'11C'           SET WORD CNT
     1281   01 0045C    32880025 A   NXTWRD   LW,8     X'25',4           MOVE THIS WORD
     1282   01 0045D    35820025 A            STW,8    X'25',1
     1283   01 0045E    20100001 A            AI,1     1                 ICREMENT CNT
     1284   01 0045F    20400001 A            AI,4     1
     1285   01 00460    6550045C              BIR,5    NXTWRD            MOVE NEXT WORD IF NOT DONE
     1286   01 00461    32400350              LW,4     TEMPR4            RESTORE BIAS
     1287                            *
     1288   01 00462    22900000 A            PRINT    MSG1,MSG1END      PRINT TITLE
            01 00463    359001A4
            01 00464    22900E8F N
                        04000D86
     1289                            *
     1290                            *
     1291                            * PARITY INTRRUPT LOGIC TEST
     1292                            *
     1293   01 00466                 START    RES      0
     1294   01 00466    228FFFFF A   PRTYLGIC LI,8     -1
     1295   01 00467    3580047D              STW,8    INTRPFLG          SET FLG
     1296   01 00468    22800000 A            LI,8     0
     1297   01 00469    3580047E              STW,8    INTACFLG          RESET FLG
     1298   01 0046A    6D000040 A            WD,0     X'40'             RESET A
     1299   01 0046B    22800800 A            LI,8     X'800'
     1300   01 0046C    6D801200 A            WD,8     X'1200'           ARM & ENABLE PARITY INTRPT
     1301   01 0046D    6D801700 A            WD,8     X'1700'           TRIGGER
     1302                            *
     1303   01 0046E    3300047E              MTW,0    INTACFLG          INTR. ACKNOWLEDGED
     1304   01 0046F    69300477              BCS,3    PINTR:OK          YES
     1305   01 00470    6D000041 A            WD,0     X'41'             TURN ON ALARM
     1306   01 00471    22900000 A            PRINT    MSG15,MSG15END    NO, REPORT
            01 00472    359001A4
            01 00473    22900F9A N
                        04000F91
     1307   01 00475    2E000000 A            WAIT
     1308                            *
     1309                            * WAIT INDICATES PARITY INTERRUPT LOGIC DID NOT WORK
     1310                            *
     1311   01 00476    68000466              B        PRTYLGIC          LOOP ON THIS0TeST
     1312   01 00477    22800000 A   PINTR:OK LI,8     0
     1313   01 00478    3580047E              STW,8    INTACFLG          RESET FLG
     1314   01 00479    3580047D              STW,8    INTRPFLG          RESET FLG
     1315   01 0047A    22800800 A            LI,8     X'800'
     1316   01 0047B    6D801100 A            WD,8     X'1100'           DISARM PARITY INTR
     1317   01 0047C    6800047F              B        LAS:TST
     1318                            *
     1319   01 0047D    00000000 A   INTRPFLG DATA     0
     1320   01 0047E    00000000 A   INTACFLG DATA     0
     1321                            *
     1322                            * TEST PROGRAM FOR 'LAS' INSTRUCTION
     1323                            *
     1324   01 0047F                 LAS:TST  RES      0
     1325   01 0047F    022000F0 A            LCI      15
     1326   01 00480    2B00034C              STM,0    TEMPR0            SAVE ALL REGISTERS
     1327   01 00481    22800800 A            LI,8     X'0800'           SET FOR MEMORY PARITY INTERRUPT
     1328   01 00482    6D801200 A            WD,8     X'1200'           ARM&ENABLE INTERRUPTS
     1329   01 00483    22100001 A            LI,1     1
     1330   01 00484    225FFFFB A            LI,5     -5
     1331   01 00485    22EFFFFF A            LI,14    -1
     1332   01 00486    35E004D8              STW,14   LASFLG
     1333   01 00487    22300000 A            LI,3     0
     1334   01 00488    35300271              STW,3    IXFLG
     1335   01 00489    353004D9              STW,3    LMSFLG            SET FLAGS
     1336   01 0048A    22800000 A            LI,8     0                 CLEAR REG
     1337   01 0048B    353004DA     LOOP     STW,3    TESTLOC           PATTERN OF ZEROS
     1338   01 0048C    B5320272              STW,3    *TSTLOCP,1
     1339   01 0048D    32A004DA              LW,10    TESTLOC           PUT PATTERN IN REG.
     1340   01 0048E    33000271              MTW,0    IXFLG
     1341   01 0048F    68300493              BCR,3    %+4
     1342   01 00490    A6820272              LAS,8    *TSTLOCP,1
     1343   01 00491    B2820272              LW,8     *TSTLOCP,1
     1344   01 00492    68000495              B        %+3
     1345   01 00493    268004DA              LAS,8    TESTLOC           LOAD AND SET
     1346   01 00494    328004DA              LW,8     TESTLOC           FETCH IT
     1347   01 00495    49A004DF              OR,10    87ZERO
     1348   01 00496    3180000A A            CW,8     10                CHECK FOR AGREEMENT
     1349   01 00497    683004A2              BCR,3    MODPAT            IF YES,RECHK WITH NEW PATTERN
     1350   01 00498    22900000 A            PRINT    LASTRAP,LASLMS    IF NO, PRINT ERROR MSG
            01 00499    359001A4
            01 0049A    22900F7F N
                        04000F7E
     1351   01 0049C    22900000 A            PRINT    SMSG,SMSGE
            01 0049D    359001A4
            01 0049E    22900F91 N
                        04000F8C
     1352   01 004A0    2E000000 A            WAIT
     1353                            *
     1354                            *
     1355                            * WAIT INDICATES  LAS  OR  LMS  INSTRUCTION DOES NOT FUNCTION PROPERLY
     1356                            *
     1357                            *
     1358   01 004A1    6800047F              B        LAS:TST
     1359   01 004A2    655004A4     MODPAT   BIR,5    %+2               GENERATE NEW PATTERN
     1360   01 004A3    680004A6              B        LMSTST                   BY
     1361   01 004A4    203000EE A            AI,3     X'0EE'            ADDING  X'0EE' ON EACH ITERATION
     1362   01 004A5    6800048B              B        LOOP
     1363                            *
     1364                            * TEST PROGRAM FOR'LMS' INSTRUCTION
     1365                            *
     1366                            *
     1367   01 004A6    22300000 A   LMSTST   LI,3     0
     1368   01 004A7    353004D8              STW,3    LASFLG
     1369   01 004A8    353004DE              STW,3    ADRPFLG           SET ADDR PARITY FLAG=0
     1370   01 004A9    22EFFFFF A            LI,14    -1                                                *A01
     1371   01 004AA    35E004D9     SET      STW,14   LMSFLG            SET FLG                         *A01
     1372   01 004AB    225004DA              LI,5     WA(TESTLOC)
     1373   01 004AC    313004DE              CW,3     ADRPFLG           CHECK IF FLAG ZERO
     1374   01 004AD    683004AF              BCR,3    %+2
     1375   01 004AE    20500001 A            AI,5     1                 MODIFY POINTER TO PATTERN
     1376   01 004AF    6AF00274              BAL,15   STATUS            GO TO SUBROUTINE AND PICK UP STATUS
     1377   01 004B0    313002EE              CW,3     FTYPE             * C H E C K   S T A T U S
     1378   01 004B1    693004BA              BCS,3    ERRPR
     1379   01 004B2    31300300              CW,3     SW#                  NON ZERO IN THE REST)
     1380   01 004B3    683004BA              BCR,3    ERRPR
     1381   01 004B4    22A00000 A            LI,10    0
     1382   01 004B5    32B00303              LW,11    PORT#
     1383   01 004B6    6AF0036C              BAL,15   CNT:BITS
     1384   01 004B7    21600001 A            CI,6     1
     1385   01 004B8    693004BA              BCS,3    ERRPR
     1386   01 004B9    680004C4              B        CONTINUE
     1387   01 004BA                 ERRPR    RES      0
     1388   01 004BA    22900000 A            PRINT    LMSTRAP,LMSTRAPE
            01 004BB    359001A4
            01 004BC    22900F7D N
                        04000F7C
     1389   01 004BE    22900000 A            PRINT    SMSG,SMSGE
            01 004BF    359001A4
            01 004C0    22900F91 N
                        04000F8C
     1390   01 004C2    2E000000 A            WAIT
     1391   01 004C3    6800047F              B        LAS:TST           ReSTAzT  LAS  AND  LuS  INSTR. TEST
     1392   01 004C4    22600001 A   CONTINUE LI,6     1
     1393   01 004C5    31600305              CW,6     MEMTYPE           CORE TYPE BIT OK
     1394   01 004C6    693004BA              BCS,3    ERRPR               NO, ERROR
     1395   01 004C7    313004DE              CW,3     ADRPFLG            CHECK ADD PARITY FLG ZERO
     1396   01 004C8    693004CB              BCS,3    RESET              NO.RESET LMS FLAG
     1397   01 004C9    33F004DE              MTW,-1   ADRPFLG            YES,SET PARITY FLG
     1398   01 004CA    680004AA              B        SET                GO BACK
     1399   01 004CB    331004D9     RESET    MTW,1    LMSFLG            RESET FLG
     1400   01 004CC    33000271              MTW,0    IXFLG
     1401   01 004CD    691004D2              BCS,1    LASMEXIT
     1402   01 004CE    33F00271              MTW,-1   IXFLG
     1403   01 004CF    22300000 A            LI,3     0
     1404   01 004D0    225FFFFB A            LI,5     -5
     1405   01 004D1    6800048A              B        LOOP-1
     1406   01 004D2    33100271     LASMEXIT MTW,1    IXFLG
     1407   01 004D3    22800800 A            LI,8     X'0800'
     1408   01 004D4    6D801100 A            WD,8     X'1100'           DISARM & DISABLE INTRRS.
     1409   01 004D5    022000F0 A            LCI      15
     1410   01 004D6    2A00034C              LM,0     TEMPR0            RESTORE REGISTERS
     1411   01 004D7    680004E0              B        BEGIN
     1412   01 004D8    00000000 A   LASFLG   DATA     0
     1413   01 004D9    00000000 A   LMSFLG   DATA     0
     1414   01 004DA    00000000 A   TESTLOC  DATA     0,0
            01 004DB    00000000 A
     1415   01 004DC    680004ED     DUMMY    B        STRDMY
     1416   01 004DD    00000000 A   MEMRYSIZ DATA     0
     1417   01 004DE    00000000 A   ADRPFLG  DATA     0
     1418   01 004DF    80000000 A   87ZERO   DATA     X'80000000'
     1419                            *
     1420                            * CALCULATION OF THE MEMORY CONFIGURATION
     1421                            *
     1422   01 004E0    22800800 A   BEGIN    LI,8     X'800'
     1423   01 004E1    6D801100 A            WD,8     X'1100'           DISARM PARITY INTRRUPT
     1424   01 004E2    22800010 A            LI,8     16
     1425   01 004E3    6D801200 A            WD,8     X'1200'           ARM AND ENABLE CONSOL INTRPT
     1426   01 004E4    2271FFFF A            LI,7     X'1FFFF'          INDEX VALUE FOR 128K
     1427   01 004E5    228F1234 A   MEMCALC  LI,8     X'F1234'
     1428   01 004E6    358004DA              STW,8    TESTLOC
     1429   01 004E7    33F00168              MTW,-1   MCALFLG
     1430   01 004E8    358E0000 A            STW,8    0,7               ******** * **  * * * * * *******************
     1431   01 004E9    33F00168              MTW,-1   MCALFLG
     1432   01 004EA    328004DC              LW,8     DUMMY
     1433   01 004EB    358004EC              STW,8    %+1
     1434   01 004EC    00000000 A            DATA     0
     1435   01 004ED    328E0000 A   STRDMY   LW,8     0,7               ** DOES THIS THIS MEM SIZE EXIST
     1436   01 004EE    318004DA              CW,8     TESTLOC
     1437   01 004EF    683004F2              BCR,3    MEMLIM            YES,
     1438   01 004F0    3870026B              SW,7     8K                NO, DECREMENT INDEX BY 8K
     1439   01 004F1    680004E5              B        MEMCALC
     1440   01 004F2    32800007 A   MEMLIM   LW,8     7
     1441   01 004F3    22200000 A            LI,2     0
     1442   01 004F4    35200168              STW,2    MCALFLG           RESET FLAG
     1443   01 004F5    32200007 A            LW,2     7                 SET R2 = TESTHI
     1444   01 004F6    352004DD              STW,2    MEMRYSIZ
     1445   01 004F7    6AF00320              BAL,15   EBCDIC            CONVERT TO EBCDIC
     1446   01 004F8    4B800269              AND,8    404040FF          BLANK HIGH ORDER BITS
     1447   01 004F9    15800ED8              STD,8    MEMSIZ
     1448   01 004FA    25700073 A            SLS,7    -13               FORM NO OF 8K'S
     1449   01 004FB    328E0234              LW,8     SIZTAB,7          SELECT CORRECT SIZE FROM TABLE
     1450   01 004FC    35800ED6              STW,8    KSIZE             STORE K-SIZE IN DECIMAL
     1451   01 004FD    22900000 A            PRINT    MSG8,MSG8END      PRINT SIZE
            01 004FE    359001A4
            01 004FF    22900EF9 N
                        04000ECE
     1452   01 00501    22701FFF A            LI,7     X'1FFF'
     1453   01 00502    35700301              STW,7    BANK#
     1454   01 00503    22600000 A            LI,6     0                 SET 8K COUNTER
     1455   01 00504    32B011B1              LW,11    =X'404040F0'      TO PRINT INITIALLY 0
     1456   01 00505    32D00245              LW,13    BLANKS            PRINT IMAGE OF BLANKS
     1457   01 00506    228FFFFF A   NXT8K    LI,8     -1                NO
     1458   01 00507    35800546              STW,8    FLGODEV
     1459   01 00508    22E00000 A   EVSTAT   LI,14    0
     1460   01 00509    46EE0000 A            XW,14    0,7
     1461   01 0050A    02200080 A            LCI      8
     1462   01 0050B    2D8E0000 A            LMS,8    0,7               READ STATUS 0
     1463   01 0050C    35800547              STW,8    STATEMP0          SAVE
     1464   01 0050D    02200090 A            LCI      9                 READ STATUS 1
     1465   01 0050E    2D8E0000 A            LMS,8    0,7
     1466   01 0050F    35800548              STW,8    STATEMP1          SAVE
     1467   01 00510    228FFFFF A            LI,8     -1                STORE 1'P
     1468   01 00511    358E0000 A            STW,8    0,7
     1469   01 00512    02200080 A            LCI      8                 READ STATUS0
     1470   01 00513    2D8E0000 A            LMS,8    0,7
     1471   01 00514    31800547              CW,8     STATEMP0          COMPARE WITH PREVIOUS ONE
     1472   01 00515    69300549              BCS,3    STAT0ERR          NO
     1473   01 00516    02200090 A            LCI      9                 YES, THEN READ STATUS 1
     1474   01 00517    2D8E0000 A            LMS,8    0,7
     1475   01 00518    31800548              CW,8     STATEMP1          COMPARE WITH PREVIOUS ONE
     1476   01 00519    69300557              BCS,3    STAT1ERR          NO
     1477   01 0051A    33100546              MTW,1    FLGODEV           YES
     1478   01 0051B    6930051F              BCS,3    STATOK            FLG SET
     1479   01 0051C    46EE0000 A            XW,14    0,7               RESTORE TST LOC
     1480   01 0051D    4B7011B2              AND,7    =X'1FFBF'         BIT 25 COMPL.
     1481   01 0051E    68000508              B        EVSTAT
     1482                            *
     1483   01 0051F    46EE0000 A   STATOK   XW,14    0,7               RESTORE TST LOC
     1484   01 00520    497011B3              OR,7     =X'40'            RESTORE BIT 25
     1485   01 00521    02200080 A            LCI      8
     1486   01 00522    2D8E0000 A            LMS,8    0,7               READ MEMORY STATUS
     1487   01 00523    22900000 A            LI,9     0                 CLEAR R9
     1488   01 00524    2580017D A            SLD,8    -3                KEEP BANK NO
     1489   01 00525    4B8011B4              AND,8    =15
     1490   01 00526    32300008 A            LW,3     8                 *** R3 = BANK#
     1491   01 00527    49800244              OR,8     3BF0              OR WITH X'404040F0'
     1492   01 00528    32C00008 A            LW,12    8                 SAVE IN R12
     1493   01 00529    25900061 A            SLS,9    -31
     1494   01 0052A    21900001 A            CI,9     1                 BANK SIZE 8K
     1495   01 0052B    6830052E              BCR,3    %+3               YES
     1496   01 0052C    32E00235              LW,14    SIZTAB+1          NO, 16K
     1497   01 0052D    6800052F              B        %+2
     1498   01 0052E    32E00234              LW,14    SIZTAB
     1499   01 0052F    32A0000B A            LW,10    11                SET R10 = START OF ADDR RANGE
     1500   01 00530    3250000B A            LW,5     11                ** R5 = STARTING ADDRS
     1501   01 00531    25A00008 A            SLS,10   8
     1502   01 00532    49A00246              OR,10    H60
     1503   01 00533    32BC0234              LW,11    SIZTAB,6          SET R10 = END OF 8K ADDR RANGE
     1504   01 00534    32900247              LW,9     BLKS:NL           IMAGE OF BLANKS AND NL
     1505   01 00535    02200050 A            LCI      5
     1506   01 00536    2BA0118E              STM,10   BUF+2
     1507   01 00537    3590118C              STW,9    BUF               BLANKS
     1508   01 00538    35D0118D              STW,13   BUF+1
     1509   01 00539    22900000 A            PRINT    BUF,BUF+8         PRINT MEM SIZE
            01 0053A    359001A4
            01 0053B    22901194 N
                        0400118C
     1510   01 0053D    31300301              CW,3     BANK#             SAME AS PREVIOUS #
     1511   01 0053E    68300540              BCR,3    %+2               YES
     1512   01 0053F    35560411              STW,5    BANKTAB,3
     1513   01 00540    35300301              STW,3    BANK#             NO
     1514   01 00541    31700002 A            CW,7     2
     1515   01 00542    68300578              BCR,3    ALLSET-1
     1516   01 00543    20702000 A            AI,7     X'2000'           ADD 8K TO INDEX
     1517   01 00544    65600545              BIR,6    %+1
     1518   01 00545    68000506              B        NXT8K             NO, TRY NEXT BANK
     1519                            *
     1520                            *
     1521   01 00546    00000000 A   FLGODEV  DATA     0
     1522   01 00547    00000000 A   STATEMP0 DATA     0
     1523   01 00548    00000000 A   STATEMP1 DATA     0
     1524                            *
     1525   01 00549                 STAT0ERR RES      0
     1526   01 00549    488011B5              EOR,8    =X'20000'         LPBW CAUSE OF STATUS READ ERROR *A01
     1527   01 0054A    31800547              CW,8     STATEMP0                                          *A01
     1528   01 0054B    68300516              BCR,3    STATOK-9          OK IF SO                        *A01
     1529   01 0054C    22900000 A            PRINT    MSG53,MSG53END    PRINT MSG
            01 0054D    359001A4
            01 0054E    2290113C N
                        04001133
     1530   01 00550    32500007 A            LW,5     7
     1531   01 00551    6AF00274              BAL,15   STATUS            GET STATUS
     1532   01 00552    22900000 A            PRINT    STSMSG,STSMSGE
            01 00553    359001A4
            01 00554    22900F65 N
                        04000F28
     1533   01 00556    68000561              B        RPRTADR
     1534   01 00557                 STAT1ERR RES      0
     1535   01 00557    22900000 A            PRINT    MSG54,MSG54END    PRINT MSG
            01 00558    359001A4
            01 00559    22901145 N
                        0400113C
     1536   01 0055B    32500007 A            LW,5     7
     1537   01 0055C    6AF00274              BAL,15   STATUS            GET STATUS
     1538   01 0055D    22900000 A            PRINT    STSMSG,STSMSGE
            01 0055E    359001A4
            01 0055F    22900F65 N
                        04000F28
     1539   01 00561    32800007 A   RPRTADR  LW,8     7
     1540   01 00562    46EE0000 A            XW,14    0,7               RESTORE LOC
     1541   01 00563    6AF00320              BAL,15   EBCDIC            CONVRT ADRS
     1542   01 00564    4B8011A1              AND,8    =X'40404000'      **
     1543   01 00565    15801146              STD,8    STATADR
     1544   01 00566    22900000 A            PRINT    STATADR,STEND     REPORT
            01 00567    359001A4
            01 00568    22901150 N
                        04001146
     1545   01 0056A    22E00005 A            LI,14    5
     1546   01 0056B    05000570              CAL2     STATMODS
     1547   01 0056C    6C000000 A            RD,0     0                 SS3 SET
     1548   01 0056D    6920056F              BCS,2    %+2               YES
     1549   01 0056E    2E000000 A            WAIT                       NO,WAIT
     1550                            *
     1551                            * ERROR WAIT - STATUS READ ERROR
     1552                            *
     1553   01 0056F    680004E0              B        BEGIN             REPEAT
     1554                            *
     1555                            *
     1556   01 00570    03A0C46B A   STATMODS DATA     X'03A0C46B'
     1557   01 00571    06B0C46B A            DATA     X'06B0C46B'
     1558   01 00572    13B0C46B A            DATA     X'13B0C46B'
     1559   01 00573    20B0C46B A            DATA     X'20B0C46B'
     1560   01 00574    27B0C46B A            DATA     X'27B0C46B'
     1561                            *
     1562                            *
     1563                            *
     1564                            *
     1565                            *
     1566                            *
     1567                            * INITIALIZATION ROUTINE AFTER MEMORY CONFIGURATION SET UP
     1568                            *
     1569   01 00575    00000000 A   ERRCNT   DATA     0
     1570   01 00576    00000000 A   ADRFLG   DATA     0
     1571   01 00577    000FE000 A   FE000    DATA     X'FE000'
     1572                            *
     1573                            *
     1574   01 00578    22100000 A            LI,1     0                 INITIAL LOWLIM
     1575                            *
     1576                            *
     1577   01 00579    228FFFFF A   ALLSET   LI,8     -1
     1578   01 0057A    3580026E              STW,8    DATAFLG
     1579   01 0057B    21400000 A            CI,4     0
     1580   01 0057C    6830057E              BCR,3    %+2
     1581   01 0057D    22100200 A            LI,1     X'200'            SKIP 1ST  512 LOCS
     1582   01 0057E    22800000 A            LI,8     0
     1583   01 0057F    358005C8              STW,8    PASS#
     1584   01 00580                 CYCLE    RES      0
     1585   01 00580    331005C8              MTW,1    PASS#
     1586   01 00581    328005C8              LW,8     PASS#
     1587   01 00582    6AF00320              BAL,15   EBCDIC            CONVERT
     1588   01 00583    35900F04              STW,9    PASSCNT           STORE
     1589   01 00584    22900000 A            PRINT    BPASS,PASSEND     PRINT MESSAGE
            01 00585    359001A4
            01 00586    22900F05 N
                        04000EFF
     1590   01 00588    22800000 A            LI,8      0
     1591   01 00589    35800B91              STW,8    SPFLG
     1592   01 0058A    35800270              STW,8    PARTYFLG
     1593   01 0058B    35800A17              STW,8    DATAERR
     1594   01 0058C    228FFFFF A   PARTYGO  LI,8     -1
     1595   01 0058D    358005C9              STW,8    PATFLG
     1596   01 0058E    35800C6B              STW,8    SWDFLG
     1597   01 0058F    6D000040 A            WD,0     X'40'
     1598   01 00590    22800000 A            LI,8     0
     1599   01 00591    3580026F              STW,8    INTRLFLG
     1600   01 00592    3580097E              STW,8    SAFLAG
     1601   01 00593    35800AB6              STW,8    TAGALT
     1602   01 00594    35800576              STW,8    ADRFLG
     1603   01 00595    35800575              STW,8    ERRCNT
     1604   01 00596    35800665              STW,8    ADRECFLG
     1605   01 00597    22300000 A            LI,3     0                 PAT POINTER
     1606   01 00598    2280025C              LI,8     PATEND
     1607   01 00599    208FFDB7 N            AI,8     -PATTERN-1
     1608   01 0059A    4B8011B6              AND,8    =X'7FF'
     1609   01 0059B    358005C7              STW,8    TOTALPAT          STORE TOTAL PATTERN #
     1610   01 0059C    6D000040 A   SMEAR    WD,0     X'40'             RESET ALARM
     1611   01 0059D    330005C9              MTW,0    PATFLG            PAT FLAG UP
     1612   01 0059E    693005A2              BCS,3    %+4               NO
     1613   01 0059F    670005D0              EXU      GETCOMP           YES, COMPL. OF TST PATTERN
     1614   01 005A0    20AFFFFF A            AI,10    -1
     1615   01 005A1    680005A3              B        %+2
     1616   01 005A2    670005CF              EXU      GETPAT
     1617   01 005A3    32500001 A            LW,5     1                 R5 = LOWLIMT
     1618   01 005A4    326005A4              LW,6     %
     1619   01 005A5    4B600577              AND,6    FE000             R6 = CURREN 8K
     1620   01 005A6    32700005 A   AREA     LW,7     5
     1621   01 005A7    4B700577              AND,7    FE000             8K BEING SMEARED = R6
     1622   01 005A8    31700006 A            CW,7     6
     1623   01 005A9    693005AE              BCS,3    STR               IS IT RESIDE AREA
     1624   01 005AA    4B5011B0              AND,5    =X'FFFFFF00'
     1625   01 005AB    3050026B              AW,5     8K                YES
     1626   01 005AC    31500002 A            CW,5     2
     1627   01 005AD    692005B3              BCS,2    FULL
     1628   01 005AE    35AA0000 A   STR      STW,10   0,5
     1629   01 005AF    31500002 A            CW,5     2                 LAST LOC
     1630   01 005B0    683005B3              BCR,3    FULL              YES
     1631   01 005B1    20500001 A            AI,5     1
     1632   01 005B2    680005A6              B        AREA              NO TRY NEXT LOC
     1633                            *
     1634                            * FETCH ALL LOCATIONS AND COMPARE WITH TEST PATTERN
     1635                            *
     1636   01 005B3    32500001 A   FULL     LW,5     1                 SET CNTR = TEST LOW
     1637   01 005B4    32700005 A   NXTLOC   LW,7     5
     1638   01 005B5    4B700577              AND,7    FE000             R6 = 8K BEING CHECKED
     1639   01 005B6    31700006 A            CW,7     6
     1640   01 005B7    693005BC              BCS,3    FETCH
     1641   01 005B8    4B5011B0              AND,5    =X'FFFFFF00'
     1642   01 005B9    3050026B              AW,5     8K                YES
     1643   01 005BA    31500002 A            CW,5     2
     1644   01 005BB    692005D5              BCS,2    PATDONE
     1645   01 005BC    328A0000 A   FETCH    LW,8     0,5               NO. THEN FETCH DATA OF LOC
     1646   01 005BD    3180000A A            CW,8     10                DATA OK ?
     1647   01 005BE    683005D1              BCR,3    LOC:OK            YES
     1648   01 005BF    32BA0000 A            LW,11    0,5
     1649   01 005C0    6D000041 A            WD,0     X'41'             NO, TURN ON THE ALARM
     1650   01 005C1    6C000000 A            RD,0     0                 READ SENSE SW
     1651   01 005C2    692005C4              BCS,2    %+2               SS3 SET
     1652   01 005C3    2E000000 A            WAIT                       NO
     1653                            *
     1654                            * ERROR WAIT  - SET SS1 IN ORDER TO LOOP ON SAME PATTERN. OTHERWIZE
     1655                            * CLEAR WAIT TO CONTINUE
     1656                            *
     1657   01 005C4    6C000000 A            RD,0     0                 READ SENSE SW AGAIN
     1658   01 005C5    6980059C              BCS,8    SMEAR             LOOP ON SAME PAT IF SS1 SET
     1659   01 005C6    680005E7              B        ERROR             IF SS1 RESET GO REPORT THE ERROR
     1660                            *
     1661   01 005C7    00000000 A   TOTALPAT DATA     0
     1662   01 005C8    00000000 A   PASS#    DATA     0
     1663   01 005C9    00000000 A   PATFLG   DATA     0
     1664   01 005CA    00000000 A   FA       DATA     0
     1665                            *
     1666   01 005CB    22300000 A   LASTPAT  LI,3     0
     1667   01 005CC    331005C9              MTW,1    PATFLG            FLAG UP
     1668   01 005CD    6830059C              BCR,3    SMEAR             NO,TEST COMPL. OF ALL PATTERNS
     1669   01 005CE    680005DB              B        DATAOK            YES
     1670                            *
     1671   01 005CF    32A60248     GETPAT   LW,10    PATTERN,3
     1672   01 005D0    3AA60248     GETCOMP  LCW,10   PATTERN,3
     1673   01 005D1    31500002 A   LOC:OK   CW,5     2                 LAST LOC CHECKED ?
     1674   01 005D2    683005D5              BCR,3    %+3
     1675   01 005D3    655005D4              BIR,5    %+1
     1676   01 005D4    680005B4              B        NXTLOC
     1677   01 005D5                 PATDONE  RES      0
     1678   01 005D5    313005C7              CW,3     TOTALPAT          LAST PATTERN
     1679   01 005D6    683005CB              BCR,3    LASTPAT           YES
     1680   01 005D7    6C000000 A            RD,0     0                 SS1 SET
     1681   01 005D8    6980059C              BCS,8    SMEAR             YES, TRY SAME PAT AGAIN
     1682   01 005D9    20300001 A            AI,3     1
     1683   01 005DA    6800059C              B        SMEAR             NO, TRY NEXT PATTERN
     1684                            *
     1685   01 005DB    3310026E     DATAOK   MTW,1    DATAFLG           DATA CHECK PHASE ?
     1686   01 005DC    692005E2              BCS,2    PCHK              NO
     1687   01 005DD    22900000 A            PRINT    MSG9,MSG9END      YES
            01 005DE    359001A4
            01 005DF    22900EFF N
                        04000EF9
     1688   01 005E1    68000AB8              B        ADRTST
     1689   01 005E2                 PCHK     RES      0
     1690   01 005E2    22900000 A            PRINT    MSG10,MSG10END    PRINT PARITY CHECK SUCCESS
            01 005E3    359001A4
            01 005E4    22900F0B N
                        04000F05
     1691   01 005E6    68000B00              B        ADRLTST           GO TO ADR LINE TEST
     1692                            *
     1693                            * ERROR ANALYSIS ROUTINE.  R5 = FA  R8 = BAD DATA   R10 = TEST PATTERN
     1694                            *
     1695   01 005E7    355005CA     ERROR    STW,5    FA                STORE FAILING ADDR.
     1696   01 005E8    6D000041 A            WD,0     X'41'             TURN ON THE ALARM
     1697   01 005E9    3300026E              MTW,0    DATAFLG           DATA PHASE
     1698   01 005EA    691005EF              BCS,1    DATAEROR
     1699   01 005EB    33000270              MTW,0    PARTYFLG          NO, THEN PARITY PHASE
     1700   01 005EC    691005F2              BCS,1    PARTYERR          YES
     1701   01 005ED    32900F18              LW,9     ADRMSG            NO, THEREFORE ADDR TEST PHASE
     1702   01 005EE    680005F3              B        PARTYERR+1
     1703   01 005EF    32900F16     DATAEROR LW,9     DATAMSG            NOTE AS DATA ERROR
     1704   01 005F0    33F00A17              MTW,-1   DATAERR
     1705   01 005F1    680005F3              B        %+2
     1706   01 005F2    32900F17     PARTYERR LW,9     PARTYMSG          NOTE AS PARITY ERROR
     1707   01 005F3    35900F0C              STW,9    ERRTYP            STORE TO REPORT
     1708   01 005F4    328005CA              LW,8     FA
     1709   01 005F5    6AF00320              BAL,15   EBCDIC            CONVERT FA
     1710   01 005F6    15800F12              STD,8    FAMSG
     1711   01 005F7    22900000 A            PRINT    MSG11,MSG11END    PRINT MESSAG
            01 005F8    359001A4
            01 005F9    22900F16 N
                        04000F0B
     1712   01 005FB    33000576              MTW,0    ADRFLG            ADR TEST ?
     1713   01 005FC    6930060A              BCS,3    STAT              YES
     1714   01 005FD    33000270              MTW,0    PARTYFLG          NO, THEN PARITY TEST
     1715   01 005FE    68300600              BCR,3    %+2               YES
     1716   01 005FF    6800060A              B        STAT              NO, THEN SHOULD BE ADR TEST
     1717   01 00600    328A0000 A            LW,8     0,5               FETCH BAD DATA AGAIN
     1718   01 00601    6AF00320              BAL,15   EBCDIC            CONVERT
     1719   01 00602    15800F1E              STD,8    RECEIV            STORE TO REPORT
     1720   01 00603    3280000A A            LW,8     10                FECTCH TEST PATTERN
     1721   01 00604    6AF00320              BAL,15   EBCDIC            CONVERT
     1722   01 00605    15800F26              STD,8    EXPECT            STORE
     1723   01 00606    22900000 A            PRINT    MSG12,MSG12END    PRINT MSG
            01 00607    359001A4
            01 00608    22900F28 N
                        04000F19
     1724   01 0060A    6AF00274     STAT     BAL,15   STATUS            PREPARE STATUS
     1725   01 0060B    22900000 A            PRINT    STSMSG,STSMSGE    PRINT STATUS
            01 0060C    359001A4
            01 0060D    22900F65 N
                        04000F28
     1726   01 0060F    33000576              MTW,0    ADRFLG
     1727   01 00610    69300AF0              BCS,3    ADRTSTRT          YES, RETURN TO ADR TST ROUTINE
     1728   01 00611    33000270              MTW,0    PARTYFLG          PARITY TEST
     1729   01 00612    69300BDA              BCS,3    PRTYTSTR          YES, RETURN TO PARITY TST ROUTINE
     1730                            *
     1731                            * RE-EXAMINE DETECTED PATTERN AGAIN
     1732                            *
     1733   01 00613    35AA0000 A            STW,10   0,5               STORE PATTERN IN FAILING LOC
     1734   01 00614    328A0000 A            LW,8     0,5               FETCH IT
     1735   01 00615    3180000A A            CW,8     10                IS IT OK ?
     1736   01 00616    6930061E              BCS,3    ANALYZE
     1737   01 00617    22900000 A            PRINT    MSG13,MSG13END    PRINT INTERMITTENT ERROR
            01 00618    359001A4
            01 00619    22900F70 N
                        04000F65
     1738   01 0061B    2E000000 A            WAIT
     1739   01 0061C    68000579              B        ALLSET            GO TRY AGAIN
     1740                            *
     1741                            * PREPARE TO ANALYZE THE DETECTED ERROR
     1742                            *
     1743                            *
     1744                            *
     1745   01 0061D    00000000 A   TOTALTST DATA     0                 TOTAL # OF TESTS
     1746   01 0061E    2280000B A   ANALYZE  LI,8     LASTEST-TESTS
     1747   01 0061F    3580061D              STW,8    TOTALTST
     1748   01 00620    223FFFFF A            LI,3     -1                ININTIALIZ
     1749   01 00621    022000F0 A            LCI      15
     1750   01 00622    2B000638              STM,0    COMTEMR
     1751   01 00623    022000F0 A   COMUTOR  LCI      15
     1752   01 00624    2A000638              LM,0     COMTEMR
     1753   01 00625    325005CA              LW,5     FA
     1754   01 00626    32BA0000 A            LW,11    0,5
     1755   01 00627    20300001 A            AI,3     1
     1756   01 00628    3130061D              CW,3     TOTALTST          LAST TEST
     1757   01 00629    6830062E              BCR,3    DONE
     1758   01 0062A    022000F0 A            LCI      15
     1759   01 0062B    2B000638              STM,0    COMTEMR
     1760   01 0062C    3286025C              LW,8     TESTS,3           GET TST #
     1761   01 0062D    E8000008 A            B        *8                GO TO NEXT TEST
     1762   01 0062E    33000575     DONE     MTW,0    ERRCNT
     1763   01 0062F    69300634              BCS,3    EREPORTD
     1764   01 00630    22900000 A            PRINT    MSG14,MSG14END
            01 00631    359001A4
            01 00632    22900F7C N
                        04000F70
     1765   01 00634    6C000000 A   EREPORTD RD,0     0
     1766   01 00635    69200637              BCS,2    %+2               SS3 SET
     1767   01 00636    2E000000 A            WAIT                       NO
     1768   01 00637    68000579              B        ALLSET            GO REPEAT
     1769                            *
     1770                            *
     1771                                   BOUND      8
     1772   01 00638                 COMTEMR  RES      15
     1773                            *
     1774                            *
     1775                            * ADDRESS RECOGNITION LOGIC TEST
     1776                            *
     1777   01 00647    33000270     TEST0    MTW,0    PARTYFLG          PARITY TEST
     1778   01 00648    6830064A              BCR,3    %+2               NO
     1779   01 00649    68000623              B        COMUTOR           YES
     1780   01 0064A    22700000 A            LI,7     0
     1781   01 0064B    35700666              STW,7    AHBNKFLG
     1782   01 0064C    35700667              STW,7    NOAH2FLG
     1783   01 0064D    227FE001 A   AHBANK   LI,7     -X'1FFF'          -8K
     1784                            *
     1785   01 0064E    33F00665              MTW,-1   ADRECFLG
     1786   01 0064F    22800800 A   NXTAH    LI,8     X'800'
     1787   01 00650    6D801200 A            WD,8     X'1200'           A & E PARITY INTRPT
     1788   01 00651    328A0000 A            LW,8     0,5               ADR RECOG
     1789   01 00652    6800065F              B        AHB2CHK           YES
     1790                            * PARITY INTERRUPT RETURN POINT
     1791   01 00653    6570064F              BIR,7    NXTAH             NO, TRY ALL 8K ADR
     1792   01 00654    22900000 A            PRINT    MSG16,MSG16END
            01 00655    359001A4
            01 00656    22900FA9 N
                        04000F9A
     1793   01 00658    33000666              MTW,0    AHBNKFLG          BANK2 BEING TESTED
     1794   01 00659    69300668              BCS,3    AHCDR             YES, CABLE D/R BAD
     1795   01 0065A    6AF003EF              BAL,15   BANK2ADR          GET STARTING ADR OF 2ND BANK
     1796   01 0065B    69C00677              BCS,12   NOAHBNK2          BRANCH IF NON-EXISTANCE
     1797   01 0065C    32500008 A            LW,5     8
     1798   01 0065D    33F00666              MTW,-1   AHBNKFLG          SET FLG
     1799   01 0065E    6800064D              B        AHBANK
     1800                            *
     1801   01 0065F    33000666     AHB2CHK  MTW,0    AHBNKFLG
     1802   01 00660    6930067A              BCS,3    AHBNK1            AH BANK1 BAD ONLY
     1803   01 00661    33100665     EXITST0  MTW,1    ADRECFLG          RESET FLG
     1804   01 00662    22800800 A            LI,8     X'800'
     1805   01 00663    6D801100 A            WD,8     X'1100'           DISARM & DISABLE PARITY INTRPT
     1806   01 00664    68000623              B        COMUTOR           EXIT THIS TEST
     1807                            *
     1808   01 00665    00000000 A   ADRECFLG DATA     0
     1809   01 00666    00000000 A   AHBNKFLG DATA     0
     1810   01 00667    00000000 A   NOAH2FLG DATA     0
     1811                            *
     1812                            *
     1813   01 00668    22600000 A   AHCDR    LI,6     0
     1814   01 00669    32700303     AHMODCAL LW,7     PORT#             GET PORT#
     1815   01 0066A    25700001 A            SLS,7    1                 XLY BY 2
     1816   01 0066B    22E00002 A            LI,14    2                 2 MODS SUSPECTED
     1817   01 0066C    680E066D              B        %+1,7
     1818   01 0066D    050C0680              CAL2     AHP1,6            PRINT MODULES FOR PORT1
     1819   01 0066E    68000670              B        %+2
     1820   01 0066F    050C0686              CAL2     AHP2,6                              PORT2
     1821   01 00670    68000672              B        %+2
     1822   01 00671    050C068C              CAL2     AHP3,6                              PORT3
     1823   01 00672    68000674              B        %+2
     1824   01 00673    050C0692              CAL2     AHP4,6                              PORT4
     1825   01 00674    33000667              MTW,0    NOAH2FLG          BANK 2 EXITS
     1826   01 00675    69300679              BCS,3    AHBNKMOD          NO
     1827   01 00676    68000661              B        EXITST0           EXIT TEST 0
     1828   01 00677    33F00667     NOAHBNK2 MTW,-1   NOAH2FLG          SET FLG
     1829   01 00678    68000668              B        AHCDR
     1830   01 00679    33100667     AHBNKMOD MTW,1    NOAH2FLG          RESET FLG
     1831   01 0067A    7020040F     AHBNK1   LC       TEMPCC            GET CC FOR BANK2ADR ROUTINE
     1832   01 0067B    6830067F              BCR,3    AHBNKB            BANK B BAD
     1833   01 0067C    22600002 A            LI,6     2                 BANK A BAD
     1834   01 0067D    6800067F              B        %+2
     1835   01 0067E    22600004 A            LI,6     4
     1836   01 0067F    68000669     AHBNKB   B        AHMODCAL          BRANCH & REPOR MODS
     1837                            *
     1838   01 00680    06C0E26B A   AHP1     DATA     X'06C0E26B'       MODULE SLOT # CODE
     1839   01 00681    07B0E26B A            DATA     X'07B0E26B'       MODULE SLOT # CODE
     1840   01 00682    31C0E26B A            DATA     X'31C0E26B'       MODULE SLOT # CODE
     1841   01 00683    07C0E26B A            DATA     X'07C0E26B'       MODULE SLOT # CODE
     1842   01 00684    29C0E26B A            DATA     X'29C0E26B'       MODULE SLOT # CODE
     1843   01 00685    05C0E26B A            DATA     X'05C0E26B'       MODULE SLOT # CODE
     1844                            *
     1845   01 00686    11C0E26B A   AHP2     DATA     X'11C0E26B'       MODULE SLOT # CODE
     1846   01 00687    12B0E26B A            DATA     X'12B0E26B'       MODULE SLOT # CODE
     1847   01 00688    12C0E26B A            DATA     X'12C0E26B'       MODULE SLOT # CODE
     1848   01 00689    20C0E26B A            DATA     X'20C0E26B'       MODULE SLOT # CODE
     1849   01 0068A    18C0E26B A            DATA     X'18C0E26B'       MODULE SLOT # CODE
     1850   01 0068B    10C0E26B A            DATA     X'10C0E26B'       MODULE SLOT # CODE
     1851                            *
     1852   01 0068C    22C0E26B A   AHP3     DATA     X'22C0E26B'       MODULE SLOT # CODE
     1853   01 0068D    21B0E26B A            DATA     X'21B0E26B'       MODULE SLOT # CODE
     1854   01 0068E    23C0E26B A            DATA     X'23C0E26B'       MODULE SLOT # CODE
     1855   01 0068F    15C0E26B A            DATA     X'15C0E26B'       MODULE SLOT # CODE
     1856   01 00690    13C0E26B A            DATA     X'13C0E26B'       MODULE SLOT # CODE
     1857   01 00691    21C0E26B A            DATA     X'21C0E26B'       MODULE SLOT # CODE
     1858                            *
     1859   01 00692    27C0E26B A   AHP4     DATA     X'27C0E26B'       MODULE SLOT # CODE
     1860   01 00693    26B0E26B A            DATA     X'26B0E26B'       MODULE SLOT # CODE
     1861   01 00694    28C0E26B A            DATA     X'28C0E26B'       MODULE SLOT # CODE
     1862   01 00695    04C0E26B A            DATA     X'04C0E26B'       MODULE SLOT # CODE
     1863   01 00696    02C0E26B A            DATA     X'02C0E26B'       MODULE SLOT # CODE
     1864   01 00697    26C0E26B A            DATA     X'26C0E26B'       MODULE SLOT # CODE
     1865                            *
     1866                            * TEST1 : DATA PATH ERROR TEST
     1867                            *
     1868   01 00698    6AF003D0     TEST1    BAL,15   FA:GRUP
     1869   01 00699    3190026A              CW,9     H1FFF             < 8K FAIL
     1870   01 0069A    691006DE              BCS,1    EXITST            YES, EXIT TEST1
     1871   01 0069B    6AF0036C              BAL,15   CNT:BITS
     1872   01 0069C    21600001 A            CI,6     1                 ONLY ONE BIT BAD
     1873   01 0069D    693006DE              BCS,3    EXITST            NO, EXIT
     1874   01 0069E    22E00001 A            LI,14    1
     1875   01 0069F    6AF00348              BAL,15   SAVREGS           YES, SAVE BAD BIT # & ALL REGS
     1876   01 006A0    2570007E A            SLS,7    -2                SET POINTER TO BAD HB
     1877   01 006A1    22900000 A            PRINT    MSG17,MSG17END
            01 006A2    359001A4
            01 006A3    22900FB3 N
                        04000FA9
     1878   01 006A5    050E0700              CAL2     BT36,7            REPORT BT36
     1879   01 006A6    33000383              MTW,0    BADBIT
     1880   01 006A7    693006A9              BCS,3    %+2               NO
     1881   01 006A8    05000708              CAL2     IT25              YES, RPORT IT25
     1882   01 006A9    6AF003EF              BAL,15   BANK2ADR          ONE BANK ONLY BAD
     1883   01 006AA    698006B0              BCS,8    NO2NDBNK          BRANCH IF 2ND BANK NOT IN RANGE *A01
     1884   01 006AB    35AE0000 A            STW,10   0,7                                               *A01
     1885   01 006AC    328006AC              LW,8     %                 DUMMY INSTR.                    *A01
     1886   01 006AD    328E0000 A            LW,8     0,7               FETCH TEST LOCATION             *A01
     1887   01 006AE    3180000A A            CW,8     10                DATA OF 2ND BANK OK             *A01
     1888   01 006AF    683006C6              BCR,3    AT60OK+2          YES                             *A01
     1889   01 006B0    32700383     NO2NDBNK LW,7     BADBIT            NO                              *A01
     1890   01 006B1    32600303              LW,6     PORT#
     1891   01 006B2    2560007F A            SLS,6    -1                S                               *A01
     1892   01 006B3    21600004 A            CI,6     4                  E                              *A01
     1893   01 006B4    692006B7              BCS,2    %+3                 T                             *A01
     1894   01 006B5    22600003 A            LI,6     3                      B                          *A01
     1895   01 006B6    680006BB              B        %+5                     A                         *A01
     1896   01 006B7    2560007C A            SLS,6    -4                       N                        *A01
     1897   01 006B8    21600004 A            CI,6     4                          K                      *A01
     1898   01 006B9    693006BB              BCS,3    %+2                           N                   *A01
     1899   01 006BA    22300003 A            LI,3     3                              O.                 *A01
     1900   01 006BB    2170000D A            CI,7     13                FAILURE IN BITS 0-13
     1901   01 006BC    682006C1              BCR,2    AT60:013          YES
     1902   01 006BD    2170001B A            CI,7     27                NO, THEN BAD BIT IN 14-27
     1903   01 006BE    682006C3              BCR,2    AT601427          YES
     1904   01 006BF    050C0711              CAL2     AT60+8,6          NO, IN 28-31
     1905   01 006C0    680006C4              B        AT60OK
     1906   01 006C1    050C0709     AT60:013 CAL2     AT60,6            REPORT MODULE
     1907   01 006C2    680006C4              B        %+2
     1908   01 006C3    050C070D     AT601427 CAL2     AT60+4,6          REPORT MODULE
     1909   01 006C4    7020040F     AT60OK   LC       TEMPCC            2ND BANK EXIT
     1910   01 006C5    688006DE              BCR,8    EXITST            YES, EXIT TEST1
     1911   01 006C6    32700383              LW,7     BADBIT            NO,  GET BAD BIT
     1912   01 006C7    2570007D A            SLS,7    -3                                                *A01
     1913   01 006C8    7020040F              LC       TEMPCC            BANK A BAD
     1914   01 006C9    693006CC              BCS,3    BANKB:T1          NO                              *A01
     1915   01 006CA    050E06E4              CAL2     FT63:BA,7         REPORT MODULE
     1916   01 006CB    680006CD              B        %+2
     1917   01 006CC    050E06E0     BANKB:T1 CAL2     FT63:BB,7         REPORT MODULE
     1918   01 006CD    25700001 A            SLS,7    1                                                 *A01
     1919   01 006CE    050E06E8              CAL2     FT65:4,7          REPORT 3 MODULES
     1920   01 006CF    050E06EC              CAL2     FT65:4+4,7                                        *A01
     1921   01 006D0    050E06F0              CAL2     FT65:4+8,7                                        *A01
     1922   01 006D1    32700383              LW,7     BADBIT            NO,  GET BAD BIT
     1923   01 006D2    2170001E A            CI,7     30                BAD BIT IS 30 OR 31
     1924   01 006D3    681006D6              BCR,1    %+3               NO
     1925   01 006D4    050C06F4              CAL2     T3031,6           YES
     1926   01 006D5    680006DE              B        EXITST
     1927   01 006D6    35600353              STW,6    TEMPR7
     1928   01 006D7    6AF0039C              BAL,15   BAD:BYTE
     1929   01 006D8    32700353              LW,7     TEMPR7
     1930   01 006D9    21600002 A            CI,6     2                 FAILURE IN BYTE 2
     1931   01 006DA    683006DD              BCR,3    %+3
     1932   01 006DB    050E06FC              CAL2     TREST,7           REPORT TERMINATOR SLOT
     1933   01 006DC    680006DE              B        %+2
     1934   01 006DD    050E06F8              CAL2     TBYTE2,7          REPORT TERMINATOR SLOT
     1935                            *
     1936                            *
     1937   01 006DE    68000623     EXITST   B        COMUTOR           EXIT CURRENT TEST
     1938   01 006DF    68000623              B        COMUTOR           EXIT TEST
     1939                            *
     1940                            *
     1941   01 006E0    04A0E26B A   FT63:BB  DATA     X'04A0E26B'       MODULE SLOT CODE                *A01
     1942   01 006E1    04B0E26B A            DATA     X'04B0E26B'       MODULE SLOT CODE
     1943   01 006E2    05A0E26B A            DATA     X'05A0E26B'       MODULE SLOT CODE
     1944   01 006E3    05B0E26B A            DATA     X'05B0E26B'       MODULE SLOT CODE
     1945   01 006E4    29A0E26B A   FT63:BA  DATA     X'29A0E26B'       MODULE SLOT CODE                *A01
     1946   01 006E5    29B0E26B A            DATA     X'29B0E26B'       MODULE SLOT CODE
     1947   01 006E6    28A0E26B A            DATA     X'28A0E26B'       MODULE SLOT CODE
     1948   01 006E7    28B0E26B A            DATA     X'28B0E26B'       MODULE SLOT CODE
     1949                            *
     1950   01 006E8    29A0C46B A   FT65:4   DATA     X'29A0C46B'       MODULE SLOT # CODE
     1951   01 006E9    28A0C46B A            DATA     X'28A0C46B'       MODULE SLOT # CODE              *A01
     1952   01 006EA    27A0C46B A            DATA     X'27A0C46B'       MODULE SLOT # CODE              *A01
     1953   01 006EB    26A0C46B A            DATA     X'26A0C46B'       MODULE SLOT # CODE              *A01
     1954   01 006EC    11A0C46B A            DATA     X'11A0C46B'       MODULE SLOT # CODE              *A01
     1955   01 006ED    10A0C46B A            DATA     X'10A0C46B'       MODULE SLOT # CODE              *A01
     1956   01 006EE    09A0C46B A            DATA     X'09A0C46B'       MODULE SLOT # CODE              *A01
     1957   01 006EF    08A0C46B A            DATA     X'08A0C46B'       MODULE SLOT # CODE              *A01
     1958   01 006F0    07A0C46B A            DATA     X'07A0C46B'       MODULE SLOT # CODE              *A01
     1959   01 006F1    06A0C46B A            DATA     X'06A0C46B'       MODULE SLOT # CODE              *A01
     1960   01 006F2    05A0C46B A            DATA     X'05A0C46B'       MODULE SLOT # CODE              *A01
     1961   01 006F3    04A0C46B A            DATA     X'04A0C46B'       MODULE SLOT # CODE              *A01
     1962                            *
     1963                            *
     1964   01 006F4    31C0E2E3 A   T3031    DATA     X'31C0E2E3'       TERMINATOR SLOT CODE
     1965   01 006F5    20C0E2E3 A            DATA     X'20C0E2E3'       TERMINATOR SLOT CODE
     1966   01 006F6    13C0E2E3 A            DATA     X'13C0E2E3'       TERMINATOR SLOT CODE
     1967   01 006F7    02C0E2E3 A            DATA     X'02C0E2E3'       TERMINATOR SLOT CODE
     1968   01 006F8    21A0E2E3 A   TBYTE2   DATA     X'21A0E2E3'       TERMINATOR SLOT CODE
     1969   01 006F9    19A0E2E3 A            DATA     X'19A0E2E3'       TERMINATOR SLOT CODE
     1970   01 006FA    14A0E2E3 A            DATA     X'14A0E2E3'       TERMINATOR SLOT CODE
     1971   01 006FB    12A0E2E3 A            DATA     X'12A0E2E3'       TERMINATOR SLOT CODE
     1972   01 006FC    29C0E2E3 A   TREST    DATA     X'29C0E2E3'       TERMINATOR SLOT CODE
     1973   01 006FD    18C0E2E3 A            DATA     X'18C0E2E3'       TERMINATOR SLOT CODE
     1974   01 006FE    15C0E2E3 A            DATA     X'15C0E2E3'       TERMINATOR SLOT CODE
     1975   01 006FF    04C0E2E3 A            DATA     X'04C0E2E3'       TERMINATOR SLOT CODE
     1976   01 00700    12A0E26B A   BT36     DATA     X'12A0E26B'
     1977   01 00701    14A0E26B A            DATA     X'14A0E26B'
     1978   01 00702    19A0E26B A            DATA     X'19A0E26B'
     1979   01 00703    21A0E26B A            DATA     X'21A0E26B'
     1980   01 00704    13B0E26B A            DATA     X'13B0E26B'
     1981   01 00705    23B0E26B A            DATA     X'23B0E26B'
     1982   01 00706    27B0E26B A            DATA     X'27B0E26B'
     1983   01 00707    31B0E26B A            DATA     X'31B0E26B'
     1984                            *
     1985   01 00708    06B0C46B A   IT25     DATA     X'06B0C46B'       MODULE SLOT # CODE
     1986                            *
     1987                            *
     1988   01 00709    09B0E26B A   AT60     DATA     X'09B0E26B'
     1989   01 0070A    14B0E26B A            DATA     X'14B0E26B'
     1990   01 0070B    19B0E26B A            DATA     X'19B0E26B'
     1991   01 0070C    24B0E26B A            DATA     X'24B0E26B'
     1992   01 0070D    10A0E26B A            DATA     X'10A0E26B'
     1993   01 0070E    15A0E26B A            DATA     X'15A0E26B'
     1994   01 0070F    18A0E26B A            DATA     X'18A0E26B'
     1995   01 00710    23A0E26B A            DATA     X'23A0E26B'
     1996   01 00711    08A0E26B A            DATA     X'08A0E26B'
     1997   01 00712    13A0E26B A            DATA     X'13A0E26B'
     1998   01 00713    20A0E26B A            DATA     X'20A0E26B'
     1999   01 00714    25A0E26B A            DATA     X'25A0E26B'
     2000                            *
     2001                            *
     2002                            *
     2003                            * TEST TO ANALYZE CONTROL FUNCTION LOGIC ELEMENTS
     2004                            *
     2005                            *
     2006   01 00715    32BA0000 A   TEST2    LW,11    0,5
     2007   01 00716    6AF0036C              BAL,15   CNT:BITS
     2008   01 00717    21600020 A            CI,6     32                32 BITS FAIL
     2009   01 00718    69300623              BCS,3    COMUTOR           NO,EXIT
     2010   01 00719    6AF003D0              BAL,15   FA:GRUP           YES
     2011   01 0071A    21901FFF A           CI,9      X'1FFF'           8K OR MORE FAIL
     2012   01 0071B    69100623              BCS,1    COMUTOR           NO, EXIT
     2013   01 0071C    22900000 A            PRINT    MSG51,MSG51END    PRINT ERROR MSG
            01 0071D    359001A4
            01 0071E    2290112A N
                        0400111D
     2014   01 00720    22E0000A A            LI,14    10
     2015   01 00721    05000724              CAL2     CONTRL
     2016   01 00722    0500072E              CAL2     CONTRL+10
     2017   01 00723    680006DE              B        EXITST            EXIT TEST
     2018                            *
     2019                            *
     2020   01 00724    11A0E26B A   CONTRL   DATA     X'11A0E26B'       MODULE SLOT # CODE
     2021   01 00725    06B0E26B A            DATA     X'06B0E26B'       MODULE SLOT # CODE
     2022   01 00726    11B0E26B A            DATA     X'11B0E26B'       MODULE SLOT # CODE
     2023   01 00727    27B0E26B A            DATA     X'27B0E26B'       MODULE SLOT # CODE
     2024   01 00728    22B0C46B A            DATA     X'22B0C46B'       MODULE SLOT # CODE
     2025   01 00729    03A0C46B A            DATA     X'03A0C46B'       MODULE SLOT # CODE
     2026   01 0072A    16A0C46B A            DATA     X'16A0C46B'       MODULE SLOT # CODE
     2027   01 0072B    18A0C46B A            DATA     X'18A0C46B'       MODULE SLOT # CODE
     2028   01 0072C    19A0C46B A            DATA     X'19A0C46B'       MODULE SLOT # CODE
     2029   01 0072D    20A0C46B A            DATA     X'20A0C46B'       MODULE SLOT # CODE
     2030   01 0072E    28A0C46B A            DATA     X'28A0C46B'       MODULE SLOT # CODE
     2031   01 0072F    29A0C46B A            DATA     X'29A0C46B'       MODULE SLOT # CODE
     2032   01 00730    03B0C46B A            DATA     X'03B0C46B'       MODULE SLOT # CODE
     2033   01 00731    04B0C46B A            DATA     X'04B0C46B'       MODULE SLOT # CODE
     2034   01 00732    05B0C46B A            DATA     X'05B0C46B'       MODULE SLOT # CODE
     2035   01 00733    10B0C46B A            DATA     X'10B0C46B'       MODULE SLOT # CODE
     2036   01 00734    18B0C46B A            DATA     X'18B0C46B'       MODULE SLOT # CODE
     2037   01 00735    20B0C46B A            DATA     X'20B0C46B'       MODULE SLOT # CODE
     2038   01 00736    24B0C46B A            DATA     X'24B0C46B'       MODULE SLOT # CODE
     2039   01 00737    27B0C46B A            DATA     X'27B0C46B'       MODULE SLOT # CODE
     2040                            *
     2041                            *
     2042                            *
     2043                            *
     2044                            * TEST 3: DIAGNOSIS FOR ANY FAULTY YVS
     2045                            *
     2046   01 00738    22800000 A   TEST3    LI,8     0
     2047   01 00739    3580077C              STW,8    YVPRFLAG          RESET FLG
     2048   01 0073A    6AF003D0              BAL,15   FA:GRUP
     2049   01 0073B    21800080 A            CI,8     X'80'             X'80' LOC BAD
     2050   01 0073C    68300740              BCR,3    ERRTST3           YES
     2051   01 0073D    21800200 A            CI,8     X'200'            NO, THEN X'200' FAIL
     2052   01 0073E    6830077D              BCR,3    YVPRL                YES
     2053   01 0073F    680006DE              B        EXITST                NO, EXIT
     2054                            *
     2055   01 00740    6AF0036C     ERRTST3  BAL,15   CNT:BITS
     2056   01 00741    21600010 A            CI,6     16                ALL BITS OF A BMU BAD
     2057   01 00742    6830077E              BCR,3    ALLTST3           YES
     2058   01 00743    21600001 A            CI,6     1                 NO, THEN ONE BIT BAD
     2059   01 00744    68300792              BCR,3    YVLOPEN              YES, REPORT OPEN Y-LINE
     2060   01 00745    21600002 A   YVSW     CI,6     2                 2 BITS BAD
     2061   01 00746    693006DE              BCS,3    EXITST            NO, EXIT
     2062                            *
     2063                            * FIND TWO ADJACENT ODD OR EVEN FAILING BITS
     2064                            *
     2065   01 00747    6AF003B2              BAL,15   BAD:HW            FIND FAILING HW
     2066   01 00748    D29C0005 A            LH,9     *5,6              GET BAD HW DaTA
     2067   01 00749    499011B7              OR,9     =X'FFFF0000'
     2068   01 0074A    4890000A A            EOR,9    10                R9 = BAD 2 BITS
     2069   01 0074B    25900010 A            SLS,9    16                MOVE HW FOR TEST
     2070   01 0074C    227FFFF0 A            LI,7     -16               HW BITS CNTR
     2071   01 0074D    22800000 A            LI,8     0
     2072   01 0074E    25800101 A   NXTBITS3 SLD,8    1
     2073   01 0074F    21800005 A            CI,8     5                 THIS 2 ADJCENT ODD OR EVEN BAD
     2074   01 00750    68300754              BCR,3    YVSBAD            YES
     2075   01 00751    6570074E              BIR,7    NXTBITS3          NO, TRY NEXT 2 BITS
     2076   01 00752    2E000000 A            WAIT
     2077                            *
     2078                            * UNUSUAL SYMPTOM;  CLEAR WAIT TO CONTINUE
     2079                            *
     2080   01 00753    680006DE              B        EXITST
     2081   01 00754    33000270     YVSBAD   MTW,0    PARTYFLG          PARITY TEST
     2082   01 00755    68300758              BCR,3    %+3               NO
     2083   01 00756    22E00001 A            LI,14    1                 YES
     2084   01 00757    68000759              B        %+2
     2085   01 00758    22E00002 A            LI,14    2
     2086   01 00759    22900000 A            PRINT    MSG18,MSG18END    PRINT MSG #18
            01 0075A    359001A4
            01 0075B    22900FBA N
                        04000FB3
     2087   01 0075D    25600001 A            SLS,6    1                 MOD POINTER
     2088   01 0075E    22802000 A            LI,8     X'2000'
     2089   01 0075F    4B800005 A            AND,8    5                 BIT 2 OF FA ON
     2090   01 00760    6830076D              BCR,3    BIT2OFF3          NO
     2091   01 00761    22800200 A            LI,8     X'200'            YES
     2092   01 00762    4B800005 A            AND,8    5                 BIT 6 ON
     2093   01 00763    6830076A              BCR,3    BIT6OFF3          NO
     2094   01 00764    217FFFFA A            CI,7     -6                FAILURE IN BITS 0-10 OF HW
     2095   01 00765    68200768              BCR,2    J8                YES
     2096   01 00766    050C079A     J10      CAL2     YVS10,6           NO,REPORT MOD
     2097   01 00767    68000769              B        %+2
     2098   01 00768    050C079E     J8       CAL2     YVS8,6
     2099   01 00769    68000779              B        ONEYMOD
     2100   01 0076A    217FFFFA A   BIT6OFF3 CI,7     -6                FAIL IN 0-10
     2101   01 0076B    68200766              BCR,2    J10               YES
     2102   01 0076C    68000768              B        J8                NO
     2103   01 0076D    22800200 A   BIT2OFF3 LI,8     X'200'
     2104   01 0076E    4B800005 A            AND,8    5                 BIT 6 OF FA ON
     2105   01 0076F    68300776              BCR,3    BIT26OFF          NO
     2106   01 00770    217FFFFA A            CI,7     -6                YES, FAIL IN BITS 0-10
     2107   01 00771    68200774              BCR,2    J12                    YES
     2108   01 00772    050C07A2     J14      CAL2     YVS14,6                 NO, REPORT MOD
     2109   01 00773    68000775              B        %+2
     2110   01 00774    050C07A6     J12      CAL2     YVS12,6           REPORT MODULES
     2111   01 00775    68000779              B        ONEYMOD
     2112   01 00776    217FFFFA A   BIT26OFF CI,7     -6                FAILURE IN BITS 0-10
     2113   01 00777    68200772              BCR,2    J14               YES
     2114   01 00778    68000774              B        J12               NO
     2115                            *
     2116   01 00779    33000270     ONEYMOD  MTW,0    PARTYFLG          PARITY TEST
     2117   01 0077A    683006DE              BCR,3    EXITST            NO, EXIT
     2118   01 0077B    68000C16              B        PTAGSET            YES, RETURN TO PARITY TEST
     2119                            *
     2120                            * ALL H.W. FAILING;  ANALYZE TO REPORT CORRECT MODULES
     2121                            *
     2122   01 0077C    00000000 A   YVPRFLAG DATA     0
     2123                            *
     2124   01 0077D    33F0077C     YVPRL    MTW,-1   YVPRFLAG          RAIZE FLAG
     2125   01 0077E    22E00002 A   ALLTST3  LI,14    2
     2126   01 0077F    3300077C              MTW,0    YVPRFLAG          FLG UP
     2127   01 00780    6930078D              BCS,3    BADYVPR           YES
     2128   01 00781    22900000 A            PRINT    MSG19,MSG19END    NO
            01 00782    359001A4
            01 00783    22900FCC N
                        04000FBA
     2129   01 00785    6AF003B2     TST3HW   BAL,15   BAD:HW            FIND BAD HW
     2130   01 00786    22802000 A            LI,8     X'2000'
     2131   01 00787    4B800005 A            AND,8    5                 BIT2 ON
     2132   01 00788    6830078B              BCR,3    B2OFF             NO
     2133   01 00789    050C079E              CAL2     YVS8,6            REPORT MOD
     2134   01 0078A    6800078C              B        %+2
     2135   01 0078B    050C07A6     B2OFF    CAL2     YVS12,6           REPORT MOD
     2136   01 0078C    680006DE              B        EXITST            EXIT
     2137   01 0078D                 BADYVPR  RES      0
     2138   01 0078D    22900000 A            PRINT    MSG20,MSG20END    PRINT MSG
            01 0078E    359001A4
            01 0078F    22900FD7 N
                        04000FCC
     2139   01 00791    68000785              B        TST3HW
     2140                            *
     2141   01 00792    22700400 A   YVLOPEN  LI,7     X'400'
     2142   01 00793    30700005 A            AW,7     5                 CHANGE YC IN FA
     2143   01 00794    31700002 A            CW,7     2                 IS IT > TESTHI
     2144   01 00795    69200A68              BCS,2    YCYV              YES
     2145   01 00796    328E0000 A            LW,8     0,7               FETCH CONTENT OF NEW FA
     2146   01 00797    3180000A A            CW,8     10                IS IT OK
     2147   01 00798    683007E3              BCR,3    YLOPEN            YES
     2148   01 00799    68000A68              B        YCYV              NO, REPORT OPEN Y DIODE
     2149                            *
     2150   01 0079A    10D0D46B A   YVS10    DATA     X'10D0D46B'
     2151   01 0079B    08D0D46B A            DATA     X'08D0D46B'
     2152   01 0079C    10F0D46B A            DATA     X'10F0D46B'
     2153   01 0079D    08F0D46B A            DATA     X'08F0D46B'
     2154   01 0079E    08D0D46B A   YVS8     DATA     X'08D0D46B'
     2155   01 0079F    10D0D46B A            DATA     X'10D0D46B'
     2156   01 007A0    08F0D46B A            DATA     X'08F0D46B'
     2157   01 007A1    10F0D46B A            DATA     X'10F0D46B'
     2158   01 007A2    14D0D46B A   YVS14    DATA     X'14D0D46B'
     2159   01 007A3    12D0D46B A            DATA     X'12D0D46B'
     2160   01 007A4    14F0D46B A            DATA     X'14F0D46B'
     2161   01 007A5    12F0D46B A            DATA     X'12F0D46B'
     2162   01 007A6    12D0D46B A   YVS12    DATA     X'12D0D46B'
     2163   01 007A7    14D0D46B A            DATA     X'14D0D46B'
     2164   01 007A8    12F0D46B A            DATA     X'12F0D46B'
     2165   01 007A9    14F0D46B A            DATA     X'14F0D46B'
     2166                            *
     2167                            * TEST 4 : DIAGNOSIS FOR ANY FAULTY  YCS
     2168                            *
     2169   01 007AA    22800000 A   TEST4    LI,8     0
     2170   01 007AB    358007C5              STW,8    YC7FLAG           RESET FLG
     2171   01 007AC    6AF003D0              BAL,15   FA:GRUP
     2172   01 007AD    21800400 A            CI,8     X'400'            X'400' LOC BAD
     2173   01 007AE    683007B4              BCR,3    ERRTST4           YES
     2174   01 007AF    21800800 A            CI,8     X'800'
     2175   01 007B0    68300822              BCR,3    MOD79             YES
     2176   01 007B1    21507F00 A            CI,5     X'7F00'           NO, THEN FA = 7F00
     2177   01 007B2    683007B4              BCR,3    %+2               YES,
     2178   01 007B3    680006DE              B        EXITST            NO,
     2179   01 007B4    22701C00 A   ERRTST4  LI,7     X'1C00'
     2180   01 007B5    48700005 A            EOR,7    5                 COMPL. YC BITS
     2181   01 007B6    32800007 A            LW,8     7                 EXAMINE  YC
     2182   01 007B7    4B800005 A            AND,8    5
     2183   01 007B8    21801C00 A            CI,8     X'1C00'           YC = 0
     2184   01 007B9    693007BB              BCS,3    %+2               NO
     2185   01 007BA    33F007C5              MTW,-1   YC7FLAG           YES
     2186   01 007BB    46700005 A            XW,7     5                 TAKE COMPL. YC
     2187   01 007BC    6AF003D0              BAL,15   FA:GRUP           FIND # OF BAD LOC WITH COMPL. YC
     2188   01 007BD    46700005 A            XW,7     5                 RESTORE FA
     2189   01 007BE    21800400 A            CI,8     X'400'            X'400' LOC  BAD
     2190   01 007BF    683007C6              BCR,3    LINEOK            YES, Y-LINE OK
     2191   01 007C0    330007C5              MTW,0    YC7FLAG           YC7FLAG SET
     2192   01 007C1    683007E3              BCR,3    YLOPEN            YES, Y-LINE OPEN
     2193                            *
     2194   01 007C2    2151FFFF A            CI,5     X'1FFFF'          NO,
     2195   01 007C3    68300825              BCR,3    YC07BAD             SPECIAL TEST TO DISTINGUISH
     2196   01 007C4    680007E3              B        YLOPEN              BETWEEN YC0,7 SW AND OPEN Y-LINE
     2197                            *
     2198   01 007C5    00000000 A   YC7FLAG  DATA     0
     2199                            *
     2200                            *
     2201   01 007C6    32EE0000 A   LINEOK   LW,14    0,7               R14= BAD DATA WITH COMPL. YC
     2202   01 007C7    4BE0000B A            AND,14   11                R14 = COMBINED BAD DATA
     2203   01 007C8    46B0000E A            XW,11    14
     2204   01 007C9    6AF0036C              BAL,15   CNT:BITS
     2205   01 007CA    46E0000B A            XW,14    11
     2206   01 007CB    21600002 A            CI,6     2                 IS  2 BITS BAD
     2207   01 007CC    683007D5              BCR,3    YCSW              YES
     2208   01 007CD    21600010 A            CI,6     16                NO,  IS IT 16
     2209   01 007CE    68300811              BCR,3    ALLTST4           YES,
     2210   01 007CF                 ODYCS    RES      0
     2211   01 007CF    22900000 A            PRINT    ODDMSG,ODMSGEND   NO
            01 007D0    359001A4
            01 007D1    22900FE3 N
                        04000FD7
     2212   01 007D3    2E000000 A            WAIT
     2213                            *
     2214                            * UNUSUAL SYMPTOM IN YCS ANALYSIS,  CLEAR WAIT TO CONTINUE
     2215                            *
     2216   01 007D4    680006DE              B        EXITST            EXIT
     2217                            *
     2218                            * FIND THE TWO ADJACENT FAILING BITS, ONE IN FA & THE OTHER IN ADR WITH
     2219                            * THE COMPLEMENT  YC BITS.
     2220                            *
     2221   01 007D5    6AF003B2     YCSW     BAL,15   BAD:HW            FIND BAD HW
     2222   01 007D6    3290000E A            LW,9     14
     2223   01 007D7    33000006 A            MTW,0    6
     2224   01 007D8    693007DA              BCS,3    %+2
     2225   01 007D9    25900070 A            SLS,9    -16               POSITION 1ST HW
     2226   01 007DA    4890000A A            EOR,9    10
     2227   01 007DB    3590000C A            STW,9    12                SAVE
     2228   01 007DC    25900010 A            SLS,9    16                MOVE HW FOR TEST
     2229   01 007DD    227FFFF0 A            LI,7     -16               HW BITS CNTR
     2230   01 007DE    25800101 A   NXTBITS4 SLD,8    1
     2231   01 007DF    21800003 A            CI,8     3                 THESE 2 ADJACENT BITS BAD
     2232   01 007E0    683007E9              BCR,3    YCSBAD            YES,
     2233   01 007E1    657007DE              BIR,7    NXTBITS4          NO, TRY NEXT 2 BITS
     2234   01 007E2    680007CF              B        ODYCS
     2235                            *
     2236                            *
     2237                            *
     2238                            *
     2239   01 007E3                 YLOPEN   RES      0
     2240   01 007E3    22900000 A            PRINT    MSG21,MSG21END    PRINT OPEN Y-LINE MSG
            01 007E4    359001A4
            01 007E5    22900FEC N
                        04000FE3
     2241   01 007E7    33F00A18              MTW,-1   DIODTAG
     2242   01 007E8    680009FB              B        BITEXAM           GO FIND CDM MODULE
     2243                            *
     2244   01 007E9    4BC007F0     YCSBAD   AND,12   HCCCC             FAILURE IN BITS 0,1,4,5,8,9,12 OR13
     2245   01 007EA    3300000C A            MTW,0    12
     2246   01 007EB    693007EE              BCS,3    D                 YES
     2247   01 007EC    22800000 A   C        LI,8     0                 TO REPORT C MODULE
     2248   01 007ED    680007EF              B        %+2
     2249   01 007EE    22800002 A   D        LI,8     2                 TO REPORT D MODULE
     2250   01 007EF    68000811              B        ALLTST4
     2251                            *
     2252   01 007F0    0000CCCC A   HCCCC    DATA     X'CCCC'
     2253                            *
     2254                            * REPORT OF MODULE SLOT NO. IS BASED ON THE FOLLOWING TABLE
     2255                            *
     2256                            * YCS-TABLE       S3  S4  S5
     2257                            *                 0   0   0         13-C,E AND 11-D,F
     2258                            *                 0   0   1         11-C,E AND 13-D,F
     2259                            *                 0   1   0         09-C,E AND 07-D,F
     2260                            *                 0   1   1         07-C,E AND 09-D,F
     2261                            *                 1   0   0         07-C,E AND 09-D,F
     2262                            *                 1   0   1         09-C,E AND 07-D,F
     2263                            *                 1   1   0         11-C,E AND 11-D,F
     2264                            *                 1   1   1         13-C,E AND 13-D,F
     2265                            *
     2266                            *
     2267   01 007F1    13C0D46B A   YCSTAB   DATA     X'13C0D46B'       MODULE SLOT CODE
     2268   01 007F2    13E0D46B A            DATA     X'13E0D46B'       MODULE SLOT CODE
     2269   01 007F3    11D0D46B A            DATA     X'11D0D46B'       MODULE SLOT CODE
     2270   01 007F4    11F0D46B A            DATA     X'11F0D46B'       MODULE SLOT CODE
     2271   01 007F5    11C0D46B A            DATA     X'11C0D46B'       MODULE SLOT CODE
     2272   01 007F6    11E0D46B A            DATA     X'11E0D46B'       MODULE SLOT CODE
     2273   01 007F7    13D0D46B A            DATA     X'13D0D46B'       MODULE SLOT CODE
     2274   01 007F8    13F0D46B A            DATA     X'13F0D46B'       MODULE SLOT CODE
     2275   01 007F9    09C0D46B A            DATA     X'09C0D46B'       MODULE SLOT CODE
     2276   01 007FA    09E0D46B A            DATA     X'09E0D46B'       MODULE SLOT CODE
     2277   01 007FB    07D0D46B A            DATA     X'07D0D46B'       MODULE SLOT CODE
     2278   01 007FC    07F0D46B A            DATA     X'07F0D46B'       MODULE SLOT CODE
     2279   01 007FD    07C0D46B A            DATA     X'07C0D46B'       MODULE SLOT CODE
     2280   01 007FE    07E0D46B A            DATA     X'07E0D46B'       MODULE SLOT CODE
     2281   01 007FF    09D0D46B A            DATA     X'09D0D46B'       MODULE SLOT CODE
     2282   01 00800    09F0D46B A            DATA     X'09F0D46B'       MODULE SLOT CODE
     2283   01 00801    07C0D46B A            DATA     X'07C0D46B'       MODULE SLOT CODE
     2284   01 00802    07E0D46B A            DATA     X'07E0D46B'       MODULE SLOT CODE
     2285   01 00803    09D0D46B A            DATA     X'09D0D46B'       MODULE SLOT CODE
     2286   01 00804    09F0D46B A            DATA     X'09F0D46B'       MODULE SLOT CODE
     2287   01 00805    09C0D46B A            DATA     X'09C0D46B'       MODULE SLOT CODE
     2288   01 00806    09E0D46B A            DATA     X'09E0D46B'       MODULE SLOT CODE
     2289   01 00807    07D0D46B A            DATA     X'07D0D46B'       MODULE SLOT CODE
     2290   01 00808    07F0D46B A            DATA     X'07F0D46B'       MODULE SLOT CODE
     2291                            *
     2292   01 00809    11C0D46B A            DATA     X'11C0D46B'       MODULE SLOT CODE
     2293   01 0080A    11E0D46B A            DATA     X'11E0D46B'       MODULE SLOT CODE
     2294   01 0080B    11D0D46B A            DATA     X'11D0D46B'       MODULE SLOT CODE
     2295   01 0080C    11F0D46B A            DATA     X'11F0D46B'       MODULE SLOT CODE
     2296   01 0080D    13C0D46B A            DATA     X'13C0D46B'       MODULE SLOT CODE
     2297   01 0080E    13E0D46B A            DATA     X'13E0D46B'       MODULE SLOT CODE
     2298   01 0080F    13D0D46B A            DATA     X'13D0D46B'       MODULE SLOT CODE
     2299   01 00810    13F0D46B A            DATA     X'13F0D46B'       MODULE SLOT CODE
     2300                            *
     2301                            * ALL BITS OF A HW FAILIG. FIND THE CORRECT MODULE LOCATION
     2302                            *
     2303   01 00811    22701C00 A   ALLTST4  LI,7     X'1C00'
     2304   01 00812    4B700005 A            AND,7    5                 GET YC BITS OF F.A. X 2
     2305   01 00813    25700078 A            SLS,7    -8
     2306   01 00814    35700838              STW,7    TEMP7T4           SAVE R7
     2307   01 00815    6AF003B2              BAL,15   BAD:HW            FIND BAD HW
     2308   01 00816    32700838              LW,7     TEMP7T4           RESTORE R7
     2309   01 00817    30700006 A            AW,7     6                 SET FOR CORREC  BMU  MODULES
     2310   01 00818    30700008 A            AW,7     8                 POINT TO CORRECT MODULE
     2311   01 00819    22E00001 A            LI,14    1
     2312   01 0081A    22900000 A            PRINT    MSG22,MSG22END
            01 0081B    359001A4
            01 0081C    22900FFC N
                        04000FEC
     2313   01 0081E    050E07F1              CAL2     YCSTAB,7          REPORT MODULE SLOT
     2314   01 0081F    33000270     YCSRETRN MTW,0    PARTYFLG          PARITY TEST
     2315   01 00820    683006DE              BCR,3    EXITST            NO
     2316   01 00821    68000C16              B        PTAGSET           YES
     2317                            *
     2318   01 00822    6AF003B2     MOD79    BAL,15   BAD:HW
     2319   01 00823    22700004 A            LI,7     4
     2320   01 00824    68000826              B        %+2
     2321   01 00825    22700000 A   YC07BAD  LI,7     0
     2322   01 00826    25600001 A            SLS,6    1                 X 2
     2323   01 00827                 YCSPRINT RES      0
     2324   01 00827    22E00002 A            LI,14    2
     2325   01 00828    30600007 A            AW,6     7
     2326   01 00829    22900000 A            PRINT    MSG22,MSG22END    PRINT MSG
            01 0082A    359001A4
            01 0082B    22900FFC N
                        04000FEC
     2327   01 0082D    050C082F              CAL2     M111379,6         REPORT MODULE
     2328   01 0082E    6800081F              B        YCSRETRN          RETURN
     2329                            *
     2330                            *
     2331   01 0082F    11D0D46B A   M111379  DATA     X'11D0D46B'       MODULE SLOT CODE
     2332   01 00830    13C0D46B A            DATA     X'13C0D46B'       MODULE SLOT CODE
     2333   01 00831    11F0D46B A            DATA     X'11F0D46B'       MODULE SLOT CODE
     2334   01 00832    13E0D46B A            DATA     X'13E0D46B'       MODULE SLOT CODE
     2335   01 00833    07C0D46B A            DATA     X'07C0D46B'       MODULE SLOT CODE
     2336   01 00834    09D0D46B A            DATA     X'09D0D46B'       MODULE SLOT CODE
     2337   01 00835    07E0D46B A            DATA     X'07E0D46B'       MODULE SLOT CODE
     2338   01 00836    09F0D46B A            DATA     X'09F0D46B'       MODULE SLOT CODE
     2339                            *
     2340                            * TEST 5.  DIAGNOSIS FOR ANY FAILURES IN  XCS  CIRCUITARY
     2341                            *
     2342   01 00837    00000000 A   XPNRFLG  DATA     0
     2343   01 00838    00000000 A   TEMP7T4  DATA     0
     2344                            *
     2345   01 00839    22800000 A   TEST5    LI,8     0
     2346   01 0083A    35800837              STW,8    XPNRFLG           INITIALIZE FLG
     2347   01 0083B    358008C0              STW,8    XCS34
     2348   01 0083C    6AF003D0              BAL,15   FA:GRUP
     2349   01 0083D    21800010 A            CI,8     X'10'             16 LOC FAIL
     2350   01 0083E    68300877              BCR,3    ERRTST5           YES
     2351   01 0083F    22800070 A            LI,8     X'70'             NO,
     2352   01 00840    4B800005 A            AND,8    5
     2353   01 00841    21800030 A            CI,8     X'30'             XCS-3 ON
     2354   01 00842    69300848              BCS,3    XCSOK             NO
     2355   01 00843    33F008C0              MTW,-1   XCS34             RAIZ FLAG
     2356   01 00844    6AF003D0              BAL,15   FA:GRUP
     2357   01 00845    21800020 A            CI,8     X'20'             X'20' LOC BAD
     2358   01 00846    68300877              BCR,3    ERRTST5           YES
     2359   01 00847    6800084B              B        XPNR
     2360   01 00848    6AF003D0     XCSOK    BAL,15   FA:GRUP
     2361   01 00849    21800020 A            CI,8     X'20'             X'20' LOC BAD
     2362   01 0084A    6830084C              BCR,3    %+2
     2363   01 0084B    33F00837     XPNR     MTW,-1   XPNRFLG           SET
     2364   01 0084C    6AF0036C              BAL,15   CNT:BITS          HOW MANY BITS BAD
     2365   01 0084D    21600001 A            CI,6     1                 ONE BIT ONLY
     2366   01 0084E    683006DE              BCR,3    EXITST            YES, THEN EXIT
     2367   01 0084F    21600004 A            CI,6     4                 NO, THEN 4 BITS
     2368   01 00850    6830088E              BCR,3    XPNRCHK                    YES
     2369   01 00851    6AF003D0              BAL,15   FA:GRUP
     2370   01 00852    3180026B              CW,8     8K
     2371   01 00853    69100855              BCS,1    %+2                                               *A01
     2372   01 00854    6800088A              B        GRDXPNCK
     2373   01 00855    33000837     CHKXCFLG MTW,0    XPNRFLG           SUSPECT XCS
     2374   01 00856    693006DE              BCS,3    EXITST            NO, EXIT
     2375   01 00857    20500080 A            AI,5     X'80'             YES, SET FOR ANOTHER XCS GROUP
     2376   01 00858    6AF003D0              BAL,15   FA:GRUP
     2377   01 00859    21800020 A            CI,8     X'20'             X'20' LOC BAD
     2378   01 0085A    68300861              BCR,3    XCSERR            YES
     2379   01 0085B    325005CA     ODDXCS   LW,5     FA                RESTOR R5
     2380   01 0085C    22900000 A            PRINT    ODDMSG,ODMSGEND
            01 0085D    359001A4
            01 0085E    22900FE3 N
                        04000FD7
     2381   01 00860    2E000000 A            WAIT
     2382                            *
     2383                            * WAIT INDICATES THAT BAD  XCS  OR  XPRE LOGIC SUSPECTED, BUT CAN NOT
     2384                            * BE ISOLATED; POSSIBILITY OF MULTIPLE SUCH ERRORS.
     2385   01 00861    325005CA     XCSERR   LW,5     FA
     2386   01 00862    33000837              MTW,0    XPNRFLG           FLG SET
     2387   01 00863    68300869              BCR,3    ROK               NO
     2388   01 00864    22900000 A            PRINT    MSG23,MSG23END    YES
            01 00865    359001A4
            01 00866    2290100A N
                        04000FFC
     2389   01 00868    6800086D              B        CHKBIT2                                           *A01
     2390   01 00869                 ROK      RES      0
     2391   01 00869    22900000 A            PRINT    MSG24,MSG24END
            01 0086A    359001A4
            01 0086B    22901011 N
                        0400100A
     2392   01 0086D    22E00002 A   CHKBIT2  LI,14    2
     2393   01 0086E    6AF003B2              BAL,15   BAD:HW            FIND BAD HALF-WORD
     2394   01 0086F    25600001 A            SLS,6    1                 R6 X 2
     2395   01 00870    22802000 A            LI,8     X'2000'
     2396   01 00871    4B800005 A            AND,8    5                 BIT 2 OF FA ON
     2397   01 00872    68300875              BCR,3    BIT2OFF5          NO
     2398   01 00873    050C08B8              CAL2     0810C,6           YES, REPORT MODULE SLOT AS 08-10C
     2399   01 00874    68000876              B        %+2
     2400   01 00875    050C08BC     BIT2OFF5 CAL2     1214C,6           REPORT SUSPECT MODULE SLOT AS 12-14C
     2401   01 00876    680006DE              B        EXITST            EXIT
     2402   01 00877    20500080 A   ERRTST5  AI,5     X'80'             POINT TO ANOTHER BLOCK
     2403   01 00878    6AF003D0              BAL,15   FA:GRUP           FIND # OF BAD LOC.
     2404   01 00879    21800010 A            CI,8     X'10'             X'10' LOC BAD
     2405   01 0087A    6830087F              BCR,3    BADXCS            YES
     2406   01 0087B    330008C0              MTW,0    XCS34             NO, XCS-34 FLG UP
     2407   01 0087C    6830085B              BCR,3    ODDXCS            NO
     2408   01 0087D    21800020 A            CI,8     X'20'             YES, THEN X'20' LOC BAD
     2409   01 0087E    6930085B              BCS,3    ODDXCS            NO
     2410   01 0087F    325005CA     BADXCS   LW,5     FA                YES, RESTORE R5
     2411   01 00880    6AF0036C              BAL,15   CNT:BITS          FIND # OF BAD BITS
     2412   01 00881    21600010 A            CI,6     16                HALF-WORD
     2413   01 00882    6830089B              BCR,3    ALLTST5           YES
     2414   01 00883    6AF00384              BAL,15   BAD:HB            NO, HALF-BYTE
     2415   01 00884    6940085B              BCS,4    ODDXCS            NO  H-B FAIL SINGULARLY
     2416                            *
     2417   01 00885    22900000 A            PRINT    MSG25,MSG25END
            01 00886    359001A4
            01 00887    22901019 N
                        04001011
     2418   01 00889    6800086D              B        CHKBIT2
     2419                            *
     2420   01 0088A    6AF0036C     GRDXPNCK BAL,15   CNT:BITS
     2421   01 0088B    21600010 A            CI,6     16                16 BITS BAD
     2422   01 0088C    69300855              BCS,3    CHKXCFLG          N0,
     2423   01 0088D    6800089B              B        ALLTST5           YES,
     2424                            *
     2425                            *
     2426   01 0088E    328A0040 A   XPNRCHK  LW,8     X'40',5           GET DATA OF FA+X'40'
     2427   01 0088F    4680000B A            XW,8     11
     2428   01 00890    6AF0036C              BAL,15   CNT:BITS
     2429   01 00891    21600004 A            CI,6     4                 4 BITS FAIAL
     2430   01 00892    693006DE              BCS,3    EXITST            NO
     2431   01 00893    4680000B A            XW,8     11                YES
     2432   01 00894    25800208 A            SCS,8    8                 SHIFT TO ONE BYTE
     2433   01 00895    3180000B A            CW,8     11                OTHER ODD (OR EVEN) HALF-BYTE BAD
     2434   01 00896    6830086D              BCR,3    CHKBIT2           YES
     2435   01 00897    25800270 A            SCS,8    -16               NO, OTHER COMBINATION
     2436   01 00898    3180000B A            CW,8     11                OTHER ODD (OR EVEN) HALF-BYTE BAD
     2437   01 00899    693006DE              BCS,3    EXITST            NO
     2438   01 0089A    6800086D              B        CHKBIT2           YES
     2439                            *
     2440                            * ALL BITS OF A HALF-WORD FAILING,  REPORT MODULES
     2441                            *
     2442   01 0089B    6AF003B2     ALLTST5  BAL,15   BAD:HW
     2443   01 0089C    6830089E              BCR,3    %+2
     2444   01 0089D    20600005 A            AI,6     5
     2445   01 0089E    22900000 A            PRINT    MSG26,MSG26END
            01 0089F    359001A4
            01 008A0    2290102A N
                        04001019
     2446   01 008A2    22E00002 A            LI,14    2                                                 *A01
     2447   01 008A3    050008AC              CAL2     RHC                                               *A01
     2448                            *
     2449   01 008A4    22802000 A            LI,8     X'2000'           BIT2 OF FA ON
     2450   01 008A5    4B800005 A            AND,8    5
     2451   01 008A6    683008A9              BCR,3    TWOFF             NO
     2452   01 008A7    22E00003 A            LI,14    3                 YES
     2453   01 008A8    680008AA              B        %+2
     2454                            *
     2455   01 008A9    22E00005 A   TWOFF    LI,14    5
     2456   01 008AA    050C08AE              CAL2     KDMOD,6
     2457   01 008AB    680006DE              B        EXITST
     2458                            *
     2459   01 008AC    20B0C46B A   RHC      DATA     X'20B0C46B'       MODULE LOC CODE                 *A01
     2460   01 008AD    05B0C46B A            DATA     X'05B0C46B'                                       *A01
     2461   01 008AE    08C0D46B A   KDMOD    DATA     X'08C0D46B'       MODULE LOC CODE
     2462   01 008AF    10C0D46B A            DATA     X'10C0D46B'       MODULE LOC CODE
     2463   01 008B0    16D0D46B A            DATA     X'16D0D46B'       MODULE LOC CODE
     2464   01 008B1    12C0D46B A            DATA     X'12C0D46B'       MODULE LOC CODE
     2465   01 008B2    14C0D46B A            DATA     X'14C0D46B'       MODULE LOC CODE
     2466   01 008B3    08E0D46B A            DATA     X'08E0D46B'       MODULE LOC CODE
     2467   01 008B4    10E0D46B A            DATA     X'10E0D46B'       MODULE LOC CODE
     2468   01 008B5    16F0D46B A            DATA     X'16F0D46B'       MODULE LOC CODE
     2469   01 008B6    12E0D46B A            DATA     X'12E0D46B'       MODULE LOC CODE
     2470   01 008B7    14E0D46B A            DATA     X'14E0D46B'       MODULE LOC CODE
     2471                            *
     2472   01 008B8    08C0D46B A   0810C    DATA     X'08C0D46B'       MODULE LOC CODE
     2473   01 008B9    10C0D46B A            DATA     X'10C0D46B'       MODULE LOC CODE
     2474   01 008BA    08E0D46B A            DATA     X'08E0D46B'       MODULE LOC CODE
     2475   01 008BB    10E0D46B A            DATA     X'10E0D46B'       MODULE LOC CODE
     2476   01 008BC    12C0D46B A   1214C    DATA     X'12C0D46B'       MODULE LOC CODE
     2477   01 008BD    14C0D46B A            DATA     X'14C0D46B'       MODULE LOC CODE
     2478   01 008BE    12E0D46B A            DATA     X'12E0D46B'       MODULE LOC CODE
     2479   01 008BF    14E0D46B A            DATA     X'14E0D46B'       MODULE LOC CODE
     2480   01 008C0    00000000 A   XCS34    DATA     0                 MODULE LOC CODE
     2481                            *
     2482                            * TEST 6  DIAGNOSIS FOR ANY FAULTY  XVS CIRCUITARY
     2483                            *
     2484   01 008C1    6AF003C4     TEST6    BAL,15   OK:GRUP           FIND # OF GOOD LOC AFTER FA
     2485   01 008C2    22E00001 A            LI,14    1
     2486   01 008C3    2160000F A            CI,6     15                15
     2487   01 008C4    693008EC              BCS,3    XVPRED            NO
     2488   01 008C5    20500010 A            AI,5     X'10'
     2489   01 008C6    6AF003C4              BAL,15   OK:GRUP           TRY ANOTHER GROUP
     2490   01 008C7    2160000F A            CI,6     15
     2491   01 008C8    693008E6              BCS,3    ODDXVS            NO
     2492                            *
     2493                            * DISTINGUISH BETWEEN  XVS  & OPEN  XV-LINE ON CDM
     2494                            *
     2495   01 008C9    325005CA              LW,5     FA                RESTORE R5
     2496   01 008CA    6AF0036C              BAL,15   CNT:BITS          HALF-BYTE BAD ONLY
     2497   01 008CB    21600004 A            CI,6     4
     2498   01 008CC    683006DE              BCR,3    EXITST            YES, THEN  XVS IS OK
     2499   01 008CD    21600008 A            CI,6     8                 NO,  THEN ONE BYTE BAD
     2500   01 008CE    693008E6              BCS,3    ODDXVS                 NO
     2501                            *
     2502                            * FIND CORRECT BYTE AND REPORT THE SUSPECT MODULE
     2503                            *
     2504   01 008CF    6AF0039C              BAL,15   BAD:BYTE          ONE BYTE BAD
     2505   01 008D0    684008DA              BCR,4    XVSBAAD           YES
     2506   01 008D1    22900000 A            PRINT    MSG31,MSG31END
            01 008D2    359001A4
            01 008D3    22901052 N
                        04001049
     2507   01 008D5    6AF003B2              BAL,15   BAD:HW
     2508   01 008D6    22800008 A            LI,8     8                 NO
     2509   01 008D7    4B800005 A            AND,8    5                 BIT 12 OF FA ON
     2510   01 008D8    68300925              BCR,3    MOD15             NO
     2511   01 008D9    68000913              B        MOD16             YES
     2512                            *
     2513   01 008DA                 XVSBAAD  RES      0
     2514   01 008DA    22900000 A            PRINT    MSG27,MSG27END
            01 008DB    359001A4
            01 008DC    22901032 N
                        0400102A
     2515   01 008DE    6AF003B2              BAL,15   BAD:HW
     2516   01 008DF    22800008 A            LI,8     8
     2517   01 008E0    4B800005 A            AND,8    5                 BIT 12 OF FA SET
     2518   01 008E1    683008E4              BCR,3    BAD15             NO
     2519   01 008E2    050C0927              CAL2     M15,6            YES,  REPORT MODULE 15
     2520   01 008E3    680008E5              B        %+2
     2521   01 008E4    050C0929     BAD15    CAL2     M16,6             REPORT MODULE 16
     2522   01 008E5    680006DE              B        EXITST            EXIT
     2523                            *
     2524   01 008E6                 ODDXVS   RES      0
     2525   01 008E6    22900000 A            PRINT    ODDMSG,ODMSGEND
            01 008E7    359001A4
            01 008E8    22900FE3 N
                        04000FD7
     2526   01 008EA    2E000000 A            WAIT
     2527                            *
     2528                            * UNUSUAL SYMPTOM -  CLEAR THE WAIT TO RESTART
     2529                            *
     2530   01 008EB    680006DE              B        EXITST            EXIT
     2531                            *
     2532   01 008EC    21600003 A   XVPRED   CI,6     3                 EVERY 4TH LOC FAIL
     2533   01 008ED    69300915              BCS,3    XVDRIVE           NO
     2534   01 008EE    20500010 A            AI,5     X'10'             YES
     2535   01 008EF    6AF003C4              BAL,15   OK:GRUP           TRY ANOTHER SET
     2536   01 008F0    325005CA              LW,5     FA                RESTORE  R5
     2537   01 008F1    22E00001 A            LI,14    1
     2538   01 008F2    21600003 A            CI,6     3                 SAME SYMPTOM
     2539   01 008F3    69300905              BCS,3    OPSINKLN          NO
     2540   01 008F4    22900000 A            PRINT    MSG28,MSG28END
            01 008F5    359001A4
            01 008F6    2290103C N
                        04001032
     2541   01 008F8    22800002 A            LI,8     2
     2542   01 008F9    4B800005 A            AND,8    5                 BIT 14 OF FA SET
     2543   01 008FA    693008FD              BCS,3    SINK15            NO
     2544   01 008FB    05000929              CAL2     M16               YES, REPORT MOD 16
     2545   01 008FC    680008FE              B        %+2
     2546   01 008FD    05000927     SINK15   CAL2     M15
     2547   01 008FE    22900000 A            PRINT    MSG29,MSG29END
            01 008FF    359001A4
            01 00900    22901043 N
                        0400103C
     2548   01 00902    22E00002 A            LI,14    2
     2549   01 00903    05000928              CAL2     M15+1             REPORT MOD 15 & 16
     2550   01 00904    680006DE              B        EXITST
     2551                            *
     2552                            * TEST FOR ANY XV PRE-DRIVE SINK LINE
     2553                            *
     2554   01 00905    20500008 A   OPSINKLN AI,5     8                 CHANGE SETTING OF BIT 12
     2555   01 00906    6AF003C4              BAL,15   OK:GRUP           FIND # OF GOOD LOCS
     2556   01 00907    325005CA              LW,5     FA                RESTORE R5
     2557   01 00908    21600003 A            CI,6     3                 3 LOC GOOD
     2558   01 00909    693008E6              BCS,3    ODDXVS            NO
     2559   01 0090A    22900000 A            PRINT    MSG30,MSG30END    YES
            01 0090B    359001A4
            01 0090C    22901049 N
                        04001043
     2560   01 0090E    22800002 A            LI,8     2
     2561   01 0090F    4B800005 A            AND,8    5                 BIT 14 SET
     2562   01 00910    68300913              BCR,3    OPSNK16           NO
     2563   01 00911    05000927              CAL2     M15
     2564   01 00912    68000914              B        %+2
     2565   01 00913                 MOD16    RES      0
     2566   01 00913    05000929     OPSNK16  CAL2     M16
     2567   01 00914    680006DE              B        EXITST            EXIT
     2568                            *
     2569                            * DIAGNOSE FOR ANY BAD  XV-DRIVE IN PRE-DRIVE LOGIC
     2570                            *
     2571   01 00915    6AF003D0     XVDRIVE  BAL,15   FA:GRUP
     2572   01 00916    21800004 A            CI,8     4                 4 LOCS FAIL
     2573   01 00917    693006DE              BCS,3    EXITST            NO, EXIT
     2574                            *** *** *** ***  AI,5  *** 3  ******   ***  ****  **********************
     2575   01 00918    20500004 A            AI,5     4                 YES, ADD 4 TO FA
     2576   01 00919    6AF003C4              BAL,15   OK:GRUP           FIND #OF GOOD LOCS
     2577   01 0091A    325005CA              LW,5     FA                RESTOR R5
     2578   01 0091B    2160000C A            CI,6     12                ONLY 12 LOC OK
     2579   01 0091C    693006DE              BCS,3    EXITST            NO, EXIT
     2580   01 0091D    22E00001 A            LI,14    1
     2581   01 0091E    22900000 A            PRINT    MSG31,MSG31END    YES
            01 0091F    359001A4
            01 00920    22901052 N
                        04001049
     2582   01 00922    22800002 A            LI,8     2
     2583   01 00923    4B800005 A            AND,8    5                 BIT 14 OF FA SET
     2584   01 00924    69300913              BCS,3    OPSNK16           YES REPORT MOD 16
     2585   01 00925    05000927     MOD15    CAL2     M15               NO, REPORT MOD 15
     2586   01 00926    680006DE              B        EXITST            EXIT
     2587   01 00927    15C0D46B A   M15      DATA     X'15C0D46B'
     2588   01 00928    15E0D46B A            DATA     X'15E0D46B'
     2589   01 00929    16C0D46B A   M16      DATA     X'16C0D46B'
     2590   01 0092A    16E0D46B A            DATA     X'16E0D46B'
     2591                            *
     2592                            * TEST 7   DIAGNOSIS FOR ANY MALUFUNCTIONING SENSE LINES
     2593                            *
     2594   01 0092B    22800000 A   TEST7    LI,8     0
     2595   01 0092C    3580097F              STW,8    INHFLAG           RESET INHIBIT FLAG
     2596   01 0092D    6AF003D0              BAL,15   FA:GRUP
     2597   01 0092E    21900100 A            CI,9     X'100'            X'100' LOC BAD ON SAME BITS
     2598   01 0092F    69300970              BCS,3    PA                NO
     2599   01 00930    6AF003C4              BAL,15   OK:GRUP           YES
     2600   01 00931    216000FF A            CI,6     X'FF'             NEXT 128 LOC OK
     2601   01 00932    693006DE              BCS,3    EXITST            NO
     2602                            *
     2603   01 00933    22E00001 A   PASELBAD LI,14    1
     2604   01 00934    22900000 A            PRINT    MSG32,MSG32END
            01 00935    359001A4
            01 00936    2290105A N
                        04001052
     2605   01 00938    6AF003B2              BAL,15   BAD:HW
     2606   01 00939    22802000 A            LI,8     X'2000'
     2607   01 0093A    4B800005 A            AND,8    5                 BIT 2 (18) OF FA SET
     2608   01 0093B    6830093E              BCR,3    MOD03CE           NO
     2609   01 0093C    050C0990              CAL2     03DF,6            YES
     2610   01 0093D    6800093F              B        %+2
     2611   01 0093E    050C098E     MOD03CE  CAL2     03CE,6
     2612   01 0093F    680006DE              B        EXITST
     2613                            *
     2614                            * FIND FAILING BIT AND REPORT BAD MODULE
     2615                            *
     2616   01 00940    3300097E     BADSEN   MTW,0    SAFLAG            FLG SET
     2617   01 00941    69300947              BCS,3    SAREPORT          YES
     2618   01 00942    22900000 A            PRINT    MSG33,MSG33END    NO,PRINT MSG
            01 00943    359001A4
            01 00944    22901063 N
                        0400105A
     2619   01 00946    6800094B              B        MODCAL
     2620   01 00947                 SAREPORT RES      0
     2621   01 00947    22900000 A            PRINT    MSG34,MSG34END    PRINT MSG
            01 00948    359001A4
            01 00949    2290106C N
                        04001063
     2622   01 0094B    32D0000B A   MODCAL   LW,13    11                GET BAD DATA
     2623   01 0094C    48D0000A A            EOR,13   10                SET BAD BITS IN 13
     2624   01 0094D    6AF003B2              BAL,15   BAD:HW
     2625   01 0094E    68300950              BCR,3    %+2
     2626   01 0094F    25D00010 A            SLS,13   16
     2627   01 00950    22C00000 A            LI,12    0
     2628   01 00951    22E00001 A            LI,14    1
     2629   01 00952    25C00103 A            SLD,12   3                 FAILURE IN BITS 0-2
     2630   01 00953    68300956              BCR,3    %+3               NO
     2631   01 00954    050C0992              CAL2     06CE,6            YES, REPORT 6C,E
     2632   01 00955    680006DE              B        EXITST
     2633   01 00956    25C00103 A            SLD,12   3                 FAILURE IN 3-5
     2634   01 00957    6830095A              BCR,3    %+3               NO
     2635   01 00958    050C0994              CAL2     06DF,6            YES, REPORT 6D,F
     2636   01 00959    680006DE              B        EXITST
     2637   01 0095A    25C00103 A            SLD,12   3                 IN 6-8
     2638   01 0095B    6830095E              BCR,3    %+3               NO
     2639   01 0095C    050C0996              CAL2     05CE,6            YES, REPORT 5C,E
     2640   01 0095D    680006DE              B        EXITST            EXIT
     2641   01 0095E    25C00103 A            SLD,12   3                 IN 9-11
     2642   01 0095F    68300962              BCR,3    %+3               NO
     2643   01 00960    050C0998              CAL2     05DF,6            YES, REPORT 5D,F
     2644   01 00961    680006DE              B        EXITST
     2645   01 00962    25C00102 A            SLD,12   2                 FAILURE IN 12-13
     2646   01 00963    68300966              BCR,3    %+3               NO
     2647   01 00964    050C099A              CAL2     04CE,6            YES, REPORT 4C,E
     2648   01 00965    680006DE              B        EXITST
     2649   01 00966    25C00102 A            SLD,12   2                 IN 14-15
     2650   01 00967    6830096A              BCR,3    %+3               NO
     2651   01 00968    050C099C              CAL2     04DF,6            YES
     2652   01 00969    680006DE              B        EXITST            EXIT
     2653   01 0096A                 ODDSENS  RES      0
     2654   01 0096A    22900000 A            PRINT    ODDMSG,ODMSGEND   PRINT UNUSUAL MSG
            01 0096B    359001A4
            01 0096C    22900FE3 N
                        04000FD7
     2655   01 0096E    2E000000 A            WAIT
     2656                            *
     2657                            * WAIT INDICATE,  UNUSUAL ERROR WAS DETECTED.  CLEAR WAIT TO CONTINUE
     2658                            *
     2659   01 0096F    680006DE              B        EXITST            EXIT
     2660                            *
     2661   01 00970    6AF003D0     PA       BAL,15   FA:GRUP
     2662   01 00971    21900040 A            CI,9     X'40'             X'40' LOC FAIL (SAME BIT )
     2663   01 00972    6930097C              BCS,3    SENSAMP
     2664   01 00973    6AF0036C              BAL,15   CNT:BITS
     2665   01 00974    21600008 A            CI,6     8                 ONE BYTE BAD
     2666   01 00975    683006DE              BCR,3    EXITST            YES, THEN EXIT
     2667   01 00976    2050003F A            AI,5     X'3F'             STEP UP FA BY X'3F'
     2668   01 00977    6AF003C4              BAL,15   OK:GRUP
     2669   01 00978    325005CA              LW,5     FA
     2670   01 00979    21600040 A            CI,6     X'40'             X'40' LOC GOOD
     2671   01 0097A    693006DE              BCS,3    EXITST            NO, EXIT
     2672   01 0097B    68000940              B        BADSEN            YES, BAD PA
     2673                            *
     2674                            *
     2675   01 0097C    33F0097E     SENSAMP  MTW,-1   SAFLAG
     2676   01 0097D    680009A1              B        EXAMALL           TEST ALL LOC IN TEST8
     2677                            *
     2678   01 0097E    00000000 A   SAFLAG   DATA     0
     2679   01 0097F    00000000 A   INHFLAG  DATA     0
     2680                            *
     2681                            * DETERMINE IF TWO ADJACENT BITS FAIL
     2682                            *
     2683   01 00980    3290000B A   EXAMRET  LW,9     11
     2684   01 00981    4890000A A            EOR,9    10
     2685   01 00982    6AF003B2              BAL,15   BAD:HW            FIND BAD HW.
     2686   01 00983    68300985              BCR,3    %+2
     2687   01 00984    25900010 A            SLS,9    16                PUT BAD HW IN HW0
     2688   01 00985    22800000 A            LI,8     0
     2689   01 00986    227FFFF0 A            LI,7     -16               SET BIT CNTR.
     2690   01 00987    25800101 A   ADJAC    SLD,8    1                 SHIFT TO EXAMINE
     2691   01 00988    21800003 A            CI,8     3
     2692   01 00989    6830098C              BCR,3    INHSYM            THESE 2 ADJACENTS BITS BAD
     2693   01 0098A    65700987              BIR,7    ADJAC             NO, TRY NEXT 2 BITS
     2694   01 0098B    6800096A              B        ODDSENS
     2695                            *
     2696   01 0098C    33F0097F     INHSYM   MTW,-1   INHFLAG           SET INHIBIT FLAG
     2697   01 0098D    680006DE              B        EXITST            EXIT THIS TEST
     2698                            *
     2699                            *
     2700                            *
     2701                            *
     2702                            *
     2703                            *
     2704   01 0098E    03C0D46B A   03CE     DATA     X'03C0D46B'       MODULE LOCATION CODE
     2705   01 0098F    03E0D46B A            DATA     X'03E0D46B'       MODULE LOCATION CODE
     2706   01 00990    03D0D46B A   03DF     DATA     X'03D0D46B'       MODULE LOCATION CODE
     2707   01 00991    03F0D46B A            DATA     X'03F0D46B'       MODULE LOCATION CODE
     2708   01 00992    06C0D46B A   06CE     DATA     X'06C0D46B'       MODULE LOCATION CODE
     2709   01 00993    06E0D46B A            DATA     X'06E0D46B'       MODULE LOCATION CODE
     2710   01 00994    06D0D46B A   06DF     DATA     X'06D0D46B'       MODULE LOCATION CODE
     2711   01 00995    06F0D46B A            DATA     X'06F0D46B'       MODULE LOCATION CODE
     2712   01 00996    05C0D46B A   05CE     DATA     X'05C0D46B'       MODULE LOCATION CODE
     2713   01 00997    05E0D46B A            DATA     X'05E0D46B'       MODULE LOCATION CODE
     2714   01 00998    05D0D46B A   05DF     DATA     X'05D0D46B'       MODULE LOCATION CODE
     2715   01 00999    05F0D46B A            DATA     X'05F0D46B'       MODULE LOCATION CODE
     2716   01 0099A    04C0D46B A   04CE     DATA     X'04C0D46B'       MODULE LOCATION CODE
     2717   01 0099B    04E0D46B A            DATA     X'04E0D46B'       MODULE LOCATION CODE
     2718   01 0099C    04D0D46B A   04DF     DATA     X'04D0D46B'       MODULE LOCATION CODE
     2719   01 0099D    04F0D46B A            DATA     X'04F0D46B'       MODULE LOCATION CODE
     2720   01 0099E    04F0D46B A            DATA     X'04F0D46B'       MODULE LOCATION CODE
     2721                            *
     2722                            *
     2723                            *
     2724                            *
     2725                            *
     2726                            *
     2727                            *
     2728                            * TEST 8  DIAGNOSIS FOR ANY FAULTY INHIBIT CIRCUITARY
     2729                            *
     2730                            *
     2731   01 0099F    22800000 A   TEST8    LI,8     0
     2732   01 009A0    3580097E              STW,8    SAFLAG            RESET FLAG
     2733                            *
     2734   01 009A1    22807F00 A   EXAMALL  LI,8     X'7F00'           R8 = FA FOR 0001 YC/7P OPEN ON CDM29
     2735   01 009A2    48800005 A            EOR,8    5
     2736   01 009A3    683006DE              BCR,3    EXITST            YES, EXIT
     2737   01 009A4    6AF0036C              BAL,15   CNT:BITS          NO,
     2738   01 009A5    21600004 A            CI,6     4                 4 BITS OR MORE BAD
     2739   01 009A6    681009B6              BCR,1    TPNYI
     2740   01 009A7    6AF003D0              BAL,15   FA:GRUP
     2741   01 009A8    3180026B              CW,8     8K                ALL  8K  BAD
     2742   01 009A9    691006DE              BCS,1    EXITST            NO,
     2743                            *
     2744                            * NTSSTB  TEST ROUTINE
     2745                            *
     2746   01 009AA    21AFFFFF A            CI,10    -1                TESTPAT ALL 1'S
     2747   01 009AB    693009C9              BCS,3    CHKINH            NO
     2748   01 009AC    6AF0036C              BAL,15   CNT:BITS
     2749   01 009AD    21600010 A            CI,6     16                16 BITS FAIL
     2750   01 009AE    693009C9              BCS,3    CHKINH            NO
     2751   01 009AF    22900000 A            PRINT    MSG52,MSG52END    YES
            01 009B0    359001A4
            01 009B1    22901133 N
                        0400112A
     2752   01 009B3    22E00001 A            LI,14    1
     2753   01 009B4    050009C8              CAL2     04B
     2754   01 009B5    680006DE              B        EXITST            EXIT
     2755                            *
     2756   01 009B6    21600008 A   TPNYI    CI,6     8                 ONE BYTE BAD
     2757   01 009B7    693006DE              BCS,3    EXITST            NO,
     2758   01 009B8    6AF003D0              BAL,15   FA:GRUP           YES
     2759   01 009B9    21800040 A            CI,8     X'40'
     2760   01 009BA    693006DE              BCS,3    EXITST
     2761   01 009BB    6AF0039C              BAL,15   BAD:BYTE          FIND FAILING BYTE
     2762   01 009BC    694006DE              BCS,4    EXITST
     2763   01 009BD    22900000 A            PRINT    MSG58,MSG58END    PRINT MEESAGE
            01 009BE    359001A4
            01 009BF    2290118C N
                        04001182
     2764   01 009C1    6AF003B2              BAL,15   BAD:HW            FIND BAD HW
     2765   01 009C2    22E00001 A            LI,14    1
     2766   01 009C3    050C09C5              CAL2     RIBON,6           REPORT MODULE
     2767   01 009C4    680006DE              B        EXITST            EXIT
     2768   01 009C5    01C0D46B A   RIBON    DATA     X'01C0D46B'
     2769   01 009C6    01E0D46B A            DATA     X'01E0D46B'
     2770                            *
     2771   01 009C7    00000000 A   INHTEMP  DATA     0
     2772   01 009C8    04B0C46B A   04B      DATA     X'04B0C46B'       MODULE SLOT CODE
     2773                            *
     2774   01 009C9    3190026B     CHKINH   CW,9     8K
     2775   01 009CA    692009CD              BCS,2    %+3
     2776                            *
     2777                            * BAD INHIBIT DRIVER DETECTED,  PROCEED TO FIND THE FAULTY MODULE
     2778                            *
     2779   01 009CB    3300097E     INHBAD   MTW,0    SAFLAG            YES, THEN FLAG SET
     2780   01 009CC    69300980              BCS,3    EXAMRET           YES, RETURN TO TEST 7
     2781   01 009CD    21600002 A            CI,6     2
     2782   01 009CE    693006DE              BCS,3    EXITST
     2783   01 009CF    22900000 A            PRINT    MSG35,MSG35END    YES
            01 009D0    359001A4
            01 009D1    22901076 N
                        0400106C
     2784   01 009D3    22E00001 A            LI,14    1
     2785   01 009D4    3290000A A            LW,9     10
     2786   01 009D5    4890000B A            EOR,9    11                SET R9 = BAD BITS
     2787   01 009D6    6AF003B2              BAL,15   BAD:HW            FIND BAD HW
     2788   01 009D7    683009D9              BCR,3    %+2
     2789   01 009D8    25900010 A            SLS,9    16                SET BAD HW IN HW0 POSITION
     2790   01 009D9    22800000 A            LI,8     0
     2791   01 009DA    25800104 A            SLD,8    4                 ERROR IN 0-3
     2792   01 009DB    683009DE              BCR,3    %+3               NO
     2793   01 009DC    050C09E8              CAL2     13DF,6            YES, REPORT  13D,F
     2794   01 009DD    680006DE              B        EXITST
     2795   01 009DE    25800104 A            SLD,8    4                 IN 4-7
     2796   01 009DF    683009E2              BCR,3    %+3               NO
     2797   01 009E0    050C09EA              CAL2     11DF,6            YES
     2798   01 009E1    680006DE              B        EXITST
     2799   01 009E2    25800104 A            SLD,8    4                 ERROR IN BITS 8-11
     2800   01 009E3    683009E6              BCR,3    %+3               NO
     2801   01 009E4    050C09EC              CAL2     09DF,6            YES, REPORT
     2802   01 009E5    680006DE              B        EXITST
     2803   01 009E6    050C09EE              CAL2     07DF,6
     2804   01 009E7    680006DE              B        EXITST
     2805                            *
     2806                            *
     2807   01 009E8    13D0D46B A   13DF     DATA     X'13D0D46B'       MODULE LOCATION CODE
     2808   01 009E9    13F0D46B A            DATA     X'13F0D46B'       MODULE LOCATION CODE
     2809   01 009EA    11D0D46B A   11DF     DATA     X'11D0D46B'       MODULE LOCATION CODE
     2810   01 009EB    11F0D46B A            DATA     X'11F0D46B'       MODULE LOCATION CODE
     2811   01 009EC    09D0D46B A   09DF     DATA     X'09D0D46B'       MODULE LOCATION CODE
     2812   01 009ED    09F0D46B A            DATA     X'09F0D46B'       MODULE LOCATION CODE
     2813   01 009EE    07D0D46B A   07DF     DATA     X'07D0D46B'       MODULE LOCATION CODE
     2814   01 009EF    07F0D46B A            DATA     X'07F0D46B'       MODULE LOCATION CODE
     2815                            *
     2816                            *
     2817                            *
     2818                            * TEST 9  SEARCH FOR ANY BAD "CDM"
     2819                            *
     2820   01 009F0    22800000 A   TEST9    LI,8     0
     2821   01 009F1    35800A18              STW,8    DIODTAG           RESET FLG
     2822   01 009F2    226FFFF6 A            LI,6     -10               SET CNTR
     2823   01 009F3    656009F5     CDMLOC   BIR,6    %+2
     2824   01 009F4    68000623              B        COMUTOR
     2825   01 009F5    655009F6              BIR,5    %+1               STEP UP FA
     2826   01 009F6    328A0000 A            LW,8     0,5               GET DATA
     2827   01 009F7    3180000A A            CW,8     10                DATA OK
     2828   01 009F8    693009F3              BCS,3    CDMLOC            NO
     2829   01 009F9    31500002 A            CW,5     2                 YES, THEN LAST LOC
     2830   01 009FA    691009F3              BCS,1    CDMLOC                 NO
     2831   01 009FB    325005CA     BITEXAM  LW,5     FA                GET ORIGINAL FAILING ADDR.
     2832   01 009FC    6AF0036C              BAL,15   CNT:BITS
     2833   01 009FD    21600001 A            CI,6     1                 ONE BIT FAIL ONLY
     2834   01 009FE    69300623              BCS,3    COMUTOR           NO
     2835   01 009FF    22E00001 A            LI,14    1
     2836   01 00A00    4B700A16              AND,7    HF
     2837   01 00A01    25700001 A            SLS,7    1
     2838   01 00A02    35700353              STW,7    TEMPR7
     2839   01 00A03    6AF003B2              BAL,15   BAD:HW
     2840   01 00A04    32700353              LW,7     TEMPR7
     2841   01 00A05    21600000 A            CI,6     0
     2842   01 00A06    68300A08              BCR,3    %+2
     2843   01 00A07    20700001 A            AI,7     1
     2844   01 00A08    33000A18              MTW,0    DIODTAG           FLG SET
     2845   01 00A09    68300A0B              BCR,3    BADCOR            NO
     2846   01 00A0A    68000A0F              B        NOTCOR
     2847   01 00A0B                 BADCOR   RES      0
     2848   01 00A0B    22900000 A            PRINT    MSG36,MSG36END    PRINT MASSAGE
            01 00A0C    359001A4
            01 00A0D    2290107E N
                        04001076
     2849   01 00A0F    22802000 A   NOTCOR   LI,8     X'2000'
     2850   01 00A10    4B800005 A            AND,8    5                 BIT 2 SET
     2851   01 00A11    68300A14              BCR,3    CDMSET2N          NO
     2852                            *
     2853                            * DETERMINE FAILING BIT (OR BITS) TO REPORT BAD CDM
     2854                            *
     2855   01 00A12    050E0A29              CAL2     CDMOD,7           REPORT MODULE LOC
     2856   01 00A13    68000A15              B        %+2
     2857   01 00A14    050E0A19     CDMSET2N CAL2     CDMOD2N,7         REPORT MODULE LOC
     2858   01 00A15    680006DE              B        EXITST            EXIT THIS TEST
     2859                            *
     2860                            *
     2861   01 00A16    0000000F A   HF       DATA     X'F'
     2862   01 00A17    00000000 A   DATAERR  DATA     0
     2863   01 00A18    00000000 A   DIODTAG  DATA     0
     2864                            *
     2865   01 00A19    20C0D46B A   CDMOD2N  DATA     X'20C0D46B'       MODULE SLOT CODE
     2866   01 00A1A    20F0D46B A            DATA     X'20F0D46B'       MODULE SLOT CODE
     2867   01 00A1B    19C0D46B A            DATA     X'19C0D46B'       MODULE SLOT CODE
     2868   01 00A1C    19F0D46B A            DATA     X'19F0D46B'       MODULE SLOT CODE
     2869   01 00A1D    24C0D46B A            DATA     X'24C0D46B'       MODULE SLOT CODE
     2870   01 00A1E    24F0D46B A            DATA     X'24F0D46B'       MODULE SLOT CODE
     2871   01 00A1F    23C0D46B A            DATA     X'23C0D46B'       MODULE SLOT CODE
     2872   01 00A20    23F0D46B A            DATA     X'23F0D46B'       MODULE SLOT CODE
     2873   01 00A21    28C0D46B A            DATA     X'28C0D46B'       MODULE SLOT CODE
     2874   01 00A22    28F0D46B A            DATA     X'28F0D46B'       MODULE SLOT CODE
     2875   01 00A23    27C0D46B A            DATA     X'27C0D46B'       MODULE SLOT CODE
     2876   01 00A24    27F0D46B A            DATA     X'27F0D46B'       MODULE SLOT CODE
     2877   01 00A25    32C0D46B A            DATA     X'32C0D46B'       MODULE SLOT CODE
     2878   01 00A26    32F0D46B A            DATA     X'32F0D46B'       MODULE SLOT CODE
     2879   01 00A27    31C0D46B A            DATA     X'31C0D46B'       MODULE SLOT CODE
     2880   01 00A28    31F0D46B A            DATA     X'31F0D46B'       MODULE SLOT CODE
     2881                            *
     2882                            *
     2883   01 00A29    18C0D46B A   CDMOD    DATA     X'18C0D46B'       MODULE SLOT CODE
     2884   01 00A2A    18E0D46B A            DATA     X'18E0D46B'       MODULE SLOT CODE
     2885   01 00A2B    17C0D46B A            DATA     X'17C0D46B'       MODULE SLOT CODE
     2886   01 00A2C    17E0D46B A            DATA     X'17E0D46B'       MODULE SLOT CODE
     2887   01 00A2D    22C0D46B A            DATA     X'22C0D46B'       MODULE SLOT CODE
     2888   01 00A2E    22F0D46B A            DATA     X'22F0D46B'       MODULE SLOT CODE
     2889   01 00A2F    21C0D46B A            DATA     X'21C0D46B'       MODULE SLOT CODE
     2890   01 00A30    21F0D46B A            DATA     X'21F0D46B'       MODULE SLOT CODE
     2891   01 00A31    26C0D46B A            DATA     X'26C0D46B'       MODULE SLOT CODE
     2892   01 00A32    26F0D46B A            DATA     X'26F0D46B'       MODULE SLOT CODE
     2893   01 00A33    25C0D46B A            DATA     X'25C0D46B'       MODULE SLOT CODE
     2894   01 00A34    25F0D46B A            DATA     X'25F0D46B'       MODULE SLOT CODE
     2895   01 00A35    30C0D46B A            DATA     X'30C0D46B'       MODULE SLOT CODE
     2896   01 00A36    30F0D46B A            DATA     X'30F0D46B'       MODULE SLOT CODE
     2897   01 00A37    29C0D46B A            DATA     X'29C0D46B'       MODULE SLOT CODE
     2898   01 00A38    29F0D46B A            DATA     X'29F0D46B'       MODULE SLOT CODE
     2899                            *
     2900                            *
     2901                            *
     2902                            * TEST  10    TEST FOR ANY BAD DIODE OR OPEN LINES ON  CDM
     2903                            *
     2904                            *
     2905   01 00A39    22800000 A   TEST10   LI,8     0
     2906   01 00A3A    35800AB4              STW,8    YDIODE
     2907   01 00A3B    35800AB5              STW,8    XLTAG
     2908   01 00A3C    35800AB7              STW,8    XDIODE
     2909   01 00A3D    228FFFFF A            LI,8     -1
     2910   01 00A3E    35800A18              STW,8    DIODTAG
     2911   01 00A3F    33F00AB6              MTW,-1   TAGALT            FLAG TO TEST ALT. LOCS
     2912   01 00A40    6AF003D0              BAL,15   FA:GRUP
     2913   01 00A41    21900010 A            CI,9     X'10'             16 LOCS. BAD IN ALT. FORM  (8 LOC)
     2914   01 00A42    69300A44              BCS,3    %+2               NO
     2915   01 00A43    33100AB5              MTW,1    XLTAG             YES, SET FLG
     2916   01 00A44    6AF0039C              BAL,15   BAD:BYTE          HALF-BYTE BAD
     2917   01 00A45    69400A6D              BCS,4    YD                NO
     2918   01 00A46    328A0080 A            LW,8     X'80',5           YES, TRY FA+X'80'
     2919   01 00A47    3180000B A            CW,8     11                SAME BITS BAD
     2920   01 00A48    69300A6D              BCS,3    YD                NO
     2921   01 00A49    328A0100 A            LW,8     X'100',5          YES, TRY FA+100 (HEX)
     2922   01 00A4A    3180000B A            CW,8     11                AGAIN SAME BITS BAD
     2923   01 00A4B    69300A6D              BCS,3    YD                NO
     2924   01 00A4C    328A0180 A            LW,8     X'180',5          YES,
     2925   01 00A4D    3180000B A            CW,8     11                ONCE AGAIN SAME BITS BAD FOR FA+180
     2926   01 00A4E    69300A6D              BCS,3    YD                NO
     2927   01 00A4F    328A0200 A            LW,8     X'200',5          TRY FOR FA+X'200'
     2928   01 00A50    3180000B A            CW,8     11                OK
     2929   01 00A51    69300A6D              BCS,3    YD                   NO
     2930   01 00A52    33000AB5              MTW,0    XLTAG                 YES, THEN FLG SET
     2931   01 00A53    68300A5C              BCR,3    ODPRINT                            NO
     2932   01 00A54    328A0001 A            LW,8     1,5                                YES
     2933   01 00A55    3180000B A            CW,8     11                DATA OF FA+1 BAD ON SAME BITS
     2934   01 00A56    683006DE              BCR,3    EXITST            YES,  XCS SHOULD BE BAD
     2935   01 00A57                 XLOPEN   RES      0
     2936   01 00A57    22900000 A            PRINT    MSG37,MSG37END    PRINT XL MSG.
            01 00A58    359001A4
            01 00A59    22901087 N
                        0400107E
     2937   01 00A5B    680009FB              B        BITEXAM           GO FIND MODULE LOC.
     2938                            *
     2939                            * PRINT  XCXV  OPEN DIODE MESSAGE
     2940                            *
     2941   01 00A5C    328A0010 A   ODPRINT  LW,8     16,5
     2942   01 00A5D    3180000B A            CW,8     11                SAME BITS OF FA+16 BAD
     2943   01 00A5E    68300A57              BCR,3    XLOPEN            YES
     2944   01 00A5F    22900000 A            PRINT    MSG38,MSG38END    NO
            01 00A60    359001A4
            01 00A61    2290108C N
                        04001087
     2945   01 00A63                 OPENYC   RES      0
     2946   01 00A63    22900000 A            PRINT    MSG39,MSG39END    PRINT MESSAGE
            01 00A64    359001A4
            01 00A65    22901093 N
                        0400108C
     2947   01 00A67    680009FB              B        BITEXAM           GO FIND BAD MODULE
     2948                            *
     2949                            * PRINT  YCYV  OPEN DIODE MESSAGE
     2950                            *
     2951   01 00A68                 YCYV     RES      0
     2952   01 00A68    22900000 A            PRINT    MSG40,MSG40END    PRINT MESSAGE
            01 00A69    359001A4
            01 00A6A    22901098 N
                        04001093
     2953   01 00A6C    68000A63              B        OPENYC
     2954                            *
     2955                            *
     2956   01 00A6D    33000575     YD       MTW,0    ERRCNT            ANY ERROR REPORTED
     2957   01 00A6E    69300623              BCS,3    COMUTOR           YES, EXIT
     2958   01 00A6F    2280F800 A            LI,8     X'F800'           MASK
     2959   01 00A70    4B500008 A            AND,5    8
     2960   01 00A71    35500AB3              STW,5    NEWFA
     2961   01 00A72    2270007F A   YDCOMPR  LI,7     X'7F'             CNTR
     2962   01 00A73    328A0001 A   NXTYD    LW,8     1,5
     2963   01 00A74    3180000A A            CW,8     10                DATA OK
     2964   01 00A75    68300A7D              BCR,3    YDLOC             YES
     2965   01 00A76    3180000B A            CW,8     11                NO, THEN SAME BITS BAD
     2966   01 00A77    68300A80              BCR,3    NXTYDBLK                 YES
     2967                            *                                           NO
     2968   01 00A78    33000AB4     YDCNTR   MTW,0    YDIODE            FALG SET
     2969   01 00A79    69300A91              BCS,3    XDEXAM            YES
     2970   01 00A7A    33100AB4              MTW,1    YDIODE            NO
     2971   01 00A7B    35500AB3              STW,5    NEWFA             INCREMENT FLG
     2972   01 00A7C    68000A80              B        NXTYDBLK
     2973                            *
     2974   01 00A7D    64700A7F     YDLOC    BDR,7    %+2               ALL DONE
     2975   01 00A7E    65500A73              BIR,5    NXTYD             NO, TRY NEXT YD
     2976   01 00A7F    68000A78              B        YDCNTR            YES
     2977                            *
     2978                            *  EXAMINE ANOTHER BLOCK OF LOCATIONS FOR BAD BITS
     2979                            *
     2980   01 00A80    32500AB3     NXTYDBLK LW,5     NEWFA
     2981   01 00A81    20500080 A            AI,5     X'80'
     2982   01 00A82    22802000 A            LI,8     X'2000'
     2983   01 00A83    4B800AB3              AND,8    NEWFA
     2984   01 00A84    48800005 A            EOR,8    5                 BIT 2 CHANGED
     2985   01 00A85    68300A72              BCR,3    YDCOMPR           NO
     2986   01 00A86    33000AB4              MTW,0    YDIODE            FLG RESET
     2987   01 00A87    69300A91              BCS,3    XDEXAM            NO
     2988   01 00A88    22900000 A            PRINT    MSG40,MSG40END    YES
            01 00A89    359001A4
            01 00A8A    22901098 N
                        04001093
     2989   01 00A8C                 SHORTD   RES      0
     2990   01 00A8C    22900000 A            PRINT    MSG41,MSG41END
            01 00A8D    359001A4
            01 00A8E    229010AA N
                        04001098
     2991   01 00A90    680009FB              B        BITEXAM
     2992                            *
     2993                            *
     2994                            *
     2995                            * TEST FOR ANY SHORT X-DIODES ON  CDM
     2996                            *
     2997   01 00A91    2250E000 A   XDEXAM   LI,5     X'E000'
     2998   01 00A92    4B5005CA              AND,5    FA                MASK BITS 3-15
     2999   01 00A93    35500AB3              STW,5    NEWFA             SAVE THIS NEW FA
     3000                            *
     3001   01 00A94    22700031 A   XDGRUP   LI,7     X'31'             CNTR
     3002   01 00A95    32500AB3              LW,5     NEWFA             GET NEW FA
     3003   01 00A96    328A0000 A   XDCOMPR  LW,8     0,5               EXAMINE DATA OF THIS FA
     3004   01 00A97    3180000A A            CW,8     10                DATA OK
     3005   01 00A98    68300AA7              BCR,3    NXTXD             YES
     3006   01 00A99    2280E07F A   BITS38   LI,8     X'E07F'           NO
     3007   01 00A9A    4B800AB3              AND,8    NEWFA
     3008   01 00A9B    2280007F A            LI,8     X'7F'
     3009   01 00A9C    4B800005 A            AND,8    5                 BITS 9-15 SET
     3010   01 00A9D    69300AB1              BCS,3    FANDONE           NO
     3011   01 00A9E    33F00AB7              MTW,-1   XDIODE            FLG = 1
     3012   01 00A9F    68300AA1              BCR,3    %+2               YES
     3013   01 00AA0    68000623              B        COMUTOR           EXIT
     3014   01 00AA1    32500AB3              LW,5     NEWFA
     3015   01 00AA2    22900000 A            PRINT    MSG38,MSG38END    PRINT XCXV MSG
            01 00AA3    359001A4
            01 00AA4    2290108C N
                        04001087
     3016   01 00AA6    68000A8C              B        SHORTD            PRINT SHORT DIODE AND MOD LOC
     3017                            *
     3018   01 00AA7    20500080 A   NXTXD    AI,5     X'80'             ADD X'80' TO NEW FA
     3019   01 00AA8    64700AAA              BDR,7    %+2               LAST LOC
     3020   01 00AA9    68000A96              B        XDCOMPR           NO
     3021   01 00AAA    33100AB7              MTW,1    XDIODE            YES
     3022   01 00AAB    32800AB7              LW,8     XDIODE
     3023   01 00AAC    21800002 A            CI,8     2                 FLG > 2
     3024   01 00AAD    69100AAF              BCS,1    %+2               NO
     3025   01 00AAE    68000623              B        COMUTOR           YES, EXIT
     3026   01 00AAF    35500AB3              STW,5    NEWFA             SAVE THIS NEW FA
     3027   01 00AB0    68000A99              B        BITS38
     3028   01 00AB1    33100AB3     FANDONE  MTW,1    NEWFA             INCREMENT FLAG
     3029   01 00AB2    68000A94              B        XDGRUP            TRY NEXT GROUP
     3030                            *
     3031   01 00AB3    00000000 A   NEWFA    DATA     0
     3032   01 00AB4    00000000 A   YDIODE   DATA     0
     3033   01 00AB5    00000000 A   XLTAG    DATA     0
     3034   01 00AB6    00000000 A   TAGALT   DATA     0
     3035   01 00AB7    00000000 A   XDIODE   DATA     0
     3036                            *
     3037                            *
     3038                            *
     3039                            *
     3040                            *
     3041                            * ADDRESSING TEST
     3042                            *
     3043   01 00AB8    33F00576     ADRTST   MTW,-1   ADRFLG            RAIZE ADRS FLG
     3044                            *
     3045   01 00AB9    32500001 A            LW,5     1
     3046   01 00ABA    68000ABB              B        %+1
     3047   01 00ABB    32600ABA              LW,6     %-1
     3048   01 00ABC    4B600577              AND,6    FE000             R6 = CURREN 8K
     3049   01 00ABD    32700005 A   ADRSTOR  LW,7     5
     3050   01 00ABE    4B700577              AND,7    FE000             8K BEING TESTED
     3051   01 00ABF    31700006 A            CW,7     6                 IS THIS RESIDE AREA
     3052   01 00AC0    69300AC3              BCS,3    %+3               IS IT RESIDE AREA
     3053   01 00AC1    4B5011B0              AND,5    =X'FFFFFF00'
     3054   01 00AC2    3050026B              AW,5     8K                YES, SKIP
     3055   01 00AC3    21500010 A            CI,5     16                GENERAL REGS
     3056   01 00AC4    68100AC6              BCR,1    %+2               NO
     3057   01 00AC5    20500010 A            AI,5     16                YES
     3058   01 00AC6    31500002 A            CW,5     2                 OUT OF RANGE
     3059   01 00AC7    69200ACE              BCS,2    ADFETCH-1         YES
     3060   01 00AC8    32800005 A            LW,8     5
     3061   01 00AC9    358A0000 A            STW,8    0,5               STORE LOC WITH ITS ADR
     3062   01 00ACA    31500002 A            CW,5     2                 LAST LOC
     3063   01 00ACB    68100ACE              BCR,1    %+3               YES
     3064   01 00ACC    20500001 A            AI,5     1
     3065   01 00ACD    68000ABD              B        ADRSTOR
     3066                            *
     3067   01 00ACE    32500001 A            LW,5     1
     3068   01 00ACF    32700005 A   ADFETCH  LW,7     5
     3069   01 00AD0    4B700577              AND,7    FE000             8K BEING EXAMINED
     3070   01 00AD1    31700006 A            CW,7     6                 IS THIS CURRENT 8K BLOCK
     3071   01 00AD2    69300AD5              BCS,3    %+3               IS IT RESIDE AREA
     3072   01 00AD3    4B5011B0              AND,5    =X'FFFFFF00'
     3073   01 00AD4    3050026B              AW,5     8K                YES, SKIP THIS 8K
     3074   01 00AD5    21500010 A            CI,5     16                GENERAL REGS
     3075   01 00AD6    68100AD8              BCR,1    %+2               NO
     3076   01 00AD7    20500010 A            AI,5     16                YES
     3077   01 00AD8    31500002 A            CW,5     2
     3078   01 00AD9    69200AE2              BCS,2    SUCCADRT
     3079   01 00ADA    328A0000 A            LW,8     0,5               FETCH TEST LOCATION
     3080   01 00ADB    31800005 A            CW,8     5                 CONTENT OK
     3081   01 00ADC    68300ADE              BCR,3    %+2               YES
     3082   01 00ADD    68000AE7              B        BAADADR
     3083   01 00ADE    31500002 A            CW,5     2                 LAST LOC
     3084   01 00ADF    68100AE2              BCR,1    %+3               YES
     3085   01 00AE0    20500001 A            AI,5     1
     3086   01 00AE1    68000ACF              B        ADFETCH
     3087                            *
     3088   01 00AE2                 SUCCADRT RES      0
     3089   01 00AE2    22900000 A            PRINT    MSG42,MSG42END    PRINT SUCCESS ADR TEST
            01 00AE3    359001A4
            01 00AE4    229010B0 N
                        040010AA
     3090   01 00AE6    68000B92              B        PRTYTST           GO TO PARITY TEST
     3091                            *
     3092   01 00AE7    6AF00320     BAADADR  BAL,15   EBCDIC             CONVERT
     3093   01 00AE8    4B800269              AND,8    404040FF
     3094   01 00AE9    158010C4              STD,8    INTRFADR          STORE IN LOC TO REPORT
     3095   01 00AEA    6AF00274              BAL,15   STATUS
     3096   01 00AEB    32800005 A            LW,8     5                                                 *A01
     3097   01 00AEC    6AF00320              BAL,15   EBCDIC                                            *A01
     3098   01 00AED    4B800269              AND,8    404040FF                                          *A01
     3099   01 00AEE    158010B8              STD,8    BADADR                                            *A01
     3100   01 00AEF    680005E7              B        ERROR             GO REPORT STATUS
     3101                            *
     3102   01 00AF0                 ADRTSTRT RES      0
     3103   01 00AF0    22900000 A            PRINT    MSG43,MSG43END    PRINT ADR-ERROR INFORMATION
            01 00AF1    359001A4
            01 00AF2    229010C8 N
                        040010B0
     3104   01 00AF4    22900000 A            PRINT    STSMSG,STSMSGE    PRINT ERROR STATUS
            01 00AF5    359001A4
            01 00AF6    22900F65 N
                        04000F28
     3105   01 00AF8    22800000 A            LI,8     0                                                 *A01
     3106   01 00AF9    35800576              STW,8    ADRFLG            RESET ADR FLG
     3107   01 00AFA    6C000000 A            RD,0     0                 READ SENSE SW
     3108   01 00AFB    69200AFD              BCS,2    %+2               SS3 SET
     3109   01 00AFC    2E000000 A            WAIT                       NO
     3110                            *
     3111                            * WAIT INDICATES THAT ADRRESSING ERROR WAS DETECTED AND REPORTED
     3112                            * SET SS1 IF LOOP ON ADDRESSING TEST DESIRED, OTHERWISE RESET SS1 TO
     3113                            * REPEAT FROM DATA TEST.  -  CLEAR THE WAIT TO CONTINUE
     3114                            *
     3115                            *
     3116   01 00AFD    6C000000 A            RD,0     0                 SS1 SET
     3117   01 00AFE    69800AB8              BCS,8    ADRTST            YES, LOOP ON ADR TST
     3118   01 00AFF    68000579              B        ALLSET            NO, START FROM DATA TST AGAIN
     3119                            *
     3120                            * TEST TO DETECT ANY MALFUNCTIONS IN ADDRESS LINES UNDER RAPID CHANGE
     3121                            * CONDITIONS
     3122                            *
     3123                            *
     3124                            *
     3125   01 00B00    32500001 A   ADRLTST  LW,5     1                 SET ADR TO TSTLOW
     3126   01 00B01    6D000040 A            WD,0     X'40'             RESET ALARM
     3127   01 00B02    328011B8              LW,8     =X'F0F0F0F0'
     3128   01 00B03    358010F9              STW,8    LINE
     3129   01 00B04    358010FA              STW,8    LINE+1
     3130   01 00B05    358010FB              STW,8    LINE+2
     3131   01 00B06    358010FC              STW,8    LINE+3
     3132   01 00B07    328011B9              LW,8     =X'F0404040'
     3133   01 00B08    358010FD              STW,8    LINE+4
     3134   01 00B09    228FFFFF A            LI,8     -1
     3135   01 00B0A    35800B91              STW,8    SPFLG             SET SPFLG
     3136   01 00B0B    22800800 A            LI,8     X'800'
     3137   01 00B0C    6D801100 A            WD,8     X'1100'           DISARM & DISABLE P-INTRPT
     3138   01 00B0D    32A00B4E              LW,10    ABCDEFAB
     3139   01 00B0E    22C00001 A   NXTBNKL  LI,12    1
     3140   01 00B0F    25C00001 A   NXTLIN   SLS,12   1                 POINT TO NEXT LINE
     3141   01 00B10    32300001 A            LW,3     1                 START WITH TEST-LOW
     3142   01 00B11    32600B11              LW,6     %
     3143   01 00B12    4B600577              AND,6    FE000             8K TO DISTRUB
     3144   01 00B13    32700003 A   LAREA    LW,7     3
     3145   01 00B14    31700006 A            CW,7     6                 CURRENT 8K
     3146   01 00B15    69300B1A              BCS,3    ADLSTR
     3147   01 00B16    4B3011B0              AND,3    =X'FFFFFF00'
     3148   01 00B17    3030026B              AW,3     8K                YES
     3149   01 00B18    31300002 A            CW,3     2                 OUT OF RANGE
     3150   01 00B19    69200B1F              BCS,2    ADRLDONE          YES
     3151   01 00B1A    35A60000 A   ADLSTR   STW,10   0,3
     3152   01 00B1B    31300002 A            CW,3     2                 LAST LOC
     3153   01 00B1C    68300B1F              BCR,3    %+3               YES
     3154   01 00B1D    20300001 A            AI,3     1
     3155   01 00B1E    68000B13              B        LAREA             NO
     3156                            *
     3157   01 00B1F                 ADRLDONE RES      0
     3158   01 00B1F    32800B4F              LW,8     B:INSTR           " B  0,5 "
     3159   01 00B20    4980000C A            OR,8     12                ADD TEST LINE
     3160   01 00B21    31500006 A            CW,5     6                 RESIDE AREA
     3161   01 00B22    69300B25              BCS,3    %+3               IS IT RESIDE AREA
     3162   01 00B23    4B5011B0              AND,5    =X'FFFFFF00'
     3163   01 00B24    3050026B              AW,5     8K                YES,  ADD 8-K
     3164   01 00B25    358A0000 A            STW,8    0,5               STORE IN FIRST LOC OF THE TEST BANK
     3165   01 00B26    64800B27              BDR,8    %+1
     3166   01 00B27    35500351              STW,5    TEMPR5            SAVE R5
     3167   01 00B28    4950000C A            OR,5     12
     3168   01 00B29    358A0000 A            STW,8    0,5
     3169   01 00B2A    32800B50              LW,8     RETRNL
     3170   01 00B2B    358BFFFF A            STW,8    -1,5              STORE IN 2ND LOC OF TST ADRS
     3171   01 00B2C    21C00200 A            CI,12    X'200'            ADRS LINE 22 BEING TESTED
     3172   01 00B2D    69300B30              BCS,3    %+3               NO
     3173   01 00B2E    32800C6A              LW,8     B:M1X5
     3174   01 00B2F    358A01FF A            STW,8    X'1FF',5          YES
     3175   01 00B30    32500351              LW,5     TEMPR5            RESTORE R5
     3176   01 00B31    22800800 A            LI,8     X'800'
     3177   01 00B32    6D801200 A            WD,8     X'1200'           ARM & ENABLE PARITY INTERRUPT
     3178   01 00B33    6AFA0000 A            BAL,15   0,5               BRANCH TO THE FIRST LOC OF TST BANK
     3179                            ********                                ********************************
     3180                            * RETURN POINT OF ADRS LINE TST ROUTINE
     3181                            *
     3182                            *
     3183   01 00B34    22800800 A            LI,8     X'800'
     3184   01 00B35    6D801100 A            WD,8     X'1100'           DISARM & DISABLE PRTY INTRPT
     3185   01 00B36    33000B91              MTW,0    SPFLG             WAS THERE ANY INTRPT
     3186   01 00B37    68300B51              BCR,3    ADRLEROR          YES
     3187   01 00B38    22801000 A            LI,8     X'1000'           NO, THEN LAST ADR LINE OF TST BANK
     3188   01 00B39    4B80000C A            AND,8    12
     3189   01 00B3A    68300B0F              BCR,3    NXTLIN            NO
     3190   01 00B3B    3050026B              AW,5     8K                POINT TO NXT 8K
     3191   01 00B3C    4B5011BA              AND,5    =X'FFFFF000'
     3192   01 00B3D    32800B3D              LW,8     %
     3193   01 00B3E    4B800577              AND,8    FE000
     3194   01 00B3F    31800005 A            CW,8     5                 RESIDENT 8K
     3195   01 00B40    69300B43              BCS,3    %+3               IS IT RESIDE AREA
     3196   01 00B41    4B5011B0              AND,5    =X'FFFFFF00'
     3197   01 00B42    3050026B              AW,5     8K                YES
     3198   01 00B43    31500002 A            CW,5     2
     3199   01 00B44    68200B0E              BCR,2    NXTBNKL           NO, TRY NEXT BANK (8K)
     3200   01 00B45    22800000 A            LI,8     0                 YES
     3201   01 00B46    35800B91              STW,8    SPFLG
     3202   01 00B47    22900000 A            PRINT    MSG48,MSG48END    PRINT SUCCESS TEST MSG
            01 00B48    359001A4
            01 00B49    229010F6 N
                        040010EE
     3203   01 00B4B    6C000000 A            RD,0     0                 SS1 SET
     3204   01 00B4C    69800B00              BCS,8    ADRLTST           YES LOOP
     3205   01 00B4D    68000D11              B        RANDMTST
     3206                            *
     3207                            *
     3208   01 00B4E    ABCDEFAB A   ABCDEFAB DATA     X'ABCDEFAB'
     3209   01 00B4F    680A0000 A   B:INSTR  B        0,5
     3210   01 00B50    E800000F A   RETRNL   B        *15
     3211   01 00B51    32800351     ADRLEROR LW,8     TEMPR5            GET ADR OF ERROR
     3212   01 00B52    6AF00320              BAL,15   EBCDIC            CONVERT
     3213   01 00B53    4B8011A6              AND,8    =X'FF'
     3214   01 00B54    498011A1              OR,8     =X'40404000'
     3215   01 00B55    35801102              STW,8    LADROUT
     3216   01 00B56    35901103              STW,9    LADROUT+1
     3217   01 00B57    32B0000C A            LW,11    12                GET BAD LINE
     3218   01 00B58    22A00000 A            LI,10    0
     3219   01 00B59    6AF0036C              BAL,15   CNT:BITS          FINE WHICH ONE IT IS
     3220   01 00B5A    32800007 A            LW,8     7
     3221   01 00B5B    21800013 A            CI,8     19                C O N V E R T
     3222   01 00B5C    69200B5F              BCS,2    %+3
     3223   01 00B5D    20800006 A            AI,8     6                    L I N E  #
     3224   01 00B5E    68000B64              B        LCONVRT
     3225   01 00B5F    2180001D A            CI,8     29                     T O
     3226   01 00B60    69200B63              BCS,2    %+3
     3227   01 00B61    2080000C A            AI,8     12                       D E C I M A L
     3228   01 00B62    68000B64              B        %+2
     3229   01 00B63    20800012 A            AI,8     18
     3230   01 00B64    6AF00320     LCONVRT  BAL,15   EBCDIC            CONVERT TO EBCDIC
     3231   01 00B65    4B9011A2              AND,9    =X'FFFF'
     3232   01 00B66    499011BB              OR,9     =X'4D7E0000'
     3233   01 00B67    359010FE              STW,9    LINE#
     3234   01 00B68    228000F1 A            LI,8     X'F1'
     3235   01 00B69    207FFFF1 A            AI,7     -15               ALINE
     3236   01 00B6A    758E10F9              STB,8    LINE,7            STORE BIN VALE OF BAD LINE
     3237   01 00B6B    6D000041 A            WD,0     X'41'             SET ALARM
     3238   01 00B6C    22900000 A            PRINT    MSG49,MSG49END    PRINT MSG
            01 00B6D    359001A4
            01 00B6E    2290110A N
                        040010F6
     3239   01 00B70    6C000000 A            RD,0     0                 SS3 SET
     3240   01 00B71    69200B73              BCS,2    %+2               YES
     3241   01 00B72    2E000000 A            WAIT                       NO
     3242                            *
     3243                            * ADR-LINE SPEED ERROR REPORTED - SET SS1 IN ORDER TO LOOP ON THIS TEST
     3244                            *
     3245                            *
     3246   01 00B73    6C000000 A            RD,0     0                 SS1 SET
     3247   01 00B74    69800B00              BCS,8    ADRLTST           YES
     3248   01 00B75    68000579              B        ALLSET            NO
     3249                            *
     3250                            *
     3251                            *
     3252   01 00B76    00000000 A   PERCNTR  DATA     0
     3253                            *
     3254                            *
     3255                                     BOUND    8
     3256                            *
     3257   01 00B78    00000000 A   %MPINTRP DATA     0,0
            01 00B79    00000000 A
     3258   01 00B7A    00000B7C              DATA     %+2
     3259   01 00B7B    00000000 A            DATA     0
     3260                            *
     3261   01 00B7C    3300047D              MTW,0    INTRPFLG          INTERRUPT CHECK TEST
     3262   01 00B7D    68300B80              BCR,3    ADRECHEK          NO
     3263   01 00B7E    33F0047E              MTW,-1   INTACFLG          YES, SET ACKNOWLEDGE FLG
     3264   01 00B7F    0E300B78              LPSD,3   %MPINTRP          RETURN
     3265                            *
     3266   01 00B80    33000665     ADRECHEK MTW,0    ADRECFLG          INTRPT FROM TST0 ?
     3267   01 00B81    68300B84              BCR,3    PTST              NO
     3268   01 00B82    33200B78              MTW,2    %MPINTRP          YES, ADD 2 TO RETURN ADDR
     3269   01 00B83    0E300B78              LPSD,3   %MPINTRP          RETURN TO TST0
     3270   01 00B84    33000B91     PTST     MTW,0    SPFLG             SPECIA PARITY FLG SET
     3271   01 00B85    68300B89              BCR,3    PFLGTST           NO
     3272   01 00B86    22800000 A            LI,8     0                 YES
     3273   01 00B87    35800B91              STW,8    SPFLG             RESET THE FLG
     3274   01 00B88    E800000F A            B        *15               RETURN TO CALLER
     3275   01 00B89    33000270     PFLGTST  MTW,0    PARTYFLG          PARITY TEST IN PROGRESS
     3276   01 00B8A    68300B8C              BCR,3    UNKNOWN           NO
     3277   01 00B8B    68000BD5              B        PARINT            YES, RETURN TO PARITY TEST
     3278                            *
     3279                            *
     3280   01 00B8C                 UNKNOWN  RES      0
     3281   01 00B8C    22900000 A            PRINT    MSG44,MSG44END
            01 00B8D    359001A4
            01 00B8E    229010D0 N
                        040010C8
     3282   01 00B90    68000140              B        %INTRAP
     3283                            *
     3284   01 00B91    00000000 A   SPFLG    DATA     0
     3285                            *
     3286                            *
     3287                            * PARITY TEST ROUTINE
     3288                            *
     3289                            *
     3290   01 00B92    22800000 A   PRTYTST  LI,8     0
     3291   01 00B93    3580026E              STW,8    DATAFLG
     3292   01 00B94    35800B76              STW,8    PERCNTR
     3293   01 00B95    33000A17              MTW,0    DATAERR           ANY DATA ERROR STILL EXIST
     3294   01 00B96    69300B99              BCS,3    EXITPTST          YES
     3295   01 00B97    33000270              MTW,0    PARTYFLG          RETURN FROM
     3296   01 00B98    68300BD0              BCR,3    PRTYRUN           NO
     3297   01 00B99    22800800 A   EXITPTST LI,8     X'800'            YES
     3298   01 00B9A    6D801100 A            WD,8     X'1100'           DISARM PARITY INTRPT
     3299   01 00B9B    22800000 A            LI,8     0
     3300   01 00B9C    35800270              STW,8    PARTYFLG          RE-INTIALIZE PARITY FLG
     3301   01 00B9D    35800B76              STW,8    PERCNTR
     3302   01 00B9E    68000C47              B        SWDRPE
     3303   01 00B9F    06A0C46B A   BADSTS14 DATA     X'06A0C46B'       MODULE SLOT # CODE
     3304   01 00BA0    24B0C46B A            DATA     X'24B0C46B'       MODULE SLOT # CODE
     3305   01 00BA1    04B0C46B A            DATA     X'04B0C46B'       MODULE SLOT # CODE
     3306   01 00BA2    12B0C46B A            DATA     X'12B0C46B'       MODULE SLOT # CODE
     3307   01 00BA3    23B0C46B A            DATA     X'23B0C46B'       MODULE SLOT # CODE
     3308   01 00BA4    27B0C46B A            DATA     X'27B0C46B'       MODULE SLOT # CODE
     3309                            *
     3310   01 00BA5    07A0C46B A   W7SET    DATA     X'07A0C46B'       MODULE SLOT # CODE
     3311   01 00BA6    09A0C46B A            DATA     X'09A0C46B'       MODULE SLOT # CODE
     3312   01 00BA7    14A0C46B A            DATA     X'14A0C46B'       MODULE SLOT # CODE
     3313   01 00BA8    21B0C46B A            DATA     X'21B0C46B'       MODULE SLOT # CODE
     3314   01 00BA9    10B0C46B A   W13SET   DATA     X'10B0C46B'       MODULE SLOT # CODE
     3315   01 00BAA    17B0C46B A            DATA     X'17B0C46B'       MODULE SLOT # CODE
     3316   01 00BAB    15A0C46B A            DATA     X'15A0C46B'       MODULE SLOT # CODE
     3317   01 00BAC    27B0C46B A            DATA     X'27B0C46B'       MODULE SLOT # CODE
     3318   01 00BAD    20A0C46B A            DATA     X'20A0C46B'       MODULE SLOT # CODE
     3319   01 00BAE    20B0C46B A            DATA     X'20B0C46B'       MODULE SLOT # CODE
     3320   01 00BAF    22A0E26B A            DATA     X'22A0E26B'       MODULE SLOT # CODE
     3321   01 00BB0    17B0E26B A            DATA     X'17B0E26B'       MODULE SLOT # CODE
     3322   01 00BB1    08A0C46B A   W12SET   DATA     X'08A0C46B'       MODULE SLOT # CODE
     3323   01 00BB2    18A0C46B A            DATA     X'18A0C46B'       MODULE SLOT # CODE
     3324   01 00BB3    14A0C46B A            DATA     X'14A0C46B'       MODULE SLOT # CODE
     3325   01 00BB4    26A0C46B A            DATA     X'26A0C46B'       MODULE SLOT # CODE
     3326   01 00BB5    27A0C46B A            DATA     X'27A0C46B'       MODULE SLOT # CODE
     3327   01 00BB6    12B0C46B A   WPBAD    DATA     X'12B0C46B'       MODULE SLOT # CODE
     3328   01 00BB7    04B0C46B A            DATA     X'04B0C46B'       MODULE SLOT # CODE
     3329   01 00BB8    23B0C46B A            DATA     X'23B0C46B'       MODULE SLOT # CODE
     3330   01 00BB9    06A0C46B A   STFF     DATA     X'06A0C46B'       MODULE SLOT # CODE
     3331   01 00BBA    08A0C46B A            DATA     X'08A0C46B'       MODULE SLOT # CODE
     3332   01 00BBB    13A0C46B A   HWGEN    DATA     X'13A0C46B'       MODULE SLOT # CODE
     3333   01 00BBC    11A0C46B A            DATA     X'11A0C46B'       MODULE SLOT # CODE
     3334   01 00BBD    10A0C46B A            DATA     X'10A0C46B'       MODULE SLOT # CODE
     3335   01 00BBE    12A0C46B A            DATA     X'12A0C46B'       MODULE SLOT # CODE
     3336   01 00BBF    04B0C46B A   R32BAD   DATA     X'04B0C46B'       MODULE SLOT # CODE
     3337   01 00BC0    06B0C46B A            DATA     X'06B0C46B'       MODULE SLOT # CODE
     3338   01 00BC1    27B0C46B A   RPMODS   DATA     X'27B0C46B'       MODULE SLOT # CODE
     3339   01 00BC2    20B0C46B A            DATA     X'20B0C46B'       MODULE SLOT # CODE
     3340   01 00BC3    20A0C46B A            DATA     X'20A0C46B'       MODULE SLOT # CODE
     3341   01 00BC4    17B0E26B A            DATA     X'17B0E26B'       MODULE SLOT # CODE
     3342   01 00BC5    07B0E26B A   PPRTS    DATA     X'07B0E26B'       MODULE SLOT # CODE
     3343   01 00BC6    12B0E26B A            DATA     X'12B0E26B'       MODULE SLOT # CODE
     3344   01 00BC7    21B0E26B A            DATA     X'21B0E26B'       MODULE SLOT # CODE
     3345   01 00BC8    26B0E26B A            DATA     X'26B0E26B'       MODULE SLOT # CODE
     3346   01 00BC9    24B0C46B A   LPCHKMOD DATA     X'24B0C46B'       MODULE SLOT # CODE
     3347   01 00BCA    27B0E26B A            DATA     X'27B0E26B'       MODULE SLOT # CODE
     3348   01 00BCB    06A0E26B A            DATA     X'06A0E26B'       MODULE SLOT # CODE
     3349   01 00BCC    07B0E26B A            DATA     X'07B0E26B'       MODULE SLOT # CODE
     3350   01 00BCD    12B0E26B A            DATA     X'12B0E26B'       MODULE SLOT # CODE
     3351   01 00BCE    21B0E26B A            DATA     X'21B0E26B'       MODULE SLOT # CODE
     3352   01 00BCF    26B0E26B A            DATA     X'26B0E26B'       MODULE SLOT # CODE
     3353   01 00BD0    228FFFFF A   PRTYRUN  LI,8     -1
     3354   01 00BD1    35800270              STW,8    PARTYFLG          SET FLG
     3355   01 00BD2    22800800 A            LI,8     X'800'
     3356   01 00BD3    6D801200 A            WD,8     X'1200'           ARM AND ENABLE PARITY INTRRUPT
     3357   01 00BD4    6800058C              B        PARTYGO           START PARITY TEST
     3358                            *
     3359                            * PARITY INTERRUPT RETURN POINT
     3360                            *
     3361   01 00BD5    22800800 A   PARINT   LI,8     X'800'
     3362   01 00BD6    6D801100 A            WD,8     X'1100'           DISARM & DISABLE  P.I.
     3363   01 00BD7    33000B76              MTW,0    PERCNTR           FIRST PARITY ERROR
     3364   01 00BD8    69300BDA              BCS,3    PRTYTSTR          NO
     3365   01 00BD9    680005E7              B        ERROR             YES, PRINT PARITY ERROR STATUS INFO
     3366                            *
     3367                            * TEST TO SEE THE INTERRUPTED (PARITY) INSTR.  WAS  "LW"  AND DATA IS OK
     3368                            *
     3369   01 00BDA    32700B78     PRTYTSTR LW,7     %MPINTRP          GET INSTRUCTION ADDR
     3370   01 00BDB    4B7011A0              AND,7    =X'1FFFF'         *A01
     3371   01 00BDC    226FFFFB A            LI,6     -5                INSTR CNTR
     3372   01 00BDD    328E0000 A   INTINSTR LW,8     0,7               FETCH INSTR.
     3373   01 00BDE    35800BEA              STW,8    REXACUTE          STORE TO REXACUTE
     3374   01 00BDF    318005BC              CW,8     FETCH             WAS INSTR  "LW,8  0,5"
     3375   01 00BE0    68300BE8              BCR,3    WASLW             YES
     3376   01 00BE1    207FFFFF A            AI,7     -1
     3377   01 00BE2    65600BDD              BIR,6    INTINSTR          TRY AGAIN IN CASE OF INTRPT DELAY
     3378   01 00BE3                 DATABAD  RES      0
     3379   01 00BE3    22900000 A             PRINT   ODDMSG,ODMSGEND    NO
            01 00BE4    359001A4
            01 00BE5    22900FE3 N
                        04000FD7
     3380   01 00BE7    68000B8C              B        UNKNOWN
     3381                            *
     3382                            *
     3383   01 00BE8    33000575     WASLW    MTW,0    ERRCNT            ANY ERROR WAS REPORTED
     3384   01 00BE9    69300579              BCS,3    ALLSET            YES, THEN START FROM DATA TEST
     3385                            *                                   NO,
     3386   01 00BEA    00000000 A   REXACUTE DATA     0                 RE-EXECUTE THE INTRRUPTING INSTR.
     3387   01 00BEB    3180000A A            CW,8     10                DATA OK
     3388   01 00BEC    69300BE3              BCS,3    DATABAD
     3389                            *
     3390   01 00BED    33100B76     DATAOOK  MTW,1    PERCNTR
     3391   01 00BEE    31500002 A            CW,5     2                 LAST LOC
     3392   01 00BEF    68300C2F              BCR,3    CHEKPBIT           YES
     3393   01 00BF0    22800800 A            LI,8     X'800'            NO
     3394   01 00BF1    6D801200 A            WD,8     X'1200'           ARM & ENABLE P.I.
     3395   01 00BF2    65500BF3              BIR,5    %+1
     3396   01 00BF3    35AA0000 A            STW,10   0,5               STORE IN NEXT LOC
     3397   01 00BF4    328A0000 A            LW,8     0,5               P.I. SHOULD OCCUR IF ERROR  SOURCE
     3398                            *                                     IS STILL IN EFFECT
     3399   01 00BF5    68000BF6              B        %+1
     3400   01 00BF6    68000BF7              B        %+1               DUMMY DELAYS
     3401   01 00BF7    68000BF8              B        %+1
     3402   01 00BF8    68000BF9              B        %+1
     3403                            *
     3404   01 00BF9    22800800 A            LI,8     X'800'
     3405   01 00BFA    6D801100 A            WD,8     X'1100'           DISARM & DISABLE
     3406   01 00BFB    325005CA              LW,5     FA
     3407   01 00BFC    32B00B76              LW,11    PERCNTR
     3408   01 00BFD    21B01FFF A            CI,11    X'1FFF'           8K OR MORE HAS PE
     3409   01 00BFE    68100C47              BCR,1    SWDRPE
     3410   01 00BFF    21B00080 A   CTRTST1  CI,11    X'80'             X'80' PE
     3411   01 00C00    69300C1D              BCS,3    CTRTST2           NO
     3412   01 00C01    6AF0035C              BAL,15   PBIT              YES, PARITY SHOULD BE ON
     3413   01 00C02    68100C05              BCR,1    PARTYON           SHOULD BE OFF, BUT IS ON
     3414   01 00C03    22600001 A            LI,6      1
     3415   01 00C04    68000754              B        YVSBAD            GO FIND BAD MODULE
     3416   01 00C05                 PARTYON  RES      0
     3417   01 00C05    22900000 A            PRINT    MSG40,MSG40END    PRINT MSG
            01 00C06    359001A4
            01 00C07    22901098 N
                        04001093
     3418   01 00C09    22900000 A            PRINT    MSG39,MSG39END
            01 00C0A    359001A4
            01 00C0B    22901093 N
                        0400108C
     3419   01 00C0D    22E00004 A            LI,14    4
     3420   01 00C0E    22802000 A            LI,8     X'2000'
     3421   01 00C0F    4B800005 A            AND,8    5                 BIT 2 OF FA ON
     3422   01 00C10    68300C1B              BCR,3    PM1B              NO
     3423   01 00C11    05000D07              CAL2     M29               YES, PRINT MODULE LOCS
     3424   01 00C12                 PM31     RES      0
     3425   01 00C12    22900000 A            PRINT    MSG46,MSG46END    PRINT MSG
            01 00C13    359001A4
            01 00C14    229010E6 N
                        040010D9
     3426   01 00C16                 PTAGSET  RES      0
     3427   01 00C16    22900000 A            PRINT    MSG45,MSG45END    PRINT MSG
            01 00C17    359001A4
            01 00C18    229010D9 N
                        040010D0
     3428   01 00C1A    68000B99              B        EXITPTST          EXIT PARITY TEST
     3429                            *
     3430   01 00C1B    05000D0B     PM1B     CAL2     M30
     3431   01 00C1C    68000C12              B        PM31
     3432                            *
     3433   01 00C1D    21B00400 A   CTRTST2  CI,11    X'400'
     3434   01 00C1E    69300C20              BCS,3    CTRTST3
     3435   01 00C1F    680007EC              B        C
     3436                            *
     3437   01 00C20    21B02000 A   CTRTST3  CI,11    X'2000'
     3438                            *
     3439                            *  CHECK  PARITY  SENSE
     3440                            *
     3441   01 00C21    69100C23              BCS,1    %+2
     3442   01 00C22    68000C25              B        MODSENS           REPORT PARITY SENSE-LINE IS BAD
     3443   01 00C23    21B01000 A            CI,11    X'1000'           4K CAUSE P.E.
     3444   01 00C24    69100C2C              BCS,1    CTRTST4
     3445   01 00C25                 MODSENS  RES      0
     3446   01 00C25    22900000 A            PRINT    MSG33,MSG33END    PRINT PARITY SENSE MASSAGE
            01 00C26    359001A4
            01 00C27    22901063 N
                        0400105A
     3447   01 00C29    22E00001 A            LI,14    1
     3448   01 00C2A    05000D0F              CAL2     PSENSE            CALL OUT 04 MODULE
     3449   01 00C2B    68000C16              B        PTAGSET
     3450                            *
     3451   01 00C2C    21B00800 A   CTRTST4  CI,11    X'800'            X'800' LOC GENERATE PE
     3452   01 00C2D    69300C32              BCS,3    CTRTST5           NO
     3453   01 00C2E    680007EC              B        C                 YES
     3454                            *
     3455                            *
     3456   01 00C2F    6AF0035C     CHEKPBIT BAL,15   PBIT              PARITY BIT SHOULD BE ON
     3457   01 00C30    68100C34              BCR,1    PINH
     3458   01 00C31    68000BFF              B        CTRTST1
     3459                            *
     3460   01 00C32    21B00040 A   CTRTST5  CI,11    X'40'             X'40' LOCS RESULT IN PE
     3461   01 00C33    69300C3B              BCS,3    CTRTST6           NO
     3462                            *
     3463   01 00C34                 PINH     RES      0
     3464   01 00C34    22900000 A            PRINT    MSG47,MSG47END
            01 00C35    359001A4
            01 00C36    229010EE N
                        040010E6
     3465   01 00C38    22E00001 A            LI,14    1                 1 MODULE TO REPORT
     3466   01 00C39    05000D10              CAL2     PINHMOD
     3467   01 00C3A    68000C16              B        PTAGSET
     3468                            *
     3469   01 00C3B    21B00001 A   CTRTST6  CI,11    1
     3470   01 00C3C    69300C12              BCS,3    PM31
     3471   01 00C3D    22900000 A            PRINT    MSG36,MSG36END    PRINT BAD PARITY CORE
            01 00C3E    359001A4
            01 00C3F    2290107E N
                        04001076
     3472   01 00C41    22802000 A            LI,8     X'2000'
     3473   01 00C42    4B800005 A            AND,8    5                 BIT 2 OF FA ON
     3474   01 00C43    68300C1B              BCR,3    PM1B              NO
     3475   01 00C44    22E00004 A            LI,14    4
     3476   01 00C45    05000D07              CAL2     M29               REPORT 4 MODULES
     3477   01 00C46    68000C16              B        PTAGSET
     3478                            * TEST TO TEDECT ANY MALFUNCTIONS IN  SWITCH-DRIVER  PARITY LOGIC
     3479                            *
     3480                            *
     3481                            *
     3482                            *
     3483   01 00C47    6AF00348     SWDRPE   BAL,15   SAVREGS           SAVE REGISTERS
     3484   01 00C48    32600C48     NXTBNKPE LW,6     %
     3485   01 00C49    4B600577              AND,6    FE000             DETERMIN RESID. AREA
     3486   01 00C4A    32700005 A            LW,7     5
     3487   01 00C4B    4B700577              AND,7    FE000
     3488   01 00C4C    31700006 A            CW,7     6                 RESIDENT 8K
     3489   01 00C4D    69300C50              BCS,3    %+3               IS IT RESIDE AREA
     3490   01 00C4E    4B5011B0              AND,5    =X'FFFFFF00'
     3491   01 00C4F    3050026B              AW,5     8K                YES
     3492   01 00C50    31500002 A            CW,5     2                 LAST 8K
     3493   01 00C51    69200D03              BCS,2    EXITSWP           YES
     3494   01 00C52    6C800010 A            RD,8     X'10'             RESET MF INDICATORS
     3495   01 00C53    02200080 A            LCI      8
     3496   01 00C54    2D8A0000 A            LMS,8    0,5               READ STATUS
     3497   01 00C55    4B8011BC              AND,8    =X'3FE0000'       FAULT TYPE AND LPBW BITS RESET
     3498   01 00C56    68300C6C              BCR,3    SWDRTSTG          YES
     3499   01 00C57    33100C6B              MTW,1    SWDFLG
     3500   01 00C58    69300C62              BCS,3    EXITPERR
     3501   01 00C59    22900000 A            PRINT    MSG50,MSG50END    NO, PRINT MSG & STATUS
            01 00C5A    359001A4
            01 00C5B    2290111D N
                        0400110A
     3502   01 00C5D    6AF00274              BAL,15   STATUS
     3503   01 00C5E    22900000 A            PRINT    STSMSG,STSMSGE
            01 00C5F    359001A4
            01 00C60    22900F65 N
                        04000F28
     3504   01 00C62    6C000000 A   EXITPERR RD,0     0                 SS3 SET
     3505   01 00C63    69200C65              BCS,2    %+2               YES
     3506   01 00C64    2E000000 A            WAIT                       NO
     3507                            *
     3508                            * ERROR WAIT - SET SS1 IN ORDER TO LOOP ON THIS TEST.  OTHERWISE
     3509                            * CLEAR WAIT TO CONTINUE
     3510                            *
     3511   01 00C65    6C000000 A            RD,0     0                 SS1 SET
     3512   01 00C66    69800C48              BCS,8    SWDRPE+1          YES                             *A01
     3513   01 00C67    6AF00345              BAL,15   RETREGS           RESTORE REGS.
     3514   01 00C68    68000579              B        ALLSET            NO
     3515                            *
     3516   01 00C69    00000000 A   TSTPAT   DATA     0
     3517   01 00C6A    680BFFFF A   B:M1X5   B        -1,5
     3518   01 00C6B    00000000 A   SWDFLG   DATA     0
     3519                            *
     3520   01 00C6C    32800800 A   SWDRTSTG LW,8     X'800'
     3521   01 00C6D    6D001100 A            WD,0     X'1100'           ASSURE P.E IS DISARMED &DISABLD
     3522   01 00C6E    22300000 A            LI,3     0
     3523   01 00C6F    353005C9              STW,3    PATFLG            RESET FLG
     3524   01 00C70    330005C9     NXTPRPAT MTW,0    PATFLG            EXAMINE FLG
     3525   01 00C71    68300C75              BCR,3    %+4               FETCH
     3526   01 00C72    670005D0              EXU      GETCOMP             PATTERN
     3527   01 00C73    20AFFFFF A            AI,10    -1
     3528   01 00C74    68000C76              B        %+2                  OR
     3529   01 00C75    670005CF              EXU      GETPAT                ITS COMPLEMENT
     3530   01 00C76    35A00C69              STW,10   TSTPAT                 AND SAVE
     3531   01 00C77    3290000A A            LW,9     10
     3532   01 00C78    6AF0035C              BAL,15   PBIT
     3533   01 00C79    7400040F              STCF     TEMPCC            SAVE STATUS OF P.BIT
     3534   01 00C7A    35AA0000 A            STW,10   0,5               WRITE TST PAT
     3535   01 00C7B    02200080 A            LCI      8
     3536   01 00C7C    2D8A0000 A            LMS,8    0,5               READ STATUS
     3537   01 00C7D    35800354              STW,8    TEMPR8
     3538   01 00C7E    4B8011B5              AND,8    =X'20000'         BIT 14 OK
     3539   01 00C7F    2580006F A            SLS,8    -17
     3540   01 00C80    3180040F              CW,8     TEMPCC
     3541   01 00C81    68300C85              BCR,3    14OK              YES
     3542   01 00C82    22E00006 A            LI,14    6                 NO
     3543   01 00C83    05000B9F              CAL2     BADSTS14
     3544   01 00C84    68000C62              B        EXITPERR
     3545                            *
     3546   01 00C85    32800354     14OK     LW,8     TEMPR8            GET STATUS READ
     3547   01 00C86    25800208 A            SCS,8    8
     3548   01 00C87    4B8011A9              AND,8    =1                BIT 7 OF STATUS SET
     3549   01 00C88    68300C8C              BCR,3    7RST              NO
     3550   01 00C89    22E00004 A            LI,14    4                 YES
     3551   01 00C8A    05000BA5              CAL2     W7SET             REPORT MODULE
     3552   01 00C8B    68000C62              B        EXITPERR          EXIT
     3553                            *
     3554   01 00C8C    22800800 A   7RST     LI,8     X'800'
     3555   01 00C8D    6D801200 A            WD,8     X'1200'           ARM & ENABLE  P.E.
     3556   01 00C8E    228FFFFF A            LI,8     -1
     3557   01 00C8F    35800B91              STW,8    SPFLG             SET FLG
     3558   01 00C90    35AA0000 A            STW,10   0,5               STORE IN LOC
     3559                            ********
     3560   01 00C91    33000B91              MTW,0    SPFLG             INTRPTED
     3561   01 00C92    68300CC1              BCR,3    INTRPTD           YES
     3562   01 00C93    22800800 A            LI,8     X'800'            NO
     3563   01 00C94    6D801100 A            WD,8     X'1100'           DISARM & DISABLE PI
     3564   01 00C95    02200080 A            LCI      8
     3565   01 00C96    2D8A0000 A            LMS,8    0,5               READ STATUS
     3566   01 00C97    35800354              STW,8    TEMPR8                SAVE
     3567   01 00C98    2580020E A            SCS,8    14
     3568   01 00C99    4B8011A9              AND,8    =1                BIT 13 SET
     3569   01 00C9A    68300C9E              BCR,3    13RESET           NO
     3570   01 00C9B    22E00008 A            LI,14    8                 YES
     3571   01 00C9C    05000BA9              CAL2     W13SET            REPORT MODULES
     3572   01 00C9D    68000C62              B        EXITPERR          EXIT
     3573                            *
     3574   01 00C9E    32800354     13RESET  LW,8     TEMPR8            FETCH STATUS
     3575   01 00C9F    2580020D A            SCS,8    13
     3576   01 00CA0    4B8011A9              AND,8    =1                STATUS BIT 12 SET
     3577   01 00CA1    68300CA5              BCR,3    PARTIALP          NO
     3578   01 00CA2    22E00005 A            LI,14    5                 YES
     3579   01 00CA3    05000BB1              CAL2     W12SET            REPORT MODS
     3580   01 00CA4    68000C62              B        EXITPERR          EXIT
     3581                            *
     3582   01 00CA5    22700000 A   PARTIALP LI,7     0
     3583   01 00CA6    F5AE0005 A            STB,10   *5,7              WRITE BYTE
     3584   01 00CA7    02200080 A            LCI      8
     3585   01 00CA8    2D8A0000 A            LMS,8    0,5               READ STATUS
     3586   01 00CA9    2580020F A            SCS,8    15                EXAMINE BIT 14
     3587   01 00CAA    4B8011A9              AND,8    =1
     3588   01 00CAB    3180040F              CW,8     TEMPCC            BIT 14 OK
     3589   01 00CAC    68300CB0              BCR,3    WPOK              YES
     3590   01 00CAD    22E00003 A            LI,14    3                 NO
     3591   01 00CAE    05000BB6              CAL2     WPBAD             REPORT MODULE #
     3592   01 00CAF    68000C62              B        EXITPERR          EXIT
     3593                            *
     3594   01 00CB0    21700003 A   WPOK     CI,7     3                 ALL BYTES DODE
     3595   01 00CB1    68300CB4              BCR,3    %+3               ALL BYTES DONE
     3596   01 00CB2    20700001 A            AI,7     1                 NO
     3597   01 00CB3    68000CA6              B        PARTIALP+1        TRY NXT ONE
     3598   01 00CB4    313005C7              CW,3     TOTALPAT          YES, THEN ALL PAT TESTED
     3599   01 00CB5    68300CB8              BCR,3    %+3                    YES
     3600   01 00CB6    20300001 A            AI,3     1                        NO, TRY NXT ONE
     3601   01 00CB7    68000C70              B        NXTPRPAT
     3602   01 00CB8    22300000 A            LI,3     0
     3603   01 00CB9    330005C9              MTW,0    PATFLG            COMPL. OF PAT ALSO DONE
     3604   01 00CBA    68300CBD              BCR,3    %+3               YES
     3605   01 00CBB    337005C9              MTW,7    PATFLG            SET FLG
     3606   01 00CBC    68000C70              B        NXTPRPAT          NO
     3607                            *
     3608   01 00CBD    3050026B              AW,5     8K
     3609   01 00CBE    31500002 A            CW,5     2                 OUT OF RANGE
     3610   01 00CBF    69200D03              BCS,2    EXITSWP           YES, EXIT
     3611   01 00CC0    68000C48              B        NXTBNKPE          TRY NEXT BANK
     3612   01 00CC1    32800800 A   INTRPTD  LW,8     X'800'
     3613   01 00CC2    6D801100 A            WD,8     X'1100'           DISARM & DISABLE  P.I.
     3614   01 00CC3    02200080 A            LCI      8
     3615   01 00CC4    2D8A0000 A            LMS,8    0,5               READ STATUS
     3616   01 00CC5    35800354              STW,8    TEMPR8            SAVE
     3617   01 00CC6    2580020E A            SCS,8    14
     3618   01 00CC7    4B8011A9              AND,8    =1                BIT 13 SET
     3619   01 00CC8    69300CD0              BCS,3    HWTST0            YES
     3620                            *
     3621   01 00CC9    32800354              LW,8     TEMPR8            FETCH STATUS
     3622   01 00CCA    2580020D A            SCS,8    13
     3623   01 00CCB    4B8011A9              AND,8    =1
     3624   01 00CCC    69300CE8              BCS,3    LPCHKERR          YES
     3625   01 00CCD    22E00002 A            LI,14    2                 NO
     3626   01 00CCE    05000BB9              CAL2     STFF              REPORT MODULE
     3627   01 00CCF    68000C62              B        EXITPERR          EXIT
     3628                            *
     3629   01 00CD0    48A011BD     HWTST0   EOR,10   =X'100000'        COMPL. BIT IN HW0
     3630   01 00CD1    35AA0000 A            STW,10   0,5               WRITE
     3631   01 00CD2    328A0000 A            LW,8     0,5               READ
     3632   01 00CD3    02200080 A            LCI      8
     3633   01 00CD4    2D8A0000 A            LMS,8    0,5               READ STATUS
     3634   01 00CD5    2580020E A            SCS,8    14                BIT 13 SET
     3635   01 00CD6    4B8011A9              AND,8    =1
     3636   01 00CD7    69300CDB              BCS,3    HWTST1            YES
     3637   01 00CD8    22E00003 A            LI,14    3                 NO
     3638   01 00CD9    05000BBB              CAL2     HWGEN             REPORT MODULES
     3639   01 00CDA    68000C62              B        EXITPERR          EXIT
     3640                            *
     3641   01 00CDB    32A00C69     HWTST1   LW,10    TSTPAT
     3642   01 00CDC    48A011A9              EOR,10   =1                COMPL. BIT IN HW1
     3643   01 00CDD    35AA0000 A            STW,10   0,5               WRITE
     3644   01 00CDE    328A0000 A            LW,8     0,5               READ
     3645   01 00CDF    02200080 A            LCI      8
     3646   01 00CE0    2D8A0000 A            LMS,8    0,5               READ STATUS
     3647   01 00CE1    35800354              STW,8    TEMPR8            SAVE
     3648   01 00CE2    2580020E A            SCS,8    14                BIT 13 SET
     3649   01 00CE3    4B8011A9              AND,8    =1
     3650   01 00CE4    69300CF2              BCS,3    HWDSOK            YES
     3651   01 00CE5    22E00003 A            LI,14    3                 NO
     3652   01 00CE6    05000BBC              CAL2     HWGEN+1           REPORT MODULE
     3653   01 00CE7    68000C62              B        EXITPERR          EXIT
     3654                            *
     3655   01 00CE8    22E00001 A   LPCHKERR LI,14    1
     3656   01 00CE9    05000BC9              CAL2     LPCHKMOD          REPORT MODULE
     3657   01 00CEA    6AF00274              BAL,15   STATUS            READ STATUS
     3658   01 00CEB    32700354              LW,7     TEMPR8            GET STATUS READ
     3659   01 00CEC    4B7011BE              AND,7    =8
     3660   01 00CED    2570007D A            SLS,7    -3                SET BANK # POINTER
     3661   01 00CEE    050E0BCA              CAL2     LPCHKMOD+1,7
     3662   01 00CEF    32700303              LW,7     PORT#
     3663   01 00CF0    050E0BCC              CAL2     LPCHKMOD+3,7      REPORT MODS.
     3664   01 00CF1    68000C62              B        EXITPERR          EXIT
     3665                            *
     3666   01 00CF2    32900C69     HWDSOK   LW,9     TSTPAT
     3667   01 00CF3    6AF0035C              BAL,15   PBIT              GENERATE PARITY BIT
     3668   01 00CF4    7400040F              STCF     TEMPCC            SAVE
     3669   01 00CF5    32800354              LW,8     TEMPR8
     3670   01 00CF6    2580020F A            SCS,8    15                BIT 14 OF STATS OK
     3671   01 00CF7    3180040F              CW,8     TEMPCC
     3672   01 00CF8    68300CFC              BCR,3    MODTOCPU          YES
     3673   01 00CF9    22E00002 A            LI,14    2                 NO
     3674   01 00CFA    05000BBF              CAL2     R32BAD            REPORT MODULES
     3675   01 00CFB    68000C62              B        EXITPERR          EXIT
     3676                            *
     3677   01 00CFC    22E00004 A   MODTOCPU LI,14    4
     3678   01 00CFD    05000BC1              CAL2     RPMODS
     3679   01 00CFE    6AF00274              BAL,15   STATUS            DETERMINE STATUS
     3680   01 00CFF    22E00001 A            LI,14    1
     3681   01 00D00    32700303              LW,7     PORT#             READ PORT NO
     3682   01 00D01    050E0BC5              CAL2     PPRTS,7           REPORT CORRECT MOD #
     3683   01 00D02    68000C62              B        EXITPERR          EXIT
     3684                            *
     3685                            *
     3686                            *
     3687   01 00D03    6AF00345     EXITSWP  BAL,15   RETREGS           RESTORE REGISTERS
     3688   01 00D04    22800000 A            LI,8     0
     3689   01 00D05    35800B91              STW,8    SPFLG             RESET FLG
     3690   01 00D06    68000B00              B        ADRLTST           GO ADRS-LINE TST
     3691   01 00D07    17E0D46B A   M29      DATA     X'17E0D46B'
     3692   01 00D08    18E0D46B A            DATA     X'18E0D46B'
     3693   01 00D09    21E0D46B A            DATA     X'21E0D46B'
     3694   01 00D0A    22E0D46B A            DATA     X'22E0D46B'
     3695                            *
     3696   01 00D0B    19E0D46B A   M30      DATA     X'19E0D46B'
     3697   01 00D0C    20E0D46B A            DATA     X'20E0D46B'
     3698   01 00D0D    23E0D46B A            DATA     X'23E0D46B'
     3699   01 00D0E    24E0D46B A            DATA     X'24E0D46B'
     3700                            *
     3701   01 00D0F    04E0D46B A   PSENSE   DATA     X'04E0D46B'
     3702   01 00D10    15E0D46B A   PINHMOD  DATA     X'15E0D46B'
     3703                            *
     3704                            *
     3705                            *
     3706                            *
     3707                            *
     3708                            *  R A N D O M  T E S T
     3709                            *
     3710                            *
     3711   01 00D11    22500000 A   RANDMTST LI,5     0
     3712   01 00D12    12800D7E              LD,8     M1T               INITIALIZE NOS
     3713   01 00D13    15800D82              STD,8    M1
     3714   01 00D14    12800D80              LD,8     SEEDT
     3715   01 00D15    15800D84              STD,8    SEED
     3716   01 00D16    68000D17              B        %+1
     3717   01 00D17    32600D16              LW,6     %-1
     3718   01 00D18    4B600577              AND,6    FE000
     3719   01 00D19    32700005 A   NXT8KRND LW,7     5
     3720   01 00D1A    4B700577              AND,7    FE000             EXAMINE TEST AREA
     3721   01 00D1B    31700006 A            CW,7     6                 RESIDE AREA
     3722   01 00D1C    69300D1F              BCS,3    CHKRDONE
     3723   01 00D1D    4B5011B0              AND,5    =X'FFFFFF00'
     3724   01 00D1E    3050026B              AW,5     8K                YES
     3725   01 00D1F    31500002 A   CHKRDONE CW,5     2                 ALL DONE
     3726   01 00D20    69200D2E              BCS,2    TSTRND
     3727   01 00D21    3A30026B              LCW,3    8K
     3728   01 00D22    21500000 A            CI,5     0                 1ST 8K UNDER TEST
     3729   01 00D23    69300D26              BCS,3    GENRNO            NO
     3730   01 00D24    20500140 A            AI,5     X'140'
     3731   01 00D25    20300140 A            AI,3     X'140'
     3732   01 00D26    6AF00D73     GENRNO   BAL,15   RANDOM            GENERATE RANDOM #
     3733   01 00D27    358A0000 A            STW,8    0,5               STORE RANDOM NO.
     3734   01 00D28    20500001 A            AI,5     1
     3735   01 00D29    65300D26              BIR,3    GENRNO
     3736   01 00D2A    3050026B              AW,5     8K                ADD 8K
     3737   01 00D2B    31500002 A            CW,5     2                 LAST LOC
     3738   01 00D2C    69200D2E              BCS,2    TSTRND
     3739   01 00D2D    68000D19              B        NXT8KRND          TRY NEXT BLOCK AREA
     3740                            *
     3741                            * TEST STORED RANDOM NUMBERS
     3742                            *
     3743   01 00D2E                 TSTRND   RES      0
     3744   01 00D2E    12800D7E              LD,8     M1T               INITIALIZE NOS
     3745   01 00D2F    15800D82              STD,8    M1
     3746   01 00D30    12800D80              LD,8     SEEDT
     3747   01 00D31    15800D84              STD,8    SEED
     3748   01 00D32    22500000 A            LI,5     0
     3749   01 00D33    32700005 A   NXTBLK   LW,7     5                 EXAMINE TEST AREA
     3750   01 00D34    4B700577              AND,7    FE000
     3751   01 00D35    31700006 A            CW,7     6                 CURRENT RESIDE 8K AREA
     3752   01 00D36    69300D39              BCS,3    SETRCNT
     3753   01 00D37    4B5011B0              AND,5    =X'FFFFFF00'
     3754   01 00D38    3050026B              AW,5     8K                YES, ADD 8K
     3755   01 00D39    3A30026B     SETRCNT  LCW,3    8K                SET CNTR
     3756   01 00D3A    31500002 A            CW,5     2
     3757   01 00D3B    69200D4A              BCS,2    RTSTDONE          ALL DONE
     3758   01 00D3C    21500000 A            CI,5     0
     3759   01 00D3D    69300D40              BCS,3    GENRNDM
     3760   01 00D3E    20500140 A            AI,5     X'140'
     3761   01 00D3F    20300140 A            AI,3     X'140'
     3762   01 00D40    6AF00D73     GENRNDM  BAL,15   RANDOM            GENERAT RANDOM #
     3763   01 00D41    32AA0000 A            LW,10    0,5               DATA OK
     3764   01 00D42    31A00008 A            CW,10    8
     3765   01 00D43    69300D56              BCS,3    RNDMERR           NO
     3766   01 00D44    20500001 A            AI,5     1                 YES
     3767   01 00D45    65300D40              BIR,3    GENRNDM
     3768                            *
     3769   01 00D46    3050026B              AW,5     8K                ADD 8K
     3770   01 00D47    31500002 A            CW,5     2                 LAST LOC TESTED
     3771   01 00D48    69200D4A              BCS,2    RTSTDONE          YES, EXIT
     3772   01 00D49    68000D33              B        NXTBLK
     3773                            *
     3774   01 00D4A                 RTSTDONE RES      0
     3775   01 00D4A    22900000 A            PRINT    MSG56,MSG56END    PRINT SUCCES TEST
            01 00D4B    359001A4
            01 00D4C    22901176 N
                        0400116D
     3776   01 00D4E    22900000 A            PRINT    PASS,PASSEND
            01 00D4F    359001A4
            01 00D50    22900F05 N
                        04000F01
     3777   01 00D52    228FFFFF A            LI,8     -1                SET UP
     3778   01 00D53    3580026E              STW,8    DATAFLG
     3779   01 00D54    22800000 A            LI,8     0
     3780   01 00D55    68000580              B        CYCLE             RETURN TO CYCLE
     3781                            *
     3782                            *
     3783   01 00D56    6AF00320     RNDMERR  BAL,15   EBCDIC            CONVERT
     3784   01 00D57    15800F26              STD,8    EXPECT            STORE TO REPORT EXPECTED NO.
     3785   01 00D58    3280000A A            LW,8     10
     3786   01 00D59    6AF00320              BAL,15   EBCDIC            CONVERT RECEIVED DATA
     3787   01 00D5A    15800F1E              STD,8    RECEIV            STORE TO REPORT
     3788   01 00D5B    32800005 A            LW,8     5                 FETCH ERR ADRS
     3789   01 00D5C    6AF00320              BAL,15   EBCDIC            CONVERT
     3790   01 00D5D    4B8011A6              AND,8    =X'FF'            BLANK LEFT BITS
     3791   01 00D5E    498011A1              OR,8     =X'40404000'
     3792   01 00D5F    15801180              STD,8    RNDLOC            STORE TO REPORT
     3793   01 00D60    22900000 A            PRINT    MSG57,MSG57END    PRINT MSG
            01 00D61    359001A4
            01 00D62    22901182 N
                        04001176
     3794   01 00D64    22900000 A            PRINT    MSG12,MSG12END
            01 00D65    359001A4
            01 00D66    22900F28 N
                        04000F19
     3795   01 00D68    6AF00274              BAL,15   STATUS
     3796   01 00D69    22900000 A            PRINT    STSMSG,STSMSGE    PRINT ERROR STATUS
            01 00D6A    359001A4
            01 00D6B    22900F65 N
                        04000F28
     3797   01 00D6D    6C000000 A            RD,0     0                 SS3 SET
     3798   01 00D6E    69200D70              BCS,2    %+2               NO
     3799   01 00D6F    2E000000 A            WAIT                       YES, WAIT
     3800                            *
     3801                            * WAIT INDICATES RANDOM TEST ERROR  - SET SS1 TO LOOP ON RANDOM TEST
     3802                            * CLEAR WAIT TO CONTINUE
     3803                            *
     3804   01 00D70    6C000000 A            RD,0     0                 SS1 SET
     3805   01 00D71    69800D11              BCS,8    RANDMTST          YES
     3806   01 00D72    68000579              B        ALLSET            NO
     3807                            *
     3808                            * ROUTINE TO GENERATE A RANDOM NUMBER
     3809                            *
     3810   01 00D73    33100D82     RANDOM   MTW,1    M1
     3811   01 00D74    68300D76              BCR,3    %+2
     3812   01 00D75    33F00D83              MTW,-1   M2
     3813   01 00D76    32E00D84              LW,14    SEED
     3814   01 00D77    2580020D A            SCS,8    13
     3815   01 00D78    30800D85              AW,8     K
     3816   01 00D79    48800D82              EOR,8    M1
     3817   01 00D7A    48800D83              EOR,8    M2
     3818   01 00D7B    35800D84              STW,8    SEED
     3819   01 00D7C    E800000F A            B        *15
     3820                            *
     3821                            *
     3822                                     BOUND    8
     3823   01 00D7E    12B9B0A1 A   M1T      DATA     314159265         PI - PRE-SET M1 VALUE
     3824   01 00D7F    1033C4D7 A   M2T      DATA     271828183         E  - PRE -SET M2 VALUE
     3825   01 00D80    544B2FBA A   SEEDT    DATA     1414213562        SQRT(2)
     3826   01 00D81    22679CB1 A   KT       DATA     577215665         CONSTANT -GAMMA
     3827                            *
     3828                            *
     3829                            *
     3830   01 00D82    00000000 A   M1       DATA     0
     3831   01 00D83    00000000 A   M2       DATA     0
     3832   01 00D84    00000000 A   SEED     DATA     0
     3833   01 00D85    00000000 A   K        DATA     0
     3834                            *
     3835                            *
     3836                            *
     3837                            *
     3838   01 00D86    15E2C9C7 A   MSG1     TEXT     '
SIGMA 5/7 MEMORY DIAGNOSTIC -  FAULT LOCATOR'
            01 00D87    D4C140F5 A
            01 00D88    61F740D4 A
            01 00D89    C5D4D6D9 A
            01 00D8A    E840C4C9 A
            01 00D8B    C1C7D5D6 A
            01 00D8C    E2E3C9C3 A
            01 00D8D    40604040 A
            01 00D8E    C6C1E4D3 A
            01 00D8F    E340D3D6 A
            01 00D90    C3C1E3D6 A
            01 00D91    D9404040 A
     3839   01 00D92    15D7D9D6 A            TEXT     '
PROGRAM NO. 705736-A01 MANUAL NO 901687A'       *A01
            01 00D93    C7D9C1D4 A
            01 00D94    40D5D64B A
            01 00D95    40F7F0F5 A
            01 00D96    F7F3F660 A
            01 00D97    C1F0F140 A
            01 00D98    D4C1D5E4 A
            01 00D99    C1D340D5 A
            01 00D9A    D640F9F0 A
            01 00D9B    F1F6F8F7 A
            01 00D9C    C1404040 A
     3840   01 00D9D    15D9C5E5 A            TEXT     '
REVISION A01'                                   *A01
            01 00D9E    C9E2C9D6 A
            01 00D9F    D540C1F0 A
            01 00DA0    F1404040 A
     3841   01 00DA1    1540D7D9 A    TEXT   '
 PROGRAM MODIFIED TO: 1. CORRECT OPERATION OF LMS INST.'  *A01
            01 00DA2    D6C7D9C1 A
            01 00DA3    D440D4D6 A
            01 00DA4    C4C9C6C9 A
            01 00DA5    C5C440E3 A
            01 00DA6    D67A40F1 A
            01 00DA7    4B40C3D6 A
            01 00DA8    D9D9C5C3 A
            01 00DA9    E340D6D7 A
            01 00DAA    C5D9C1E3 A
            01 00DAB    C9D6D540 A
            01 00DAC    D6C640D3 A
            01 00DAD    D4E240C9 A
            01 00DAE    D5E2E34B A
     3842   01 00DAF    1540C9D5 A    TEXT   '
 IN INTERLEAVE MODE , 2. PROVIDE KSR BREAK CAPABILITY'    *A01
            01 00DB0    40C9D5E3 A
            01 00DB1    C5D9D3C5 A
            01 00DB2    C1E5C540 A
            01 00DB3    D4D6C4C5 A
            01 00DB4    406B40F2 A
            01 00DB5    4B40D7D9 A
            01 00DB6    D6E5C9C4 A
            01 00DB7    C540D2E2 A
            01 00DB8    D940C2D9 A
            01 00DB9    C5C1D240 A
            01 00DBA    C3C1D7C1 A
            01 00DBB    C2C9D3C9 A
            01 00DBC    E3E84040 A
     3843   01 00DBD    1540C6D6 A    TEXT   '
 FOR MESSAGE TERMINATION , 3. ADD SENSE SWITCH 2 OPTION'  *A01
            01 00DBE    D940D4C5 A
            01 00DBF    E2E2C1C7 A
            01 00DC0    C540E3C5 A
            01 00DC1    D9D4C9D5 A
            01 00DC2    C1E3C9D6 A
            01 00DC3    D5406B40 A
            01 00DC4    F34B40C1 A
            01 00DC5    C4C440E2 A
            01 00DC6    C5D5E2C5 A
            01 00DC7    40E2E6C9 A
            01 00DC8    E3C3C840 A
            01 00DC9    F240D6D7 A
            01 00DCA    E3C9D6D5 A
     3844   01 00DCB    1540C6D6 A    TEXT   '
 FOR ERROR ISOLATION RECOMENDATIONS AND 4. CORRECT BIT 30' A01
            01 00DCC    D940C5D9 A
            01 00DCD    D9D6D940 A
            01 00DCE    C9E2D6D3 A
            01 00DCF    C1E3C9D6 A
            01 00DD0    D540D9C5 A
            01 00DD1    C3D6D4C5 A
            01 00DD2    D5C4C1E3 A
            01 00DD3    C9D6D5E2 A
            01 00DD4    40C1D5C4 A
            01 00DD5    40F44B40 A
            01 00DD6    C3D6D9D9 A
            01 00DD7    C5C3E340 A
            01 00DD8    C2C9E340 A
            01 00DD9    F3F04040 A
     3845   01 00DDA    1540D4C1 A    TEXT   '
 MATRIX DECODE. '                                         *A01
            01 00DDB    E3D9C9E7 A
            01 00DDC    40C4C5C3 A
            01 00DDD    D6C4C54B A
            01 00DDE    40404040 A
     3846   01 00DDF    1540E2E2 A    TEXT   '
 SS2    RESET:   SUPPRESS LIST OF SUSPECTED MODULES WHEN' *A01
            01 00DE0    F2404040 A
            01 00DE1    40D9C5E2 A
            01 00DE2    C5E37A40 A
            01 00DE3    4040E2E4 A
            01 00DE4    D7D7D9C5 A
            01 00DE5    E2E240D3 A
            01 00DE6    C9E2E340 A
            01 00DE7    D6C640E2 A
            01 00DE8    E4E2D7C5 A
            01 00DE9    C3E3C5C4 A
            01 00DEA    40D4D6C4 A
            01 00DEB    E4D3C5E2 A
            01 00DEC    40E6C8C5 A
            01 00DED    D5404040 A
     3847   01 00DEE    15404040 A    TEXT   '
                 FAILURE IS DETECTED.'                    *A01
            01 00DEF    40404040 A
            01 00DF0    40404040 A
            01 00DF1    40404040 A
            01 00DF2    4040C6C1 A
            01 00DF3    C9D3E4D9 A
            01 00DF4    C540C9E2 A
            01 00DF5    40C4C5E3 A
            01 00DF6    C5C3E3C5 A
            01 00DF7    C44B4040 A
     3848   01 00DF8    15404040 A    TEXT   '
        SET :    LIST SUSPECTED MODULES WHICH CAN BE'     *A01
            01 00DF9    40404040 A
            01 00DFA    40E2C5E3 A
            01 00DFB    407A4040 A
            01 00DFC    4040D3C9 A
            01 00DFD    E2E340E2 A
            01 00DFE    E4E2D7C5 A
            01 00DFF    C3E3C5C4 A
            01 00E00    40D4D6C4 A
            01 00E01    E4D3C5E2 A
            01 00E02    40E6C8C9 A
            01 00E03    C3C840C3 A
            01 00E04    C1D540C2 A
            01 00E05    C5404040 A
     3849   01 00E06    15404040 A    TEXT   '
                 CAUSE OF FAILURE.'                       *A01
            01 00E07    40404040 A
            01 00E08    40404040 A
            01 00E09    40404040 A
            01 00E0A    4040C3C1 A
            01 00E0B    E4E2C540 A
            01 00E0C    D6C640C6 A
            01 00E0D    C1C9D3E4 A
            01 00E0E    D9C54B40 A
     3850   01 00E0F    15404040 A    TEXT   '
   '                                                      *A01
     3851   01 00E10    1540E3C8 A    TEXT   '
 THE LIST OF MODULES ARE NOT GUARANTEED TO ALWAYS'        *A01
            01 00E11    C540D3C9 A
            01 00E12    E2E340D6 A
            01 00E13    C640D4D6 A
            01 00E14    C4E4D3C5 A
            01 00E15    E240C1D9 A
            01 00E16    C540D5D6 A
            01 00E17    E340C7E4 A
            01 00E18    C1D9C1D5 A
            01 00E19    E3C5C5C4 A
            01 00E1A    40E3D640 A
            01 00E1B    C1D3E6C1 A
            01 00E1C    E8E24040 A
     3852   01 00E1D    1540C3D6 A    TEXT   '
 CORRECT THE FAILURE , THEREFORE THE USER IS CAUTIONED'   *A01
            01 00E1E    D9D9C5C3 A
            01 00E1F    E340E3C8 A
            01 00E20    C540C6C1 A
            01 00E21    C9D3E4D9 A
            01 00E22    C5406B40 A
            01 00E23    E3C8C5D9 A
            01 00E24    C5C6D6D9 A
            01 00E25    C540E3C8 A
            01 00E26    C540E4E2 A
            01 00E27    C5D940C9 A
            01 00E28    E240C3C1 A
            01 00E29    E4E3C9D6 A
            01 00E2A    D5C5C440 A
     3853   01 00E2B    1540E3D6 A    TEXT   '
 TO USE THE LIST AT HIS OWN RISK AND TO USE IT WITH '     *A01
            01 00E2C    40E4E2C5 A
            01 00E2D    40E3C8C5 A
            01 00E2E    40D3C9E2 A
            01 00E2F    E340C1E3 A
            01 00E30    40C8C9E2 A
            01 00E31    40D6E6D5 A
            01 00E32    40D9C9E2 A
            01 00E33    D240C1D5 A
            01 00E34    C440E3D6 A
            01 00E35    40E4E2C5 A
            01 00E36    40C9E340 A
            01 00E37    E6C9E3C8 A
            01 00E38    40404040 A
     3854   01 00E39    1540C4C9 A    TEXT   '
 DISCRETION.'                                             *A01
            01 00E3A    E2C3D9C5 A
            01 00E3B    E3C9D6D5 A
            01 00E3C    4B404040 A
     3855   01 00E3D    1540D5D6 A    TEXT   '
 NOTE   UNLESS OTHERWISE STATED, ALL MODULE LOCATIONS '   *A01
            01 00E3E    E3C54040 A
            01 00E3F    40E4D5D3 A
            01 00E40    C5E2E240 A
            01 00E41    D6E3C8C5 A
            01 00E42    D9E6C9E2 A
            01 00E43    C540E2E3 A
            01 00E44    C1E3C5C4 A
            01 00E45    6B40C1D3 A
            01 00E46    D340D4D6 A
            01 00E47    C4E4D3C5 A
            01 00E48    40D3D6C3 A
            01 00E49    C1E3C9D6 A
            01 00E4A    D5E24040 A
     3856   01 00E4B    15406060 A    TEXT   '
 ----   REFER TO SUSPECTED SOURCE SIGNALS. IN SOME'       *A01
            01 00E4C    60604040 A
            01 00E4D    40D9C5C6 A
            01 00E4E    C5D940E3 A
            01 00E4F    D640E2E4 A
            01 00E50    E2D7C5C3 A
            01 00E51    E3C5C440 A
            01 00E52    E2D6E4D9 A
            01 00E53    C3C540E2 A
            01 00E54    C9C7D5C1 A
            01 00E55    D3E24B40 A
            01 00E56    C9D540E2 A
            01 00E57    D6D4C540 A
     3857   01 00E58    15404040 A    TEXT   '
        CASES IT WILL BE NECCESSARY TO CONSULT LOGIC'     *A01
            01 00E59    40404040 A
            01 00E5A    40C3C1E2 A
            01 00E5B    C5E240C9 A
            01 00E5C    E340E6C9 A
            01 00E5D    D3D340C2 A
            01 00E5E    C540D5C5 A
            01 00E5F    C3C3C5E2 A
            01 00E60    E2C1D9E8 A
            01 00E61    40E3D640 A
            01 00E62    C3D6D5E2 A
            01 00E63    E4D3E340 A
            01 00E64    D3D6C7C9 A
            01 00E65    C3404040 A
     3858   01 00E66    15404040 A    TEXT   '
        EQUATIONS OR DIAGRAMS TO TRACE THE POINTS WHERE'  *A01
            01 00E67    40404040 A
            01 00E68    40C5D8E4 A
            01 00E69    C1E3C9D6 A
            01 00E6A    D5E240D6 A
            01 00E6B    D940C4C9 A
            01 00E6C    C1C7D9C1 A
            01 00E6D    D4E240E3 A
            01 00E6E    D640E3D9 A
            01 00E6F    C1C3C540 A
            01 00E70    E3C8C540 A
            01 00E71    D7D6C9D5 A
            01 00E72    E3E240E6 A
            01 00E73    C8C5D9C5 A
     3859   01 00E74    15404040 A    TEXT   '
        THE SUSPECTED SIGNAL IS OPEN OR SHORTED. '        *A01
            01 00E75    40404040 A
            01 00E76    40E3C8C5 A
            01 00E77    40E2E4E2 A
            01 00E78    D7C5C3E3 A
            01 00E79    C5C440E2 A
            01 00E7A    C9C7D5C1 A
            01 00E7B    D340C9E2 A
            01 00E7C    40D6D7C5 A
            01 00E7D    D540D6D9 A
            01 00E7E    40E2C8D6 A
            01 00E7F    D9E3C5C4 A
            01 00E80    4B404040 A
     3860   01 00E81    15404040 A    TEXT   '
        (CAUTION: SEE SECT. ON BANK NO. SETTING REQ.)'    *A01
            01 00E82    40404040 A
            01 00E83    404DC3C1 A
            01 00E84    E4E3C9D6 A
            01 00E85    D57A40E2 A
            01 00E86    C5C540E2 A
            01 00E87    C5C3E34B A
            01 00E88    40D6D540 A
            01 00E89    C2C1D5D2 A
            01 00E8A    40D5D64B A
            01 00E8B    40E2C5E3 A
            01 00E8C    E3C9D5C7 A
            01 00E8D    40D9C5D8 A
            01 00E8E    4B5D4040 A
     3861   01 00E8F                 MSG1END  RES      0
     3862   01 00E8F    15C1C3C3 A   MSG2     TEXT     '
ACCEPTED '
            01 00E90    C5D7E3C5 A
            01 00E91    C4404040 A
     3863   01 00E92    40407FD3 A   MSG2A    TEXT     '  "LOW LIMIT"  ='
            01 00E93    D6E640D3 A
            01 00E94    C9D4C9E3 A
            01 00E95    7F40407E A
     3864                                     BOUND    8
     3865   01 00E96    00000000 A   TESTLOW  DATA     0,0
            01 00E97    00000000 A
     3866   01 00E98    404040C1 A            TEXT     '   AND  "HIGH LIMIT"  ='
            01 00E99    D5C44040 A
            01 00E9A    7FC8C9C7 A
            01 00E9B    C840D3C9 A
            01 00E9C    D4C9E37F A
            01 00E9D    40407E40 A
     3867                                     BOUND    8
     3868   01 00E9E    00000000 A   TESTHI   DATA     0,0
            01 00E9F    00000000 A
     3869   01 00EA0                 MSG2END  RES      0
     3870   01 00EA0    15C1C3C3 A   MSG3     TEXT     '
ACCEPTEBLE INPUT  HILIM < LOWLIM'
            01 00EA1    C5D7E3C5 A
            01 00EA2    C2D3C540 A
            01 00EA3    C9D5D7E4 A
            01 00EA4    E34040C8 A
            01 00EA5    C9D3C9D4 A
            01 00EA6    404C40D3 A
            01 00EA7    D6E6D3C9 A
            01 00EA8    D4404040 A
     3871   01 00EA9                 MSG3END  RES      0
     3872   01 00EA9    1515C3E4 A   MSG4     TEXT     '

CURRENT MEMORY TEST LIMITS ARE :
     '
            01 00EAA    D9D9C5D5 A
            01 00EAB    E340D4C5 A
            01 00EAC    D4D6D9E8 A
            01 00EAD    40E3C5E2 A
            01 00EAE    E340D3C9 A
            01 00EAF    D4C9E3E2 A
            01 00EB0    40C1D9C5 A
            01 00EB1    407A1540 A
            01 00EB2    40404040 A
     3873   01 00EB3                 MSG4END  RES      0
     3874   01 00EB3    15C4D640 A   MSG5     TEXT     '
DO YOU WANT ANY CHANGES?  -  TYPE "Y" OR "N" & NL
'
            01 00EB4    E8D6E440 A
            01 00EB5    E6C1D5E3 A
            01 00EB6    40C1D5E8 A
            01 00EB7    40C3C8C1 A
            01 00EB8    D5C7C5E2 A
            01 00EB9    6F404060 A
            01 00EBA    4040E3E8 A
            01 00EBB    D7C5407F A
            01 00EBC    E87F40D6 A
            01 00EBD    D9407FD5 A
            01 00EBE    7F405040 A
            01 00EBF    D5D31540 A
     3875   01 00EC0                 MSG5END  RES      0
     3876   01 00EC0    15E2E8D5 A   SYNERR   TEXT     '
SYN ERR - TYPE AGAIN'
            01 00EC1    40C5D9D9 A
            01 00EC2    406040E3 A
            01 00EC3    E8D7C540 A
            01 00EC4    C1C7C1C9 A
            01 00EC5    D5404040 A
     3877   01 00EC6                 SYNEREND RES      0
     3878   01 00EC6    15D3D6E6 A   MSG6     TEXT     '
LOW LIMIT = '
            01 00EC7    40D3C9D4 A
            01 00EC8    C9E3407E A
            01 00EC9    40404040 A
     3879   01 00ECA                 MSG6END  RES      0
     3880   01 00ECA    15C8C9C7 A   MSG7     TEXT     '
HIGH LIMIT = '
            01 00ECB    C840D3C9 A
            01 00ECC    D4C9E340 A
            01 00ECD    7E404040 A
     3881   01 00ECE                 MSG7END  RES      0
     3882                                     BOUND    8
     3883   01 00ECE    1515C3C1 A   MSG8     TEXT     '

CALCULATED MEMORY SIZE IS  '
            01 00ECF    D3C3E4D3 A
            01 00ED0    C1E3C5C4 A
            01 00ED1    40D4C5D4 A
            01 00ED2    D6D9E840 A
            01 00ED3    E2C9E9C5 A
            01 00ED4    40C9E240 A
            01 00ED5    40404040 A
     3884   01 00ED6    00000000 A   KSIZE    DATA     0
     3885   01 00ED7    4040404D A            TEXT     '   ('
     3886   01 00ED8    00000000 A   MEMSIZ   DATA     0,0
            01 00ED9    00000000 A
     3887   01 00EDA    40C8C5E7 A            TEXT     ' HEX )
IN THE FOLLOWING CONFIGURATION :-'
            01 00EDB    405D15C9 A
            01 00EDC    D540E3C8 A
            01 00EDD    C540C6D6 A
            01 00EDE    D3D3D6E6 A
            01 00EDF    C9D5C740 A
            01 00EE0    C3D6D5C6 A
            01 00EE1    C9C7E4D9 A
            01 00EE2    C1E3C9D6 A
            01 00EE3    D5407A60 A
     3888   01 00EE4    15154040 A            TEXT     '

     ADDRESS  BANK   BANK'
            01 00EE5    404040C1 A
            01 00EE6    C4C4D9C5 A
            01 00EE7    E2E24040 A
            01 00EE8    C2C1D5D2 A
            01 00EE9    404040C2 A
            01 00EEA    C1D5D240 A
     3889   01 00EEB    15404040 A            TEXT      '
      RANGE   NO.    SIZE'
            01 00EEC    404040D9 A
            01 00EED    C1D5C7C5 A
            01 00EEE    404040D5 A
            01 00EEF    D64B4040 A
            01 00EF0    4040E2C9 A
            01 00EF1    E9C54040 A
     3890   01 00EF2    15404040 A            TEXT      '
     -------  ----   ----'
            01 00EF3    40406060 A
            01 00EF4    60606060 A
            01 00EF5    60404060 A
            01 00EF6    60606040 A
            01 00EF7    40406060 A
            01 00EF8    60604040 A
     3891   01 00EF9                 MSG8END  RES      0
     3892   01 00EF9                 MSG9     RES      0
     3893   01 00EF9    15E2E4C3 A            TEXT     '
SUCCESS DATA-CHECK   '
            01 00EFA    C3C5E2E2 A
            01 00EFB    40C4C1E3 A
            01 00EFC    C160C3C8 A
            01 00EFD    C5C3D240 A
            01 00EFE    40404040 A
     3894   01 00EFF                 MSG9END  RES      0
     3895   01 00EFF    1515C2C5 A   BPASS    TEXT     '

BEGIN'
            01 00F00    C7C9D540 A
     3896   01 00F01    406040D7 A   PASS     TEXT     ' - PASS #'
            01 00F02    C1E2E240 A
            01 00F03    7B404040 A
     3897   01 00F04    00000000 A   PASSCNT  DATA     0
     3898   01 00F05                 PASSEND  RES      0
     3899   01 00F05    15E2E4C3 A   MSG10    TEXT     '
SUCCESS PARITY-CHECK'
            01 00F06    C3C5E2E2 A
            01 00F07    40D7C1D9 A
            01 00F08    C9E3E860 A
            01 00F09    C3C8C5C3 A
            01 00F0A    D2404040 A
     3900   01 00F0B                 MSG10END RES      0
     3901   01 00F0B    15401515 A   MSG11    TEXT     '
 

'
     3902   01 00F0C    00000000 A   ERRTYP   DATA     0
     3903   01 00F0D    40C5D9D9 A            TEXT     ' ERROR DETECTED AT  '
            01 00F0E    D6D940C4 A
            01 00F0F    C5E3C5C3 A
            01 00F10    E3C5C440 A
            01 00F11    C1E34040 A
     3904                                     BOUND    8
     3905   01 00F12    00000000 A   FAMSG    DATA     0,0
            01 00F13    00000000 A
     3906   01 00F14    40404DC8 A            TEXT     '  (HEX)'
            01 00F15    C5E75D40 A
     3907   01 00F16                 MSG11END RES      0
     3908   01 00F16    C4C1E3C1 A   DATAMSG  TEXT     'DATA'
     3909   01 00F17    D7D9E3E8 A   PARTYMSG TEXT     'PRTY'
     3910   01 00F18    C1C4D9E2 A   ADRMSG   TEXT     'ADRS'
     3911   01 00F19    15D9C5C3 A   MSG12    TEXT     '
RECEIVED DATA  =  '
            01 00F1A    C5C9E5C5 A
            01 00F1B    C440C4C1 A
            01 00F1C    E3C14040 A
            01 00F1D    7E404040 A
     3912                                     BOUND    8
     3913   01 00F1E    00000000 A   RECEIV   DATA     0,0
            01 00F1F    00000000 A
     3914   01 00F20    15C5E7D7 A            TEXT     '
EXPECTED DATA  =  '
            01 00F21    C5C3E3C5 A
            01 00F22    C440C4C1 A
            01 00F23    E3C14040 A
            01 00F24    7E404040 A
     3915                                     BOUND    8
     3916   01 00F26    00000000 A   EXPECT   DATA     0,0
            01 00F27    00000000 A
     3917   01 00F28                 MSG12END RES      0
     3918   01 00F28    15C5D9D9 A   STSMSG   TEXT     '
ERROR STATUS INFORMATIONS ARE:'
            01 00F29    D6D940E2 A
            01 00F2A    E3C1E3E4 A
            01 00F2B    E240C9D5 A
            01 00F2C    C6D6D9D4 A
            01 00F2D    C1E3C9D6 A
            01 00F2E    D5E240C1 A
            01 00F2F    D9C57A40 A
     3919   01 00F30    15154040 A            TEXT     '

      FLT-TYPE  LPD SW#   PORT-NO.    BNK#   K  IL'
            01 00F31    40404040 A
            01 00F32    C6D3E360 A
            01 00F33    E3E8D7C5 A
            01 00F34    4040D3D7 A
            01 00F35    C440E2E6 A
            01 00F36    7B404040 A
            01 00F37    D7D6D9E3 A
            01 00F38    60D5D64B A
            01 00F39    40404040 A
            01 00F3A    C2D5D27B A
            01 00F3B    404040D2 A
            01 00F3C    4040C9D3 A
     3920   01 00F3D    4040E3E8 A            TEXT     '  TYP     ADR(HEX)'
            01 00F3E    D7404040 A
            01 00F3F    4040C1C4 A
            01 00F40    D94DC8C5 A
            01 00F41    E75D4040 A
     3921   01 00F42    15404040 A            TEXT      '
      --------  --- ---   --------    ----   -  --'
            01 00F43    40404060 A
            01 00F44    60606060 A
            01 00F45    60606040 A
            01 00F46    40606060 A
            01 00F47    40606060 A
            01 00F48    40404060 A
            01 00F49    60606060 A
            01 00F4A    60606040 A
            01 00F4B    40404060 A
            01 00F4C    60606040 A
            01 00F4D    40406040 A
            01 00F4E    40606040 A
     3922   01 00F4F    40606060 A            TEXT      ' ---     --------
'
            01 00F50    40404040 A
            01 00F51    40606060 A
            01 00F52    60606060 A
            01 00F53    60154040 A
     3923   01 00F54    40404040 A            DATA     X'40404040'
     3924   01 00F55                 STSFORM  RES      16
     3925   01 00F65                 STSMSGE  RES      0
     3926   01 00F65    15C9D5E3 A   MSG13    TEXT     '
INTEMITTENT ERROR - CLEAR WAIT TO TRY AGAIN'
            01 00F66    C5D4C9E3 A
            01 00F67    E3C5D5E3 A
            01 00F68    40C5D9D9 A
            01 00F69    D6D94060 A
            01 00F6A    40C3D3C5 A
            01 00F6B    C1D940E6 A
            01 00F6C    C1C9E340 A
            01 00F6D    E3D640E3 A
            01 00F6E    D9E840C1 A
            01 00F6F    C7C1C9D5 A
     3927   01 00F70                 MSG13END RES      0
     3928   01 00F70    15C5D9D9 A   MSG14    TEXT     '
ERROR CAN NOT BE ISOLATED - RESORT TO SCOPING'
            01 00F71    D6D940C3 A
            01 00F72    C1D540D5 A
            01 00F73    D6E340C2 A
            01 00F74    C540C9E2 A
            01 00F75    D6D3C1E3 A
            01 00F76    C5C44060 A
            01 00F77    40D9C5E2 A
            01 00F78    D6D9E340 A
            01 00F79    E3D640E2 A
            01 00F7A    C3D6D7C9 A
            01 00F7B    D5C74040 A
     3929   01 00F7C                 MSG14END RES      0
     3930   01 00F7C    15D3D4E2 A   LMSTRAP  TEXT     '
LMS'
     3931   01 00F7D                 LMSTRAPE RES      0
     3932                                     BOUND    8
     3933   01 00F7E    15D3C1E2 A   LASTRAP  TEXT     '
LAS'
     3934   01 00F7F    15C5E7C5 A   LASLMS   TEXT     '
EXECUTION TRAP OCCURED'
            01 00F80    C3E4E3C9 A
            01 00F81    D6D540E3 A
            01 00F82    D9C1D740 A
            01 00F83    D6C3C3E4 A
            01 00F84    D9C5C440 A
     3935   01 00F85    40C9D540 A            TEXT     ' IN LOC. '
            01 00F86    D3D6C34B A
            01 00F87    40404040 A
     3936   01 00F88    00000000 A   TRAPORG  DATA     0,0
            01 00F89    00000000 A
     3937   01 00F8A    404DC8C5 A            TEXT     ' (HEX)'
            01 00F8B    E75D4040 A
     3938   01 00F8C                 LASTRAPE RES      0
     3939   01 00F8C    40C9D5E2 A   SMSG     TEXT     ' INSTR DID NOT WORK'
            01 00F8D    E3D940C4 A
            01 00F8E    C9C440D5 A
            01 00F8F    D6E340E6 A
            01 00F90    D6D9D240 A
     3940   01 00F91                 SMSGE    RES      0
     3941   01 00F91    15D7C1D9 A   MSG15    TEXT     '
PARITY INTRPT LOGIC DID NOT WORK'
            01 00F92    C9E3E840 A
            01 00F93    C9D5E3D9 A
            01 00F94    D7E340D3 A
            01 00F95    D6C7C9C3 A
            01 00F96    40C4C9C4 A
            01 00F97    40D5D6E3 A
            01 00F98    40E6D6D9 A
            01 00F99    D2404040 A
     3942   01 00F9A                 MSG15END RES      0
     3943   01 00F9A    15C1C4D9 A   MSG16    TEXT     '
ADR RECOG. ERROR
'
            01 00F9B    40D9C5C3 A
            01 00F9C    D6C74B40 A
            01 00F9D    C5D9D9D6 A
            01 00F9E    D9154040 A
     3944   01 00F9F    15E2E4E2 A            TEXT     '
SUSPECT MODULES IN:
'
            01 00FA0    D7C5C3E3 A
            01 00FA1    40D4D6C4 A
            01 00FA2    E4D3C5E2 A
            01 00FA3    40C9D57A A
            01 00FA4    15404040 A
     3945   01 00FA5    F1F5C161 A            TEXT     '15A/D,  20B/D  '
            01 00FA6    C46B4040 A
            01 00FA7    F2F0C261 A
            01 00FA8    C4404040 A
     3946   01 00FA9                 MSG16END RES      0
     3947   01 00FA9    15C2C1C4 A   MSG17    TEXT     '
BAD DATA PATH.  SUSPECT MODULES IN:
'
            01 00FAA    40C4C1E3 A
            01 00FAB    C140D7C1 A
            01 00FAC    E3C84B40 A
            01 00FAD    40E2E4E2 A
            01 00FAE    D7C5C3E3 A
            01 00FAF    40D4D6C4 A
            01 00FB0    E4D3C5E2 A
            01 00FB1    40C9D57A A
            01 00FB2    15404040 A
     3948   01 00FB3                 MSG17END RES      0
     3949   01 00FB3    15C2C1C4 A   MSG18    TEXT     '
BAD "YVS" ON "RTT11" IN  '
            01 00FB4    407FE8E5 A
            01 00FB5    E27F40D6 A
            01 00FB6    D5407FD9 A
            01 00FB7    E3E3F1F1 A
            01 00FB8    7F40C9D5 A
            01 00FB9    40404040 A
     3950   01 00FBA                 MSG18END RES      0
     3951   01 00FBA    15E2E4E2 A   MSG19    TEXT     '
SUSPECT OPEN "YVPR" DIODE OR BAD "YVS" LOGIC ON '
            01 00FBB    D7C5C3E3 A
            01 00FBC    40D6D7C5 A
            01 00FBD    D5407FE8 A
            01 00FBE    E5D7D97F A
            01 00FBF    40C4C9D6 A
            01 00FC0    C4C540D6 A
            01 00FC1    D940C2C1 A
            01 00FC2    C4407FE8 A
            01 00FC3    E5E27F40 A
            01 00FC4    D3D6C7C9 A
            01 00FC5    C340D6D5 A
            01 00FC6    40404040 A
     3952   01 00FC7    7FD9E3E3 A            TEXT     '"RTT11" IN SLOTS  '
            01 00FC8    F1F17F40 A
            01 00FC9    C9D540E2 A
            01 00FCA    D3D6E3E2 A
            01 00FCB    40404040 A
     3953   01 00FCC                 MSG19END RES      0
     3954   01 00FCC    15E2E4E2 A   MSG20    TEXT     '
SUSPECT BAD "YVPR" TO "RTT11" IN SLOTS  '
            01 00FCD    D7C5C3E3 A
            01 00FCE    40C2C1C4 A
            01 00FCF    407FE8E5 A
            01 00FD0    D7D97F40 A
            01 00FD1    E3D6407F A
            01 00FD2    D9E3E3F1 A
            01 00FD3    F17F40C9 A
            01 00FD4    D540E2D3 A
            01 00FD5    D6E3E240 A
            01 00FD6    40404040 A
     3955   01 00FD7                 MSG20END RES      0
     3956   01 00FD7    15C9D3D3 A   ODDMSG   TEXT     '
ILLOGICAL FAILURE, CLEAR THE WAIT TO CONTINUE'
            01 00FD8    D6C7C9C3 A
            01 00FD9    C1D340C6 A
            01 00FDA    C1C9D3E4 A
            01 00FDB    D9C56B40 A
            01 00FDC    C3D3C5C1 A
            01 00FDD    D940E3C8 A
            01 00FDE    C540E6C1 A
            01 00FDF    C9E340E3 A
            01 00FE0    D640C3D6 A
            01 00FE1    D5E3C9D5 A
            01 00FE2    E4C54040 A
     3957   01 00FE3                 ODMSGEND RES      0
     3958   01 00FE3    15D6D7C5 A   MSG21    TEXT     '
OPEN Y-INPUT LINE ON CDM IN SLOT  '
            01 00FE4    D540E860 A
            01 00FE5    C9D5D7E4 A
            01 00FE6    E340D3C9 A
            01 00FE7    D5C540D6 A
            01 00FE8    D540C3C4 A
            01 00FE9    D440C9D5 A
            01 00FEA    40E2D3D6 A
            01 00FEB    E3404040 A
     3959   01 00FEC                 MSG21END RES      0
     3960   01 00FEC    15D6D7C5 A   MSG22    TEXT     '
OPEN DIODE, OR YNPC(1,2,3 OR 4), OR BAD  YCS  ON '
            01 00FED    D540C4C9 A
            01 00FEE    D6C4C56B A
            01 00FEF    40D6D940 A
            01 00FF0    E8D5D7C3 A
            01 00FF1    4DF16BF2 A
            01 00FF2    6BF340D6 A
            01 00FF3    D940F45D A
            01 00FF4    6B40D6D9 A
            01 00FF5    40C2C1C4 A
            01 00FF6    4040E8C3 A
            01 00FF7    E24040D6 A
            01 00FF8    D5404040 A
     3961   01 00FF9    D9E3E3F1 A            TEXT     'RTT10 IN  '
            01 00FFA    F040C9D5 A
            01 00FFB    40404040 A
     3962   01 00FFC                 MSG22END RES      0
     3963   01 00FFC    15C2C1C4 A   MSG23    TEXT     '
BAD RESISTOR OR OPEN DRIVE-RESISTOR LINE SUSPECTED '
            01 00FFD    40D9C5E2 A
            01 00FFE    C9E2E3D6 A
            01 00FFF    D940D6D9 A
            01 01000    40D6D7C5 A
            01 01001    D540C4D9 A
            01 01002    C9E5C560 A
            01 01003    D9C5E2C9 A
            01 01004    E2E3D6D9 A
            01 01005    40D3C9D5 A
            01 01006    C540E2E4 A
            01 01007    E2D7C5C3 A
            01 01008    E3C5C440 A
     3964   01 01009    C9D54040 A            TEXT     'IN  '
     3965   01 0100A                 MSG23END RES      0
     3966   01 0100A    15C2C1C4 A   MSG24    TEXT     '
BAD XC-SINK ON  zTT11  IN  '
            01 0100B    40E7C360 A
            01 0100C    E2C9D5D2 A
            01 0100D    40D6D540 A
            01 0100E    40A9E3E3 A
            01 0100F    F1F14040 A
            01 01010    C9D54040 A
     3967   01 01011                 MSG24END RES      0
     3968   01 01011    15C2C1C4 A   MSG25    TEXT     '
BAD "XCS" ON "RTT11" IN SLOT '
            01 01012    407FE7C3 A
            01 01013    E27F40D6 A
            01 01014    D5407FD9 A
            01 01015    E3E3F1F1 A
            01 01016    7F40C9D5 A
            01 01017    40E2D3D6 A
            01 01018    E3404040 A
     3969   01 01019                 MSG25END RES      0
     3970                            MSG26    TEXT   ;
     3971   01 01019    15E2E4E2 A     '
SUSPECT XC PREDRIVE, OR XPNCK(0,1,2 OR 3), OR BAD RHC-1(OR 2) IN:
'
            01 0101A    D7C5C3E3 A
            01 0101B    40E7C340 A
            01 0101C    D7D9C5C4 A
            01 0101D    D9C9E5C5 A
            01 0101E    6B40D6D9 A
            01 0101F    40E7D7D5 A
            01 01020    C3D24DF0 A
            01 01021    6BF16BF2 A
            01 01022    40D6D940 A
            01 01023    F35D6B40 A
            01 01024    D6D940C2 A
            01 01025    C1C440D9 A
            01 01026    C8C360F1 A
            01 01027    4DD6D940 A
            01 01028    F25D40C9 A
            01 01029    D57A1540 A
     3972   01 0102A                 MSG26END RES      0
     3973   01 0102A    15C2C1C4 A   MSG27    TEXT     '
BAD  XVS  ON  RTT12  IN SLOT  '
            01 0102B    4040E7E5 A
            01 0102C    E24040D6 A
            01 0102D    D54040D9 A
            01 0102E    E3E3F1F2 A
            01 0102F    4040C9D5 A
            01 01030    40E2D3D6 A
            01 01031    E3404040 A
     3974   01 01032                 MSG27END RES      0
     3975   01 01032    15C2C1C4 A   MSG28    TEXT     '
BAD  XV PRE-DRIVE SINK ON  RTT12 IN  '
            01 01033    4040E7E5 A
            01 01034    40D7D9C5 A
            01 01035    60C4D9C9 A
            01 01036    E5C540E2 A
            01 01037    C9D5D240 A
            01 01038    D6D54040 A
            01 01039    D9E3E3F1 A
            01 0103A    F240C9D5 A
            01 0103B    40404040 A
     3976   01 0103C                 MSG28END RES      0
     3977   01 0103C    15D6D940 A   MSG29    TEXT     '
OR OPEN DRIVE-DIODE IN  '
            01 0103D    D6D7C5D5 A
            01 0103E    40C4D9C9 A
            01 0103F    E5C560C4 A
            01 01040    C9D6C4C5 A
            01 01041    40C9D540 A
            01 01042    40404040 A
     3978   01 01043                 MSG29END RES      0
     3979   01 01043    15D6D7C5 A   MSG30    TEXT     '
OPEN  XV  SINK LINE IN '
            01 01044    D54040E7 A
            01 01045    E54040E2 A
            01 01046    C9D5D240 A
            01 01047    D3C9D5C5 A
            01 01048    40C9D540 A
     3980   01 01049                 MSG30END RES      0
     3981   01 01049    15C2C1C4 A   MSG31    TEXT     '
BAD  XV PRE-DRIVE ON  RTT12  IN  '
            01 0104A    4040E7E5 A
            01 0104B    40D7D9C5 A
            01 0104C    60C4D9C9 A
            01 0104D    E5C540D6 A
            01 0104E    D54040D9 A
            01 0104F    E3E3F1F2 A
            01 01050    4040C9D5 A
            01 01051    40404040 A
     3982   01 01052                 MSG31END RES      0
     3983   01 01052    15C2C1C4 A   MSG32    TEXT     '
BAD PA-SEL ON  WTT10  IN SLOT  '
            01 01053    40D7C160 A
            01 01054    E2C5D340 A
            01 01055    D6D54040 A
            01 01056    E6E3E3F1 A
            01 01057    F04040C9 A
            01 01058    D540E2D3 A
            01 01059    D6E34040 A
     3984   01 0105A                 MSG32END RES      0
     3985   01 0105A    15C2C1C4 A   MSG33    TEXT     '
BAD SENSE-LINE ON  HTT10  IN SLOT  '
            01 0105B    40E2C5D5 A
            01 0105C    E2C560D3 A
            01 0105D    C9D5C540 A
            01 0105E    D6D54040 A
            01 0105F    C8E3E3F1 A
            01 01060    F04040C9 A
            01 01061    D540E2D3 A
            01 01062    D6E34040 A
     3986   01 01063                 MSG33END RES      0
     3987   01 01063    15C2C1C4 A   MSG34    TEXT     '
BAD SENSE-AMP ON  HTT10  IN SLOT  '
            01 01064    40E2C5D5 A
            01 01065    E2C560C1 A
            01 01066    D4D740D6 A
            01 01067    D54040C8 A
            01 01068    E3E3F1F0 A
            01 01069    4040C9D5 A
            01 0106A    40E2D3D6 A
            01 0106B    E3404040 A
     3988   01 0106C                 MSG34END RES      0
     3989   01 0106C    15C9D5C8 A   MSG35    TEXT     '
INHIBIT DRIVER BAD ON  RTT10  IN SLOT  '
            01 0106D    C9C2C9E3 A
            01 0106E    40C4D9C9 A
            01 0106F    E5C5D940 A
            01 01070    C2C1C440 A
            01 01071    D6D54040 A
            01 01072    D9E3E3F1 A
            01 01073    F04040C9 A
            01 01074    D540E2D3 A
            01 01075    D6E34040 A
     3990   01 01076                 MSG35END RES      0
     3991                            *
     3992                            *
     3993   01 01076    1540C2C1 A   MSG36    TEXT     '
 BAD CORE ON  CDM  IN SLOT  '
            01 01077    C440C3D6 A
            01 01078    D9C540D6 A
            01 01079    D54040C3 A
            01 0107A    C4D44040 A
            01 0107B    C9D540E2 A
            01 0107C    D3D6E340 A
            01 0107D    40404040 A
     3994   01 0107E                 MSG36END RES      0
     3995                            *
     3996   01 0107E    15D6D7C5 A   MSG37    TEXT     '
OPEN  X-INPUT LINE ON CDM IN SLOT  '
            01 0107F    D54040E7 A
            01 01080    60C9D5D7 A
            01 01081    E4E340D3 A
            01 01082    C9D5C540 A
            01 01083    D6D540C3 A
            01 01084    C4D440C9 A
            01 01085    D540E2D3 A
            01 01086    D6E34040 A
     3997   01 01087                 MSG37END RES      0
     3998   01 01087    15E7C3E7 A   MSG38    TEXT     '
XCXV-SELECT DIODE'
            01 01088    E560E2C5 A
            01 01089    D3C5C3E3 A
            01 0108A    40C4C9D6 A
            01 0108B    C4C54040 A
     3999   01 0108C                 MSG38END RES      0
     4000   01 0108C    40C9E240 A   MSG39    TEXT     ' IS OPEN ON  CDM  IN SLOT '
            01 0108D    D6D7C5D5 A
            01 0108E    40D6D540 A
            01 0108F    40C3C4D4 A
            01 01090    4040C9D5 A
            01 01091    40E2D3D6 A
            01 01092    E3404040 A
     4001   01 01093                 MSG39END RES      0
     4002   01 01093    15E8C3E8 A   MSG40    TEXT     '
YCYV-SELECT DIODE'
            01 01094    E560E2C5 A
            01 01095    D3C5C3E3 A
            01 01096    40C4C9D6 A
            01 01097    C4C54040 A
     4003   01 01098                 MSG40END RES      0
     4004   01 01098    15E2C8D6 A   MSG41    TEXT     '
SHORTED  (OTHERWISE BAD SENSE CKT, OR BAD ADRS-LINE'
            01 01099    D9E3C5C4 A
            01 0109A    40404DD6 A
            01 0109B    E3C8C5D9 A
            01 0109C    E6C9E2C5 A
            01 0109D    40C2C1C4 A
            01 0109E    40E2C5D5 A
            01 0109F    E2C540C3 A
            01 010A0    D2E36B40 A
            01 010A1    D6D940C2 A
            01 010A2    C1C440C1 A
            01 010A3    C4D9E260 A
            01 010A4    D3C9D5C5 A
     4005   01 010A5    5D40D6D5 A            TEXT     ') ON  CDM  IN SLOT '
            01 010A6    4040C3C4 A
            01 010A7    D44040C9 A
            01 010A8    D540E2D3 A
            01 010A9    D6E34040 A
     4006   01 010AA                 MSG41END RES      0
     4007                            *
     4008                            *
     4009                            *
     4010   01 010AA    15E2E4C3 A   MSG42    TEXT     '
SUCCESS ADDRESSING TEST'
            01 010AB    C3C5E2E2 A
            01 010AC    40C1C4C4 A
            01 010AD    D9C5E2E2 A
            01 010AE    C9D5C740 A
            01 010AF    E3C5E2E3 A
     4011   01 010B0                 MSG42END RES      0
     4012                                     BOUND    8
     4013   01 010B0    1515C6C9 A   MSG43    TEXT     '

FIRST ADRS-ERROR DETECTED AT '
            01 010B1    D9E2E340 A
            01 010B2    C1C4D9E2 A
            01 010B3    60C5D9D9 A
            01 010B4    D6D940C4 A
            01 010B5    C5E3C5C3 A
            01 010B6    E3C5C440 A
            01 010B7    C1E34040 A
     4014   01 010B8    00000000 A   BADADR   DATA     0
     4015   01 010B9    00000000 A            DATA     0
     4016   01 010BA    40404DC8 A            TEXT     '  (HEX)'
            01 010BB    C5E75D40 A
     4017   01 010BC    15C9D5E3 A            TEXT     '
INTERFERING ADRS DETECTED AT '
            01 010BD    C5D9C6C5 A
            01 010BE    D9C9D5C7 A
            01 010BF    40C1C4D9 A
            01 010C0    E240C4C5 A
            01 010C1    E3C5C3E3 A
            01 010C2    C5C440C1 A
            01 010C3    E3404040 A
     4018   01 010C4    00000000 A   INTRFADR DATA     0
     4019   01 010C5    00000000 A            DATA     0
     4020   01 010C6    40404DC8 A            TEXT     '  (HEX)'
            01 010C7    C5E75D40 A
     4021   01 010C8                 MSG43END RES      0
     4022   01 010C8    15E4D5D2 A   MSG44    TEXT     '
UNKOWN PARITY INTRPT OCCURED'
            01 010C9    D6E6D540 A
            01 010CA    D7C1D9C9 A
            01 010CB    E3E840C9 A
            01 010CC    D5E3D9D7 A
            01 010CD    E340D6C3 A
            01 010CE    C3E4D9C5 A
            01 010CF    C4404040 A
     4023   01 010D0                 MSG44END RES      0
     4024   01 010D0    15404DC5 A   MSG45    TEXT     '
 (ERROR SOURCE A PARITY ELEMENT)'
            01 010D1    D9D9D6D9 A
            01 010D2    40E2D6E4 A
            01 010D3    D9C3C540 A
            01 010D4    C140D7C1 A
            01 010D5    D9C9E3E8 A
            01 010D6    40C5D3C5 A
            01 010D7    D4C5D5E3 A
            01 010D8    5D404040 A
     4025   01 010D9                 MSG45END RES      0
     4026   01 010D9    154DD6D9 A   MSG46    TEXT     '
(OR POSSIBILITY OF SHORT  CDM  DIODE IN OTHER ADRS)'
            01 010DA    40D7D6E2 A
            01 010DB    E2C9C2C9 A
            01 010DC    D3C9E3E8 A
            01 010DD    40D6C640 A
            01 010DE    E2C8D6D9 A
            01 010DF    E34040C3 A
            01 010E0    C4D44040 A
            01 010E1    C4C9D6C4 A
            01 010E2    C540C9D5 A
            01 010E3    40D6E3C8 A
            01 010E4    C5D940C1 A
            01 010E5    C4D9E25D A
     4027   01 010E6                 MSG46END RES      0
     4028   01 010E6    15C2C1C4 A   MSG47    TEXT     '
BAD INHIBIT CKT ON  RTT12  IN  '
            01 010E7    40C9D5C8 A
            01 010E8    C9C2C9E3 A
            01 010E9    40C3D2E3 A
            01 010EA    40D6D540 A
            01 010EB    40D9E3E3 A
            01 010EC    F1F24040 A
            01 010ED    C9D54040 A
     4029   01 010EE                 MSG47END RES      0
     4030                            *
     4031   01 010EE    15E2E4C3 A   MSG48    TEXT     '
SUCCESS ADRS-LINE TOGGLE TEST'
            01 010EF    C3C5E2E2 A
            01 010F0    40C1C4D9 A
            01 010F1    E260D3C9 A
            01 010F2    D5C540E3 A
            01 010F3    D6C7C7D3 A
            01 010F4    C540E3C5 A
            01 010F5    E2E34040 A
     4032   01 010F6                 MSG48END RES      0
     4033                            *
     4034                                     BOUND    8
     4035   01 010F6    1515C1C4 A   MSG49    TEXT     '

ADRS-LINE'
            01 010F7    D9E260D3 A
            01 010F8    C9D5C540 A
     4036   01 010F9    F0F0F0F0 A   LINE     DATA     X'F0F0F0F0'
     4037   01 010FA    F0F0F0F0 A            DATA     X'F0F0F0F0'
     4038   01 010FB    F0F0F0F0 A            DATA     X'F0F0F0F0'
     4039   01 010FC    F0F0F0F0 A            DATA     X'F0F0F0F0'
     4040   01 010FD    F040404D A            DATA     X'F040404D'
     4041   01 010FE    00000000 A   LINE#    DATA     0
     4042   01 010FF    5D40C1E3 A            TEXT     ') AT ADDR'
            01 01100    40C1C4C4 A
            01 01101    D9404040 A
     4043   01 01102    00000000 A   LADROUT  DATA     0,0
            01 01103    00000000 A
     4044   01 01104    404DC8C5 A            TEXT     ' (HEX) DID NOT TOGGLE'
            01 01105    E75D40C4 A
            01 01106    C9C440D5 A
            01 01107    D6E340E3 A
            01 01108    D6C7C7D3 A
            01 01109    C5404040 A
     4045   01 0110A                 MSG49END RES      0
     4046                            *
     4047   01 0110A    15C6C1E4 A   MSG50    TEXT     '
FAULT-TYPE OR LPBW BIT OF STATUS-READ-0 FAILED TO '
            01 0110B    D3E360E3 A
            01 0110C    E8D7C540 A
            01 0110D    D6D940D3 A
            01 0110E    D7C2E640 A
            01 0110F    C2C9E340 A
            01 01110    D6C640E2 A
            01 01111    E3C1E3E4 A
            01 01112    E260D9C5 A
            01 01113    C1C460F0 A
            01 01114    40C6C1C9 A
            01 01115    D3C5C440 A
            01 01116    E3D64040 A
     4048   01 01117    D9C5E2C5 A            TEXT     'RESET IN THE TEST BANK'
            01 01118    E340C9D5 A
            01 01119    40E3C8C5 A
            01 0111A    40E3C5E2 A
            01 0111B    E340C2C1 A
            01 0111C    D5D24040 A
     4049   01 0111D                 MSG50END RES      0
     4050                            *
     4051                            *
     4052   01 0111D    15C3D6D5 A   MSG51    TEXT     '
CONTROL FUNCTION ERROR.  SOME SUSPECT MODULES ARE:
'
            01 0111E    E3D9D6D3 A
            01 0111F    40C6E4D5 A
            01 01120    C3E3C9D6 A
            01 01121    D540C5D9 A
            01 01122    D9D6D94B A
            01 01123    4040E2D6 A
            01 01124    D4C540E2 A
            01 01125    E4E2D7C5 A
            01 01126    C3E340D4 A
            01 01127    D6C4E4D3 A
            01 01128    C5E240C1 A
            01 01129    D9C57A15 A
     4053   01 0112A                 MSG51END RES      0
     4054                            *
     4055   01 0112A    15E2E4E2 A   MSG52    TEXT     '
SUSPECT  NTSSTB-1 OR NTSSTB-2 IN : '
            01 0112B    D7C5C3E3 A
            01 0112C    4040D5E3 A
            01 0112D    E2E2E3C2 A
            01 0112E    60F140D6 A
            01 0112F    D940D5E3 A
            01 01130    E2E2E3C2 A
            01 01131    60F240C9 A
            01 01132    D5407A40 A
     4056   01 01133                 MSG52END RES      0
     4057   01 01133    15E2E3C1 A   MSG53    TEXT     '
STATUS READ MODE-0 ERROR AT ADRS:'
            01 01134    E3E4E240 A
            01 01135    D9C5C1C4 A
            01 01136    40D4D6C4 A
            01 01137    C560F040 A
            01 01138    C5D9D9D6 A
            01 01139    D940C1E3 A
            01 0113A    40C1C4D9 A
            01 0113B    E27A4040 A
     4058   01 0113C                 MSG53END RES      0
     4059   01 0113C    15E2E3C1 A   MSG54    TEXT     '
STATUS READ MODD-1 ERROR AT ADRS: '
            01 0113D    E3E4E240 A
            01 0113E    D9C5C1C4 A
            01 0113F    40D4D6C4 A
            01 01140    C460F140 A
            01 01141    C5D9D9D6 A
            01 01142    D940C1E3 A
            01 01143    40C1C4D9 A
            01 01144    E27A4040 A
     4060   01 01145                 MSG54END RES      0
     4061                                     BOUND    8
     4062   01 01146    00000000 A   STATADR  DATA     0,0
            01 01147    00000000 A
     4063   01 01148    404DC8C5 A            TEXT     ' (HEX)'
            01 01149    E75D4040 A
     4064   01 0114A    15E2E4E2 A            TEXT     '
SUSPECT MODULES ARE:  '
            01 0114B    D7C5C3E3 A
            01 0114C    40D4D6C4 A
            01 0114D    E4D3C5E2 A
            01 0114E    40C1D9C5 A
            01 0114F    7A404040 A
     4065   01 01150                 STEND    RES      0
     4066   01 01150    15C1C3C3 A   MSG55    TEXT     '
ACCEPTABLE TESTHI > MEMORY-SIZE'
            01 01151    C5D7E3C1 A
            01 01152    C2D3C540 A
            01 01153    E3C5E2E3 A
            01 01154    C8C9406E A
            01 01155    40D4C5D4 A
            01 01156    D6D9E860 A
            01 01157    E2C9E9C5 A
     4067   01 01158    15E3E8D7 A            TEXT     '
TYPE "GO & NL" IF ABOVE LIMITS ESSENCIAL OTHERWIZE '
            01 01159    C5407FC7 A
            01 0115A    D6405040 A
            01 0115B    D5D37F40 A
            01 0115C    C9C640C1 A
            01 0115D    C2D6E5C5 A
            01 0115E    40D3C9D4 A
            01 0115F    C9E3E240 A
            01 01160    C5E2E2C5 A
            01 01161    D5C3C9C1 A
            01 01162    D340D6E3 A
            01 01163    C8C5D9E6 A
            01 01164    C9E9C540 A
     4068   01 01165    E3E8D7C5 A            TEXT     'TYPE "NL" TO CORRECT HI-LIMIT'
            01 01166    407FD5D3 A
            01 01167    7F40E3D6 A
            01 01168    40C3D6D9 A
            01 01169    D9C5C3E3 A
            01 0116A    40C8C960 A
            01 0116B    D3C9D4C9 A
            01 0116C    E3404040 A
     4069   01 0116D                 MSG55END RES      0
     4070                            *
     4071   01 0116D    15E2E4C3 A   MSG56    TEXT     '
SUCCESS RANDOM-PATTERN TEST
END '
            01 0116E    C3C5E2E2 A
            01 0116F    40D9C1D5 A
            01 01170    C4D6D460 A
            01 01171    D7C1E3E3 A
            01 01172    C5D9D540 A
            01 01173    E3C5E2E3 A
            01 01174    15C5D5C4 A
            01 01175    40404040 A
     4072   01 01176                 MSG56END RES      0
     4073   01 01176    1515D9C1 A   MSG57    TEXT     '

RANDOM TEST ERROR DETECTED AT LOC. '
            01 01177    D5C4D6D4 A
            01 01178    40E3C5E2 A
            01 01179    E340C5D9 A
            01 0117A    D9D6D940 A
            01 0117B    C4C5E3C5 A
            01 0117C    C3E3C5C4 A
            01 0117D    40C1E340 A
            01 0117E    D3D6C34B A
            01 0117F    40404040 A
     4074                                     BOUND    8
     4075   01 01180    00000000 A   RNDLOC   DATA     0,0
            01 01181    00000000 A
     4076   01 01182                 MSG57END RES      0
     4077                            *
     4078   01 01182    15E2E4E2 A   MSG58    TEXT     '
SUSPECT TPYI(0 OR 1) OR TNYI(0 OR 1) IN'
            01 01183    D7C5C3E3 A
            01 01184    40E3D7E8 A
            01 01185    C94DF040 A
            01 01186    D6D940F1 A
            01 01187    5D40D6D9 A
            01 01188    40E3D5E8 A
            01 01189    C94DF040 A
            01 0118A    D6D940F1 A
            01 0118B    5D40C9D5 A
     4079   01 0118C                 MSG58END RES      0
     4080                                     BOUND    8
     4081   01 0118C                 BUF      RES      20
     4082                            *
     4083   01 011A0                 TERM     RES      0
     4084         01 00450                    END      LOAD:PNT
            01 011A0    0001FFFF A
            01 011A1    40404000 A
            01 011A2    0000FFFF A
            01 011A3    F0F0F000 A
            01 011A4    0001E000 A
            01 011A5    00001FFF A
            01 011A6    000000FF A
            01 011A7    40400000 A
            01 011A8    40404040 A
            01 011A9    00000001 A
            01 011AA    40401515 A
            01 011AB    000000B7 A
            01 011AC    000000C0 A
            01 011AD    000000F0 A
            01 011AE    00000080 A
            01 011AF    00000007 A
            01 011B0    FFFFFF00 A
            01 011B1    404040F0 A
            01 011B2    0001FFBF A
            01 011B3    00000040 A
            01 011B4    0000000F A
            01 011B5    00020000 A
            01 011B6    000007FF A
            01 011B7    FFFF0000 A
            01 011B8    F0F0F0F0 A
            01 011B9    F0404040 A
            01 011BA    FFFFF000 A
            01 011BB    4D7E0000 A
            01 011BC    03FE0000 A
            01 011BD    00100000 A
            01 011BE    00000008 A

  CONTROL SECTION SUMMARY: 01 011BF   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:29 JUN 20,'83    MEMORY DIAGNOSTIC-FAULT LOCATOR 705736-11/51A01 9/1/70                PAGE    3
A  ABCDEFAB        3138/LW      3208-DATA
   ADFETCH         3059/BCS     3068-LW      3086/B
   ADJAC           2690-SLD     2693/BIR
   ADLSTR          3146/BCS     3151-STW
   ADR              830/STW      858-DATA
   ADRECFLG        1604/STW     1785/MTW     1803/MTW     1808-DATA    3266/MTW
   ADRECHEK        3262/BCR     3266-MTW
   ADRFLG          1570-DATA    1602/STW     1712/MTW     1726/MTW     3043/MTW     3106/STW
   ADRLDONE        3150/BCS     3157-RES
   ADRLEROR        3186/BCR     3211-LW
   ADRLTST         1691/B       3125-LW      3204/BCS     3247/BCS     3690/B
   ADRMSG          1701/LW      3910-TEXT
   ADRPFLG         1369/STW     1373/CW      1395/CW      1397/MTW     1417-DATA
   ADRSTOR         3049-LW      3065/B
   ADRTST          1688/B       3043-MTW     3117/BCS
   ADRTSTRT        1727/BCS     3102-RES
   AHBANK          1783-LI      1799/B
   AHBNKB          1832/BCR     1836-B
   AHBNKFLG        1781/STW     1793/MTW     1798/MTW     1801/MTW     1809-DATA
   AHBNKMOD        1826/BCS     1830-MTW
   AHBNK1          1802/BCS     1831-LC
   AHB2CHK         1789/B       1801-MTW
   AHCDR           1794/BCS     1813-LI      1829/B
   AHMODCAL        1814-LW      1836/B
   AHP1            1818/CAL2    1838-DATA
   AHP2            1820/CAL2    1845-DATA
   AHP3            1822/CAL2    1852-DATA
   AHP4            1824/CAL2    1859-DATA
   ALLSET           618/DATA    1515/BCR     1577-LI      1739/B       1768/B       3118/B       3248/B
      3384/BCS     3514/B       3806/B
   ALLTST3         2057/BCR     2125-LI
   ALLTST4         2209/BCR     2250/B       2303-LI
   ALLTST5         2413/BCR     2423/B       2442-BAL
   ANALYZE         1736/BCS     1746-LI
   ANYBIT          1129/BCS     1131/BCR     1133-AI
   AREA            1620-LW      1632/B
   AT60            1904/CAL2    1906/CAL2    1908/CAL2    1988-DATA
   AT60:013        1901/BCR     1906-CAL2
   AT60OK          1888/BCR     1905/B       1909-LC
   AT601427        1903/BCR     1908-CAL2
   B:INSTR         3158/LW      3209-B
   B:M1X5          3173/LW      3517-B
   BAADADR         3082/B       3092-BAL
   BAD:BYTE        1048-STW     1928/BAL     2504/BAL     2761/BAL     2916/BAL
   BAD:HB          1016-LW      2414/BAL
   BAD:HW          1077-STW     2065/BAL     2129/BAL     2221/BAL     2307/BAL     2318/BAL     2393/BAL
      2442/BAL     2507/BAL     2515/BAL     2605/BAL     2624/BAL     2685/BAL     2764/BAL     2787/BAL
      2839/BAL
   BADADR          3099/STD     4014-DATA
   BADBIT          1001/STW     1006-DATA    1879/MTW     1889/LW      1911/LW      1922/LW
   BADBSET          993/B        995/BCS      997-BIR
   BADCOR          2845/BCR     2847-RES
   BADSEN          2616-MTW     2672/B
   BADSTS14        3303-DATA    3543/CAL2
   BADXCS          2405/BCR     2410-LW
   BADYVPR         2127/BCS     2137-RES
   BAD15           2518/BCR     2521-CAL2
   BANK#            781/STW      853-DATA    1160/LW      1453/STW     1510/CW      1513/STW
   BANKB:T1        1914/BCS     1917-CAL2
   BANKTAB         1196-DATA    1512/STW
   BANK2ADR        1160-LW      1795/BAL     1882/BAL
   BEGIN           1411/B       1422-LI      1553/B
   BITEXAM         2242/B       2831-LW      2937/B       2947/B       2991/B
   BITNXT           788-LI       793/BIR
   BITS38          3006-LI      3027/B
   BIT2OFF3        2090/BCR     2103-LI
   BIT2OFF5        2397/BCR     2400-CAL2
   BIT26OFF        2105/BCR     2112-CI
   BIT6OFF3        2093/BCR     2100-CI
   BKR9            1161/STW     1186/LW      1194-DATA
   BKSIZE           796/STW      856-DATA    1169/MTW
   BLANKS           667-DATA     826/LW      1456/LW
   BLKS:NL          669-DATA    1504/LW
   BPASS           1589/PRINT   3895-TEXT
   BT36            1878/CAL2    1976-DATA
   BUF              552/READKSR  552/READKSR  553/LB       566/READKSR  566/READKSR  567/LB       570/LH
       576/LD       585/READKSR  585/READKSR  586/LB       589/LH       593/LD       627/READKSR
       627/READKSR  628/LH      1122/STM     1140/SW      1143/STW     1145/LM      1147/STW     1149/LW
      1239/STW     1244/STW     1253/LI      1255/CAL1    1506/STM     1507/STW     1508/STW     1509/PRINT
      1509/PRINT   4081-RES
   BYTE0           1053/BCR     1064-LW
   BYTE1           1055/BCR     1063-AI
   BYTE2           1057/BCR     1062-AI
   BYTE3           1059/BCR     1061-AI
   B2OFF           2132/BCR     2135-CAL2
   C               2247-LI      3435/B       3453/B
   CAL2             363/OPEN     426-COM
   CDMLOC          2823-BIR     2828/BCS     2830/BCS
   CDMOD           2855/CAL2    2883-DATA
   CDMOD2N         2857/CAL2    2865-DATA
   CDMSET2N        2851/BCR     2857-CAL2
   CHEKPBIT        3392/BCR     3456-BAL
   CHKBIT2         2389/B       2392-LI      2418/B       2434/BCR     2438/B
   CHKINH          2747/BCS     2750/BCS     2774-CW
   CHKRDONE        3722/BCS     3725-CW
   CHKXCFLG        2373-MTW     2422/BCS
   CNT:BITS         980-STD     1383/BAL     1871/BAL     2007/BAL     2055/BAL     2204/BAL     2364/BAL
      2411/BAL     2420/BAL     2428/BAL     2496/BAL     2664/BAL     2737/BAL     2748/BAL     2832/BAL
      3219/BAL
   COMMAND          492/STW      494/STW      495/LI       523-DATA
   COMTEMR         1750/STM     1752/LM      1759/STM     1772-RES
   COMUTOR         1751-LCI     1779/B       1806/B       1937/B       1938/B       2009/BCS     2012/BCS
      2824/B       2834/BCS     2957/BCS     3013/B       3025/B
   CONTINUE        1386/B       1392-LI
   CONTRL          2015/CAL2    2016/CAL2    2020-DATA
   CPINTFIN         615/LPSD     618-DATA
   CPRET            557/BCR      615-LPSD     631/BCR      636/B
   CTRTST1         3410-CI      3458/B
   CTRTST2         3411/BCS     3433-CI
   CTRTST3         3434/BCS     3437-CI
   CTRTST4         3444/BCS     3451-CI
   CTRTST5         3452/BCS     3460-CI
   CTRTST6         3461/BCS     3469-CI
   CYCLE           1584-RES     3780/B
   D               2246/BCS     2249-LI
   DATABAD         3378-RES     3388/BCS
   DATAEROR        1698/BCS     1703-LW
   DATAERR         1593/STW     1704/MTW     2862-DATA    3293/MTW
   DATAFLG          712-DATA    1578/STW     1685/MTW     1697/MTW     3291/STW     3778/STW
   DATAMSG         1703/LW      3908-TEXT
   DATAOK          1669/B       1685-MTW
   DATAOOK         3390-MTW
   DIODTAG         2241/MTW     2821/STW     2844/MTW     2863-DATA    2910/STW
   DONE            1757/BCR     1762-MTW
   DUMMY           1415-B       1432/LW
   EBCDIC           447/BAL      542/BAL      546/BAL      602/BAL      607/BAL      832/BAL      894-LCI
      1236/BAL     1445/BAL     1541/BAL     1587/BAL     1709/BAL     1718/BAL     1721/BAL     3092/BAL
      3097/BAL     3212/BAL     3230/BAL     3783/BAL     3786/BAL     3789/BAL
   EBTEMPS          895/STM      912/STD      914/LM       918-RES
   END:CALC         670-RES
   EREPORTD        1763/BCS     1765-RD
   ERRCNT          1257/MTW     1569-DATA    1603/STW     1762/MTW     2956/MTW     3383/MTW
   ERROR           1659/B       1695-STW     3100/B       3365/B
   ERRPR           1378/BCS     1380/BCR     1385/BCS     1387-RES     1394/BCS
   ERRTST3         2050/BCR     2055-BAL
   ERRTST4         2173/BCR     2179-LI
   ERRTST5         2350/BCR     2358/BCR     2402-AI
   ERRTYP          1707/STW     3902-DATA
   EVSTAT          1459-LI      1481/B
   EXAMALL         2676/B       2734-LI
   EXAMRET         2683-LW      2780/BCS
   EXCTRP           440/B        442/BCR      444-LW
   EXIT:IO          479/BCS      517-MTW      644/DATA
   EXITHEX          877/B        885-STW
   EXITPERR        3500/BCS     3504-RD      3544/B       3552/B       3572/B       3580/B       3592/B
      3627/B       3639/B       3653/B       3664/B       3675/B       3683/B
   EXITPTST        3294/BCS     3297-LI      3428/B
   EXITST          1870/BCS     1873/BCS     1910/BCR     1926/B       1937-B       2017/B       2053/B
      2061/BCS     2080/B       2117/BCR     2136/B       2178/B       2216/B       2315/BCR     2366/BCR
      2374/BCS     2401/B       2430/BCS     2437/BCS     2457/B       2498/BCR     2522/B       2530/B
      2550/B       2567/B       2573/BCS     2579/BCS     2586/B       2601/BCS     2612/B       2632/B
      2636/B       2640/B       2644/B       2648/B       2652/B       2659/B       2666/BCR     2671/BCS
      2697/B       2736/BCR     2742/BCS     2754/B       2757/BCS     2760/BCS     2762/BCS     2767/B
      2782/BCS     2794/B       2798/B       2802/B       2804/B       2858/B       2934/BCR
   EXITST0         1803-MTW     1827/B
   EXITSWP         3493/BCS     3610/BCS     3687-BAL
   EXPECT          1722/STD     3784/STD     3916-DATA
   FA              1664-DATA    1695/STW     1708/LW      1753/LW      2379/LW      2385/LW      2410/LW
      2495/LW      2536/LW      2556/LW      2577/LW      2669/LW      2831/LW      2998/AND     3406/LW
   FA:GRUP         1120-LI      1868/BAL     2010/BAL     2048/BAL     2171/BAL     2187/BAL     2348/BAL
      2356/BAL     2360/BAL     2369/BAL     2376/BAL     2403/BAL     2571/BAL     2596/BAL     2661/BAL
      2740/BAL     2758/BAL     2912/BAL
   FAMSG           1710/STD     3905-DATA
   FANDONE         3010/BCS     3028-MTW
   FETCH           1640/BCS     1645-LW      3374/CW
   FE000           1571-DATA    1619/AND     1621/AND     1638/AND     3048/AND     3050/AND     3069/AND
      3143/AND     3193/AND     3485/AND     3487/AND     3718/AND     3720/AND     3750/AND
   FF0S             675-DATA    1052/CW
   FLGODEV         1458/STW     1477/MTW     1521-DATA
   FS0S             674-DATA    1083/AND
   FTYPE            734/STW      847-DATA    1377/CW
   FT63:BA         1915/CAL2    1945-DATA
   FT63:BB         1917/CAL2    1941-DATA
   FT65:4          1919/CAL2    1920/CAL2    1921/CAL2    1950-DATA
   FULL            1627/BCS     1630/BCR     1636-LW
   GENRNDM         3759/BCS     3762-BAL     3767/BIR
   GENRNO          3729/BCS     3732-BAL     3735/BIR
   GETCOMP         1613/EXU     1672-LCW     3526/EXU
   GETPAT          1616/EXU     1671-LW      3529/EXU
   GRDXPNCK        2372/B       2420-BAL
   HCCCC           2244/AND     2252-DATA
   HEX              579/BAL      596/BAL      864-LCI
   HF               874/AND     2836/AND     2861-DATA
   HFFF             706-DATA
   HFFFF           1081/AND     1095-DATA
   HFF0000         1045-DATA    1054/CW
   HIFLG            531-DATA     562/MTW      601/STW      603/MTW
   HILIMOK          588/BCR      592/BCR      599-LW
   HWDSOK          3650/BCS     3666-LW
   HWGEN           3332-DATA    3638/CAL2    3652/CAL2
   HWTST0          3619/BCS     3629-EOR
   HWTST1          3636/BCS     3641-LW
   HW0             1082/BCR     1087-LI
   HW1             1084/BCR     1086-AI
   H1FFF            708-DATA    1869/CW
   H1F000           705-DATA
   H3               711-DATA    1029/AND
   H4040           1243/OR      1262-DATA
   H60              668-DATA    1502/OR
   H61             1238/OR      1261-DATA
   H7C              710-DATA
   INHBAD          2779-MTW
   INHFLAG         2595/STW     2679-DATA    2696/MTW
   INHSYM          2692/BCR     2696-MTW
   INHTEMP         2771-DATA
   INTACFLG        1297/STW     1303/MTW     1313/STW     1320-DATA    3263/MTW
   INTINSTR        3372-LW      3377/BIR
   INTRFADR        3094/STD     4018-DATA
   INTRL#           803/STW      854-DATA
   INTRLFLG         634/MTW      713-DATA    1599/STW
   INTRLVE          634-MTW
   INTRPFLG        1295/STW     1314/STW     1319-DATA    3261/MTW
   INTRPTD         3561/BCR     3612-LW
   IO:FLAGS         493/OR       526-DATA
   IORET            643-LPSD
   IT25            1881/CAL2    1985-DATA
   IXFLG            715-DATA     725/MTW     1334/STW     1340/MTW     1400/MTW     1402/MTW     1406/MTW
   J10             2096-CAL2    2101/BCR
   J12             2107/BCR     2110-CAL2    2114/B
   J14             2108-CAL2    2113/BCR
   J8              2095/BCR     2098-CAL2    2102/B
   K               3815/AW      3833-DATA
   KDMOD           2456/CAL2    2461-DATA
   KSIZE           1450/STW     3884-DATA
   KSR              511/LW       527-DATA
   KSREAD           551-RES      559/B
   KSRTST           499/B        502/BCS      511-LW
   KT              3826-DATA
   LADROUT         3215/STW     3216/STW     4043-DATA
   LAMSWAIT         453/BCR      457-WAIT
   LAREA           3144-LW      3155/B
   LAS:TST         1317/B       1324-RES     1358/B       1391/B
   LASFLG           437/MTW     1332/STW     1368/STW     1412-DATA
   LASLMS           439/PRINT    451/PRINT   1350/PRINT   3934-TEXT
   LASMEXIT        1401/BCS     1406-MTW
   LASTEST          704-RES     1746/LI
   LASTP            750/STW      851-DATA
   LASTPAT         1666-LI      1679/BCR
   LASTRAP          439/PRINT   1350/PRINT   3933-TEXT
   LASTRAPE         451/PRINT   3938-RES
   LCONVRT         3224/B       3230-BAL
   LIMCHNG          555/BCR      564-RES
   LINE            3128/STW     3129/STW     3130/STW     3131/STW     3133/STW     3236/STB     4036-DATA
   LINE#           3233/STW     4041-DATA
   LINEOK          2190/BCR     2201-LW
   LMSFLG           441/MTW     1335/STW     1371/STW     1399/MTW     1413-DATA
   LMSTRAP          443/PRINT   1388/PRINT   3930-TEXT
   LMSTRAPE         443/PRINT   1388/PRINT   3931-RES
   LMSTST          1360/B       1367-LI
   LOAD:PNT         367/B       1270-XPSD    1275/LW      1277/AI      4084/END
   LOC:OK          1647/BCR     1673-CW
   LOLIMOK          563/BCS      569/BCR      573/BCR      583-RES      632/B
   LOOP            1337-STW     1362/B       1405/B
   LOOPHEX          867-SCD      876/BIR
   LP               500/LW       528-DATA
   LPCHKERR        3624/BCS     3655-LI
   LPCHKMOD        3346-DATA    3656/CAL2    3661/CAL2    3663/CAL2
   LPTST            501-TIO
   MCALFLG          434/MTW      465-DATA     469/MTW     1429/MTW     1431/MTW     1442/STW
   MCALRET          436/B        468-MTW
   MEMCALC         1427-LI      1439/B
   MEMLIM          1437/BCR     1440-LW
   MEMRYSIZ         613/CW      1416-DATA    1444/STW
   MEMSIZ          1447/STD     3886-DATA
   MEMTYPE          822/STW      857-DATA    1393/CW
   MODCAL          2619/B       2622-LW
   MODEND          1223/BCR     1247/BCR     1251-LI
   MODPAT          1349/BCR     1359-BIR
   MODSENS         3442/B       3445-RES
   MODTOCPU        3672/BCR     3677-LI
   MOD03CE         2608/BCR     2611-CAL2
   MOD15           2510/BCR     2585-CAL2
   MOD16           2511/B       2565-RES
   MOD79           2175/BCR     2318-BAL
   MOVEHEX          875-SLD      884/B
   MSG1            1288/PRINT   3838-TEXT
   MSG1END         1288/PRINT   3861-RES
   MSG10           1690/PRINT   3899-TEXT
   MSG10END        1690/PRINT   3900-RES
   MSG11           1711/PRINT   3901-TEXT
   MSG11END        1711/PRINT   3907-RES
   MSG12           1723/PRINT   3794/PRINT   3911-TEXT
   MSG12END        1723/PRINT   3794/PRINT   3917-RES
   MSG13           1737/PRINT   3926-TEXT
   MSG13END        1737/PRINT   3927-RES
   MSG14           1764/PRINT   3928-TEXT
   MSG14END        1764/PRINT   3929-RES
   MSG15           1306/PRINT   3941-TEXT
   MSG15END        1306/PRINT   3942-RES
   MSG16           1792/PRINT   3943-TEXT
   MSG16END        1792/PRINT   3946-RES
   MSG17           1877/PRINT   3947-TEXT
   MSG17END        1877/PRINT   3948-RES
   MSG18           2086/PRINT   3949-TEXT
   MSG18END        2086/PRINT   3950-RES
   MSG19           2128/PRINT   3951-TEXT
   MSG19END        2128/PRINT   3953-RES
   MSG2             612/PRINT   3862-TEXT
   MSG2A            549/PRINT   3863-TEXT
   MSG2END          549/PRINT    612/PRINT   3869-RES
   MSG20           2138/PRINT   3954-TEXT
   MSG20END        2138/PRINT   3955-RES
   MSG21           2240/PRINT   3958-TEXT
   MSG21END        2240/PRINT   3959-RES
   MSG22           2312/PRINT   2326/PRINT   3960-TEXT
   MSG22END        2312/PRINT   2326/PRINT   3962-RES
   MSG23           2388/PRINT   3963-TEXT
   MSG23END        2388/PRINT   3965-RES
   MSG24           2391/PRINT   3966-TEXT
   MSG24END        2391/PRINT   3967-RES
   MSG25           2417/PRINT   3968-TEXT
   MSG25END        2417/PRINT   3969-RES
   MSG26           2445/PRINT   3970-TEXT
   MSG26END        2445/PRINT   3972-RES
   MSG27           2514/PRINT   3973-TEXT
   MSG27END        2514/PRINT   3974-RES
   MSG28           2540/PRINT   3975-TEXT
   MSG28END        2540/PRINT   3976-RES
   MSG29           2547/PRINT   3977-TEXT
   MSG29END        2547/PRINT   3978-RES
   MSG3             622/PRINT   3870-TEXT
   MSG3END          622/PRINT   3871-RES
   MSG30           2559/PRINT   3979-TEXT
   MSG30END        2559/PRINT   3980-RES
   MSG31           2506/PRINT   2581/PRINT   3981-TEXT
   MSG31END        2506/PRINT   2581/PRINT   3982-RES
   MSG32           2604/PRINT   3983-TEXT
   MSG32END        2604/PRINT   3984-RES
   MSG33           2618/PRINT   3446/PRINT   3985-TEXT
   MSG33END        2618/PRINT   3446/PRINT   3986-RES
   MSG34           2621/PRINT   3987-TEXT
   MSG34END        2621/PRINT   3988-RES
   MSG35           2783/PRINT   3989-TEXT
   MSG35END        2783/PRINT   3990-RES
   MSG36           2848/PRINT   3471/PRINT   3993-TEXT
   MSG36END        2848/PRINT   3471/PRINT   3994-RES
   MSG37           2936/PRINT   3996-TEXT
   MSG37END        2936/PRINT   3997-RES
   MSG38           2944/PRINT   3015/PRINT   3998-TEXT
   MSG38END        2944/PRINT   3015/PRINT   3999-RES
   MSG39           2946/PRINT   3418/PRINT   4000-TEXT
   MSG39END        2946/PRINT   3418/PRINT   4001-RES
   MSG4             540/PRINT   3872-TEXT
   MSG4END          540/PRINT   3873-RES
   MSG40           2952/PRINT   2988/PRINT   3417/PRINT   4002-TEXT
   MSG40END        2952/PRINT   2988/PRINT   3417/PRINT   4003-RES
   MSG41           2990/PRINT   4004-TEXT
   MSG41END        2990/PRINT   4006-RES
   MSG42           3089/PRINT   4010-TEXT
   MSG42END        3089/PRINT   4011-RES
   MSG43           3103/PRINT   4013-TEXT
   MSG43END        3103/PRINT   4021-RES
   MSG44           3281/PRINT   4022-TEXT
   MSG44END        3281/PRINT   4023-RES
   MSG45           3427/PRINT   4024-TEXT
   MSG45END        3427/PRINT   4025-RES
   MSG46           3425/PRINT   4026-TEXT
   MSG46END        3425/PRINT   4027-RES
   MSG47           3464/PRINT   4028-TEXT
   MSG47END        3464/PRINT   4029-RES
   MSG48           3202/PRINT   4031-TEXT
   MSG48END        3202/PRINT   4032-RES
   MSG49           3238/PRINT   4035-TEXT
   MSG49END        3238/PRINT   4045-RES
   MSG5             550/PRINT   3874-TEXT
   MSG5END          550/PRINT   3875-RES
   MSG50           3501/PRINT   4047-TEXT
   MSG50END        3501/PRINT   4049-RES
   MSG51           2013/PRINT   4052-TEXT
   MSG51END        2013/PRINT   4053-RES
   MSG52           2751/PRINT   4055-TEXT
   MSG52END        2751/PRINT   4056-RES
   MSG53           1529/PRINT   4057-TEXT
   MSG53END        1529/PRINT   4058-RES
   MSG54           1535/PRINT   4059-TEXT
   MSG54END        1535/PRINT   4060-RES
   MSG55            626/PRINT   4066-TEXT
   MSG55END         626/PRINT   4069-RES
   MSG56           3775/PRINT   4071-TEXT
   MSG56END        3775/PRINT   4072-RES
   MSG57           3793/PRINT   4073-TEXT
   MSG57END        3793/PRINT   4076-RES
   MSG58           2763/PRINT   4078-TEXT
   MSG58END        2763/PRINT   4079-RES
   MSG6             565/PRINT   3878-TEXT
   MSG6END          565/PRINT   3879-RES
   MSG7             584/PRINT   3880-TEXT
   MSG7END          584/PRINT   3881-RES
   MSG8            1451/PRINT   3883-TEXT
   MSG8END         1451/PRINT   3891-RES
   MSG9            1687/PRINT   3892-RES
   MSG9END         1687/PRINT   3894-RES
   M1              3713/STD     3745/STD     3810/MTW     3816/EOR     3830-DATA
   M1T             3712/LD      3744/LD      3823-DATA
   M111379         2327/CAL2    2331-DATA
   M15             2519/CAL2    2546/CAL2    2549/CAL2    2563/CAL2    2585/CAL2    2587-DATA
   M16             2521/CAL2    2544/CAL2    2566/CAL2    2589-DATA
   M2              3812/MTW     3817/EOR     3831-DATA
   M2T             3824-DATA
   M29             3423/CAL2    3476/CAL2    3691-DATA
   M30             3430/CAL2    3696-DATA
   NEWFA           2960/STW     2971/STW     2980/LW      2983/AND     2999/STW     3002/LW      3007/AND
      3014/LW      3026/STW     3028/MTW     3031-DATA
   NEXTBIT          739-LI       744/BIR
   NOAHBNK2        1796/BCS     1828-MTW
   NOAH2FLG        1782/STW     1810-DATA    1825/MTW     1828/MTW     1830/MTW
   NOHB            1025/BCS     1028/B       1033-LI
   NOIX             726/BCR      730-LCI
   NONEXIST         614/BCS      625-RES
   NONEXST         1183/BCS     1185/BCS     1189-LB
   NOTCOR          2846/B       2849-LI
   NO2NDBNK        1883/BCS     1889-LW
   NXTAH           1786-LI      1791/BIR
   NXTBITS3        2072-SLD     2075/BIR
   NXTBITS4        2230-SLD     2233/BIR
   NXTBLK          3749-LW      3772/B
   NXTBNKL         3139-LI      3199/BCR
   NXTBNKPE        3484-LW      3611/B
   NXTCHRC          899-LB       910/BIR
   NXTFA           1123-CW      1135/BCR     1139/BCR     1150/B
   NXTLIN          3140-SLS     3189/BCR
   NXTLOC          1637-LW      1676/B
   NXTMOD          1235-LH      1250/B
   NXTOK           1104-BCR     1110/B
   NXTPBIT          960-LI       965/BIR
   NXTPRPAT        3524-MTW     3601/B       3606/B
   NXTWRD          1281-LW      1285/BIR
   NXTXD           3005/BCR     3018-AI
   NXTYD           2962-LW      2975/BIR
   NXTYDBLK        2966/BCR     2972/B       2980-LW
   NXT8K           1457-LI      1518/B
   NXT8KRND        3719-LW      3739/B
   ODDMSG          2211/PRINT   2380/PRINT   2525/PRINT   2654/PRINT   3379/PRINT   3956-TEXT
   ODDSENS         2653-RES     2694/B
   ODDXCS          2379-LW      2407/BCR     2409/BCS     2415/BCS
   ODDXVS          2491/BCS     2500/BCS     2524-RES     2558/BCS
   ODMSGEND        2211/PRINT   2380/PRINT   2525/PRINT   2654/PRINT   3379/PRINT   3957-RES
   ODPRINT         2931/BCR     2941-LW
   ODYCS           2210-RES     2234/B
   OK:GRUP         1101-LI      2484/BAL     2489/BAL     2535/BAL     2555/BAL     2576/BAL     2599/BAL
      2668/BAL
   OKDONE          1104/BCR     1107/BCS     1111-XW
   OKHB            1023/BCR     1031-AI
   ONEYMOD         2099/B       2111/B       2116-MTW
   OPENYC          2945-RES     2953/B
   OPSINKLN        2539/BCS     2554-AI
   OPSNK16         2562/BCR     2566-CAL2    2584/BCS
   ORDER            489/OR       525-DATA
   ORDERW           491/OR       530-DATA
   ORIGIN           428-ORG
   PA              2598/BCS     2661-BAL
   PARINT          3277/B       3361-LI
   PARTIALP        3577/BCR     3582-LI      3597/B
   PARTYERR        1700/BCS     1702/B       1706-LW
   PARTYFLG         714-DATA    1592/STW     1699/MTW     1714/MTW     1728/MTW     1777/MTW     2081/MTW
      2116/MTW     2314/MTW     3275/MTW     3295/MTW     3300/STW     3354/STW
   PARTYGO         1594-LI      3357/B
   PARTYMSG        1706/LW      3909-TEXT
   PARTYON         3413/BCR     3416-RES
   PASELBAD        2603-LI
   PASS            3776/PRINT   3896-TEXT
   PASS#           1583/STW     1585/MTW     1586/LW      1662-DATA
   PASSCNT         1588/STW     3897-DATA
   PASSEND         1589/PRINT   3776/PRINT   3898-RES
   PATDONE         1644/BCS     1677-RES
   PATEND           692-RES     1606/LI
   PATFLG          1595/STW     1611/MTW     1663-DATA    1667/MTW     3523/STW     3524/MTW     3603/MTW
      3605/MTW
   PATTERN          672-DATA    1607/AI      1671/LW      1672/LCW
   PBIT             957-LI      3412/BAL     3456/BAL     3532/BAL     3667/BAL
   PCHK            1686/BCS     1689-RES
   PERCNTR         3252-DATA    3292/STW     3301/STW     3363/MTW     3390/MTW     3407/LW
   PFLGTST         3271/BCR     3275-MTW
   PINH            3457/BCR     3463-RES
   PINHMOD         3466/CAL2    3702-DATA
   PINTR:OK        1304/BCS     1312-LI
   PM1B            3422/BCR     3430-CAL2    3474/BCR
   PM31            3424-RES     3431/B       3470/BCS
   PORT#            775/STW      855-DATA    1382/LW      1814/LW      1890/LW      3662/LW      3681/LW
   PORTBITS         737-STB      777/B
   PORTCALC         747/B        779-LI
   PPRTS           3342-DATA    3682/CAL2
   PRINT            416-CNAME
   PRTYLGIC        1294-LI      1311/B
   PRTYRUN         3296/BCR     3353-LI
   PRTYTST         3090/B       3290-LI
   PRTYTSTR        1729/BCS     3364/BCS     3369-LW
   PSENSE          3448/CAL2    3701-DATA
   PTAGSET         2118/B       2316/B       3426-RES     3449/B       3467/B       3477/B
   PTST            3267/BCR     3270-MTW
   RANDMTST        3205/B       3711-LI      3805/BCS
   RANDOM          3732/BAL     3762/BAL     3810-MTW
   READKSR          408-CNAME
   RECEIV          1719/STD     3787/STD     3913-DATA
   RECHECK          873/B        878-LI
   RESET           1396/BCS     1399-MTW
   RETHB           1030/B       1034-SCS
   RETREGS          922-LCI     1256/BAL     3513/BAL     3687/BAL
   RETRNL          3169/LW      3210-B
   REXACUTE        3373/STW     3386-DATA
   RHC             2447/CAL2    2459-DATA
   RIBON           2766/CAL2    2768-DATA
   RNDLOC          3792/STD     4075-DATA
   RNDMERR         3765/BCS     3783-BAL
   ROK             2387/BCR     2390-RES
   RPMODS          3338-DATA    3678/CAL2
   RPRTADR         1533/B       1539-LW
   RTSTDONE        3757/BCS     3771/BCS     3774-RES
   RWFLAG           411/STW      419/STW      476/MTW      487/MTW      497/MTW      529-DATA    1252/STW
   R32BAD          3336-DATA    3674/CAL2
   R8R9             480/STD      520/LD       524-DATA     980/STD     1002/LD
   SAFLAG          1600/STW     2616/MTW     2675/MTW     2678-DATA    2732/STW     2779/MTW
   SAREPORT        2617/BCS     2620-RES
   SAVREGS          929-LCI     1221/BAL     1875/BAL     3483/BAL
   SEED            3715/STD     3747/STD     3813/LW      3818/STW     3832-DATA
   SEEDT           3714/LD      3746/LD      3825-DATA
   SENSAMP         2663/BCS     2675-MTW
   SET             1371-STW     1398/B
   SETRCNT         3752/BCS     3755-LCW
   SFLG             736/STW      745/MTW      776/MTW      778-DATA
   SGO              729/B        732-SLD
   SHFTBIT          986-LI       997/BIR
   SHIFTHB         1020-LI      1032/BIR
   SHORTD          2989-RES     3016/B
   SINK15          2543/BCS     2546-CAL2
   SIZTAB           647-DATA    1449/LW      1496/LW      1498/LW      1503/LW
   SMALHI           611/BCS      621-RES
   SMEAR           1610-WD      1658/BCS     1668/BCR     1681/BCS     1683/B
   SMSG            1351/PRINT   1389/PRINT   3939-TEXT
   SMSGE           1351/PRINT   1389/PRINT   3940-RES
   SPFLG            452/MTW      454/MTW     1591/STW     3135/STW     3185/MTW     3201/STW     3270/MTW
      3273/STW     3284-DATA    3557/STW     3560/MTW     3689/STW
   START            462/DATA    1293-RES
   STAT            1713/BCS     1716/B       1724-BAL
   STATADR         1543/STD     1544/PRINT   4062-DATA
   STATEMP0        1463/STW     1471/CW      1522-DATA    1527/CW
   STATEMP1        1466/STW     1475/CW      1523-DATA
   STATMODS        1546/CAL2    1556-DATA
   STATOK          1478/BCS     1483-XW      1528/BCR
   STATUS           723-LCI     1376/BAL     1531/BAL     1537/BAL     1724/BAL     3095/BAL     3502/BAL
      3657/BAL     3679/BAL     3795/BAL
   STAT0ERR        1472/BCS     1525-RES
   STAT1ERR        1476/BCS     1534-RES
   STEMPLOC         724/STM      843/LM       849-RES
   STEND           1544/PRINT   4065-RES
   STFF            3330-DATA    3626/CAL2
   STR             1623/BCS     1628-STW
   STRDMY          1415/B       1435-LW
   STRTIO           503/BCR      514-SIO
   STSFORM          742/STB      753/STW      768/STW      771/STW      783/STW      791/STB      799/STW
       814/STW      825/STW      827/STW      836/STW      837/STW      839/STW     3924-RES
   STSMSG          1532/PRINT   1538/PRINT   1725/PRINT   3104/PRINT   3503/PRINT   3796/PRINT   3918-TEXT
   STSMSGE         1532/PRINT   1538/PRINT   1725/PRINT   3104/PRINT   3503/PRINT   3796/PRINT   3925-RES
   SUCCADRT        3078/BCS     3088-RES
   SW#              757/STW      852-DATA    1379/CW
   SWDFLG          1596/STW     3499/MTW     3518-DATA
   SWDRPE          3302/B       3409/BCR     3483-BAL     3512/BCS
   SWDRTSTG        3498/BCR     3520-LW
   SYNEREND         558/PRINT    561/PRINT   3877-RES
   SYNERR           558/PRINT    561/PRINT   3876-TEXT
   TAGALT          1134/MTW     1601/STW     2911/MTW     3034-DATA
   TALLYFA         1124/BCS     1127/BCR     1132/B       1140-SW
   TBYTE2          1934/CAL2    1968-DATA
   TEMINT15         446/STW      448/LW       466-DATA
   TEMPCC           969/STW      971/LC      1035/STW     1037/LC      1066/STW     1068/LC      1090/STW
      1092/LC      1165/STCF    1174/MTB     1187/LC      1189/LB      1191/STB     1193-DATA    1831/LC
      1909/LC      1913/LC      3533/STCF    3540/CW      3588/CW      3668/STCF    3671/CW
   TEMPLOW          532-DATA     582/STW
   TEMPRA           945-DATA
   TEMPRB           946-DATA
   TEMPRC           947-DATA
   TEMPRD           948-DATA
   TEMPRE           949-DATA
   TEMPRF           831/STW      833/LW       950-DATA
   TEMPR0           865/STM      887/LM       923/LM       930/STM      935-DATA    1229/LW      1326/STM
      1410/LM
   TEMPR1           936-DATA
   TEMPR2           937-DATA
   TEMPR3           938-DATA
   TEMPR4           939-DATA    1278/STW     1286/LW
   TEMPR5           940-DATA    3166/STW     3175/LW      3211/LW
   TEMPR6           941-DATA
   TEMPR7           942-DATA     983/STW      994/MTW      996/STW      999/LW      1927/STW     1929/LW
      2838/STW     2840/LW
   TEMPR8           885/STW      943-DATA    3537/STW     3546/LW      3566/STW     3574/LW      3616/STW
      3621/LW      3647/STW     3658/LW      3669/LW
   TEMPR9           944-DATA     958/STW      967/LW      1048/STW     1064/LW      1077/STW     1088/LW
   TEMP7T4         2306/STW     2308/LW      2343-DATA
   TERM            4083-RES
   TESTHI           548/STD      609/STD     3868-DATA
   TESTLOC          720/DATA    1337/STW     1339/LW      1345/LAS     1346/LW      1372/LI      1414-DATA
      1428/STW     1436/CW
   TESTLOW          544/STD      605/STD     3865-DATA
   TESTS            693-DATA    1746/LI      1760/LW
   TEST0            693/DATA    1777-MTW
   TEST1            694/DATA    1868-BAL
   TEST10           703/DATA    2905-LI
   TEST2            695/DATA    2006-LW
   TEST3            696/DATA    2046-LI
   TEST4            697/DATA    2169-LI
   TEST5            698/DATA    2345-LI
   TEST6            699/DATA    2484-BAL
   TEST7            700/DATA    2594-LI
   TEST8            701/DATA    2731-LI
   TEST9            702/DATA    2820-LI
   TOTALPAT        1609/STW     1661-DATA    1678/CW      3598/CW
   TOTALTST        1745-DATA    1747/STW     1756/CW
   TPNYI           2739/BCR     2756-CI
   TRAPORG          450/STD     3936-DATA
   TRAPRET          461-LPSD
   TREST           1932/CAL2    1972-DATA
   TRPLMS           438/BCR      441-MTW
   TSTBITS         1142/BCR     1147-STW
   TSTLOCP          719-DATA     728/LMS*    1338/STW*    1342/LAS*    1343/LW*
   TSTPAT          3516-DATA    3530/STW     3641/LW      3666/LW
   TSTRND          3726/BCS     3738/BCS     3743-RES
   TST3HW          2129-BAL     2139/B
   TWOFF           2451/BCR     2455-LI
   TYPERR           560-RES      624/B        882/B
   T3031           1925/CAL2    1964-DATA
   UNKNOWN         3276/BCR     3280-RES     3380/B
   WASLW           3375/BCR     3383-MTW
   WPBAD           3327-DATA    3591/CAL2
   WPOK            3589/BCR     3594-CI
   W12SET          3322-DATA    3579/CAL2
   W13SET          3314-DATA    3571/CAL2
   W7SET           3310-DATA    3551/CAL2
   XCSERR          2378/BCR     2385-LW
   XCSOK           2354/BCS     2360-BAL
   XCS34           2347/STW     2355/MTW     2406/MTW     2480-DATA
   XDCOMPR         3003-LW      3020/B
   XDEXAM          2969/BCS     2987/BCS     2997-LI
   XDGRUP          3001-LI      3029/B
   XDIODE          2908/STW     3011/MTW     3021/MTW     3022/LW      3035-DATA
   XLOPEN          2935-RES     2943/BCR
   XLTAG           2907/STW     2915/MTW     2930/MTW     3033-DATA
   XPNR            2359/B       2363-MTW
   XPNRCHK         2368/BCR     2426-LW
   XPNRFLG         2342-DATA    2346/STW     2363/MTW     2373/MTW     2386/MTW
   XVDRIVE         2533/BCS     2571-BAL
   XVPRED          2487/BCS     2532-CI
   XVSBAAD         2505/BCR     2513-RES
   YCSBAD          2232/BCR     2244-AND
   YCSPRINT        2323-RES
   YCSRETRN        2314-MTW     2328/B
   YCSTAB          2267-DATA    2313/CAL2
   YCSW            2207/BCR     2221-BAL
   YCYV            2144/BCS     2148/B       2951-RES
   YC07BAD         2195/BCR     2321-LI
   YC7FLAG         2170/STW     2185/MTW     2191/MTW     2198-DATA
   YD              2917/BCS     2920/BCS     2923/BCS     2926/BCS     2929/BCS     2956-MTW
   YDCNTR          2968-MTW     2976/B
   YDCOMPR         2961-LI      2985/BCR
   YDIODE          2906/STW     2968/MTW     2970/MTW     2986/MTW     3032-DATA
   YDLOC           2964/BCR     2974-BDR
   YLOPEN          2147/BCR     2192/BCR     2196/B       2239-RES
   YVLOPEN         2059/BCR     2141-LI
   YVPRFLAG        2047/STW     2122-DATA    2124/MTW     2126/MTW
   YVPRL           2052/BCR     2124-MTW
   YVSBAD          2074/BCR     2081-MTW     3415/B
   YVSW            2060-CI
   YVS10           2096/CAL2    2150-DATA
   YVS12           2110/CAL2    2135/CAL2    2162-DATA
   YVS14           2108/CAL2    2158-DATA
   YVS8            2098/CAL2    2133/CAL2    2154-DATA
   03CE            2611/CAL2    2704-DATA
   03DF            2609/CAL2    2706-DATA
   04B             2753/CAL2    2772-DATA
   04CE            2647/CAL2    2716-DATA
   04DF            2651/CAL2    2718-DATA
   05CE            2639/CAL2    2712-DATA
   05DF            2643/CAL2    2714-DATA
   06CE            2631/CAL2    2708-DATA
   06DF            2635/CAL2    2710-DATA
   07DF            2803/CAL2    2813-DATA
   0810C           2398/CAL2    2472-DATA
   09DF            2801/CAL2    2811-DATA
   11DF            2797/CAL2    2809-DATA
   1214C           2400/CAL2    2476-DATA
   13DF            2793/CAL2    2807-DATA
   13RESET         3569/BCR     3574-LW
   14OK            3541/BCR     3546-LW
   3BF0             666-DATA    1491/OR
   404040FF         543/AND      547/AND      604/AND      608/AND      707-DATA    1446/AND     3093/AND
      3098/AND
   7RST            3549/BCR     3554-LI
   8K               709-DATA    1438/SW      1625/AW      1642/AW      2370/CW      2741/CW      2774/CW
      3054/AW      3073/AW      3148/AW      3163/AW      3190/AW      3197/AW      3491/AW      3608/AW
      3724/AW      3727/LCW     3736/AW      3754/AW      3755/LCW     3769/AW
   87ZERO          1347/OR      1418-DATA
   %CPINT           399/XPSD     537-DATA
   %INTRAP          370/XPSD     371/XPSD     372/XPSD     373/XPSD     374/XPSD     375/XPSD     376/XPSD
       377/XPSD     380/XPSD     381/XPSD     382/XPSD     383/XPSD     384/XPSD     385/XPSD     386/XPSD
       387/XPSD     393/XPSD     394/XPSD     395/XPSD     396/XPSD     397/XPSD     400/XPSD     401/XPSD
       404/XPSD     431-DATA     444/LW       468/MTW      470/LPSD    3282/B
   %IOINT           398/XPSD     638-DATA
   %MPINTRP         392/XPSD    3257-DATA    3264/LPSD    3268/MTW     3269/LPSD    3369/LW
   %PRINT           378/XPSD     473-DATA     482/AND*     517/MTW      521/LPSD
   %RPRTMOD         379/XPSD    1217-DATA    1225/AND     1231/AND*    1258/MTW     1259/LPSD
