1 C00   19:57 JUN 20,'83                                                                          PAGE    1
A      1                  2053.000  +2053,2053                                                          *H02
       2                  2053.010           AND,8    4M                                                *H02
       3                  3465.000  +3465,3468                                                          *H02
       4                  3465.010  LIM3     EQU      %                                                 *H02
       5                  3465.020           LI,R5    0                 SUPPRESS LOGIC TEST H           *H02
       6                  9999.999  +END
1 C00   19:57 JUN 20,'83                                                                          PAGE    2
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   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    3
A       1                                     PCC
        2         TEXT               CATALOG  EQU      C'0400'
        3         TEXT               VERSION  EQU      C'H02'
        4                            TITLE    EQU      S:PT('TELEFILE MEMORY DIAGNOSTIC ',;
        5         TEXT                                 '960-',CATALOG,'-',VERSION)

        7                                     SYSTEM   SIG9P

        9                            *  THE COMET WILL AUTOMATICALLY TEST THE MEMORY FOR NORMAL, SLOW & FAST
       10                            *  COMBINATIONS OF THE MEMORY CLOCK-MARGIN SETTINGS, UNLESS
       11                            *  OTHERWISE MODIFIED BY THE OPERATOR (SEE REQUEST CHARACTER J).

       13                            * PROGRAM PREREQUISITES
       14                            * ---------------------
       15                            *                       THE 16K OPERATING AREA OF MEMORY IN WHICH THE
       16                            *                       PROGRAM RESIDES IS ASSUMED TO BE WORKING
       17                            *                       CORRECTLY.      THE PROGRAM CAN BE LOADED AND
       18                            *                       OPERATED IN ANY SEGMENT OF THE MEMORY BELOW
       19                            *                       128K, PROVIDED THE RESIDENT AREA LIES IN A
       20                            *                       BOUNDARY OF 16K.
       21                            *
       22                            *                       IT IS ALSO REQUIRED THAT THE PROGRAM SHOULD BE
       23                            *                       OPARATED IN NON-INTERLEAVE MODE FOR AN INITIAL
       24                            *                       RUN, BEFORE INITIATING ANY INTERLEAVING.
       25                            *
       26                            *
       27                            *               NOTE :  THE MEMORY DOES NOT HAVE TO BE CONTIGUOUS.
       28                            *                       A TOTAL OF THREE GAPS, EACH BEING OF ANY
       29                            *                       MULTIPLE OF 8K CAN BE INJECTED TO THE
       30                            *                       MEMORY BETWEEN THE DEFINED LOWER AND UPPER LIMITS.
       31                            *                       (SEE REQUEST CHARACTER  GAP)
       32                            *
       33                            *
       34                            *
       35                            *
       36                            *
       37                            *
       38                            * RUN TIME
       39                            * --------              THE PROGRAM WILL REQUIRE APPROXIMATELY 1 MIN
       40                            *                       AND 20 SECONDS FOR EACH 8K OF THE IMPLEMENTED
       41                            *                       MEMORY TO EXECUTE ONE SUCCESSFUL PASS.
       42                            *                       (LOGIC TEST "D" OMITTED.)

       44                            * OPERATING PROCEDURES:
       45                            * --------------------
       46                            *
       47                            *
       48                            * PROGRAM RELOCATION
       49                            * ******************    IF COMET IS TO RESIDE AND OPERATE IN AN AREA
       50                            *                       OF THE MEMORY OTHER THAN THE FIRST 16K,
       51                            *                       OR IF THE BASE ADDRESS OF THE RESIDENT
       52                            *                       LOADER IS TO BE ALTERED , PROCEED AS DESCRIBED
       53                            *                       IN THE LOADER MANUAL.
       54                            *
       55                            *                       NOTE: THE PROGRAM RELOCATION BIAS MUST
       56                            *                       BE ON A 16K WORD BOUNDARY.
       57                            *
       58                            *
       59                            * PROGRAM CONTROL
       60                            * ***************
       61                            *
       62                            *  THIS PROGRAM OPERATES UNDER THE CONTROL OF THE STANDARD GUIDE
       63                            *  PROGRAM.    IN ADDITION TO THE CONTROL AND REQUEST CHARACTERS
       64                            *  OF THE GUIDE, NEW USER REQUEST/DEFINITION CHARACTERS HAS BEEN
       65                            *  SUPPLEMENTED IN ORDER TO FACILITATE FLEXIBILITY OF THE PROGRAM
       66                            *  UNDER DIFFERENT ENVIRONMENTS.
       67                            *
       68                            *  THE FUNCTION OF THE REQUEST OR DEFINITION CHARACTERS EXCLUSIVE
       69                            *  TO THE COMET ARE AS LISTED BELOW:-

       71                            * ... &    CAUSES OUTPUT OF THE CURRENT TESTING STATUS OF COMET.
       72                            *          WHEN THIS CHARACTER IS ENTERED AT ANY TIME OF PROGRAM RUN
       73                            *          THE PASS #, TESTS SELECTED, CLOCK MARGINS AND TEST
       74                            *          IN PROGRESS WILL BE PRINTED OUT.

       76                            *... DS    CAUSES DISPLAY OF THE STATUS OF THE MEMORY DEFINED AS
       77                            *          BELOW.  TWO COMMA,,S ARE REQUIRED TO EXECUTE THE
       78                            *          FUNCTION:
       79                            *
       80                            *          DS>,,          CAUSES A DISPLAY OF THE STATUS OF ALL THE
       81                            *                         MEMORY.
       82                            *          DS>XXXX,YYYY,  CAUSES A DISPLAY OF MEMORY STATUS BETWEEN
       83                            *                         XXXX AND YYYY (FOR YYYY>XXXX)
       84                            *                         OR OF YYYY LOCATION STARTING AT XXXX
       85                            *                         (FOR XXXX>YYYY)
       86                            *          DS>XXXX,,      CAUSES DISPLAY OF THE STATUS OF XXXX
       87                            *                         LOCATION ONLY.
       88                            *                         XXXX AND YYYY REPRESENT HEX.  LOCATIONS
       89                            *                         BETWEEN 10 AND 3FFFFF(MAX.),  OR YYYY MAY
       90                            *                         BE A HEX. VALUE BETWEEN 1 AND XXXX.
       91                            *
       92                            *
       93                            *           THE MEMORY STATUS WORDS ARE DISPLAYED WITH THE FOLLOWING
       94                            *           HEADER DEFINITIONS:
       95                            *
       96                            * TSTADR    B#  P#  IL  BS  U#  US  CM01 CM23 CM4 VM  INTADR HOF
       97                            * -------   -B  -D  --  -K  -D  -K  ---- ---- --- --  ------ ---
       98                            * 000000    00  00  00  00  00  00   N    N    N   N  000000 ***
       99                            *
      100                            *
      101                            *        TSTADR = ADDRESS BEING ACCESSED
      102                            *
      103                            *           B#  = BANK NUMBER (BINARY)
      104                            *           P#  = PORT NUMBER  (DECIMAL)
      105                            *           IL  = INTERLEAVE MODE (00 = NO INTERLEAVE)
      106                            *           BS  = BANK SIZE  (K; K = 1024 WORDS)
      107                            *           U#  = UNIT NUMBER (DECIMAL)
      108                            *           US  = UNIT SIZE  (K; K = 1024 WORDS)
      109                            *
      110                            *           CM01, CM23, CM4 = ACTUAL CLOCK MARGINS
      111                            *
      112                            *           VM = VOLTAGE MARGIN (N = NORMAL, AB = ABNORMAL)
      113                            *
      114                            *           INTADR = INTERLEAVED ADDRESS
      115                            *
      116                            *           HOF = FLAGS IF HALT-ON-FAULT IS SET (MOS)

      118                            *... GAP   WILL AUTOMATICALLY DETECT UP TO 3 MEMORY GAPS AND
      119                            *          ALLOWS USER TO INTRODUCE GAPS WITHIN THE MEMORY TEST LIMITS.
      120                            *          A TOTAL OF THREE GAPS EACH BEING A MULTIPLE OF 8K CAN BE
      121                            *          INJECTED BETWEEN THE LOWER AND THE UPPER TEST LIMITS.
      122                            *
      123                            *
      124                            *          **THE PARAMETER LINE IS DISPLAYED AS BELOW:
      125                            *
      126                            *            GAP1LO  GAP1HI  GAP2LO  GAP2HI  GAP3LO  GAP3HI
      127                            *            000000  000000  000000  000000  000000  000000
      128                            *
      129                            *
      130                            *       GAP1LO, GAP2LO, GAP3LO = LOWER LIMITS OF 1ST,2ND & 3RD GAP
      131                            *       GAP1HI, GAP2HI, GAP3HI = UPPER LIMITS OF THE GAPS (IF ANY)

      133                            *... J     ALLOWS DISPLAY AND MODIFICATION OF DEVICE NUMBERS
      134                            *          AND MEMORY CLOCK MARGIN SETTING CONTROL PARAMETER,
      135                            *          ALSO STATUS OUPUT INTERVAL PARAMETER.
      136                            *
      137                            *         **  PARAMETER LINE J (CONTROL LINE) EXPLANATION:-
      138                            *
      139                            *             MSGDEV COMDEV  SI   CI   CM01 CM23 CM4  MAP
      140                            *            *J 0002 *0001  0001 001    0    A    0    0
      141                            *
      142                            *         MSGDEV          MESSAGE OUTPUT DEVICE NUMBER
      143                            *
      144                            *         COMDEV          COMUNICATION DEVICE NUMBER
      145                            *                         (INPUT FROM AND OUTPUT TO USER
      146                            *
      147                            *         SI              HEX COUNT OF INTERVALS BETWEEN AN AUTOMATIC
      148                            *                         STATUS REPORT OF THE COMET
      149                            *
      150                            *
      151                            *         CI              CLOCK-MARGIN INTERVAL
      152                            *                         THE INTERVAL (PASSES) BETWEEN AUTOMATIC
      153                            *                         CLOCK-MARGIN CHANGES.
      154                            *
      155                            *         CM01,CM23 & CM4   MEMORY CLOCK MARGINS
      156                            *                           (EFFECTIVE FOR ALL BANKS UNDER THE TEST)
      157                            *
      158                            *            PROGRAM CONTROLLED       USER CONTROLLED (FIXED)
      159                            *            ------------------       ---------------
      160                            *            0 = NORMAL ( 00 )          A = NORMAL
      161                            *            1 = SLOW (01 OR LATE)      B = SLOW
      162                            *            2 = FAST (10 OR EARLY)     C = FAST
      163                            *
      164                            *
      165                            *         MAP              MAP CONTROL PARAMETER
      166                            *
      167                            *             0 = TURN OFF THE MAP BIT IN PSD
      168                            *             1 = TURN ON THE MAP BIT IN PSD
      169                            *
      170                            *
      171                            *         NOTE  0:
      172                            *                 THE MAP IS USED TO ACCESS ALL MEMORY > 128K.
      173                            *                 THEREFORE, UNMAPPED MACHINES (SUCH AS THE SIGMA 8)
      174                            *                 ARE UNABLE TO TEST EXTENDED MEMORY WITH COMET.
      175                            *
      176                            *         NOTE  1:
      177                            *                  CM23 WILL DEFAULT TO FIXED NORMAL AND WILL EXCEPT
      178                            *                  ONLY FIXED VALUES FOR INPUT.
      179                            *                  (CM4 WILL ONLY TOGGLE FROM NORMAL TO FAST TO NORMAL.
      180                            *                  CLOCK MARGINS WILL STAY FIXED WHEN SET TO A,B,C.
      181                            *                  WHEN SET 0,1,2 THEY WILL TOGGLE SIMULTANEOUSLY
      182                            *                  FROM THEIR STARTING POSITION.
      183                            *
      184                            *                    EXAMPLE : FROM NNN TO SSF TO FFN ETC OR FROM
      185                            *                    NSN TO SFN TO FNF TO NSF ETC.
      186                            *
      187                            *         NOTE  2:
      188                            *                  CLOCK MARGINS WILL NOT BE TOGGLED IN THE MEMORY
      189                            *                  BANK IN  WHICH THE PROGRAM RESIDES.
      190                            *
      191                            *         NOTE 3:
      192                            *                  THE COMDEV IS FOR INFO. ONLY (UNALTERABLE BY USER)
      193                            *                  AND INITIAL CM VALUES ARE THOSE BELONGING TO
      194                            *                  THE BANK IN WHICH COMET RESIDES.

      196                            *... LI   ALLOWS DISPLAY AND MODIFICATION OF MEMORY LIMITS AND
      197                            *         THE MEMORY SIZE.
      198                            *
      199                            *
      200                            *        ** THE PARAMETER LINE IS DISPLAYED AS BELOW:
      201                            *
      202                            *           LO:LIM  HI:LIM  MEMSIZ  COMETL  COMETH
      203                            *           000000  000000  000000  *00000  *00000
      204                            *
      205                            *
      206                            *        LO:LIM  =  LOWER MEMORY LIMIT OF TEST AREA
      207                            *        HI:LIM  =  UPPER MEMORY LIMIT OF TEST AREA
      208                            *        MEMSIZ  =  MEMORY SIZE
      209                            *        COMETL  =  LOWER LIMIT OF COMET RESIDENT AREA
      210                            *        COMETH  =  UPPER LIMIT OF COMET RESIDENT AREA
      211                            *
      212                            *          NOTE: THE AREA OF MEMORY IN WHICH COMET RESIDES
      213                            *                IS NOT TESTED.
      214                            *
      215                            *
      216                            *... P     ALLOWS DISPLAY AND MODIFICATION OF THE
      217                            *          IOP-MS  AND  DIO  ADDRESSES.
      218                            *
      219                            *
      220                            *                       IOP-MS     DIO
      221                            *                       ------     ---
      222                            *                         0005     000
      223                            *
      224                            *         IOP-MS = IOP-MS ADDRESS (BITS 18-23=IOP, 24-31=MS)
      225                            *         DIO = DIO ADDRESS

      227                            *... T    ALLOWS DISPLAY AND MODIFICATION OF TEST SELECTIONS
      228                            *
      229                            *
      230                            *        ** THE PARAMETER LINE IS DISPLAYED AS BELOW:
      231                            *
      232                            *        M   LOG. TEST     MAG. TEST    BIT-SLCT    ITRTN#
      233                            *            ABCDEFGHI   123456789ABCD
      234                            *        0   111111111   1111111111111  FFFFFFFF    00000064
      235                            *
      236                            *
      237                            *        M = MAGNETIC TEST EXECUTION CONTROL
      238                            *                0 = EXECUTE THROUGH LOGIC MASK (NO MAGNETICS)
      239                            *                1 = EXECUTE THROUGH BOTH MASKS
      240                            *
      241                            *
      242                            *        ENTRY AT EACH BIT POSITION INDICATES :
      243                            *                0   =  CORRESPONDING  TEST SUPPRESSED
      244                            *                1   =  CORRESPONDING  TEST SELECTED
      245                            *
      246                            *        LOGIC TESTS:
      247                            *                A   =  DATA PATH (INCLUDING PARTIAL WRITE)
      248                            *                B   =  PARITY TRAP AND INTERRUPT LOGIC
      249                            *                C   =  ADDRESSING
      250                            *                D   =  PARITY (MAY BE OMITTED)
      251                            *                E   =  ADDRESS-LINE TOGGLE
      252                            *                F   =  RANDOM DATA
      253                            *                G   =  RANDOM ADDRESSING
      254                            *                H   =  PORT CONFLICT
      255                            *
      256                            *        MAGNETIC TESTS:
      257                            *                1   =  ONES DISCRIMINATION - DATA
      258                            *                2   =  ZERO DISCRIMINATION - DATA
      259                            *                3   =  FAST DELTA WEAK ONES - DATA
      260                            *                4   =  FAST DELTA STRONG ZEROS - DATA
      261                            *                5   =  MAXIMUM DELTA WEAKEST ONES - DATA
      262                            *                6   =  MAXIMUM DELTA STRONGEST ZEROS - DATA
      263                            *                7   =  ONES DISCRIMINATION - PARITY
      264                            *                8   =  ZERO DISCRIMINATION - PARITY
      265                            *                9   =  FAST DELTA WEAK ONES - PARITY
      266                            *                A   =  FAST DELTA STRONG ZEROS - PARITY
      267                            *                B   =  MAXIMUM DELTA WEAKEST ONES - PARITY
      268                            *                C   =  MAXIMUM DELTA STRONGEST ZEROS - PARITY
      269                            *                D   =  EARLY PEAKING CORES
      270                            *
      271                            *        BIT-SLCT = MAG. TEST BIT SELECTION (WORD GIVEN IN HEX)
      272                            *                0 = BIT POSITION NOT TESTED
      273                            *                1 = BIT POSITION TESTED
      274                            *
      275                            *        ITRTN#   = ITERATIONS FOR MAGNETIC TEST 'D'
      276                            *                   AND LOGIC TEST 'E'

      278                            * SUCCESS INDICATION:
      279                            * ******************       IF NO ERRORS ARE DETECTED BY THE
      280                            *                          COMET WHILE EXECUTING THE TEST ROUTINES,
      281                            *                          IT WILL PRINT OUT SUCCESS MESSAGES AT
      282                            *                          THE CONCLUTION OF EACH SELECTED
      283                            *                          TEST DURING PASS #1 ONLY.
      284                            *
      285                            *                          NOTE: ABSOLUTE RECOVERY AND 'T'
      286                            *                          PARAMETER LINE WILL RESET PASS #.
      287                            *
      288                            *                          THE PROGRAM WILL CYCLE CONTINUOUSLY,
      289                            *                          BEGINNING EACH CYCLE WITH A DIFFERENT
      290                            *                          COMBINATION OF MEMORY CLOCK MARGIN
      291                            *                          SETTING AS DEFINED BY THE REQUEST -
      292                            *                          CHARACTER  "J".   (COMET WILL TEST ALL THE
      293                            *                          COMBINATIONS UNLESS FIXED BY THE OPERATOR).
      294                            *
      295                            *                          A PASS NUMBER AND THE SELECTED TESTS AND
      296                            *                          CLOCK MARGINS WILL BE PRINTED OUT
      297                            *                          DURING PASS #1 AND THEREAFTER UNDER
      298                            *                          CONTROL OF THE 'SI' PARAMETER IN THE
      299                            *                          'J' PARAMETER LINE.
      300                            *
      301                            *
      302                            *
      303                            * ERROR INDICATION:
      304                            * ****************         UPON DETECTION OF ERROR OF ANY KIND,
      305                            *                          COMET WILL RESPOND TO THE SETTING OF SS3
      306                            *                          (SOFT-WARE SWITH-3, SEE REQST CHARCT.  S)
      307                            *                          AND WILL ATTEMPT TO LOCATE THE ERROR.
      308                            *                          IT WILL PRINT OUT THE TYPE AND THE SOURCE
      309                            *                          OF THE FAULT,   TOGETHER WITH THE STATUS
      310                            *                          OF THE MEMORY BANK RELATING TO THE FIRST
      311                            *                          LOCATION AT WHICH THE ERROR WAS DETECTED.
      312                            *
      313                            * ERROR STATUS:
      314                            * -------------
      315                            *        ERROR STATUS INFORMATION IS DISPLAYED IN THE FOLLOWING
      316                            *        FORMAT :
      317                            *
      318                            *  ERROR IN LOG./MAG. TEST  A
      319                            *  RECEIVED EXPECTED XC   SWITCHES           FAULTS
      320                            *    DATA     DATA   YV YC YV A YV XC  XV  012345678SL
      321                            *  00000000 00000000  0 000 0 0 0 000 0000 00000000000
      322                            *
      323                            *   STAT. TEST     CM
      324                            *    ADR   ADR  01 23 4
      325                            *   00000 00000 N  N  N
      326                            *
      327                            *          FAULT-TYPE ( 1 IN A BIT POSITION INDICATES AN ERROR)
      328                            *               BIT- 0 = ALWAYS ZERO FOR CORE
      329                            *               BIT- 1 = UNCORRECTABLE PARITY ERROR ON READ.
      330                            *               BIT- 2 = UNCORRECTABLE PARITY ERROR ON WRITE PARTIAL
      331                            *               BIT- 3 = ADDRESS PARITY
      332                            *               BIT- 4 = DATA IN ERROR
      333                            *               BIT- 5 = LOOP CHECK ERROR
      334                            *               BIT- 6 = PORT SELECTION ERROR
      335                            *               BIT- 7 = BMU TEMP. OR VOLTAGE FAILURE
      336                            *               BIT- 8 = C.C. WITH  OM  UNDEFINED
      337                            *
      338                            *           S   = SUBSEQUENT FAULT
      339                            *           L   =  LAST PARITY WRITTEN
      340                            *
      341                            *        STAT.ADR = STARTING ADDRESS OF SAVE LOCATIONS
      342                            *         FOR STATUS WORDS 0, 1, AND 2
      343                            *
      344                            *        TEST ADR = ADDRESS CURRENTLY BEING TESTED
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    4
A     346                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      347                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      348                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      349                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      350                            *        IN THE MACHINE WORD.
      351                            *
      352                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      353                            *
      354                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      355                            *
      356                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      357                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      358                            *                  EXECUTION LOCATION COUNTER;
      359                            *
      360                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      361                            *
      362                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      363                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      364                            *                  'EBCDIC'.
      365                            *
      366         00000000           #HTECON  CNAME
      367                                     PROC
      368                            *
      369                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      370                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      371                            *
      372                                     ERROR,0,NUM(AF)~=1 ;
      373                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      374                            *
      375                            *
      376                            LF       BAL,X6     *#HTE%
      377                                     GEN,10,22  0,AF(1)
      378                            *
      379                                     PEND
      380                            *
      381                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      382                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      383                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      384                            *
      385                            *        RETURN IS TO THE PROCEDURE REFERENCE
      386                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      387                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      388                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      389                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      390                            *        OF THE LOAD MULTIPLE INSTRUCTION.

      392                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      393                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      394                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      395                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      396                            *        IF THE CHARACTER STRING TO BE CONVERTED
      397                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      398                            *        THE REGISTERS USED MUST NOT
      399                            *        INCLUDE THE LINK REGISTER.
      400                            *
      401                            *
      402                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      403                            *
      404                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      405                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      406                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      407                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      408                            *                          ( MUST BE BETWEEN 0 AND 3 )
      409                            *
      410         00000000           #ETHCON  CNAME
      411                                     PROC
      412                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      413                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      414                            *
      415                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      416                            A        SET      0
      417                            *
      418                            *
      419                                     ERROR,0,A~=CF(2) ;
      420                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      421                            *
      422                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      423                            *
      424                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      425                            B        SET      0
      426                            *
      427                            *
      428                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      429                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      430                            *
      431                            *
      432                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      433                             (AF(1)=X3))     ;
      434                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      435                            *
      436                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      437                            *
      438                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      439                             |(AF(3)=X3))&NUM(AF)>2
      440                            *
      441                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      442                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      443                            *
      444                            E        SET      C|D               'OR' THE RESULTS
      445                            LF       RES      0
      446                                     BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      447                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      448                            *
      449                                     GEN,8,22,2  A,AF(1),B
      450                            *
      451                                     ELSE                       RELOCATABLE ADDRESS
      452                            *
      453                                     GEN,8,24     A,BA(AF(1))+B
      454                            *
      455                                     FIN
      456                            *
      457                                     PEND

      459         00000002           #PRINTD  CNAME    2,#PRINTER%
      460         00000001           #TYPED   CNAME    1,#TYPER%
      461                                     PROC
      462                            *
      463                            *
      464                                     LOCAL    A
      465                            *
      466                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      467                             '**CF(2) MUST BE POSITIVE INTEGER**'
      468                            *
      469                                     ERROR,0,NUM(CF)>3 ;
      470                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      471                            *
      472                                     ERROR,0,NUM(AF)>NAME(1) ;
      473                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      474                            *
      475                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      476                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      477                            *
      478                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      479                            *
      480                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      481                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      482                            *
      483                                     ERROR,0,A=0  ;
      484                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      485                            *
      486                                     ELSE
      487                            *
      488                            A        SET      0
      489                            *
      490                                     FIN
      491                            *
      492                            *
      493                            *
      494                            *
      495                            LF       RES      0
      496                                     BAL,X6   *NAME(2)
      497                            *
      498                            *
      499                                     DO       NUM(CF)=1&NAME(1)=1
      500                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      501                                     ELSE
      502                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      503                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      504                                     ELSE
      505                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      506                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      507                                     ELSE
      508                                     DO       NUM(CF)=2&CF(2)>0
      509                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      510                                     ELSE
      511                                     DO       NUM(CF)=2&CF(2)=0
      512                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      513                                     ELSE
      514                                     DO       NUM(CF)>2&CF(2)>0
      515                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      516                                     ELSE
      517                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      518                                     FIN
      519                                     FIN
      520                                     FIN
      521                                     FIN
      522                                     FIN
      523                                     FIN
      524                                     PEND

      526         00000002           #PRINT   CNAME    2,#PRINTER%
      527         00000001           #TYPE    CNAME    1,#TYPER%
      528                                     PROC
      529                            *
      530                            *
      531                                     LOCAL    A
      532                            *
      533                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      534                             '**CF(2) MUST BE POSITIVE INTEGER**'
      535                            *
      536                                     ERROR,0,NUM(CF)>3 ;
      537                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      538                            *
      539                                     ERROR,0,NUM(AF)>NAME(1) ;
      540                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      541                            *
      542                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      543                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      544                            *
      545                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      546                            *
      547                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      548                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      549                            *
      550                                     ERROR,0,A=0  ;
      551                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      552                            *
      553                                     ELSE
      554                            *
      555                            A        SET      0
      556                            *
      557                                     FIN
      558                                     SPACE
      559                            LF       BAL,X6   *#DISUSER%
      560                                     BAL,X6   *NAME(2)
      561                            *
      562                            *
      563                                     DO       NUM(CF)=1&NAME(1)=1
      564                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      565                                     ELSE
      566                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      567                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      568                                     ELSE
      569                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      570                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      571                                     ELSE
      572                                     DO       NUM(CF)=2&CF(2)>0
      573                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      574                                     ELSE
      575                                     DO       NUM(CF)=2&CF(2)=0
      576                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      577                                     ELSE
      578                                     DO       NUM(CF)>2&CF(2)>0
      579                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      580                                     ELSE
      581                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      582                                     FIN
      583                                     FIN
      584                                     FIN
      585                                     FIN
      586                                     FIN
      587                                     FIN
      588                            *
      589                                     BAL,X6   *#ENUSER%
      590                            *
      591                                     PEND

      593         000000C0           C0       EQU      X'C0'
      594         000000C1           C1       EQU      X'C1'
      595         000000C2           C2       EQU      X'C2'
      596         000000C3           C3       EQU      X'C3'
      597         000000C4           C4       EQU      X'C4'
      598         000000C5           C5       EQU      X'C5'
      599         000000C6           C6       EQU      X'C6'
      600         000000C7           C7       EQU      X'C7'
      601         000000C8           C8       EQU      X'C8'
      602         000000C9           C9       EQU      X'C9'
      603         000000CA           CA       EQU      X'CA'
      604         000000CB           CB       EQU      X'CB'
      605         000000CC           CC       EQU      X'CC'
      606         000000CD           CD       EQU      X'CD'
      607         000000CE           CE       EQU      X'CE'
      608         000000CF           CF       EQU      X'CF'
      609         000000F0           F0       EQU      X'F0'
      610         000000F1           F1       EQU      X'F1'
      611                            *
      612                            *
      613         00000000           TEXTCS   CNAME
      614                                     PROC
      615                                     DISP     %
      616                                     LIST     0
      617                            LF       TEXTC    AF
      618                                     LIST     1
      619                                     PEND

      621         00000000           #ABSZERO   EQU    0
      622                            *
      623   01 00392                 #TABLE1A   ORG    X'392'          THIS TABLE IS USED BY THE USER
            01 00392
      624         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      625         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      626         01 00394           #LOADFLAG  EQU    %+2
      627         01 00395           #MTLFLAG   EQU    %+3
      628         01 00396           #TOADDR    EQU    %+4
      629         01 00397           #PRTADDR   EQU    %+5
      630         01 00399           #OUTPTR    EQU    %+7
      631         01 0039A           #PAKDEX    EQU    %+8
      632         01 0039B           #INDEX     EQU    %+9
      633         01 0039C           #PARAM%H1  EQU    %+10
      634         01 0039D           #PARAM%H2  EQU    %+11
      635         01 0039E           #PARAM%H3  EQU    %+12
      636         01 0039F           #PARAM%H4  EQU    %+13
      637         01 003A0           #TESTINIT  EQU    %+14
      638         01 003A1           #STATUS    EQU    %+15
      639         01 003A2           #PARAM1    EQU    %+16
      640         01 003A4           #PARAM2    EQU    %+18
      641         01 003A6           #PARAM3    EQU    %+20
      642         01 003A8           #PARAM4    EQU    %+22
      643         01 003AA           #MAXMEM    EQU    %+24
      644         01 003AB           #SAMPLE    EQU    %+25
      645         01 003AC           #BRKOUT    EQU    %+26
      646         01 003AD           #DM%START  EQU    %+27
      647         01 003AE           #DM%END    EQU    %+28
      648         01 003AF           #TRAPLINK  EQU    %+29

      650   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      651         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      652         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      653         01 003C4           #BTE%      EQU    %+2
      654         01 003C5           #DISUSER%  EQU    %+3
      655         01 003C6           #ENUSER%   EQU    %+4
      656         01 003C7           #ARMUSER   EQU    %+5
      657         01 003C8           #GUIDE%    EQU    %+6
      658         01 003C9           #FIDLE%    EQU    %+7
      659         01 003CA           #RUNADDR%  EQU    %+8
      660         01 003CB           #RETURN%   EQU    %+9
      661         01 003CC           #TYPER%    EQU    %+10
      662         01 003CD           #PRINTER%  EQU    %+11
      663         01 003CE           #ERRTEXT%  EQU    %+12
      664         01 003D0           #ERR1PTR%  EQU    %+14
      665         01 003D2           #VALTAB%   EQU    %+16
      666         01 003D3           #DMENTRY%  EQU    %+17
      667         01 003D4           #P%MODE%   EQU    %+18
      668         01 003D5           #GUIDEBUF% EQU     %+19
      669         01 003D8           #COCSTAT%  EQU    %+22
      670                            *
      671                            *
      672                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      673                            *
      674   01 003E5                          ORG      X'3E5'
            01 003E5
      675                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      676   01 003E5    00       A   VALBIT   DATA,1   0                      (1 BYTE EACH)
      677                            *
      678   01 003E7                          ORG      X'3E7'
            01 003E7
      679                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      680         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      681   01 003E7    00       A            DATA,1   0
      682                            *
      683   01 003EC                          ORG      X'3EC'
            01 003EC
      684         01 003EC           VALTYPE  EQU      %
      685                            *
      686   01 003EC    00000000 A            GEN,8,24  0

      688   01 003F0                 DCA        ORG    X'3F0'
            01 003F0
      689   01 003F0    00000000 A            DATA     0,0,0,0,0,0
            01 003F1    00000000 A
            01 003F2    00000000 A
            01 003F3    00000000 A
            01 003F4    00000000 A
            01 003F5    00000000 A

      691   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      692   01 01000    00001024     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      693   01 01001    00002E2C     #TABLE3@   DATA   TABLE3
      694   01 01002    000018B7     #PLINEIN@  DATA   PLINEIN
      695   01 01003    20000000 A   #DIAG@   DATA     X'20000000'
      696   01 01004    00000000 A   #LOADER@ DATA     0
      697   01 01005    00000000 A   #OUTBUF@ DATA     0
      698   01 01006    00000000 A   #ONLINE@ DATA      0

      700         00000000           R0         EQU    0
      701         00000001           R1         EQU    1
      702         00000001           X1         EQU    1
      703         00000002           R2         EQU    2
      704         00000002           X2         EQU    2
      705         00000003           R3         EQU    3
      706         00000003           X3         EQU    3
      707         00000004           R4         EQU    4
      708         00000004           X4         EQU    4
      709         00000005           R5         EQU    5
      710         00000005           X5         EQU    5
      711         00000006           R6         EQU    6
      712         00000006           X6         EQU    6
      713         00000006           LINK       EQU    6
      714         00000007           R7         EQU    7
      715         00000007           X7         EQU    7
      716         00000008           R8         EQU    8
      717         00000009           R9         EQU    9
      718         0000000A           R10        EQU    10
      719         0000000B           R11        EQU    11
      720         0000000C           R12        EQU    12
      721         0000000D           R13        EQU    13
      722         0000000E           R14        EQU    14
      723         0000000F           R15        EQU    15
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    5
A     725   01 01010                          ORG      X'1010'
            01 01010
      726   01 01010                 TI%REGS  RES      16
      727   01 01020    00000000 A   SIG8FLG  DATA     0                 -1 IMPLIES SIGMA 8 (NO MAP)
      728   01 01021    00000000 A   SIG7FLG  DATA     0                 -1 IMPLIES SIGMA 7
      729   01 01022    00000400 A   MFIRBIT  DATA     X'400'            REGISTER BIT FOR MFI

      731                                     BOUND    8
      732         01 01024           INITIAL  EQU      %
      733   01 01024    35601932              STW,LINK GUIDRET

      735   01 01025    22800060 A            LI,8     X'60'
      736   01 01026    6D801100 A            WD,8     X'1100'           DISARM COUNTER 4

      738                            * THE FOLLOWING DETERMINES THE MACHINE TYPE
      739                            * (SET MFI PARAMETERS FOR SIGMA 7)

      741   01 01027    22800000 A            LI,8     0                 CLEAR MACHINE FLAGS
      742   01 01028    35801020              STW,8    SIG8FLG
      743   01 01029    35801021              STW,8    SIG7FLG

      745   01 0102A    22800400 A            LI,8     X'400'            SET MFI REGISTER BIT
      746   01 0102B    35801022              STW,8    MFIRBIT

      748   01 0102C    6C000000 A            RD,0     0                 READ SWITCHES

      750   01 0102D    7400000E A            STCF     14                ISOLATE
      751   01 0102E    4BE01949              AND,14   HF0000000          AND SAVE
      752   01 0102F    48E01949              EOR,14   HF0000000           INVERTED CONDITIONS

      754   01 01030    22800000 A            LI,8     0                 CLEAR TEST REGISTER
      755   01 01031    7030000E A            LCF      14                 PRESET CONDITIONS

      757   01 01032    6C800045 A            RD,8     X'45'             READ INTERNAL CONTROLS

      759   01 01033    7400000F A            STCF     15                SAVE AND ISOLATE
      760   01 01034    4BF01949              AND,15   HF0000000          CONDITIONS

      762   01 01035    4B8019B7              AND,8    H200000           LOOK FOR SIGMA 8
      763   01 01036    6830103A              BEZ      SIG0               SKIP IF 9 OR 7

      765   01 01037    228FFFFF A            LI,8     -1                ELSE SET SIGMA 8 FLAG
      766   01 01038    35801020              STW,8    SIG8FLG

      768   01 01039    68001048              B        SIG1

      770   01 0103A    31F0000E A   SIG0     CW,15    14                SIGMA 9 LEAVES
      771   01 0103B    68301048              BE       SIG1               CONDITIONS UNTOUCHED

      773   01 0103C    32F019C1              LW,15    TRP57             ELSE SET SIGMA 5/7
      774   01 0103D    35F00056 A            STW,15   #ABSZERO+X'56'     CONDITIONS AND PARAMETERS

      776   01 0103E    22F00800 A            LI,15    X'800'
      777   01 0103F    35F01022              STW,15   MFIRBIT

      779   01 01040    228FFFFF A            LI,8     -1                SET SIGMA-7 FLAG
      780   01 01041    35801021              STW,8    SIG7FLG            IMPLIES NO (4C/4D/57)

      782   01 01042    0E0010B4              LPSD,0   SIG7A             ATTEMPT TO SET MA
      783   01 01043    0F0010B6     SIG2     XPSD,0   SIG7B              SAVE MA AND CLEAR

      785   01 01044    320010B7     SIG3     LW,0     SIG7B+1           CHECK FOR PREVIOUS MA
      786   01 01045    4B001946              AND,0    H800000            AND SKIP IF IT WAS TRUE
      787   01 01046    69301048              BNEZ     SIG1                ELSE SET SIGMA-8 (NO MAP)

      789   01 01047    35801020              STW,8    SIG8FLG


      792         01 01048           SIG1     EQU      %
      793   01 01048    228000F0 A            LI,8     '0'               ZERO FOR PRINTING
      794   01 01049    358019C4              STW,8    TSTON             INITIALIZE CURRENT
      795   01 0104A    22800000 A            LI,8     0
      796   01 0104B    358018EA              STW,8    INTRPFLG          RESET INTRPT. FLAG
      797   01 0104C    358021CF              STW,8    MTST#               TEST IN PROGRESS

      799   01 0104D    22300021 A            LI,3     ABSINTEND-ABSINT
      800   01 0104E    3586194A              STW,8    ABSINT,3          INITIALIZE FLAGS
      801   01 0104F    6430104E              BDR,3    %-1
      802                            *
      803   01 01050    32800397              LW,8     #PRTADDR
      804   01 01051    6AF01686              BAL,15   EBCDIC
      805   01 01052    3590122F              STW,9    PLINE#JR+1
      806                            *
      807   01 01053    32800396              LW,8     #TOADDR
      808   01 01054    6AF01686              BAL,15   EBCDIC
      809   01 01055    25800110 A            SLD,8    16
      810   01 01056    3270193B              LW,7     HB5C
      811   01 01057    55700008 A            STH,7    8                 FORCE BLANK AND*
      812   01 01058    35801230              STW,8    PLINE#JR+2        SET UP FIRST TWO DIGITS
      813   01 01059    499019A9              OR,9     H4040
      814   01 0105A    35901231              STW,9    PLINE#JR+3        SET UP LAST TWO DIGITS OF TTY
      815                            *
      816   01 0105B    128019BC              LD,8     TRP40
      817   01 0105C    15800040 A            STD,8    #ABSZERO+X'40'    INITIALIZE TRAP LOC.
      818   01 0105D    328019C1              LW,8     TRP57
      819   01 0105E    35800057 A            STW,8    #ABSZERO+X'57'
      820   01 0105F    128019BE              LD,8     TRP4C
      821   01 01060    1580004C A            STD,8    #ABSZERO+X'4C'
      822   01 01061    328019C0              LW,8     TRP46
      823   01 01062    35800046 A            STW,8    #ABSZERO+X'46'
      824                            *
      825   01 01063    22501063              LI,5     %
      826   01 01064    22401064              LI,4     %                 GET CURRENT ADDRESS
      827   01 01065    4B4019A3              AND,4    H1E000
      828   01 01066    35401933              STW,4    RBIAS
      829   01 01067    32800004 A            LW,8     4
      830                            *
      831   01 01068    6AF01686              BAL,15   EBCDIC            CONVERT
      832   01 01069    4B8019B2              AND,8    HFF
      833   01 0106A    498019AA              OR,8     H40405C00
      834   01 0106B    35802B4E              STW,8    %LOUT+7           STORE COMET LOW LIMIT
      835   01 0106C    35902B4F              STW,9    %LOUT+8            IN MSG
      836                            *
      837   01 0106D    32800004 A            LW,8     4
      838   01 0106E    498019AF              OR,8     H3FFF             SET HI-LIMIT OF COMET RES. AREA
      839   01 0106F    6AF01686              BAL,15   EBCDIC
      840   01 01070    4B8019B2              AND,8    HFF               MASK
      841   01 01071    498019AA              OR,8     H40405C00         BLANKS AND *
      842   01 01072    35802B50              STW,8    %LOUT+9           STORE COMET HIGH LIMIT
      843   01 01073    35902B51              STW,9    %LOUT+10           IN MSG
      844   01 01074    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REG'S

      846   01 01075    22800000 A            LI,8     0                 SET PRINT ON TEST
      847   01 01076    3580194A              STW,8    PPASS#             COMPLETE FLAG

      849   01 01077    33000394              MTW,0    #LOADFLAG         LOAD CONDITION
      850   01 01078    693010B2              BNEZ     INTLOK

      852   01 01079    22800000 A            LI,8     0                 YES,
      853   01 0107A    6AF01780              BAL,15   MAPCNTRL          RESET MAP IF SIG. 8

      855   01 0107B    228FFFFF A            LI,8     -1
      856   01 0107C    358021C4              STW,8    BITMASK
      857   01 0107D    35801967              STW,8    VMFLG             RESET VOLT. MARGIN FLAG
      858   01 0107E    4B801997              AND,8    H7FFC0000
      859   01 0107F    358021D2              STW,8    TSWRD             INITIALIZE MAGNETIC SELECTION
      860   01 01080    32601933              LW,6     RBIAS             WAS PROGRAM RELOCATED
      861   01 01081    68301083              BCR,3    %+2
      862   01 01082    22100140 A            LI,1     X'140'            SKIP RES.LOCS
      863   01 01083    356018F0              STW,6    RESLOW            STORE LOW LIMIT OF RESIDENT AREA
      864   01 01084    30601992              AW,6     RBLOCK            ADD PROG. SIZE
      865   01 01085    206FFFFF A            AI,6     -1                -1
      866   01 01086    356018F1              STW,6    RESHI             STORE HI LIMIT
      867                            *
      868   01 01087    227FFFFA A            LI,7     -6
      869   01 01088    22800000 A            LI,8     0
      870   01 01089    358E1982              STW,8    H1LO+6,7          INIT. GAP LIMITS
      871   01 0108A    65701089              BIR,7    %-1
      872                            *
      873   01 0108B    7270119B              LB,7     %GOUTRST
      874   01 0108C    728E119B              LB,8     %GOUTRST,7
      875   01 0108D    758E2A37              STB,8    %GOUT,7           INITIALIZE A LINE
      876   01 0108E    6470108C              BDR,7    %-2               CONTINUE IF NOT DONE
      877                            *
      878   01 0108F    22800040 A            LI,8     64
      879   01 01090    358021C9              STW,8    ITRATE#           INITIALIZE MAGN. TST#13 ITERATION NO.
      880                            *
      881   01 01091    727012CE              LB,7     %AOUTRST
      882   01 01092    728E12CE              LB,8     %AOUTRST,7
      883   01 01093    758E2BDC              STB,8    %AOUT,7           INITIALIZE A LINE
      884   01 01094    64701092              BDR,7    %-2               CONTINUE IF NOT DONE
      885                            *
      886   01 01095    7270122E              LB,7     PLINE#JR
      887   01 01096    728E122E              LB,8     PLINE#JR,7
      888   01 01097    758E2A77              STB,8    PLINE#J,7
      889   01 01098    64701096              BDR,7    %-2
      890                            *
      891   01 01099    22800010 A            LI,8     X'10'
      892   01 0109A    35801209              STW,8    CM2
      893   01 0109B    22800000 A            LI,8     0
      894   01 0109C    35801208              STW,8    CM1
      895   01 0109D    3580120A              STW,8    CM3
      896   01 0109E    3580193F              STW,8    GAPFLG            RESET GAP FLAG
      897   01 0109F    35801B8A              STW,8    PASS#
      898   01 010A0    35801B8B              STW,8    CPASS#

      900   01 010A1    72701277              LB,7     %POUTRST          INITIALIZE P-PARAM LINE
      901   01 010A2    728E1277              LB,8     %POUTRST,7
      902   01 010A3    758E1273              STB,8    %POUT,7
      903   01 010A4    647010A2              BDR,7    %-2

      905   01 010A5    22800000 A            LI,8     0                 INITIALIZE MS/DIO ADDRESSES
      906   01 010A6    35801E97              STW,8    DIOADR
      907   01 010A7    22800005 A            LI,8     5
      908   01 010A8    35801E96              STW,8    IOPMSADR

      910   01 010A9    22800001 A            LI,8     1
      911   01 010AA    3580122C              STW,8    CICOUNT           INITIALIZE CM INCR.
      912   01 010AB    358021CE              STW,8    MSW

      914   01 010AC    22800000 A            LI,8     0                 RESET MEMORY TYPE
      915   01 010AD    3580268C              STW,8    MSG56+2            FLAGS IN MESSAGE

      917   01 010AE    12801E14              LD,8     M1T               INITIALIZE RNG
      918   01 010AF    15801E16              STD,8    M1
      919   01 010B0    12801E15              LD,8     SEEDT
      920   01 010B1    15801E18              STD,8    SEED

      922   01 010B2    680019D5     INTLOK   B        START

      924                                     BOUND    8
      925   01 010B4    00001043     SIG7A    DATA     SIG2,X'00810000'
            01 010B5    00810000 A
      926   01 010B6    00000000 A   SIG7B    DATA     0,0
            01 010B7    00000000 A
      927   01 010B8    00001044              DATA     SIG3,X'00000000'
            01 010B9    00000000 A

      929   01 010BA    02200000 A   STATMSG  LCI      0
      930   01 010BB    2B0018CA              STM,0    AMPTEMPS          SAVE REGS.
      931   01 010BC    226FFFF2 A            LI,6     -14
      932   01 010BD    328018A0              LW,8     BLANKS            ZERO OUT
      933   01 010BE    358C1125              STW,8    STATOUT+16,6        STATUS MSG
      934   01 010BF    656010BE              BIR,6    %-1
      935                            *
      936   01 010C0    32801B8A              LW,8     PASS#             STORE CURRENT
      937   01 010C1    6AF01686              BAL,15   EBCDIC              PASS NO.
      938   01 010C2    35901116              STW,9    STATOUT+1             IN MSG
      939                            *
      940   01 010C3    22300002 A            LI,3     2                 SET BYTE INDEX
      941   01 010C4    224FFFF8 A           LI,4      -8                SET TEST SELECT INDEX
      942   01 010C5    225000C0 A            LI,5     X'C0'             GET MASK
      943   01 010C6    326812CB     TSLOOP  LW,6      TS+8,4            GET TEST SELECTED FLAG
      944   01 010C7    683010CA              BCR,3    %+3               B: IF NOT SELECTED
      945   01 010C8    30600005 A            AW,6     5                 FORCE EBCDIC CHAR
      946   01 010C9    75661117              STB,6    STATOUT+2,3       STORE IN MSG
      947   01 010CA    20300001 A            AI,3     1                 INCR BYTE INDEX
      948   01 010CB    20500001 A            AI,5     1                 BUMP EBCDIC CHAR MASK
      949   01 010CC    654010C6              BIR,4    TSLOOP            DO ALL LOG. TESTS

      951   01 010CD    330021CE     STATMT   MTW,0    MSW               SKIP IF NO MAGNETICS
      952   01 010CE    683010DD              BEZ      STMAG

      954   01 010CF    22300001 A            LI,3     1                 SET BYTE INDEX
      955   01 010D0    224FFFF3 A            LI,4     -13               SET TEST SELECT. INDEX
      956   01 010D1    225000F1 A            LI,5     X'F1'             EBCDIC CHAR MASK
      957   01 010D2    326021D5              LW,6     INTSPTR           GET MAG TEST POINTER
      958   01 010D3    2560007F A   STATLP   SLS,6    -1                POSITION POINTER
      959   01 010D4    316021D2              CW,6     TSWRD             COMPARE WITH TEST SELECTION
      960   01 010D5    684010D7              BCR,4    %+2               B: IF NO
      961   01 010D6    7556111A              STB,5    STATOUT+5,3       STORE CHAR IN MSG
      962   01 010D7    20300001 A            AI,3     1                 INCR BYTE INDEX
      963   01 010D8    215000F9 A            CI,5     X'F9'             IS TEST 9 REACHED
      964   01 010D9    693010DB              BCS,3    %+2               B: IF NO
      965   01 010DA    225000C0 A            LI,5     X'C0'             CHANGE CHAR MASK
      966   01 010DB    20500001 A            AI,5     1                 INCR CHAR
      967   01 010DC    654010D3              BIR,4    STATLP            DO ALL MAG. TESTS
      968                            *
      969   01 010DD    22300001 A   STMAG    LI,3     1
      970   01 010DE    224FFFFD A            LI,4     -3
      971   01 010DF    3268120B     GETCM    LW,6     CM1+3,4           GET CLOCK MARGIN SETTING
      972   01 010E0    4B601996              AND,6    HF                TURN FIXED BIT OFF
      973   01 010E1    21600001 A            CI,6     1                 IS IT SLOW
      974   01 010E2    691010E6              BCS,1    NORM              ITS NORM
      975   01 010E3    692010E8              BCS,2    FAST              ITS FAST
      976   01 010E4    227000E2 A            LI,7     'S'               ITS SLOW
      977   01 010E5    680010E9              B        FAST+1
      978   01 010E6    227000D5 A   NORM     LI,7     'N'               GET CHAR N
      979   01 010E7    680010E9              B        FAST+1
      980   01 010E8    227000C6 A   FAST     LI,7     'F'               GET CHAR F
      981   01 010E9    7576111E              STB,7    STATOUT+9,3       STORE IN MSG
      982   01 010EA    20300005 A            AI,3     5                 INCR. BYTE INDEX
      983   01 010EB    654010DF              BIR,4    GETCM             GET NEXT CLOCK MARGIN
      984                            *
      985   01 010EC    22300003 A            LI,3     3                 SET BYTE INDEX
      986   01 010ED    32901945              LW,9     TSTYP+2           NONE SELECTED
      987   01 010EE    326019C4              LW,6     TSTON             GET LOG TEST
      988   01 010EF    683010F8              BCR,3    NONE              NONE SELECTED
      989   01 010F0    32901943              LW,9     TSTYP             LOGIC TEST
      990   01 010F1    216000C9 A            CI,6     'I'               IS MAG TEST RUNNING
      991   01 010F2    693010F7              BCS,3    NONE-1            B: IF LOGIC TEST
      992   01 010F3    32901945              LW,9     TSTYP+2           NONE SELECTED
      993   01 010F4    326021CF              LW,6     MTST#             GET MAG TEST
      994   01 010F5    683010F8              BCR,3    NONE              NONE SELECTED
      995   01 010F6    32901944              LW,9     TSTYP+1           MAG. TEST
      996   01 010F7    75661123              STB,6    STATOUT+14,3      STORE TEST #
      997   01 010F8    35901122     NONE     STW,9    STATOUT+13        STORE TEST TYPE
      998                                     #PRINT   STATHDG           PRINT STATUS TITLE

            01 010F9    EA6003C5
            01 010FA    EA6003CD
            01 010FB    C0004410 A
            01 010FC    EA6003C6
      999                                     #PRINT   STATOUT           PRINT STATUS DATA

            01 010FD    EA6003C5
            01 010FE    EA6003CD
            01 010FF    C0004454 A
            01 01100    EA6003C6
     1000                            *
     1001   01 01101    02200000 A            LCI      0
     1002   01 01102    2A0018CA              LM,0     AMPTEMPS          RESTORE REGS.
     1003   01 01103    E8000006 A            B        *LINK             RETURN
     1004                            *
     1005                            STATHDG  TEXTCS   ;
     1006         01 01104            '  PASS#  LOG TEST   MAG TEST        CM01 CM23 CM4  TEST IN PROGRESS'
     1007                            STATOUT  TEXTCS   ;
     1008         01 01115            '   0001  ABCDEFGH   123456789ABCD   N    N    N    LOG.  A    '
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    6
A    1010   01 01125    22301129     PR%DS    LI,3     %+4
     1011   01 01126    4B3021C5              AND,3    H1FFFF
     1012   01 01127    B53003D4              STW,3     *#P%MODE%        SET FLAG
     1013   01 01128    E80003D3              B        *#DMENTRY%         SET REQUET LIMITS
     1014   01 01129    228FFFFF A            LI,8     -1
     1015   01 0112A    35801969              STW,8    1STPASS           RESET STATUS TITL FLAG
     1016   01 0112B    22800060 A            LI,8     X'60'
     1017   01 0112C    6D801100 A            WD,8     X'1100'           DISARM I/O AND CNT 4 ZERO
     1018   01 0112D    EA6003C3     DMSADR   #HTECON  #DM%START
            01 0112E    000003AD
     1019   01 0112F    328C0000 A            LW,8     0,X6
     1020   01 01130    358027CA              STW,8    BUF
     1021   01 01131    328C0001 A            LW,8     1,X6
     1022   01 01132    358027CB              STW,8    BUF+1
     1023   01 01133    22300740 A            LI,3     X'740'
     1024   01 01134    553027CA              STH,3     BUF
     1025                            *
     1026   01 01135    EA6003C7           BAL,LINK    *#ARMUSER
     1027   01 01136    EA6003CD              #PRINTD  BUF,C1
            01 01137    C1009F28 A
     1028   01 01138    6830114B              BCR,3    DMSBRK
     1029   01 01139    325003AD     DMSTATUS LW,5     #DM%START
     1030   01 0113A    31501982              CW,5     MEMRYSIZ
     1031   01 0113B    6920114B              BCS,2    DMSBRK
     1032   01 0113C    3310195B              MTW,1    MCALFLG
     1033   01 0113D    22300001 A            LI,3     1
     1034   01 0113E    3530196A              STW,3    DSFLAG            SET DS FLAG
     1035   01 0113F    6AF01430              BAL,15   MEMSTAT
     1036   01 01140    68001141              B        %+1
     1037   01 01141    22300000 A            LI,3     0
     1038   01 01142    3530196A              STW,3    DSFLAG            RESET DS FLAG
     1039   01 01143    323003AD              LW,3     #DM%START
     1040   01 01144    313003AE              CW,3     #DM%END           ALL DONE
     1041   01 01145    6830114B              BCR,3    DMSBRK            YES
     1042                            *
     1043   01 01146    331003AD              MTW,1    #DM%START         DO NEXT ADDRS
     1044   01 01147    4B301996              AND,3            HF
     1045   01 01148    2130000F A            CI,3     15
     1046   01 01149    6830112D              BCR,3    DMSADR
     1047   01 0114A    68001139              B        DMSTATUS
     1048                            *
     1049   01 0114B    22300015 A   DMSBRK   LI,3     X'15'
     1050   01 0114C    753027B6              STB,3     STSBUFF
     1051                            *
     1052   01 0114D    22300000 A            LI,3     0
     1053   01 0114E    B53003D4              STW,3     *#P%MODE%        RESET FLAG
     1054   01 0114F    6D000037 A            WD,0     X'37'             SET INHIBITS
     1055   01 01150    22800060 A            LI,8     X'60'
     1056   01 01151    6D801200 A            WD,8     X'1200'           ARM I/O AND CNT 4 ZERO
     1057   01 01152    02200040 A            LCI      4
     1058   01 01153    E80003C9              B        *#FIDLE%
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    7
A    1060   01 01154    0000A8DC A            DATA     ABSVAL(BA(%GOUT)),ABSVAL(BA(%GHDR))
            01 01155    0000A8A8 A
     1061                            *
     1062   01 01156    356012B5     PR%G     STW,LINK TEMPL             SAVE LINK REG.
     1063   01 01157    70200006 A            LC       LINK
     1064   01 01158    683012CC              BCR,3    %AEXIT            NO CHANGE EXIT
     1065                            *
     1066   01 01159    EA6003C2              #ETHCON,6  PLINEIN+1,2
            01 0115A    060062E2
     1067   01 0115B    32800006 A            LW,8     LINK
     1068   01 0115C    6830116A              BCR,3    G2CHK
     1069   01 0115D    3310193F              MTW,1    GAPFLG            SET GAP FLAG
     1070   01 0115E    22600001 A            LI,LINK  1
     1071   01 0115F    4B801998              AND,8    H7FE000
     1072   01 01160    318018EF              CW,8     HILIM             > HI LIMIT
     1073   01 01161    69201256              BCS,2    NONEXST           REPORT IF SO
     1074   01 01162    3580197C              STW,8    H1LO              SAVE
     1075   01 01163    EA6003C2              #ETHCON,6  PLINEIN+3,2
            01 01164    060062EA
     1076   01 01165    32800006 A            LW,8     LINK
     1077   01 01166    22600002 A            LI,LINK  2
     1078   01 01167    3180197C              CW,8     H1LO              < HI LIMIT
     1079   01 01168    6910125B              BCS,1    SMALHIGH+1        REPORT IF SO
     1080   01 01169    3580197F              STW,8    H1HI              SAVE
     1081   01 0116A                 G2CHK    RES      0
     1082   01 0116A    EA6003C2              #ETHCON,6  PLINEIN+5,2
            01 0116B    060062F2
     1083   01 0116C    32800006 A            LW,8     LINK
     1084   01 0116D    6830117D              BCR,3    G3CHK
     1085   01 0116E    3310193F              MTW,1    GAPFLG            SET GAP FLAG
     1086   01 0116F    22600003 A            LI,LINK  3
     1087   01 01170    4B801998              AND,8    H7FE000
     1088   01 01171    318018EF              CW,8     HILIM             > HI LIMIT
     1089   01 01172    69201256              BCS,2    NONEXST           REPORT IF SO
     1090   01 01173    3180197F              CW,8     H1HI
     1091   01 01174    69101196              BCS,1    LIMOVER           LIMITS OVERLAP
     1092   01 01175    3580197D              STW,8    H2LO              SAVE
     1093   01 01176    EA6003C2              #ETHCON,6  PLINEIN+7,2
            01 01177    060062FA
     1094   01 01178    32800006 A            LW,8     LINK
     1095   01 01179    22600004 A            LI,LINK  4
     1096   01 0117A    3180197D              CW,8     H2LO              < HI LIMIT
     1097   01 0117B    6910125B              BCS,1    SMALHIGH+1        REPORT IF SO
     1098   01 0117C    35801980              STW,8    H2HI              SAVE
     1099                            *
     1100   01 0117D                 G3CHK    RES      0
     1101   01 0117D    EA6003C2              #ETHCON,6  PLINEIN+9,2
            01 0117E    06006302
     1102   01 0117F    32800006 A            LW,8     LINK
     1103   01 01180    68301191              BCR,3    GAPEXIT
     1104   01 01181    3310193F              MTW,1    GAPFLG            SET GAP FLAG
     1105   01 01182    22600005 A            LI,LINK  5
     1106   01 01183    4B801998              AND,8    H7FE000
     1107   01 01184    318018EF              CW,8     HILIM             > HI LIMIT
     1108   01 01185    69201256              BCS,2    NONEXST           REPORT IF SO
     1109   01 01186    31801980              CW,8     H2HI
     1110   01 01187    69101196              BCS,1    LIMOVER           LIMITS OVERLAP
     1111   01 01188    3580197E              STW,8    H3LO              SAVE
     1112   01 01189    EA6003C2              #ETHCON,6  PLINEIN+11,2
            01 0118A    0600630A
     1113   01 0118B    32800006 A            LW,8     LINK
     1114   01 0118C    22600006 A            LI,LINK  6
     1115   01 0118D    32E00008 A            LW,14    8
     1116   01 0118E    3180197E              CW,8     H3LO              < HI LIMIT
     1117   01 0118F    6910125B              BCS,1    SMALHIGH+1        REPORT IF SO
     1118   01 01190    35801981              STW,8    H3HI              SAVE
     1119                            *
     1120   01 01191                 GAPEXIT  RES      0
     1121   01 01191    72602A37              LB,LINK  %GOUT
     1122   01 01192    728C18B7              LB,8     PLINEIN,LINK       GET INPUT BYTE
     1123   01 01193    758C2A37              STB,8    %GOUT,LINK        STORE BYTE
     1124   01 01194    64601192              BDR,LINK  %-2              TRY NEXT ONE
     1125                            *
     1126   01 01195    680012AA              B        NEWLIMR
     1127                            LIMOVER  #TYPE    MSG95             GAPS OVERLAP

            01 01196    EA6003C5
            01 01197    EA6003CC
            01 01198    00009E94 A
            01 01199    EA6003C6
     1128   01 0119A    E80012B5              B        *TEMPL
     1129                            %GOUTRST TEXTCS   ;
     1130         01 0119B            '     000000  000000  000000  000000  000000  000000'
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    8
A    1132   01 011A8    0000A9DC A            DATA     ABSVAL(BA(PLINE#J)),ABSVAL(BA(PL#JHDR))
            01 011A9    0000A9AC A
     1133   01 011AA                 PR%J     RES      0
     1134   01 011AA    02200000 A            LCI      0
     1135   01 011AB    2B001214              STM,0    SAVE              SAVE REGISTERS
     1136   01 011AC    928003CA              LD,8     *#RUNADDR%
     1137   01 011AD    15801918              STD,8    JRTRN
     1138   01 011AE    3590190D              STW,9    CHKMAPJP+1
     1139   01 011AF    22800060 A            LI,8     X'60'
     1140   01 011B0    6D801100 A            WD,8     X'1100'           DISARM I/O AND CNT 4 ZERO
     1141   01 011B1    0E30190C              LPSD,3   CHKMAPJP
     1142                            *
     1143                            *
     1144   01 011B2    22800000 A   MAPJRTRN LI,8     0
     1145   01 011B3    35801213              STW,8    PARAM%RET         ZERO RETURN STORE
     1146   01 011B4    EA6003C2              #ETHCON,4  PLINEIN+1                MSGDEV
            01 011B5    040062E0
     1147   01 011B6    35600397              STW,LINK   #PRTADDR
     1148   01 011B7    31600396              CW,6     #TOADDR
     1149   01 011B8    683011BF              BE       PARAMJ#A          BRANCH IF YES
     1150   01 011B9    CD000006 A            TIO,0    *LINK
     1151   01 011BA    68C011BF              BCR,12   PARAMJ#A          BRANCH IF YES
     1152   01 011BB    EA6003CC              #TYPED   NOTAVAIL
            01 011BC    00004890 A
     1153   01 011BD    33101213              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     1154   01 011BE    680011FE              B        CMERR+3           REPORT ERROR
     1155                            *
     1156                            *
     1157                            *
     1158   01 011BF    EA6003C2     PARAMJ#A #ETHCON,4  PLINEIN+4       FIND SI COUNT
            01 011C0    040062EC
     1159   01 011C1    3560122D              STW,LINK   SI
     1160   01 011C2    EA6003C2              #ETHCON,3  PLINEIN+5,1     FIND CI COUNT
            01 011C3    030062F1
     1161   01 011C4    3560122C              STW,LINK CICOUNT
     1162                            *
     1163   01 011C5    EA6003C2              #ETHCON,1          PLINEIN+7     CONVERT CM1
            01 011C6    010062F8
     1164   01 011C7    21600002 A            CI,LINK   2                2 OR <
     1165   01 011C8    692011CA              BCS,2    %+2               NO
     1166   01 011C9    680011CD              B        %+4
     1167   01 011CA    19601990              CLM,LINK   CMVAL           CM1 ERROR
     1168   01 011CB    699011FD              BCS,9      CMERR+2         YES
     1169   01 011CC    20600006 A            AI,LINK  6                 FORCE FIXED CHAR.
     1170   01 011CD    35601208              STW,LINK   CM1             NO, SAVE CM1
     1171                            *
     1172   01 011CE    EA6003C2              #ETHCON,1   PLINEIN+8,1    CONVERT CM2
            01 011CF    010062FD
     1173   01 011D0    19601990              CLM,LINK   CMVAL           CM2 ERROR
     1174   01 011D1    699011FC              BCS,9      CMERR+1         YES
     1175   01 011D2    20600006 A            AI,LINK  6                 FORCE FIXED CHAR.
     1176   01 011D3    35601209              STW,LINK   CM2             NO, SAVE CM1
     1177                            *
     1178   01 011D4    EA6003C2              #ETHCON,1    PLINEIN+9,2    CONVERT CM3
            01 011D5    01006302
     1179   01 011D6    21600001 A            CI,LINK  1
     1180   01 011D7    684011D9              BCR,4    %+2               B IF NORMAL
     1181   01 011D8    20600001 A            AI,LINK  1                 CHANGE SLOW TO FAST
     1182   01 011D9    21600002 A            CI,LINK  2                 2 OR <
     1183   01 011DA    692011DC              BCS,2    %+2               NO
     1184   01 011DB    680011DF              B        %+4
     1185   01 011DC    19601990              CLM,LINK   CMVAL           CM3 ERROR
     1186   01 011DD    699011FB              BCS,9      CMERR           YES
     1187   01 011DE    20600006 A            AI,LINK  6                 FORCE FIXED CHAR.
     1188   01 011DF    3560120A              STW,LINK   CM3             NO, SAVE CM1
     1189   01 011E0    6AF01572              BAL,15   SETCM             SET CLOCK MARGINS
     1190                            *
     1191   01 011E1    6AF0179F              BAL,15   MAPINTL
     1192   01 011E2    EA6003C2              #ETHCON,1  PLINEIN+10,3
            01 011E3    01006307
     1193   01 011E4    21600001 A            CI,LINK  1                 MAP BIT
     1194   01 011E5    692011FA              BCS,2    CMERR-1           MAP BIT NOT 0 OR 1
     1195   01 011E6    683011E9              BCR,3    %+3
     1196   01 011E7    32800000 A            LW,8     0
     1197   01 011E8    680011EA              B        %+2
     1198   01 011E9    3280199A              LW,8     H400000           MAP FIELD CONROL
     1199   01 011EA    46800009 A            XW,8     9                 SAVE R8
     1200                            *
     1201   01 011EB    72602A77              LB,LINK  PLINE#J           COPY UPDATED LINE
     1202   01 011EC    728C18B7              LB,8     PLINEIN,LINK
     1203   01 011ED    758C2A77              STB,8    PLINE#J,LINK
     1204   01 011EE    646011EC              BDR,LINK   %-2
     1205                            *
     1206   01 011EF    46800009 A            XW,8     9                 RESTORE R8
     1207   01 011F0    6AF01780              BAL,15   MAPCNTRL          SET UP MAP CONTROL
     1208                            *
     1209   01 011F1    02200000 A            LCI      0
     1210   01 011F2    2A001214              LM,0     SAVE
     1211   01 011F3    0E0011F4              LPSD,0   INVIR
     1212                                     BOUND    8
     1213   01 011F4    000011F6     INVIR    DATA     INVIRET,X'7000000'
            01 011F5    07000000 A
     1214                            *
     1215   01 011F6    22800060 A   INVIRET  LI,8     X'60'
     1216   01 011F7    6D801200 A            WD,8     X'1200'           ARM I/O AND CNT 4 ZERO
     1217   01 011F8    EA6003C9              BAL,LINK *#FIDLE%
     1218   01 011F9    00001918              DATA     JRTRN
     1219                            *
     1220                            *
     1221   01 011FA    33101213              MTW,1    PARAM%RET
     1222   01 011FB    33101213     CMERR    MTW,1    PARAM%RET
     1223   01 011FC    33101213              MTW,1    PARAM%RET
     1224   01 011FD    33401213              MTW,4    PARAM%RET
     1225   01 011FE    32801213              LW,8     PARAM%RET
     1226   01 011FF    498019BA              OR,8     HF0
     1227   01 01200    22300002 A            LI,3     2
     1228   01 01201    75861211              STB,8    PARAMERR+6,3
     1229                            *
     1230   01 01202    EA6003CC              #TYPED   PARAMERR
            01 01203    0000482C A
     1231   01 01204    02200000 A            LCI      0
     1232   01 01205    2A001214              LM,0     SAVE              RESTORE REGISTERS
     1233   01 01206    46601213              XW,LINK   PARAM%RET        ERROR FIELD NO. TO #LINK
     1234   01 01207    E8001213              B        *PARAM%RET
     1235   01 01208    00000000 A   CM1      DATA     0
     1236   01 01209    00000010 A   CM2      DATA     X'10'             DEFAULT TO NORMAL FIXED
     1237   01 0120A    00000000 A   CM3      DATA     0
     1238                            *
     1239         01 0120B           PARAMERR TEXTCS   '****PARAMETER ERROR****        '
     1240   01 01213    00000000 A   PARAM%RET  DATA   0
     1241   01 01214                 SAVE     RES      16
     1242         01 01224           NOTAVAIL  TEXTCS  '****DEVICE NOT AVAILABLE****'
     1243   01 0122C    00000001 A   CICOUNT  DATA     1                 HEX COUNT OF CM INTERVAL
     1244   01 0122D    00000001 A   SI       DATA     1
     1245                            *
     1246                            PLINE#JR    TEXTCS   ;
     1247         01 0122E            '*J 0002 *0001  0001 001    0    A    0    0'
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE    9
A    1249   01 01239    0000AD1C A            DATA     ABSVAL(BA(%LOUT)),ABSVAL(BA(%LHDR))
            01 0123A    0000ACF0 A
     1250                            *
     1251   01 0123B    356012B5     PR%L     STW,LINK TEMPL             SAVE LINK REG.
     1252   01 0123C    70200006 A            LC       LINK
     1253   01 0123D    683012CC              BCR,3    %AEXIT            NO CHANGE EXIT
     1254                            *
     1255   01 0123E    EA6003C2              #ETHCON,6  PLINEIN+5,2
            01 0123F    060062F2
     1256   01 01240    32800006 A            LW,8     LINK
     1257   01 01241    49801994              OR,8     H1FFF             MAKE 8K BOUNDARY
     1258   01 01242    35801982              STW,8    MEMRYSIZ          SAVE
     1259   01 01243    6AF01686              BAL,15   EBCDIC            CONVERT BACK TO EBCDIC
     1260   01 01244    359018BD              STW,9    PLINEIN+6
     1261   01 01245    EA6003C2              #ETHCON,6  PLINEIN+3,2
            01 01246    060062EA
     1262   01 01247    32800006 A            LW,8     LINK
     1263   01 01248    31801982              CW,8     MEMRYSIZ          > MEMORY SIZE
     1264   01 01249    69201256              BCS,2    NONEXST           REPORT IF SO
     1265   01 0124A    358018EF              STW,8    HILIM             SAVE
     1266   01 0124B    EA6003C2              #ETHCON,6  PLINEIN+1,2
            01 0124C    060062E2
     1267   01 0124D    32800006 A            LW,8     LINK
     1268   01 0124E    318018EF              CW,8     HILIM             > HI LIMIT
     1269   01 0124F    6920125A              BCS,2    SMALHIGH          HILIM < LOW LIM
     1270   01 01250    358018EE              STW,8    LOWLIM
     1271                            *
     1272   01 01251    72602B47              LB,LINK  %LOUT              GET BYTE COUNT
     1273   01 01252    728C18B7              LB,8     PLINEIN,LINK       GET INPUT BYTE
     1274   01 01253    758C2B47              STB,8    %LOUT,LINK        STORE BYTE
     1275   01 01254    64601252              BDR,LINK  %-2              TRY NEXT ONE
     1276                            *
     1277   01 01255    680012AA              B        NEWLIMR
     1278                            *
     1279   01 01256    EA6003CC     NONEXST  #TYPED   MSG80
            01 01257    00009BA8 A
     1280   01 01258    22600002 A            LI,LINK  2                 PARAM 2
     1281   01 01259    E80012B5              B        *TEMPL
     1282                            *
     1283                            *
     1284                            *
     1285                            SMALHIGH #TYPE    MSG3

            01 0125A    EA6003C5
            01 0125B    EA6003CC
            01 0125C    00009570 A
            01 0125D    EA6003C6
     1286   01 0125E    22600001 A            LI,LINK  1                 PARAM 1
     1287   01 0125F    E80012B5              B        *TEMPL            PRAM.1 ERROR RETURN
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   10
A    1289   01 01260    000049CC A            DATA     ABSVAL(BA(%POUT)),ABSVAL(BA(%PHDR))
            01 01261    0000AE68 A
     1290   01 01262    70200006 A   PR%P     LC       LINK
     1291   01 01263    68301271              BCR,3    %PEXIT            NO CHANGE EXIT
     1292                            *
     1293   01 01264    EA6003C2              #ETHCON,4 PLINEIN+1
            01 01265    040062E0
     1294   01 01266    32801E96              LW,8     IOPMSADR
     1295   01 01267    32800006 A            LW,8     LINK
     1296   01 01268    35801E96              STW,8    IOPMSADR
     1297   01 01269    328018B8              LW,8     PLINEIN+1
     1298   01 0126A    35801274              STW,8    %POUT+1
     1299                            *
     1300   01 0126B    EA6003C2              #ETHCON,2 PLINEIN+3,2      CONVERT TO HEX.
            01 0126C    020062EA
     1301   01 0126D    32800006 A            LW,8     LINK
     1302   01 0126E    35801E97              STW,8    DIOADR            STORE DIO ADDRESS
     1303   01 0126F    328018BA              LW,8     PLINEIN+3
     1304   01 01270    35801276              STW,8    %POUT+3
     1305                            *
     1306   01 01271    02200040 A   %PEXIT   LCI      4
     1307   01 01272    E80003C9              B        *#FIDLE%          RETURN TO GUIDE

     1309         01 01273           %POUT    TEXTCS   '   0005      00'
     1310         01 01277           %POUTRST TEXTCS   '   0005      00'

     1312                            *        REQUEST CHARACTER  T  CONTROL
     1313                            *
     1314   01 0127B    0000AF70 A            DATA     ABSVAL(BA(%AOUT)),ABSVAL(BA(%ADASH)),ABSVAL(BA(%AHDR))
            01 0127C    0000AF4C A
            01 0127D    0000AF14 A
     1315   01 0127E    356012B5     PR%T     STW,LINK   TEMPL           SAVE LINK
     1316   01 0127F    70200006 A            LC       LINK
     1317   01 01280    683012CC              BCR,3    %AEXIT
     1318                            *
     1319   01 01281    728018B8              LB,8     PLINEIN+1         GET MAG. TEST SWITCH
     1320   01 01282    4B801996              AND,8    HF                MASK
     1321   01 01283    21800001 A            CI,8     1
     1322   01 01284    692012B6              BCS,2    TERR1             ERROR IF NOT 0 OR 1
     1323   01 01285    358021CE              STW,8    MSW               MAG. SWITCH
     1324                            *
     1325   01 01286    22600007 A           LI,LINK   7                 LOAD INDEX
     1326   01 01287    22700008 A           LI,7      8                 LOAD ITERATION COUNT
     1327   01 01288    728C18B9              LB,8     PLINEIN+2,LINK    GET TEST SEL. BYTE
     1328   01 01289    4B801996              AND,8    HF
     1329   01 0128A    21800001 A            CI,8     1
     1330   01 0128B    692012B8              BCS,2    TERR2             ERROR IF NOT 0 OR 1
     1331   01 0128C    358C12C3              STW,8    TS,LINK           STORE IN TEST SELECT LOC.
     1332   01 0128D    206FFFFF A            AI,LINK  -1                INCR. INDEX
     1333   01 0128E    64701288              BDR,7    %-6               GET NEXT BYTE
     1334                            *
     1335   01 0128F    2260000C A            LI,LINK  12                LOAD INDEX
     1336   01 01290    2270000D A            LI,7     13                LOAD ITERATION CNT
     1337   01 01291    728C18BC              LB,8     PLINEIN+5,LINK    GET TEST SELECTION
     1338   01 01292    4B801996              AND,8    HF
     1339   01 01293    21800001 A            CI,8     1
     1340   01 01294    692012BA              BCS,2    TERR3             ERROR IF NOT 0 OR 1
     1341   01 01295    2580017F A            SLD,8    -1                SHIFT TO POSITION
     1342   01 01296    206FFFFF A            AI,LINK  -1                INCR. INDEX
     1343   01 01297    64701291              BDR,7    %-6               GET NEXT BYTE
     1344   01 01298    2590007F A            SLS,9    -1                ALIGN
     1345   01 01299    4B901997              AND,9    H7FFC0000
     1346   01 0129A    359021D2              STW,9    TSWRD             STORE IN TEST SELECT. WORD
     1347                            *
     1348   01 0129B    EA6003C2              #ETHCON  PLINEIN+9         GET BITMASK
            01 0129C    00006300
     1349   01 0129D    356021C4              STW,LINK BITMASK            AND SAVE
     1350   01 0129E    EA6003C2              #ETHCON  PLINEIN+12        GET ITERATION COUNT
            01 0129F    0000630C
     1351   01 012A0    356021C9              STW,LINK ITRATE#            FOR TEST #13 AND SAVE
     1352                            *
     1353   01 012A1    72602BDC              LB,LINK  %AOUT              GET BYTE COUNT
     1354   01 012A2    728C18B7              LB,8     PLINEIN,LINK       GET INPUT BYTE
     1355   01 012A3    758C2BDC              STB,8    %AOUT,LINK        STORE BYTE
     1356   01 012A4    646012A2              BDR,LINK  %-2              TRY NEXT ONE
     1357   01 012A5    22000000 A            LI,0     0
     1358   01 012A6    35001B8A              STW,0    PASS#             RESET PASS COUNT
     1359   01 012A7    350019C4              STW,0    TSTON             RESET TEST IN PROG.
     1360   01 012A8    350021CF              STW,0    MTST#             RESET MAG TEST
     1361   01 012A9    35001983              STW,0    SIPASS
     1362   01 012AA    33001B8A     NEWLIMR  MTW,0    PASS#
     1363   01 012AB    682012AD              BCR,2    %+2               B IF = 0 OR NEG
     1364   01 012AC    33F01B8A              MTW,-1   PASS#             DECREMENT PASS COUNT
     1365   01 012AD    33001983              MTW,0    SIPASS
     1366   01 012AE    682012B0              BCR,2    %+2               B IF = 0 OR NEG
     1367   01 012AF    33F01983              MTW,-1   SIPASS             DECREMENT SI PASS COUNT

     1369   01 012B0    22000000 A            LI,0     0                 SET ANNOTATION FLAG
     1370   01 012B1    3500194A              STW,0    PPASS#             FOR AT LEAST ONE FULL PASS

     1372   01 012B2    02200000 A            LCI      0
     1373   01 012B3    EA6003C9              BAL,LINK   *#FIDLE%        RETURN TO GUIDE
     1374   01 012B4    0000191C              DATA     RSTRT             RESTART ADR.
     1375                            *
     1376                            *
     1377   01 012B5    00000000 A   TEMPL    DATA     0
     1378                            *
     1379   01 012B6    22900001 A   TERR1    LI,9     1                 PARAM. 1 ERR.
     1380   01 012B7    680012BB              B        TERRX
     1381   01 012B8    22900002 A   TERR2    LI,9     2                 PARAM. 2 ERR.
     1382   01 012B9    680012BB              B        TERRX
     1383   01 012BA    22900003 A   TERR3    LI,9     3                 PARAM. 3 ERR.
     1384   01 012BB    228000F0 A   TERRX    LI,8     X'F0'             GET MASK
     1385   01 012BC    30800009 A            AW,8     9                 GET ERR PARAM
     1386   01 012BD    22300002 A            LI,3     2
     1387   01 012BE    75861211              STB,8    PARAMERR+6,3
     1388   01 012BF    EA6003CC              #TYPED   PARAMERR          TYPE PARAM. ERROR
            01 012C0    0000482C A
     1389   01 012C1    32600009 A            LW,LINK  9                 GET ERR PARAM
     1390   01 012C2    E80012B5              B        *TEMPL            RETURN
     1391                            *
     1392   01 012C3                 TS       RES      9
     1393   01 012CC    680012AA     %AEXIT   B        NEWLIMR           RETURN
     1394                            *
     1395                            *
     1396                                     BOUND    8
     1397                            %AOUTRST TEXTCS      ;
     1398         01 012CE            '   1   11111111    1111111111111   FFFFFFFF    00000064'
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   11
A    1400                            * INSTRUCTION EXCEPTION TRAP '4D' PROCESSING ROUTINE
     1401                            *
     1402                            *
     1403   01 012DC    74001966     IETRAP   STCF     TCCS
     1404   01 012DD    0E101908              LPSD,1   %IETRP            RESET PDF
     1405   01 012DE    02200000 A   %IETRTN  LCI      0
     1406   01 012DF    2B001010              STM,0    TI%REGS
     1407   01 012E0    33001984              MTW,0    MAPFLG            MAP OPTION INSTALLATION CHECK
     1408   01 012E1    683012E6              BCR,3    NOMAPCHK          NO
     1409   01 012E2    22800000 A            LI,8     0                 YES, AND NO MAP INSTALLED
     1410   01 012E3    35801984              STW,8    MAPFLG            RESET FLAG
     1411   01 012E4    3310191E              MTW,1    %IETRAP           INCREMENT RETURN ADDRS.
     1412   01 012E5    680012EF              B        IERTRN
     1413                            *
     1414   01 012E6    3280191E     NOMAPCHK LW,8     %IETRAP           GET TRAP ADDRS.
     1415   01 012E7    32A0191F              LW,10    %IETRAP+1         GET PSDW
     1416   01 012E8    2270F4C4 A            LI,7     '4D'              TRAP LOC.
     1417   01 012E9    6AF015F3              BAL,15   TRPSTS            PRINT TRAP STATUS
     1418   01 012EA    4B8021C5              AND,8    H1FFFF             SWITCH OFF MAP BIT
     1419   01 012EB    3580191E              STW,8    %IETRAP
     1420   01 012EC    6AF01770              BAL,15   S3HLT             ERROR HALT
     1421   01 012ED    70200392              LC       #SENSE
     1422   01 012EE    698012F0              BCS,8    %+2
     1423   01 012EF    3310191E     IERTRN   MTW,1    %IETRAP           INCREMENT RETURN ADDRS
     1424   01 012F0    02200000 A            LCI      0
     1425   01 012F1    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1426   01 012F2    0E10191E              LPSD,1   %IETRAP           RETURN
     1427                            *
     1428                            *
     1429                            *
     1430                            *
     1431                            * TRAP-40 PROCESSING ROUTINE.
     1432                            *
     1433                            *
     1434   01 012F3    74001966     INTRAP   STCF     TCCS
     1435   01 012F4    02200000 A            LCI      0
     1436   01 012F5    2B001010              STM,0    TI%REGS
     1437   01 012F6    3300195B              MTW,0    MCALFLG           MEM CALC
     1438   01 012F7    683012F9              BCR,3    %+2               NO
     1439   01 012F8    68001312              B        MCALRET           YES
     1440                            *
     1441   01 012F9    3300195C              MTW,0    STWFLG            STORE FLAG SET
     1442   01 012FA    6930130E              BCS,3    RET40            YES
     1443   01 012FB    3300195D              MTW,0    ADRECFLG          NO, THEN ADDRS RECG. FLAG SET
     1444   01 012FC    683012FF              BCR,3    CON40
     1445   01 012FD    33101922              MTW,1    %INTRAP
     1446   01 012FE    6800130E              B        RET40
     1447                            *
     1448   01 012FF    33001959     CON40    MTW,0    CONTST
     1449   01 01300    69301317              BCS,3    CONTRP40
     1450   01 01301    2270F4F0 A            LI,7     '40'
     1451                            *
     1452   01 01302    32801922              LW,8     %INTRAP
     1453   01 01303    32A01923              LW,10    %INTRAP+1         GET PSDW- W2
     1454   01 01304    33001964              MTW,0    SPFLG             ADRS-TOGGLE FLG SET
     1455   01 01305    6830130A              BCR,3    TRAPRET           N/
     1456   01 01306    33101964              MTW,1    SPFLG             RESETFLG
     1457   01 01307    02200000 A            LCI      0
     1458   01 01308    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1459   01 01309    68001D65              B        ADRLEND           RETURN
     1460                            *
     1461   01 0130A    6AF015F3     TRAPRET  BAL,15   TRPSTS            PRINT ERROR STATUS
     1462   01 0130B    6AF01770              BAL,15   S3HLT             ERROR HALT
     1463   01 0130C    70200392              LC       #SENSE
     1464   01 0130D    6980130F              BCS,8    %+2
     1465   01 0130E    33101922     RET40    MTW,1    %INTRAP           INCREMENT RETURN ADDRS
     1466   01 0130F    02200000 A            LCI      0
     1467   01 01310    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1468   01 01311    0E301922              LPSD,3   %INTRAP           RETURN
     1469                            *
     1470                            *
     1471                            *
     1472   01 01312    33101922     MCALRET  MTW,1    %INTRAP
     1473   01 01313    22000000 A            LI,0     0
     1474   01 01314    3500195B              STW,0    MCALFLG           RESET FLAG
     1475   01 01315    32001010              LW,0     TI%REGS           RESTORE R0
     1476   01 01316    0E301912              LPSD,3   %MCALRT           RETURN
     1477                            *
     1478   01 01317    33F0195E     CONTRP40 MTW,-1   CONFLG             PORT CONFLICT TEST IN PROGRESS
     1479   01 01318    02200000 A            LCI      0
     1480   01 01319    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1481   01 0131A    0E301910              LPSD,3   CONFRT

     1483                            * WATCH DOG TIMER TRAP '46' PROCESSING ROUTINE
     1484                            *
     1485                            *
     1486   01 0131B    74001966     WDTRAP   STCF     TCCS
     1487   01 0131C    0E10190A              LPSD,1   %WDTRP            RESET PDF
     1488   01 0131D    02200000 A   %WDTRTN  LCI      0
     1489   01 0131E    2B001010              STM,0    TI%REGS
     1490   01 0131F    33001959              MTW,0    CONTST            PORT COCFLICT  TEST IN PROGRESS
     1491   01 01320    68301323              BCR,3    UNEXPTWD          NO, UNEXPECTED TRAP
     1492   01 01321    33F0195F              MTW,-1   MSADRFLG          YES, SET FLAG
     1493   01 01322    6800132A              B        WDRTRN            RETURN
     1494                            *
     1495   01 01323    32801926     UNEXPTWD LW,8     %WDTRAP           GET PSWD
     1496   01 01324    32A01927              LW,10    %WDTRAP+1         GET THE 2ND WORD
     1497   01 01325    2270F4F6 A            LI,7     '46'              TRAP 46
     1498   01 01326    6AF015F3              BAL,15   TRPSTS            PRINT TRAP STATUS
     1499   01 01327    6AF01770              BAL,15   S3HLT             ERROR HALT
     1500   01 01328    70200392              LC       #SENSE
     1501   01 01329    6980132B              BCS,8    %+2               LOOP IS SS1 SET
     1502   01 0132A    33101926     WDRTRN   MTW,1    %WDTRAP           MODIFY RETURN ADDRS
     1503   01 0132B    02200000 A            LCI      0
     1504   01 0132C    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1505   01 0132D    0E101926              LPSD,1   %WDTRAP            RETURN TO PROGRAM
     1506                            *
     1507                            *
     1508                            * ROUTINE TO PROCESS PARITY ERROR TRAP '4C'
     1509                            *
     1510                            *
     1511                            *
     1512   01 0132E    74001966     PE       STCF     TCCS
     1513                            *
     1514   01 0132F    02200000 A            LCI      0
     1515   01 01330    2B001010              STM,0    TI%REGS
     1516   01 01331    33101960              MTW,1    PEFLG             SET FLG TO INDICATE PE OCCURED
     1517   01 01332    0E10191A              LPSD,1   %PEPDF            CLEAR PDF
     1518   01 01333    70201966     %PERTN   LC       TCCS              GET TRAP CC
     1519   01 01334    6960133A              BCS,6    CPUPE             PE NOT FROM MEMORY
     1520   01 01335    3300195B              MTW,0    MCALFLG           MEMORY CALCULATION
     1521   01 01336    68301338              BCR,3    %+2               NO
     1522   01 01337    6800134E              B        MCALPE            YES,
     1523                            *
     1524   01 01338    330018EA              MTW,0    INTRPFLG
     1525   01 01339    69301354              BCS,3    INTLOG            B IF INT/LOGIC TEST
     1526   01 0133A    2270F4C3 A   CPUPE    LI,7     '4C'              TRAP 4C
     1527   01 0133B    3280192E              LW,8     %PE
     1528   01 0133C    32A0192F              LW,10    %PE+1             GET PSW2
     1529   01 0133D    6AF015F3              BAL,15   TRPSTS            PRINT TRAP STATUS
     1530   01 0133E    70201966              LC       TCCS              GET TRAP CC
     1531   01 0133F    69601358              BCS,6    NOTMEM            PE NOT FROM MEMORY
     1532   01 01340    33001941              MTW,0    EXPFLG            WAS INT EXPECTED
     1533   01 01341    68101347              BCR,1    PEHALT            B IF NO
     1534   01 01342    328019C4              LW,8     TSTON             GET TEST IN PROG.
     1535   01 01343    218000C9 A            CI,8     'I'               IS IT A MAG TEST
     1536   01 01344    6930134A              BCS,3    %PERTRN           NO
     1537   01 01345    3310192E              MTW,1    %PE               INCR. RET ADR
     1538   01 01346    6800134A              B        %PERTRN           EXIT
     1539   01 01347    6AF01770     PEHALT   BAL,15   S3HLT
     1540   01 01348    70200392              LC       #SENSE
     1541   01 01349    6980134B              BCS,8    %+2
     1542   01 0134A    3310192E     %PERTRN  MTW,1    %PE                INCREMENT RETURN ADDRS.
     1543   01 0134B    02200000 A            LCI      0
     1544   01 0134C    2A001010              LM,0     TI%REGS
     1545   01 0134D    0E10192E              LPSD,1   %PE               RESET PDF AND RETURN
     1546                            *
     1547   01 0134E    22800000 A   MCALPE   LI,8     0
     1548   01 0134F    3580195B              STW,8    MCALFLG           RESET FLG
     1549   01 01350    3310192E              MTW,1    %PE                INCREMENT PE ADDRS.
     1550   01 01351    02200000 A            LCI      0
     1551   01 01352    2A001010              LM,0     TI%REGS
     1552   01 01353    0E101912              LPSD,1   %MCALRT
     1553                            *
     1554   01 01354    022000C0 A   INTLOG   LCI      12
     1555   01 01355    2D9A0000 A            LMS,9    0,5               RESET MFI
     1556   01 01356    33101962              MTW,1    RIPFLG            INCREMENT FLAG
     1557   01 01357    6800134A              B        %PERTRN           EXIT
     1558                            *
     1559   01 01358    70200392     NOTMEM   LC       #SENSE
     1560   01 01359    69101347              BCS,1    PEHALT            BYPASS MSG
     1561                                     #PRINT   MSG96             REPORT CPU BUS PE

            01 0135A    EA6003C5
            01 0135B    EA6003CD
            01 0135C    C0009EA8 A
            01 0135D    EA6003C6
     1562   01 0135E    68001347              B        PEHALT            ERROR HALT
     1563                            *
     1564                            *   MEMORY FAULT INTERRUPT '57' HANDLING ROUTINE
     1565                            *
     1566   01 0135F    74001966     MFI      STCF     TCCS
     1567   01 01360    02200000 A            LCI      0
     1568   01 01361    2B001010              STM,0    TI%REGS
     1569   01 01362    330018EA              MTW,0    INTRPFLG          INTRPT/TRAP LOGIC TEST
     1570   01 01363    68301366              BCR,3    DATAMFI           NO,
     1571   01 01364    022000C0 A            LCI      12
     1572   01 01365    2D8A0000 A            LMS,8    0,5               RESET MFI
     1573   01 01366                 DATAMFI  RES      0
     1574   01 01366    3300195B              MTW,0    MCALFLG
     1575   01 01367    68301369              BCR,3    %+2               NO,
     1576   01 01368    6800134E              B        MCALPE            YES,
     1577                            *
     1578   01 01369    328021CF              LW,8     MTST#
     1579   01 0136A    218000C4 A            CI,8     'D'
     1580   01 0136B    69301370              BCS,3    NOTST13           NO
     1581   01 0136C    33101961              MTW,1    MPFLG             YES, SET FLG
     1582   01 0136D    02200000 A            LCI      0
     1583   01 0136E    2A001010              LM,0     TI%REGS
     1584   01 0136F    0E30190E              LPSD,3   MTST13R
     1585                            *
     1586                            *
     1587   01 01370    33001959     NOTST13  MTW,0    CONTST            PORT COFLICT TEST
     1588   01 01371    68301378              BCR,3    NOTPC             NO
     1589   01 01372    33F0195E              MTW,-1   CONFLG            SET FLAG
     1590   01 01373    022000C0 A            LCI      12
     1591   01 01374    2D8A0000 A            LMS,8    0,5               RESET MFI
     1592   01 01375    02200000 A            LCI      0
     1593   01 01376    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1594   01 01377    0E301910              LPSD,3   CONFRT            RETURN TO PORT COFLICT TEST
     1595                            *
     1596   01 01378    33F018EB     NOTPC    MTW,-1   INTACFLG          YES, SET ACKNOWLEDGE FLG

     1598   01 01379    33001021              MTW,0    SIG7FLG           SKIP PE TEST IF
     1599   01 0137A    6930137D              BNEZ     %+3                MACHINE IS SIGMA-7

     1601   01 0137B    33001960              MTW,0    PEFLG             PE OCCURED
     1602   01 0137C    68301384              BCR,3    OVERTEMP          NO
     1603   01 0137D    22000000 A            LI,0     0
     1604   01 0137E    35001960              STW,0    PEFLG             RESET PE FLG
     1605                            *
     1606   01 0137F    330018EA              MTW,0    INTRPFLG          INTERRUPT CHECK TEST
     1607   01 01380    68301397              BCR,3    PTST              NO
     1608   01 01381    02200000 A            LCI      0
     1609   01 01382    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1610   01 01383    0E30192E              LPSD,3   %PE               RETURN
     1611                            *
     1612   01 01384    3250192A     OVERTEMP LW,5     %MFI              SET TO FAULT ADDR
     1613   01 01385    4B5021C5              AND,5    H1FFFF

     1615   01 01386    33001953     MFIRET   MTW,0    MFTYP             ANY FAULTS
     1616   01 01387    683013A3              BCR,3    SCAN              B IF NO

     1618   01 01388    22800000 A   MFIFND   LI,8     0
     1619   01 01389    35801960              STW,8    PEFLG             RESET PE FLAG
     1620   01 0138A    2270F5F7 A            LI,7     '57'
     1621   01 0138B    3280192A              LW,8     %MFI              GET PSW1
     1622   01 0138C    32A0192B              LW,10    %MFI+1            GET PSW2
     1623   01 0138D    6AF015F3              BAL,15   TRPSTS            PRINT TRAP STATUS
     1624   01 0138E    6AF01770              BAL,15   S3HLT             HALT ON ERROR
     1625   01 0138F    022000C0 A            LCI      12
     1626   01 01390    2D8A0000 A            LMS,8    0,5               RESET MFI
     1627   01 01391    70200392              LC       #SENSE
     1628   01 01392    68801394              BCR,8    %+2
     1629   01 01393    33F0192A              MTW,-1   %MFI              DECR. RET ADR.
     1630   01 01394    02200000 A            LCI      0
     1631   01 01395    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1632   01 01396    0E30192A              LPSD,3   %MFI
     1633                            *
     1634                            *
     1635   01 01397    33001964     PTST     MTW,0    SPFLG             SPECIA PARITY FLG SET
     1636   01 01398    6830139E              BCR,3    PFLGTST           NO
     1637   01 01399    22800000 A            LI,8     0                 YES
     1638   01 0139A    35801964              STW,8    SPFLG             RESET THE FLG
     1639   01 0139B    02200000 A            LCI      0
     1640   01 0139C    2A001010              LM,0     TI%REGS           RESTORE REG'S
     1641   01 0139D    68001D65              B        ADRLEND
     1642                            *
     1643   01 0139E    33001965     PFLGTST  MTW,0    PARTYFLG          PARITY TEST IN PROGRESS
     1644   01 0139F    68301386              BCR,3    MFIRET
     1645   01 013A0    02200000 A            LCI      0
     1646   01 013A1    2A001010              LM,0     TI%REGS
     1647   01 013A2    68001C80              B        PARINT            YES, RETURN TO PARITY TEST
     1648                            *
     1649   01 013A3    22500000 A   SCAN     LI,5     0                 START WITH FIRST BANK
     1650   01 013A4    6AF017DC              BAL,15   GSKIP             SKIP GAPS
     1651   01 013A5    680013AB              B        SCANEX            EXIT
     1652   01 013A6    6AF013AD              BAL,15   STATWD            GET STATUS
     1653   01 013A7    33001953              MTW,0    MFTYP             ANY FAULTS
     1654   01 013A8    69301388              BCS,3    MFIFND            YES
     1655   01 013A9    30501955              AW,5     BKSIZE            GET NEXT BANK
     1656   01 013AA    680013A4              B        SCAN+1            LOOP
     1657   01 013AB    32501015     SCANEX   LW,5     TI%REGS+5         RESTORE R5
     1658   01 013AC    68001388              B        MFIRET+2          RETURN
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   12
A    1660                            *  READ STATUS WORDS 0,1,2
     1661                            *
     1662   01 013AD    35F013DA     STATWD   STW,15   STWDREG
     1663   01 013AE    6AF017AE              BAL,15   MAP
     1664   01 013AF    02200080 A            LCI      8
     1665   01 013B0    2D9A0000 A            LMS,9    0,5               GET STATUS WORD 0
     1666   01 013B1    3590194B              STW,9    WORD0
     1667   01 013B2    4B90199D              AND,9    HFF100000         LEAVE ONLY FAULT BITS
     1668   01 013B3    35901953              STW,9    MFTYP             SAVE FAULT BITS
     1669   01 013B4    02200090 A            LCI      9
     1670   01 013B5    2D9A0000 A            LMS,9    0,5               GET STATUS WORD 1
     1671   01 013B6    3590194C              STW,9    WORD1
     1672   01 013B7    32800009 A            LW,8     9
     1673   01 013B8    4B8019A4              AND,8    H3E000            MASK OUT UNWANTED BITS
     1674   01 013B9    3580194E              STW,8    CMRGIN            SAVE CLOCK MARGINS
     1675   01 013BA    22800000 A            LI,8     0
     1676   01 013BB    25800102 A            SLD,8    2                 GET INTERLEAVE MODE
     1677   01 013BC    35801956              STW,8    INTRL#              AND SAVE

     1679   01 013BD    22800000 A            LI,8     0                 CLEAR AND COMPUTE
     1680   01 013BE    35801562              STW,8    MOSFLAG            MOS MEMORY FLAG

     1682   01 013BF    5290194C              LH,9     WORD1
     1683   01 013C0    21900020 A            CI,9     X'0020'
     1684   01 013C1    684013C3              BAZ      %+2
     1685   01 013C2    33101562              MTW,1    MOSFLAG

     1687   01 013C3    3290194C              LW,9     WORD1             COMPUTE TRUE BANK
     1688   01 013C4    25900002 A            SLS,9    2                  SIZE, INDEPENDENT
     1689   01 013C5    25800102 A            SLD,8    2                   OF MEMORY TYPE

     1691   01 013C6    33001562              MTW,0    MOSFLAG           GET REST OF BITS
     1692   01 013C7    683013CE              BEZ      STATWD0            FOR MOS MEMORY

     1694   01 013C8    25800103 A            SLD,8    3
     1695   01 013C9    25800002 A            SLS,8    2

     1697   01 013CA    25900004 A            SLS,9    4                 CHECK LARGE BANK BIT
     1698   01 013CB    33000009 A            MTW,0    9
     1699   01 013CC    681013CE              BGEZ     %+2
     1700   01 013CD    25800001 A            SLS,8    1                 DOUBLE BANK SIZE

     1702   01 013CE    25800004 A   STATWD0  SLS,8    4                 NUMBER OF K OF MEMORY
     1703   01 013CF    33000008 A            MTW,0    8
     1704   01 013D0    692013D2              BGZ      %+2                OFFSET IF ONLY 8K
     1705   01 013D1    20800008 A            AI,8     8

     1707   01 013D2    35801565              STW,8    BANKSIZE          SAVE FOR DISPLAY

     1709   01 013D3    2580000A A            SLS,8    10                COMPUTE TRUE SIZE
     1710   01 013D4    35801955              STW,8    BKSIZE             IN WORDS AND SAVE

     1712   01 013D5    022000A0 A            LCI      10
     1713   01 013D6    2D9A0000 A            LMS,9    0,5               GET STATUS WORD 2
     1714   01 013D7    3590194D              STW,9    WORD2
     1715   01 013D8    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     1716   01 013D9    E80013DA              B        *STWDREG
     1717                            *
     1718   01 013DA                 STWDREG  RES      1
     1719                            *
     1720                            *        FORMAT ERROR STATUS MESSAGE
     1721                            *
     1722   01 013DB    02200000 A   STATUS   LCI      0
     1723   01 013DC    2B0019C5              STM,0    STEMPLOC
     1724   01 013DD    EA6003C5              BAL,LINK *#DISUSER%        DISABLE INT
     1725                            *
     1726   01 013DE    7270271B              LB,7     MSG85
     1727   01 013DF    22800040 A            LI,8     X'40'
     1728   01 013E0    758E271B              STB,8    MSG85,7           CLEAR MSG.
     1729   01 013E1    647013E0              BDR,7    %-1
     1730                            *
     1731   01 013E2    6AF013AD              BAL,15   STATWD            GET STATUS WORDS 0,1,2
     1732   01 013E3    2280194B              LI,8     WORD0             GET ADR OF STAT. WD 0
     1733   01 013E4    4B80193A              AND,8    HFFFFF
     1734   01 013E5    6AF01686              BAL,15   EBCDIC            CONVERT
     1735   01 013E6    22300005 A            LI,3     5
     1736   01 013E7    22400006 A            LI,4     6
     1737   01 013E8    75982728              STB,9    MSG85+13,4        STORE IN MSG
     1738   01 013E9    25800178 A            SLD,8    -8
     1739   01 013EA    204FFFFF A            AI,4     -1
     1740   01 013EB    643013E8              BDR,3    %-3
     1741                            *
     1742   01 013EC    32800005 A            LW,8     5                 GET TEST ADR
     1743   01 013ED    4B80193A              AND,8    HFFFFF
     1744   01 013EE    6AF01686              BAL,15   EBCDIC            CONVERT
     1745   01 013EF    22300005 A            LI,3     5
     1746   01 013F0    22400004 A            LI,4     4
     1747   01 013F1    7598272A              STB,9    MSG85+15,4        STORE IN MSG
     1748   01 013F2    25800178 A            SLD,8    -8
     1749   01 013F3    204FFFFF A            AI,4     -1
     1750   01 013F4    643013F1              BDR,3    %-3
     1751                            *
     1752   01 013F5    3280194B              LW,8     WORD0             GET STATUS WORD 0
     1753   01 013F6    4B801939              AND,8    HFFFC0000         TURN OFF BITS 14-31
     1754   01 013F7    25800309 A            SCD,8    9
     1755   01 013F8    25800003 A            SLS,8    3                 SHIFT OUT BITS 9,10,11 (UNDEF.)
     1756   01 013F9    25800377 A            SCD,8    -9
     1757   01 013FA    6AF01649              BAL,15   BTE               CONVERT TO EBCDIC
     1758   01 013FB    2230000B A            LI,3     11
     1759   01 013FC    224FFFFE A            LI,4     -2
     1760   01 013FD    22200000 A            LI,2     0
     1761   01 013FE    7264165A              LB,6     BTEBUFF,2         MOVE FAULT BITS
     1762   01 013FF    75682726              STB,6    MSG85+11,4          TO MSG
     1763   01 01400    20400001 A            AI,4     1                 INCR. MSG BYTE INDEX
     1764   01 01401    20200001 A            AI,2     1                 INCR. BYTE BUFF INDEX
     1765   01 01402    643013FE              BDR,3    %-4
     1766                            *
     1767   01 01403    32900005 A            LW,9     5                 GET TEST ADR
     1768   01 01404    4B9019AF              AND,9    H3FFF             MASK OFF BMU BITS
     1769   01 01405    25800112 A            SLD,8    18                POSITION BITS
     1770   01 01406    223FFFFF A            LI,3     -1
     1771   01 01407    6AF01427              BAL,15   BLKBIT            WRITE ONE BLANK AND
     1772   01 01408    6AF01427              BAL,15   BLKBIT              ONE BIT
     1773   01 01409    6AF0142A              BAL,15   BITONLY           WRITE BIT ONLY
     1774   01 0140A    6AF0142A              BAL,15   BITONLY
     1775   01 0140B    22400004 A            LI,4     4
     1776   01 0140C    6AF01427              BAL,15   BLKBIT
     1777   01 0140D    6440140C              BDR,4    %-1                 TRANSFER
     1778   01 0140E    6AF0142A              BAL,15   BITONLY               ALL SWITCHES
     1779   01 0140F    6AF0142A              BAL,15   BITONLY
     1780   01 01410    6AF01427              BAL,15   BLKBIT
     1781   01 01411    22400003 A            LI,4     3
     1782   01 01412    6AF0142A              BAL,15   BITONLY
     1783   01 01413    64401412              BDR,4    %-1
     1784                            *
     1785   01 01414    22300002 A            LI,3     2
     1786   01 01415    224FFFFD A            LI,4     -3
     1787   01 01416    3268120B     STGETCM  LW,6     CM1+3,4           GET CLOCK MARGIN
     1788   01 01417    4B601996              AND,6    HF                TURN FIXED BIT OFF
     1789   01 01418    21600001 A            CI,6     1                 IS IT SLOW
     1790   01 01419    6910141D              BCS,1    STNORM            B IF NORM
     1791   01 0141A    6920141F              BCS,2    STFAST            B IF FAST
     1792   01 0141B    227000E2 A            LI,7     'S'               ITS SLOW
     1793   01 0141C    68001420              B        STFAST+1
     1794   01 0141D    227000D5 A   STNORM   LI,7     'N'
     1795   01 0141E    68001420              B        STFAST+1
     1796   01 0141F    227000C6 A   STFAST   LI,7     'F'
     1797   01 01420    7576272B              STB,7    MSG85+16,3        STORE CHAR IN MSG
     1798   01 01421    20300003 A            AI,3     3                 INCR BYTE INDEX
     1799   01 01422    65401416              BIR,4    STGETCM
     1800                            *
     1801   01 01423    02200000 A            LCI      0
     1802   01 01424    2A0019C5              LM,0     STEMPLOC          RESTORE REGS.
     1803   01 01425    EA6003C6              BAL,LINK *#ENUSER%         ARM THE USER
     1804   01 01426    E800000F A            B        *15               RETURN
     1805                            *
     1806                            *
     1807                            *
     1808   01 01427    22800040 A   BLKBIT   LI,8     X'40'
     1809   01 01428    20300001 A            AI,3     1
     1810   01 01429    75862720              STB,8    MSG85+5,3         STORE A BLANK IN MSG
     1811   01 0142A    22800000 A   BITONLY  LI,8     0
     1812   01 0142B    25800101 A            SLD,8    1                 GET NEXT BIT
     1813   01 0142C    498019BA              OR,8     HF0               MAKE EBCDIC CHAR
     1814   01 0142D    20300001 A            AI,3     1
     1815   01 0142E    75862720              STB,8    MSG85+5,3         STORE ON CHAR IN MSG
     1816   01 0142F    E800000F A            B        *15               RETURN

     1818                            *        READ AND TEST MEMORY STATUS FOR MEMORY CALCULATION
     1819                            *
     1820   01 01430    02200000 A   MEMSTAT  LCI      0
     1821   01 01431    2B00150F              STM,0    MSTREG            SAVE ALL REG'S

     1823   01 01432    6AF013AD              BAL,15   STATWD

     1825   01 01433    228FFFFF A            LI,8     -1
     1826   01 01434    358015E1              STW,8    ERRTST            RESET ERROR TITLE MSG

     1828   01 01435    3300195B              MTW,0    MCALFLG           DID TRAP OCCUR
     1829   01 01436    68301503              BCR,3    MSRET             B IF YES

     1831   01 01437    32800005 A            LW,8     5                 GET TEST ADR
     1832   01 01438    6AF01686              BAL,15   EBCDIC            CONVERT
     1833   01 01439    35901541              STW,9    STSFORM+1
     1834   01 0143A    22300001 A            LI,3     1
     1835   01 0143B    55861540              STH,8    STSFORM,3


     1838   01 0143C    22800000 A            LI,8     0
     1839   01 0143D    3580195B              STW,8    MCALFLG           RESET MEMORY CALC. FLAG

     1841   01 0143E    3290194B              LW,9     WORD0             COMPUTE BANK NUMBER
     1842   01 0143F    2590000E A            SLS,9    14                 ASSUME OLD MEMORY

     1844   01 01440    33001562              MTW,0    MOSFLAG           SKIP IF NOT
     1845   01 01441    68301448              BEZ      BNR0               MOS MEMORY

     1847   01 01442    25900001 A            SLS,9    1

     1849   01 01443    228040C1 A            LI,8     ' A'              ASSUME BANK A
     1850   01 01444    33000009 A            MTW,0    9
     1851   01 01445    68101447              BGEZ     %+2
     1852   01 01446    228040C2 A            LI,8     ' B'              SET FOR BANK B

     1854   01 01447    6800144C              B        BNR1

     1856   01 01448    25800101 A   BNR0     SLD,8    1                 COMPUTE OLD-FORMAT
     1857   01 01449    25800007 A            SLS,8    7                  BANK NUMBER
     1858   01 0144A    25800101 A            SLD,8    1
     1859   01 0144B    49801938              OR,8     HBBF0F0

     1861   01 0144C    55801543     BNR1     STH,8    STSFORM+3

     1863   01 0144D    22800000 A            LI,8     0
     1864   01 0144E    3290194B              LW,9     WORD0
     1865   01 0144F    25900010 A            SLS,9    16
     1866   01 01450    25800110 A            SLD,8    16
     1867   01 01451    4B801994              AND,8    H1FFF
     1868   01 01452    22AFFFFF A            LI,10    -1
     1869   01 01453    22BFFFFF A            LI,11    -1
     1870   01 01454    48B00008 A            EOR,11   8                 EXTRACT AND
     1871   01 01455    6AF016C4              BAL,15   CNT:BITS            CONVERT TO DECIMAL
     1872   01 01456    207FFFED A            AI,7     -19                   THE PORT #
     1873   01 01457    21700009 A            CI,7     9
     1874   01 01458    6820145A              BCR,2    %+2
     1875   01 01459    20700006 A            AI,7     6
     1876   01 0145A    32800007 A            LW,8     7
     1877   01 0145B    6AF01686              BAL,15   EBCDIC
     1878   01 0145C    55901544              STH,9    STSFORM+4

     1880   01 0145D    32901956              LW,9     INTRL#            GET INTERLEAVE MODE
     1881   01 0145E    47901951              STS,9    INTRLSYS           SAVE SYSTEM INTERLEAVE STATE

     1883   01 0145F    33000009 A            MTW,0    9                 CHECK STATE OF THIS BANK
     1884   01 01460    68301465              BEZ      NILV

     1886   01 01461    21800002 A            CI,8     2
     1887   01 01462    69301467              BNE      2WY

     1889   01 01463    3280199F              LW,8     H4040F4E6         '4W'
     1890   01 01464    68001468              B        %+4

     1892   01 01465    32801938     NILV     LW,8     HBBF0F0           '00'
     1893   01 01466    68001468              B        %+2

     1895   01 01467    328019A0     2WY      LW,8     H4040F2E6         '2W'
     1896   01 01468    55801545              STH,8    STSFORM+5         STORE INTRL MODE

     1898   01 01469    32801565              LW,8     BANKSIZE          COMPUTE BANK SIZE
     1899   01 0146A    2580007C A            SLS,8    -4                 IN K WORDS FOR DISPLAY

     1901   01 0146B    227FFFF8 A            LI,7     BSBEG-BSEND
     1902   01 0146C    318E1558              CW,8     BSEND,7
     1903   01 0146D    6830146F              BE       %+2
     1904   01 0146E    6570146C              BIR,7    %-2

     1906   01 0146F    329E1561              LW,9     BSNAM,7
     1907   01 01470    328018A0              LW,8     BLANKS

     1909   01 01471    217FFFF9 A            CI,7     -7                LOOK FOR LARGE BANKS
     1910   01 01472    69201474              BG       %+2                (.GE.1024K)
     1911   01 01473    25800308 A            SCD,8    8

     1913   01 01474    22700003 A            LI,7     3                 SAVE FIRST BYTE OF SIZE
     1914   01 01475    758E1545              STB,8    STSFORM+5,7
     1915   01 01476    35901546              STW,9    STSFORM+6         SAVE REST OF SIZE

     1917   01 01477    22800000 A            LI,8     0                 GET MEMORY UNIT
     1918   01 01478    3290194C              LW,9     WORD1              NUMBER

     1920   01 01479    25900004 A            SLS,9    4
     1921   01 0147A    25800104 A            SLD,8    4

     1923   01 0147B    33001562              MTW,0    MOSFLAG
     1924   01 0147C    68301481              BEZ      UNR0

     1926   01 0147D    4B8019BB              AND,8    ONE

     1928   01 0147E    32700008 A            LW,7     8                 SAVE UNIT NUMBER
     1929   01 0147F    32001565              LW,0     BANKSIZE           AND UPDATE UNIT SIZE
     1930   01 01480    660E1563              AWM,0    UNITSIZE,7

     1932   01 01481    21800009 A   UNR0     CI,8     9
     1933   01 01482    68201484              BCR,2    %+2
     1934   01 01483    20800006 A            AI,8     6                 CONVERT TO DECIMAL VALUE
     1935   01 01484    3590000E A            STW,9    14                SAVE R9
     1936   01 01485    6AF01686              BAL,15   EBCDIC
     1937   01 01486    55901547              STH,9    STSFORM+7         STORE UNIT #

     1939   01 01487    33001562              MTW,0    MOSFLAG           SKIP IF NOT MOS
     1940   01 01488    68301499              BEZ      USOLD

     1942   01 01489    3290194B              LW,9     WORD0             SKIP IF BANK B
     1943   01 0148A    2590000F A            SLS,9    15
     1944   01 0148B    33000009 A            MTW,0    9
     1945   01 0148C    69101493              BLZ      USNEW0

     1947   01 0148D    3290194C              LW,9     WORD1             SKIP IF BANK B ABSENT
     1948   01 0148E    25900008 A            SLS,9    8
     1949   01 0148F    33000009 A            MTW,0    9
     1950   01 01490    68101493              BGEZ     USNEW0

     1952   01 01491    328018A0              LW,8     BLANKS
     1953   01 01492    680014AA              B        STRUNIT           NO UNIT SIZE YET

     1955   01 01493    329E1563     USNEW0   LW,9     UNITSIZE,7        GET PROPER UNIT SIZE

     1957   01 01494    29801552              CVA,8    USTABLE           CONVERT BIT MASK TO BINARY

     1959   01 01495    32D00008 A            LW,13    8                 POSITION FOR CONVERSION
     1960   01 01496    6A601667              BAL,6    :HEX@DE            AND CONVERT TO DECIMAL

     1962   01 01497    3280000D A            LW,8     13
     1963   01 01498    680014AA              B        STRUNIT

     1965   01 01499    3290000E A   USOLD    LW,9     14                RECOVER SHIFTED LMS DATA
     1966   01 0149A    22800000 A            LI,8     0
     1967   01 0149B    25800102 A            SLD,8    2                 GET UNIT SIZE
     1968   01 0149C    21800000 A            CI,8     0
     1969   01 0149D    693014A0              BNE      %+3

     1971   01 0149E    32801561              LW,8     HBB8B
     1972   01 0149F    680014A5              B        STRUNIT0

     1974   01 014A0    21800001 A            CI,8     1                 16K UNIT SIZE
     1975   01 014A1    693014A4              BNE     %+3                NO

     1977   01 014A2    32801560              LW,8     HB16B
     1978   01 014A3    680014A5              B        STRUNIT0

     1980   01 014A4    3280155F              LW,8     HB32B

     1982   01 014A5    75800009 A   STRUNIT0 STB,8    9                 DELETE FINAL BLANK
     1983   01 014A6    72900009 A            LB,9     9                  IF PRESENT
     1984   01 014A7    21900040 A            CI,9     X'40'
     1985   01 014A8    693014AA              BNE      %+2
     1986   01 014A9    25800278 A            SCS,8    -8

     1988   01 014AA    35801548     STRUNIT  STW,8    STSFORM+8         SAVE UNIT SIZE

     1990   01 014AB    32801937              LW,8     HCORE             SET MEMORY TYPE

     1992   01 014AC    33001562              MTW,0    MOSFLAG
     1993   01 014AD    683014AF              BEZ      %+2

     1995   01 014AE    32801936              LW,8     HMOS

     1997   01 014AF    3180268C              CW,8     MSG56+2           CHECK AGAINST
     1998   01 014B0    683014B6              BE       SAMEMEM            PREVIOUS TYPE

     2000   01 014B1    3580268C              STW,8    MSG56+2           SAVE MEMORY TYPE

     2002                                     #PRINT,2 MSG56A

            01 014B2    EA6003C5
            01 014B3    EA6003CD
            01 014B4    02209A24 A
            01 014B5    EA6003C6

     2004   01 014B6    22800000 A   SAMEMEM  LI,8     0
     2005   01 014B7    3290194C              LW,9     WORD1
     2006   01 014B8    2590000D A            SLS,9    13
     2007   01 014B9    25800101 A            SLD,8    1                 GET VOLTAGE MARGIN
     2008   01 014BA    21800000 A            CI,8     0
     2009   01 014BB    693014BF              BCS,3    %+4
     2010   01 014BC    35801967              STW,8    VMFLG             SET VOLT. MARGIN FLAG
     2011   01 014BD    3280193D              LW,8     HBBC1C2           'AB'NORMAL
     2012   01 014BE    680014C0              B        %+2
     2013   01 014BF    3280193E              LW,8     HBBBD5            'N'ORMAL
     2014   01 014C0    3580154C              STW,8    STSFORM+12        STORE VOLTAGE MARGIN

     2016   01 014C1    3290194E              LW,9     CMRGIN            GET CLOCK MARGIN
     2017   01 014C2    22800000 A            LI,8     0
     2018   01 014C3    25800110 A            SLD,8    16                GET CM01
     2019   01 014C4    21800001 A            CI,8     1
     2020   01 014C5    683014C9              BCR,3    CM01S             SLOW
     2021   01 014C6    692014CB              BCS,2    CM01F             FAST
     2022   01 014C7    228040D5 A            LI,8     ' N'              NORMAL
     2023   01 014C8    680014CC              B        CM01F+1
     2024   01 014C9    228040E2 A   CM01S    LI,8     ' S'
     2025   01 014CA    680014CC              B        CM01F+1
     2026   01 014CB    228040C6 A   CM01F    LI,8     ' F'
     2027   01 014CC    55801549              STH,8    STSFORM+9         STORE CM01 IN MSG

     2029   01 014CD    22800000 A            LI,8     0
     2030   01 014CE    25800102 A            SLD,8    2                 GET CM23
     2031   01 014CF    21800001 A            CI,8     1
     2032   01 014D0    683014D4              BCR,3    CM23S
     2033   01 014D1    692014D6              BCS,2    CM23F
     2034   01 014D2    228000D5 A            LI,8    'N'
     2035   01 014D3    680014D7              B        CM23F+1
     2036   01 014D4    228000E2 A   CM23S    LI,8     'S'               SLOW
     2037   01 014D5    680014D7              B        CM23F+1
     2038   01 014D6    228000C6 A   CM23F    LI,8     'F'               FAST
     2039   01 014D7    22300002 A            LI,3     2
     2040   01 014D8    7586154A              STB,8    STSFORM+10,3      STORE CM23

     2042   01 014D9    22800000 A            LI,8     0
     2043   01 014DA    25800101 A            SLD,8    1
     2044   01 014DB    21800000 A            CI,8     0
     2045   01 014DC    683014DF              BCR,3    CM4N
     2046   01 014DD    228000C6 A            LI,8     'F'               FAST
     2047   01 014DE    680014E0              B        %+2
     2048   01 014DF    228000D5 A   CM4N     LI,8     'N'               NORMAL
     2049   01 014E0    22300003 A            LI,3     3
     2050   01 014E1    7586154B              STB,8    STSFORM+11,3      STORE CM4

     2052   01 014E2    3280194D              LW,8     WORD2
        1*  01 014E3    4B80198E              AND,8    4M                                                *H02
     2054   01 014E4    6AF01686              BAL,15   EBCDIC
     2055   01 014E5    3590154E              STW,9    STSFORM+14        STORE INTERLEAVED ADR
     2056   01 014E6    22300001 A            LI,3     1
     2057   01 014E7    5586154D              STH,8    STSFORM+13,3

     2059   01 014E8    328018A0              LW,8     BLANKS            INITIALIZE HOF FLAG
     2060   01 014E9    3580154F              STW,8    STSFORM+15         TO BLANKS

     2062   01 014EA    33001562              MTW,0    MOSFLAG           LEAVE BLANK IF
     2063   01 014EB    683014F3              BEZ      CHTITL             NOT MOS MEMORY

     2065   01 014EC    3290194B              LW,9     WORD0             ISOLATE HOF BIT
     2066   01 014ED    4B901947              AND,9    HOFBIT             FROM LMS STATUS
     2067   01 014EE    47901952              STS,9    HOFSYS              SET SYSTEM HOF STATE

     2069   01 014EF    33000009 A            MTW,0    9                 CHECK BANK HOF STATE
     2070   01 014F0    683014F3              BEZ      CHTITL             SKIP IF NOT TRUE

     2072   01 014F1    32901948              LW,9     BSTARS            ELSE SET HOF FLAG
     2073   01 014F2    3590154F              STW,9    STSFORM+15         IN STS LINE

     2075         01 014F3           CHTITL   EQU      %
     2076   01 014F3    33101969              MTW,1    1STPASS           FIRST TIME TO PRINT MEM CONFIG.
     2077   01 014F4    693014F9              BCS,3    NOTITL            NO

     2079                                     #PRINT,3 STSHDNGA          DISPLAY STATUS HEADING

            01 014F5    EA6003C5
            01 014F6    EA6003CD
            01 014F7    0320547C A
            01 014F8    EA6003C6

     2081                            NOTITL   #PRINT   STSFORM           PRINT DATA

            01 014F9    EA6003C5
            01 014FA    EA6003CD
            01 014FB    C0005500 A
            01 014FC    EA6003C6
     2082   01 014FD    3310151E              MTW,1    MSTREG+15

     2084   01 014FE    32801953              LW,8     MFTYP             GET FAULTS
     2085   01 014FF    69301506              BCS,3    MSFAULT           B IF FAULTS DETECTED

     2087   01 01500    3300196A              MTW,0    DSFLAG            ENTRY VIA DS DIRECTIVE
     2088   01 01501    69301503              BCS,3    MSRET             B IF YES

     2090   01 01502    6AF01848              BAL,15   CMCHKS            CHECK CLOCK MARGINS

     2092   01 01503    02200000 A   MSRET    LCI      0
     2093   01 01504    2A00150F              LM,0     MSTREG
     2094   01 01505    E800000F A            B        *15

     2096                            MSFAULT  #PRINT   MSG92             MEM FAULTS DETECTED

            01 01506    EA6003C5
            01 01507    EA6003CD
            01 01508    C0009E24 A
            01 01509    EA6003C6
     2097   01 0150A    328018A0              LW,8     BLANKS
     2098   01 0150B    32A018A0              LW,10    BLANKS
     2099   01 0150C    6AF015A2              BAL,15   ERSTS             PRINT ERROR STATUS
     2100   01 0150D    8F9003CA              XPSD,9   *#RUNADDR%        GO TO IDLE
     2101   01 0150E    68001503              B        MSRET             CONTINUE

     2103   01 0150F                 MSTREG   RES      16

     2105         01 0151F           STSHDNGA TEXTCS   ' '
     2106                            STSHDNG  TEXTCS   ;
     2107         01 01520            ' TSTADR    B#  P#  IL BS   U#  US   C01  C23  C4 VM  INTADR HOF'
     2108                                     TEXTCS   ;
     2109         01 01530            ' ------    --  --  -- ---K --  ---K ---  ---  -- --  ------ ---'
     2110                            STSFORM  TEXTCS   ;
     2111         01 01540            ' 000000    00  00  00 0000 00  0000 N    N    N   N  000000 XXX'

     2113   01 01550    00000080 A   BSBEG    DATA     X'80'             2048K
     2114   01 01551    00000040 A            DATA     X'40'             1024K
     2115   01 01552    00000020 A            DATA     X'20'              512K
     2116   01 01553    00000010 A            DATA     X'10'              256K
     2117   01 01554    00000008 A            DATA     X'08'              128K
     2118   01 01555    00000004 A            DATA     X'04'               64K
     2119   01 01556    00000002 A            DATA     X'02'               32K
     2120   01 01557    00000001 A            DATA     X'01'               16K
     2121   01 01558    00000000 A   BSEND    DATA     X'00'                8K

     2123   01 01559    F2F0F4F8 A            DATA     '2048'
     2124   01 0155A    F1F0F2F4 A            DATA     '1024'
     2125   01 0155B    F5F1F240 A            DATA     '512 '
     2126   01 0155C    F2F5F640 A            DATA     '256 '
     2127   01 0155D    F1F2F840 A            DATA     '128 '
     2128   01 0155E    40F6F440 A            DATA     ' 64 '
     2129   01 0155F    40F3F240 A            DATA     ' 32 '
     2130   01 01560    40F1F640 A            DATA     ' 16 '
     2131   01 01561    4040F840 A   BSNAM    DATA     '  8 '

     2133   01 01562                 MOSFLAG  RES      1
     2134   01 01563                 UNITSIZE RES      2
     2135   01 01565                 BANKSIZE RES      1

     2137   01 01566    00000800 A            DATA     2048
     2138   01 01567    00000400 A            DATA     1024
     2139   01 01568    00000200 A            DATA     512
     2140   01 01569    00000100 A            DATA     256
     2141   01 0156A    00000080 A            DATA     128
     2142   01 0156B    00000040 A            DATA     64
     2143   01 0156C    00000020 A            DATA     32
     2144   01 0156D    00000010 A            DATA     16
     2145   01 0156E    00000008 A            DATA     8
     2146   01 0156F    00000004 A            DATA     4
     2147   01 01570    00000002 A            DATA     2
     2148   01 01571    00000001 A            DATA     1
     2149         01 01552           USTABLE  EQU      %-32

     2151         01 01561           HBB8B    EQU      BSNAM
     2152         01 01560           HB16B    EQU      BSNAM-1
     2153         01 0155F           HB32B    EQU      BSNAM-2

     2155                            *        SUBROUTINE TO SET CLOCK MARGINS
     2156                            *
     2157   01 01572    02200000 A   SETCM    LCI      0
     2158   01 01573    2B00158B              STM,0    CMSAVE            SAVE REG'S
     2159   01 01574    22300003 A            LI,3     3
     2160   01 01575    22900000 A            LI,9     0
     2161   01 01576    32861207     NXTCM    LW,8     CM1-1,3
     2162   01 01577    4B8019B9              AND,8    H3                TURN FIXED BIT OFF
     2163   01 01578    2580017E A            SLD,8    -2
     2164   01 01579    64301576              BDR,3    NXTCM             GET NEXT CM
     2165   01 0157A    25800105 A            SLD,8    5
     2166   01 0157B    22900000 A            LI,9     0                 DELETE LAST BIT OF CM4
     2167   01 0157C    25800173 A            SLD,8    -13               POSITION CM BITS TO BIT 9-12
     2168   01 0157D    325018EE              LW,5     LOWLIM            GET LOW LIMIT
     2169   01 0157E    6AF017D3     SETMAR   BAL,15   RSKIP             SKIP RESIDENT AREA
     2170   01 0157F    68001588              B        CMFIN             ALL DONE
     2171   01 01580    6AF017AE              BAL,15   MAP               MAP ADR
     2172   01 01581    02200070 A            LCI      7
     2173   01 01582    2D9A0000 A            LMS,9    0,5               SET CLOCK MARGINS
     2174   01 01583    325017D2              LW,5     MAPTEMP+5         RESTORE ADR
     2175   01 01584    30501993              AW,5     8K                ADD SIZE OF ONE BANK
     2176   01 01585    315018EF              CW,5     HILIM             HIGH LIMIT REACHED
     2177   01 01586    69201588              BCS,2    CMFIN             YES
     2178   01 01587    6800157E              B        SETMAR            SET NEXT BANK
     2179   01 01588    02200000 A   CMFIN    LCI      0
     2180   01 01589    2A00158B              LM,0     CMSAVE
     2181   01 0158A    E800000F A            B        *15               RETURN
     2182                            *
     2183   01 0158B                 CMSAVE   RES      16
     2184                            *
     2185                            *
     2186                            *
     2187                            * SUBROUTINE TO SET MS 0FF-LINE & DEVICE CONTROLLER ON-LINE
     2188                            *
     2189   01 0159B    32701E98     MSOFF    LW,7     SAVEGRP           GET CONTROL GROUP ,CH A OR B
     2190   01 0159C    CF001E96              HIO,0    *IOPMSADR         HALT IOPS
     2191                            *
     2192   01 0159D    32800000 A            LW,8     0                 MS OFF-LINE,DEVICE CONTROLLER(S)
     2193   01 0159E    ED800007 A            WD,8     *7                 ON-LINE
     2194   01 0159F    227FD8F0 A            LI,7     -10000
     2195   01 015A0    657015A0              BIR,7    %
     2196   01 015A1    E800000F A            B        *15               RETURN
     2197                            *
     2198                            *
     2199                            *
     2200                            *
     2201                            * SUBROUTINE TO READ AND PRINT  AN ERROR STATUS WORD
     2202                            *
     2203                            *  ENTRY: R5=FAIL. ADDR.  R8=DATA RECEIVED R10=DATA EXPECTED.
     2204                            *
     2205   01 015A2    70200392     ERSTS    LC       #SENSE
     2206   01 015A3    E910000F A            BCS,1    *15               EXIT IF SSW 4 IS SET
     2207   01 015A4    02200000 A            LCI      0
     2208   01 015A5    2B0015E2              STM,0    ERSTREG           SAVE ALL REG'S
     2209   01 015A6    6AF013DB              BAL,15   STATUS            GET ERROR STATUS
     2210   01 015A7    318018A0              CW,8     BLANKS            IS DATA REC BLANK
     2211   01 015A8    683015B0              BCR,3    RECBLK            YES'
     2212   01 015A9    6AF01686              BAL,15   EBCDIC
     2213   01 015AA    22300008 A            LI,3     8
     2214   01 015AB    22400001 A            LI,4     1
     2215   01 015AC    7598271D              STB,9    MSG85+2,4         STORE DATA RECEIVED
     2216   01 015AD    25800178 A            SLD,8    -8
     2217   01 015AE    204FFFFF A            AI,4     -1
     2218   01 015AF    643015AC              BDR,3    %-3
     2219   01 015B0    3280000A A   RECBLK   LW,8     10
     2220   01 015B1    318018A0              CW,8     BLANKS            IS DATA EXPECT BLANK
     2221   01 015B2    683015BA              BCR,3    EXPTBLK           YES
     2222   01 015B3    6AF01686              BAL,15   EBCDIC
     2223   01 015B4    22300008 A            LI,3     8
     2224   01 015B5    22400002 A            LI,4     2
     2225   01 015B6    7598271F              STB,9    MSG85+4,4         STORE DATA EXPECTED
     2226   01 015B7    25800178 A            SLD,8    -8
     2227   01 015B8    204FFFFF A            AI,4     -1
     2228   01 015B9    643015B6              BDR,3    %-3
     2229   01 015BA    328019C4     EXPTBLK  LW,8     TSTON             GET TEST IN PROG
     2230   01 015BB    683015D4              BCR,3    NOTST
     2231   01 015BC    32901943              LW,9     TSTYP             LOGIC TST
     2232   01 015BD    218000C9 A            CI,8     'I'               ARE MAG TESTS ON
     2233   01 015BE    693015C3              BCS,3    %+5               B IF NO
     2234   01 015BF    328021CF              LW,8     MTST#             GET MAG TST NO
     2235   01 015C0    683015D4              BCR,3    NOTST
     2236   01 015C1    4980193C              OR,8     HTBB0             MAKE MAG TST DIFF FROM LOGIC TST
     2237   01 015C2    32901944              LW,9     TSTYP+1           MAG TEST
     2238   01 015C3    318015E1              CW,8     ERRTST            IS TST STILL SAME AS PREV ERR
     2239   01 015C4    683015D8              BCR,3    ERRSTEX           IF YES BYPASS PRINTING OF TITL
     2240   01 015C5    358015E1              STW,8    ERRTST            IF NO STORE THIS TST
     2241   01 015C6    4980193C              OR,8     HTBB0             INSERT 'T' AND BLANKS FOR MSG
     2242   01 015C7    358026F5              STW,8    MSG84+5           STORE TST NO
     2243   01 015C8    359026F3              STW,9    MSG84+3           STORE TST TYPE
     2244   01 015C9    228FFFFF A            LI,8     -1
     2245   01 015CA    35801969              STW,8    1STPASS           RESET TITLE FLAG
     2246   01 015CB    6AF0163E              BAL,15   DOUBLE           SKIP NEXT PRINT OUT
     2247                                     #TYPE    MSG84

            01 015CC    EA6003C5
            01 015CD    EA6003CC
            01 015CE    00009BC0 A
            01 015CF    EA6003C6
     2248                                     #PRINT   MSG84

            01 015D0    EA6003C5
            01 015D1    EA6003CD
            01 015D2    C0009BC0 A
            01 015D3    EA6003C6
     2249                            NOTST    #PRINT,2 MSG85T

            01 015D4    EA6003C5
            01 015D5    EA6003CD
            01 015D6    02209BD8 A
            01 015D7    EA6003C6
     2250                            ERRSTEX  #PRINT   MSG85

            01 015D8    EA6003C5
            01 015D9    EA6003CD
            01 015DA    C0009C6C A
            01 015DB    EA6003C6
     2251   01 015DC    328015F2              LW,8     STSEXPLABLE       POINTER TO STATUS ERROR EXPL.
     2252   01 015DD    B58003CE              STW,8    *#ERRTEXT%
     2253   01 015DE    02200000 A            LCI      0
     2254   01 015DF    2A0015E2              LM,0     ERSTREG           RESTORE ALL REG'S
     2255   01 015E0    E800000F A            B        *15               RETURN
     2256                            *
     2257   01 015E1    FFFFFFFF A   ERRTST   DATA     -1                TEST NO OF LAST ERR OCCURANCE
     2258   01 015E2                 ERSTREG  RES      16                RESTORE ALL REG'S
     2259                            *
     2260                            *
     2261   01 015F2    2200B47C A   STSEXPLABLE  GEN,8,8,16  34,,ABSVAL(BA(STSEXPL))
     2262                            *
     2263                            *
     2264                            *   SUBROUTINE TO PRINT TRAP LOC., PSWD1, PSWD2, FAULTS, CM ETC.
     2265                            *
     2266                            *        ENTRY: R5=TEST ADR, R7=TRAP LOC., R8=PSWD1, R10=PSWD2.
     2267                            *
     2268   01 015F3    70200392     TRPSTS   LC       #SENSE
     2269   01 015F4    E910000F A            BCS,1    *15               RETURN
     2270   01 015F5    02200000 A            LCI      0
     2271   01 015F6    2B00162E              STM,0    TRPREG            SAVE REG'S
     2272   01 015F7    6AF013DB              BAL,15   STATUS            GET STATUS
     2273   01 015F8    6AF01686              BAL,15   EBCDIC
     2274   01 015F9    22300008 A            LI,3     8
     2275   01 015FA    22400001 A            LI,4     1
     2276   01 015FB    7598271D              STB,9    MSG85+2,4         STORE DATA RECEIVED
     2277   01 015FC    25800178 A            SLD,8    -8
     2278   01 015FD    204FFFFF A            AI,4     -1
     2279   01 015FE    643015FB              BDR,3    %-3
     2280   01 015FF    3280000A A            LW,8     10
     2281   01 01600    6AF01686              BAL,15   EBCDIC
     2282   01 01601    22300008 A            LI,3     8
     2283   01 01602    22400002 A            LI,4     2
     2284   01 01603    7598271F              STB,9    MSG85+4,4         STORE DATA EXPECTED
     2285   01 01604    25800178 A            SLD,8    -8
     2286   01 01605    204FFFFF A            AI,4     -1
     2287   01 01606    64301603              BDR,3    %-3
     2288   01 01607    55702737              STH,7    MSG89+3           STORE TRAP LOC
     2289   01 01608    72801966              LB,8     TCCS              GET TCC
     2290   01 01609    2580007C A            SLS,8    -4
     2291   01 0160A    6AF01686              BAL,15   EBCDIC            CONVERT
     2292   01 0160B    22300001 A            LI,3     1
     2293   01 0160C    55962739              STH,9    MSG89+5,3
     2294   01 0160D    328019C4              LW,8     TSTON             GET TEST IN PROG
     2295   01 0160E    32901943              LW,9     TSTYP             LOGIC TST
     2296   01 0160F    218000C9 A            CI,8     'I'               ARE MAG TESTS ON
     2297   01 01610    69301613              BCS,3    %+3               B IF NO
     2298   01 01611    328021CF              LW,8     MTST#             GET MAG TST NO
     2299   01 01612    32901944              LW,9     TSTYP+1           MAG TEST
     2300   01 01613    4980193C              OR,8     HTBB0             INSERT 'T' AND BLANKS FOR MSG
     2301   01 01614    3580273D              STW,8    MSG89+9           STORE TST NO
     2302   01 01615    3590273B              STW,9    MSG89+7           STORE TST TYPE
     2303   01 01616    22801010              LI,8     TI%REGS           GET REG SAVE ADR
     2304   01 01617    6AF01686              BAL,15   EBCDIC            CONVERT
     2305   01 01618    22300001 A            LI,3     1
     2306   01 01619    55862741              STH,8    MSG89+13,3
     2307   01 0161A    35902742              STW,9    MSG89+14
     2308   01 0161B    228FFFFF A            LI,8     -1
     2309   01 0161C    35801969              STW,8    1STPASS           RESET TITLE FLAG
     2310   01 0161D    358015E1              STW,8    ERRTST            RESET ERR TITL FLAG
     2311                                     #PRINT,3 MSG89

            01 0161E    EA6003C5
            01 0161F    EA6003CD
            01 01620    03209CD0 A
            01 01621    EA6003C6
     2312                                     #PRINT   MSG85

            01 01622    EA6003C5
            01 01623    EA6003CD
            01 01624    C0009C6C A
            01 01625    EA6003C6
     2313   01 01626    6AF0163E              BAL,15   DOUBLE           SKIP NEXT PRINT OUT
     2314                                     #TYPE    MSG89

            01 01627    EA6003C5
            01 01628    EA6003CC
            01 01629    00009CD0 A
            01 0162A    EA6003C6
     2315   01 0162B    02200000 A            LCI      0
     2316   01 0162C    2A00162E              LM,0     TRPREG            RESTORE ALL REG'S
     2317   01 0162D    E800000F A            B        *15               RETURN
     2318                            *
     2319   01 0162E                 TRPREG   RES      16                TRAP REG'S SAVED
     2320                            *
     2321                            *
     2322                            *        ROUTINE TO BYPASS PRINTING OF MSG TWICE
     2323                            *        IF TTY ADR AND PRT ADR ARE SAME.
     2324                            *
     2325   01 0163E    35F01648     DOUBLE   STW,15    DBLRET
     2326   01 0163F    32F00396              LW,15    #TOADDR           IF TTY ADR IS
     2327   01 01640    31F00397              CW,15    #PRTADDR            SAME AS PRT ADR
     2328   01 01641    69301644              BCS,3    %+3                   EXIT
     2329   01 01642    33401648              MTW,4    DBLRET            INCR. RETURN ADR
     2330   01 01643    E8001648              B        *DBLRET           RETURN
     2331   01 01644    F02003D8              LC       *#COCSTAT%        ARE WE IN COC MODE
     2332   01 01645    E8C01648              BCR,12   *DBLRET           EXIT IF NO
     2333   01 01646    33401648              MTW,4    DBLRET            INCR RET ADR
     2334   01 01647    E8001648              B        *DBLRET           EXIT
     2335                            *
     2336   01 01648    00000000 A   DBLRET   DATA     0
     2337                            *
     2338                            *
     2339                            * SUBROUTINE : BINARY TO EBCDIC CONVERSION
     2340                            *        ENTER:  R8 = 32 BITS TO BE CONVERTED
     2341                            *        EXIT :  #BTEBUFF
     2342                            *
     2343                            *
     2344   01 01649    02200040 A   BTE      LCI      4
     2345   01 0164A    2B601662              STM,6    BTETEMPS          SAVE WORK REGISTERS
     2346   01 0164B    32901666              LW,9     BTEINSTR          INITIALIZE INDEXED INSTRUCTION
     2347   01 0164C    35901653              STW,9    BTESTR
     2348   01 0164D    226FFFF8 A            LI,6     -8                HALF-BYTE CNTR
     2349   01 0164E    227FFFFC A   NXT4BITS LI,7     -4                BIT CNTR
     2350   01 0164F    25900007 A            SLS,9    7                 SHIFT TO POSITION
     2351   01 01650    25800301 A            SCD,8    1                 GET NEXT BIT
     2352   01 01651    499019BA              OR,9     HF0               CONVERT TO EBCDIC FORM
     2353   01 01652    6570164F              BIR,7    %-3               GO FOR MORE BITS
     2354   01 01653    3590165A     BTESTR   STW,9    BTEBUFF           STORE IN BUFFER
     2355   01 01654    33101653              MTW,1    %-1               MODIFY POINTER TO BUFFER
     2356   01 01655    6560164E              BIR,6    NXT4BITS          GO FOR MORE HALF-BYTES
     2357   01 01656    02200040 A            LCI      4
     2358   01 01657    2A601662              LM,6     BTETEMPS          RESTOR WORK REGISTERS
     2359   01 01658    E800000F A            B        *15               RETURN
     2360                            *
     2361                                     BOUND    8
     2362   01 0165A                 BTEBUFF RES       8
     2363   01 01662                 BTETEMPS RES      4
     2364   01 01666    3590165A     BTEINSTR STW,9    BTEBUFF
     2365                            *
     2366                            *
     2367                            *
     2368                            *
     2369                            * SUBROUTINE TO CONVERT: HEXADECIMAL  TO DECIMAL (IN EBCDIC)
     2370                            *************************************************
     2371                            *
     2372                            *  ENTER WITH ARGUEMENT IN REGISTER RD (MAX VALUE = 5F5E0FF HEX.)
     2373                            *             RETURN ADDRESS IN REGISTER LINK
     2374                            *
     2375                            *  EXIT WITH EBCDIC VALUE IN REGISTERS RC (MS HALF)  AND RD (LS HALF)
     2376                            *
     2377                            *
     2378   01 01667                 :HEX@DE  RES      0
     2379   01 01667    022000A0 A            LCI      10
     2380   01 01668    2B00169E              STM,0    EBTEMPS           SAVE REGISTERS
     2381   01 01669    22700007 A            LI,7     7
     2382   01 0166A    22400000 A            LI,4     0
     2383   01 0166B    328018A0              LW,8     BLANKS            LOAD ACCUMULATOR WITH BLANKS
     2384   01 0166C    329018A0              LW,9     BLANKS
     2385   01 0166D    22C00000 A   :HEX@D#A LI,12    0                 SET REMAINDER TO ZERO
     2386   01 0166E    36CE167E              DW,12    TENS-1,7          IS THE QUOTIENT SIGNIFICANT
     2387   01 0166F    6870167A              BCR,7    :HEX@D#D          BRANCH IF NO
     2388   01 01670    2240000A A            LI,4     10                INDICATE A SIGNIFICANT CHAR. FOUND
     2389   01 01671    4990000D A   :HEX@D#B OR,9     13                QUOTIENT TO ACCUMULATOR
     2390   01 01672    499019BA              OR,9     HF0                 CONVERT TO EBCDIC
     2391   01 01673    25800108 A            SLD,8    8                 POSITION ACCUM. FOR NEXT CHARACTER
     2392   01 01674    32D0000C A   :HEX@D#C LW,13    12                REMAINDER BECOMES NEW DIVIDEND
     2393   01 01675    6470166D              BDR,7    :HEX@D#A          IF NOT THRU GO GET NEXT DIGIT
     2394   01 01676    4990000D A            OR,9     13                LAST REMAINDER = UNITS DIGIT
     2395   01 01677    499019BA              OR,9     HF0
     2396   01 01678    12C00008 A            LD,12    8
     2397   01 01679    6800167C              B        :HEX@D#X          EXIT
     2398                            *
     2399   01 0167A    64401671     :HEX@D#D BDR,4    :HEX@D#B          CONVERT ZERO IF SIG. CHAR. EXISTS
     2400   01 0167B    68001674              B        :HEX@D#C          PICK UP NEXT CHARACTER
     2401                            *
     2402   01 0167C    022000A0 A   :HEX@D#X LCI      10                RESTORE REGISTERS
     2403   01 0167D    2A00169E              LM,0     EBTEMPS
     2404   01 0167E    E8000006 A            B        *LINK             RETURN
     2405                            *
     2406   01 0167F    0000000A A   TENS     DATA     10,100,1000,10000,100000,1000000,10000000
            01 01680    00000064 A
            01 01681    000003E8 A
            01 01682    00002710 A
            01 01683    000186A0 A
            01 01684    000F4240 A
            01 01685    00989680 A
     2407                            *
     2408                            * SUBROUTINE TO CONVERT A WORD INTO EBCDIC
     2409                            * ENTRY:      R8 = THE WORD
     2410                            * EXIT        R8 + R9 = EBCDIC FORM
     2411                            *
     2412   01 01686    02200000 A   EBCDIC   LCI     0
     2413   01 01687    2B00169E              STM,0    EBTEMPS
     2414   01 01688    EA6003C5              BAL,LINK *#DISUSER%        DISARM USER
     2415   01 01689    225FFFF8 A            LI,5     -8                CHARC CNT
     2416   01 0168A    22100003 A            LI,1     3
     2417   01 0168B    22700000 A            LI,7     0
     2418   01 0168C    72700008 A   NXTCHRC  LB,7     8
     2419   01 0168D    25A00108 A            SLD,10   8
     2420   01 0168E    2570007C A            SLS,7    -4
     2421   01 0168F    21700009 A            CI,7     9                 IS IT #
     2422   01 01690    68201694              BCR,2    %+4
     2423   01 01691    207FFFF7 A            AI,7     -9
     2424   01 01692    497019A1              OR,7     HC0               NO
     2425   01 01693    68001695              B        %+2
     2426   01 01694    497019BA              OR,7     HF0
     2427   01 01695    7572000B A            STB,7    11,1              PLACE IN POSITION
     2428   01 01696    25800204 A            SCS,8    4
     2429   01 01697    6550168C              BIR,5    NXTCHRC           CONVERT NXT CHARACTER
     2430                            *
     2431   01 01698    15A016A6              STD,10   EBTEMPS+8
     2432   01 01699    02200000 A            LCI     0
     2433   01 0169A    2A00169E              LM,0     EBTEMPS
     2434   01 0169B    EA6003C6              BAL,LINK *#ENUSER%         ARM THE USER
     2435   01 0169C    E800000F A            B        *15
     2436                            *
     2437                                   BOUND      8
     2438   01 0169E                 EBTEMPS  RES      16
     2439                            *
     2440                            * RSTORE REGISTERS
     2441                            *
     2442   01 016AE    02200000 A   RETREGS  LCI      0
     2443   01 016AF    2A00196B              LM,0     TEMPR0
     2444   01 016B0    E800000F A            B        *15
     2445                            *
     2446                            *
     2447                            * SAVE ALL GENERAL REGISTERS
     2448                            *
     2449   01 016B1    022000F0 A   SAVREGS  LCI      15
     2450   01 016B2    2B00196B              STM,0    TEMPR0
     2451   01 016B3    E800000F A            B        *15
     2452                            *
     2453                            *
     2454                            *
     2455                            * SUBROUTINE TO DETERMINE THE STATE OF PARITY BIT OF A GIVEN WORD
     2456                            * ENTRY: R9 = GIVEN WORD      R15 = RETURN ADRS.
     2457                            * EXIT : CC = 0  INDICATE PARITY BIT SHOULD BE OFF (ODD BITS)
     2458                            *        CC = 1  INDICATE PARITY BIT SHOULD BE ON (EVEN BITS)
     2459                            *
     2460   01 016B4    22600001 A   PBIT     LI,6     1                 INITIALIZE COUNTER
     2461   01 016B5    35901974              STW,9    TEMPR9
     2462   01 016B6    227FFFE0 A            LI,7     -32               SET BIT CNTR
     2463   01 016B7    22800000 A   NXTPBIT  LI,8     0
     2464   01 016B8    25800101 A            SLD,8    1                 GET NEXT BIT
     2465   01 016B9    21800000 A            CI,8     0                 IS IT ZERO
     2466   01 016BA    683016BC              BCR,3    %+2               YES
     2467   01 016BB    20600001 A            AI,6     1                 NO
     2468   01 016BC    657016B7              BIR,7    NXTPBIT           GO TRY NEXT BIT
     2469   01 016BD    4B6019BB              AND,6    ONE               SAVE LSB
     2470   01 016BE    32901974              LW,9     TEMPR9            RESTORE R9
     2471   01 016BF    2560027C A            SCS,6    -4
     2472   01 016C0    3560197B              STW,6    TEMPCC
     2473   01 016C1    25600204 A            SCS,6    4
     2474   01 016C2    7020197B              LC       TEMPCC            SET CC
     2475   01 016C3    E800000F A            B        *15               RETURN
     2476                            *
     2477                            * SUBROUTINE TO COUNT THE NUMBER OF FAILING BITS IN A FAILING ADDR (FA)
     2478                            * ENTERY :  R11= BAD DATA     R10 = TESTPAT    R15 = RETURN ADDR
     2479                            * EXTIT:    R6 = # OF BAD BITS , R11= BAD DATA
     2480                            *           R7 = BAD BIT #
     2481                            *
     2482                            *
     2483   01 016C4    15801934     CNT:BITS STD,8    R8R9
     2484   01 016C5    EA6003C5              BAL,LINK *#DISUSER%        DISARM USER
     2485   01 016C6    3290000B A            LW,9     11
     2486   01 016C7    22600000 A            LI,6     0                 CLEAR COUNTER
     2487   01 016C8    35601972              STW,6    TEMPR7
     2488   01 016C9    227FFFE0 A            LI,7     -32               SET BIT COUNTER = 32
     2489   01 016CA    4890000A A            EOR,9    10                R9 = BAD BITS
     2490   01 016CB    22800000 A   SHFTBIT  LI,8     0                 CLEAR R8
     2491   01 016CC    25800101 A            SLD,8    1                 GET NEXT BIT TO EXAMINE
     2492   01 016CD    21800000 A            CI,8     0                 IS THIS BIT = 0
     2493   01 016CE    683016D0              BCR,3    %+2               YES
     2494   01 016CF    20600001 A            AI,6     1                 NO,  COUNT
     2495   01 016D0    21600001 A            CI,6     1
     2496   01 016D1    683016D3              BCR,3    %+2
     2497   01 016D2    680016D6              B        BADBSET
     2498   01 016D3    33001972              MTW,0    TEMPR7            1ST BAD BIT# SET
     2499   01 016D4    693016D6              BCS,3    BADBSET           YES
     2500   01 016D5    35701972              STW,7    TEMPR7            SAVE BIT #
     2501   01 016D6    657016CB     BADBSET  BIR,7    SHFTBIT           TRY NEXT BIT
     2502                            *
     2503   01 016D7    32701972              LW,7     TEMPR7            ALL DONE
     2504   01 016D8    20700020 A            AI,7     32                R7 = BIT #
     2505   01 016D9    357016DD              STW,7    BADBIT
     2506   01 016DA    12801934              LD,8     R8R9
     2507   01 016DB    EA6003C6              BAL,LINK *#ENUSER%         ARM THE USER
     2508   01 016DC    E800000F A            B        *15               RETURN
     2509                            *
     2510                            *
     2511   01 016DD    00000000 A   BADBIT   DATA     0
     2512                            *
     2513                            * SUBROUTINE TO FIND THE FAILING HALF-BYTE OF A WORD
     2514                            * ENTRY:   R11= BAD DATA      R10 = TESTPAT    R15 = RETURN ADDR
     2515                            * EXIT :   CC = 0 INDICATES  HALF-BYTE 0  OR  4  FAIL
     2516                            *             = 1 INDICATES  HALF-BYTE 1  OR  5  FAIL
     2517                            *             = 2 INDICATES  HALF-BYTE 2  OR  6  FAIL
     2518                            *             = 3 INDICATES  HALF-BYTE 3  OR  7  FAIL
     2519                            *             = 4 INDICATES  NO HALF-BYTE FAIL SINGULARLY
     2520                            *
     2521   01 016DE    3290000B A   BAD:HB   LW,9     11                SET  BAD DATA IN R9
     2522   01 016DF    22600000 A            LI,6     0                 CLEAR COUNTER
     2523   01 016E0    227FFFF8 A            LI,7     -8                SET HALF-BYTE COUNT = 8
     2524   01 016E1    4890000A A            EOR,9    10                SET R9 = BAD BITS
     2525   01 016E2    22800000 A   SHIFTHB  LI,8     0
     2526   01 016E3    25800104 A            SLD,8    4                 GET NEXT HALF-BYTE
     2527   01 016E4    21800000 A            CI,8     0                 THIS HALF-BYTE = 0 (GOOD HB)
     2528   01 016E5    683016ED              BCR,3    OKHB              YES
     2529   01 016E6    2180000F A            CI,8     X'F'              NO, THEN ALL 4 BITS BAD ?
     2530   01 016E7    693016EF              BCS,3    NOHB                NO
     2531   01 016E8    21900000 A            CI,9     0                    YES,  AND BITS LEFT IN R11= 0
     2532   01 016E9    683016EB              BCR,3    %+2                   YES
     2533   01 016EA    680016EF              B        NOHB                   NO
     2534   01 016EB    4B6019B9              AND,6    H3                SET HALF-BYTE # MOD 3
     2535   01 016EC    680016F0              B        RETHB             RETURN
     2536   01 016ED    20600001 A   OKHB     AI,6     1                 SET COUNT TO NEXT HALF-BYTE
     2537   01 016EE    657016E2              BIR,7    SHIFTHB           BRANCH TO EXAMINE NEXT HALF-BYTE
     2538   01 016EF    22600004 A   NOHB     LI,6     4                 SET COUNTER = 4 IF NO HALF-BYTE BAD
     2539   01 016F0    2560027C A   RETHB    SCS,6    -4
     2540   01 016F1    3560197B              STW,6    TEMPCC
     2541   01 016F2    25600204 A            SCS,6    4
     2542   01 016F3    7020197B              LC       TEMPCC            SET CC
     2543   01 016F4    E800000F A            B        *15               RETURN
     2544                            *
     2545                            * SUBROUTINE TO DETERMINE THE FAILING BYTE OF A WORD
     2546                            * ENTRY:   R11= BAD DATA   R10 = TESTPAT      R15 = RETURN ADDR
     2547                            * EXIT :   CC = 0,1,2,3 SHOWS BYTE 0,1,2,3 FAIL
     2548                            *          CC = 4  MEAN NONE OF THE BYTES FAIL SINGULARLY
     2549                            *
     2550                            *
     2551                            *
     2552   01 016F5    35901974     BAD:BYTE STW,9    TEMPR9            SAVE R9
     2553   01 016F6    3290000B A            LW,9     11
     2554   01 016F7    22600000 A            LI,6     0                 CLEAR COUNTER
     2555   01 016F8    4890000A A            EOR,9    10                SET BAD BITS
     2556   01 016F9    319018A4              CW,9     FF0S
     2557   01 016FA    68301705              BCR,3    BYTE0             YES
     2558   01 016FB    3190199E              CW,9     HFF0000           BYTE 1 BAD
     2559                            *                 ACCORDING TO USER INPUT DEFINITION.
     2560   01 016FC    68301704              BCR,3    BYTE1             YES
     2561   01 016FD    2190FF00 A            CI,9     X'FF00'           BYTE 2 BAD
     2562   01 016FE    68301703              BCR,3    BYTE2             YES
     2563   01 016FF    219000FF A            CI,9     X'FF'             BYTE 3 BAD
     2564   01 01700    68301702              BCR,3    BYTE3             YES
     2565   01 01701    20600001 A            AI,6     1                 NONE OF THE BYTES FAIL ALONE, R6=4
     2566   01 01702    20600001 A   BYTE3    AI,6     1                 R6 = 3
     2567   01 01703    20600001 A   BYTE2    AI,6     1                 R6 = 2
     2568   01 01704    20600001 A   BYTE1    AI,6     1                 R6 = 1
     2569   01 01705    32901974     BYTE0    LW,9     TEMPR9            RESTORE R9
     2570   01 01706    2560027C A            SCS,6    -4
     2571   01 01707    3560197B              STW,6    TEMPCC
     2572   01 01708    25600204 A            SCS,6    4
     2573   01 01709    7020197B              LC       TEMPCC            SET CC
     2574   01 0170A    E800000F A            B        *15               RETURN
     2575                            *
     2576                            * SUBROUTINE TO FIND THE FAILING HALF-WORD
     2577                            * ENTRY:   R11= BAD DATA   R10 = TESTPAT   R15 = RETURN ADDR
     2578                            * EXIT :  R6=CC = 0 MEANS FAILURE IN HALF-WORD 0
     2579                            *               = 1 MEANS FAILURE IN HALF-WORD 1
     2580                            *             = 2  MEANS  NONE OF THE HALF-WORDS FAIL
     2581                            *
     2582   01 0170B    35901974     BAD:HW   STW,9    TEMPR9            SAVE R9
     2583   01 0170C    3290000B A            LW,9     11                          R9 = BAD DATA
     2584   01 0170D    22600000 A            LI,6     0                 CLEAR CNTR
     2585   01 0170E    4890000A A            EOR,9    10                SET R9 = BAD BITS
     2586   01 0170F    4B9019B3              AND,9    HFFFF             FAILURE IN HW1
     2587   01 01710    68301715              BCR,3    HW0               NO
     2588   01 01711    4B9018A3              AND,9    FS0S              YES
     2589   01 01712    68301714              BCR,3    HW1
     2590   01 01713    20600001 A            AI,6     1                 NO HALF-WORD FAILURE
     2591   01 01714    20600001 A   HW1      AI,6     1
     2592   01 01715    22700003 A   HW0      LI,7     3
     2593   01 01716    32901974              LW,9     TEMPR9            RESTORE R9
     2594   01 01717    2560027C A            SCS,6    -4
     2595   01 01718    3560197B              STW,6    TEMPCC
     2596   01 01719    25600204 A            SCS,6    4
     2597   01 0171A    7020197B              LC       TEMPCC            SET CC
     2598   01 0171B    E800000F A            B        *15               RETURN
     2599                            *
     2600                            *
     2601                            * SUBROUTINE TO DETERMINE # OF GOOD LOCATIONS AFTER A GIVEN FAILING ADDR
     2602                            * ENTRY:   R5 = F.A.,   R10 = TESTPAT,   R2 = TESTHI,  R15 = RETURN ADDR
     2603                            * EXIT :   R5 = F.A.,   R6 = # OF GOOD LOCS AFTER F.A.
     2604   01 0171C                 OK:GRUP  RES      0
     2605   01 0171C    EA6003C5              BAL,LINK *#DISUSER%        DISARM USER
     2606   01 0171D    35F0175E              STW,15   FA15
     2607                            *
     2608   01 0171E    22600000 A            LI,6     0                 CLEAR THE COUNTER
     2609   01 0171F    32900005 A            LW,9     5                 SAVE F.A. IN R9
     2610   01 01720    315018EF              CW,5     HILIM             LAST ADDR ?
     2611   01 01721    6810172B     NXTOK    BCR,1    OKDONE
     2612   01 01722    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     2613   01 01723    02200010 A            LCI      1
     2614   01 01724    2D8A0001 A            LMS,8    1,5               FETCH THE BAD DATA
     2615   01 01725    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     2616   01 01726    3180000A A            CW,8     10                DATA OK ?
     2617   01 01727    6930172B              BCS,3    OKDONE            NO
     2618   01 01728    33100006 A            MTW,1    6                 YES, INCREMENT COUNTER
     2619   01 01729    33100005 A            MTW,1    5                  AND ADDR
     2620   01 0172A    68001720              B        NXTOK-1             TRY NEXT ADDR
     2621   01 0172B    46500009 A   OKDONE   XW,5     9                 RESTORE F.A. IN R5
     2622   01 0172C    35601971              STW,6    TEMPR6
     2623   01 0172D    EA6003C6              BAL,LINK *#ENUSER%         ARM THE USER
     2624   01 0172E    32601971              LW,6     TEMPR6
     2625   01 0172F    E800175E              B        *FA15             RETURN
     2626                            *
     2627                            * SUBROUTINE TO FIND NUMBER OF BAD LOCS FOLLOWING A FAILING ADDR (INCLS)
     2628                            * ENTER WITH R5 = F.A.   R10 = TESTPAT   R2= TESTHI ,  R15 = RETURN ADR
     2629                            *            R11 =BAD DATA
     2630                            * EXIT  WITH R8 = # OF BAD LOCS , R9 = # OF CONSEC BAD LOCS IN SAME BITS
     2631                            *
     2632                            *
     2633   01 01730    02200000 A   FA:GRUP  LCI      0
     2634   01 01731    2B0027CA              STM,0    BUF
     2635   01 01732    EA6003C5              BAL,LINK *#DISUSER%        DISARM USER
     2636   01 01733    226FFFFF A            LI,6     -1                R6 = FLAG
     2637   01 01734    221FFFFF A            LI,1     -1
     2638   01 01735    315018EF     NXTFA    CW,5     HILIM             LAST TEST LOCATION +1 ?
     2639   01 01736    6920174F              BCS,2    TALLYFA           YES,
     2640   01 01737    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     2641   01 01738    02200010 A            LCI      1
     2642   01 01739    2D8A0000 A            LMS,8    0,5               FETCH ERRORED DATA
     2643   01 0173A    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     2644   01 0173B    3180000A A            CW,8     10                DATA OK
     2645   01 0173C    6830174F              BCR,3    TALLYFA           YES
     2646   01 0173D    33100001 A            MTW,1    1
     2647   01 0173E    69301740              BCS,3    %+2
     2648   01 0173F    3580175D              STW,8    BADDATA           SAVE BAD DATA
     2649   01 01740    33000006 A            MTW,0    6                 FLAG TO TEST FOR SAME BAD BITS SET
     2650   01 01741    69101745              BCS,1    ANYBIT            NO
     2651   01 01742    4880000B A            EOR,8    11                YES, THE FAILURE IN SAME BITS ?
     2652   01 01743    68301745              BCR,3    ANYBIT                 YES
     2653   01 01744    6800174F              B        TALLYFA                NO
     2654   01 01745    20500001 A   ANYBIT   AI,5     1                 INCREMENT ADRS
     2655   01 01746    3300253F              MTW,0    TAGALT            TO TEST ALT. LOCS  FLG SET
     2656   01 01747    68301735              BCR,3    NXTFA             NO, TRY NEXT LOC.
     2657   01 01748    20500001 A            AI,5     1                 YES,
     2658   01 01749    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     2659   01 0174A    02200010 A            LCI      1
     2660   01 0174B    2D8A0000 A            LMS,8    0,5               FETCH ERRORED DATA
     2661   01 0174C    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     2662   01 0174D    3180000A A            CW,8     10                LOC. OK?
     2663   01 0174E    68301735              BCR,3    NXTFA             YES,
     2664   01 0174F    385027CF     TALLYFA  SW,5     BUF+5
     2665   01 01750    33100006 A            MTW,1    6                 FLAG SET ?
     2666   01 01751    6830175A              BCR,3    TSTBITS           NO, GO TEST FOR SAME BAD BITS
     2667   01 01752    355027D3              STW,5    BUF+9
     2668   01 01753    02200000 A            LCI      0
     2669   01 01754    2A0027CA              LM,0     BUF               SAVE REGS
     2670   01 01755    35F0175E              STW,15   FA15
     2671   01 01756    3580175F              STW,8  FGRP
     2672   01 01757    EA6003C6              BAL,LINK *#ENUSER%         ARM THE USER
     2673   01 01758    326027D0              LW,6     BUF+6
     2674   01 01759    E800000F A            B        *15               RETURN
     2675                            *
     2676   01 0175A    355027D2     TSTBITS  STW,5    BUF+8
     2677   01 0175B    325017D2              LW,5     MAPTEMP+5
     2678   01 0175C    68001735              B        NXTFA             GO TRY SEARCH ON SAME BITS
     2679                            *
     2680   01 0175D    00000000 A   BADDATA  DATA     0
     2681   01 0175E    00000000 A   FA15     DATA     0
     2682   01 0175F    00000000 A   FGRP     DATA     0
     2683                            *
     2684                            *
     2685                            *
     2686                            * SUBROUTINE TO CHECK THE OCCURENCE OF PE  AFTER CHANGING
     2687                            * THE PARITY OF A LOCATION
     2688                            *
     2689   01 01760    22000000 A   PECHK    LI,0     0
     2690   01 01761    35001962              STW,0    RIPFLG            RESET TH FLAG
     2691   01 01762    35F0175E              STW,15   FA15
     2692   01 01763    32A018F4              LW,10    TSTPAT            FETCH THE TEST PATTERN
     2693   01 01764    C8A0000F A            EOR,10   *15               CHANGE REQUESTED BIT(S)
     2694   01 01765    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     2695   01 01766    35AA0000 A            STW,10   0,5                STORE IN TEST LOCATION
     2696   01 01767    02200010 A            LCI      1
     2697   01 01768    2D8A0000 A            LMS,8    0,5              READ AND INHIBIT PARITY
     2698   01 01769    3310175E              MTW,1    FA15
     2699   01 0176A    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     2700                            *
     2701   01 0176B    33001962              MTW,0    RIPFLG            PE OCCURED
     2702   01 0176C    E830175E              BCR,3    *FA15             NO  RETURN
     2703   01 0176D    3310175E              MTW,1    FA15
     2704   01 0176E    35001962              STW,0    RIPFLG            RESET FLAG
     2705   01 0176F    E800175E              B        *FA15             RETURN
     2706                            *
     2707                            *
     2708                            *
     2709   01 01770                 S3HLT    RES      0
     2710   01 01770    70200392              LC       #SENSE            SW3 RESET
     2711   01 01771    68201773              BCR,2    %+2               YES
     2712   01 01772    E800000F A            B        *15               NO,RETURN - DON'T HALT
     2713   01 01773    69101779              BCS,1    NOHLTONERR
     2714   01 01774    356012B5              STW,LINK  TEMPL            SAVE LINK
     2715                                     #TYPE   MSG6               TYPE HALT ON ERROR MESSAGE

            01 01775    EA6003C5
            01 01776    EA6003CC
            01 01777    000095BC A
            01 01778    EA6003C6
     2716         01 01779           NOHLTONERR  EQU      %
     2717   01 01779    8F9003CA              XPSD,9   *#RUNADDR%
     2718   01 0177A    326012B5              LW,LINK   TEMPL            RESTORE LINK
     2719   01 0177B    E800000F A            B        *15               RETURN
     2720                            *
     2721   01 0177C    70200392     S4       LC       #SENSE            READ SWITCHES
     2722   01 0177D    E810000F A            BCR,1    *15               SUPPRESS ERROR PRINT IF SW4 SET
     2723   01 0177E    20F00004 A            AI,15    4                 INCR. RETURN ADR
     2724   01 0177F    E800000F A            B        *15               RETURN
     2725                            *
     2726                            *
     2727                            *
     2728                            *
     2729                            * SUBROUTINE TO TURN ON OR OFF THE MAP BIT IN PSD
     2730                            *
     2731                            *      ENTRY: R8 = 0 TO TURN MAP OFF; R8 = H400000 TO TURN ON
     2732                            *
     2733   01 01780    3530179E     MAPCNTRL STW,3    SAVE3             SAVE R3
     2734   01 01781    33001020              MTW,0    SIG8FLG           IS MACH SIG 8
     2735   01 01782    68301784              BCR,3    %+2               B IF NO
     2736   01 01783    22800000 A            LI,8     0                 FORCE NON MAP MODE
     2737   01 01784    3290199A              LW,9     H400000
     2738   01 01785    22300028 A            LI,3     MOFFEND-MOFF-2
     2739   01 01786    47801908              STS,8    MOFF
     2740   01 01787    47861908              STS,8    MOFF,3            TURN MOFF MAP BITS
     2741   01 01788    203FFFFF A            AI,3     -1
     2742   01 01789    64301787              BDR,3    %-2
     2743   01 0178A    22300003 A            LI,3     3
     2744   01 0178B    32900008 A            LW,9     8
     2745   01 0178C    2590006A A            SLS,9    -22
     2746   01 0178D    499019BA              OR,9     HF0
     2747   01 0178E    75962A81              STB,9    PLINE#J+10,3
     2748   01 0178F    33F01984              MTW,-1   MAPFLG            SET MAP FLAG
     2749   01 01790    3230179E              LW,3     SAVE3             RESTORE R3
     2750   01 01791    0E301916              LPSD,3   MBIT              SET MAP BIT

     2752   01 01792    33000008 A   MBITRET  MTW,0    8                 RETURN IF CALL
     2753   01 01793    E830000F A            BEZ      *15                TO TURN MAP OFF

     2755   01 01794    33001984              MTW,0    MAPFLG            ERROR IF MAP OPTION
     2756   01 01795    E910000F A            BLZ      *15                WAS NOT INSTALLED

     2758                                     #PRINT   MSG94

            01 01796    EA6003C5
            01 01797    EA6003CD
            01 01798    C0009E78 A
            01 01799    EA6003C6

     2760   01 0179A    22800001 A            LI,8     X'0001'           FORCE 128K LIMIT
     2761   01 0179B    5580198E              STH,8    4M

     2763   01 0179C    22800000 A            LI,8     0                 TURN OFF THE MAP
     2764   01 0179D    68001780              B        MAPCNTRL

     2766   01 0179E                 SAVE3    RES      1

     2768                            * SUBROUTINE TO INITIALIZE THE MAP REGISTERS
     2769                            *
     2770                            *
     2771   01 0179F    22700000 A   MAPINTL  LI,7     0
     2772   01 017A0    357018F2              STW,7    MAPLO             RESET MAPLO
     2773   01 017A1    357018F3              STW,7    MAPHI              AND MAPHI
     2774   01 017A2    35701984              STW,7    MAPFLG            RESET FLAG
     2775   01 017A3    33001020              MTW,0    SIG8FLG
     2776   01 017A4    693017AC              BCS,3    MAPRT
     2777                            *
     2778   01 017A5    223FFF80 A            LI,3     -128              WORD CNT TO LOAD MEMORY MAP
     2779   01 017A6    22800001 A            LI,8     1
     2780   01 017A7    22600008 A            LI,6     8
     2781   01 017A8    4970199C              OR,7     H1000000
     2782   01 017A9    6F6A0000 A            MMC,6    5                 LOAD MAP CONTROL IMAGE
     2783   01 017AA    308019A2              AW,8     H20002            MODIFY MAP CONTROL IMAGE
     2784   01 017AB    653017A7              BIR,3    %-4
     2785   01 017AC    0E101914     MAPRT    LPSD,1   %MAPBIT           SET MAP BIT IF REQUIRED
     2786   01 017AD    E800000F A            B        *15               RETURN
     2787                            *
     2788                            *
     2789                            *
     2790                            *
     2791                            * SUBROUTINE TO SET THE MAP REGISTERS WHEN THE MEMORY
     2792                            * SIZE EXCEEDS 128K
     2793                            *
     2794                            *
     2795   01 017AE    355017D2     MAP      STW,5    MAPTEMP+5         SAVE 5
     2796   01 017AF    31501995              CW,5     H1DFFF
     2797   01 017B0    E820000F A            BCR,2    *15               RETURN IF < 128K
     2798   01 017B1    33001020              MTW,0    SIG8FLG           EXIT IF SIG 8
     2799   01 017B2    E930000F A            BCS,3    *15
     2800   01 017B3    195018F2              CLM,5    MAPLO
     2801   01 017B4    689017CA              BCR,9    MAPX
     2802                            *
     2803   01 017B5    02200060 A            LCI      6
     2804   01 017B6    2B0017CD              STM,0    MAPTEMP           SAVE REGS.
     2805   01 017B7    22100001 A            LI,1     1
     2806   01 017B8    4B501998              AND,5    H7FE000           MASK LOWER 13 BITS OF ADDRESS
     2807   01 017B9    355018F2              STW,5    MAPLO             SAVE START. ADR OF 8K
     2808   01 017BA    32400005 A            LW,4     5
     2809   01 017BB    30401994              AW,4     H1FFF             INCR. BY 8K
     2810   01 017BC    354018F3              STW,4    MAPHI             SAVE TOP OF MAPPED 8K
     2811   01 017BD    25500007 A            SLS,5    7                 ALINE
     2812   01 017BE    49100005 A            OR,1     5                 FORCE 1ST CONTROL IMAGE
     2813   01 017BF    25500070 A            SLS,5    -16               ALINE
     2814   01 017C0    30100005 A            AW,1     5                 FORCE 2ND CONTROL IMAGE
     2815                            *
     2816   01 017C1    224FFFF8 A            LI,4     -8                SET COUNTS FOR 16 REGISTERS
     2817   01 017C2    323019A3              LW,3     H1E000            LAST SET OF REGS.FOR CONTROL START
     2818   01 017C3    22200001 A            LI,2     1                 CONTROL IMAGE ADDRS
     2819                            *
     2820   01 017C4    4930199C              OR,3     H1000000          COUNT
     2821   01 017C5    6F2A0000 A            MMC,2    5                 LOAD MAP CONTROL IMAGE
     2822   01 017C6    301019A2              AW,1     H20002            MODIFY MAP CONTROL IMAGE
     2823   01 017C7    654017C3              BIR,4    %-4               TRY NEXT 2 REGS.
     2824                            *
     2825   01 017C8    02200060 A            LCI      6
     2826   01 017C9    2A0017CD              LM,0     MAPTEMP           RESTORE REGISTERS
     2827   01 017CA    4B501994     MAPX     AND,5    H1FFF             CUT OFF ADR. PORT. > 8K
     2828   01 017CB    495019A3              OR,5     H1E000            FORCE START. ADR OF MAP AREA
     2829   01 017CC    0E101914              LPSD,1   %MAPBIT
     2830                            *
     2831   01 017CD                 MAPTEMP  RES      6
     2832                            *
     2833                            *
     2834                            *
     2835                            *
     2836                            *SUBROUTINE TO SKIP TESTING THE RESIDENT AREA OF THE PROGRAM
     2837                            * AND MAKE OTHER ADDRESS ADJUSTMENTS.
     2838                            *
     2839                            *
     2840   01 017D3    33001940     RSKIP    MTW,0    CONTFLG           IS TEST LIMIT CONTIGUOUS
     2841   01 017D4    693017F0              BCS,3    RSKEX             B IF YES
     2842   01 017D5    195018F0              CLM,5    RESLOW
     2843   01 017D6    699017D9              BCS,9    %+3
     2844   01 017D7    325018F1              LW,5     RESHI             GET END OF RES. AREA
     2845   01 017D8    20500001 A            AI,5     1                 INCR BY ONE
     2846   01 017D9    21500140 A            CI,5     X'140'
     2847   01 017DA    692017DC              BCS,2    %+2
     2848   01 017DB    22500140 A            LI,5     X'140'
     2849   01 017DC    3300193F     GSKIP    MTW,0    GAPFLG            ARE THERE ANY GAPS
     2850   01 017DD    683017F0              BCR,3    RSKEX             B IF NO
     2851                            *
     2852   01 017DE    3150197C              CW,5     H1LO              TST ADR < GAP 1
     2853   01 017DF    691017F0              BCS,1    RSKEX             B IF YES
     2854   01 017E0    3150197F              CW,5     H1HI              TA > GAP 1
     2855   01 017E1    692017E4              BCS,2    %+3               NO
     2856   01 017E2    3250197F              LW,5     H1HI              GET NEW TA
     2857   01 017E3    20500001 A            AI,5     1                 ADJUST
     2858   01 017E4    3150197D              CW,5     H2LO              TA < GAP 2
     2859   01 017E5    691017F0              BCS,1    RSKEX             B IF YES
     2860   01 017E6    31501980              CW,5     H2HI              TA > GAP 2
     2861   01 017E7    692017EA              BCS,2    %+3               NO
     2862   01 017E8    32501980              LW,5     H2HI              GET NEW TA
     2863   01 017E9    20500001 A            AI,5     1                 ADJUST
     2864   01 017EA    3150197E              CW,5     H3LO              TA < GAP 3
     2865   01 017EB    691017F0              BCS,1    RSKEX             B IF YES
     2866   01 017EC    31501981              CW,5     H3HI              TA > GAP 3
     2867   01 017ED    692017F0              BCS,2    %+3               YES
     2868   01 017EE    32501981              LW,5     H3HI              GET NEW TA
     2869   01 017EF    20500001 A            AI,5     1                 ADJUST TA
     2870                            *
     2871   01 017F0    315018EF     RSKEX    CW,5     HILIM             OVERFLOW
     2872   01 017F1    E920000F A            BCS,2    *15               YES
     2873   01 017F2    20F00001 A            AI,15    1                 NO
     2874   01 017F3    22000000 A            LI,0     0
     2875   01 017F4    E800000F A            B        *15               RETURN
     2876                            *
     2877                            *
     2878                            *
     2879                            * SUBROUTINE TO DISABLE SYSTEM FAULT INTERRUPT AND MEMORY FAULT
     2880                            * INTERRUPT FOR PARITY-TESTS ONLY, ALSO SET MEDICFLG TO INDICATE
     2881                            * MAGNETIC TEST.
     2882                            *
     2883   01 017F5    35F0175E     DISABLE  STW,15   FA15              SAVE R15

     2885   01 017F6    33001021              MTW,0    SIG7FLG           DO NOT DISABLE MFI
     2886   01 017F7    693017FA              BNEZ     %+3                IF MACHINE IS SIGMA-7

     2888   01 017F8    22800C00 A            LI,8     X'C00'            DISABLE SYSTEM
     2889   01 017F9    6D801100 A            WD,8     X'1100'            FAULT INTERRUPTS (MFI/PFI)

     2891   01 017FA    35901963              STW,9    1STIMFLG          SET FIRST TIME FLAG
     2892   01 017FB    6AF017DC              BAL,15   GSKIP             SKIP GAPS
     2893   01 017FC    E800175E              B        *FA15             RETURN IF TOO BIG
     2894   01 017FD    6AF017AE              BAL,15   MAP               SET MAP REG.
     2895   01 017FE    022000C0 A            LCI      12
     2896   01 017FF    2D8A0000 A            LMS,8    0,5               RESET MFI IF ACTIVE
     2897   01 01800    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     2898   01 01801    E800175E              B        *FA15             RETURN
     2899                            *
     2900                            *
     2901                            * SUBROUTINE TO ENABLE SYSTEM FAULT INTERRUPT AND  MEMORY FAULT
     2902                            * INTERRUPT FOR PARITY-TESTS ONLY.
     2903                            *
     2904                            *
     2905   01 01802    35F0175E     ENABLE   STW,15   FA15              SAVE RETURN REG.
     2906   01 01803    22500000 A            LI,5     0
     2907   01 01804    6AF017DC     ENLOOP   BAL,15   GSKIP             SKIP GAPS
     2908   01 01805    68001811              B        ENABEX            EXIT
     2909   01 01806    6AF013AD              BAL,15   STATWD            GET STATUS
     2910   01 01807    33001953              MTW,0    MFTYP             ANY FAULTS
     2911   01 01808    6930180B              BCS,3    %+3               B IF YES
     2912   01 01809    30501955              AW,5     BKSIZE            INCR. ADR
     2913   01 0180A    68001804              B        ENLOOP            TRY THIS BANK
     2914   01 0180B    6AF017AE              BAL,15   MAP
     2915   01 0180C    022000C0 A            LCI      12
     2916   01 0180D    2D8A0000 A            LMS,8    0,5               RESET MFI IF ACTIVE
     2917   01 0180E    325017D2              LW,5     MAPTEMP+5
     2918   01 0180F    30501955              AW,5     BKSIZE            INCR. ADR
     2919   01 01810    68001804              B        ENLOOP
     2920                            *
     2921   01 01811    22800C00 A   ENABEX   LI,8     X'C00'            ENABLE SYSTEM
     2922   01 01812    6D801200 A            WD,8     X'1200'            FAULT INTERRUPTS (MFI/PFI)
     2923   01 01813    35901963              STW,9    1STIMFLG          SET FIRST TIME FLAG
     2924   01 01814    22800000 A            LI,8     0
     2925   01 01815    35801961              STW,8    MPFLG             RESET MEMORY PARITY FLAG
     2926   01 01816    E800175E              B        *FA15             RETURN
     2927                            *
     2928                            *        SUBROUTINE TO NEUTRALIZE TEST AREA.
     2929                            *
     2930   01 01817    35F0175E     NEUT     STW,15   FA15
     2931   01 01818    325018EE              LW,5     LOWLIM
     2932   01 01819    6AF017D3              BAL,15   RSKIP
     2933   01 0181A    E800175E              B        *FA15
     2934   01 0181B    6AF017AE              BAL,15   MAP
     2935   01 0181C    32A021CC              LW,10    ALL0S
     2936   01 0181D    35AA0000 A            STW,10   0,5
     2937   01 0181E    325017D2              LW,5     MAPTEMP+5
     2938   01 0181F    20500001 A            AI,5     1
     2939   01 01820    6AF017D3              BAL,15   RSKIP
     2940   01 01821    E800175E              B        *FA15
     2941   01 01822    6AF017AE              BAL,15   MAP
     2942   01 01823    32A021CB              LW,10    ALL1S
     2943   01 01824    35AA0000 A            STW,10   0,5
     2944   01 01825    325017D2              LW,5     MAPTEMP+5
     2945   01 01826    20500001 A            AI,5     1
     2946   01 01827    68001819              B        NEUT+2
     2947                            *
     2948                            *        SUBROUTINE TO SPREAD A PATTERN
     2949                            *        ENTRY: R10 = PATTERN TO BE SPREAD
     2950                            *
     2951   01 01828    35F0175E     SPREAD   STW,15   FA15
     2952   01 01829    325018EE              LW,5     LOWLIM
     2953   01 0182A    6AF017D3              BAL,15   RSKIP
     2954   01 0182B    E800175E              B        *FA15
     2955   01 0182C    6AF017AE              BAL,15   MAP
     2956   01 0182D    35AA0000 A            STW,10   0,5
     2957   01 0182E    325017D2              LW,5     MAPTEMP+5
     2958   01 0182F    20500001 A            AI,5     1
     2959   01 01830    6800182A              B        SPREAD+2
     2960                            *
     2961                            *
     2962                            * SUBROUTINE TO ACCEPT HIGH LIMIT AND  LOW LIMIT FROM EXECUTIVE,
     2963                            * ALSO SET BNDKFLG TO INDICATE HIGH LIMIT IS ON 8K BOUNDARY.
     2964                            * EXIT  : R3 =  ONE OF THE FOLLOWING 3 CASES
     2965                            *               (1) HILIM - LOLIM. IF THEY ARE IN THE SAME 8K BLOCK
     2966                            *               (2) LAST LOCATION OF THE 8K BLOCK - LOLIM
     2967                            *               (3) FFFFE001  = 2'COMP OF 1FFF, IF HILIM IS ON BOUNDARY
     2968                            *                   AND LOLIM IS 1ST LOCATION OF 8K BLOCK
     2969                            *
     2970   01 01831    22700000 A   LIMCHECK LI,7     0
     2971   01 01832    357021C1              STW,7    BNDKFLG           RESET BOUNDARY FLAG
     2972   01 01833    323018EF              LW,3     HILIM
     2973   01 01834    4B301994              AND,3    H1FFF             STRIP OFF HIGH ORDER BITS
     2974   01 01835    31301994              CW,3     H1FFF             IS 'HILIM' ON BOUNDARY
     2975   01 01836    6930183E              BNE      LHILIM             SKIP IF NOT ON BOUNDARY

     2977   01 01837    331021C1              MTW,1    BNDKFLG           SET 'BNDKFLG' IF NOT ON BOUNDARY

     2979   01 01838    323018EF     NIN8KB   LW,3     HILIM
     2980   01 01839    49301994              OR,3     H1FFF             RAISE TO BOUNDARY
     2981   01 0183A    38300005 A            SW,3     5                 GET INDEX VALUE
     2982   01 0183B    4B301994              AND,3    H1FFF             STRIP OFF 8K MULTIPLES IF>8K
     2983   01 0183C    3A300003 A            LCW,3    3                   GET 2'S COMP. FOR INDEX
     2984   01 0183D    E800000F A            B        *15               RETURN

     2986   01 0183E    323018EF     LHILIM   LW,3     HILIM
     2987   01 0183F    4B301998              AND,3    H7FE000           STRIP BITS TO 8K BLOCK

     2989   01 01840    327018EE              LW,7     LOWLIM             GET LOW TEST LIMIT
     2990   01 01841    4B701998              AND,7    H7FE000           STRIP BITS TO 8K BLOCK

     2992   01 01842    31300007 A            CW,3     7                 ARE THEY COMPARED
     2993   01 01843    69301838              BCS,3    NIN8KB            B IF NOT COMPARE
     2994                            *                                    (NOT IN THE SAME 8K BLOCK)
     2995   01 01844    323018EF              LW,3     HILIM             IF NO, FORM INDEX
     2996   01 01845    38300005 A            SW,3     5                 VALUE(IN THE SAME
     2997   01 01846    3A300003 A            LCW,3    3                 8K BLOCK)
     2998   01 01847    E800000F A            B        *15               RETURN
     2999                            *
     3000                            *
     3001                            * SUBROUTINE TO CHECK THE TOGGLING OF THE CLOCK MARGINS
     3002                            * OF THE MEMORY BANKS UNDER THE TESTS.
     3003                            *
     3004                            *
     3005                            *
     3006   01 01848    02200000 A   CMCHKS   LCI      0
     3007   01 01849    2B0018DA              STM,0    CMREGS
     3008   01 0184A    22000000 A            LI,0     0
     3009   01 0184B    195018F0              CLM,5    RESLOW            IS RESIDET AREA UNDER TEST
     3010   01 0184C    6830187B              BCR,3    CMRTRN            B IF YES
     3011   01 0184D    6AF017AE              BAL,15   MAP
     3012   01 0184E    223FFFFC A            LI,3     -4
     3013   01 0184F    32E61989     CHKCM01  LW,14    CM01+4,3
     3014   01 01850    02200070 A            LCI      7
     3015   01 01851    2DEA0000 A            LMS,14   0,5
     3016   01 01852    02200090 A            LCI      9
     3017   01 01853    2D9A0000 A            LMS,9    0,5
     3018   01 01854    25900006 A            SLS,9    6                 POSITION CLOCK MARGINS
     3019   01 01855    4B9019A5              AND,9    HC00000           EXCLUDE OTHER BITS
     3020   01 01856    4BE019A5              AND,14   HC00000
     3021   01 01857    31E00009 A            CW,14    9
     3022   01 01858    6830185C              BCR,3    %+4               B IF CM IS OK
     3023   01 01859    2280F0F1 A            LI,8     '01'
     3024   01 0185A    6AF0187E              BAL,15   STCMF             REPORT FAILURE
     3025   01 0185B    6800185D              B        %+2               TRY NEXT CM
     3026   01 0185C    6530184F              BIR,3    CHKCM01
     3027   01 0185D    223FFFFD A            LI,3     -3
     3028   01 0185E    32E6198C     CHKCM23  LW,14    CM23+3,3
     3029   01 0185F    02200070 A            LCI      7
     3030   01 01860    2DEA0000 A            LMS,14   0,5
     3031   01 01861    02200090 A            LCI      9
     3032   01 01862    2D9A0000 A            LMS,9    0,5
     3033   01 01863    25900006 A            SLS,9    6                 POSITION CLOCK MARGINS
     3034   01 01864    4B9019A6              AND,9    H300000           EXCLUDE OTHER BITS
     3035   01 01865    4BE019A6              AND,14   H300000
     3036   01 01866    31E00009 A            CW,14    9
     3037   01 01867    6830186B              BCR,3    %+4               B IF CM IS OK
     3038   01 01868    2280F2F3 A            LI,8     '23'
     3039   01 01869    6AF0187E              BAL,15   STCMF             REPORT FAILURE
     3040   01 0186A    6800186C              B        %+2               TRY NEXT CM
     3041   01 0186B    6530185E              BIR,3    CHKCM23
     3042   01 0186C    223FFFFE A            LI,3     -2
     3043   01 0186D    32E6198E     CHKCM4   LW,14    CM4+2,3
     3044   01 0186E    02200070 A            LCI      7
     3045   01 0186F    2DEA0000 A            LMS,14   0,5
     3046   01 01870    02200090 A            LCI      9
     3047   01 01871    2D9A0000 A            LMS,9    0,5
     3048   01 01872    25900006 A            SLS,9    6                 POSITION CLOCK MARGINS
     3049   01 01873    4B9019A7              AND,9    H80000            EXCLUDE OTHER BITS
     3050   01 01874    4BE019A7              AND,14   H80000
     3051   01 01875    31E00009 A            CW,14    9
     3052   01 01876    6830187A              BCR,3    %+4               B IF CM IS OK
     3053   01 01877    2280F440 A            LI,8     '4 '
     3054   01 01878    6AF0187E              BAL,15   STCMF             REPORT FAILURE
     3055   01 01879    6800187B              B        %+2               TRY NEXT CM
     3056   01 0187A    6530186D              BIR,3    CHKCM4
     3057   01 0187B    02200000 A   CMRTRN   LCI      0
     3058   01 0187C    2A0018DA              LM,0     CMREGS            RESTORE REGISTERS
     3059   01 0187D    E800000F A            B        *15
     3060   01 0187E    55801886     STCMF    STH,8    NOCMCHNG+2        STORE FAILING CM
     3061                                     #PRINT   NOCMCHNG          PRINT FAILING CM

            01 0187F    EA6003C5
            01 01880    EA6003CD
            01 01881    C0006210 A
            01 01882    EA6003C6
     3062   01 01883    E800000F A            B        *15               RETURN

     3064         01 01884           NOCMCHNG TEXTCS   '*** CM-    DID NOT TOGGLE'

     3066                            * SUBROUTINE TO PRINT 'TEST COMPLETED' MESSAGE.
     3067                            *
     3068   01 0188B    35F0189F     TSTCOMP  STW,15   PRTRET            SAVE R15

     3070   01 0188C    3280194A              LW,8     PPASS#            EXIT IF AT LEAST
     3071   01 0188D    21800001 A            CI,8     1                  ONE COMPLETE PASS
     3072   01 0188E    E920000F A            BG       *15                 HAS BEEN ANNOTATED

     3074   01 0188F    328019C4              LW,8     TSTON             GET TEST
     3075   01 01890    E830000F A            BCR,3    *15               EXIT IF ZERO
     3076   01 01891    32901943              LW,9     TSTYP             GET TEST TYPE
     3077   01 01892    218000C9 A            CI,8     'I'               ARE MAG TESTS ON
     3078   01 01893    69301897              BCS,3    %+4               NO
     3079   01 01894    328021CF              LW,8     MTST#             GET MAG TEST NO
     3080   01 01895    E830000F A            BCR,3    *15               EXIT IF ZERO
     3081   01 01896    32901944              LW,9     TSTYP+1           GET TEST TYPE
     3082   01 01897    4980193C              OR,8     HTBB0             INSERT 'T' AND BLANKS
     3083   01 01898    35802733              STW,8    MSG88+5           STORE
     3084   01 01899    35902731              STW,9    MSG88+3             IN MSG

     3086                                     #PRINT   MSG88

            01 0189A    EA6003C5
            01 0189B    EA6003CD
            01 0189C    C0009CB8 A
            01 0189D    EA6003C6
     3087   01 0189E    E800189F              B        *PRTRET           RETURN

     3089   01 0189F                 PRTRET   RES      1

     3091   01 018A0    40404040 A   BLANKS    DATA     X'40404040'
     3092                            *
     3093   01 018A1    FFFFFFFF A   PATTERN   DATA     X'FFFFFFFF'
     3094   01 018A2    00000000 A             DATA     X'00000000'
     3095   01 018A3    FFFF0000 A   FS0S      DATA     X'FFFF0000'
     3096   01 018A4    FF000000 A   FF0S      DATA     X'FF000000'
     3097   01 018A5    00FF0000 A             DATA     X'00FF0000'
     3098   01 018A6    0000FF00 A             DATA     X'0000FF00'
     3099   01 018A7    000000FF A             DATA     X'000000FF'
     3100   01 018A8    F0000000 A             DATA     X'F0000000'
     3101   01 018A9    0F000000 A             DATA     X'0F000000'
     3102   01 018AA    00F00000 A             DATA     X'00F00000'
     3103   01 018AB    000F0000 A             DATA     X'000F0000'
     3104   01 018AC    0000F000 A             DATA     X'0000F000'
     3105   01 018AD    00000F00 A             DATA     X'00000F00'
     3106   01 018AE    000000F0 A             DATA     X'000000F0'
     3107   01 018AF    0000000F A             DATA     X'0000000F'
     3108   01 018B0    AAAAAAAA A             DATA     X'AAAAAAAA'
     3109   01 018B1    CCCCCCCC A             DATA     X'CCCCCCCC'
     3110   01 018B2    DDDDDDDD A             DATA     X'DDDDDDDD'
     3111   01 018B3    01234567 A             DATA     X'01234567'
     3112   01 018B4    89ABCDEF A             DATA     X'89ABCDEF'
     3113   01 018B5    00000013 A   PATSIZE  DATA     %-PATTERN-1
     3114   01 018B6    00000000 A   EXPAT    DATA     0
     3115                            *
     3116   01 018B7                 PLINEIN  RES      19                INPUT BUFFER
     3117   01 018CA                 AMPTEMPS RES      16
     3118                            *
     3119   01 018DA                 CMREGS   RES      16
     3120                            *
     3121   01 018EA    00000000 A   INTRPFLG DATA     0
     3122   01 018EB    00000000 A   INTACFLG DATA     0
     3123   01 018EC    00000000 A   ERRCNT   DATA     0
     3124   01 018ED    00000000 A   ADRFLG   DATA     0
     3125                                     BOUND    8
     3126   01 018EE    00000000 A   LOWLIM   DATA     0
     3127   01 018EF    00000000 A   HILIM    DATA     0
     3128   01 018F0    00000000 A   RESLOW   DATA     0
     3129   01 018F1    00000000 A   RESHI    DATA     0
     3130   01 018F2    00000000 A   MAPLO    DATA     0
     3131   01 018F3    00000000 A   MAPHI    DATA     0
     3132                            *
     3133   01 018F4    00000000 A   TSTPAT   DATA     0
     3134   01 018F5    00000000 A   HW0FLG   DATA     0
     3135   01 018F6    00000000 A   PGENTST  DATA     0
     3136   01 018F7    680BFFFF A   B:M1X5   B        -1,5
     3137   01 018F8    00000000 A   SWDFLG   DATA     0
     3138                            *
     3139   01 018F9    ABCDEFAB A   ABCDEFAB DATA     X'ABCDEFAB'
     3140   01 018FA    680A0000 A   B:INSTR  B        0,5
     3141   01 018FB    E800000F A   RETRNL   B        *15
     3142   01 018FC    000022B3     TESTS    DATA     ANLZ0
     3143   01 018FD    000022C2              DATA     ANLZ1
     3144   01 018FE    000022E1              DATA     ANLZ2
     3145   01 018FF    000022EC              DATA     ANLZ3
     3146   01 01900    00002329              DATA     ANLZ4
     3147   01 01901    0000237B              DATA     ANLZ5
     3148   01 01902    000023DD              DATA     ANLZ6
     3149   01 01903    00002421              DATA     ANLZ7
     3150   01 01904    0000245F              DATA     ANLZ8
     3151   01 01905    0000248B              DATA     ANLZ9
     3152   01 01906    000024AE              DATA     ANLZ10
     3153   01 01907                 LASTEST  RES       0
     3154                            *
     3155                                     BOUND    8
     3156   01 01908                 MOFF     RES      0
     3157   01 01908    000012DE     %IETRP   DATA     %IETRTN
     3158   01 01909    07000000 A            DATA     X'7000000'
     3159   01 0190A    0000131D     %WDTRP   DATA     %WDTRTN
     3160   01 0190B    07000000 A            DATA     X'7000000'
     3161   01 0190C    000011B2     CHKMAPJP DATA     MAPJRTRN
     3162   01 0190D    07000000 A            DATA     X'7000000'
     3163   01 0190E    0000217D     MTST13R  DATA     T13FRTRN
     3164   01 0190F    00000000 A            DATA     0
     3165   01 01910    00001E86     CONFRT   DATA     PCINTRT
     3166   01 01911    00000000 A            DATA     0
     3167   01 01912    00001503     %MCALRT  DATA     MSRET
     3168   01 01913    00000000 A            DATA     0
     3169   01 01914    000017AD     %MAPBIT  DATA     MAPRT+1
     3170   01 01915    00000000 A            DATA     0
     3171   01 01916    00001792     MBIT     DATA     MBITRET
     3172   01 01917    00000000 A            DATA     0
     3173   01 01918    00000000 A   JRTRN    DATA     0,X'7000000'
            01 01919    07000000 A
     3174   01 0191A    00001333     %PEPDF   DATA     %PERTN
     3175   01 0191B    07000000 A            DATA     X'7000000'
     3176   01 0191C    00001A9D     RSTRT    DATA     RESTART
     3177   01 0191D    00000000 A            DATA     0
     3178   01 0191E    00000000 A   %IETRAP  DATA     0,0
            01 0191F    00000000 A
     3179   01 01920    000012DC              DATA     IETRAP,X'7000000'
            01 01921    07000000 A
     3180   01 01922    00000000 A   %INTRAP  DATA     0,0
            01 01923    00000000 A
     3181   01 01924    000012F3              DATA     INTRAP,0
            01 01925    00000000 A
     3182   01 01926    00000000 A   %WDTRAP  DATA     0,0
            01 01927    00000000 A
     3183   01 01928    0000131B              DATA     WDTRAP,X'7000000'
            01 01929    07000000 A
     3184   01 0192A    00000000 A   %MFI     DATA     0,0
            01 0192B    00000000 A
     3185   01 0192C    0000135F              DATA     MFI,0
            01 0192D    00000000 A
     3186   01 0192E    00000000 A   %PE      DATA     0,0
            01 0192F    00000000 A
     3187   01 01930    0000132E              DATA     PE,X'7000000'
            01 01931    07000000 A
     3188                            *
     3189                            *
     3190   01 01932                 MOFFEND  RES      0
     3191                            *
     3192   01 01932    00000000 A   GUIDRET  DATA     0
     3193   01 01933    00000000 A   RBIAS    DATA     0
     3194                            *
     3195                            *
     3196                                     BOUND    8
     3197   01 01934    00000000 A   R8R9     DATA     0,0
            01 01935    00000000 A

     3199   01 01936    D4D6E240 A   HMOS     DATA     'MOS '            NAMES OF VARIOUS
     3200   01 01937    C3D6D9C5 A   HCORE    DATA     'CORE'             MEMORY TYPES

     3202   01 01938    4040F0F0 A   HBBF0F0  DATA     X'4040F0F0'
     3203   01 01939    FFFC0000 A   HFFFC0000 DATA    X'FFFC0000'
     3204   01 0193A    000FFFFF A   HFFFFF   DATA     X'FFFFF'
     3205   01 0193B    0000405C A   HB5C     DATA     X'405C'
     3206   01 0193C    E3404000 A   HTBB0    DATA     X'E3404000'
     3207   01 0193D    4040C1C2 A   HBBC1C2  DATA     '  AB'
     3208   01 0193E    404040D5 A   HBBBD5   DATA     '   N'
     3209   01 0193F    00000000 A   GAPFLG   DATA     0
     3210   01 01940    00000000 A   CONTFLG  DATA     0
     3211   01 01941    00000000 A   EXPFLG   DATA     0
     3212   01 01942    00000000 A   LIMIT    DATA     0

     3214   01 01943    D3D6C74B A   TSTYP    DATA     'LOG.'
     3215   01 01944    D4C1C74B A            DATA     'MAG.'
     3216   01 01945    D5D6D5C5 A            DATA     'NONE'

     3218   01 01946    00800000 A   H800000  DATA     X'00800000'
     3219   01 01947    00020000 A   HOFBIT   DATA     X'00020000'
     3220   01 01948    405C5C5C A   BSTARS   DATA     ' ***'
     3221   01 01949    F0000000 A   HF0000000 DATA    X'F0000000'

     3223         01 0194A           ABSINT   EQU      %

     3225   01 0194A    00000000 A   PPASS#   DATA     0
     3226   01 0194B    00000000 A   WORD0    DATA     0
     3227   01 0194C    00000000 A   WORD1    DATA     0
     3228   01 0194D    00000000 A   WORD2    DATA     0
     3229   01 0194E    00000000 A   CMRGIN   DATA     0,0,0
            01 0194F    00000000 A
            01 01950    00000000 A

     3231   01 01951    00000000 A   INTRLSYS DATA     0                 SYSTEM INTERLEAVE STATE
     3232   01 01952    00000000 A   HOFSYS   DATA     0                 SYSTEM HOF STATE

     3234   01 01953    00000000 A   MFTYP    DATA     0
     3235   01 01954    00000000 A   PELOC    DATA     0
     3236   01 01955    00000000 A   BKSIZE   DATA     0
     3237   01 01956    00000000 A   INTRL#   DATA     0

     3239   01 01957    00000000 A   PERCNTR  DATA     0
     3240   01 01958    00000000 A   OMFLG    DATA     0
     3241   01 01959                 CONTST   RES      1
     3242   01 0195A    00000000 A   PWFLG    DATA     0
     3243   01 0195B    00000000 A   MCALFLG  DATA     0
     3244   01 0195C    00000000 A   STWFLG   DATA     0
     3245   01 0195D    00000000 A   ADRECFLG DATA     0
     3246   01 0195E    00000000 A   CONFLG   DATA     0
     3247   01 0195F    00000000 A   MSADRFLG DATA     0
     3248   01 01960    00000000 A   PEFLG    DATA     0
     3249   01 01961    00000000 A   MPFLG    DATA     0
     3250   01 01962    00000000 A   RIPFLG   DATA     0
     3251   01 01963    00000000 A   1STIMFLG DATA     0
     3252   01 01964    00000000 A   SPFLG    DATA     0
     3253   01 01965    00000000 A   PARTYFLG DATA     0
     3254   01 01966    00000000 A   TCCS     DATA     0
     3255   01 01967    FFFFFFFF A   VMFLG    DATA     -1
     3256   01 01968    00000000 A   DATAFLG  DATA     0
     3257   01 01969    00000000 A   1STPASS  DATA     0
     3258   01 0196A    00000000 A   DSFLAG   DATA     0

     3260   01 0196B                 ABSINTEND RES     0

     3262   01 0196B    00000000 A   TEMPR0   DATA     0
     3263   01 0196C    00000000 A   TEMPR1   DATA     0
     3264   01 0196D    00000000 A   TEMPR2   DATA     0
     3265   01 0196E    00000000 A   TEMPR3   DATA     0
     3266   01 0196F    00000000 A   TEMPR4   DATA     0
     3267   01 01970    00000000 A   TEMPR5   DATA     0
     3268   01 01971    00000000 A   TEMPR6   DATA     0
     3269   01 01972    00000000 A   TEMPR7   DATA     0
     3270   01 01973    00000000 A   TEMPR8   DATA     0
     3271   01 01974    00000000 A   TEMPR9   DATA     0
     3272   01 01975    00000000 A   TEMPRA   DATA     0
     3273   01 01976    00000000 A   TEMPRB   DATA     0
     3274   01 01977    00000000 A   TEMPRC   DATA     0
     3275   01 01978    00000000 A   TEMPRD   DATA     0
     3276   01 01979    00000000 A   TEMPRE   DATA     0
     3277   01 0197A    00000000 A   TEMPRF   DATA     0
     3278   01 0197B    00000000 A   TEMPCC   DATA     0
     3279                            *
     3280   01 0197C    00000000 A   H1LO     DATA     0
     3281   01 0197D    00000000 A   H2LO     DATA     0
     3282   01 0197E    00000000 A   H3LO     DATA     0
     3283   01 0197F    00000000 A   H1HI     DATA     0
     3284   01 01980    00000000 A   H2HI     DATA     0
     3285   01 01981    00000000 A   H3HI     DATA     0
     3286                            *
     3287   01 01982    00000000 A   MEMRYSIZ DATA     0
     3288   01 01983    00000000 A   SIPASS   DATA     0
     3289   01 01984    00000000 A   MAPFLG   DATA     0
     3290   01 01985    00000000 A   CM01     DATA     0
     3291   01 01986    00400000 A            DATA     X'400000'         SSF
     3292   01 01987    00800000 A            DATA     X'800000'         FFN
     3293   01 01988    00000000 A            DATA     0
     3294   01 01989    00100000 A   CM23     DATA     X'100000'         CM23 SLOW
     3295   01 0198A    00200000 A            DATA     X'200000'         CM23 FAST
     3296   01 0198B    00000000 A            DATA     0                 NORMAL
     3297   01 0198C    00080000 A   CM4      DATA     X'80000'          CM4 FAST
     3298   01 0198D    00000000 A            DATA     0                 NORMAL

     3300   01 0198E    003FFFFF A   4M       DATA     X'3FFFFF'         4KK WORDS OF MEMORY

     3302                                     BOUND    8
     3303   01 01990    0000000A A   CMVAL    DATA     X'A',X'C'
            01 01991    0000000C A
     3304   01 01992    00004000 A   RBLOCK   DATA     X'4000'           16 K
     3305   01 01993    00002000 A   8K        DATA    X'2000'
     3306   01 01994    00001FFF A   H1FFF     DATA    X'1FFF'
     3307   01 01995    0001DFFF A   H1DFFF   DATA     X'1DFFF'
     3308   01 01996    0000000F A   HF        DATA    X'F'
     3309   01 01997    7FFC0000 A   H7FFC0000 DATA    X'7FFC0000'

     3311   01 01998    007FE000 A   H7FE000  DATA     X'7FE000'
     3312   01 01999    007FF000 A   H7FF000  DATA     X'7FF000'

     3314   01 0199A    00400000 A   H400000   DATA    X'400000'
     3315   01 0199B    02000000 A   H02000000 DATA    X'02000000'
     3316   01 0199C    01000000 A   H01000000 DATA    X'01000000'
     3317   01 0199D    FF100000 A   HFF100000 DATA    X'FF100000'
     3318   01 0199E    00FF0000 A   HFF0000   DATA    X'FF0000'
     3319   01 0199F    4040F4E6 A   H4040F4E6 DATA    X'4040F4E6'
     3320   01 019A0    4040F2E6 A   H4040F2E6 DATA    X'4040F2E6'
     3321   01 019A1    000000C0 A   HC0       DATA    X'C0'
     3322         01 0199C           H1000000   EQU     H01000000
     3323   01 019A2    00020002 A   H20002    DATA    X'20002'
     3324   01 019A3    0001E000 A   H1E000    DATA    X'1E000'
     3325         01 019A3           1E000     EQU     H1E000
     3326   01 019A4    0003E000 A   H3E000    DATA    X'3E000'
     3327   01 019A5    00C00000 A   HC00000   DATA    X'C00000'
     3328   01 019A6    00300000 A   H300000  DATA     X'300000'
     3329   01 019A7    00080000 A   H80000   DATA     X'80000'
     3330   01 019A8    4040FFFF A   H4040FFFF DATA    X'4040FFFF'
     3331   01 019A9    00004040 A   H4040     DATA    X'4040'
     3332   01 019AA    40405C00 A   H40405C00 DATA    X'40405C00'
     3333   01 019AB    00FFF003 A   HFFF003   DATA    X'FFF003'
     3334   01 019AC    00004000 A   H4000     DATA    X'4000'
     3335   01 019AD    00FFE000 A   HFFE000   DATA    X'FFE000'
     3336   01 019AE    000007FF A   H7FF      DATA    X'7FF'
     3337   01 019AF    00003FFF A   H3FFF     DATA    X'3FFF'
     3338   01 019B0    00FFF000 A   HFFF000   DATA    X'FFF000'
     3339   01 019B1    FFF40000 A   HFFF40000 DATA    X'FFF40000'
     3340   01 019B2    000000FF A   HFF       DATA    X'FF'
     3341   01 019B3    0000FFFF A   HFFFF     DATA    X'FFFF'
     3342   01 019B4    00000100 A   H100      DATA    X'100'
     3343   01 019B5    C0000000 A   HC0000000 DATA    X'C0000000'
     3344   01 019B6    FFFF0000 A   HFFFF0000 DATA    X'FFFF0000'
     3345   01 019B7    00200000 A   H200000   DATA    X'200000'
     3346   01 019B8    003FF800 A   H3FF800   DATA    X'3FF800'
     3347   01 019B9    00000003 A   H3        DATA    X'3'
     3348   01 019BA    000000F0 A   HF0       DATA    X'F0'
     3349   01 019BB    00000001 A   ONE       DATA    1

     3351                                     BOUND    8
     3352   01 019BC    0F201922     TRP40    XPSD,2   %INTRAP           NON-ALLOWED OPERATION TRAP
     3353   01 019BD    0F201922     TRP41    XPSD,2   %INTRAP           UNIMPLEMENTED INSTRUCTION TRAP
     3354   01 019BE    0F20192E     TRP4C    XPSD,2   %PE               PE
     3355   01 019BF    0F20191E     TRP4D    XPSD,2   %IETRAP           INSTR EXCEPTION TRAP
     3356   01 019C0    0F201926     TRP46    XPSD,2   %WDTRAP           WATCH DOG TIMER TRAP
     3357   01 019C1    0F20192A     TRP57    XPSD,2   %MFI              MFI

     3359   01 019C2    C6C1C9D3 A   FAIL     TEXT     'FAIL'
     3360   01 019C3    C7D6D6C4 A   OK       TEXT     'GOOD'
     3361                            *
     3362   01 019C4    00000000 A   TSTON    DATA     0
     3363   01 019C5                 STEMPLOC RES       16
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   13
A    3365   01 019D5    32801022     START    LW,8     MFIRBIT
     3366   01 019D6    6D801100 A            WD,8     X'1100'           DISARM AND DISABLE MFI

     3368   01 019D7    33000394              MTW,0    #LOADFLAG
     3369   01 019D8    69301A7A              BNEZ     INITDONE          SKIP INITIALIZATION

     3371   01 019D9    3250198E              LW,5     4M                SET MAXIMUM MEMORY
     3372   01 019DA    33001020              MTW,0    SIG8FLG            TEST FOR SIGMA 8 (NO MAP)
     3373   01 019DB    683019DD              BEZ      %+2                 SKIP IF FALSE
     3374   01 019DC    325021C5              LW,5     128K                 ELSE LIMIT TEST CAPACITY
     3375   01 019DD    35501942              STW,5    LIMIT                 SAVE MEMORY SIZE

     3377   01 019DE    22500000 A            LI,5     0
     3378   01 019DF    3550195B              STW,5    MCALFLG
     3379   01 019E0    35501955              STW,5    BKSIZE
     3380   01 019E1    3550193F              STW,5    GAPFLG

     3382   01 019E2    35501563              STW,5    UNITSIZE+0        CLEAR UNIT 0 SIZE
     3383   01 019E3    35501564              STW,5    UNITSIZE+1        CLEAR UNIT 1 SIZE

     3385   01 019E4    223FFFFF A            LI,3     -1
     3386   01 019E5    35301969              STW,3    1STPASS

     3388   01 019E6    223FFFFD A            LI,3     -3                MAXIMUM GAP COUNTER

     3390   01 019E7    6AF01A80     GAPS     BAL,15   YTRP              FIND END OF MEMORY
     3391   01 019E8    32600005 A            LW,6     5                 RETURN HERE IF TRAP OCCURED
     3392   01 019E9    4B601999              AND,6    H7FF000           ADJUST LAST 2 BITS
     3393   01 019EA    3566197F              STW,6    H1LO+3,3
     3394   01 019EB    35601982              STW,6    MEMRYSIZ          STORE MEMORY SIZE+1
     3395   01 019EC    33F01982              MTW,-1   MEMRYSIZ          ADJUST SIZE
     3396   01 019ED    6AF01A8E              BAL,15   NTRP              SEE IF MORE MEM AFTER A GAP
     3397   01 019EE    32600005 A            LW,6     5                 RETURN HERE IF YES
     3398   01 019EF    4B601999              AND,6    H7FF000           ADJUST LAST 2 BITS
     3399   01 019F0    35661982              STW,6    H1HI+3,3
     3400   01 019F1    33F61982              MTW,-1   H1HI+3,3          ADJUST END OF GAP
     3401   01 019F2    30601955              AW,6     BKSIZE            ADD SIZE OF BANK
     3402   01 019F3    35601982              STW,6    MEMRYSIZ          SAVE BEGIN OF NEXT BANK
     3403   01 019F4    33F01982              MTW,-1   MEMRYSIZ          MINUS ONE
     3404   01 019F5    3310193F              MTW,1    GAPFLG            INCR GAP FLAG
     3405   01 019F6    653019E7              BIR,3    GAPS              SEE IF MORE GAPS EXIST

     3407   01 019F7    6AF01A80              BAL,15   YTRP              FIND END OF MEMORY
     3408                                     #PRINT   MSG55             PRINT 'MORE THAN 3 GAPS' MSG

            01 019F8    EA6003C5
            01 019F9    EA6003CD
            01 019FA    C0009A00 A
            01 019FB    EA6003C6
     3409   01 019FC    4B5019B0     LIM1     AND,5    HFFF000           ADJUST SIZE
     3410   01 019FD    35501982              STW,5    MEMRYSIZ
     3411   01 019FE    33F01982              MTW,-1   MEMRYSIZ
     3412   01 019FF    32501982     LIM2     LW,5     MEMRYSIZ
     3413   01 01A00    355018EF              STW,5    HILIM
     3414   01 01A01    315021C5              CW,5     H1FFFF            IS MEMORY LESS THAN 128K
     3415   01 01A02    69201A05              BCS,2    %+3               B IF MORE
     3416   01 01A03    22800000 A            LI,8     0
     3417   01 01A04    6AF01780              BAL,15   MAPCNTRL          TURN MAP OFF
     3418   01 01A05    32800005 A            LW,8     5
     3419   01 01A06    6AF01686              BAL,15   EBCDIC            CONVERT TO EBCDIC
     3420   01 01A07    4B8019A8              AND,8    H4040FFFF
     3421   01 01A08    35802582              STW,8    MSG8+9
     3422   01 01A09    35902583              STW,9    MSG8+10
     3423   01 01A0A    35802B4A              STW,8    %LOUT+3           STORE HI-LIMIT
     3424   01 01A0B    35902B4B              STW,9    %LOUT+4            IN MSG
     3425   01 01A0C    35802B4C              STW,8    %LOUT+5           STORE MEMORY SIZE
     3426   01 01A0D    35902B4D              STW,9    %LOUT+6            IN MSG
     3427   01 01A0E    25500073 A            SLS,5    -13               FORM NO OF 8KS
     3428   01 01A0F    22D00000 A            LI,13    0
     3429   01 01A10    20500001 A            AI,5     1
     3430   01 01A11    20D00008 A            AI,13    8                 ADD NO. OF K SIZE
     3431   01 01A12    64501A11              BDR,5    %-1               REPEAT IF NOT DONE
     3432   01 01A13    6A601667              BAL,LINK  :HEX@DE          CONVERT TO DECIMAL
     3433   01 01A14    35D02580              STW,13   MSG8+7            STORE MEM SIZE (K) IN MSG
     3434   01 01A15    22100001 A            LI,1     1
     3435   01 01A16    22800140 A            LI,8     X'140'
     3436   01 01A17    33000004 A            MTW,0    4                 OPERATING IN LOW CORE
     3437   01 01A18    69301A1A              BCS,3    %+2               NO,
     3438   01 01A19    32801992              LW,8     RBLOCK
     3439   01 01A1A    358018EE              STW,8    LOWLIM            SET UP LOW LIMIT
     3440   01 01A1B    6AF01686              BAL,15   EBCDIC            CONVERT
     3441   01 01A1C    55822B48              STH,8    %LOUT+1,1         STORE LOW LIMIT
     3442   01 01A1D    35902B49              STW,9    %LOUT+2             IN MSG
     3443                            *
     3444                                     #PRINT,3 MSG8A             PRINT MEMORY SIZE MSG.

            01 01A1E    EA6003C5
            01 01A1F    EA6003CD
            01 01A20    032095E0 A
            01 01A21    EA6003C6
     3445   01 01A22    32501982              LW,5     MEMRYSIZ          GET MEMORY SIZE
     3446   01 01A23    22800001 A            LI,8     1
     3447   01 01A24    22300009 A            LI,3     9
     3448   01 01A25    358612C2              STW,8    TS-1,3
     3449   01 01A26    64301A25              BDR,3    %-1
     3450   01 01A27    3530195B              STW,3    MCALFLG           RESET MEM CAL FLAG

     3452   01 01A28    33001562              MTW,0    MOSFLAG           SKIP IF CORE MEMORY
     3453   01 01A29    68301A32              BEZ      LIM3

     3455   01 01A2A    22500000 A            LI,5     0
     3456   01 01A2B    355012C3              STW,5    TS+0              DROP LOGIC TEST A
     3457   01 01A2C    355012C6              STW,5    TS+3              DROP LOGIC TEST D

     3459   01 01A2D    225000F0 A            LI,5     X'F0'
     3460   01 01A2E    22300008 A            LI,3     8
     3461   01 01A2F    75562BDC              STB,5    %AOUT,3
     3462   01 01A30    2230000B A            LI,3     11
     3463   01 01A31    75562BDC              STB,5    %AOUT,3

        1*        01 01A32           LIM3     EQU      %                                                 *H02
        2*  01 01A32    22500000 A            LI,R5    0                 SUPPRESS LOGIC TEST H           *H02
     3469   01 01A33    355012CA              STW,5    TS+7               PORT CONFLICT TEST

     3471   01 01A34    225000F0 A            LI,5     X'F0'
     3472   01 01A35    2230000F A            LI,3     15
     3473   01 01A36    75562BDC              STB,5    %AOUT,3

     3475   01 01A37    33001967     LIM4     MTW,0    VMFLG             SKIP IF NORMAL VOLTAGE
     3476   01 01A38    69301A4C              BCS,3    GAPCHK
     3477   01 01A39    22800010 A            LI,8     X'10'             GET FIXED NORMAL VALUE
     3478   01 01A3A    35801208              STW,8    CM1               SET CM01
     3479   01 01A3B    35801209              STW,8    CM2               SET CM23
     3480   01 01A3C    3580120A              STW,8    CM3               SET CM4
     3481   01 01A3D    228000C1 A            LI,8     'A'               GET EBCDIC 'A'
     3482   01 01A3E    223FFFFD A            LI,3     -3
     3483   01 01A3F    22400000 A            LI,4     0
     3484   01 01A40    75882A7E              STB,8    PLINE#J+7,4       SET J PARAM. LINE
     3485   01 01A41    20400005 A            AI,4     5                 INCR. BYTE INDEX
     3486   01 01A42    65301A40              BIR,3    %-2
     3487                                     #PRINT,2 MSG91

            01 01A43    EA6003C5
            01 01A44    EA6003CD
            01 01A45    02209DCC A
            01 01A46    EA6003C6
     3488   01 01A47    6AF0163E              BAL,15   DOUBLE
     3489                                     #TYPE,2  MSG91

            01 01A48    EA6003C5
            01 01A49    EA6003CC
            01 01A4A    02209DCC A
            01 01A4B    EA6003C6
     3490   01 01A4C    3300193F     GAPCHK   MTW,0    GAPFLG            ARE THERE ANY GAPS IN MEMORY
     3491   01 01A4D    68301A69              BCR,3    INTLCHK           B IF NO
     3492   01 01A4E    3A60193F              LCW,6    GAPFLG            GET NO. OF GAPS
     3493   01 01A4F    223FFFFD A            LI,3     -3                SET INDEX
     3494   01 01A50    22400000 A            LI,4     0
     3495   01 01A51    3286197F     GAPLP    LW,8     H1LO+3,3          GET LOW LIMIT
     3496   01 01A52    6AF01686              BAL,15   EBCDIC            CONVERT
     3497   01 01A53    4B8019B3              AND,8    HFFFF
     3498   01 01A54    49801938              OR,8     HBBF0F0
     3499   01 01A55    35882A38              STW,8    %GOUT+1,4         STORE LOW LIM IN MSG
     3500   01 01A56    35982A39              STW,9    %GOUT+2,4         STORE HIGH LIM IN MSG
     3501   01 01A57    32861982              LW,8     H1HI+3,3          GET LOW LIMIT
     3502   01 01A58    6AF01686              BAL,15   EBCDIC            CONVERT
     3503   01 01A59    4B8019B3              AND,8    HFFFF
     3504   01 01A5A    49801938              OR,8     HBBF0F0
     3505   01 01A5B    35882A3A              STW,8    %GOUT+3,4         STORE LOW LIM IN MSG
     3506   01 01A5C    35982A3B              STW,9    %GOUT+4,4         STORE HIGH LIM IN MSG
     3507   01 01A5D    20400004 A            AI,4     4
     3508   01 01A5E    20300001 A            AI,3     1                 INCR. INDEX
     3509   01 01A5F    65601A51              BIR,6    GAPLP             DO ALL GAPS
     3510                                     #PRINT,2 MSG90

            01 01A60    EA6003C5
            01 01A61    EA6003CD
            01 01A62    02209DA0 A
            01 01A63    EA6003C6
     3511   01 01A64    6AF0163E              BAL,15   DOUBLE
     3512                                     #TYPE,2  MSG90

            01 01A65    EA6003C5
            01 01A66    EA6003CC
            01 01A67    02209DA0 A
            01 01A68    EA6003C6
     3513   01 01A69    33001951     INTLCHK  MTW,0    INTRLSYS          CHECK SYSTEM INTERLEAVE STATE
     3514   01 01A6A    68301A74              BEZ      HOFCHK             SKIP IF NOT INTERLEAVED

     3516                                     #PRINT,2 MSG93             PRINT INTERLEAVE MSG.

            01 01A6B    EA6003C5
            01 01A6C    EA6003CD
            01 01A6D    02209E4C A
            01 01A6E    EA6003C6
     3517   01 01A6F    6AF0163E              BAL,15   DOUBLE            BYPASS SECOND TIME
     3518                                     #TYPE,2  MSG93

            01 01A70    EA6003C5
            01 01A71    EA6003CC
            01 01A72    02209E4C A
            01 01A73    EA6003C6

     3520   01 01A74    33001952     HOFCHK   MTW,0    HOFSYS            CHECK SYSTEM HOF STATE
     3521   01 01A75    68301A7A              BEZ      INITDONE           SKIP IF NOT ANYWHERE SET

     3523                                     #PRINT   HOFWMSG           ELSE DISPLAY WARNING

            01 01A76    EA6003C5
            01 01A77    EA6003CD
            01 01A78    C0009B88 A
            01 01A79    EA6003C6

     3525   01 01A7A    6D000037 A   INITDONE WD,0     X'37'             SET INHIBITS
     3526   01 01A7B    22800060 A            LI,8     X'60'
     3527   01 01A7C    6D801200 A            WD,8     X'1200'           ARM COUNTER 4 AND I/O

     3529   01 01A7D    02200000 A            LCI      0
     3530   01 01A7E    EA601932              BAL,LINK *GUIDRET          RETURN TO GUIDE
     3531   01 01A7F    0000191C              DATA     RSTRT

     3533   01 01A80    35F01A9C     YTRP     STW,15   TRPRTN
     3534   01 01A81    30501955              AW,5     BKSIZE            ADD SIZE OF
     3535   01 01A82    31501942              CW,5     LIMIT
     3536   01 01A83    692019FC              BCS,2    LIM1              B IF LIMIT REACHED
     3537   01 01A84    315021C5              CW,5     H1FFFF            IS TEST ADR ABOVE 128K
     3538   01 01A85    68201A88              BCR,2    %+3               B IF NOT
     3539   01 01A86    3280199A              LW,8     H400000
     3540   01 01A87    6AF01780              BAL,15   MAPCNTRL          TURN MAP ON
     3541   01 01A88    3310195B              MTW,1    MCALFLG           INCR MEM CALC FLAG
     3542   01 01A89    6AF01430              BAL,15   MEMSTAT           PRINT MEMORY STATUS
     3543   01 01A8A    E8001A9C              B        *TRPRTN           RETURN IF TRAP
     3544   01 01A8B    20500001 A            AI,5     1                 INCR ADR FOR INTERL.
     3545   01 01A8C    4B5019AB              AND,5    HFFF003
     3546   01 01A8D    68001A81              B        YTRP+1            LOOP ON NO TRAP
     3547                            *
     3548   01 01A8E    35F01A9C     NTRP     STW,15   TRPRTN
     3549   01 01A8F    30501993              AW,5     8K                ADD 8K
     3550   01 01A90    20500001 A            AI,5     1
     3551   01 01A91    4B5019AB              AND,5    HFFF003
     3552   01 01A92    31501942              CW,5     LIMIT
     3553   01 01A93    692019FF              BCS,2    LIM2              B IF LIMIT REACHED
     3554   01 01A94    315021C5              CW,5     H1FFFF            IS TEST ADR ABOVE 128K
     3555   01 01A95    68201A98              BCR,2    %+3               B IF NOT
     3556   01 01A96    3280199A              LW,8     H400000
     3557   01 01A97    6AF01780              BAL,15   MAPCNTRL          TURN MAP ON
     3558   01 01A98    3310195B              MTW,1    MCALFLG
     3559   01 01A99    6AF01430              BAL,15   MEMSTAT
     3560   01 01A9A    68001A8F              B        NTRP+1            LOOP ON TRAP
     3561   01 01A9B    E8001A9C              B        *TRPRTN           RETURN IF NO TRAP
     3562                            *
     3563   01 01A9C                 TRPRTN   RES      1
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   14
A    3565                            *
     3566                            *
     3567   01 01A9D    33000394     RESTART  MTW,0    #LOADFLAG         LOAD CONDITION YES
     3568   01 01A9E    69301AED              BCS,3    CYCLE             BYPASS PRETEST
     3569                            *
     3570                            *        PE AND MFI PRETEST
     3571                            *
     3572   01 01A9F    229FFFFF A   PRE1     LI,9     -1
     3573   01 01AA0    359018EA              STW,9    INTRPFLG          SET INTERPT FLAG
     3574   01 01AA1    359018F6              STW,9    PGENTST
     3575   01 01AA2    22000000 A            LI,0     0
     3576   01 01AA3    35001962              STW,0    RIPFLG
     3577   01 01AA4    35001960              STW,0    PEFLG             RESET PE FLAG
     3578   01 01AA5    350018EB              STW,0    INTACFLG
     3579   01 01AA6    32801022              LW,8     MFIRBIT
     3580   01 01AA7    6D801100 A            WD,8     X'1100'           DISARM MFI
     3581   01 01AA8    22501954              LI,5     PELOC             GET PARITY LOC
     3582   01 01AA9    359A0000 A            STW,9    0,5               STORE -1 IN TEST LOC
     3583   01 01AAA    02200020 A            LCI      2
     3584   01 01AAB    2D0A0000 A            LMS,0    0,5               CHANGE PARITY

     3586   01 01AAC    33001021              MTW,0    SIG7FLG           SKIP PE TEST IF
     3587   01 01AAD    69301ABF              BNEZ     PEOCC              IF SIGMA 7

     3589   01 01AAE    35901941     PETRP    STW,9    EXPFLG            SET INT EXPT FLAG
     3590   01 01AAF    328A0000 A            LW,8     0,5               FORCE PARITY TRAP
     3591   01 01AB0    70200392              LC       #SENSE
     3592   01 01AB1    69801AAF              BCS,8    %-2               LOOP ON FAILURE
     3593   01 01AB2    33101941              MTW,1    EXPFLG            RESET FLAG
     3594   01 01AB3    33001962              MTW,0    RIPFLG            DID TRAP OCCUR
     3595   01 01AB4    69301ABF              BCS,3    PEOCC             B IF YES
     3596   01 01AB5    70200392              LC       #SENSE
     3597   01 01AB6    69101ABB              BCS,1    PEHLT             B IF SS4 IS SET
     3598                                     #TYPE    MSG76             PE DID NOT OCCUR

            01 01AB7    EA6003C5
            01 01AB8    EA6003CC
            01 01AB9    00009B14 A
            01 01ABA    EA6003C6
     3599   01 01ABB    6AF01770     PEHLT    BAL,15   S3HLT             ERROR HALT
     3600   01 01ABC    70200392              LC       #SENSE
     3601   01 01ABD    69801AAE              BCS,8    PETRP             LOOP ON FAILURE
     3602   01 01ABE    69401A9F              BCS,4    PRE1              LOOP ON TEST

     3604   01 01ABF    22000000 A   PEOCC    LI,0     0
     3605   01 01AC0    35001960              STW,0    PEFLG             RESET PE FLAG
     3606   01 01AC1    35001962              STW,0    RIPFLG

     3608   01 01AC2    229FFFFF A            LI,9     -1
     3609   01 01AC3    35901941              STW,9    EXPFLG            SET FLAG

     3611   01 01AC4    32801022     MFITRP   LW,8     MFIRBIT
     3612   01 01AC5    6D801300 A            WD,8     X'1300'           ARM AND  DISABLE MFI
     3613   01 01AC6    68001AC7              B        %+1
     3614   01 01AC7    68001AC8              B        %+1
     3615   01 01AC8    328A0000 A            LW,8     0,5               FORCE PE AND MFI
     3616   01 01AC9    32901022              LW,9     MFIRBIT
     3617   01 01ACA    6D901400 A            WD,9     X'1400'           ENABLE MFI
     3618   01 01ACB    70200392              LC       #SENSE
     3619   01 01ACC    69801AC4              BCS,8    MFITRP            LOOP ON BASIC TEST
     3620   01 01ACD    33101941              MTW,1    EXPFLG            RESET EXPECTED FLAG

     3622   01 01ACE    33001021              MTW,0    SIG7FLG           SKIP TO OK
     3623   01 01ACF    69301ADC              BNEZ     PEOK               IF SIGMA 7 (NO 4C)

     3625   01 01AD0    33001962              MTW,0    RIPFLG            DID PE OCCUR
     3626   01 01AD1    68301AD4              BCR,3    PR1ERR            NO
     3627   01 01AD2    330018EB              MTW,0    INTACFLG          DID INTERRUPT OCCUR
     3628   01 01AD3    69301AE6              BCS,3    MFIOCC            B IF YES

     3630   01 01AD4    70200392     PR1ERR   LC       #SENSE
     3631   01 01AD5    69101AE2              BCS,1    PR1HLT
     3632   01 01AD6    33001962              MTW,0    RIPFLG            DID PE OCCUR
     3633   01 01AD7    69301ADC              BCS,3    PEOK              YES
     3634                                     #TYPE    MSG76             PE DID NOT OCCUR

            01 01AD8    EA6003C5
            01 01AD9    EA6003CC
            01 01ADA    00009B14 A
            01 01ADB    EA6003C6
     3635   01 01ADC    330018EB     PEOK     MTW,0    INTACFLG          DID MFI OCCUR
     3636   01 01ADD    69301AE2              BCS,3    PR1HLT            YES

     3638                                     #TYPE    MSG15             MFI DID NOT OCCUR

            01 01ADE    EA6003C5
            01 01ADF    EA6003CC
            01 01AE0    00009630 A
            01 01AE1    EA6003C6
     3639   01 01AE2    6AF01770     PR1HLT   BAL,15   S3HLT             ERROR HALT
     3640   01 01AE3    70200392              LC       #SENSE
     3641   01 01AE4    69801AC2              BCS,8    MFITRP-2          LOOP ON ERROR
     3642   01 01AE5    69401A9F              BCS,4    PRE1              LOOP ON TEST

     3644   01 01AE6    350018EB     MFIOCC   STW,0    INTACFLG          RESET FLAG
     3645   01 01AE7    35001962              STW,0    RIPFLG            RESET FLAG
     3646   01 01AE8    350018EA              STW,0    INTRPFLG          RESET FLAG
     3647   01 01AE9    35001960              STW,0    PEFLG             RESET PE FLAG
     3648   01 01AEA    35001954              STW,0    PELOC             CLEAR PE

     3650   01 01AEB    32801022              LW,8     MFIRBIT
     3651   01 01AEC    6D801100 A            WD,8     X'1100'           DISARM MFI

     3653   01 01AED    325018EE     CYCLE    LW,5     LOWLIM            RESTORE LOWLIM IN R5

     3655   01 01AEE    33101B8A              MTW,1    PASS#             INCR. PASS COUNT
     3656   01 01AEF    33101983              MTW,1    SIPASS            INCR. STATUS PRINT COUNT
     3657   01 01AF0    3310194A              MTW,1    PPASS#            INCR. ANNOTATED PASS COUNT

     3659   01 01AF1    22000000 A            LI,0     0
     3660   01 01AF2    350015E1              STW,0    ERRTST            RESET ERR TITLE FLAG
     3661   01 01AF3    3300122C              MTW,0    CICOUNT           ALL CM DONE
     3662   01 01AF4    68301B18              BCR,3    ALLCMOK           YES

     3664   01 01AF5    32801B8B              LW,8     CPASS#
     3665   01 01AF6    3180122C              CW,8     CICOUNT
     3666   01 01AF7    69101B18              BCS,1    ALLCMOK
     3667                            *
     3668   01 01AF8    35001B8B              STW,0    CPASS#            RESET CM PASS COUNT
     3669   01 01AF9    223FFFFD A            LI,3     -3
     3670   01 01AFA    3286120B              LW,8     CM1+3,3           GET CLOCK MARGIN
     3671   01 01AFB    21800010 A            CI,8     X'10'             IS CM FIXED
     3672   01 01AFC    68401AFF              BCR,4    MODCM             B: IF ANY ONE IS NOT FIXED
     3673   01 01AFD    65301AFA              BIR,3    %-3
     3674   01 01AFE    68001B18              B        ALLCMOK           ALL CM'S ARE FIXED
     3675                            *
     3676   01 01AFF    223FFFFD A   MODCM    LI,3     -3
     3677   01 01B00    3286120B              LW,8     CM1+3,3           GET CM
     3678   01 01B01    21800010 A            CI,8     X'10'
     3679   01 01B02    69401B08              BCS,4    CMFXD             B IF FIXED VALUE
     3680   01 01B03    20800001 A            AI,8     1                 INCR CM
     3681   01 01B04    21800002 A            CI,8     2
     3682   01 01B05    68201B07              BCR,2    %+2               B IF CM 0,1,2
     3683   01 01B06    22800000 A            LI,8     0                 SET TO ZERO
     3684   01 01B07    3586120B              STW,8    CM1+3,3           STORE CHANGED CM VALUE
     3685   01 01B08    65301B00     CMFXD    BIR,3    MODCM+1
     3686   01 01B09    3280120A              LW,8     CM3
     3687   01 01B0A    21800001 A            CI,8     1                 CM4 SLOW
     3688   01 01B0B    69301B0D              BCS,3    %+2               NO
     3689   01 01B0C    3310120A              MTW,1    CM3               MAKE IT FAST
     3690                            *
     3691   01 01B0D    223FFFFD A            LI,3     -3
     3692   01 01B0E    22400000 A            LI,4     0
     3693   01 01B0F    3286120B     SETJLN   LW,8     CM1+3,3           GET CLOCK MARGIN
     3694   01 01B10    21800010 A            CI,8     X'10'             IS IT FIXED
     3695   01 01B11    68401B13              BCR,4    %+2               B: IF NO
     3696   01 01B12    208FFFFA A            AI,8     -6                MAKE IT A HEX CHAR
     3697   01 01B13    6AF01686              BAL,15   EBCDIC            CONVERT
     3698   01 01B14    75982A7E              STB,9    PLINE#J+7,4       STORE IN J-PARAM. LINE
     3699   01 01B15    20400005 A            AI,4     5                 INCR. BYTE INDEX
     3700   01 01B16    65301B0F              BIR,3    SETJLN            DO ALL THREE
     3701   01 01B17    6AF01572              BAL,15   SETCM             SET CLOCK MARGINS
     3702                            *
     3703   01 01B18                 ALLCMOK  RES      0
     3704   01 01B18    33101B8B              MTW,1    CPASS#            INCR. CLOCK PASS COUNT
     3705   01 01B19    321018EE              LW,1     LOWLIM
     3706   01 01B1A    322018EF              LW,2     HILIM

     3708   01 01B1B    22800000 A            LI,8     0
     3709   01 01B1C    3580195C              STW,8    STWFLG            RESET STORE FLAG
     3710   01 01B1D    35801964              STW,8    SPFLG             RESET FLAG
     3711   01 01B1E    35801965              STW,8    PARTYFLG          RESET PARITY FLAG
     3712   01 01B1F    35801960              STW,8    PEFLG             RESET PE OCCURRED FLAG
     3713   01 01B20    358018F6              STW,8    PGENTST           RESET FLAG
     3714   01 01B21    358018EA              STW,8    INTRPFLG          RESET FLAG
     3715   01 01B22    358018ED              STW,8    ADRFLG            RESET ADR TST FLG
     3716   01 01B23    35801941              STW,8    EXPFLG            RESET EXPECTS;ED FLAG
     3717   01 01B24    35801DCA              STW,8    RADRFLG           RESET RAND ADR FLAG

     3719   01 01B25    68001B26              B        DATATST           GO TO DATA TEST
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   15
A    3721                            *        LOGIC TEST  A
     3722                            *
     3723                            *        DATA PATH TEST
     3724                            *
     3725   01 01B26    330012C3     DATATST  MTW,0    TS+0              THIS TEST SELECTED
     3726   01 01B27    68301BC1              BEZ      PRTYLGIC          SKIP IF NOT

     3728   01 01B28    228000C1 A            LI,8     'A'
     3729   01 01B29    358019C4              STW,8    TSTON             DATA TEST IN PROGRESS FLG

     3731   01 01B2A    6D000040 A            WD,0     X'40'             TURN ALARM OFF

     3733   01 01B2B    228FFFFF A            LI,8     -1
     3734   01 01B2C    35801968              STW,8    DATAFLG           SET DATA TEST FLAG

     3736   01 01B2D    22800000 A   DATAST   LI,8     0

     3738   01 01B2E    3580195A     DATAPW   STW,8    PWFLG             RESET PARTIAL WRITE FLAG

     3740   01 01B2F    32801022              LW,8     MFIRBIT
     3741   01 01B30    6D801100 A            WD,8     X'1100'           DISARM MFI
     3742   01 01B31    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS

     3744   01 01B32    228FFFFF A   PARTYGO  LI,8     -1
     3745   01 01B33    35801B8C              STW,8    PATFLG
     3746   01 01B34    3580195C              STW,8    STWFLG            SET STORE FLAG
     3747   01 01B35    358018F8              STW,8    SWDFLG

     3749   01 01B36    22800000 A            LI,8     0
     3750   01 01B37    3580244F              STW,8    SAFLAG
     3751   01 01B38    3580253F              STW,8    TAGALT
     3752   01 01B39    358018EC              STW,8    ERRCNT
     3753   01 01B3A    3580195D              STW,8    ADRECFLG

     3755   01 01B3B    22300000 A            LI,3     0                 PAT POINTER
     3756   01 01B3C    328018B5              LW,8     PATSIZE           GET SIZE OF PATTERN TABLE
     3757   01 01B3D    4B8019AE              AND,8    H7FF

     3759   01 01B3E    3300195A              MTW,0    PWFLG             PARTIAL WRITE FLAG SET
     3760   01 01B3F    68301B41              BEZ      %+2               NO
     3761   01 01B40    22800001 A            LI,8     1                 YES,

     3763   01 01B41    22700000 A            LI,7     0
     3764   01 01B42    35801B89              STW,8    TOTALPAT          STORE TOTAL PATTERN #

     3766   01 01B43    33001B8C     SMEAR    MTW,0    PATFLG            PAT FLAG SET
     3767   01 01B44    69301B48              BNEZ     %+4               NO

     3769   01 01B45    67001BA2              EXU      GETCOMP           YES, COMPL. OF TST PATTERN
     3770   01 01B46    20AFFFFF A            AI,10    -1
     3771   01 01B47    68001B49              B        %+2

     3773   01 01B48    67001BA1              EXU      GETPAT

     3775   01 01B49    3300195A              MTW,0    PWFLG             PARTIAL WRITE
     3776   01 01B4A    68301B4D              BEZ      %+3               NO

     3778   01 01B4B    75AE18B6              STB,10   EXPAT,7           SAVE EXPECTED PATTERN
     3779   01 01B4C    68001B4E              B        %+2

     3781   01 01B4D    35A018B6              STW,10   EXPAT             SAVE EXPECTED PATTERN

     3783   01 01B4E    325018EE              LW,5     LOWLIM            R5 = LOWLIMT

     3785   01 01B4F    6AF017D3     AREA     BAL,15   RSKIP             SKIP RESIDENT AREA
     3786   01 01B50    68001B58              B        FULL

     3788   01 01B51    6AF017AE              BAL,15   MAP               SET MAP REGISTERS

     3790   01 01B52    3300195A              MTW,0    PWFLG             PARTIAL WRITE FLAG IS SET
     3791   01 01B53    69301B76              BNEZ     PWSTR             YES,

     3793   01 01B54    35AA0000 A            STW,10   0,5

     3795   01 01B55    325017D2     PWSMR    LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     3796   01 01B56    20500001 A            AI,5     1                 INCR TEST ADR
     3797   01 01B57    68001B4F              B        AREA              NO TRY NEXT LOC
     3798                            *
     3799                            * FETCH ALL LOCATIONS AND COMPARE WITH TEST PATTERN
     3800                            *
     3801   01 01B58    325018EE     FULL     LW,5     LOWLIM            SET CNTR = TEST LOW
     3802   01 01B59    22800000 A            LI,8     0
     3803   01 01B5A    3580195C              STW,8    STWFLG

     3805   01 01B5B    6AF017D3     NXTLOC   BAL,15   RSKIP             SKIP RES. AREA
     3806   01 01B5C    68001BA7              B        PATDONE

     3808   01 01B5D    6AF017AE     FETCH    BAL,15   MAP               SET MAP REGS.
     3809   01 01B5E    229FFFFF A            LI,9     -1
     3810   01 01B5F    35901941              STW,9    EXPFLG            SET FLAG

     3812   01 01B60    3300195A              MTW,0    PWFLG             PARTIAL WRITE FLAG SET
     3813   01 01B61    69301B7A              BNEZ     PWRD              YES,

     3815   01 01B62    68001B63              B        %+1
     3816   01 01B63    68001B64              B        %+1               DUMMIES

     3818   01 01B64    22801B64              LI,8     %                 PRELOAD R8

     3820   01 01B65    328A0000 A   BTA      LW,8     0,5               FETCH THE DATA
     3821   01 01B66    70200392              LC       #SENSE
     3822   01 01B67    69801B64              BCS,8    %-3

     3824   01 01B68    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     3825   01 01B69    33101941              MTW,1    EXPFLG            RESET FLAG

     3827   01 01B6A    3180000A A            CW,8     10                COMPARE EXPECTED
     3828   01 01B6B    68301BA3              BE       LOC:OK             WITH OBSERVED, SKIP IF OK

     3830   01 01B6C    22300000 A   PWER     LI,3     0                 PAT POINTER
     3831   01 01B6D    46A018B6              XW,10    EXPAT             GET EXPECTED PATTERN
     3832   01 01B6E    6AF021FC              BAL,15   ERRORR            REPORT ERROR
     3833   01 01B6F    46A018B6              XW,10    EXPAT             RESTORE TEST PATTERN
     3834   01 01B70    70200392              LC       #SENSE
     3835   01 01B71    69801B5D              BCS,8    FETCH             LOOP ON ERROR
     3836   01 01B72    69401B2D              BCS,4    DATAST            LOOP ON TEST
     3837   01 01B73    33001968              MTW,0    DATAFLG           DATA TEST
     3838   01 01B74    68301D36              BEZ      ADRLTST           B IF NO
     3839   01 01B75    68001BC1              B        PRTYLGIC          DO NEXT TEST

     3841   01 01B76    25500002 A   PWSTR    SLS,5    2                 SET BYTE ADDRS
     3842   01 01B77    30500007 A            AW,5     7                     TO CORRECT BYTE
     3843   01 01B78    75AA0000 A            STB,10   0,5               STORE PATTERN
     3844   01 01B79    68001B55              B        PWSMR             GO GET MORE PATTERN IF ANY

     3846   01 01B7A    25500002 A   PWRD     SLS,5    2                 CONVERT TO BYTE ADR
     3847   01 01B7B    30500007 A            AW,5     7                 ADD BYTE INDEX

     3849   01 01B7C    68001B7D              B        %+1
     3850   01 01B7D    68001B7E              B        %+1

     3852   01 01B7E    22801B7E              LI,8     %                 PRELOAD R8
     3853   01 01B7F    728A0000 A            LB,8     0,5               ACCESS CORE
     3854   01 01B80    70200392              LC       #SENSE
     3855   01 01B81    69801B7E              BCS,8    %-3               LOOP ON ERROR

     3857   01 01B82    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     3858   01 01B83    33101941              MTW,1    EXPFLG            RESET FLAG

     3860   01 01B84    7180000A A            CB,8     10                ARE EXPECTED
     3861   01 01B85    68301BA3              BE       LOC:OK             WITH OBSERVED, SKIP IF OK

     3863   01 01B86    497019BA              OR,7     HF0
     3864   01 01B87    7570256C              STB,7    MSG5+7
     3865   01 01B88    68001B6C              B        PWER              REPORT ERROR
     3866                            *
     3867                            *
     3868   01 01B89    00000000 A   TOTALPAT DATA     0
     3869   01 01B8A    00000000 A   PASS#    DATA     0
     3870   01 01B8B    00000000 A   CPASS#   DATA     0
     3871   01 01B8C    00000000 A   PATFLG   DATA     0
     3872   01 01B8D                 FASAVE   RES      16
     3873         01 01B92           FA       EQU      FASAVE+5

     3875   01 01B9D    22300000 A   LASTPAT  LI,3     0
     3876   01 01B9E    33101B8C              MTW,1    PATFLG            FLAG UP
     3877   01 01B9F    68301B43              BEZ      SMEAR             NO,TEST COMPL. OF ALL PATTERNS
     3878   01 01BA0    68001BB2              B        DATAOK            YES

     3880   01 01BA1    32A618A1     GETPAT   LW,10    PATTERN,3
     3881   01 01BA2    3AA618A1     GETCOMP  LCW,10   PATTERN,3

     3883   01 01BA3    6D000040 A   LOC:OK   WD,0     X'40'             TURN ALARM OFF IF ACTIVE
     3884   01 01BA4    33101941              MTW,1    EXPFLG            RESET FLAG
     3885   01 01BA5    20500001 A            AI,5     1                 INCR ADR
     3886   01 01BA6    68001B5B              B        NXTLOC

     3888         01 01BA7           PATDONE  EQU      %
     3889   01 01BA7    31301B89              CW,3     TOTALPAT          LAST PATTERN
     3890   01 01BA8    68301B9D              BEZ      LASTPAT           YES

     3892   01 01BA9    3300195A              MTW,0    PWFLG             P/WRITE FLAG SET
     3893   01 01BAA    68301BB0              BEZ      FULWRT            NO,

     3895   01 01BAB    21700003 A            CI,7     3                 LAST BYTE DONE
     3896   01 01BAC    68301BAF              BEZ      %+3               YES,

     3898   01 01BAD    20700001 A            AI,7     1                 POINT TO THE NEXT BYTE
     3899   01 01BAE    68001B43              B        SMEAR             AND TRY IT

     3901   01 01BAF    22700000 A            LI,7     0                 RESET BYTE POINTER

     3903   01 01BB0    20300001 A   FULWRT   AI,3     1
     3904   01 01BB1    68001B43              B        SMEAR             NO, TRY NEXT PATTERN

     3906   01 01BB2    33001968     DATAOK   MTW,0    DATAFLG           DATA CHECK PHASE ?
     3907   01 01BB3    68301C7A              BEZ      PCHK              NO

     3909   01 01BB4    22700000 A            LI,7     0

     3911   01 01BB5    3300195A              MTW,0    PWFLG             PARTIL WRITE TEST DONE
     3912   01 01BB6    69301BB9              BNEZ     %+3               YES,

     3914   01 01BB7    228FFFFF A            LI,8     -1
     3915   01 01BB8    68001B2E              B        DATAPW                GO DO THE TEST

     3917   01 01BB9    22800000 A            LI,8     0
     3918   01 01BBA    70200392              LC       #SENSE
     3919   01 01BBB    69401B2D              BCS,4    DATAST            LOOP ON TEST IF SS2 IS SET

     3921   01 01BBC    3580195A              STW,8    PWFLG             RESET PW FLAG
     3922   01 01BBD    35801B8C              STW,8    PATFLG            RESET PAT FLAG
     3923   01 01BBE    35801968              STW,8    DATAFLG           RESET FLAG

     3925   01 01BBF    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     3926   01 01BC0    68001BC1              B        PRTYLGIC          PARITY INTRPT/TRAP TEST
     3927                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   16
A    3929                            *
     3930                            *        LOGIC TEST  B
     3931                            *
     3932                            *        PARITY INTERRUPT LOGIC TEST
     3933                            *
     3934   01 01BC1    330012C4     PRTYLGIC MTW,0    TS+1              TEST SELECTED
     3935   01 01BC2    68301C34              BCR,3    ADRTST            BRANCH IF NOT
     3936   01 01BC3    228000C2 A            LI,8     'B'
     3937   01 01BC4    358019C4              STW,8    TSTON
     3938   01 01BC5    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     3939   01 01BC6    228FFFFF A   PARTYST  LI,8     -1
     3940   01 01BC7    358018EA              STW,8    INTRPFLG          SET FLAG
     3941   01 01BC8    325018EE              LW,5     LOWLIM            GET LOW LIMIT
     3942   01 01BC9    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     3943   01 01BCA    22800000 A   PINXTBNK LI,8     0
     3944   01 01BCB    35801962              STW,8    RIPFLG            RESET FLAG
     3945   01 01BCC    358018EB              STW,8    INTACFLG          RESET FLG
     3946   01 01BCD    32801022              LW,8     MFIRBIT
     3947   01 01BCE    6D801100 A            WD,8     X'1100'          DISABLE MFI
     3948   01 01BCF    6AF017D3              BAL,15   RSKIP
     3949   01 01BD0    68001C2B              B        PITSTEXT
     3950   01 01BD1    226FFFFE A            LI,6     -2                SET CNT
     3951   01 01BD2    228FFFFF A            LI,8     -1                ALL 1'S PATTERN
     3952   01 01BD3    358018F6     PINTR    STW,8    PGENTST           SET FLAG
     3953   01 01BD4    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     3954   01 01BD5    358A0000 A            STW,8    0,5               STORE IN TEST ADDRESS
     3955                            *
     3956   01 01BD6    02200020 A            LCI      2
     3957   01 01BD7    2D0A0000 A            LMS,0    0,5               CHANGE PARITY OF THE TEST ADDR
     3958   01 01BD8    68001BD9              B        %+1
     3959   01 01BD9    68001BDA              B        %+1

     3961   01 01BDA    33001021              MTW,0    SIG7FLG           SKIP PE TEST
     3962   01 01BDB    69301BE5              BNEZ     MFITRY             IF SIGMA 7

     3964   01 01BDC    328A0000 A            LW,8     0,5
     3965   01 01BDD    70200392              LC       #SENSE
     3966   01 01BDE    69801BDC              BCS,8    %-2               SHORT LOOP
     3967   01 01BDF    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     3968   01 01BE0    33001962              MTW,0    RIPFLG
     3969   01 01BE1    68301C09              BCR,3    NOPE
     3970   01 01BE2    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     3971   01 01BE3    22000000 A            LI,0     0
     3972   01 01BE4    35001962              STW,0    RIPFLG
     3973                            *
     3974   01 01BE5    32801022     MFITRY   LW,8     MFIRBIT
     3975   01 01BE6    6D801300 A            WD,8     X'1300'           ARM & DISABLE MFI
     3976   01 01BE7    6AF017AE              BAL,15   MAP               SET MAP REGS.
     3977   01 01BE8    328A0000 A            LW,8     0,5              READ IT BACK
     3978   01 01BE9    32801022              LW,8     MFIRBIT
     3979   01 01BEA    6D801400 A            WD,8     X'1400'           ENABLE MFI
     3980   01 01BEB    70200392              LC       #SENSE
     3981   01 01BEC    69801BE5              BCS,8    MFITRY            SHORT LOOP
     3982                            *
     3983   01 01BED    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS

     3985   01 01BEE    33001021              MTW,0    SIG7FLG           SKIP IF TESTING
     3986   01 01BEF    69301BF2              BNEZ     %+3                A SIGMA 7 (NO 4C)

     3988   01 01BF0    33001962              MTW,0    RIPFLG            DID PE OCCUR
     3989   01 01BF1    68301C09              BCR,3    NOPE              NO

     3991   01 01BF2    330018EB              MTW,0    INTACFLG          INTR. ACKNOWLEDGED
     3992   01 01BF3    68301BF7              BCR,3    MFIERR            B IF MFI DID NOT OCCUR

     3994   01 01BF4    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     3995   01 01BF5    30501993              AW,5     8K                POINT TO NEXT 8K
     3996   01 01BF6    68001BCA              B        PINXTBNK
     3997                            *
     3998   01 01BF7    6D000041 A   MFIERR   WD,0     X'41'             TURN ON THE ALARM
     3999   01 01BF8    70200392              LC       #SENSE        READ SENSE SWITCHES
     4000   01 01BF9    69101C04              BCS,1    MFIHLT            BYPASS MSG
     4001                                     #PRINT   MSG15             PARITY TRAP LOGIC ERR

            01 01BFA    EA6003C5
            01 01BFB    EA6003CD
            01 01BFC    C0009630 A
            01 01BFD    EA6003C6
     4002   01 01BFE    6AF017AE              BAL,15   MAP               SET MAP REG.
     4003   01 01BFF    02200010 A            LCI      1
     4004   01 01C00    2D8A0000 A            LMS,8    0,5               GET BAD DATA
     4005   01 01C01    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     4006   01 01C02    32A018F6              LW,10    PGENTST
     4007   01 01C03    6AF015A2              BAL,15   ERSTS             READ AND TYPE ERROR STATUS

     4009   01 01C04    6AF01770     MFIHLT   BAL,15   S3HLT             HALT IF SSW 3 IS RESET
     4010   01 01C05    70200392              LC       #SENSE
     4011   01 01C06    69801BE5              BCS,8    MFITRY            LOOP ON FAILURE
     4012   01 01C07    69401BC6              BCS,4    PARTYST           LOOP ON TEST
     4013   01 01C08    68001C2E              B        PRTERREX
     4014                            *
     4015                            *
     4016   01 01C09    216FFFFE A   NOPE     CI,6     -2                SET CNTR
     4017   01 01C0A    68301C27              BCR,3    PEBCHK
     4018   01 01C0B    6D000041 A            WD,0     X'41'             TURN ALARM ON
     4019   01 01C0C    70200392              LC       #SENSE
     4020   01 01C0D    69101C20              BCS,1    PARTYEX          BYPASS MSG
     4021                                     #PRINT   MSG76

            01 01C0E    EA6003C5
            01 01C0F    EA6003CD
            01 01C10    C0009B14 A
            01 01C11    EA6003C6
     4022   01 01C12    32801022              LW,8     MFIRBIT
     4023   01 01C13    6D801200 A            WD,8     X'1200'           ENABLE MFI
     4024   01 01C14    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4025   01 01C15    02200010 A            LCI      1
     4026   01 01C16    2D8A0000 A            LMS,8    0,5               GET DATA
     4027   01 01C17    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4028   01 01C18    330018EB              MTW,0    INTACFLG          CHECK FLAG
     4029   01 01C19    68301C1E              BCR,3    DEFLMS
     4030                                     #PRINT   MSG77

            01 01C1A    EA6003C5
            01 01C1B    EA6003CD
            01 01C1C    C0009B34 A
            01 01C1D    EA6003C6
     4031   01 01C1E    32A018F6     DEFLMS   LW,10    PGENTST           GET EXP. PATTERN
     4032   01 01C1F    6AF015A2              BAL,15   ERSTS              TYPE ERROR STATUS
     4033   01 01C20    22000000 A   PARTYEX  LI,0     0
     4034   01 01C21    350018EB              STW,0    INTACFLG
     4035   01 01C22    6AF01770              BAL,15   S3HLT             HALT IF SSW 3 IS SET
     4036   01 01C23    70200392              LC       #SENSE
     4037   01 01C24    69801BD2              BCS,8    PINTR-1           LOOP ON ERROR
     4038   01 01C25    69401BC6              BCS,4    PARTYST           LOOP ON TEST
     4039   01 01C26    68001C2E              B        PRTERREX
     4040                            *
     4041   01 01C27    32801022     PEBCHK   LW,8     MFIRBIT
     4042   01 01C28    6D801100 A            WD,8     X'1100'           DISABLE MFI
     4043                            *
     4044   01 01C29    228FFFFE A            LI,8     -2
     4045   01 01C2A    65601BD3              BIR,6    PINTR             CONTINUE IF NOT DONE
     4046                            *
     4047   01 01C2B    70200392     PITSTEXT LC       #SENSE
     4048   01 01C2C    69401BC6              BCS,4    PARTYST           LOOP ON TST
     4049   01 01C2D    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     4050   01 01C2E    22800000 A   PRTERREX LI,8     0
     4051   01 01C2F    35801954              STW,8    PELOC             CLEAR PARITY ERROR
     4052   01 01C30    358018EB              STW,8    INTACFLG          RESET
     4053   01 01C31    358018EA              STW,8    INTRPFLG            FLAGS
     4054   01 01C32    358018F6              STW,8    PGENTST           RESET FLAG
     4055   01 01C33    68001C34              B        ADRTST            DO NEXT TEST
     4056                            *
     4057                            *
     4058                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   17
A    4060                            *
     4061                            *        LOGIC TEST  C
     4062                            *
     4063                            *        ADDRESSING TEST
     4064                            *
     4065   01 01C34    330012C5     ADRTST   MTW,0    TS+2              TEST SELECTED
     4066   01 01C35    68301C61              BCR,3    PRTYTST           EXIT IF NOT
     4067   01 01C36    228000C3 A            LI,8     'C'
     4068   01 01C37    358019C4              STW,8    TSTON
     4069   01 01C38    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     4070   01 01C39    228FFFFF A   ADRSTRT  LI,8     -1
     4071   01 01C3A    358018ED              STW,8    ADRFLG            SET ADR FLAG
     4072   01 01C3B    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     4073                            *
     4074   01 01C3C    6D000040 A            WD,0     X'40'           RESET ALARM
     4075   01 01C3D    325018EE              LW,5     LOWLIM
     4076   01 01C3E    6AF017D3     ADRSTOR  BAL,15   RSKIP             SKIP RESIDENT AREA
     4077   01 01C3F    68001C46              B        ADFETCH-1
     4078   01 01C40    32800005 A            LW,8     5
     4079   01 01C41    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4080   01 01C42    358A0000 A            STW,8    0,5               STORE IN TEST LOCATION
     4081   01 01C43    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4082   01 01C44    20500001 A            AI,5     1
     4083   01 01C45    68001C3E              B        ADRSTOR
     4084                            *
     4085   01 01C46    325018EE              LW,5     LOWLIM
     4086   01 01C47    6AF017D3     ADFETCH  BAL,15   RSKIP             SKIP RESIDENT AREA
     4087   01 01C48    68001C54              B        SUCCADRT
     4088   01 01C49    6AF017AE     ADRLUP   BAL,15   MAP               SET MAP REGISTERS
     4089   01 01C4A    02200010 A            LCI      1
     4090   01 01C4B    2D8A0000 A            LMS,8    0,5               FETCH  DATA
     4091   01 01C4C    70200392              LC       #SENSE
     4092   01 01C4D    69801C4A              BCS,8    %-3               SHORT LOOP
     4093   01 01C4E    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4094   01 01C4F    31800005 A            CW,8     5                 CONTENT OK
     4095   01 01C50    69301C58              BCS,3    ADRTERR           NO
     4096   01 01C51    6D000040 A            WD,0     X'40'             YES TURN ALARM OFF
     4097   01 01C52    20500001 A            AI,5     1
     4098   01 01C53    68001C47              B        ADFETCH
     4099   01 01C54                 SUCCADRT RES      0
     4100   01 01C54    70200392              LC       #SENSE            SW2 SET
     4101   01 01C55    69401C39              BCS,4    ADRSTRT           LOOP ON TEST
     4102   01 01C56    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     4103   01 01C57    68001C5E              B        LEXIT             EXIT TEST
     4104                            *
     4105   01 01C58    32A00005 A   ADRTERR  LW,10    5                 GET EXPECTED DATA
     4106   01 01C59    6AF015A2              BAL,15   ERSTS             READ AND TYPE ERROR STATUS
     4107                            *
     4108   01 01C5A    6AF01770              BAL,15   S3HLT             HALT IF SS3 IS RESET
     4109   01 01C5B    70200392              LC       #SENSE
     4110   01 01C5C    69801C49              BCS,8    ADRLUP            LOOP ON ERROR
     4111   01 01C5D    69401C39              BCS,4    ADRSTRT           LOOP ON TEST
     4112   01 01C5E    22800000 A   LEXIT    LI,8     0
     4113   01 01C5F    358018ED              STW,8    ADRFLG            RESET ADR FLG
     4114   01 01C60    68001C61              B        PRTYTST
     4115                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   18
A    4117                            *
     4118                            *        LOGIC TEST  D
     4119                            *
     4120                            *        PARITY TEST
     4121                            *
     4122   01 01C61    330012C6     PRTYTST  MTW,0    TS+3              PARITY TEST SELECTED
     4123   01 01C62    68301D36              BCR,3    ADRLTST           SKIP IF NOT
     4124   01 01C63    228000C4 A            LI,8     'D'
     4125   01 01C64    358019C4              STW,8    TSTON
     4126   01 01C65    6D000040 A            WD,0     X'40'
     4127   01 01C66    22800000 A   PRTYST   LI,8     0
     4128   01 01C67    35801968              STW,8    DATAFLG
     4129   01 01C68    35801960              STW,8    PEFLG             RESET PE FLAG
     4130   01 01C69    35801957              STW,8    PERCNTR
     4131   01 01C6A    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     4132   01 01C6B    228FFFFF A            LI,8     -1
     4133   01 01C6C    358018F8              STW,8    SWDFLG            SET FLAG
     4134   01 01C6D    33001965              MTW,0    PARTYFLG          RETURN FROM
     4135   01 01C6E    68301C75              BCR,3    PRTYRUN           NO
     4136   01 01C6F    32801022     EXITPTST LW,8     MFIRBIT           YES
     4137   01 01C70    6D801100 A            WD,8     X'1100'           DISARM PARITY INTRPT
     4138   01 01C71    22800000 A            LI,8     0
     4139   01 01C72    35801965              STW,8    PARTYFLG          RE-INTIALIZE PARITY FLG
     4140   01 01C73    35801957              STW,8    PERCNTR
     4141   01 01C74    68001CF6              B        SWDRPE
     4142   01 01C75    228FFFFF A   PRTYRUN  LI,8     -1
     4143   01 01C76    35801965              STW,8    PARTYFLG          SET FLG
     4144   01 01C77    32801022              LW,8     MFIRBIT
     4145   01 01C78    6D801200 A            WD,8     X'1200'           ARM AND ENABLE PARITY INTRRUPT
     4146   01 01C79    68001B32              B        PARTYGO           START PARITY TEST
     4147                            *
     4148                            *     GO EXECUTE TEST 'A'
     4149                            *
     4150   01 01C7A    22800000 A   PCHK     LI,8     0
     4151   01 01C7B    35801965              STW,8    PARTYFLG
     4152   01 01C7C    70200392              LC       #SENSE
     4153   01 01C7D    69401C66              BCS,4    PRTYST            LOOP ON TEST
     4154   01 01C7E    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     4155   01 01C7F    68001D36              B        ADRLTST           GO TO ADR LINE TEST
     4156                            *
     4157                            * PARITY INTERRUPT RETURN POINT
     4158                            *
     4159   01 01C80    32801022     PARINT   LW,8     MFIRBIT
     4160   01 01C81    6D801100 A            WD,8     X'1100'           DISARM AND DISABLE MFI
     4161   01 01C82    33001957              MTW,0    PERCNTR           FIRST PARITY ERROR
     4162   01 01C83    69301C8A              BCS,3    PRTYTSTR          NO
     4163   01 01C84    328018A0              LW,8     BLANKS
     4164   01 01C85    32A018A0              LW,10    BLANKS
     4165   01 01C86    6AF015A2              BAL,15   ERSTS
     4166   01 01C87    6AF01770              BAL,15   S3HLT             ERROR HALT
     4167   01 01C88    70200392              LC       #SENSE
     4168   01 01C89    69C01C66              BCS,12   PRTYST            LOOP ON TEST
     4169                            *
     4170                            * TEST TO SEE THE INTERRUPTED (PARITY) INSTR.  WAS  "LW"  AND DATA IS OK
     4171                            *
     4172   01 01C8A    3270192A     PRTYTSTR LW,7     %MFI              GET INSTRUCTION ADDR
     4173   01 01C8B    4B7021C5              AND,7    H1FFFF
     4174   01 01C8C    226FFFFB A            LI,6     -5                INSTR CNTR
     4175   01 01C8D    328E0000 A   INTINSTR LW,8     0,7               FETCH INSTR.
     4176   01 01C8E    31801B65              CW,8     BTA               WAS INSTR. 'LW,8  0,5'
     4177   01 01C8F    68301C99              BCR,3    WASLW             YES
     4178   01 01C90    207FFFFF A            AI,7     -1
     4179   01 01C91    65601C8D              BIR,6    INTINSTR          TRY AGAIN IN CASE OF INTRPT DELAY
     4180   01 01C92    70200392     DATABAD  LC       #SENSE
     4181   01 01C93    69101386              BCS,1    MFIRET            RETURN TO TRAP
     4182                                     #PRINT   ODDMSG

            01 01C94    EA6003C5
            01 01C95    EA6003CD
            01 01C96    C0009EC4 A
            01 01C97    EA6003C6
     4183   01 01C98    68001386              B        MFIRET            RETURN TO TRAP
     4184                            *
     4185                            *
     4186   01 01C99    330018EC     WASLW    MTW,0    ERRCNT            ANY ERROR WAS REPORTED
     4187   01 01C9A    69301C66              BCS,3    PRTYST            YES - START FROM BEGINNING
     4188                            *                                   NO,
     4189   01 01C9B    02200010 A            LCI      1
     4190   01 01C9C    2D8A0000 A            LMS,8    0,5               FETCH ERRORED DATA
     4191   01 01C9D    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4192   01 01C9E    3180000A A            CW,8     10                DATA OK
     4193   01 01C9F    69301C92              BCS,3    DATABAD
     4194                            *
     4195   01 01CA0    33101957              MTW,1    PERCNTR
     4196   01 01CA1    31500002 A            CW,5     2                 LAST LOC
     4197   01 01CA2    68301CE0              BCR,3    CHEKPBIT           YES
     4198   01 01CA3    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4199   01 01CA4    32801022              LW,8     MFIRBIT           NO
     4200   01 01CA5    6D801200 A            WD,8     X'1200'           ARM & ENABLE P.I.
     4201   01 01CA6    20500001 A            AI,5     1                 INCREMENT ADDRS.
     4202   01 01CA7    35AA0000 A            STW,10   0,5               STORE IN NEXT LOC
     4203   01 01CA8    328A0000 A            LW,8     0,5               P.I. SHOULD OCCUR IF ERROR  SOURCE
     4204                            *                                     IS STILL IN EFFECT
     4205   01 01CA9    68001CAA              B        %+1
     4206   01 01CAA    68001CAB              B        %+1               DUMMY DELAYS
     4207   01 01CAB    68001CAC              B        %+1
     4208   01 01CAC    68001CAD              B        %+1
     4209                            *
     4210   01 01CAD    32801022              LW,8     MFIRBIT
     4211   01 01CAE    6D801100 A            WD,8     X'1100'           DISARM & DISABLE
     4212   01 01CAF    32501B92              LW,5     FA
     4213   01 01CB0    32B01957              LW,11    PERCNTR
     4214   01 01CB1    21B01FFF A            CI,11    X'1FFF'           8K OR MORE HAS PE
     4215   01 01CB2    68101CF6              BCR,1    SWDRPE
     4216   01 01CB3    21B00080 A   CTRTST1  CI,11    X'80'             X'80' PE
     4217   01 01CB4    69301CCF              BCS,3    CTRTST2           NO
     4218   01 01CB5    6AF016B4              BAL,15   PBIT              YES, PARITY SHOULD B
     4219   01 01CB6    68101CB9              BCR,1    PARTYON           SHOULD BE OFF BUT IS ON
     4220   01 01CB7    22600001 A            LI,6     1
     4221   01 01CB8    68002307              B        YVSBAD
     4222   01 01CB9                 PARTYON  RES      0
     4223   01 01CB9    70200392              LC       #SENSE            READ SWITCHES
     4224   01 01CBA    69101C6F              BCS,1    EXITPTST          EXIT IF SW4 SET
     4225                                     #PRINT   MSG40             PRINT 'NYCYV-SELECT DIODE'

            01 01CBB    EA6003C5
            01 01CBC    EA6003CD
            01 01CBD    C00098AC A
            01 01CBE    EA6003C6
     4226                                     #PRINT   MSG39

            01 01CBF    EA6003C5
            01 01CC0    EA6003CD
            01 01CC1    C000989C A
            01 01CC2    EA6003C6
     4227   01 01CC3                 PM31     RES      0
     4228   01 01CC3    70200392              LC       #SENSE
     4229   01 01CC4    69101C6F              BCS,1    EXITPTST          EXIT IF NOT IN PRINT MODE
     4230                                     #PRINT   MSG46

            01 01CC5    EA6003C5
            01 01CC6    EA6003CD
            01 01CC7    C0009938 A
            01 01CC8    EA6003C6
     4231   01 01CC9                 PTAGSET  RES      0
     4232   01 01CC9    6AF0177C              BAL,15   S4
     4233                                     #PRINT   MSG45

            01 01CCA    EA6003C5
            01 01CCB    EA6003CD
            01 01CCC    C0009918 A
            01 01CCD    EA6003C6
     4234   01 01CCE    68001C6F              B        EXITPTST          EXIT PARITY TEST
     4235                            *
     4236                            *
     4237   01 01CCF    21B00400 A   CTRTST2  CI,11    X'400'            H400 PE
     4238   01 01CD0    69301CD2              BCS,3    CTRTST3           BRANCH IF NOT
     4239   01 01CD1    6800236E              B        YCSBAD
     4240                            *
     4241   01 01CD2    21B02000 A   CTRTST3  CI,11    X'2000'           H2000 PE
     4242                            *
     4243                            * CHECKING OF PARITY SENSE LINE
     4244                            *
     4245                            *
     4246   01 01CD3    69101CD5              BCS,1    %+2
     4247   01 01CD4    68001CD7              B        MODSENS           BAD PARITY SENSE LINE
     4248   01 01CD5    21B01000 A            CI,11    X'1000'           4K CAUSE PE
     4249   01 01CD6    69101CDD              BCS,1    CTRTST4
     4250   01 01CD7                 MODSENS  RES      0
     4251   01 01CD7    6AF0177C              BAL,15   S4
     4252                                     #PRINT   MSG33

            01 01CD8    EA6003C5
            01 01CD9    EA6003CD
            01 01CDA    C0009810 A
            01 01CDB    EA6003C6
     4253   01 01CDC    68001CC9              B        PTAGSET           BRANCH
     4254                            *
     4255   01 01CDD    21B00800 A   CTRTST4  CI,11    X'800'            H800 CAUSE OF PE
     4256   01 01CDE    69301CE3              BCS,3    CTRTST5           NO
     4257   01 01CDF    6800236E              B        YCSBAD            YES
     4258                            *
     4259                            *
     4260   01 01CE0    6AF016B4     CHEKPBIT BAL,15   PBIT              PARITY BIT SHOULD BE ON
     4261   01 01CE1    68101CE5              BCR,1    PINH              B
     4262   01 01CE2    68001CB3              B        CTRTST1
     4263                            *
     4264   01 01CE3    21B00040 A   CTRTST5  CI,11    X'40'             64 LOC.GENERATE P.E.
     4265   01 01CE4    69301CEB              BCS,3    CTRTST6           NO
     4266                            *
     4267   01 01CE5                 PINH     RES      0
     4268   01 01CE5    6AF0177C              BAL,15   S4
     4269                                     #PRINT   MSG47

            01 01CE6    EA6003C5
            01 01CE7    EA6003CD
            01 01CE8    C0009958 A
            01 01CE9    EA6003C6
     4270                            *
     4271   01 01CEA    68001CC9              B        PTAGSET
     4272                            *
     4273   01 01CEB    21B00001 A   CTRTST6  CI,11    1                 ONLY ONE LOC. CUSE OF P.E.
     4274   01 01CEC    69301CC3              BCS,3    PM31              NO
     4275   01 01CED    6AF0177C              BAL,15   S4
     4276                                     #PRINT   MSG36

            01 01CEE    EA6003C5
            01 01CEF    EA6003CD
            01 01CF0    C0009858 A
            01 01CF1    EA6003C6
     4277   01 01CF2    22802000 A            LI,8     X'2000'
     4278   01 01CF3    4B800005 A            AND,8    5                 BIT 2 OF THE FAILING ADDRESS IS ON
     4279   01 01CF4    68301CC3              BCR,3    PM31
     4280   01 01CF5    68001CC9              B        PTAGSET
     4281                            *
     4282                            *
     4283                            * TEST TO DETECT ANY MALFUNCTIONS IN SWITCH-DRIVER PARITY LOGIC
     4284                            *
     4285                            *
     4286   01 01CF6    6AF016B1     SWDRPE   BAL,15   SAVREGS           SAVE REGISTERS
     4287   01 01CF7    228FFFFF A            LI,8     -1
     4288   01 01CF8    358018F6              STW,8    PGENTST           SET FLAG
     4289   01 01CF9    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     4290   01 01CFA    6AF017D3              BAL,15   RSKIP              SKIP RESIDIN AREA
     4291   01 01CFB    68001D12               B       EXITSWP           EXIT THIS TEST
     4292   01 01CFC    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4293   01 01CFD    02200080 A            LCI      8
     4294   01 01CFE    2D8A0000 A            LMS,8    0,5               READ STATUS
     4295   01 01CFF    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4296   01 01D00    4B8019B1              AND,8    HFFF40000
     4297   01 01D01    68301D16              BCR,3    PGENCHK
     4298   01 01D02    331018F8              MTW,1    SWDFLG
     4299   01 01D03    69301D0C              BCS,3    EXITPERR
     4300   01 01D04    6AF0177C              BAL,15   S4
     4301                                     #PRINT   MSG50

            01 01D05    EA6003C5
            01 01D06    EA6003CD
            01 01D07    C0009994 A
            01 01D08    EA6003C6
     4302   01 01D09    328018A0              LW,8     BLANKS
     4303   01 01D0A    32A018A0              LW,10    BLANKS
     4304   01 01D0B    6AF015A2              BAL,15   ERSTS             READ AND TYPE ERROR STATUS
     4305   01 01D0C                 EXITPERR  RES         0
     4306                            *
     4307   01 01D0C    22000000 A            LI,0     0
     4308   01 01D0D    35001960              STW,0    PEFLG             RESET FLAG
     4309   01 01D0E    350018F6              STW,0    PGENTST           RESET " "
     4310   01 01D0F    69401CF7              BCS,4    SWDRPE+1          YES
     4311   01 01D10    6AF016AE              BAL,15   RETREGS           RESTORE REGS.
     4312   01 01D11    68001D36              B        ADRLTST           NO
     4313                            *
     4314   01 01D12    6AF016AE     EXITSWP  BAL,15   RETREGS           RESTORE REGS.
     4315   01 01D13    22800000 A            LI,8     0
     4316   01 01D14    35801964              STW,8    SPFLG             CLEAR FLAG
     4317   01 01D15    68001D36              B        ADRLTST           GO TO ADDRESS-LINES TOGGLE TEST
     4318                            *
     4319                            *
     4320   01 01D16    228FFFFF A   PGENCHK  LI,8     -1
     4321   01 01D17    358018F6              STW,8    PGENTST           SET FLAG
     4322   01 01D18    22000000 A            LI,0     0
     4323   01 01D19    350018F5              STW,0    HW0FLG            RESET HW FLAG
     4324   01 01D1A    6AF01760              BAL,15   PECHK             CHECK FOR OCCURENCE  OF PE
     4325   01 01D1B    01000000 A            DATA     X'1000000'
     4326   01 01D1C    68001D29              B        CHKHW0
     4327                            *
     4328   01 01D1D    6AF01760              BAL,15   PECHK             CHECK FOR PE
     4329   01 01D1E    00010000 A            DATA     X'10000'
     4330   01 01D1F    68001D0C              B        BYTERR            BYTE 0 PARITY ERROR
     4331                            *
     4332   01 01D20    6AF01760     HW1CHK   BAL,15   PECHK             CHECK FOR PE AGAIN
     4333   01 01D21    00000100 A            DATA     X'100'
     4334   01 01D22    68001D2D              B        CHKBYT3           CHECH BYTE 3
     4335                            *
     4336   01 01D23    6AF01760              BAL,15   PECHK             CHECK OCCURENCE OF PE
     4337   01 01D24    00000001 A            DATA     1
     4338   01 01D25    68001D0C              B        BYTERR            BYTE 2 ERROR
     4339                            *
     4340   01 01D26    330018F5              MTW,0    HW0FLG            HW FLAG SET
     4341   01 01D27    68301D0C              BCR,3    HWERR             HW ERROR IF NOT
     4342   01 01D28    68001D0C              B        WRDERR            OTHERWISE WORD PARITY ERROR
     4343                            *
     4344   01 01D29    6AF01760     CHKHW0   BAL,15   PECHK             CHECK PE AGAIN
     4345   01 01D2A    00010000 A            DATA     X'10000'
     4346   01 01D2B    68001D33              B        HW0OK             NO HW ERROR
     4347   01 01D2C    68001D0C              B        BYTERR            BYTE ERROR(BYTE 1)
     4348                            *
     4349   01 01D2D    330018F5     CHKBYT3  MTW,0    HW0FLG            CHECK FLAG
     4350   01 01D2E    69301D0C              BCS,3    HW0ERR            HW 0 ERROR IF UP
     4351   01 01D2F    6AF01760              BAL,15   PECHK             CHECK PE ONCE MORE
     4352   01 01D30    00000001 A            DATA     1
     4353   01 01D31    68001D0C              B        BIT32BAD          SUPECT PARITY BIT
     4354   01 01D32    68001D0C              B        BYTERR            BYTE 3 ERROR
     4355                            *
     4356   01 01D33    229FFFFF A   HW0OK    LI,9     -1
     4357   01 01D34    358018F5              STW,8    HW0FLG            SET FLAG
     4358   01 01D35    68001D20              B        HW1CHK
     4359                            *
     4360                            *
     4361                            *
     4362         01 01D0C           BYTERR   EQU      EXITPERR
     4363         01 01D0C           WRDERR   EQU      EXITPERR
     4364         01 01D0C           HWERR    EQU      EXITPERR
     4365         01 01D0C           HW0ERR   EQU      EXITPERR
     4366         01 01D0C           BIT32BAD EQU      EXITPERR
     4367                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   19
A    4369                            *
     4370                            *        LOGIC TEST  E
     4371                            *
     4372                            *        ADDRESS LINE TOGGLE TEST
     4373                            *
     4374                            * TEST TO DETECT ANY MALFUNCTIONS IN ADDRESS LINES UNDER RAPID CHANGE
     4375                            * CONDITIONS
     4376                            *
     4377                            *
     4378                            *
     4379   01 01D36    330012C7     ADRLTST  MTW,0    TS+4              TEST SELECTED
     4380   01 01D37    68301D8D              BCR,3    RANDMTST          GO TO RANDOM TEST IF NOT
     4381   01 01D38    228000C5 A            LI,8     'E'
     4382   01 01D39    358019C4              STW,8    TSTON             STARTING TEST 5
     4383   01 01D3A    6D000040 A            WD,0     X'40'             TURN ALARM OFF IF ACTIVE
     4384   01 01D3B    6AF0179F     ADRST    BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     4385   01 01D3C    228FFFFF A            LI,8     -1
     4386   01 01D3D    35801964              STW,8    SPFLG             SET SPFLG
     4387   01 01D3E    32801022              LW,8     MFIRBIT
     4388   01 01D3F    6D801100 A            WD,8     X'1100'           DISARM & DISABLE P-INTRPT
     4389   01 01D40    32A018F9              LW,10    ABCDEFAB
     4390   01 01D41    6AF01828              BAL,15   SPREAD            SPREAD PATTERN
     4391   01 01D42    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     4392   01 01D43    21501000 A            CI,5     X'1000'
     4393   01 01D44    68101D46              BCR,1    %+2
     4394   01 01D45    22501000 A            LI,5     X'1000'
     4395   01 01D46    22C00001 A   NXTBNKL  LI,12    1
     4396   01 01D47    25C00001 A   NXTLIN   SLS,12   1                 POINT TO NEXT LINE
     4397                            *
     4398   01 01D48    21501000 A            CI,5     X'1000'
     4399   01 01D49    69301D4C              BCS,3    %+3               SKIP IF NOT 1ST BANK
     4400   01 01D4A    21C01000 A            CI,12    X'1000'
     4401   01 01D4B    68301D68              BCR,3    ADRLEND+3         IGNORE ADR-LINE 19 OF THE 1ST BANK
     4402                            *
     4403                            *
     4404   01 01D4C                 ADRLDONE RES      0
     4405   01 01D4C    328018FA              LW,8     B:INSTR           B     0,5
     4406   01 01D4D    4980000C A            OR,8     12                ADD TEST LINE
     4407   01 01D4E    6AF017D3              BAL,15   RSKIP             SKIP RESIDENT AREA
     4408   01 01D4F    68001D78              B        ADREXIT
     4409                            *
     4410   01 01D50    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4411   01 01D51    358A0000 A            STW,8    0,5               STORE IN FIRST LOC OF THE TEST BANK
     4412   01 01D52    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4413   01 01D53    64801D54              BDR,8    %+1
     4414   01 01D54    35501970              STW,5    TEMPR5            SAVE R5
     4415   01 01D55    4950000C A            OR,5     12
     4416   01 01D56    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4417   01 01D57    358A0000 A            STW,8    0,5
     4418   01 01D58    328018FB              LW,8     RETRNL
     4419   01 01D59    358BFFFF A            STW,8    -1,5              STORE IN 2ND LOC OF TST ADRS
     4420   01 01D5A    21C00200 A            CI,12    X'200'            ADRS LINE 22 BEING TESTED
     4421   01 01D5B    69301D5E              BCS,3    %+3               NO
     4422   01 01D5C    328018F7              LW,8     B:M1X5
     4423   01 01D5D    358A03FF A            STW,8    X'3FF',5          YES
     4424   01 01D5E    46501970              XW,5     TEMPR5            RESTORE R5
     4425   01 01D5F    32801022     BTOG     LW,8     MFIRBIT
     4426   01 01D60    6D801200 A            WD,8     X'1200'           ARM & ENABLE PARITY INTERRUPT
     4427   01 01D61    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4428   01 01D62    3A7021C9              LCW,7    ITRATE#           GET ITERATION COUNT
     4429   01 01D63    6AFA0000 A            BAL,15   0,5               BRANCH TO THE FIRST LOC OF TST BANK
     4430   01 01D64    65701D63              BIR,7    %-1               LOOP ON LOC.
     4431                            ********                                ********************************
     4432                            * RETURN POINT OF ADRS LINE TST ROUTINE
     4433                            *
     4434                            *
     4435   01 01D65    70200392     ADRLEND  LC       #SENSE
     4436   01 01D66    69801D64              BCS,8    %-2               SHORT LOOP
     4437   01 01D67    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4438   01 01D68    32801022              LW,8     MFIRBIT
     4439   01 01D69    6D801100 A            WD,8     X'1100'           DISARM & DISABLE PRTY INTRPT
     4440   01 01D6A    33001964              MTW,0    SPFLG             WAS THERE ANY INTRPT
     4441   01 01D6B    68301D7C              BCR,3    ADRLEROR          YES
     4442   01 01D6C    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     4443   01 01D6D    46501970              XW,5     TEMPR5            GET BRANCH ADR
     4444   01 01D6E    328018F9              LW,8     ABCDEFAB          GET PATTERN
     4445   01 01D6F    358A0000 A            STW,8    0,5               RESTORE PATTERN
     4446   01 01D70    358BFFFF A            STW,8    -1,5
     4447   01 01D71    46501970              XW,5     TEMPR5            RESTORE R5
     4448   01 01D72    22801000 A            LI,8     X'1000'           NO, THEN LAST ADR LINE OF TST BANK
     4449   01 01D73    4B80000C A            AND,8    12
     4450   01 01D74    68301D47              BCR,3    NXTLIN            NO
     4451   01 01D75    30501993              AW,5     8K                POINT TO NXT 8K
     4452   01 01D76    4B5019AD              AND,5    HFFE000
     4453   01 01D77    68001D46              B        NXTBNKL           TRY NEXT BANK
     4454   01 01D78    70200392     ADREXIT  LC       #SENSE
     4455   01 01D79    69401D3B              BCS,4    ADRST             LOOP ON TEST
     4456   01 01D7A    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     4457   01 01D7B    68001D8A              B        TOGEXIT           EXIT TEST
     4458                            *
     4459                            *
     4460                            *
     4461   01 01D7C    6D000041 A   ADRLEROR WD,0     X'41'             TURN ALARM ON
     4462   01 01D7D    70200392              LC       #SENSE        READ SENSE SWITCHES
     4463   01 01D7E    69101D86              BCS,1    TOGERXT
     4464   01 01D7F    3280000C A            LW,8     12                GET DATA RECEIVED
     4465   01 01D80    32A018A0              LW,10    BLANKS
     4466   01 01D81    6AF015A2              BAL,15   ERSTS             PRINT ERROR TEST AND STAT US
     4467                                     #PRINT   MSG49

            01 01D82    EA6003C5
            01 01D83    EA6003CD
            01 01D84    C000996C A
            01 01D85    EA6003C6
     4468   01 01D86    6AF01770     TOGERXT  BAL,15   S3HLT             ERROR HALT
     4469   01 01D87    70200392              LC       #SENSE
     4470   01 01D88    69801D5F              BCS,8    BTOG              LOOP ON ERROR
     4471   01 01D89    69401D3B              BCS,4    ADRST             LOOP ON TEST
     4472   01 01D8A    22800000 A   TOGEXIT  LI,8     0
     4473   01 01D8B    35801964              STW,8    SPFLG             RESET SPEC PARITY FLAG
     4474   01 01D8C    68001D8D              B        RANDMTST          NO
     4475                            *
     4476                            *
     4477                            *
     4478                            *
     4479                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   20
A    4481                            *
     4482                            *        LOGIC TEST  F
     4483                            *
     4484                            *        RANDOM DATA TEST
     4485                            *
     4486   01 01D8D    330012C8     RANDMTST MTW,0    TS+5              TEST SELECTED
     4487   01 01D8E    68301DCB              BCR,3    RADRSTST          EXIT IF NOY SO

     4489   01 01D8F    228000C6 A            LI,8     'F'
     4490   01 01D90    358019C4              STW,8    TSTON

     4492   01 01D91    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     4493   01 01D92    325018EE     RANDST   LW,5     LOWLIM            GET LOW LIMIT
     4494   01 01D93    32801022              LW,8     MFIRBIT
     4495   01 01D94    6D801100 A            WD,8     X'1100'           ASSURE MFI IS DISARMES
     4496   01 01D95    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS

     4498   01 01D96    12801E16              LD,8     M1                SAVE STATE OF RNG
     4499   01 01D97    15801E1A              STD,8    RNDSM
     4500   01 01D98    12801E18              LD,8     SEED
     4501   01 01D99    15801E1C              STD,8    RNDSS

     4503   01 01D9A    6AF017D3     NXTRND   BAL,15   RSKIP             SKIP RESIDING AREA
     4504   01 01D9B    68001DA2              B        TSTRND
     4505   01 01D9C    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4506   01 01D9D    6AF01E0A              BAL,15   RANDOM            GENERATE RANDOM #
     4507   01 01D9E    358A0000 A            STW,8    0,5               STORE RANDOM NO.
     4508   01 01D9F    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4509   01 01DA0    20500001 A            AI,5     1
     4510   01 01DA1    68001D9A              B        NXTRND
     4511                            *
     4512                            * TEST STORED RANDOM NUMBERS
     4513                            *
     4514         01 01DA2           TSTRND   EQU      %
     4515   01 01DA2    12801E1A              LD,8     RNDSM             RESTORE THE STATE
     4516   01 01DA3    15801E16              STD,8    M1                 OF THE RNG
     4517   01 01DA4    12801E1C              LD,8     RNDSS
     4518   01 01DA5    15801E18              STD,8    SEED

     4520   01 01DA6    325018EE              LW,5     LOWLIM            FETCH LOW LIMIT
     4521   01 01DA7    6AF017D3     NXTBLK   BAL,15   RSKIP              SKIP RESIDENT AREA
     4522   01 01DA8    68001DBA              B        RTSTDONE
     4523   01 01DA9    6AF017AE     GENRNDM  BAL,15   MAP               SET MAP REGISTERS
     4524   01 01DAA    6AF01E0A              BAL,15   RANDOM            GENERAT RANDOM #
     4525   01 01DAB    22AFFFFF A            LI,10    -1
     4526   01 01DAC    35A01941              STW,10   EXPFLG            SET FLAG
     4527   01 01DAD    68001DAE              B        %+1
     4528   01 01DAE    68001DAF              B        %+1
     4529   01 01DAF    22A01DAF              LI,10    %                 PRELOAD R10
     4530   01 01DB0    32AA0000 A            LW,10    0,5               DATA OK
     4531   01 01DB1    70200392              LC       #SENSE
     4532   01 01DB2    69801DAF              BCS,8    %-3               SSW 1 SHORT LOOP
     4533   01 01DB3    33101941              MTW,1    EXPFLG            RESET FLAG
     4534   01 01DB4    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     4535   01 01DB5    31A00008 A            CW,10    8
     4536   01 01DB6    69301DBE              BCS,3    RNDMERR           NO
     4537   01 01DB7    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     4538   01 01DB8    20500001 A            AI,5     1                 YES
     4539   01 01DB9    68001DA7              B        NXTBLK
     4540                            *
     4541   01 01DBA    70200392     RTSTDONE LC       #SENSE
     4542   01 01DBB    69401D92              BCS,4    RANDST            LOOP ON TEST
     4543   01 01DBC    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     4544   01 01DBD    68001DCB              B        RADRSTST          GO TO NEXT TEST
     4545                            *
     4546   01 01DBE    6D000041 A   RNDMERR  WD,0     X'41'             TURN ALARM ON
     4547   01 01DBF    6AF017AE              BAL,15   MAP               SET MAP REG.
     4548   01 01DC0    32A00008 A            LW,10    8                 GET EXP. DATA
     4549   01 01DC1    02200010 A            LCI      1
     4550   01 01DC2    2D8A0000 A            LMS,8    0,5               GET REC DATA
     4551   01 01DC3    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     4552   01 01DC4    6AF015A2              BAL,15   ERSTS             READ AND TYPE ERROR STATUS
     4553   01 01DC5    6AF01770              BAL,15   S3HLT             HALT IF SSW 3 IS RESET
     4554                            *
     4555                            * HALT INDICATES RANDOM DATA TEST ERROR.
     4556                            * SET SSW 1 TO LOOP ON ERROR OR SSW 2 TO LOOP ON TEST.
     4557                            *
     4558   01 01DC6    70200392              LC       #SENSE
     4559   01 01DC7    69801DA9              BCS,8    GENRNDM           LOOP ON ERROR
     4560   01 01DC8    69401D92              BCS,4    RANDST            LOOP ON TEST
     4561   01 01DC9    68001DCB              B        RADRSTST          GO RANDOM ADRS TEST
     4562                            *
     4563                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   21
A    4565                            *
     4566                            *        LOGIC TEST  G
     4567                            *
     4568                            *        RANDOM ADDRESSING TEST
     4569                            *
     4570   01 01DCA    00000000 A   RADRFLG  DATA     0
     4571                            *
     4572   01 01DCB    330012C9     RADRSTST MTW,0    TS+6              TEST SELECTED
     4573   01 01DCC    68301E1E              BCR,3    PCTEST            EXIT IF NOT SO

     4575   01 01DCD    12801E16              LD,8     M1                SAVE THE STATE
     4576   01 01DCE    15801E1A              STD,8    RNDSM              OF THE RNG
     4577   01 01DCF    12801E18              LD,8     SEED
     4578   01 01DD0    15801E1C              STD,8    RNDSS

     4580   01 01DD1    228000C7 A            LI,8     'G'
     4581   01 01DD2    358019C4              STW,8    TSTON
     4582   01 01DD3    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     4583   01 01DD4    22800000 A   RADRST   LI,8     0
     4584   01 01DD5    35801DCA              STW,8    RADRFLG           INITIALIZE FLG
     4585   01 01DD6    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     4586   01 01DD7    3A3018EF     RADRBEG  LCW,3    HILIM
     4587   01 01DD8    303018EE              AW,3     LOWLIM

     4589   01 01DD9    2530007F A            SLS,3    -1                SET COUNTER TO RANGE/2

     4591   01 01DDA    12801E1A              LD,8     RNDSM             RESTORE THE STATE
     4592   01 01DDB    15801E16              STD,8    M1                 OF THE RNG
     4593   01 01DDC    12801E1C              LD,8     RNDSS
     4594   01 01DDD    15801E18              STD,8    SEED

     4596   01 01DDE    6AF01E0A     GENRADR  BAL,15   RANDOM            GET A RANDOM ADDRESS
     4597   01 01DDF    4B801982              AND,8    MEMRYSIZ
     4598   01 01DE0    198018EE              CLM,8    LOWLIM
     4599   01 01DE1    68901DE4              BCR,9    %+3
     4600   01 01DE2    65301DDE              BIR,3    GENRADR           TRY ANOTHER ADDRESS IF NOT IN RANGE
     4601   01 01DE3    68001DFF              B        ADRDONE
     4602   01 01DE4    32500008 A            LW,5     8
     4603   01 01DE5    6AF017D3              BAL,15   RSKIP             IGNORE IF NOT IN RANGE
     4604   01 01DE6    68001DE9              B        %+3
     4605                            *
     4606   01 01DE7    31500008 A            CW,5     8                 ANY CHANGE
     4607   01 01DE8    68301DEB              BCR,3    %+3               NO, THEN RANDOM ADDRESS LEGAL
     4608   01 01DE9    65301DDE              BIR,3    GENRADR           YES, ILLEGAL - TRY ANOTHER ONE
     4609   01 01DEA    68001DFF              B        ADRDONE
     4610                            *
     4611   01 01DEB    6AF017AE     SHTLP    BAL,15   MAP               SET MAP REGISTERS
     4612   01 01DEC    33001DCA              MTW,0    RADRFLG           FLG SET
     4613   01 01DED    69301DF2              BCS,3    FETCHADR          BRANCH IF FLG RESET
     4614   01 01DEE    358A0000 A            STW,8    0,5               STORE ADR VALUE IN ITSELF IF FLG SET
     4615   01 01DEF    65301DDE              BIR,3    GENRADR           TRY NEXT ONE IF NOT DONE
     4616   01 01DF0    33101DCA     SETADRFG MTW,1    RADRFLG           SET FLG
     4617   01 01DF1    68001DD7              B        RADRBEG
     4618                            *
     4619   01 01DF2    02200010 A   FETCHADR LCI      1
     4620   01 01DF3    2D8A0000 A            LMS,8    0,5               GET RANDOM DATA
     4621   01 01DF4    70200392              LC       #SENSE
     4622   01 01DF5    69801DF2              BCS,8    %-3               SHORT LOOP
     4623   01 01DF6    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4624   01 01DF7    31800005 A            CW,8     5                 ANY ERROR
     4625   01 01DF8    69301E02              BCS,3    RANDERR           YES, GO REPORT THE ERROR
     4626   01 01DF9    6D000040 A            WD,0     X'40'             TURN ALARM OFF
     4627   01 01DFA    65301DDE              BIR,3    GENRADR           NO
     4628   01 01DFB    70200392     FETCHEND LC       #SENSE
     4629   01 01DFC    69401DD4              BCS,4    RADRST            LOOP ON TEST
     4630   01 01DFD    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     4631   01 01DFE    68001E07              B        RANDERX           GO TO NEXT TEST
     4632                            *
     4633   01 01DFF    33001DCA     ADRDONE  MTW,0    RADRFLG
     4634   01 01E00    69301DFB              BCS,3    FETCHEND          TEST COMPL.
     4635   01 01E01    68001DF0              B        SETADRFG          SET FLAG
     4636                            *
     4637   01 01E02    32A00005 A   RANDERR  LW,10    5                 GET EXPECTED DATA
     4638   01 01E03    6AF021FC              BAL,15   ERRORR            REPORT ERROR
     4639   01 01E04    70200392              LC       #SENSE
     4640   01 01E05    69801DEB              BCS,8    SHTLP             LOOP ON ERROR
     4641   01 01E06    69401DD4              BCS,4    RADRST            LOOP ON TEST
     4642   01 01E07    22800000 A   RANDERX  LI,8     0
     4643   01 01E08    35801DCA              STW,8    RADRFLG           RESET FLAG
     4644   01 01E09    68001E1E              B        PCTEST            GO TO PORT CONFLICT TEST
     4645                            *
     4646                            *
     4647                            * ROUTINE TO GENERATE A RANDOM NUMBER
     4648                            *
     4649   01 01E0A    33101E16     RANDOM   MTW,1    M1
     4650   01 01E0B    68301E0D              BCR,3    %+2
     4651   01 01E0C    33F01E17              MTW,-1   M2
     4652   01 01E0D    32E01E18              LW,14    SEED
     4653   01 01E0E    2580020D A            SCS,8    13
     4654   01 01E0F    30801E19              AW,8     K
     4655   01 01E10    48801E16              EOR,8    M1
     4656   01 01E11    48801E17              EOR,8    M2
     4657   01 01E12    35801E18              STW,8    SEED
     4658   01 01E13    E800000F A            B        *15

     4660                                     BOUND    8
     4661   01 01E14    12B9B0A1 A   M1T      DATA     314159265         PI - PRE-SET M1 VALUE
     4662   01 01E15    544B2FBA A   SEEDT    DATA     1414213562        SQRT(2)

     4664   01 01E16    00000000 A   M1       DATA     0
     4665   01 01E17    00000000 A   M2       DATA     0
     4666   01 01E18    00000000 A   SEED     DATA     0
     4667   01 01E19    00000000 A   K        DATA     0

     4669   01 01E1A                 RNDSM    RES      2
     4670   01 01E1C                 RNDSS    RES      2
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   22
A    4672                            *        LOGIC TEST  H
     4673                            *
     4674                            *        PORT CONFLICT TEST
     4675                            *
     4676                            *        THIS TEST CHECKS FOR OCCURENCE OF PORT CONFLICTS
     4677                            *        WHEN AN MIOP (MS) AND THE CPU ARE TRYING TO ACCESS
     4678                            *        THE SAME BANK IN THE MEMORY. MS I/O UNIT ADR = (0-7)
     4679                            *        AND MS-DIO ADR = (00-7F) ACCORDING TO CONFIGURATION.
     4680                            *
     4681                            *        INITIALIZATION
     4682                            *
     4683   01 01E1E    330012CA     PCTEST   MTW,0    TS+7              SKIP IF PORT CONFLICT
     4684   01 01E1F    68301EBF              BEZ      MSTART             TEST NOT SELECTED

     4686   01 01E20    228000C8 A            LI,8     'H'               SET CURRENT
     4687   01 01E21    358019C4              STW,8    TSTON              TEST IN PROGRESS

     4689   01 01E22    6D000040 A            WD,0     X'40'             RESET POSSIBLE ALARM

     4691   01 01E23    228FFFFF A   PCTST    LI,8     -1                PORT CONFLICT TEST FLAG
     4692   01 01E24    35801959              STW,8    CONTST             IS SET NOW

     4694   01 01E25    6AF0179F              BAL,15   MAPINTL           INITIALIZE MAP REGISTERS

     4696   01 01E26    22800000 A            LI,8     0                 CLEAR PORT CONFLICT ERROR
     4697   01 01E27    3580195E              STW,8    CONFLG             AND MSDIO ERROR FLAGS
     4698   01 01E28    3580195F              STW,8    MSADRFLG

     4700   01 01E29    22800C00 A            LI,8     X'C00'            ENABLE ALL POSSIBLE SYSTEM
     4701   01 01E2A    6D801200 A            WD,8     X'1200'            FAULT INTERRUPTS (PFI, MFI)
     4702   01 01E2B    6D000037 A            WD,0     X'37'               SET INTERRUPT INHIBITS
     4703                            *
     4704                            *
     4705                            *
     4706                            * RESET MIOP CHANNEL
     4707                            *
     4708   01 01E2C    32701E96              LW,7     IOPMSADR          IOP & CHANNEL DESIGNATION
     4709   01 01E2D    497019AC              OR,7     H4000
     4710   01 01E2E    CF600007 A            RIO,6    *7
     4711   01 01E2F    68C01E38              BCR,12   MSADROK           RIO OK
     4712                            *
     4713   01 01E30    70200392              LC       #SENSE
     4714   01 01E31    69101E36              BCS,1    MSADRIDL
     4715                                     #TYPE    MSG78

            01 01E32    EA6003C5
            01 01E33    EA6003CC
            01 01E34    00009B60 A
            01 01E35    EA6003C6
     4716   01 01E36    8F9003CA     MSADRIDL XPSD,9   *#RUNADDR%
     4717   01 01E37    68001E1E              B        PCTEST            TRY AGAIN
     4718                            *
     4719                            *
     4720                            *
     4721                            *SET  MS  ADDRESS, SET MS ON LINE & DEVICE CONTROLLER(S) OFF LINE.
     4722                            *
     4723   01 01E38    22702015 A   MSADROK  LI,7     X'2015'           CONTROL FOR GROUP 21 DEC(CH B)
     4724   01 01E39    32801E96              LW,8     IOPMSADR          TEST FOR CANNEL A OR B
     4725   01 01E3A    4B8019B4              AND,8    H100
     4726   01 01E3B    69201E3D              BCS,2    %+2
     4727   01 01E3C    2270200D A            LI,7     X'200D'           CONTROL FOR GROUP 13 DEC (CH A)
     4728   01 01E3D    32301E97              LW,3     DIOADR            IO MS ADR
     4729   01 01E3E    25300005 A            SLS,3    5                 FORMAT
     4730   01 01E3F    30300007 A            AW,3     7                 CONTROL BITS
     4731   01 01E40    32801E96              LW,8     IOPMSADR          MS ADDRSS
     4732   01 01E41    4B8019B2              AND,8    HFF
     4733   01 01E42    25800010 A            SLS,8    16
     4734   01 01E43    32900008 A            LW,9     8
     4735   01 01E44    6AF016B4              BAL,15   PBIT              FIND PARITY
     4736   01 01E45    68101E48              BCR,1    %+3               SKIP IF ON
     4737   01 01E46    3280199C              LW,8     H1000000
     4738   01 01E47    68001E49              B        %+2
     4739   01 01E48    22800000 A            LI,8     0
     4740   01 01E49    49800009 A            OR,8     9                 SET CORRECT PARITY
     4741                            *
     4742   01 01E4A    6D860000 A            WD,8     0,3               ISSUE DIO CONTROL FOR ADR
     4743   01 01E4B    20300002 A            AI,3     2                 CONTROL. GENERATE GROUP 15 OR 23
     4744   01 01E4C    35301E98              STW,3    SAVEGRP           SAVE
     4745   01 01E4D    328019B5              LW,8     HC0000000         MS ON-LINE, DEVICE OFF LINE
     4746   01 01E4E    6D860000 A            WD,8     0,3               ISSUE DIO CONTROL FOR MS ON-LINE
     4747   01 01E4F    227E7960 A            LI,7     -100000           DEVICE CONTROLLER OFF-LINE
     4748   01 01E50    65701E50              BIR,7    %                 DELAY FOR 100 MILLISEC.
     4749                            *
     4750                            * WATCH DOG TIMER TRAP WILL OCCUR  HERE, IF DIO ADR IS NOT RECOGNIZED
     4751                            *
     4752   01 01E51    3300195F              MTW,0    MSADRFLG          WATCH DOG TIMER TRAP OCCURED
     4753   01 01E52    68301E60              BCR,3    GETLL             NO,
     4754                            *
     4755   01 01E53    3310195F              MTW,1    MSADRFLG          YES,RESET IT IMMEDIATELY
     4756                            *
     4757   01 01E54    CF001E96              RIO,0    *IOPMSADR
     4758   01 01E55    227E7960 A            LI,7     -100000
     4759   01 01E56    65701E56              BIR,7    %
     4760                            *
     4761   01 01E57    6AF0159B              BAL,15   MSOFF             TURN MS OFF
     4762   01 01E58    EA6003C7              BAL,6    *#ARMUSER         ARM TTY
     4763   01 01E59    70200392              LC       #SENSE
     4764   01 01E5A    69101EB0              BCS,1    PCTHLT
     4765                                     #TYPE    MSG67

            01 01E5B    EA6003C5
            01 01E5C    EA6003CC
            01 01E5D    00009A5C A
            01 01E5E    EA6003C6
     4766   01 01E5F    68001EB0              B        PCTHLT            RESTART TEST
     4767                            *
     4768   01 01E60    325018EE     GETLL    LW,5     LOWLIM            LOAD SPECIFIED MEM LOW LIMIT

     4770   01 01E61    32E00005 A            LW,14    5                 SET BASIC MS TRANSFER
     4771   01 01E62    25E00002 A            SLS,14   2                  IOCD
     4772   01 01E63    30E01E95              AW,14    PCCDWR
     4773   01 01E64    35E01E92              STW,14   PCCDW

     4775   01 01E65    22300000 A            LI,3     0                 SET FOR FULL 8K TRANSFER

     4777   01 01E66    6AF017D3              BAL,15   RSKIP             SKIP RES AREA AND GAPS
     4778   01 01E67    68001EB4              B        PCTEXIT           EXIT

     4780   01 01E68    21500000 A   PLOOP    CI,5     0                 TEST 1ST 8K
     4781   01 01E69    69301E75              BCS,3    1ST8KNUT          NO

     4783   01 01E6A    330018F0              MTW,0    RESLOW            SKIP IF COMET NOT IN 0-1FFF
     4784   01 01E6B    69301E78              BCS,3    NR1ST8K           NO

     4786   01 01E6C    32E00005 A   ADDBLOK  LW,14    5
     4787   01 01E6D    6AF017D3              BAL,15   RSKIP
     4788   01 01E6E    68001EB4              B        PCTEXIT

     4790   01 01E6F    32800005 A            LW,8     5
     4791   01 01E70    3880000E A            SW,8     14
     4792   01 01E71    22300000 A            LI,3     0
     4793   01 01E72    25800002 A            SLS,8    2                      MODIFY
     4794   01 01E73    66801E92              AWM,8    PCCDW               PCCDW
     4795   01 01E74    68001E7C              B        STMS

     4797   01 01E75    315018F0     1ST8KNUT CW,5     RESLOW            REACH RESIDING AREA
     4798   01 01E76    68301E6C              BCR,3    ADDBLOK           YES

     4800   01 01E77    68001E7C              B        STMS              NO, START MS

     4802   01 01E78    20500140 A   NR1ST8K  AI,5     X'140'            SKIP 1ST  X'140' LOCATIONS
     4803   01 01E79    22300140 A            LI,3     X'140'
     4804   01 01E7A    22801600 A            LI,8     X'1600'            AND MODIFY
     4805   01 01E7B    66801E92              AWM,8    PCCDW               PCCDW

     4807   01 01E7C    CF601E96     STMS     HIO,6    *IOPMSADR         HALT IO
     4808   01 01E7D    69C01E7C              BCS,12   %-1

     4810   01 01E7E    22000F49              LI,0     DA(PCCDW)         LOAD CMND PAIR INTO R0
     4811   01 01E7F    CC601E96              SIO,6    *IOPMSADR         EXECUTE SIO TO MS
     4812   01 01E80    69C01E7F              BCS,12   %-1               LOOP IF UNSUCCESSFUL SIO
     4813                            *
     4814   01 01E81    203FE001 A            AI,3     -X'1FFF'          SET UP COUNTER
     4815   01 01E82    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4816   01 01E83    32BA0000 A   PCBT     LW,11    0,5               ACCESS CORE
     4817   01 01E84    70200392              LC       #SENSE
     4818   01 01E85    69801E83              BCS,8    %-2               SHORT LOOP
     4819                            *
     4820                            * IF ANY PORT CONFLICT ERROR OCCURS AT THIS MOMENT COMPUTER TRAPS
     4821                            * TO LOC X'57'. BOTH MFI AND PE SIGNAL WILL BE GENERATED
     4822                            *
     4823   01 01E86    3300195E     PCINTRT  MTW,0    CONFLG            ANY PORT CONFLICT
     4824   01 01E87    69301E99              BCS,3    CONFLICT          YES
     4825   01 01E88    20500001 A            AI,5     1                 INCREMENT ACCESSED ADR
     4826   01 01E89    65301E83              BIR,3    PCBT              LOOP BACK TO ACCESS UP TO 8K
     4827                            *
     4828   01 01E8A    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4829   01 01E8B    20502000 A            AI,5     X'2000'
     4830   01 01E8C    6AF017D3              BAL,15   RSKIP
     4831   01 01E8D    68001EB4              B        PCTEXIT           YES

     4833   01 01E8E    22808000 A            LI,8     X'8000'           TRANSFER 8K WORDS
     4834   01 01E8F    66801E92              AWM,8    PCCDW              TO NEXT 8K BLOCK
     4835   01 01E90    68001E68              B        PLOOP

     4837                                     BOUND    8
     4838   01 01E92    01000000 A   PCCDW    GEN,8,24 1,0               PORT CONFLICT IOCD
     4839   01 01E93    80008000 A            GEN,8,24 X'80',X'8000'      BYTE COUNT = 32K = 8K WORDS
     4840   01 01E94    08000F49              GEN,8,24 8,DA(PCCDW)         TIC TO PCCDW

     4842   01 01E95    01000000 A   PCCDWR   GEN,8,24 1,0               PORT CONFLICT  CMND

     4844   01 01E96    00000005 A   IOPMSADR DATA     5                 IOP-MS ADDRESS
     4845   01 01E97    00000000 A   DIOADR   DATA     0                 DIO MIOP ADDRESS
     4846   01 01E98    00000000 A   SAVEGRP  DATA     0
     4847                            *
     4848                            *      PORT CONFLICT ERROR DETECTED, PROCEED TO REPORT FAULTY MODULES
     4849                            *
     4850   01 01E99    3310195E     CONFLICT MTW,1    CONFLG            RESET PORT CONFLICT FLAG
     4851   01 01E9A    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     4852   01 01E9B    6D000041 A            WD,0     X'41'             TURN ALARM ON
     4853   01 01E9C    6AF0159B              BAL,15   MSOFF
     4854   01 01E9D    EA6003C7              BAL,6    *#ARMUSER
     4855   01 01E9E    70200392              LC       #SENSE        READ SENSE SWITCHES
     4856   01 01E9F    69101EB0              BCS,1    PCTHLT
     4857   01 01EA0    6AF013AD              BAL,15   STATWD            GET STATUS WORDS 0,1,2
     4858   01 01EA1    3280194B              LW,8     WORD0             LOAD STATUS WORD 0''
     4859   01 01EA2    4B80199B              AND,8    H02000000         BIT 6 OF THIS WORD ON
     4860   01 01EA3    68301EA9              BCR,3    NOPORTER          NO
     4861                                     #PRINT   MSG68

            01 01EA4    EA6003C5
            01 01EA5    EA6003CD
            01 01EA6    C0009A84 A
            01 01EA7    EA6003C6
     4862   01 01EA8    68001EAF              B        PCTHLT-1
     4863                            NOPORTER #PRINT   MSG69

            01 01EA9    EA6003C5
            01 01EAA    EA6003CD
            01 01EAB    C0009AA8 A
            01 01EAC    EA6003C6
     4864   01 01EAD    328018A0              LW,8     BLANKS
     4865   01 01EAE    32A018A0              LW,10    BLANKS
     4866   01 01EAF    6AF015A2              BAL,15   ERSTS             READ AND TYPE ERROR STATUS
     4867   01 01EB0    6AF01770     PCTHLT   BAL,15   S3HLT             ERROR HALT
     4868   01 01EB1    70200392              LC       #SENSE
     4869   01 01EB2    69C01E23              BCS,12   PCTST             LOOP ON TEST
     4870   01 01EB3    68001EB9              B        PCERRXT
     4871                            *
     4872                            * EXIT FROM PORT CONFLICT TEST
     4873                            *
     4874   01 01EB4    6AF0159B     PCTEXIT  BAL,15   MSOFF
     4875   01 01EB5    EA6003C7              BAL,LINK  *#ARMUSER
     4876   01 01EB6    70200392              LC       #SENSE
     4877   01 01EB7    69401E23              BCS,4    PCTST             LOOP ON TEST
     4878   01 01EB8    6AF0188B              BAL,15   TSTCOMP
     4879   01 01EB9    22800C00 A   PCERRXT  LI,8     X'C00'            DISABLE SYSTEM
     4880   01 01EBA    6D801100 A            WD,8     X'1100'            FAULT INTERRUPTS (MFI/PFI)
     4881   01 01EBB    6D000027 A            WD,0     X'27'             RESET INHIBITS
     4882   01 01EBC    22800000 A            LI,8     0
     4883   01 01EBD    35801959              STW,8    CONTST            RESET CONFLICT TEST FLAG
     4884   01 01EBE    02200000 A            LCI      0
     4885                            *
     4886                            *
     4887                            *
     4888                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   23
A    4890                            *
     4891                            *
     4892                            *       LOGIC TEST  I  (CONSISTS OF MAG. TESTS 1 THRU D )
     4893                            *
     4894                            *        MAGNETIC TESTS

     4896   01 01EBF    330021CE     MSTART   MTW,0    MSW               SKIP IF MAGNETICS
     4897   01 01EC0    683021B1              BEZ      NOMAG              HAVE BEEN SUPPRESSED

     4899   01 01EC1    228000C9 A   MSTART0  LI,8     'I'               SET TEST IDENTIFIER
     4900   01 01EC2    358019C4              STW,8    TSTON
     4901                            *
     4902   01 01EC3    22900001 A            LI,9     1                 R9=1 ALL THE TIME
     4903   01 01EC4    321018EE              LW,1     LOWLIM            GET LOW LIMIT
     4904   01 01EC5    322018EF              LW,2     HILIM             GET HIGH LIMIT
     4905   01 01EC6    22000000 A            LI,0     0                 R0 - ZERO ALL THE TIME
     4906   01 01EC7    350021CF              STW,0    MTST#             INITIALIZE TEST NUMBER
     4907   01 01EC8    350018EA              STW,0    INTRPFLG          RESET INTRPT
     4908   01 01EC9    350018F6              STW,0    PGENTST           RESET FLAG
     4909   01 01ECA    328021D6              LW,8     INSTPT            SAVE TEST STEP
     4910   01 01ECB    358021A3              STW,8    TPT               POINTER
     4911   01 01ECC    328021D5              LW,8     INTSPTR           SAVE TEST
     4912   01 01ECD    358021D1              STW,8    TSPTR             POINTER
     4913   01 01ECE    68002192              B        MCOM              START MAGNETIC TEST
     4914                            *
     4915                            *        MAGNETIC TEST  1
     4916                            *
     4917                            *        ONES DISCRIMINATION - DATA
     4918                            *
     4919   01 01ECF    6AF017F5     MTEST1   BAL,15   DISABLE           B TO 'DISABLE' ROUTINE
     4920   01 01ED0    228000F1 A            LI,8     '1'
     4921   01 01ED1    358021CF              STW,8    MTST#             SET UP TEST NO.
     4922   01 01ED2    6AF01817              BAL,15   NEUT              NEUTRALIZATION
     4923   01 01ED3    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     4924   01 01ED4    6AF017D3     MTST1    BAL,15   RSKIP             SKIP RES AREA
     4925   01 01ED5    68002192              B        MCOM              EXIT TEST
     4926   01 01ED6    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4927   01 01ED7    32A021CB              LW,10    ALL1S             LOAD TEST PAT.
     4928   01 01ED8    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     4929   01 01ED9    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE. CONT. TO R10
     4930   01 01EDA    32D021C4              LW,13    BITMASK           MASK FOR 'CS'
     4931   01 01EDB    22CFFFFF A   BT1      LI,12    -1
     4932   01 01EDC    35C01941              STW,12   EXPFLG            SET FLAG
     4933   01 01EDD    68001EDE              B        %+1
     4934   01 01EDE    68001EDF              B        %+1
     4935   01 01EDF    22C01EDF              LI,12    %                 PRELOAD R12
     4936   01 01EE0    32CA0000 A            LW,12    0,5               ACCESS CORE
     4937   01 01EE1    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     4938   01 01EE2    70200392              LC       #SENSE
     4939   01 01EE3    69801EDF              BCS,8    %-4               LOOP IF SW1 SET
     4940   01 01EE4    33101941              MTW,1    EXPFLG            RESET FLAG
     4941   01 01EE5    45C021CB              CS,12    ALL1S             IS DATA OK
     4942   01 01EE6    68301EEB              BCR,3    OK1               B IF DATA OK
     4943   01 01EE7    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     4944   01 01EE8    68001EDB              B        BT1               LOOP ON SSW 1 OR 2
     4945   01 01EE9    35001963              STW,0    1STIMFLG          RESET ISTIMFLG
     4946   01 01EEA    68001EEC              B        %+2
     4947   01 01EEB    6D000040 A   OK1      WD,0     X'40'             TURN ALARM OFF
     4948   01 01EEC    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     4949   01 01EED    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4950   01 01EEE    20500001 A            AI,5     1                 INCREMENT TA BY 1
     4951   01 01EEF    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     4952   01 01EF0    68001ED4              B        MTST1             B TO TEST NEXT ADR.
     4953                            *
     4954                            *        MAGNETIC TEST  2
     4955                            *
     4956                            *        ZERO DISCRIMINATION - DATA
     4957                            *
     4958   01 01EF1    6AF017F5     MTEST2   BAL,15   DISABLE           B TO 'DISABLE' ROUTINE
     4959   01 01EF2    228000F2 A            LI,8     '2'
     4960   01 01EF3    358021CF              STW,8    MTST#             SET UP TEST NO.
     4961   01 01EF4    6AF01817              BAL,15   NEUT              NEUTRALIZATION
     4962   01 01EF5    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     4963   01 01EF6    6AF017D3     MTST2    BAL,15   RSKIP             SKIP RES. AREA
     4964   01 01EF7    68002192              B        MCOM              EXIT TEST
     4965   01 01EF8    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     4966   01 01EF9    32A021CC              LW,10    ALL0S             LOAD TEST PAT.
     4967   01 01EFA    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     4968   01 01EFB    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE. CONT. TO R10
     4969   01 01EFC    32D021C4              LW,13    BITMASK           MASK FOR 'CS'
     4970   01 01EFD    22CFFFFF A   BT2      LI,12    -1
     4971   01 01EFE    35C01941              STW,12   EXPFLG            SET FLAG
     4972   01 01EFF    68001F00              B        %+1
     4973   01 01F00    68001F01              B        %+1
     4974   01 01F01    22C01F01              LI,12    %                 PRELOAD R12
     4975   01 01F02    32CA0000 A            LW,12    0,5               ACCESS CORE
     4976   01 01F03    49CA0000 A            OR,12    0,5               ACCESS CORE AGAIN
     4977   01 01F04    70200392              LC       #SENSE
     4978   01 01F05    69801F01              BCS,8    %-4               LOOP IF SW1 SET
     4979   01 01F06    33101941              MTW,1    EXPFLG            RESET FLAG
     4980   01 01F07    45C021CC              CS,12    ALL0S             IS DATA OK
     4981   01 01F08    68301F0D              BCR,3    OK2               YES
     4982   01 01F09    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     4983   01 01F0A    68001EFD              B        BT2               LOOP ON SSW 1 OR 2
     4984   01 01F0B    35001963              STW,0    1STIMFLG          RESET 1STIMFLG
     4985   01 01F0C    68001F0E              B        %+2
     4986   01 01F0D    6D000040 A   OK2      WD,0     X'40'             TURN ALARM OFF
     4987   01 01F0E    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     4988   01 01F0F    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     4989   01 01F10    20500001 A            AI,5     1                 INCREMENT TA BY 1
     4990   01 01F11    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     4991   01 01F12    68001EF6              B        MTST2             B TO TEST NEXT ADR.
     4992                            *
     4993                            *        MAGNETIC TEST  3
     4994                            *
     4995                            *        FAST DELTA WEAK ONES - DATA
     4996                            *
     4997   01 01F13    6AF017F5     MTEST3   BAL,15   DISABLE           B TO'DISABLE' ROUTINE
     4998   01 01F14    228000F3 A            LI,8     '3'
     4999   01 01F15    358021CF              STW,8    MTST#             SET UP TEST NO.
     5000   01 01F16    32A021CC              LW,10    ALL0S             GET PATTERN
     5001   01 01F17    6AF01828              BAL,15   SPREAD              AND SPREAD
     5002   01 01F18    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5003   01 01F19    6AF017D3     MTST3    BAL,15   RSKIP             SKIP RES. AREA
     5004   01 01F1A    68002192              B        MCOM              EXIT TEST
     5005                            *
     5006   01 01F1B    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5007   01 01F1C    6AF017AE              BAL,15   MAP               SET MAP REG.
     5008   01 01F1D    32A021CB              LW,10    ALL1S
     5009   01 01F1E    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5010   01 01F1F    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE. CONT. TO R10
     5011   01 01F20    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5012   01 01F21    32600005 A            LW,6     5
     5013                            *                                   NOTE: ADR. BITS 18,19,25-31 ARE
     5014                            *                                    FOR X-LINE ADDRESSING. SEE BASIC
     5015                            *                                     MEMORY SPEC.
     5016   01 01F22    316021CD              CW,6     THREF             IS TA ON X0 OR X64
     5017   01 01F23    68401F2F              BCR,4    X0X640            B IF YES
     5018   01 01F24    496021CD              OR,6     THREF             FIND OUT 63+ OR 127+
     5019   01 01F25    20600002 A            AI,6     2                 MAKE IT X64+1 OR X128+1
     5020   01 01F26    38600005 A            SW,6     5                 R6=(X64 OR X128)+1
     5021   01 01F27    3A600006 A            LCW,6    6                 FORM INDEX=-(64+1 OR 128+1 - START-
     5022   01 01F28    35001963              STW,0    1STIMFLG
     5023   01 01F29    6AF017AE     MORE2    BAL,15   MAP               SET MAP REGISTERS
     5024   01 01F2A    32A021CB              LW,10    ALL1S
     5025   01 01F2B    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5026   01 01F2C    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE. CONT. TO R10
     5027   01 01F2D    65601F35              BIR,6    BT3               IS X-COMPONENT OF TEST ADR=X000000
     5028   01 01F2E    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5029   01 01F2F    20500001 A   X0X640   AI,5     1                 NO GET TA+1
     5030   01 01F30    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5031   01 01F31    328021CC              LW,8     ALL0S
     5032   01 01F32    358A0000 A            STW,8    0,5               STORE ZEROS IN TA+1
     5033   01 01F33    205FFFFF A            AI,5     -1                GO BACK TO TA
     5034   01 01F34    33F017D2              MTW,-1   MAPTEMP+5         INCREMENT RES.TEST ADDRESS
     5035   01 01F35    22CFFFFF A   BT3      LI,12    -1
     5036   01 01F36    35C01941              STW,12   EXPFLG            SET FLAG
     5037   01 01F37    68001F38              B        %+1
     5038   01 01F38    68001F39              B        %+1
     5039   01 01F39    22C01F39              LI,12    %                 PRELOAD R12
     5040   01 01F3A    32CA0000 A            LW,12    0,5               ACCESS CORE
     5041   01 01F3B    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5042   01 01F3C    70200392              LC       #SENSE
     5043   01 01F3D    69801F39              BCS,8    %-4               LOOP IF SW1 SET
     5044   01 01F3E    33101941              MTW,1    EXPFLG            RESET FLAG
     5045   01 01F3F    32D021C4              LW,13    BITMASK           MASK FOR 'CS'
     5046   01 01F40    45C021CB              CS,12    ALL1S             COMPARE TO ALL1S WORD AGAIN
     5047   01 01F41    68301F47              BCR,3    GOOD0             B IF GOOD COMPARASION
     5048   01 01F42    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5049   01 01F43    68001F35              B        BT3               LOOP ON SSW 1 OR 2
     5050   01 01F44    35001963              STW,0    1STIMFLG          RESET 1STIMFLG
     5051   01 01F45    32A021C0              LW,10    MPAT
     5052   01 01F46    68001F48              B        %+2
     5053   01 01F47    6D000040 A   GOOD0    WD,0     X'40'             TURN ALARM OFF
     5054   01 01F48    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     5055   01 01F49    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5056   01 01F4A    20500001 A            AI,5     1                 INCREMENT TA BY 1 (TA=TA+1)
     5057   01 01F4B    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5058   01 01F4C    68002192              B        MCOM              EXIT TEST
     5059   01 01F4D    65301F29              BIR,3    MORE2             B IF MORE TA IN THIS 8K
     5060   01 01F4E    35901963              STW,9    1STIMFLG          SET FIRST TIME FLAG
     5061   01 01F4F    20500001 A            AI,5     1                 MOVE TO 1ST ADR. OF NEXT 8K
     5062   01 01F50    68001F19              B        MTST3             B TO TEST NEXT BANK
     5063                            *
     5064                            *        MAGNETIC TEST  4
     5065                            *
     5066                            *        FAST DELTA STRONG ZEROS - DATA
     5067                            *
     5068   01 01F51    6AF017F5     MTEST4   BAL,15   DISABLE           B TO 'DISABLE' ROUTINE
     5069   01 01F52    228000F4 A            LI,8     '4'
     5070   01 01F53    358021CF              STW,8    MTST#             SET UP TEST NO.
     5071   01 01F54    32A021CB              LW,10    ALL1S             GET P ATTERN
     5072   01 01F55    6AF01828              BAL,15   SPREAD              AND SPREAD
     5073   01 01F56    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5074   01 01F57    6AF017D3     MTST4    BAL,15   RSKIP             SKIP RES. AREA
     5075   01 01F58    68002192              B        MCOM              EXIT TEST
     5076                            *
     5077   01 01F59    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5078   01 01F5A    6AF017AE              BAL,15   MAP               SET MAP REG.
     5079   01 01F5B    32A021CC              LW,10    ALL0S
     5080   01 01F5C    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5081   01 01F5D    46AA0000 A            XW,10    0,5               TEST PAT TO TA, PRE. CONT. TO R10
     5082                            *                                   NOTE: ADR. BITS 18,19,25-31 ARE
     5083                            *                                    FOR X-LINE ADDRESSING. SEE BASIC
     5084                            *                                     MEMORY SPECIFICATION
     5085   01 01F5E    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5086   01 01F5F    32600005 A            LW,6     5
     5087   01 01F60    316021CD              CW,6     THREF             IS TA ON X0 OR X64
     5088   01 01F61    68401F6D              BCR,4    X0X641            B IF YES
     5089   01 01F62    496021CD              OR,6     THREF             FIND OUT 63+ OR 127+
     5090   01 01F63    20600002 A            AI,6     2                 MAKE IT X64+1 OR X128+1
     5091   01 01F64    38600005 A            SW,6     5                 R6=(X64 OR X128)+1
     5092   01 01F65    3A600006 A            LCW,6    6                 FORM INDEX=-(64+1 OR 128+1 - START-
     5093                            *                                    ING ADR)
     5094   01 01F66    35001963              STW,0    1STIMFLG          RESET 1STIMFLG
     5095   01 01F67    6AF017AE     MORE3    BAL,15   MAP               SET MAP REGISTERS
     5096   01 01F68    32A021CC              LW,10    ALL0S
     5097   01 01F69    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5098   01 01F6A    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE. CONT. TO R10
     5099   01 01F6B    65601F73              BIR,6    BT4               IS X-COMPONENT OF TEST ADR=X000000
     5100   01 01F6C    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5101   01 01F6D    20500001 A   X0X641   AI,5     1                 NO, GET TA+1
     5102   01 01F6E    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5103   01 01F6F    328021CB              LW,8     ALL1S
     5104   01 01F70    358A0000 A            STW,8    0,5               STORE ONES IN TA+1
     5105   01 01F71    205FFFFF A            AI,5     -1                GO BACK TO TA
     5106   01 01F72    33F017D2              MTW,-1   MAPTEMP+5         INCREMENT RES.TEST ADDRESS
     5107   01 01F73    22CFFFFF A   BT4      LI,12    -1
     5108   01 01F74    35C01941              STW,12   EXPFLG            SET FLAG
     5109   01 01F75    68001F76              B        %+1
     5110   01 01F76    68001F77              B        %+1
     5111   01 01F77    22C01F77              LI,12    %                 PRELOAD R12
     5112   01 01F78    32CA0000 A            LW,12    0,5               ACCESS CORE
     5113   01 01F79    49CA0000 A            OR,12    0,5               ACCESS CORE AGAIN
     5114   01 01F7A    70200392              LC       #SENSE
     5115   01 01F7B    69801F77              BCS,8    %-4               LOOP IF SW1 SET
     5116   01 01F7C    33101941              MTW,1    EXPFLG            RESET FLAG
     5117                            *
     5118   01 01F7D    32D021C4              LW,13    BITMASK           MASK FOR 'CS'
     5119   01 01F7E    45C021CC              CS,12    ALL0S             COMPARE TO ALL0S WORD AGAIN
     5120   01 01F7F    68301F84              BCR,3    GOOD1             B IF GOOD COMPARISION
     5121   01 01F80    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5122   01 01F81    68001F73              B        BT4               LOOP ON SSW 1 OR 2
     5123   01 01F82    35001963              STW,0    1STIMFLG          RESET 1STIMFLG
     5124   01 01F83    68001F85              B        %+2
     5125   01 01F84    6D000040 A   GOOD1    WD,0     X'40'             TURN ALARM OFF
     5126   01 01F85    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     5127   01 01F86    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5128   01 01F87    20500001 A            AI,5     1                 INCREMENT TA BY 1 (TA=TA+1)
     5129   01 01F88    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5130   01 01F89    68002192              B        MCOM              EXIT TEST
     5131   01 01F8A    65301F67              BIR,3    MORE3             B IF MORE TA IN THIS 8K
     5132   01 01F8B    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5133   01 01F8C    20500001 A            AI,5     1                 MOVE TO 1ST ADR. OF NEXT 8K
     5134   01 01F8D    68001F57              B        MTST4             B TO TEST NEXT BANK
     5135                            *
     5136                            *        MAGNETIC TEST  5
     5137                            *
     5138                            *        MAXIMUM DELTA WEAKEST ONES - DATA
     5139                            *
     5140   01 01F8E    6AF017F5     MTEST5   BAL,15   DISABLE           B TO 'DISABLE' ROUTINE
     5141   01 01F8F    228000F5 A            LI,8     '5'
     5142   01 01F90    358021CF              STW,8    MTST#             SET UP TEST NO.
     5143   01 01F91    32A021CC              LW,10    ALL0S             GET PATTERN
     5144   01 01F92    6AF01828              BAL,15   SPREAD              AND SPREAD
     5145   01 01F93    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5146   01 01F94    6AF017D3     MTST5    BAL,15   RSKIP             SKIP RES. AREA
     5147   01 01F95    68002192              B        MCOM              EXIT TEST
     5148   01 01F96    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5149   01 01F97    203FFFFF A            AI,3     -1                ADJUST INDEX
     5150   01 01F98    32A021CB              LW,10    ALL1S
     5151   01 01F99    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5152   01 01F9A    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5153   01 01F9B    35AA0000 A            STW,10   0,5               STORE ALL 1'S IN TA
     5154                            *
     5155   01 01F9C    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5156   01 01F9D    32800005 A            LW,8     5                 R5=STARTING TEST ADR.
     5157   01 01F9E    32600005 A            LW,6     5
     5158   01 01F9F    496021CD              OR,6     THREF             CONVERT TO X63 OR X127
     5159   01 01FA0    20600001 A            AI,6     1                 CONVERT TO X64 OR X128
     5160   01 01FA1    38600005 A            SW,6     5                 FIND DISTANCE FROM STARTING ADR.
     5161   01 01FA2    3A600006 A            LCW,6    6                  TO X64 OR X128 AND FROM INDEX
     5162   01 01FA3    4B8021CA              AND,8    NEG3F             CONVERT TO X0 OR X64,NEG3F=FFFFFFC0
     5163   01 01FA4    68001FAD              B        WHCHY0            B TO WHCHY
     5164   01 01FA5    6AF017AE     MAXDEL0  BAL,15   MAP               SET MAP REG.
     5165   01 01FA6    32A021CB              LW,10    ALL1S             ONES ARE STORED IN TA AFTER
     5166   01 01FA7    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5167   01 01FA8    35AA0000 A            STW,10   0,5                ITERATION
     5168   01 01FA9    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5169   01 01FAA    65601FB2              BIR,6    DISTB0            GO IF NOT ON X0 OR X64
     5170   01 01FAB    326021CA              LW,6     NEG3F             ON X0 OR X64 RELOAD R6 FOR INDEXING
     5171   01 01FAC    32800005 A            LW,8     5                 UPDATE R8
     5172   01 01FAD    318021C6     WHCHY0   CW,8     H1800             IS TA ON Y16 OR Y48 BEYOND
     5173                            *                                   NOTE: BIT 19 IS ASSIGNED TO Y32
     5174                            *                                         AND BIT 20 IS ASSIGND TO
     5175                            *                                         Y16(SEE BIT ASSIGNMENT IN
     5176                            *                                         PRODUCT DESIGN SPECIFICATION
     5177                            *                                         NO. 1176537)
     5178   01 01FAE    69401FB1              BCS,4    %+3               GO IF YES
     5179   01 01FAF    308021C8              AW,8     H200              USE 4 Y-LINES HIGHER IF NO
     5180   01 01FB0    68001FB2              B        %+2               GO IF NO
     5181   01 01FB1    388021C8              SW,8     H200              USE 4 Y-LINES LOWER
     5182   01 01FB2    20800040 A   DISTB0   AI,8     64                R8=TA(+ OR - X'200')+ X'40'
     5183   01 01FB3    22700040 A            LI,7     64                DISTURB INDEX=64=X'40'
     5184   01 01FB4    46800005 A            XW,8     5
     5185   01 01FB5    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5186   01 01FB6    310A0000 A            CW,0     0,5               GET THE 1ST ADR. ON 4 Y-LINES
     5187                            *                                    HIGHER OR 4 Y-LINES LOWER
     5188   01 01FB7    205FFFFF A            AI,5     -1                DECREMENT THE DISTURBING ADR.
     5189   01 01FB8    64701FB6              BDR,7    %-2               64 ADRESSES ON 4 Y-LINES HIGHER
     5190   01 01FB9    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5191   01 01FBA    46800005 A            XW,8     5
     5192   01 01FBB    208FFFC0 A            AI,8     -64
     5193                            *                                    OR 4 Y-LINES LOWER WILL BE
     5194                            *                                     ACCESSED SEQUENTIALLY
     5195   01 01FBC    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5196   01 01FBD    22CFFFFF A   BT5      LI,12    -1
     5197   01 01FBE    35C01941              STW,12   EXPFLG            SET FLAG
     5198   01 01FBF    68001FC0              B        %+1
     5199   01 01FC0    68001FC1              B        %+1
     5200   01 01FC1    22C01FC1              LI,12    %                 PRELOAD R12
     5201   01 01FC2    32CA0000 A            LW,12    0,5               ACCESS CORE
     5202   01 01FC3    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5203   01 01FC4    70200392              LC       #SENSE
     5204   01 01FC5    69801FC1              BCS,8    %-4               LOOP IF SW1 SET
     5205   01 01FC6    33101941              MTW,1    EXPFLG            RESET FLAG
     5206   01 01FC7    32D021C4              LW,13    BITMASK           MASK FOR 'CS' INSTRUCTION
     5207   01 01FC8    45C021CB              CS,12    ALL1S             COMPARE TO ALL1S WORD,MASK IN R13
     5208   01 01FC9    68301FCE              BCR,3    FINE0             B IF GOOD COMPARISON
     5209   01 01FCA    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5210   01 01FCB    68001FBD              B        BT5               LOOP ON SSW 1 OR 2
     5211   01 01FCC    35001963              STW,0    1STIMFLG          1STIMFLG=1ST ERROR OCCURS, RESET
     5212                            *                                    THIS FLG.
     5213   01 01FCD    68001FCF              B        %+2
     5214   01 01FCE    6D000040 A   FINE0    WD,0     X'40'             TURN ALARM OFF
     5215   01 01FCF    350A0000 A            STW,0    0,5               RESTORE ORIGINAL TA
     5216   01 01FD0    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5217   01 01FD1    20500001 A            AI,5     1                 INCREMENT TA BY 1, TA TA+1
     5218   01 01FD2    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5219   01 01FD3    68002192              B        MCOM              EXIT TEST
     5220   01 01FD4    65301FA5              BIR,3    MAXDEL0           B IF MORE TA IN THIS 8K
     5221   01 01FD5    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5222   01 01FD6    68001F94              B        MTST5             B TO TEST NEXT BANK
     5223                            *
     5224                            *        MAGNETIC TEST  6
     5225                            *
     5226                            *        MAXIMUM DELTA STRONGEST ZEROS - DATA
     5227                            *
     5228   01 01FD7    6AF017F5     MTEST6   BAL,15   DISABLE           B TO 'DISABLE' ROUTINE
     5229   01 01FD8    228000F6 A            LI,8     '6'
     5230   01 01FD9    358021CF              STW,8    MTST#             SET UP TEST NO.
     5231   01 01FDA    32A021CB              LW,10    ALL1S             GET PATTERN
     5232   01 01FDB    6AF01828              BAL,15   SPREAD             AND SPREAD
     5233   01 01FDC    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5234   01 01FDD    6AF017D3     MTST6    BAL,15   RSKIP             SKIP RES. AREA
     5235   01 01FDE    68002192              B        MCOM              EXIT TEST
     5236   01 01FDF    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5237   01 01FE0    203FFFFF A            AI,3     -1                ADJUST INDEX
     5238   01 01FE1    32A021CC              LW,10    ALL0S
     5239   01 01FE2    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5240   01 01FE3    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5241   01 01FE4    35AA0000 A            STW,10   0,5               STORE ALL 0'S IN TA
     5242                            *
     5243   01 01FE5    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5244   01 01FE6    32800005 A            LW,8     5                 R5=STARTING TEST ADR.
     5245   01 01FE7    32600005 A            LW,6     5
     5246   01 01FE8    496021CD              OR,6     THREF             CONVERT TO X63 OR X127
     5247   01 01FE9    20600001 A            AI,6     1                 CONVERT TO X64 OR X128
     5248   01 01FEA    38600005 A            SW,6     5                 FIND DISTANCE FROM STARTING ADR.
     5249   01 01FEB    3A600006 A            LCW,6    6                  TO X64 OR X128 AND FORM INDEX
     5250   01 01FEC    4B8021CA              AND,8    NEG3F             CONVERT TO X0 OR X64
     5251                            *                                    NEG3F=FFFFFFC0
     5252   01 01FED    68001FF6              B        WHCHY1            B TO WHCHY
     5253   01 01FEE    6AF017AE     MAXDEL1  BAL,15   MAP               SET MAP REG.
     5254   01 01FEF    32A021CC              LW,10    ALL0S             ZEROS ARE STORED IN TA AFTER
     5255   01 01FF0    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5256   01 01FF1    35AA0000 A            STW,10   0,5                ITERATION
     5257   01 01FF2    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5258   01 01FF3    65601FFB              BIR,6    DISTB1            GO IF NOT ON X0 OR X64
     5259   01 01FF4    326021CA              LW,6     NEG3F             ON X0 OR X64 RELOAD R6 FOR INDEXING
     5260   01 01FF5    32800005 A            LW,8     5                 UPDATE R8
     5261   01 01FF6    318021C6     WHCHY1   CW,8     H1800             IS TA ON Y16 OR Y48 BEYOND
     5262                            *                                   NOTE: BIT 19 IS ASSIGNED TO Y32
     5263                            *                                         AND BIT 20 IS ASSIGND TO
     5264                            *                                         Y16(SEE BIT ASSIGNMENT IN
     5265                            *                                         PRODUCT DESIGN SPECIFICATION
     5266                            *                                         NO. 1176537)
     5267   01 01FF7    69401FFA              BCS,4    %+3               GO IF YES
     5268   01 01FF8    308021C7              AW,8     H400              IF NO USE 8 Y-LINES HIGHER
     5269   01 01FF9    68001FFB              B        %+2               GO IF NO
     5270   01 01FFA    388021C7              SW,8     H400              IF YES USE 8 Y-LINS LOWER
     5271   01 01FFB    20800040 A   DISTB1   AI,8     64                R8=TA(+ OR - X'400') + X'40'
     5272   01 01FFC    22700040 A            LI,7     64                DISTURB INDEX=64=X'40'
     5273   01 01FFD    46800005 A            XW,8     5
     5274   01 01FFE    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5275                            *                                    HIGHER OR 8 Y-LINES LOWER
     5276   01 01FFF    310A0000 A            CW,0     0,5               DISTURB CORE
     5277   01 02000    205FFFFF A            AI,5     -1                DECREMENT THE DISTURBING ADR.
     5278   01 02001    64701FFF              BDR,7    %-2               64 ADDRESSES ON 8 Y-LINES HIGHER
     5279   01 02002    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5280   01 02003    46800005 A            XW,8     5
     5281   01 02004    208FFFC0 A            AI,8     -64
     5282                            *                                    OR 8 Y-LINES LOWER WILL BE
     5283                            *                                     ACESSED SEQUENTIALLY
     5284   01 02005    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5285   01 02006    22CFFFFF A   BT6      LI,12    -1
     5286   01 02007    35C01941              STW,12   EXPFLG            SET FLAG
     5287   01 02008    68002009              B        %+1
     5288   01 02009    6800200A              B        %+1
     5289   01 0200A    22C0200A              LI,12    %                 PRELOAD R12
     5290   01 0200B    32CA0000 A            LW,12    0,5               ACCESS CORE
     5291   01 0200C    49CA0000 A            OR,12    0,5               ACCESS CORE AGAIN
     5292   01 0200D    70200392              LC       #SENSE
     5293   01 0200E    6980200A              BCS,8    %-4               LOOP IF SW1 SET
     5294   01 0200F    33101941              MTW,1    EXPFLG            RESET FLAG
     5295   01 02010    32D021C4              LW,13    BITMASK           MASK FOR 'CS' INSTRUCTION
     5296   01 02011    45C021CC              CS,12    ALL0S             COMPARE TO ALL0S WORD, MASK IN R13
     5297   01 02012    68302017              BCR,3    FINE1             B IF GOOD COMPARISON
     5298   01 02013    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5299   01 02014    68002006              B        BT6               LOOP ON SSW 1 OR 2
     5300   01 02015    35001963              STW,0    1STIMFLG          1STIMFLG=1ST ERROR OCCURS, RESET
     5301                            *                                    THIS FLG.
     5302   01 02016    68002018              B        %+2
     5303   01 02017    6D000040 A   FINE1    WD,0     X'40'             TURN ALARM OFF
     5304   01 02018    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     5305   01 02019    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5306   01 0201A    20500001 A            AI,5     1                 INCREMENT TA BY 1, TA TA+1
     5307   01 0201B    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5308   01 0201C    68002192              B        MCOM              EXIT TEST
     5309   01 0201D    65301FEE              BIR,3    MAXDEL1           B IF MORE TA IN THIS 8K
     5310   01 0201E    35901963              STW,9    1STIMFLG          SET FIRST TIME FLAG
     5311   01 0201F    68001FDD              B        MTST6             B TO TEST NEXT BANK
     5312                            *
     5313                            *        MAGNETIC TEST  7
     5314                            *
     5315                            *        ONES DISCRIMINATION - PARITY
     5316                            *
     5317   01 02020    228000F7 A   MTEST7   LI,8     '7'
     5318   01 02021    358021CF              STW,8    MTST#             SET UP TEST NO.
     5319   01 02022    6AF01802              BAL,15   ENABLE            B TO 'ENABLE' ROUTINE
     5320   01 02023    6AF01817              BAL,15   NEUT              NEUTRALIZATION
     5321   01 02024    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5322   01 02025    6AF017D3     MTST7    BAL,15   RSKIP             SKIP RES AREA
     5323   01 02026    68002192              B        MCOM              EXIT TEST
     5324   01 02027    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5325   01 02028    35001961              STW,0    MPFLG             RESET PARITY FLAG
     5326   01 02029    32A021C2              LW,10    P1W               P1W=X'C0000000'=PARITY 1 WORD
     5327   01 0202A    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5328   01 0202B    46AA0000 A            XW,10    0,5               P1W TO TA, PRE. CONT. TO R10
     5329   01 0202C    22CFFFFF A   BT7      LI,12    -1
     5330   01 0202D    35C01941              STW,12   EXPFLG            SET FLAG
     5331   01 0202E    6800202F              B        %+1
     5332   01 0202F    68002030              B        %+1
     5333   01 02030    22C02030              LI,12    %                 PRELOAD R12
     5334   01 02031    32CA0000 A            LW,12    0,5               ACCESS CORE
     5335   01 02032    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5336   01 02033    70200392              LC       #SENSE
     5337   01 02034    69802030              BCS,8    %-4               LOOP IF SW1 SET
     5338   01 02035    33101941              MTW,1    EXPFLG            RESET FLAG
     5339   01 02036    33001961              MTW,0    MPFLG             TEST MEDIC PARITY FLAG
     5340                            *                                   NOTE: MPFLG=0=NO PARITY FAULT
     5341                            *                                         MPFLG=1=PARITY FAULT
     5342   01 02037    6830203B              BCR,3    OK7               B IF OK
     5343   01 02038    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5344   01 02039    6800202C              B        BT7               LOOP ON SSW 1 OR 2
     5345   01 0203A    6800203C              B        %+2
     5346   01 0203B    6D000040 A   OK7      WD,0     X'40'             TURN OFF ALARM
     5347   01 0203C    35001963              STW,0    1STIMFLG          RESET FLAG FOR 1ST ERROR
     5348                            *                                    ALREADY OCCURRED
     5349   01 0203D    35001961              STW,0    MPFLG             RESET MEMORY PARITY ERROR FLAG
     5350   01 0203E    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5351   01 0203F    35AA0000 A            STW,10   0,5               RESTORE FORMER CONTENT OF TA
     5352   01 02040    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5353   01 02041    20500001 A            AI,5     1                 INCREMENT TA BY 1
     5354   01 02042    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5355   01 02043    68002025              B        MTST7             B TO TEST NEXT BANK
     5356                            *
     5357                            *        MAGNETIC TEST  8
     5358                            *
     5359                            *        ZEROS DISCRIMINATION - PARITY
     5360                            *
     5361   01 02044    228000F8 A   MTEST8   LI,8     '8'
     5362   01 02045    358021CF              STW,8    MTST#             SET UP TEST NO.
     5363   01 02046    6AF01802              BAL,15   ENABLE            B TO 'ENABLE' ROUTINE
     5364   01 02047    6AF01817              BAL,15   NEUT              NEUTRALIZATION
     5365   01 02048    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5366   01 02049    6AF017D3     MTST8    BAL,15   RSKIP             SKIP RES. AREA
     5367   01 0204A    68002192              B        MCOM              EXIT TEST
     5368   01 0204B    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5369   01 0204C    35001961              STW,0    MPFLG             RESET PARITY FLAG
     5370   01 0204D    32A021C3              LW,10    P0W               P0W=X'80000000'=PARITY 0 WORD
     5371   01 0204E    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5372   01 0204F    46AA0000 A            XW,10    0,5               P0W TO TA, PRE. CONT. TO R10
     5373   01 02050    22CFFFFF A   BT8      LI,12    -1
     5374   01 02051    35C01941              STW,12   EXPFLG            SET FLAG
     5375   01 02052    68002053              B        %+1
     5376   01 02053    68002054              B        %+1
     5377   01 02054    22C02054              LI,12    %                 PRELOAD R12
     5378   01 02055    32CA0000 A            LW,12    0,5               ACCESS CORE
     5379   01 02056    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5380   01 02057    70200392              LC       #SENSE
     5381   01 02058    69802054              BCS,8    %-4               LOOP IF SW1 SET
     5382   01 02059    33101941              MTW,1    EXPFLG            RESET FLAG
     5383   01 0205A    33001961              MTW,0    MPFLG             TEST:MPFLG=0=NO PARITY FAULT
     5384                            *                                        MPFLG=1=PARITY FAULT
     5385   01 0205B    6830205F              BCR,3    OK8               B IF OK
     5386   01 0205C    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5387   01 0205D    68002050              B        BT8               LOOP ON SSW 1 OR 2
     5388   01 0205E    68002060              B        %+2
     5389   01 0205F    6D000040 A   OK8      WD,0     X'40'             TURN OFF ALARM
     5390   01 02060    35001963              STW,0    1STIMFLG          RESET FLAG FOR 1ST ERROR
     5391                            *
     5392   01 02061    35001961              STW,0    MPFLG
     5393   01 02062    35AA0000 A            STW,10   0,5               RESTORE TA
     5394   01 02063    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5395   01 02064    20500001 A            AI,5     1                 INCR.TA
     5396   01 02065    35901963              STW,9    1STIMFLG          SET FLAG
     5397   01 02066    68002049              B        MTST8             B TO TEST NEXT BANK
     5398                            *
     5399                            *        MAGNETIC TEST  9
     5400                            *
     5401                            *        FAST DELTA WEAK ONES - PARITY
     5402                            *
     5403   01 02067    228000F9 A   MTEST9   LI,8     '9'
     5404   01 02068    358021CF              STW,8    MTST#             SET UP TEST NO.
     5405   01 02069    6AF01802              BAL,15   ENABLE
     5406   01 0206A    32A021C3              LW,10    P0W               GET PATTERN
     5407   01 0206B    6AF01828              BAL,15   SPREAD              AND SPREAD
     5408   01 0206C    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5409   01 0206D    6AF017D3     MTST9    BAL,15   RSKIP             SKIP RES. AREA
     5410   01 0206E    68002192              B        MCOM              EXIT TEST
     5411                            *
     5412   01 0206F    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5413   01 02070    35001961              STW,0    MPFLG             RESET PARITY FLAG
     5414   01 02071    32A021C2              LW,10    P1W               P1W=X'C0000000'=PARITY 1 WORD
     5415   01 02072    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5416   01 02073    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5417   01 02074    46AA0000 A            XW,10    0,5               P1W TO TA, PRE. CONT. TO R10
     5418   01 02075    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5419   01 02076    32600005 A            LW,6     5
     5420   01 02077    316021CD              CW,6     THREF             IS TA ON X0 OR X64
     5421   01 02078    68402083              BCR,4    X0X642            B IF YES
     5422   01 02079    496021CD              OR,6     THREF             FIND OUT 63+ OR 127+
     5423   01 0207A    20600002 A            AI,6     2                 MAKE IT X64+1 OR X128+1
     5424   01 0207B    38600005 A            SW,6     5                 R6=(X64 OR X128)+1
     5425                            *                                   NOTE: ADR. BIT 18,19,25-31 ARE
     5426                            *                                    FOR X-LINE ADDRESSING. SEE BASIC
     5427                            *                                     MEMORY SPECIFICATION
     5428   01 0207C    3A600006 A            LCW,6    6                 FORM INDEX=-(64+1 OR 128+1 -
     5429                            *                                    STARTING ADR)
     5430                            *
     5431   01 0207D    6AF017AE     MORE6    BAL,15   MAP               SET MAP REGISTERS
     5432   01 0207E    32A021C2              LW,10    P1W
     5433   01 0207F    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5434   01 02080    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE CONT TO R10
     5435   01 02081    65602089              BIR,6    BT9               IS X-COMPONENT OF TEST ADR.=X000000
     5436   01 02082    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5437   01 02083    20500001 A   X0X642   AI,5     1                 NO, GET TA+1
     5438   01 02084    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5439   01 02085    328021C3              LW,8     P0W
     5440   01 02086    358A0000 A            STW,8    0,5               CAUSE PARITY TO BE ZERO IN TA+1
     5441   01 02087    205FFFFF A            AI,5     -1                GO BACK TO TA
     5442   01 02088    33F017D2              MTW,-1   MAPTEMP+5         DECREMENT RES. TEST ADDRESS
     5443   01 02089    22CFFFFF A   BT9      LI,12    -1
     5444   01 0208A    35C01941              STW,12   EXPFLG            SET FLAG
     5445   01 0208B    6800208C              B        %+1
     5446   01 0208C    6800208D              B        %+1
     5447   01 0208D    22C0208D              LI,12    %                 PRELOAD R12
     5448   01 0208E    32CA0000 A            LW,12    0,5               ACCESS CORE
     5449   01 0208F    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5450   01 02090    70200392              LC       #SENSE
     5451   01 02091    6980208D              BCS,8    %-4               LOOP IF SW1 SET
     5452   01 02092    33101941              MTW,1    EXPFLG            RESET FLAG
     5453   01 02093    33001961              MTW,0    MPFLG             TEST FOR PARITY ERROR
     5454                            *                                    MPFLG=0=NO PARITY FAULT
     5455                            *                                    MPILG=1=PARITY FAULT
     5456   01 02094    6830209A              BCR,3    GOOD2             B IF GOOD PARITY
     5457   01 02095    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5458   01 02096    68002089              B        BT9               LOOP ON SSW 1 OR 2
     5459   01 02097    35001963              STW,0    1STIMFLG          RESET ISTIMFLG
     5460   01 02098    35001961              STW,0    MPFLG             RESET PARITY ERROR FLAG
     5461   01 02099    6800209B              B        %+2
     5462   01 0209A    6D000040 A   GOOD2    WD,0     X'40'             TURN ALARM OFF
     5463   01 0209B    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     5464   01 0209C    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5465   01 0209D    20500001 A            AI,5     1                 INCREMENT TA BY 1 (TA>TA+1)
     5466   01 0209E    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5467   01 0209F    68002192              B        MCOM              EXIT TEST
     5468   01 020A0    6530207D              BIR,3    MORE6
     5469   01 020A1    35901963              STW,9    1STIMFLG          SET ISTIMFLG
     5470   01 020A2    20500001 A            AI,5     1                 MOVE TO 1ST ADR. OF NEXT 8K
     5471   01 020A3    6800206D              B        MTST9             B TO TEST NEXT BANK
     5472                            *
     5473                            *        MAGNETIC TEST  A
     5474                            *
     5475                            *        FAST DELTA STRONG ZEROS - PARITY
     5476                            *
     5477   01 020A4    228000C1 A   MTEST10  LI,8     'A'
     5478   01 020A5    358021CF              STW,8    MTST#             SET UP TEST NO.
     5479   01 020A6    6AF01802              BAL,15   ENABLE            B TO 'ENABLE' ROUTINE
     5480   01 020A7    32A021C2              LW,10    P1W               GET PATTERN
     5481   01 020A8    6AF01828              BAL,15   SPREAD              AND SPREAD
     5482   01 020A9    325018EE              LW,5     LOWLIM            GET LOW LIMIT
     5483   01 020AA    6AF017D3     MTST10   BAL,15   RSKIP             SKIP RES. AREA
     5484   01 020AB    68002192              B        MCOM              EXIT TEST
     5485                            *
     5486   01 020AC    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5487   01 020AD    35001961              STW,0    MPFLG             RESET PARITY FLAG
     5488   01 020AE    32A021C3              LW,10    P0W               P0W=X'80000000'=PARITY 0 WORD
     5489   01 020AF    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5490   01 020B0    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5491   01 020B1    46AA0000 A            XW,10    0,5               P1W TO TA, PRE. CONTENT  TO R10
     5492   01 020B2    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5493   01 020B3    32600005 A            LW,6     5
     5494   01 020B4    316021CD              CW,6     THREF             IS TA ON X0 OR X64
     5495   01 020B5    684020BE              BCR,4    X0X643            B IF YES
     5496   01 020B6    496021CD              OR,6     THREF             FIND OUT 63+ OR 127+
     5497   01 020B7    20600002 A            AI,6     2                 MAKE IT X64+1 OR128+1
     5498   01 020B8    38600005 A            SW,6     5                 R6=(X64 OR X128)+1
     5499                            *                                   NOTE: ADR. BIT 18,19,25-31 ARE
     5500                            *                                    FOR X-LINE ADDRESSING. SEE BASIC
     5501                            *                                     MEMORY SPECIFICATION
     5502   01 020B9    3A600006 A            LCW,6    6                 FROM INDEX=-(64+1 OR 128+1 -
     5503                            *                                    STARTING ADR.)
     5504   01 020BA    6AF017AE     MORE7    BAL,15   MAP               SET MAP REGISTERS
     5505   01 020BB    32A021C3              LW,10    P0W
     5506   01 020BC    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5507   01 020BD    46AA0000 A            XW,10    0,5               TEST PAT. TO TA, PRE CONT. TO R10
     5508   01 020BE    656020C6     X0X643   BIR,6    BT10
     5509   01 020BF    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5510   01 020C0    20500001 A            AI,5     1                 NO,GET TA+1
     5511   01 020C1    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5512   01 020C2    328021C2              LW,8     P1W
     5513   01 020C3    358A0000 A            STW,8    0,5               CAUSE PARITY TO BE ONE IN TA+1
     5514   01 020C4    205FFFFF A            AI,5     -1                GO BACK TO TA
     5515   01 020C5    33F017D2              MTW,-1   MAPTEMP+5         DECREMENT RES. TEST ADDRESS
     5516   01 020C6    22CFFFFF A   BT10     LI,12    -1
     5517   01 020C7    35C01941              STW,12   EXPFLG            SET FLAG
     5518   01 020C8    680020C9              B        %+1
     5519   01 020C9    680020CA              B        %+1
     5520   01 020CA    22C020CA              LI,12    %                 PRELOAD R12
     5521   01 020CB    32CA0000 A            LW,12    0,5               ACCESS CORE
     5522   01 020CC    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5523   01 020CD    70200392              LC       #SENSE
     5524   01 020CE    698020CA              BCS,8    %-4               LOOP IF SW1 SET
     5525   01 020CF    33101941              MTW,1    EXPFLG            RESET FLAG
     5526   01 020D0    33001961              MTW,0    MPFLG             TEST FOR PARITY ERROR
     5527                            *                                    MPFLG=0=NO PARITY FAULT
     5528                            *                                    MPFLG=1=PARITY FAULT
     5529   01 020D1    683020D7              BCR,3    GOOD3             B IF GOOD PARITY
     5530   01 020D2    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5531   01 020D3    680020C6              B        BT10              LOOP ON SSW 1 OR 2
     5532   01 020D4    35001963              STW,0    1STIMFLG          RESET 1STIMFLG
     5533   01 020D5    35001961              STW,0    MPFLG             RESET PARITY ERROR FLAG
     5534   01 020D6    680020D8              B        %+2
     5535   01 020D7    6D000040 A   GOOD3    WD,0     X'40'             TURN ALARM OFF
     5536   01 020D8    35AA0000 A            STW,10   0,5               RESTORE ORIGINAL TA
     5537   01 020D9    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5538   01 020DA    20500001 A            AI,5     1                 INCR. TA
     5539   01 020DB    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5540   01 020DC    68002192              B        MCOM              EXIT TEST
     5541   01 020DD    653020BA              BIR,3    MORE7             B IF MORE TA IN THIS 8K
     5542   01 020DE    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5543   01 020DF    20500001 A            AI,5     1                 MOVE TO 1ST ADR. OF NEXT 8K
     5544   01 020E0    680020AA              B        MTST10            B TO TEST NEXT BANK
     5545                            *
     5546                            *        MAGNETIC TEST  B
     5547                            *
     5548                            *       MAXIMUM DELTA WEAKEST ONES - PARITY
     5549                            *
     5550   01 020E1    228000C2 A   MTEST11  LI,8     'B'
     5551   01 020E2    358021CF              STW,8    MTST#             SET UP TEST NO.
     5552   01 020E3    6AF01802              BAL,15   ENABLE            B TO 'ENABLE' ROUTINE
     5553   01 020E4    32A021C3              LW,10    P0W               GET PATTERN
     5554   01 020E5    6AF01828              BAL,15   SPREAD              AND SPREAD
     5555   01 020E6    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5556   01 020E7    6AF017D3     MTST11   BAL,15   RSKIP             SKIP RES. AREA
     5557   01 020E8    68002192              B        MCOM              EXIT TEST
     5558                            *
     5559   01 020E9    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5560   01 020EA    203FFFFF A            AI,3     -1                ADJUST INDEX
     5561   01 020EB    32800005 A            LW,8     5                 R5=STARTING TEST ADR.
     5562   01 020EC    32600005 A            LW,6     5
     5563   01 020ED    496021CD              OR,6     THREF             CONVERT TO X63 OR X127
     5564   01 020EE    20600001 A            AI,6     1                 CONVERT TO X64 OR X128
     5565   01 020EF    38600005 A            SW,6     5                 FIND DISTANCE FROM STARTING ADR.
     5566   01 020F0    3A600006 A            LCW,6    6                  TO X64 OR X128 AND FORM INDEX
     5567   01 020F1    4B8021CA              AND,8    NEG3F             CONVERT TO X0 OR X64,NEG3F=FFFFFFC0
     5568   01 020F2    680020FB              B        WHCHY2            B TO WHCHY2
     5569   01 020F3    6AF017AE     MAXDEL2  BAL,15   MAP               MAP T A
     5570   01 020F4    32A021C2              LW,10    P1W
     5571   01 020F5    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5572   01 020F6    35AA0000 A            STW,10   0,5               FORCE THE PARITY BIT OF TA TO BE 1
     5573   01 020F7    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     5574   01 020F8    65602100              BIR,6    DISTB2            GO IF NOT ON X0 OR X64
     5575   01 020F9    326021CA              LW,6     NEG3F             ON X0 OR X64 RELOAD R6 FOR INDEXING
     5576   01 020FA    32800005 A            LW,8     5                 UPDATE R8
     5577   01 020FB    318021C6     WHCHY2   CW,8     H1800             IS TA ON Y16 OR Y48 BEYOND
     5578                            *                                   NOTE: BIT 19 IS ASSIGNED TO Y32
     5579                            *                                         AND BIT 20 IS ASSIGND TO
     5580                            *                                         Y16(SEE BIT ASSIGNMENT IN
     5581                            *                                         PRODUCT DESIGN SPECIFICATION
     5582                            *                                         NO. 1176537)
     5583   01 020FC    694020FF              BCS,4    %+3               GO IF YES
     5584   01 020FD    308021C8              AW,8     H200              IF NO, USE 4 Y-LINES HIGHER
     5585   01 020FE    68002100              B        %+2               B IF NO
     5586   01 020FF    388021C8              SW,8     H200              IF YES, USE 4 Y-LINES LOWER
     5587   01 02100    20800040 A   DISTB2   AI,8     64                R8=TA(+ OR - X'200') + X'40'
     5588   01 02101    22700040 A            LI,7     64                DISTURB INDEX=64=X'40'
     5589                            *                                   R8=TA + OR - X'200'
     5590   01 02102    46800005 A            XW,8     5
     5591   01 02103    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5592   01 02104    310A0000 A            CW,0     0,5               GET THE 1ST ADR. ON 4 Y-LINES
     5593                            *                                    HIGHER OR 4 Y-LINES LOWER
     5594   01 02105    205FFFFF A            AI,5     -1                DECREMENT DISTURBING ADR.
     5595   01 02106    64702104              BDR,7    %-2               64 ADRESSES ON 4 Y-LINES HIGHER
     5596                            *                                    OR 4 Y-LINES LOWER WILL BE
     5597   01 02107    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5598   01 02108    46800005 A            XW,8     5
     5599   01 02109    208FFFC0 A            AI,8     -64
     5600                            *                                     ACCESSED SEQUENTIALLY
     5601   01 0210A    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5602   01 0210B    22CFFFFF A   BT11     LI,12    -1
     5603   01 0210C    35C01941              STW,12   EXPFLG            SET FLAG
     5604   01 0210D    6800210E              B        %+1
     5605   01 0210E    6800210F              B        %+1
     5606   01 0210F    22C0210F              LI,12    %                 PRELOAD R12
     5607   01 02110    32CA0000 A            LW,12    0,5               ACCESS CORE
     5608   01 02111    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5609   01 02112    70200392              LC       #SENSE
     5610   01 02113    6980210F              BCS,8    %-4               LOOP IF SW1 SET
     5611   01 02114    33101941              MTW,1    EXPFLG            RESET FLAG
     5612   01 02115    33001961              MTW,0    MPFLG             CHECK FOR MEMORY PARITY ERROR
     5613   01 02116    6830211C              BCR,3    FINE2             B IF NO PARITY ERROR
     5614   01 02117    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5615   01 02118    6800210B              B        BT11              LOOP ON SSW 1 OR 2
     5616   01 02119    35001963              STW,0    1STIMFLG          1STIMFLG=0=1ST ERROR ALREADY
     5617                            *                                   OCCURRED
     5618   01 0211A    35001961              STW,0    MPFLG             RESET PARITY ERROR FLAG
     5619   01 0211B    6800211D              B        %+2
     5620   01 0211C    6D000040 A   FINE2    WD,0     X'40'             TURN ALARM OFF
     5621   01 0211D    32A021C3              LW,10    P0W               PARITY ZERO WORD
     5622   01 0211E    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5623   01 0211F    35AA0000 A            STW,10   0,5               RESTORE FORMER TA
     5624   01 02120    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5625   01 02121    20500001 A            AI,5     1                 INCREMENT TA BY 1, TA-TA+1
     5626   01 02122    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5627   01 02123    68002192              B        MCOM              EXIT TEST
     5628   01 02124    653020F3              BIR,3    MAXDEL2
     5629   01 02125    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5630   01 02126    680020E7              B        MTST11            B TO TEST NEXT BANK
     5631                            *
     5632                            *        MAGNETIC TEST  C
     5633                            *
     5634                            *        MAXIMUM DELTA STRONGEST ZEROS - PARITY
     5635                            *
     5636   01 02127    228000C3 A   MTEST12  LI,8     'C'
     5637   01 02128    358021CF              STW,8    MTST#             SET UP TEST NO.
     5638   01 02129    6AF01802              BAL,15   ENABLE            B TO 'ENABLE' ROUTINE
     5639   01 0212A    32A021C2              LW,10    P1W               GET PATTERN
     5640   01 0212B    6AF01828              BAL,15   SPREAD              AND SPREAD
     5641   01 0212C    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5642   01 0212D    6AF017D3     MTST12   BAL,15   RSKIP             SKIP RES. AREA
     5643   01 0212E    68002192              B        MCOM              EXIT TEST
     5644   01 0212F    6AF01831              BAL,15   LIMCHECK          LIMIT CHECKING
     5645   01 02130    203FFFFF A            AI,3     -1                ADJUST INDEX
     5646   01 02131    32600005 A            LW,6     5
     5647   01 02132    496021CD              OR,6     THREF             CONVERT TO X63 OR X127
     5648   01 02133    20600001 A            AI,6     1                 CONVERT TO X64 OR X128
     5649   01 02134    38600005 A            SW,6     5                 FIND DISTANCE FROM STARTING ADR.
     5650   01 02135    3A600006 A            LCW,6    6                  TO X64 OR X128 AND FORM INDEX
     5651   01 02136    4B8021CA              AND,8    NEG3F             CONVERT TO X0 OR X64,NEG3F=FFFFFFC0
     5652   01 02137    68002140              B        WHCHY3            B TO WHCHY3
     5653   01 02138    6AF017AE     MAXDEL3  BAL,15   MAP               SET MAP REG.
     5654   01 02139    32A021C3              LW,10    P0W
     5655   01 0213A    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5656   01 0213B    35AA0000 A            STW,10   0,5               FORCE THE PARITY BIT OF TA TO BE 0
     5657   01 0213C    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5658   01 0213D    65602145              BIR,6    DISTB3            GO IF NOT ON X0 OR X64
     5659   01 0213E    326021CA              LW,6     NEG3F             ON X0 OR X64 RELOAD R6 FOR INDEXING
     5660   01 0213F    32800005 A            LW,8     5                 UPDATE R8
     5661   01 02140    318021C6     WHCHY3   CW,8     H1800             IS TA ON Y16 OR Y48
     5662                            *                                         AND BIT 20 IS ASSIGND TO
     5663                            *                                         Y16(SEE BIT ASSIGNMENT IN
     5664                            *                                         PRODUCT DESIGN SPECIFICATION
     5665                            *                                         NO. 1176537)
     5666   01 02141    69402144              BCS,4    %+3               GO IF YES
     5667   01 02142    308021C7              AW,8     H400              IF NO, USE 8 Y-LINES HIGHER
     5668   01 02143    68002145              B        %+2               GO IF NO
     5669   01 02144    388021C7              SW,8     H400              IF YES, USE 8 Y-LINES LOWER
     5670   01 02145    20800040 A   DISTB3   AI,8     64                R8=TA(+ OR - X'400') + X'40'
     5671   01 02146    22700040 A            LI,7     64                DISTURB INDEX=64=X'40'
     5672   01 02147    46800005 A            XW,8     5
     5673   01 02148    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5674   01 02149    310A0000 A            CW,0     0,5               GET THE 1ST ADR. ON 8 Y-LINES
     5675                            *                                    HIGHER OR 8 Y-LINES LOWER
     5676   01 0214A    205FFFFF A            AI,5     -1                DECREMENT DISTURBING ADR.
     5677   01 0214B    64702149              BDR,7    %-2               64 ADRESSES ON 8 Y-LINES HIGHER
     5678   01 0214C    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5679   01 0214D    46800005 A            XW,8     5
     5680   01 0214E    208FFFC0 A            AI,8     -64
     5681                            *                                     ACCESSED SEQUENTIALLY
     5682   01 0214F    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     5683   01 02150    22CFFFFF A   BT12     LI,12    -1
     5684   01 02151    35C01941              STW,12   EXPFLG            SET FLAG
     5685   01 02152    68002153              B        %+1
     5686   01 02153    68002154              B        %+1
     5687   01 02154    22C02154              LI,12    %                 PRELOAD R12
     5688   01 02155    32CA0000 A            LW,12    0,5               ACCESS CORE
     5689   01 02156    4BCA0000 A            AND,12   0,5               ACCESS CORE AGAIN
     5690   01 02157    70200392              LC       #SENSE
     5691   01 02158    69802154              BCS,8    %-4               LOOP IF SW1 SET
     5692   01 02159    33101941              MTW,1    EXPFLG            RESET FLAG
     5693                            *                                    MESSAGE ONLY)
     5694   01 0215A    33001961              MTW,0    MPFLG             CHECK FOR MEMORY PARITY ERROR
     5695   01 0215B    68302161              BCR,3    FINE3             B IF NO PARITY ERROR
     5696   01 0215C    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5697   01 0215D    68002150              B        BT12              LOOP ON SSW 1 OR 2
     5698   01 0215E    35001963              STW,0    1STIMFLG          1STIMFLG=0=1ST ERROR ALREADY
     5699                            *                                   OCCURRED
     5700   01 0215F    35001961              STW,0    MPFLG             RESET PARITY ERROR FLAG
     5701   01 02160    68002162              B        %+2
     5702   01 02161    6D000040 A   FINE3    WD,0     X'40'             TURN ALARM OFF
     5703   01 02162    32A021C2              LW,10    P1W               PARITY ZERO WORD
     5704   01 02163    35A021C0              STW,10   MPAT              SAVE TEST PATTERN
     5705   01 02164    35AA0000 A            STW,10   0,5               RESTORE FORMER TA
     5706   01 02165    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5707   01 02166    20500001 A            AI,5     1                 INCREMENT TA BY 1, TA-TA+1
     5708   01 02167    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5709   01 02168    68002192              B        MCOM              EXIT TEST
     5710   01 02169    65302138              BIR,3    MAXDEL3           B IF MORE TA IN THIS 8K
     5711   01 0216A    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5712   01 0216B    6800212D              B        MTST12            B TO TEST NEXT BANK
     5713                            *
     5714                            *        MAGNETIC TEST  D
     5715                            *
     5716                            *        EARLY PEAKING CORES
     5717                            *
     5718   01 0216C    228000C4 A   MTEST13  LI,8     'D'
     5719   01 0216D    358021CF              STW,8    MTST#             SET UP TEST NO.
     5720   01 0216E    6AF01802              BAL,15   ENABLE
     5721   01 0216F    32A021CC              LW,10    ALL0S             GET PATTERN
     5722   01 02170    6AF01828              BAL,15   SPREAD              AND SPREAD
     5723   01 02171    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5724   01 02172    6AF017D3     MTST13   BAL,15   RSKIP             SKIP RES. AREA
     5725   01 02173    68002192              B        MCOM              EXIT TEST
     5726   01 02174    6AF01831              BAL,15   LIMCHECK          LIMIT CHECK
     5727                            *
     5728   01 02175    6AF017AE     REDO     BAL,15   MAP               SET MAP REGISTERS
     5729   01 02176    32A021D4              LW,10    BIR               BIR=BIR,7  0,5
     5730   01 02177    35AA0000 A            STW,10   0,5               STORE THE ABOVE INSTRUCTION
     5731                            *                                    INTO TA
     5732   01 02178    32B021D0              LW,11    UCB               UCB=B  *15
     5733   01 02179    35BA0001 A            STW,11   1,5               STORE   ABOVE INSTRUCTION
     5734                            *                                    INTO TA+1 IN ORDER TO RETURN
     5735                            *                                     TO THIS TEST FOR NEXT LOCATION
     5736   01 0217A    3A7021C9     BT13     LCW,7    ITRATE#
     5737   01 0217B    35001961              STW,0    MPFLG             RESET MPFLG
     5738                            *
     5739   01 0217C    6AFA0000 A            BAL,15   0,5               EXECUTE 40 TIMES (BRANCH TO ITSELF
     5740                            *                                    40 TIMES IN TA), SINCE R5 = TA
     5741   01 0217D    70200392     T13FRTRN LC       #SENSE
     5742   01 0217E    6980217A              BCS,8    BT13              SHORT LOOP
     5743   01 0217F    33001961              MTW,0    MPFLG             CHECK FOR ERROR
     5744   01 02180    68302188              BCR,3    NHOT
     5745   01 02181    32C018A0              LW,12    BLANKS
     5746   01 02182    35C021C0              STW,12   MPAT
     5747   01 02183    6AF021D7              BAL,15   MERROR            B TO ERROR ROUTINE
     5748   01 02184    6800217A              B        BT13              LOOP ON SSW 1 OR 2
     5749   01 02185    35001963              STW,0    1STIMFLG          RESET 1STIMFLG
     5750   01 02186    35001961              STW,0    MPFLG             RESET MEMORY PARITY ERROR FLAG
     5751   01 02187    68002189              B        %+2
     5752   01 02188    6D000040 A   NHOT     WD,0     X'40'             TURN ALARM OFF
     5753   01 02189    350A0000 A            STW,0    0,5               CLEAR TA IF NO ERROR
     5754   01 0218A    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     5755   01 0218B    20500001 A            AI,5     1                 INCREMENT TA BY 1
     5756   01 0218C    6AF017D3              BAL,15   RSKIP             SKIP RES. AREA
     5757   01 0218D    68002192              B        MCOM              EXIT TEST
     5758   01 0218E    65302175              BIR,3    REDO              BI MORE TA IN THIS 8K
     5759   01 0218F    35901963              STW,9    1STIMFLG          SET 1STIMFLG
     5760   01 02190    20500001 A            AI,5     1                 MOVE TO 1ST ADR. OF NEXT 8K
     5761   01 02191    68002172              B        MTST13            B TO TEST NEXT BANK
     5762                            *
     5763                            * MAGNETIC TEST COMMUTATOR
     5764                            *
     5765                            * MAGNETIC COMMUTATOR ENABLES THE PROG. TO SELECT ANY TEST
     5766                            * SEOUENCE IF THE OPERATOR WISHES TO DO SO, UNDER THE CIRCUMSTANCE
     5767                            * WHEN CERTAIN TESTS ARE REOUIRED TO BE PERFORMED REPEATLY,
     5768                            * WHILE THE OTHERS ARE OMITTED. THE PROCEDURE IS SIMPLY TO TYPE IN
     5769                            * A NEW 'TSWRD' CORRESPONDING TO DESIRED SEOUENCE
     5770                            * NOTE: IN 'TSWRD' BIT POSITION 1 CORRESPONDS TO TEST 1,
     5771                            *       BIT POSITION 2 CORRESPONDS TO TEST 2 AND SO ON.
     5772                            *
     5773   01 02192    6AF0179F     MCOM     BAL,15   MAPINTL           INITIALIZE MAP REGISTERS
     5774   01 02193    6D000040 A            WD,0     X'40'           RESET ALARM
     5775   01 02194    328021A3              LW,8     TPT           GET CURRENT TEST POINTER
     5776   01 02195    318021D6              CW,8     INSTPT            NO TEST YET?
     5777   01 02196    6830219A              BCR,3    NXTMTST
     5778   01 02197    70200392              LC       #SENSE
     5779   01 02198    694021A3              BCS,4    TPT               LOOP ON TEST
     5780   01 02199    6AF0188B              BAL,15   TSTCOMP           PRINT 'TEST COMPLETED' MSG
     5781                            *
     5782   01 0219A    331021A3     NXTMTST  MTW,1    TPT               NO, POINT TO NEXT TEST
     5783   01 0219B    325018EE              LW,5     LOWLIM            GET LOW TEST LIMIT
     5784   01 0219C    328021D1              LW,8     TSPTR
     5785   01 0219D    2580007F A            SLS,8    -1                INCREMENT TEST POINTER
     5786   01 0219E    358021D1              STW,8    TSPTR
     5787   01 0219F    318021D3              CW,8     MAGEND
     5788   01 021A0    694021B1              BCS,4    MEDLOOP           END OF MAG TEST PASS
     5789   01 021A1    318021D2              CW,8     TSWRD             NEXT TEST SELECTED
     5790   01 021A2    6840219A              BCR,4    NXTMTST           NO

     5792   01 021A3    680021A3     TPT      B        %

     5794   01 021A4    68001ECF              B        MTEST1            ONES DISCRIMINATION - DATA
     5795   01 021A5    68001EF1              B        MTEST2            ZEROS DISCRIMINATION - DATA
     5796   01 021A6    68001F13              B        MTEST3            FAST DELTA WEAK ONES - DATA
     5797   01 021A7    68001F51              B        MTEST4            FAST DELTA STRONG ZEROS - DATA.
     5798   01 021A8    68001F8E              B        MTEST5            MAXIMUM DELTA WEAKEST ONES - DATA
     5799   01 021A9    68001FD7              B        MTEST6            MAXIMUM DELTA STRONGEST ZEROS-DATA
     5800   01 021AA    68002020              B        MTEST7            ONES DISCRIMINATION - PARITY
     5801   01 021AB    68002044              B        MTEST8            ZEROS DISCRIMINATION - PARITY
     5802   01 021AC    68002067              B        MTEST9            FAST DELTA WEAK ONES - PARITY
     5803   01 021AD    680020A4              B        MTEST10           FAST DELTA STRONG ZERES - PARITY
     5804   01 021AE    680020E1              B        MTEST11           MAXIMUM DELTA WEAKEST ONES-PARITY
     5805   01 021AF    68002127              B        MTEST12           MAXIMUM DELTA STRONGEST ZEROS-PAR1.
     5806   01 021B0    6800216C              B        MTEST13           EARLY PEAKING CORES

     5808         01 021B1           MEDLOOP  EQU      %
     5809         01 021B1           NOMAG    EQU      %
     5810   01 021B1    22000000 A            LI,0     0
     5811   01 021B2    350019C4              STW,0    TSTON             INITIALIZE TEST IN PROG. FLAG
     5812   01 021B3    350021CF              STW,0    MTST#             INITIALIZE TEST NO.
     5813   01 021B4    3300122D              MTW,0    SI
     5814   01 021B5    68301AED              BCR,3    CYCLE
     5815                            *
     5816   01 021B6    32801983              LW,8     SIPASS
     5817   01 021B7    3180122D              CW,8     SI                TIME TO OUTPUT STATUS
     5818   01 021B8    69101AED              BCS,1    CYCLE             CYCLE IF NOT
     5819   01 021B9    35001983              STW,0    SIPASS            INITIALIZE PASS FLAG
     5820                                     #PRINT   MSG4,C2           ...END

            01 021BA    EA6003C5
            01 021BB    EA6003CD
            01 021BC    C2009584 A
            01 021BD    EA6003C6
     5821   01 021BE    6A6010BA              BAL,LINK STATMSG           PRINT TEST STATUS
     5822                            *
     5823   01 021BF    68001AED              B        CYCLE             RECYCLE
     5824                            *
     5825                            *
     5826   01 021C0    00000000 A   MPAT     DATA     0
     5827   01 021C1    00000000 A   BNDKFLG  DATA     0
     5828   01 021C2    C0000000 A   P1W      DATA     X'C0000000'       PARITY=ONE WORD
     5829   01 021C3    80000000 A   P0W      DATA     X'80000000'       PARITY=ZERO WORD
     5830   01 021C4    00000000 A   BITMASK DATA     0
     5831   01 021C5    0001FFFF A   H1FFFF   DATA     X'1FFFF'          128K
     5832         01 021C5           128K     EQU      H1FFFF
     5833   01 021C6    00001800 A   H1800    DATA     X'1800'           Y48 ADR. BIT ASSIGNMENT
     5834   01 021C7    00000400 A   H400     DATA     X'400'            8 Y-LINES
     5835   01 021C8    00000200 A   H200     DATA     X'200'            4 Y-LINES
     5836   01 021C9    00000000 A   ITRATE#  DATA     0                 ITERATION NUMBER FOR TEST 13
     5837   01 021CA    FFFFFFC0 A   NEG3F    DATA     X'FFFFFFC0'       X'FFFFFFC0'=-64
     5838   01 021CB    FFFFFFFF A   ALL1S    DATA     -1                ONE TEST PATTERN
     5839   01 021CC    00000000 A   ALL0S    DATA     0                 ZERO TEST PATTERN
     5840   01 021CD    0000003F A   THREF    DATA     X'3F'             X'3F'=63
     5841   01 021CE    00000000 A   MSW      DATA     0
     5842   01 021CF    00000000 A   MTST#    DATA     0
     5843   01 021D0    E800000F A   UCB      B        *15
     5844   01 021D1    00000000 A   TSPTR    DATA     0                 TEST POINTER  LOCATION
     5845   01 021D2    7FFC0000 A   TSWRD    DATA     X'7FFC0000'       TEST WORD
     5846   01 021D3    00020000 A   MAGEND   DATA     X'20000'
     5847                            *                                    NOTE: FOR SINGLE TEST TSWRD WILL
     5848                            *                                          CONTAIN ONLY ONE BIT
     5849   01 021D4    657A0000 A   BIR      BIR,7    0,5
     5850   01 021D5    80000000 A   INTSPTR  DATA     X'80000000'       TEST POINTER CODE
     5851   01 021D6    680021A3     INSTPT   B        TPT               TEST STEP POINTER CODE
     5852                            *
     5853                            * MAGNETIC ERROR REPORT ROUTINE
     5854                            *
     5855                            * THIS ROUTINE WILL REPORT ERRORS AT THE MOMENT WHEN ERRORS
     5856                            * ARE CAUGHT.
     5857                            *
     5858                            * ENTRY:  MPAT = DATA EXPECTED, R12 = DATA RECEIVED
     5859                            *
     5860   01 021D7    6D000041 A   MERROR   WD,0     X'41'             SET ALARM
     5861   01 021D8    02200000 A            LCI      0
     5862   01 021D9    2B0021EC              STM,0    MTEMP             SAVE ALL REGISTERS
     5863   01 021DA    70200392              LC       #SENSE            READ SW4
     5864   01 021DB    691021E2              BCS,1    NOMPRNT           SUPPRESS ERROR PRINT OUT IF SET
     5865   01 021DC    32A021C0              LW,10    MPAT              GET DATA EXPECTED
     5866   01 021DD    02200010 A            LCI      1
     5867   01 021DE    2D8A0000 A            LMS,8    0,5               GET BAD DATA
     5868   01 021DF    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     5869   01 021E0    6AF015A2              BAL,15   ERSTS             PRINT FAIL. TST AND STATUS TITL
     5870                            *
     5871   01 021E1    6AF017AE              BAL,15   MAP               SET MAP REG.
     5872   01 021E2    022000E0 A   NOMPRNT  LCI      14
     5873   01 021E3    2D8A0000 A            LMS,8    0,5               CLEAR STATUS REG. 2
     5874   01 021E4    6AF01770              BAL,15   S3HLT             ERROR HALT
     5875   01 021E5    02200000 A            LCI      0
     5876   01 021E6    2A0021EC              LM,0     MTEMP             RESTORE REGISTERS
     5877   01 021E7    70200392              LC       #SENSE
     5878   01 021E8    E98021FB              BCS,8    *MTEMP+15         LOOP ON ERROR
     5879   01 021E9    694021A3              BCS,4    TPT               LOOP ON TEST
     5880   01 021EA    331021FB              MTW,1    MTEMP+15          INCR RETURN ADR
     5881   01 021EB    E80021FB              B        *MTEMP+15         CONTINUE
     5882                            *
     5883                            *
     5884   01 021EC                 MTEMP    RES      16
     5885                            *
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   24
A    5887                            *
     5888                            *
     5889                            *
     5890                            * ERROR ANALYSIS ROUTINE.  R5 = FA  R8 = BAD DATA   R10 = TEST PATTERN
     5891                            *
     5892   01 021FC    02200000 A   ERRORR   LCI      0
     5893   01 021FD    2B001B8D              STM,0    FASAVE            SAVE ALL REG'S
     5894   01 021FE    6D000041 A            WD,0     X'41'             TURN ON THE ALARM
     5895   01 021FF    70200392              LC       #SENSE
     5896   01 02200    69102260              BCS,1    STAT
     5897   01 02201    6AF017AE              BAL,15   MAP               SET MAP REGS.
     5898   01 02202    02200010 A            LCI      1
     5899   01 02203    2D8A0000 A            LMS,8    0,5               GET BAD DATA
     5900   01 02204    325017D2              LW,5     MAPTEMP+5         RESTORE R5
     5901   01 02205    6AF015A2              BAL,15   ERSTS             READ AND TYPE ERROR STATUS
     5902   01 02206    33001958              MTW,0    OMFLG             OM FLAG SET
     5903   01 02207    6830220F              BCR,3    NOOMERR           NO,
     5904   01 02208    32B00008 A            LW,11    8                 GET BAD DATA
     5905   01 02209    70200392              LC       #SENSE            READ SW
     5906   01 0220A    69102260              BCS,1    STAT              SUPPRESS PRINT-OUT IF SW4 SET
     5907                                     #PRINT   MSG7              PRINT ERROR MESSAGE

            01 0220B    EA6003C5
            01 0220C    EA6003CD
            01 0220D    C00095D0 A
            01 0220E    EA6003C6
     5908   01 0220F                 NOOMERR  RES      0
     5909   01 0220F    3300195A              MTW,0    PWFLG             PARTIAL WRITE ERROR
     5910   01 02210    68302215              BCR,3    NOTPW
     5911                                     #PRINT   MSG5              YES,  PRINT ERROR MESSAGE

            01 02211    EA6003C5
            01 02212    EA6003CD
            01 02213    C0009594 A
            01 02214    EA6003C6
     5912   01 02215                 NOTPW    RES      0
     5913   01 02215    330018ED              MTW,0    ADRFLG            ADR TEST ?
     5914   01 02216    69302260              BCS,3    STAT              YES
     5915   01 02217    33001965              MTW,0    PARTYFLG          NO, THEN PARITY TEST
     5916   01 02218    69302260              BCS,3    STAT              YES
     5917   01 02219    33001DCA              MTW,0    RADRFLG
     5918   01 0221A    69302260              BCS,3    STAT              B IF RAND ADR TEST
     5919   01 0221B    32E01B92              LW,14    FA
     5920                            *
     5921                            *
     5922   01 0221C    3280000E A   NXTDUMP  LW,8     14                FETCH THE ADDRESS
     5923   01 0221D    6AF01686              BAL,15   EBCDIC            CONVERT
     5924   01 0221E    4B8019A8              AND,8    H4040FFFF         INSERT BLANKS
     5925   01 0221F    15802550              STD,8    MSG2+4            STORE IN OUTPUT BUFF
     5926   01 02220    3250000E A            LW,5     14                GET ADDRESS AGAIN
     5927   01 02221    6AF01730              BAL,15   FA:GRUP           FIND BAD LOCATIONS
     5928   01 02222    32D00009 A            LW,13    9                 SAVE
     5929   01 02223    30E00009 A            AW,14    9                 POINT LAST ADRS OF THE GROUP
     5930   01 02224    3280000E A            LW,8     14
     5931   01 02225    33000009 A            MTW,0    9
     5932   01 02226    68302228              BCR,3    %+2
     5933   01 02227    208FFFFF A            AI,8     -1                BUT 1
     5934   01 02228    6AF01686              BAL,15   EBCDIC            CONVERT
     5935   01 02229    4B8019A8              AND,8    H4040FFFF
     5936   01 0222A    35802553              STW,8    MSG2+7            STORE TO REPORT
     5937   01 0222B    35902554              STW,9    MSG2+8
     5938   01 0222C    328019C2              LW,8     FAIL
     5939   01 0222D    35802556              STW,8    MSG2+10           FAIL MSG
     5940                            *
     5941   01 0222E    3280175D              LW,8     BADDATA           GET BAD DATA
     5942   01 0222F    6AF01686              BAL,15   EBCDIC            CONVERT
     5943   01 02230    1580255A              STD,8    MSG2+14           STORE IN OUTPUT BUFFER
     5944                                     #PRINT   MSG2              PRINT THE MESSAGE

            01 02231    EA6003C5
            01 02232    EA6003CD
            01 02233    C0009530 A
            01 02234    EA6003C6
     5945   01 02235    6830225F              BCR,3    DUMPEND
     5946   01 02236    21D00000 A            CI,13    0
     5947   01 02237    69202239              BCS,2    %+2
     5948   01 02238    20E00001 A            AI,14    1
     5949                            *
     5950   01 02239    3250000E A            LW,5     14
     5951   01 0223A    6AF017D3              BAL,15   RSKIP
     5952   01 0223B    6800225F              B        DUMPEND
     5953   01 0223C    32E00005 A            LW,14    5
     5954                            *
     5955                            *
     5956   01 0223D    31D0175F              CW,13    FGRP              FAILING DATA IN SAME BITS THRU-OUT
     5957   01 0223E    6910221C              BCS,1    NXTDUMP           NO,
     5958                            *
     5959   01 0223F    328019C3              LW,8     OK
     5960   01 02240    35802556              STW,8    MSG2+10           STORE OK WORD
     5961   01 02241    3280000E A            LW,8     14                 GET ADR AGAIN
     5962   01 02242    6AF01686              BAL,15   EBCDIC            CONVERT
     5963   01 02243    4B8019A8              AND,8    H4040FFFF
     5964   01 02244    15802550              STD,8    MSG2+4
     5965   01 02245    3250000E A            LW,5     14
     5966   01 02246    205FFFFF A            AI,5     -1                POINT TO 1ST ADRS OF GOOD LOC.
     5967   01 02247    6AF0171C              BAL,15   OK:GRUP           FIND # OF GOOD LOCS.
     5968   01 02248    32800006 A            LW,8     6                 EXAMIN THIS NO.
     5969   01 02249    6830225F              BCR,3    DUMPEND           FINI IN NONE
     5970   01 0224A    30800005 A            AW,8     5             POINT TO LAST ADR BUT 1
     5971   01 0224B    30E00006 A            AW,14    6                 NEXT BAD ADRS. IF ANY
     5972   01 0224C    6AF01686              BAL,15   EBCDIC            CONVERT
     5973   01 0224D    4B8019A8              AND,8    H4040FFFF         IN SERT BLANKS
     5974   01 0224E    35802553              STW,8    MSG2+7            STORE TO REPORT
     5975   01 0224F    35902554              STW,9    MSG2+8
     5976   01 02250    3280000A A            LW,8     10
     5977   01 02251    6AF01686              BAL,15   EBCDIC
     5978   01 02252    1580255A              STD,8    MSG2+14           SET DATA AREA OF OUTPUT TO BLANKS
     5979                                     #PRINT   MSG2

            01 02253    EA6003C5
            01 02254    EA6003CD
            01 02255    C0009530 A
            01 02256    EA6003C6
     5980   01 02257    6830225F              BCR,3    DUMPEND           BREAK
     5981   01 02258    3250000E A            LW,5     14
     5982   01 02259    6AF017D3              BAL,15   RSKIP
     5983   01 0225A    6800225F              B        DUMPEND
     5984   01 0225B    32E00005 A            LW,14    5
     5985   01 0225C    315018EF              CW,5     HILIM             IS HIGH LIMIT REACHED
     5986   01 0225D    6920225F              BCS,2    DUMPEND           B IF YES
     5987   01 0225E    6800221C              B        NXTDUMP
     5988   01 0225F    32501B92     DUMPEND  LW,5     FA
     5989                            *
     5990                            *
     5991   01 02260    6AF01770     STAT     BAL,15   S3HLT             ERROR HALT
     5992   01 02261    328019C4              LW,8     TSTON
     5993   01 02262    218000C1 A            CI,8     'A'               LOGIC TEST A
     5994   01 02263    69302266              BCS,3    %+3               B IF NO
     5995   01 02264    3300195A              MTW,0    PWFLG             PARTIAL WRITE
     5996   01 02265    68302269              BCR,3    FULWER            NO, FULL WRITE
     5997   01 02266    02200000 A   STAT1    LCI      0
     5998   01 02267    2A001B8D              LM,0     FASAVE            RESTORE REG'S
     5999   01 02268    E800000F A            B        *15               RETURN
     6000                            *
     6001                            *
     6002                            * RE-EXAMINE DETECTED PATTERN AGAIN
     6003                            *
     6004                            *
     6005                            *
     6006   01 02269                 FULWER   RES      0
     6007   01 02269    70200392              LC       #SENSE
     6008   01 0226A    69401B5D              BCS,4    FETCH             LOOP IF SS2 SET
     6009   01 0226B    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6010   01 0226C    35AA0000 A            STW,10   0,5               STORE PATTERN IN FAILING LOC
     6011   01 0226D    02200010 A            LCI      1
     6012   01 0226E    2D8A0000 A            LMS,8  0,5               FETCH DATA
     6013   01 0226F    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6014   01 02270    3180000A A            CW,8     10                IS IT OK ?
     6015   01 02271    6930227E              BCS,3    ANALYZE
     6016   01 02272    70200392              LC       #SENSE
     6017   01 02273    69102266              BCS,1    STAT1             NO PRINT OUT IF SW4 SET
     6018                                     #PRINT   MSG13             PRINT 'INTERMITTENT ERROR'

            01 02274    EA6003C5
            01 02275    EA6003CD
            01 02276    C000961C A
            01 02277    EA6003C6
     6019                                     #PRINT   MSG52             AND 'SUSPECT NTSSTB-1 OR -2'

            01 02278    EA6003C5
            01 02279    EA6003CD
            01 0227A    C00099E0 A
            01 0227B    EA6003C6
     6020                            *
     6021   01 0227C    68002266              B        STAT1             CONTINUE ON
     6022                            *
     6023                            * PREPARE TO ANALYZE THE DETECTED ERROR
     6024                            *
     6025                            *
     6026                            *
     6027   01 0227D    00000000 A   TOTALTST DATA     0                 TOTAL # OF TESTS
     6028   01 0227E    2280000B A   ANALYZE  LI,8     LASTEST-TESTS
     6029   01 0227F    3580227D              STW,8    TOTALTST
     6030   01 02280    33001956              MTW,0    INTRL#
     6031   01 02281    69302266              BCS,3    STAT1             DONT ANAL IF INTL MODE
     6032   01 02282    330021C1              MTW,0    BNDKFLG           ARE LIMITS ON BOUNDARY
     6033   01 02283    69302266              BCS,3    STAT1             B IF NOT ON BNDRY
     6034   01 02284    223FFFFF A            LI,3     -1                ININTIALIZ
     6035   01 02285    35501B92              STW,5    FA
     6036   01 02286    022000F0 A            LCI      15
     6037   01 02287    2B0022A2              STM,0    COMTEMR
     6038   01 02288    22700003 A   ADRPERR  LI,7     3
     6039   01 02289    728E1541              LB,8     STSFORM+1,7       GET ADRS PARITY BYTE.
     6040   01 0228A    218000F1 A            CI,8     X'F1'           IS IT ON
     6041   01 0228B    69302293              BCS,3    COMUTOR           NO,
     6042   01 0228C    70200392              LC       #SENSE
     6043   01 0228D    69102266              BCS,1    STAT1
     6044                                     #PRINT   MSG44             'ADR BUSS PE'

            01 0228E    EA6003C5
            01 0228F    EA6003CD
            01 02290    C00098F0 A
            01 02291    EA6003C6
     6045   01 02292    68002266              B        STAT1             ALL DONE
     6046   01 02293    022000F0 A   COMUTOR  LCI      15
     6047   01 02294    2A0022A2              LM,0     COMTEMR           RESTORE REGISTERS
     6048                            *
     6049   01 02295    70200392              LC       #SENSE
     6050   01 02296    69102266              BCS,1    STAT1             SUPPRESS ERROR REPORT IF SW4 SET
     6051   01 02297    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6052   01 02298    02200010 A            LCI      1
     6053   01 02299    2DBA0000 A            LMS,11   0,5               FETCH THE DATA
     6054   01 0229A    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6055   01 0229B    20300001 A            AI,3     1
     6056   01 0229C    3130227D              CW,3     TOTALTST          LAST TEST
     6057   01 0229D    68302266              BCR,3    STAT1
     6058   01 0229E    022000F0 A            LCI      15
     6059   01 0229F    2B0022A2              STM,0    COMTEMR
     6060   01 022A0    328618FC              LW,8     TESTS,3           GET TST #
     6061   01 022A1    E8000008 A            B        *8                GO TO NEXT TEST
     6062                            *
     6063                            *
     6064                                   BOUND      8
     6065   01 022A2                 COMTEMR  RES      15
     6066                            *
     6067         01 02293           EXITST   EQU      COMUTOR
     6068   01 022B1    331018EC     EXITSTR  MTW,1    ERRCNT
     6069   01 022B2    68002293              B        COMUTOR           RETURN TO COMUTATOR
     6070                            *
     6071                            * ADDRESS RECOGNITION LOGIC TEST
     6072                            *
     6073   01 022B3    33001965     ANLZ0    MTW,0    PARTYFLG          PARITY TEST
     6074   01 022B4    683022B6              BCR,3    %+2               NO
     6075   01 022B5    68002293              B        COMUTOR           YES
     6076   01 022B6    227FE001 A            LI,7     -X'1FFF'          -8K
     6077                            *
     6078   01 022B7    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6079   01 022B8    33F0195D              MTW,-1   ADRECFLG
     6080   01 022B9    328A0000 A   NXTAH    LW,8     0,5                ADDRS. RECOG.
     6081   01 022BA    68002293              B        EXITST            YES, EXIT THIS TEST
     6082                            * PARITY INTERRUPT RETURN POINT
     6083   01 022BB    657022B9              BIR,7    NXTAH             NO, TRY ALL 8K ADR
     6084                                     #PRINT   MSG16

            01 022BC    EA6003C5
            01 022BD    EA6003CD
            01 022BE    C0009658 A
            01 022BF    EA6003C6
     6085                            *
     6086   01 022C0    3310195D              MTW,1    ADRECFLG
     6087   01 022C1    680022B1              B        EXITSTR           EXIT
     6088                            *
     6089                            *
     6090                            *
     6091                            *
     6092                            *
     6093                            * TEST1 : DATA PATH ERROR TEST
     6094                            *
     6095   01 022C2    6AF01730     ANLZ1    BAL,15   FA:GRUP
     6096   01 022C3    31901994              CW,9     H1FFF             < 8K FAIL
     6097   01 022C4    69102293              BCS,1    EXITST            YES, EXIT TEST1
     6098   01 022C5    6AF013DB              BAL,15   STATUS             READ STATUS
     6099   01 022C6    6AF016C4              BAL,15   CNT:BITS
     6100   01 022C7    21600001 A            CI,6     1                 ONLY ONE BIT BAD
     6101   01 022C8    693022CF              BCS,3    BYTEFAIL          NO, EXIT
     6102   01 022C9    6AF016B1              BAL,15   SAVREGS           YES, SAVE BAD BIT # & ALL REGS
     6103                                     #PRINT   MSG17

            01 022CA    EA6003C5
            01 022CB    EA6003CD
            01 022CC    C000966C A
            01 022CD    EA6003C6
     6104                            *
     6105   01 022CE    680022B1              B        EXITSTR           EXIT
     6106                            *
     6107                            *
     6108   01 022CF    21600010 A   BYTEFAIL CI,6     16                HW BAD
     6109   01 022D0    683022DA              BCR,3    HWFAIL            YES
     6110   01 022D1    21600008 A            CI,6     8                 8 BITS FAIL
     6111   01 022D2    69302293              BCS,3    EXITST            NO
     6112   01 022D3    6AF016F5              BAL,15   BAD:BYTE          ONE BYTE BAD
     6113   01 022D4    69402293              BCS,4    EXITST            NO, EXIT
     6114                            *
     6115                                     #PRINT   MSG73

            01 022D5    EA6003C5
            01 022D6    EA6003CD
            01 022D7    C0009AD8 A
            01 022D8    EA6003C6
     6116   01 022D9    680022B1              B        EXITSTR           EXIT
     6117                            *
     6118   01 022DA    6AF0170B     HWFAIL   BAL,15   BAD:HW
     6119   01 022DB    69202293              BCS,2    EXITST            EXIT IF NOT HW
     6120                            *
     6121                                     #PRINT   MSG74

            01 022DC    EA6003C5
            01 022DD    EA6003CD
            01 022DE    C0009AEC A
            01 022DF    EA6003C6
     6122   01 022E0    680022B1              B        EXITSTR           EXITST
     6123                            *
     6124                            *
     6125                            *
     6126                            *
     6127                            *
     6128                            * TEST TO ANALYZE CONTROL FUNCTION LOGIC ELEMENTS
     6129                            *
     6130                            *
     6131   01 022E1    6AF016C4     ANLZ2    BAL,15   CNT:BITS
     6132   01 022E2    21600020 A            CI,6     32                32 BITS FAIL
     6133   01 022E3    69302293              BCS,3    COMUTOR           NO,EXIT
     6134   01 022E4    6AF01730              BAL,15   FA:GRUP           YES
     6135   01 022E5    21901FFF A           CI,9      X'1FFF'           8K OR MORE FAIL
     6136   01 022E6    69102288              BCS,1    ADRPERR           NO,  CHECK ADR PARITY ERROR
     6137                                     #PRINT   MSG51

            01 022E7    EA6003C5
            01 022E8    EA6003CD
            01 022E9    C00099C8 A
            01 022EA    EA6003C6
     6138   01 022EB    680022B1              B        EXITSTR           EXIT TEST
     6139                            *
     6140                            *
     6141                            *
     6142                            *
     6143                            *
     6144                            * TEST 3: DIAGNOSIS FOR ANY FAULTY YVS
     6145                            *
     6146   01 022EC    22800000 A   ANLZ3    LI,8     0
     6147   01 022ED    3580230E              STW,8    YVPRFLAG          RESET FLG
     6148   01 022EE    6AF01730              BAL,15   FA:GRUP
     6149   01 022EF    21800080 A            CI,8     X'80'             X'80' LOC BAD
     6150   01 022F0    683022F4              BCR,3    ERRTST3           YES
     6151   01 022F1    21800200 A            CI,8     X'200'            NO, THEN X'200' FAIL
     6152   01 022F2    6830230F              BCR,3    YVPRL                YES
     6153   01 022F3    68002293              B        EXITST                NO, EXIT
     6154                            *
     6155   01 022F4    6AF016C4     ERRTST3  BAL,15   CNT:BITS
     6156   01 022F5    21600010 A            CI,6     16                ALL BITS OF A BMU BAD
     6157   01 022F6    68302310              BCR,3    ALLTST3           YES
     6158   01 022F7    21600001 A            CI,6     1                 NO, THEN ONE BIT BAD
     6159   01 022F8    6830231C              BCR,3    YVLOPEN              YES, REPORT OPEN Y-LINE
     6160   01 022F9    21600002 A            CI,6     2                 2 BITS BAD
     6161   01 022FA    69302293              BCS,3    EXITST            NO, EXIT
     6162                            *
     6163                            * FIND TWO ADJACENT ODD OR EVEN FAILING BITS
     6164                            *
     6165   01 022FB    6AF0170B              BAL,15   BAD:HW            FIND FAILING HW
     6166   01 022FC    529C000B A            LH,9     11,6              GET BAD HW DaTA
     6167   01 022FD    499019B6              OR,9     HFFFF0000
     6168   01 022FE    4890000A A            EOR,9    10                R9 = BAD 2 BITS
     6169   01 022FF    25900010 A            SLS,9    16                MOVE HW FOR TEST
     6170   01 02300    227FFFF0 A            LI,7     -16               HW BITS CNTR
     6171   01 02301    22800000 A            LI,8     0
     6172   01 02302    25800101 A   NXTBITS3 SLD,8    1
     6173   01 02303    21800005 A            CI,8     5                 THIS 2 ADJCENT ODD OR EVEN BAD
     6174   01 02304    68302307              BCR,3    YVSBAD            YES
     6175   01 02305    65702302              BIR,7    NXTBITS3          NO, TRY NEXT 2 BITS
     6176                            *
     6177                            *
     6178   01 02306    68002293              B        EXITST
     6179                            YVSBAD   #PRINT   MSG18

            01 02307    EA6003C5
            01 02308    EA6003CD
            01 02309    C0009694 A
            01 0230A    EA6003C6
     6180                            *
     6181   01 0230B    33001965              MTW,0    PARTYFLG          PARITY TEST
     6182   01 0230C    683022B1              BCR,3    EXITSTR           NO, EXIT
     6183   01 0230D    68001CC9              B        PTAGSET            YES, RETURN TO PARITY TEST
     6184                            *
     6185                            * ALL H.W. FAILING;  ANALYZE TO REPORT CORRECT MODULES
     6186                            *
     6187   01 0230E    00000000 A   YVPRFLAG DATA     0
     6188                            *
     6189   01 0230F    33F0230E     YVPRL    MTW,-1   YVPRFLAG          RAIZE FLAG
     6190   01 02310    3300230E     ALLTST3  MTW,0    YVPRFLAG          FLG UP
     6191   01 02311    69302317              BCS,3    BADYVPR           YES
     6192                                     #PRINT   MSG19

            01 02312    EA6003C5
            01 02313    EA6003CD
            01 02314    C00096A8 A
            01 02315    EA6003C6
     6193   01 02316    680022B1              B        EXITSTR
     6194                            BADYVPR  #PRINT   MSG20

            01 02317    EA6003C5
            01 02318    EA6003CD
            01 02319    C00096D0 A
            01 0231A    EA6003C6
     6195   01 0231B    680022B1              B        EXITSTR
     6196                            *
     6197   01 0231C    22700400 A   YVLOPEN  LI,7     X'400'
     6198   01 0231D    30700005 A            AW,7     5                 CHANGE YC IN FA
     6199   01 0231E    31700002 A            CW,7     2                 IS IT > TESTHI
     6200   01 0231F    692024E6              BCS,2    YCYV              YES
     6201   01 02320    46500007 A            XW,5     7
     6202   01 02321    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6203   01 02322    46500007 A            XW,5     7
     6204   01 02323    02200010 A            LCI      1
     6205   01 02324    2D8E0000 A            LMS,8    0,7               READ THE D ATA
     6206   01 02325    327017D2              LW,7     MAPTEMP+5         RESTORE TEST ADDRESS
     6207   01 02326    3180000A A            CW,8     10                IS IT OK
     6208   01 02327    68302368              BCR,3    YLOPEN            YES
     6209   01 02328    680024E6              B        YCYV              NO, REPORT OPEN Y DIODE
     6210                            *
     6211                            *
     6212                            * TEST 4 : DIAGNOSIS FOR ANY FAULTY  YCS
     6213                            *
     6214   01 02329    22800000 A   ANLZ4    LI,8     0
     6215   01 0232A    35802346              STW,8    YC7FLAG           RESET FLG
     6216   01 0232B    6AF01730              BAL,15   FA:GRUP
     6217   01 0232C    21800400 A            CI,8     X'400'            X'400' LOC BAD
     6218   01 0232D    68302333              BCR,3    ERRTST4           YES
     6219   01 0232E    21800800 A            CI,8     X'800'
     6220   01 0232F    68302375              BCR,3    MOD79             YES
     6221   01 02330    21507F00 A            CI,5     X'7F00'           NO, THEN FA = 7F00
     6222   01 02331    68302333              BCR,3    %+2               YES,
     6223   01 02332    68002293              B        EXITST            NO,
     6224   01 02333    22701C00 A   ERRTST4  LI,7     X'1C00'
     6225   01 02334    48700005 A            EOR,7    5                 COMPL. YC BITS
     6226   01 02335    32800007 A            LW,8     7                 EXAMINE  YC
     6227   01 02336    4B800005 A            AND,8    5
     6228   01 02337    21801C00 A            CI,8     X'1C00'           YC = 0
     6229   01 02338    6930233A              BCS,3    %+2               NO
     6230   01 02339    33F02346              MTW,-1   YC7FLAG           YES
     6231   01 0233A    46700005 A            XW,7     5                 TAKE COMPL. YC
     6232   01 0233B    6AF01730              BAL,15   FA:GRUP           FIND # OF BAD LOC WITH COMPL. YC
     6233   01 0233C    46700005 A            XW,7     5                 RESTORE FA
     6234   01 0233D    21800400 A            CI,8     X'400'            X'400' LOC  BAD
     6235   01 0233E    68302347              BCR,3    LINEOK            YES, Y-LINE OK
     6236   01 0233F    33002346              MTW,0    YC7FLAG           YC7FLAG SET
     6237   01 02340    68302368              BCR,3    YLOPEN            YES, Y-LINE OPEN
     6238   01 02341    32800005 A            LW,8     5                 GET TEST ADRS
     6239   01 02342    4B8021C5              AND,8    128K              EXTRACT 128K
     6240   01 02343    2181FFFF A            CI,8     X'1FFFF'          128K 'S LAST LOC.
     6241   01 02344    68302375              BCR,3    YC07BAD             SPECIAL TEST TO DISTINGUISH
     6242   01 02345    68002368              B        YLOPEN              BETWEEN YC0,7 SW AND OPEN Y-LINE
     6243                            *
     6244   01 02346    00000000 A   YC7FLAG  DATA     0
     6245                            *
     6246                            *
     6247   01 02347    46700005 A   LINEOK   XW,7     5
     6248   01 02348    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6249   01 02349    46700005 A            XW,7     5
     6250   01 0234A    02200010 A            LCI      1
     6251   01 0234B    2DEE0000 A            LMS,14   0,7               READ THE DATA
     6252   01 0234C    327017D2              LW,7     MAPTEMP+5
     6253   01 0234D    4BE0000B A            AND,14   11                R14 = COMBINED BAD DATA
     6254   01 0234E    46B0000E A            XW,11    14
     6255   01 0234F    6AF016C4              BAL,15   CNT:BITS
     6256   01 02350    46E0000B A            XW,14    11
     6257   01 02351    21600002 A            CI,6     2                 IS  2 BITS BAD
     6258   01 02352    6830235A              BCR,3    YCSW              YES
     6259   01 02353    21600010 A            CI,6     16                NO,  IS IT 16
     6260   01 02354    6830236E              BCR,3    ALLTST4           YES,
     6261   01 02355                 ODYCS    RES      0
     6262                                     #PRINT   ODDMSG            UNUSUAL MSG

            01 02355    EA6003C5
            01 02356    EA6003CD
            01 02357    C0009EC4 A
            01 02358    EA6003C6
     6263                            *
     6264                            * UNUSUAL SYMPTOM IN  YCS  ANLYSIS
     6265                            *
     6266   01 02359    68002293              B        EXITST            EXIT
     6267                            *
     6268                            * FIND THE TWO ADJACENT FAILING BITS, ONE IN FA & THE OTHER IN ADR WITH
     6269                            * THE COMPLEMENT  YC BITS.
     6270                            *
     6271   01 0235A    6AF0170B     YCSW     BAL,15   BAD:HW            FIND BAD HW
     6272   01 0235B    3290000E A            LW,9     14
     6273   01 0235C    33000006 A            MTW,0    6
     6274   01 0235D    6930235F              BCS,3    %+2
     6275   01 0235E    25900070 A            SLS,9    -16               POSITION 1ST HW
     6276   01 0235F    4890000A A            EOR,9    10
     6277   01 02360    3590000C A            STW,9    12                SAVE
     6278   01 02361    25900010 A            SLS,9    16                MOVE HW FOR TEST
     6279   01 02362    227FFFF0 A            LI,7     -16               HW BITS CNTR
     6280   01 02363    25800101 A   NXTBITS4 SLD,8    1
     6281   01 02364    21800003 A            CI,8     3                 THESE 2 ADJACENT BITS BAD
     6282   01 02365    6830236E              BCR,3    YCSBAD            YES,
     6283   01 02366    65702363              BIR,7    NXTBITS4          NO, TRY NEXT 2 BITS
     6284   01 02367    68002355              B        ODYCS
     6285                            *
     6286                            *
     6287                            *
     6288                            *
     6289                            YLOPEN   #PRINT   MSG21

            01 02368    EA6003C5
            01 02369    EA6003CD
            01 0236A    C00096E4 A
            01 0236B    EA6003C6
     6290   01 0236C    33F024AD              MTW,-1   DIODTAG
     6291   01 0236D    68002499              B        BITEXAM           GO FIND CDM MODULE
     6292                            *
     6293   01 0236E                 YCSBAD   RES      0
     6294                            ALLTST4  #PRINT   MSG22

            01 0236E    EA6003C5
            01 0236F    EA6003CD
            01 02370    C00096F8 A
            01 02371    EA6003C6
     6295   01 02372    33001965     YCSRETRN MTW,0    PARTYFLG          PARITY TEST
     6296   01 02373    683022B1              BCR,3    EXITSTR           NO
     6297   01 02374    68001CC9              B        PTAGSET           YES
     6298                            *
     6299   01 02375                 MOD79    RES      0
     6300                            YC07BAD  #PRINT   MSG22

            01 02375    EA6003C5
            01 02376    EA6003CD
            01 02377    C00096F8 A
            01 02378    EA6003C6
     6301   01 02379    68002372              B        YCSRETRN          RETURN
     6302                            *
     6303                            *
     6304                            *
     6305                            * TEST 5.  DIAGNOSIS FOR ANY FAILURES IN  XCS  CIRCUITARY
     6306                            *
     6307   01 0237A    00000000 A   XPNRFLG  DATA     0
     6308                            *
     6309   01 0237B    22800000 A   ANLZ5    LI,8     0
     6310   01 0237C    3580237A              STW,8    XPNRFLG           INITIALIZE FLG
     6311   01 0237D    358023DC              STW,8    XCS34
     6312   01 0237E    6AF01730              BAL,15   FA:GRUP
     6313   01 0237F    21800010 A            CI,8     X'10'             16 LOC FAIL
     6314   01 02380    683023AF              BCR,3    ERRTST5           YES
     6315   01 02381    22800070 A            LI,8     X'70'             NO,
     6316   01 02382    4B800005 A            AND,8    5
     6317   01 02383    21800030 A            CI,8     X'30'             XCS-3 ON
     6318   01 02384    6930238A              BCS,3    XCSOK             NO
     6319   01 02385    33F023DC              MTW,-1   XCS34             RAIZ FLAG
     6320   01 02386    3280175F              LW,8     FGRP
     6321   01 02387    21800020 A            CI,8     X'20'             X'20' LOC BAD
     6322   01 02388    683023AF              BCR,3    ERRTST5           YES
     6323   01 02389    6800238D              B        XPNR
     6324   01 0238A    3280175F     XCSOK    LW,8   FGRP
     6325   01 0238B    21800020 A            CI,8     X'20'             X'20' LOC BAD
     6326   01 0238C    6830238E              BCR,3    %+2
     6327   01 0238D    33F0237A     XPNR     MTW,-1   XPNRFLG           SET
     6328   01 0238E    6AF016C4              BAL,15   CNT:BITS          HOW MANY BITS BAD
     6329   01 0238F    21600001 A            CI,6     1                 ONE BIT ONLY
     6330   01 02390    68302293              BCR,3    EXITST            YES, THEN EXIT
     6331   01 02391    21600004 A            CI,6     4                 NO, THEN 4 BITS
     6332   01 02392    683023C6              BCR,3    XPNRCHK                    YES
     6333   01 02393    3280175F            LW,8     FGRP
     6334   01 02394    31801993              CW,8     8K
     6335   01 02395    68202397              BCR,2    %+2
     6336   01 02396    680023C2              B        GRDXPNCK
     6337   01 02397    3300237A     CHKXCFLG MTW,0    XPNRFLG           SUSPECT XCS
     6338   01 02398    69302293              BCS,3    EXITST            NO, EXIT
     6339   01 02399    20500080 A            AI,5     X'80'             YES, SET FOR ANOTHER XCS GROUP
     6340   01 0239A    6AF01730              BAL,15   FA:GRUP
     6341   01 0239B    21800020 A            CI,8     X'20'             X'20' LOC BAD
     6342   01 0239C    683023A2              BCR,3    XCSERR            YES
     6343   01 0239D    32501B92     ODDXCS   LW,5     FA                RESTOR R5
     6344                                     #PRINT   ODDMSG            UNUSUAL MSG

            01 0239E    EA6003C5
            01 0239F    EA6003CD
            01 023A0    C0009EC4 A
            01 023A1    EA6003C6
     6345                            *
     6346                            * WAIT INDICATES THAT BAD  XCS  OR  XPRE LOGIC SUSPECTED, BUT CAN NOT
     6347                            * BE ISOLATED; POSSIBILITY OF MULTIPLE SUCH ERRORS.
     6348   01 023A2    32501B92     XCSERR   LW,5     FA
     6349   01 023A3    3300237A              MTW,0    XPNRFLG           FLG SET
     6350   01 023A4    683023AA              BCR,3    ROK               NO
     6351                                     #PRINT   MSG23

            01 023A5    EA6003C5
            01 023A6    EA6003CD
            01 023A7    C0009728 A
            01 023A8    EA6003C6
     6352   01 023A9    680023AE              B        CHKBIT2
     6353                            ROK      #PRINT   MSG24

            01 023AA    EA6003C5
            01 023AB    EA6003CD
            01 023AC    C000975C A
            01 023AD    EA6003C6
     6354   01 023AE                 CHKBIT2  RES      0
     6355   01 023AE    68002293              B        EXITST            EXIT
     6356   01 023AF    20500080 A   ERRTST5  AI,5     X'80'             POINT TO ANOTHER BLOCK
     6357   01 023B0    6AF01730              BAL,15   FA:GRUP           FIND # OF BAD LOC.
     6358   01 023B1    21800010 A            CI,8     X'10'             X'10' LOC BAD
     6359   01 023B2    683023B7              BCR,3    BADXCS            YES
     6360   01 023B3    330023DC              MTW,0    XCS34             NO, XCS-34 FLG UP
     6361   01 023B4    6830239D              BCR,3    ODDXCS            NO
     6362   01 023B5    21800020 A            CI,8     X'20'             YES, THEN X'20' LOC BAD
     6363   01 023B6    6930239D              BCS,3    ODDXCS            NO
     6364   01 023B7    32501B92     BADXCS   LW,5     FA                YES, RESTORE R5
     6365   01 023B8    6AF016C4              BAL,15   CNT:BITS          FIND # OF BAD BITS
     6366   01 023B9    21600010 A            CI,6     16                HALF-WORD
     6367   01 023BA    683023D4              BCR,3    ALLTST5           YES
     6368   01 023BB    6AF016DE              BAL,15   BAD:HB            NO, HALF-BYTE
     6369   01 023BC    6940239D              BCS,4    ODDXCS            NO  H-B FAIL SINGULARLY
     6370                            *
     6371                                     #PRINT   MSG25

            01 023BD    EA6003C5
            01 023BE    EA6003CD
            01 023BF    C000976C A
            01 023C0    EA6003C6
     6372   01 023C1    680023AE              B        CHKBIT2
     6373                            *
     6374   01 023C2    6AF016C4     GRDXPNCK BAL,15   CNT:BITS
     6375   01 023C3    21600010 A            CI,6     16                16 BITS BAD
     6376   01 023C4    69302397              BCS,3    CHKXCFLG          N0,
     6377   01 023C5    680023D4              B        ALLTST5           YES,
     6378                            *
     6379                            *
     6380   01 023C6    02200010 A   XPNRCHK  LCI      1
     6381   01 023C7    2D8A0040 A            LMS,8    X'40',5           EXAMINE D ATA OF X'40' + FA
     6382   01 023C8    4680000B A            XW,8     11
     6383   01 023C9    6AF016C4              BAL,15   CNT:BITS
     6384   01 023CA    21600004 A            CI,6     4                 4 BITS FAIAL
     6385   01 023CB    69302293              BCS,3    EXITST            NO
     6386   01 023CC    4680000B A            XW,8     11                YES
     6387   01 023CD    25800208 A            SCS,8    8                 SHIFT TO ONE BYTE
     6388   01 023CE    3180000B A            CW,8     11                OTHER ODD (OR EVEN) HALF-BYTE BAD
     6389   01 023CF    683023AE              BCR,3    CHKBIT2           YES
     6390   01 023D0    25800270 A            SCS,8    -16               NO, OTHER COMBINATION
     6391   01 023D1    3180000B A            CW,8     11                OTHER ODD (OR EVEN) HALF-BYTE BAD
     6392   01 023D2    69302293              BCS,3    EXITST            NO
     6393   01 023D3    680023AE              B        CHKBIT2           YES
     6394                            *
     6395                            * ALL BITS OF A HALF-WORD FAILING,  REPORT MODULES
     6396                            *
     6397   01 023D4    6AF0170B     ALLTST5  BAL,15   BAD:HW
     6398   01 023D5    683023D7              BCR,3    %+2
     6399   01 023D6    20600005 A            AI,6     5
     6400                                     #PRINT   MSG26

            01 023D7    EA6003C5
            01 023D8    EA6003CD
            01 023D9    C0009778 A
            01 023DA    EA6003C6
     6401   01 023DB    680022B1              B        EXITSTR
     6402   01 023DC    00000000 A   XCS34    DATA     0                 MODULE LOC CODE
     6403                            *
     6404                            * TEST 6  DIAGNOSIS FOR ANY FAULTY  XVS CIRCUITARY
     6405                            *
     6406   01 023DD    6AF01730     ANLZ6    BAL,15   FA:GRUP
     6407   01 023DE    30500008 A            AW,5     8
     6408   01 023DF    205FFFFF A            AI,5     -1                ADJUST ADDRS.
     6409   01 023E0    6AF0171C              BAL,15   OK:GRUP           FIND # OF GOOD LOC AFTER FA
     6410   01 023E1    2160000F A            CI,6     15                15
     6411   01 023E2    693023FE              BCS,3    XVPRED            NO
     6412   01 023E3    20500010 A            AI,5     X'10'
     6413   01 023E4    6AF0171C              BAL,15   OK:GRUP           TRY ANOTHER GROUP
     6414   01 023E5    2160000F A            CI,6     15
     6415   01 023E6    693023F9              BCS,3    ODDXVS            NO
     6416                            *
     6417                            * DISTINGUISH BETWEEN  XVS  & OPEN  XV-LINE ON CDM
     6418                            *
     6419   01 023E7    32501B92              LW,5     FA                RESTORE R5
     6420   01 023E8    6AF016C4              BAL,15   CNT:BITS          HALF-BYTE BAD ONLY
     6421   01 023E9    21600004 A            CI,6     4
     6422   01 023EA    68302293              BCR,3    EXITST            YES, THEN  XVS IS OK
     6423   01 023EB    21600008 A            CI,6     8                 NO,  THEN ONE BYTE BAD
     6424   01 023EC    693023F9              BCS,3    ODDXVS                 NO
     6425                            *
     6426                            *
     6427   01 023ED    6AF016F5              BAL,15   BAD:BYTE          ONE BYTE BAD
     6428   01 023EE    684023F4              BCR,4    XVSBAAD           YES
     6429                                     #PRINT   MSG31

            01 023EF    EA6003C5
            01 023F0    EA6003CD
            01 023F1    C00097F0 A
            01 023F2    EA6003C6
     6430   01 023F3    680022B1              B        EXITSTR
     6431                            *
     6432                            XVSBAAD  #PRINT   MSG27

            01 023F4    EA6003C5
            01 023F5    EA6003CD
            01 023F6    C00097A0 A
            01 023F7    EA6003C6
     6433   01 023F8    680022B1              B        EXITSTR           EXIT
     6434                            *
     6435                            ODDXVS   #PRINT   ODDMSG            UNUSUAL MSG

            01 023F9    EA6003C5
            01 023FA    EA6003CD
            01 023FB    C0009EC4 A
            01 023FC    EA6003C6
     6436                            *
     6437                            * UNUSUAL SYMPTOM
     6438                            *
     6439   01 023FD    68002293              B        EXITST            EXIT
     6440                            *
     6441   01 023FE    21600003 A   XVPRED   CI,6     3                 EVERY 4TH LOC FAIL
     6442   01 023FF    69302414              BCS,3    XVDRIVE           NO
     6443   01 02400    20500010 A            AI,5     X'10'             YES
     6444   01 02401    6AF0171C              BAL,15   OK:GRUP           TRY ANOTHER SET
     6445   01 02402    32501B92              LW,5     FA                RESTORE  R5
     6446   01 02403    21600003 A            CI,6     3                 SAME SYMPTOM
     6447   01 02404    6930240A              BCS,3    OPSINKLN          NO
     6448                                     #PRINT,2 MSG28

            01 02405    EA6003C5
            01 02406    EA6003CD
            01 02407    022097AC A
            01 02408    EA6003C6
     6449   01 02409    680022B1              B        EXITSTR
     6450                            *
     6451                            * TEST FOR ANY XV PRE-DRIVE SINK LINE
     6452                            *
     6453   01 0240A    20500008 A   OPSINKLN AI,5     8                 CHANGE SETTING OF BIT 12
     6454   01 0240B    6AF0171C              BAL,15   OK:GRUP           FIND # OF GOOD LOCS
     6455   01 0240C    32501B92              LW,5     FA                RESTORE R5
     6456   01 0240D    21600003 A            CI,6     3                 3 LOC GOOD
     6457   01 0240E    693023F9              BCS,3    ODDXVS            NO
     6458                                     #PRINT   MSG30

            01 0240F    EA6003C5
            01 02410    EA6003CD
            01 02411    C00097DC A
            01 02412    EA6003C6
     6459   01 02413    680022B1              B        EXITSTR           EXIT
     6460                            *
     6461                            * DIAGNOSE FOR ANY BAD  XV-DRIVE IN PRE-DRIVE LOGIC
     6462                            *
     6463   01 02414    6AF01730     XVDRIVE  BAL,15   FA:GRUP
     6464   01 02415    21800004 A            CI,8     4                 4 LOCS FAIL
     6465   01 02416    69302293              BCS,3    EXITST            NO, EXIT
     6466   01 02417    20500004 A            AI,5     4                 YES, ADD 4 TO FA
     6467   01 02418    6AF0171C              BAL,15   OK:GRUP           FIND #OF GOOD LOCS
     6468   01 02419    32501B92              LW,5     FA                RESTOR R5
     6469   01 0241A    2160000C A            CI,6     12                ONLY 12 LOC OK
     6470   01 0241B    69302293              BCS,3    EXITST            NO, EXIT
     6471                                     #PRINT   MSG31

            01 0241C    EA6003C5
            01 0241D    EA6003CD
            01 0241E    C00097F0 A
            01 0241F    EA6003C6
     6472   01 02420    680022B1              B        EXITSTR           EXIT THIS TEST
     6473                            *
     6474                            *
     6475                            *
     6476                            *
     6477                            * TEST 7   DIAGNOSIS FOR ANY MALUFUNCTIONING SENSE LINES
     6478                            *
     6479   01 02421    22800000 A   ANLZ7    LI,8     0
     6480   01 02422    35802450              STW,8    INHFLAG           RESET INHIBIT FLAG
     6481   01 02423    6AF01730              BAL,15   FA:GRUP
     6482   01 02424    21900100 A            CI,9     X'100'            X'100' LOC BAD ON SAME BITS
     6483   01 02425    69302441              BCS,3    PA                NO
     6484   01 02426    20500100 A            AI,5     X'100'
     6485   01 02427    6AF0171C              BAL,15   OK:GRUP           YES
     6486   01 02428    216000FF A            CI,6     X'FF'             NEXT 128 LOC OK
     6487   01 02429    69302293              BCS,3    EXITST            NO
     6488                            *
     6489                                     #PRINT   MSG32

            01 0242A    EA6003C5
            01 0242B    EA6003CD
            01 0242C    C0009804 A
            01 0242D    EA6003C6
     6490   01 0242E    680022B1              B        EXITSTR
     6491                            *
     6492                            * FIND FAILING BIT AND REPORT BAD MODULE
     6493                            *
     6494   01 0242F    3300244F     BADSEN   MTW,0    SAFLAG            FLG SET
     6495   01 02430    69302436              BCS,3    SAREPORT          YES
     6496                                     #PRINT   MSG33

            01 02431    EA6003C5
            01 02432    EA6003CD
            01 02433    C0009810 A
            01 02434    EA6003C6
     6497   01 02435    680022B1              B        EXITSTR           EXIT
     6498                            SAREPORT #PRINT   MSG34

            01 02436    EA6003C5
            01 02437    EA6003CD
            01 02438    C0009834 A
            01 02439    EA6003C6
     6499   01 0243A    680022B1              B        EXITSTR           EXIT
     6500                            ODDSENS  #PRINT   ODDMSG            PRINT UNUSUAL MSG

            01 0243B    EA6003C5
            01 0243C    EA6003CD
            01 0243D    C0009EC4 A
            01 0243E    EA6003C6
     6501   01 0243F    6AF01770              BAL,15   S3HLT             WAIT IF SW3 RESET
     6502                            *
     6503                            * UNUSUAL ERROR
     6504                            *
     6505   01 02440    68002293              B        EXITST            EXIT
     6506                            *
     6507   01 02441    6AF01730     PA       BAL,15   FA:GRUP
     6508   01 02442    21900040 A            CI,9     X'40'             X'40' LOC FAIL (SAME BIT )
     6509   01 02443    6930244D              BCS,3    SENSAMP
     6510   01 02444    6AF016C4              BAL,15   CNT:BITS
     6511   01 02445    21600008 A            CI,6     8                 ONE BYTE BAD
     6512   01 02446    68302293              BCR,3    EXITST            YES, THEN EXIT
     6513   01 02447    2050003F A            AI,5     X'3F'             STEP UP FA BY X'3F'
     6514   01 02448    6AF0171C              BAL,15   OK:GRUP
     6515   01 02449    32501B92              LW,5     FA
     6516   01 0244A    21600040 A            CI,6     X'40'             X'40' LOC GOOD
     6517   01 0244B    69302293              BCS,3    EXITST            NO, EXIT
     6518   01 0244C    6800242F              B        BADSEN            YES, BAD PA
     6519                            *
     6520                            *
     6521   01 0244D    33F0244F     SENSAMP  MTW,-1   SAFLAG
     6522   01 0244E    68002461              B        EXAMALL           TEST ALL LOC IN TEST8
     6523                            *
     6524   01 0244F    00000000 A   SAFLAG   DATA     0
     6525   01 02450    00000000 A   INHFLAG  DATA     0
     6526                            *
     6527                            * DETERMINE IF TWO ADJACENT BITS FAIL
     6528                            *
     6529   01 02451    3290000B A   EXAMRET  LW,9     11
     6530   01 02452    4890000A A            EOR,9    10
     6531   01 02453    6AF0170B              BAL,15   BAD:HW            FIND BAD HW.
     6532   01 02454    68302456              BCR,3    %+2
     6533   01 02455    25900010 A            SLS,9    16                PUT BAD HW IN HW0
     6534   01 02456    22800000 A            LI,8     0
     6535   01 02457    227FFFF0 A            LI,7     -16               SET BIT CNTR.
     6536   01 02458    25800101 A   ADJAC    SLD,8    1                 SHIFT TO EXAMINE
     6537   01 02459    21800003 A            CI,8     3
     6538   01 0245A    6830245D              BCR,3    INHSYM            THESE 2 ADJACENTS BITS BAD
     6539   01 0245B    65702458              BIR,7    ADJAC             NO, TRY NEXT 2 BITS
     6540   01 0245C    6800243B              B        ODDSENS
     6541                            *
     6542   01 0245D    33F02450     INHSYM   MTW,-1   INHFLAG           SET INHIBIT FLAG
     6543   01 0245E    68002293              B        EXITST            EXIT THIS TEST

     6545                            * TEST 8  DIAGNOSIS FOR ANY FAULTY INHIBIT CIRCUITARY
     6546                            *
     6547                            *
     6548   01 0245F    22800000 A   ANLZ8    LI,8     0
     6549   01 02460    3580244F              STW,8    SAFLAG            RESET FLAG
     6550                            *
     6551   01 02461    22807F00 A   EXAMALL  LI,8     X'7F00'           R8 = FA FOR 0001 YC/7P OPEN ON CDM29
     6552   01 02462    48800005 A            EOR,8    5
     6553   01 02463    68302293              BCR,3    EXITST            YES, EXIT
     6554   01 02464    6AF016C4              BAL,15   CNT:BITS          NO,
     6555   01 02465    21600004 A            CI,6     4                 4 BITS OR MORE BAD
     6556   01 02466    68102474              BCR,1    TPNYI
     6557   01 02467    6AF01730              BAL,15   FA:GRUP
     6558   01 02468    31801993              CW,8     8K                ALL  8K  BAD
     6559   01 02469    69102293              BCS,1    EXITST            NO,
     6560                            *
     6561                            * NTSSTB  TEST ROUTINE
     6562                            *
     6563   01 0246A    21AFFFFF A            CI,10    -1                TESTPAT ALL 1'S
     6564   01 0246B    69302480              BCS,3    CHKINH            NO
     6565   01 0246C    6AF016C4              BAL,15   CNT:BITS
     6566   01 0246D    21600010 A            CI,6     16                16 BITS FAIL
     6567   01 0246E    69302480              BCS,3    CHKINH            NO
     6568                                     #PRINT   MSG52             'SUSPECT NTSSB-1 OR -2'

            01 0246F    EA6003C5
            01 02470    EA6003CD
            01 02471    C00099E0 A
            01 02472    EA6003C6
     6569   01 02473    680022B1              B        EXITSTR           EXIT
     6570                            *
     6571   01 02474    21600008 A   TPNYI    CI,6     8                 ONE BYTE BAD
     6572   01 02475    69302293              BCS,3    EXITST            NO,
     6573   01 02476    6AF01730              BAL,15   FA:GRUP           YES
     6574   01 02477    21800040 A            CI,8     X'40'
     6575   01 02478    69302293              BCS,3    EXITST
     6576   01 02479    6AF016F5              BAL,15   BAD:BYTE          FIND FAILING BYTE
     6577   01 0247A    69402293              BCS,4    EXITST
     6578                                     #PRINT   MSG58

            01 0247B    EA6003C5
            01 0247C    EA6003CD
            01 0247D    C0009A34 A
            01 0247E    EA6003C6
     6579   01 0247F    680022B1              B        EXITSTR           EXIT
     6580                            *
     6581                            *
     6582                            *
     6583                            * BAD INHIBIT DRIVER DETECTED,  PROCEED TO FIND THE FAULTY MODULE
     6584                            *
     6585   01 02480    31901993     CHKINH   CW,9     8K
     6586   01 02481    69202484              BCS,2    %+3
     6587   01 02482    3300244F              MTW,0    SAFLAG            YES, THEN FLAG SET
     6588   01 02483    69302451              BCS,3    EXAMRET           YES, RETURN TO TEST 7
     6589   01 02484    21600002 A            CI,6     2
     6590   01 02485    69302293              BCS,3    EXITST
     6591                                     #PRINT   MSG35

            01 02486    EA6003C5
            01 02487    EA6003CD
            01 02488    C0009844 A
            01 02489    EA6003C6
     6592   01 0248A    680022B1              B        EXITSTR
     6593                            *
     6594                            *
     6595                            *
     6596                            *
     6597                            * TEST 9  SEARCH FOR ANY BAD "CDM"
     6598                            *
     6599   01 0248B    22800000 A   ANLZ9    LI,8     0
     6600   01 0248C    358024AD              STW,8    DIODTAG           RESET FLG
     6601   01 0248D    226FFFF6 A            LI,6     -10               SET CNTR
     6602   01 0248E    65602490     CDMLOC   BIR,6    %+2
     6603   01 0248F    68002293              B        COMUTOR
     6604   01 02490    65502491              BIR,5    %+1               STEP UP FA
     6605   01 02491    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6606   01 02492    02200010 A            LCI      1
     6607   01 02493    2D8A0000 A            LMS,8    0,5               READ THE DATA
     6608   01 02494    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6609   01 02495    3180000A A            CW,8     10                DATA OK
     6610   01 02496    6930248E              BCS,3    CDMLOC            NO
     6611   01 02497    31500002 A            CW,5     2                 YES, THEN LAST LOC
     6612   01 02498    6910248E              BCS,1    CDMLOC                 NO
     6613   01 02499    32501B92     BITEXAM  LW,5     FA                GET ORIGINAL FAILING ADDR.
     6614   01 0249A    6AF016C4              BAL,15   CNT:BITS
     6615   01 0249B    21600001 A            CI,6     1                 ONE BIT FAIL ONLY
     6616   01 0249C    69302293              BCS,3    COMUTOR           NO
     6617   01 0249D    4B701996              AND,7    HF
     6618   01 0249E    25700001 A            SLS,7    1
     6619   01 0249F    35701972              STW,7    TEMPR7
     6620   01 024A0    6AF0170B              BAL,15   BAD:HW
     6621   01 024A1    32701972              LW,7     TEMPR7
     6622   01 024A2    21600000 A            CI,6     0
     6623   01 024A3    683024A5              BCR,3    %+2
     6624   01 024A4    20700001 A            AI,7     1
     6625   01 024A5    330024AD              MTW,0    DIODTAG           FLG SET
     6626   01 024A6    683024A8              BCR,3    BADCOR            NO
     6627   01 024A7    680024AC              B        NOTCOR
     6628                            BADCOR   #PRINT   MSG36

            01 024A8    EA6003C5
            01 024A9    EA6003CD
            01 024AA    C0009858 A
            01 024AB    EA6003C6
     6629   01 024AC                 NOTCOR   RES      0
     6630   01 024AC    680022B1              B        EXITSTR           EXIT THIS TEST
     6631                            *
     6632                            *
     6633   01 024AD    00000000 A   DIODTAG  DATA     0
     6634                            *
     6635                            *
     6636                            *
     6637                            * TEST  10    TEST FOR ANY BAD DIODE OR OPEN LINES ON  CDM
     6638                            *
     6639                            *
     6640   01 024AE    22800000 A   ANLZ10   LI,8     0
     6641   01 024AF    3580253D              STW,8    YDIODE
     6642   01 024B0    3580253E              STW,8    XLTAG
     6643   01 024B1    35802540              STW,8    XDIODE
     6644   01 024B2    228FFFFF A            LI,8     -1
     6645   01 024B3    358024AD              STW,8    DIODTAG
     6646   01 024B4    33F0253F              MTW,-1   TAGALT            FLAG TO TEST ALT. LOCS
     6647   01 024B5    6AF01730              BAL,15   FA:GRUP
     6648   01 024B6    21900010 A            CI,9     X'10'             16 LOCS. BAD IN ALT. FORM  (8 LOC)
     6649   01 024B7    693024B9              BCS,3    %+2               NO
     6650   01 024B8    3310253E              MTW,1    XLTAG             YES, SET FLG
     6651   01 024B9    6AF016F5              BAL,15   BAD:BYTE          HALF-BYTE BAD
     6652   01 024BA    694024EB              BCS,4    YD                NO
     6653   01 024BB    6AF017AE              BAL,15   MAP               SET MAP REGISTERS
     6654   01 024BC    02200010 A            LCI      1
     6655   01 024BD    2D8A0080 A            LMS,8    X'80',5           YES, TRY FA+X'80'
     6656   01 024BE    3180000B A            CW,8     11                SAME BITS BAD
     6657   01 024BF    693024EB              BCS,3    YD                NO
     6658   01 024C0    02200010 A            LCI      1                 SET CC TO READ OUT THE DATA
     6659   01 024C1    2D8A0100 A            LMS,8    X'100',5          YES, TRY FA+100 (HEX)
     6660   01 024C2    3180000B A            CW,8     11                AGAIN SAME BITS BAD
     6661   01 024C3    693024EB              BCS,3    YD                NO
     6662   01 024C4    02200010 A            LCI      1                 SET CC TO READ OUT THE DATA
     6663   01 024C5    2D8A0180 A            LMS,8    X'180',5          YES,
     6664   01 024C6    3180000B A            CW,8     11                ONCE AGAIN SAME BITS BAD FOR FA+180
     6665   01 024C7    693024EB              BCS,3    YD                NO
     6666   01 024C8    02200010 A            LCI      1                 SET CC TO READ OUT THE DATA
     6667   01 024C9    2D8A0200 A            LMS,8    X'200',5          TRY FOR FA+X'200'
     6668   01 024CA    3180000B A            CW,8     11                OK
     6669   01 024CB    693024EB              BCS,3    YD                   NO
     6670   01 024CC    3300253E              MTW,0    XLTAG                 YES, THEN FLG SET
     6671   01 024CD    683024D8              BCR,3    ODPRINT
     6672   01 024CE    02200010 A            LCI      1                 SET CC TO READ OUT THE DATA
     6673   01 024CF    2D8A0001 A            LMS,8    1,5                                YES
     6674   01 024D0    3180000B A            CW,8     11                DATA OF FA+1 BAD ON SAME BITS
     6675   01 024D1    68302293              BCR,3    EXITST            YES,  XCS SHOULD BE BAD
     6676   01 024D2                 XLOPEN   RES      0
     6677   01 024D2    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6678                                     #PRINT   MSG37

            01 024D3    EA6003C5
            01 024D4    EA6003CD
            01 024D5    C000986C A
            01 024D6    EA6003C6
     6679   01 024D7    68002499              B        BITEXAM           GO FIND MODULE LOC.
     6680                            *
     6681                            * PRINT  XCXV  OPEN DIODE MESSAGE
     6682                            *
     6683   01 024D8    02200010 A   ODPRINT  LCI      1                 SET CC TO READ OUT THE DATA
     6684   01 024D9    2D8A0010 A            LMS,8    16,5              READ IT
     6685   01 024DA    3180000B A            CW,8     11                SAME BITS OF FA+16 BAD
     6686   01 024DB    683024D2              BCR,3    XLOPEN            YES
     6687   01 024DC    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6688                                     #PRINT   MSG38

            01 024DD    EA6003C5
            01 024DE    EA6003CD
            01 024DF    C0009888 A
            01 024E0    EA6003C6
     6689                            OPENYC   #PRINT   MSG39

            01 024E1    EA6003C5
            01 024E2    EA6003CD
            01 024E3    C000989C A
            01 024E4    EA6003C6
     6690   01 024E5    68002499              B        BITEXAM           GO FIND BAD MODULE
     6691                            *
     6692                            * PRINT  YCYV  OPEN DIODE MESSAGE
     6693                            *
     6694   01 024E6                 YCYV     RES      0
     6695                                     #PRINT   MSG40             PRINT 'NYCYV-SELECT DIODE'

            01 024E6    EA6003C5
            01 024E7    EA6003CD
            01 024E8    C00098AC A
            01 024E9    EA6003C6
     6696   01 024EA    680024E1              B        OPENYC
     6697                            *
     6698                            *
     6699   01 024EB    325017D2     YD       LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6700   01 024EC    330018EC              MTW,0    ERRCNT            ANY ERROR REPORTED
     6701   01 024ED    69302293              BCS,3    COMUTOR           YES, EXIT
     6702   01 024EE    328019B8              LW,8     H3FF800           MASK
     6703   01 024EF    4B500008 A            AND,5    8
     6704   01 024F0    3550253C              STW,5    NEWFA
     6705   01 024F1    2270007F A   YDCOMPR  LI,7     X'7F'             CNTR
     6706   01 024F2    6AF017AE     NXTYD    BAL,15   MAP               SET MAP REGISTERS
     6707   01 024F3    02200010 A            LCI      1                 SET CC TO READ OUT THE DATA
     6708   01 024F4    2D8A0001 A            LMS,8    1,5
     6709   01 024F5    3180000A A            CW,8     10                DATA OK
     6710   01 024F6    683024FF              BCR,3    YDLOC             YES
     6711   01 024F7    3180000B A            CW,8     11                NO, THEN SAME BITS BAD
     6712   01 024F8    68302503              BCR,3    NXTYDBLK                 YES
     6713                            *                                           NO
     6714   01 024F9    3300253D     YDCNTR   MTW,0    YDIODE            FALG SET
     6715   01 024FA    69302518              BCS,3    XDEXAM            YES
     6716   01 024FB    3310253D              MTW,1    YDIODE            NO
     6717   01 024FC    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6718   01 024FD    3550253C              STW,5    NEWFA             INCREMENT FLG
     6719   01 024FE    68002503              B        NXTYDBLK
     6720                            *
     6721   01 024FF    64702501     YDLOC    BDR,7    %+2               ALL DONE
     6722   01 02500    331017D2              MTW,1    MAPTEMP+5
     6723   01 02501    655024F2              BIR,5    NXTYD             NO, TRY NEXT YD
     6724   01 02502    680024F9              B        YDCNTR            YES
     6725                            *
     6726                            *  EXAMINE ANOTHER BLOCK OF LOCATIONS FOR BAD BITS
     6727                            *
     6728   01 02503    3250253C     NXTYDBLK LW,5     NEWFA
     6729   01 02504    20500080 A            AI,5     X'80'
     6730   01 02505    22802000 A            LI,8     X'2000'
     6731   01 02506    4B80253C              AND,8    NEWFA
     6732   01 02507    48800005 A            EOR,8    5                 BIT 2 CHANGED
     6733   01 02508    683024F1              BCR,3    YDCOMPR           NO
     6734   01 02509    3300253D              MTW,0    YDIODE            FLG RESET
     6735   01 0250A    69302518              BCS,3    XDEXAM            NO
     6736                                     #PRINT   MSG40             'NYCYV-SELECT DIODE'

            01 0250B    EA6003C5
            01 0250C    EA6003CD
            01 0250D    C00098AC A
            01 0250E    EA6003C6
     6737                            SHORTD   #PRINT   MSG41

            01 0250F    EA6003C5
            01 02510    EA6003CD
            01 02511    C00098C0 A
            01 02512    EA6003C6
     6738                                     #PRINT   MSG52             'SUSPECT NTSSB-1 OR -2'

            01 02513    EA6003C5
            01 02514    EA6003CD
            01 02515    C00099E0 A
            01 02516    EA6003C6
     6739   01 02517    68002499              B        BITEXAM
     6740                            *
     6741                            *
     6742                            *
     6743                            * TEST FOR ANY SHORT X-DIODES ON  CDM
     6744                            *
     6745   01 02518    32501998     XDEXAM   LW,5     H7FE000
     6746   01 02519    4B501B92              AND,5    FA                MASK BITS 3-15
     6747   01 0251A    3550253C              STW,5    NEWFA             SAVE THIS NEW FA
     6748                            *
     6749   01 0251B    22700031 A   XDGRUP   LI,7     X'31'             CNTR
     6750   01 0251C    3250253C              LW,5     NEWFA             GET NEW FA
     6751   01 0251D    6AF017AE     XDCOMPR  BAL,15   MAP               SET MAP REGISTERS
     6752   01 0251E    02200010 A            LCI      1
     6753   01 0251F    2D8A0000 A            LMS,8    0,5
     6754   01 02520    325017D2              LW,5     MAPTEMP+5         RESTORE TEST ADDRESS
     6755   01 02521    3180000A A            CW,8     10                DATA OK
     6756   01 02522    68302530              BCR,3    NXTXD             YES
     6757   01 02523    2280E07F A   BITS38   LI,8     X'E07F'           NO
     6758   01 02524    4B80253C              AND,8    NEWFA
     6759   01 02525    2180007F A            CI,8     X'7F'
     6760   01 02526    6930253A              BCS,3    FANDONE           NO
     6761   01 02527    33F02540              MTW,-1   XDIODE            FLG = 1
     6762   01 02528    6830252A              BCR,3    %+2               YES
     6763   01 02529    68002293              B        COMUTOR           EXIT
     6764   01 0252A    3250253C              LW,5     NEWFA
     6765                                     #PRINT   MSG38

            01 0252B    EA6003C5
            01 0252C    EA6003CD
            01 0252D    C0009888 A
            01 0252E    EA6003C6
     6766   01 0252F    6800250F              B        SHORTD            PRINT SHORT DIODE AND MOD LOC
     6767                            *
     6768   01 02530    20500080 A   NXTXD    AI,5     X'80'             ADD X'80' TO NEW FA
     6769   01 02531    64702533              BDR,7    %+2               LAST LOC
     6770   01 02532    6800251D              B        XDCOMPR           NO
     6771   01 02533    33102540              MTW,1    XDIODE            YES
     6772   01 02534    32802540              LW,8     XDIODE
     6773   01 02535    21800002 A            CI,8     2                 FLG > 2
     6774   01 02536    69102538              BCS,1    %+2               NO
     6775   01 02537    68002293              B        COMUTOR           YES, EXIT
     6776   01 02538    3550253C              STW,5    NEWFA             SAVE THIS NEW FA
     6777   01 02539    68002523              B        BITS38
     6778   01 0253A    3310253C     FANDONE  MTW,1    NEWFA             INCREMENT FLAG
     6779   01 0253B    6800251B              B        XDGRUP            TRY NEXT GROUP
     6780                            *
     6781   01 0253C    00000000 A   NEWFA    DATA     0
     6782   01 0253D    00000000 A   YDIODE   DATA     0
     6783   01 0253E    00000000 A   XLTAG    DATA     0
     6784   01 0253F    00000000 A   TAGALT   DATA     0
     6785   01 02540    00000000 A   XDIODE   DATA     0
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   25
A    6787         01 02541           MSG1     TEXTCS   TITLE

     6789                                     BOUND    8
     6790                            MSG2     TEXTCS   ;
     6791         01 0254C            ' LOCATIONS FROM  000000  TO  000000    FAIL,   DATA =  00000000'
     6792         01 0255C           MSG3     TEXTCS   '*** HI:LIM < LO:LIM'
     6793         01 02561           MSG4     TEXTCS   '... END OF PASS'
     6794         01 02565           MSG5     TEXTCS   ' *** A PARTIAL WRITE (BYTE 0) ERROR ***'
     6795         01 0256F           MSG6     TEXTCS   '*** HALT ON ERROR '
     6796         01 02574           MSG7     TEXTCS   '*** OM ERROR'
     6797         01 02578           MSG8A    TEXTCS   ' '
     6798         01 02579           MSG8     TEXTCS   'CALCULATED MEMORY SIZE IS    00K  (  000000 HEX )'
     6799         01 02586                    TEXTCS   ' '
     6800         01 02587           MSG13    TEXTCS   'INTERMITTENT ERROR'
     6801         01 0258C           MSG15    TEXTCS   '***EXPECTED MFI AFTER PE DID NOT OCCUR'
     6802         01 02596           MSG16    TEXTCS   ' ADR RECOGN. ERROR'
     6803         01 0259B           MSG17    TEXTCS   ' DATA PATH ERROR THROUGH OUT TEST BANK'
     6804         01 025A5           MSG18    TEXTCS   ' SUSPECT BAD YVS'
     6805         01 025AA           MSG19    TEXTCS   ' SUSPECT OPEN YVPR DIODE, OR YVS LOGIC'
     6806         01 025B4           MSG20    TEXTCS   ' SUSPECT BAD YVPR'
     6807         01 025B9           MSG21    TEXTCS   ' OPEN Y-INPUT LINE'
     6808         01 025BE           MSG22    TEXTCS   ' OPEN DIODE, OR YNPC(1,2,3 OR 4), OR BAD YCS'
     6809         01 025CA           MSG23    TEXTCS   ' SUSPECT BAD RESISTOR OR OPEN DRIVE-RESISTOR LINE'
     6810         01 025D7           MSG24    TEXTCS   ' BAD XC-SINK'
     6811         01 025DB           MSG25    TEXTCS   ' BAD XCS'
     6812         01 025DE           MSG26    TEXTCS   ' BAD XC PRE-DRIVE OR XPNCK(0,1,2 OR 3)'
     6813         01 025E8           MSG27    TEXTCS   ' BAD XVS'
     6814         01 025EB           MSG28    TEXTCS   ' SUSPECT XV PRE-DRIVE SINK OR OPEN DRIVE DIODE'
     6815         01 025F7           MSG30    TEXTCS   ' OPEN XV SINK LINE'
     6816         01 025FC           MSG31    TEXTCS   ' BAD XV PRE-DRIVE'  ON RTT12
     6817         01 02601           MSG32    TEXTCS   ' BAD PA-SEL'  ON WTT10
     6818         01 02604           MSG33    TEXTCS   ' A BAD SENSE-LINE OR ADR-LINE 23'
     6819         01 0260D           MSG34    TEXTCS   ' BAD SENSE-AMP'  ON HTT10
     6820         01 02611           MSG35    TEXTCS   ' INHIBIT DRIVER BAD'  ON RTT10
     6821         01 02616           MSG36    TEXTCS   ' BAD CORE ON CDM'
     6822         01 0261B           MSG37    TEXTCS   ' OPEN X-INPUT LINE ON CDM'
     6823         01 02622           MSG38    TEXTCS   ' XCXV-SELECT DIODE'
     6824         01 02627           MSG39    TEXTCS   ' IS OPEN ON CDM'
     6825         01 0262B           MSG40    TEXTCS   ' YCYV-SELECT DIODE'
     6826         01 02630           MSG41    TEXTCS   'POSSIBLY SHORTED OR BAD SENSE CKT OR ADRS-LINE.'
     6827         01 0263C           MSG44    TEXTCS   '*** ADDRESS BUS PARITY ERROR DETECTED'
     6828         01 02646           MSG45    TEXTCS   ' ERROR SOURCE A PARITY ELEMENT'
     6829         01 0264E           MSG46    TEXTCS   '  OR POSSIBLE SHORTED CDM DIODE'
     6830         01 02656           MSG47    TEXTCS   ' BAD INHIBIT CKT'  ON RTT12
     6831         01 0265B           MSG49    TEXTCS   ' NOTE: DATA RECEIVED = BAD ADDR. LINE'
     6832         01 02665           MSG50    TEXTCS   ' PARITY BIT PATH OR LPBW OF STATUS-0 ERROR IN BANK'
     6833         01 02672           MSG51    TEXTCS   ' CONTROL FUNCTION ERROR'
     6834         01 02678           MSG52    TEXTCS   'SUSPECT  NTSSTB-1 OR NTSSTB-2'
     6835         01 02680           MSG55    TEXTCS   'MORE THAN 3 GAPS EXIST IN MEMORY'
     6836         01 02689           MSG56A   TEXTCS   ' '
     6837         01 0268A           MSG56    TEXTCS   'TYPE:  XXXX'
     6838         01 0268D           MSG58    TEXTCS   ' SUSPECT TPYI (0 OR 1) OR TNYI (0 OR 1)'
     6839         01 02697           MSG67    TEXTCS   ' *** NO DIO ADDRESS CAN BE RECOGNIZED'
     6840         01 026A1           MSG68    TEXTCS   '*** PORT CONFLICT ERROR DETECTED'
     6841         01 026AA           MSG69    TEXTCS   'INTERMITTENT PORT CONFLICT ERROR DETECTED'
     6842                                     BOUND    8
     6843         01 026B6           MSG73    TEXTCS   ' BYTE CONTROL ERROR'
     6844         01 026BB           MSG74    TEXTCS   ' WRITE TO BMU ERROR OR FAULTY SDECEN'
     6845         01 026C5           MSG76    TEXTCS   '*** EXPECTED PE DID NOT OCCUR'
     6846         01 026CD           MSG77    TEXTCS   'MFI.NPE - PROBABLE LMS WITH UNDEFINED CC'
     6847         01 026D8           MSG78    TEXTCS   ' *** NO IOP ADDRESS CAN BE RECOGNIZED'
     6848         01 026E2           HOFWMSG  TEXTCS   '*WARNING: HALT-ON-FAULT IS SET*'
     6849                                     BOUND  8
     6850                            *
     6851         01 026EA           MSG80    TEXTCS   '*** HI:LIM > MEMSIZE'
     6852         01 026F0           MSG84    TEXTCS   '  ERROR IN XXX. TEST  0'
     6853                            MSG85T   TEXTCS   ;
     6854         01 026F6            ' RECEIVED EXPECTED XC   SWITCHES           FAULTS    STAT. TEST    CM'
     6855                                     TEXTCS   ;
     6856                             '   DATA     DATA   YV YC YV A YV XC  XV  012345678SL';
     6857         01 02708            ,'  ADR   ADR  01 23 4'
     6858                            MSG85    TEXTCS   ;
     6859                             ' 00000000 00000000  0 000 0 0 0 000 0000 00000000000';
     6860         01 0271B            ,' 00000 00000 N  N  N'
     6861                            *
     6862         01 0272E           MSG88    TEXTCS   ' COMPLETED LOG. TEST  A'
     6863                            MSG89    TEXTCS   ;
     6864         01 02734            ' TRAP/INT ''XX'' TCC = 00    LOG. TEST  A  REG. SAVE = 000000'
     6865                                     TEXTCS   ;
     6866         01 02743            '   PSW1     PSW2   XC   SWITCHES           FAULTS    STAT. TEST    CM'
     6867                                     TEXTCS   ;
     6868                             '                   YV YC YV A YV XC  XV  012345678SL';
     6869         01 02755            ,'  ADR   ADR  01 23 4'
     6870         01 02768           MSG90    TEXTCS   '***'
     6871         01 02769                    TEXTCS   ' MEMORY IS NOT CONTIGUOUS, TYPE : GAP'
     6872         01 02773           MSG91    TEXTCS   ' VOLT. MARGIN IS ABNORMAL'
     6873         01 0277A            TEXTCS ' CLOCK MARGINS ARE INHIBITED FROM TOGGLING AUTOMATICALLY'
     6874         01 02789           MSG92    TEXTCS   ' MEMORY FAULT DETECTED AT ABOVE ADDR.'
     6875         01 02793           MSG93    TEXTCS   '***'
     6876         01 02794                    TEXTCS   ' CAUTION - MEMORY IN INTERLEAVE MODE'
     6877         01 0279E           MSG94    TEXTCS   ' MAP OPTION NOT INSTALLED.'
     6878         01 027A5           MSG95    TEXTCS   ' OVERLAPPING GAPS'
     6879         01 027AA           MSG96    TEXTCS   ' PE NOT CAUSED BY MEMORY'
     6880         01 027B1           ODDMSG   TEXTCS   ' ILLOGICAL FAILURE'
     6881                            *
     6882                            *
     6883                                     BOUND    8
     6884   01 027B6                 STSBUFF  RES      20
     6885   01 027CA                 BUF      RES      20
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   26
A    6887                            SYNTAX%EXPL TEXTCS      ;
     6888                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     6889         01 027DE            ' EXPLANATION,'
     6890                                     TEXTCS   ;
     6891         01 027F0            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     6892         01 027FC                    TEXTCS   ' '
     6893                                     TEXTCS   ;
     6894         01 027FD            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     6895         01 0280D                    TEXTCS   ' '
     6896                                     TEXTCS   ;
     6897         01 0280E            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     6898                                     TEXTCS   ;
     6899         01 0281D            'THE SPECIFIED ACTION.'
     6900         01 02823                    TEXTCS   ' '
     6901                                     TEXTCS   ;
     6902         01 02824            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS ''SYSTEM RESET'' FROM PCP'
     6903         01 02834                    TEXTCS   ' '
     6904                                     TEXTCS   ;
     6905         01 02835            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     6906                                     TEXTCS   ;
     6907         01 02845            '     ''COMPUTE'' SWITCH TO ''IDLE''. WHEN OUTPUT TO KSR, IT MEANS'
     6908                                     TEXTCS   ;
     6909         01 02855            '     THE PROGRAM IS WAITING FOR INPUT.'
     6910         01 0285F                    TEXTCS   ' '
     6911                                     TEXTCS   ;
     6912         01 02860            '(3) ''#''-FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     6913                                     TEXTCS   ;
     6914         01 02870            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     6915         01 0287B                    TEXTCS   ' '
     6916                                     TEXTCS   ;
     6917         01 0287C            '(4) ''QUEST. MARK''-OUTPUTS A) SYNTAX GLOSS.  (AFTER ''@'' PROMPT),'
     6918                                     TEXTCS   ;
     6919         01 0288C            '          OR  B) CURRENT DIRECTIVE EXPL. (AFTER DIRECT. KEYIN),'
     6920                                     TEXTCS   ;
     6921         01 0289C            '          OR  C) ERROR MSG EXPL. (AFTER ERROR MSG OUTPUT)'
     6922         01 028AB                    TEXTCS   ' '
     6923                                     TEXTCS   ;
     6924         01 028AC            '(5) '',''-TERMINATES PARAMETER FIELD'
     6925         01 028B5                    TEXTCS   ' '
     6926                                     TEXTCS   ;
     6927         01 028B6            '(6) ''NEW LINE''-TERMINATES PARAMETER LINE'
     6928         01 028C1                    TEXTCS   ' '
     6929                            DM%EXPL  TEXTCS   ;
     6930         01 028C2            '(7) ''DM>X,Y''-DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     6931         01 028D3                    TEXTCS   ' '
     6932                            RM%EXPL  TEXTCS   ;
     6933         01 028D4            '(8) ''RM>X,Y''-DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     6934                                     TEXTCS   ;
     6935         01 028E2             '      REPLACEMENT OF WORD DISPLAYED.'
     6936         01 028EC                    TEXTCS   ' '
     6937                                     TEXTCS   ;
     6938         01 028ED            '(9) ''SS''- SENSE SWITCH OPTIONS. DISPLAY TO MSG. DEV.THE CURRENT'
     6939                                     TEXTCS   ;
     6940         01 028FD            '     SENSE SWITCH STATUS: SOFTWARE IF M=0, PCP IF M=1.'
     6941                                     TEXTCS   ;
     6942         01 0290B            '      ALSO ALLOWS ALTERATION OF STATUS FROM TERMINAL IF M=1'
     6943                                     TEXTCS   ;
     6944         01 0291A            '      SW1=1 SHORT LOOP'
     6945                                     TEXTCS   ;
     6946         01 02920            '      SW1=0 NO SHORT LOOP'
     6947                                     TEXTCS   ;
     6948         01 02927            '      SW2=1 LONG LOOP'
     6949                                     TEXTCS   ;
     6950         01 0292D            '      SW2=0 NO LONG LOOP'
     6951                                     TEXTCS   ;
     6952         01 02934            '      SW3=1 NO HALT ON ERROR'
     6953                                     TEXTCS   ;
     6954         01 0293C            '      SW3=0  HALT ON ERROR'
     6955                                     TEXTCS   ;
     6956         01 02943            '      SW4=1 SUPPRESS ERROR MSG.'
     6957                                     TEXTCS   ;
     6958         01 0294B            '      SW4=0 PRINT ERROR MSGS.'

     6960         01 02953           AND%EXPL TEXTCS        ' '           UPSPACE ONE LINE
     6961                                     TEXTCS        ;
     6962         01 02954            '(10) ''&''- CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     6963         01 02962                    TEXTCS        ' '           UPSPACE ONE LINE
     6964                            *
     6965                            DS%EXPL  TEXTCS            ;
     6966         01 02963            '(11) ''DS>X,Y''-DISPLAYS THE STATUS OF THE MEMORY BANK'
     6967                                     TEXTCS            ;
     6968         01 02971            '              BETWEEN LOCATIONS X AND Y (HEX)'
     6969         01 0297D            TEXTCS '  '
     6970                                     TEXTCS   ;
     6971         01 0297E            ' TSTADR    B#  P#  IL BS   U#  US   C01  C23  C4 VM  INTADR HOF'
     6972                                     TEXTCS   ;
     6973         01 0298E            ' ------    --  --  -- ---K --  ---K ---  ---  -- --  ------ ---'
     6974                                     TEXTCS   ;
     6975         01 0299E            ' 000000    00  00  00 0000 00  0000 N    N    N   N  000000 ***'
     6976         01 029AE            TEXTCS '  '
     6977         01 029AF                    TEXTCS            ' '
     6978         01 029B0            TEXTCS '*TSTADR = ADDRESS BEING CURRENTLY BEING TESTED'
     6979         01 029BC            TEXTCS '  '
     6980                                     TEXTCS            ;
     6981         01 029BD            '*  B#   =  BANK NUMBER IN BINARY OR A/B'
     6982                                     TEXTCS            ;
     6983         01 029C7            '*  P#   =  PORT NUMBER  (DECIMAL)'
     6984                                     TEXTCS            ;
     6985         01 029D0            '*  IL   =  INTERLEAVE MODE  (00 = NO INTERLEAVE)'
     6986                                     TEXTCS            ;
     6987         01 029DD            '*  BS   =  BANK SIZE  (K = 1024 WORDS)'
     6988                                     TEXTCS            ;
     6989         01 029E7            '*  U#   =  UNIT NUMBER  (DECIMAL)'
     6990                                     TEXTCS            ;
     6991         01 029F0            '*  US   =  UNIT SIZE  (K = 1024 WORDS)'
     6992         01 029FA                    TEXTCS            ' '
     6993                                     TEXTCS            ;
     6994         01 029FB            '*  C01, C23, C4 = CLOCK MARGINS'
     6995                                     TEXTCS            ;
     6996         01 02A03            '*  VM = VOLTAGE MARGIN'
     6997         01 02A09            TEXTCS '  '
     6998         01 02A0A            TEXTCS '*INTADR = INTERLEAVED ADRESS'
     6999         01 02A12            TEXTCS ' '
     7000         01 02A13            TEXTCS '*HOF    = HALT-ON-FAULT SET'
     7001         01 02A1A           G%EXPL   TEXTCS   ' '
     7002                                     TEXTCS    ;
     7003         01 02A1B            '(12) ''GAP''- DEFINES GAPS WITHIN THE MEMORY TEST LIMITS'
     7004         01 02A29                    TEXTCS   ' '
     7005                            %GHDR    TEXTCS    ;
     7006         01 02A2A            '     GAP1LO  GAP1HI  GAP2LO  GAP2HI  GAP3LO  GAP3HI'
     7007                            *
     7008                            %GOUT    TEXTCS   ;
     7009         01 02A37            '     000000  000000  000000  000000  000000  000000'
     7010         01 02A44                    TEXTCS   ' '
     7011                                     TEXTCS   ;
     7012         01 02A45            ' GAP1LO, GAP2LO, GAP3LO  =  LOWER LIMITS'
     7013                                     TEXTCS   ;
     7014         01 02A50            ' GAP1HI, GAP2HI, GAP3HI  =  UPPER LIMITS'
     7015                            *
     7016         01 02A5B           J%EXPL   TEXTCS       ' '
     7017                                     TEXTCS       ;
     7018         01 02A5C            '(13) ''J''- DISPLAYS AND MODIFIES OPERATING PARAMETERS'
     7019         01 02A6A                    TEXTCS   ' '
     7020                            PL#JHDR  TEXTCS       ;
     7021         01 02A6B            ' MSGDEV COMDEV  SI   CI   CM01 CM23 CM4  MAP'
     7022                            PLINE#J  TEXTCS       ;
     7023         01 02A77            '*J 0002 *0001  0001 001    0    A    0    0'
     7024         01 02A82                    TEXTCS       ' '
     7025                                     TEXTCS       ;
     7026         01 02A83            'MSGDEV         MESSAGE OUTPUT DEVICE NUMBER'
     7027                                     TEXTCS       ;
     7028         01 02A8E            'COMDEV         COMUNICATION DEVICE NUMBER'
     7029                                     TEXTCS       ;
     7030         01 02A99            '                (INPUT FROM AND OUTPUT TO USER)'
     7031         01 02AA5                    TEXTCS   ' '
     7032                                     TEXTCS   ;
     7033         01 02AA6            'SI              COUNT OF PASSES BETWEEN AUTOMATIC STATUS REPORTS'
     7034         01 02AB7                    TEXTCS       ' '
     7035                                     TEXTCS       ;
     7036         01 02AB8            'CI              COUNT OF PASSES BETWEEN AUTOMATIC CM CHANGES'
     7037         01 02AC8                    TEXTCS       ' '
     7038                                     TEXTCS       ;
     7039         01 02AC9            'CM01, CM23, CM4 ARE CLOCK MARGINS (FOR ALL TEST BANKS)'
     7040         01 02AD7                    TEXTCS   ' '
     7041                                     TEXTCS       ;
     7042         01 02AD8            '           PROGRAM CONTROLLED       USER CONTROLLED (FIXED)'
     7043                                     TEXTCS       ;
     7044         01 02AE7            '           ------------------       ---------------'
     7045                                     TEXTCS       ;
     7046         01 02AF4            '           0 = NORMAL ( 00 )          A = NORMAL'
     7047                                     TEXTCS       ;
     7048         01 02B01            '           1 = SLOW (01 OR LATE)      B = SLOW'
     7049                                     TEXTCS       ;
     7050         01 02B0D            '           2 = FAST (10 OR EARLY)     C = FAST'
     7051         01 02B19                    TEXTCS       ' '
     7052                                     TEXTCS   ;
     7053         01 02B1A            'MAP        MAP CONTROL'
     7054                                     TEXTCS  ;
     7055         01 02B20            '           0 = TURN MAP OFF'
     7056                                     TEXTCS  ;
     7057         01 02B27            '           1 = TURN MAP ON'
     7058         01 02B2E                    TEXTCS   ' '
     7059                            *
     7060                            *
     7061                            L%EXPL   TEXTCS   ;
     7062         01 02B2F            '(14) ''LI''-DISPLAYS AND MODIFIES MEMORY LIMITS'
     7063         01 02B3B                    TEXTCS   '  '
     7064                            %LHDR    TEXTCS   ;
     7065         01 02B3C            '     LO:LIM  HI:LIM  MEMSIZ  COMETL  COMETH'
     7066                            %LOUT    TEXTCS   ;
     7067         01 02B47            '     000000  000000  000000  *00000  *00000'
     7068         01 02B52                    TEXTCS   ' '
     7069                                     TEXTCS   ;
     7070         01 02B53            ' LO:LIM  =  LOWER MEMORY LIMIT TO BE TESTED'
     7071                                     TEXTCS   ;
     7072         01 02B5E            ' HI:LIM  =  UPPER MEMORY LIMIT TO BE TESTED'
     7073                                     TEXTCS   ;
     7074         01 02B69            ' MEMSIZ  =  MEMORY SIZE'
     7075                                     TEXTCS   ;
     7076         01 02B6F            ' COMETL  =  LOWER LIMIT OF COMET RESIDENT AREA '
     7077                                     TEXTCS   ;
     7078         01 02B7B            ' COMETH  =  UPPER LIMIT OF COMET (THIS RANGE IS NOT TESTED)'
     7079                            *
     7080         01 02B8A           P%EXPL   TEXTCS       ' '
     7081                                     TEXTCS       ;
     7082         01 02B8B            '(15) ''P''-DISPLAYS AND MODIFIES IOP-MS AND DIO ADDRESSES'
     7083         01 02B99                    TEXTCS       ' '
     7084         01 02B9A           %PHDR    TEXTCS  ' IOP-MS     DIO'
     7085         01 02B9E                    TEXTCS  '      5       0'
     7086         01 02BA2                    TEXTCS       ' '
     7087                                     TEXTCS       ;
     7088         01 02BA3            ' IOP-MS  =  IOP-MS ADDRESS (BITS 18-23=IOP, 24-31=MS)'
     7089                                     TEXTCS       ;
     7090         01 02BB1            ' DIO     =  DIO ADDRESS'
     7091         01 02BB7           T%EXPL   TEXTCS       ' '
     7092                                     TEXTCS        ;
     7093         01 02BB8            '(16) ''T''-DISPLAYS AND MODIFIES TEST SELECTIONS'
     7094         01 02BC4                    TEXTCS   '  '
     7095                            %AHDR    TEXTCS       ;
     7096         01 02BC5            '   M   LOG TEST    MAG TEST        BIT-SLCT    ITRTN#'
     7097                            %ADASH   TEXTCS       ;
     7098         01 02BD3            '       ABCDEFGH    123456789ABCD'
     7099                            %AOUT    TEXTCS       ;
     7100         01 02BDC            '   1   11111111    1111111111111   FFFFFFFF    00000064'
     7101         01 02BEA                    TEXTCS '  '
     7102                                     TEXTCS   ;
     7103         01 02BEB            ' M = MAGNETIC TEST EXECUTION CONTROL:'
     7104         01 02BF5                    TEXTCS   ' '
     7105                                     TEXTCS   ;
     7106         01 02BF6            '       0 = EXECUTE THROUGH LOGIC MASK (NO MAGNETICS)'
     7107                                     TEXTCS   ;
     7108         01 02C04            '       1 = EXECUTE THROUGH BOTH MASKS'
     7109         01 02C0E                    TEXTCS       ' '
     7110                                     TEXTCS       ;
     7111         01 02C0F            ' ENTRY AT EACH BIT POSITION INDICATES:'
     7112                                     TEXTCS       ;
     7113         01 02C19            '       0 =  CORRESPONDING TEST SUPPRESSED'
     7114                                     TEXTCS       ;
     7115         01 02C24            '       1 =  CORRESPONDING TEST SELECTED'
     7116         01 02C2E                    TEXTCS   ' '
     7117                                     TEXTCS   ;
     7118         01 02C2F            ' LOGIC TESTS:'
     7119                                     TEXTCS       ;
     7120         01 02C33            ' A  =  DATA PATH (INCLUDING PARTIAL WRITE)'
     7121                                     TEXTCS       ;
     7122         01 02C3E            ' B  =  PARITY TRAP AND INTERRUPT LOGIC'
     7123                                     TEXTCS       ;
     7124         01 02C48            ' C  =  ADDRESSING'
     7125                                     TEXTCS       ;
     7126         01 02C4D            ' D  =  PARITY'
     7127                                     TEXTCS       ;
     7128         01 02C51            ' E  =  ADDRESS-LINES TOGGLE'
     7129                                     TEXTCS       ;
     7130         01 02C58            ' F  =  RANDOM DATA'
     7131                                     TEXTCS       ;
     7132         01 02C5D            ' G  =  RANDOM ADDRESSING'
     7133                                     TEXTCS       ;
     7134         01 02C64            ' H  =  PORT CONFLICT'
     7135         01 02C6A                    TEXTCS '  '
     7136                                     TEXTCS   ;
     7137         01 02C6B            ' MAGNETIC TESTS:'
     7138                                     TEXTCS   ;
     7139         01 02C70            ' 1 = ONES DESCRIMINATION - DATA'
     7140                                     TEXTCS   ;
     7141         01 02C78            ' 2 = ZERO DESCRIMINATION - DATA'
     7142                                     TEXTCS   ;
     7143         01 02C80            ' 3 = FAST DELTA WEAK ONES - DATA'
     7144                                     TEXTCS   ;
     7145         01 02C89            ' 4 = FAST DELTA STRONG ZEROS - DATA'
     7146                                     TEXTCS   ;
     7147         01 02C92            ' 5 = MAXIMUM DELTA WEAK ONES - DATA'
     7148                                     TEXTCS   ;
     7149         01 02C9B            ' 6 = MAXIMUM DELTA STRONGEST ZEROS - DATA'
     7150                                     TEXTCS   ;
     7151         01 02CA6            ' 7 = ONES DISCRIMINATION - PARITY'
     7152                                     TEXTCS   ;
     7153         01 02CAF            ' 8 = ZERO DISCRIMINATION - PARITY'
     7154                                     TEXTCS   ;
     7155         01 02CB8            ' 9 = FAST DELTA WEAK ONES - PARITY'
     7156                                     TEXTCS   ;
     7157         01 02CC1            ' A = FAST DELTA STRONGEST ZEROS - PARITY'
     7158                                     TEXTCS   ;
     7159         01 02CCC            ' B = MAXIMUM DELTA WEAKEST ONES - PARITY'
     7160                                     TEXTCS   ;
     7161         01 02CD7            ' C = MAXIMUM DELTA STRONGEST ZEROS - PARITY'
     7162                                     TEXTCS   ;
     7163         01 02CE2            ' D = EARLY PEAKING CORES'
     7164         01 02CE9                    TEXTCS   ' '
     7165                                     TEXTCS   ;
     7166         01 02CEA            ' BIT-SLCT = BITS (WORD GIVEN IN HEX) TO BE TESTED'
     7167                                     TEXTCS   ;
     7168         01 02CF7            '       0 = BIT POSITION NOT TESTED'
     7169                                     TEXTCS   ;
     7170         01 02D00            '       1 = BIT POSITION TESTED'
     7171         01 02D08                    TEXTCS   ' '
     7172                                     TEXTCS   ;
     7173         01 02D09            ' ITRTN#  =  NUMBER OF ITERATIONS FOR MAGNETIC TEST #13'
     7174                                     TEXTCS   ;
     7175         01 02D17            '            AND LOGIC TEST E'
     7176         01 02D1F           STSEXPL  TEXTCS   ' '
     7177         01 02D20            TEXTCS '(17) ERROR STATUS :'
     7178         01 02D25            TEXTCS '     --------------'
     7179         01 02D2A            TEXTCS '     ERROR STATUS INFORMATION IS DISPLAYED IN THE '
     7180         01 02D37            TEXTCS '     FOLLOWING FORMAT:'
     7181         01 02D3D            TEXTCS '  '
     7182         01 02D3E            TEXTCS ' ERROR IN LOG/MAG TEST A'
     7183         01 02D45            TEXTCS ' RECEIVED EXPECTED XC SWITCHES             FAULTS'
     7184         01 02D52            TEXTCS '   DATA     DATA   YV YC YV A YV XC XV   012345678SL'
     7185         01 02D60            TEXTCS ' 00000000 00000000 0  000 0 0 0 000 0000 00000000000'
     7186         01 02D6E            TEXTCS '  '
     7187         01 02D6F            TEXTCS '    STAT  TEST     CM'
     7188         01 02D75            TEXTCS '    ADDR  ADDR  01 23 4'
     7189         01 02D7B            TEXTCS '    00000 00000 N  N  N'
     7190         01 02D81            TEXTCS '  '
     7191                                     TEXTCS            ;
     7192         01 02D82            '*  FAULT-TYPE  ( 1 IN A BIT POSITION INDICATES AN ERROR)'
     7193                                     TEXTCS            ;
     7194         01 02D91            '     BIT- 0 =  ZERO (CORE), CORRECTED DATA (MOS)'
     7195                                     TEXTCS            ;
     7196         01 02D9E            '     BIT- 1 =  UNCORRECTABLE PARITY ERROR ON READ'
     7197                                     TEXTCS            ;
     7198         01 02DAB            '     BIT- 2 =  UNCORRECTABLE PARITY ERROR ON WRITE PARTIAL'
     7199                                     TEXTCS            ;
     7200         01 02DBA            '     BIT- 3 =  ADDRESS PARITY'
     7201                                     TEXTCS            ;
     7202         01 02DC2            '     BIT- 4 =  DATA IN ERROR'
     7203                                     TEXTCS            ;
     7204         01 02DCA            '     BIT- 5 =  LOOP CHECK ERROR'
     7205                                     TEXTCS            ;
     7206         01 02DD2            '     BIT- 6 =  PORT SELECTION ERROR'
     7207                                     TEXTCS            ;
     7208         01 02DDB            '     BIT- 7 =  BMU TEMPERATURE OR VOLTAGE FAILURE'
     7209                                     TEXTCS            ;
     7210         01 02DE8            '     BIT- 8 =  LMS WITH UNDEFINED CONDITION CODE'
     7211         01 02DF5                    TEXTCS            ' '
     7212                                     TEXTCS            ;
     7213         01 02DF6            '*   S   =  SUBSEQUENT FAULT'
     7214                                     TEXTCS            ;
     7215         01 02DFD            '*   L   =  LAST PARITY WRITTEN'
     7216         01 02E05            TEXTCS '  '
     7217         01 02E06            TEXTCS '*STAT ADR = STARTING ADDRESS OF SAVE LOCATIONS'
     7218         01 02E12            TEXTCS '            FOR STATUS WORDS 0, 1, AND 2'
     7219         01 02E1D            TEXTCS '  '
     7220         01 02E1E            TEXTCS '*TEST ADR = ADDRESS CURRENTLY BEING TESTED'
     7221         01 02E29                    TEXTCS   ' '

     7223   01 02E2A    6A6010BA     READSTAT BAL,LINK STATMSG           PRINT TEST STATUS
     7224   01 02E2B    E80003CB              B        *#RETURN%         RETURN TO POINT OF INTERRUPT

     7226         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)
     7227         00000004           E        COM,8,8,16  AF(1),AF(2),AF(3)
     7228                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),;
     7229         00000004                             AF(7),AF(8),AF(9),AF(10),AF(11)
     7230         00000004           P        COM,8,2,6,16 AF(1),AF(2),AF(3),AF(4)

     7232                            **********************
     7233                            *        TABLE 3
     7234                            **********************
     7235                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     7236                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     7237                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     7238                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     7239                            *
     7240                            *        WORD 1 = DIRECTIVE POINTER
     7241                            * FORMAT  ***********
     7242                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     7243                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     7244                            *            AF(3)   BYTE 2 = SECOND CHAR.
     7245                            *            AF(4)   BYTE 3 = THIRD CHAR.
     7246                            *
     7247                            *
     7248                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     7249                            * FORMAT  ***********
     7250                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     7251                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     7252                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     7253                            *                                       DIRECTIVE ROUTINE
     7254                            *
     7255                            *        WORD 3 = CONTROL WORD
     7256                            * FORMAT  ***********
     7257                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     7258                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     7259                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     7260                            *             AF(4)   BITS 8-12= NOT USED
     7261                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     7262                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     7263                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     7264                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     7265                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     7266                            *                    OR INDEX PARAM #1 (MODE 6)
     7267                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     7268                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     7269                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     7270                            *
     7271                            *                 MODE:  0= UNCONDITIONAL (&)
     7272                            *                        1= IMMEDIATE     (DM)
     7273                            *                        2= PARAMETER LINE (S)
     7274                            *                        6= INDEXED PARAMETER LINE
     7275                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     7276                            *                            0 = HEX, 1 = BIN, AND
     7277                            *                            4-7 = DESIGNER DEFINED
     7278                            *
     7279                            *         WORD 4 = EXPLANATION POINTER
     7280                            * FORMAT  ***********
     7281                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     7282                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     7283                            *                             = 1 IF TEXT IS COMPRESSED
     7284                            *                             = 2,3   ** NOT ALLOWED **
     7285                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     7286                            *                   TO CHARACTER #1 (REQUEST)
     7287                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.

     7289         01 02E2C           TABLE3   EQU      %

     7291   01 02E2C    017C0000 A            H        1,'@'
     7292   01 02E2D    00000000 A            E        0
     7293   01 02E2E    00000000 A            L        0
     7294   01 02E2F    C8009F78 A            P        200,,,ABSVAL(BA(SYNTAX%EXPL))
     7295                            *
     7296   01 02E30    01500000 A            H        1,'&'
     7297   01 02E31    00002E2A A            E        ,,ABSVAL(READSTAT)
     7298   01 02E32    00000000 A            L        0
     7299   01 02E33    0300A54C A   AMPER%EXPL P      3,,,ABSVAL(BA(AND%EXPL))
     7300                            *
     7301   01 02E34    02C4D400 A            H        2,'D','M'
     7302   01 02E35    00000000 A            E        0
     7303   01 02E36    00000000 A            L        0
     7304   01 02E37    0200A308 A            P        2,,0,ABSVAL(BA(DM%EXPL))
     7305                            *
     7306   01 02E38    02D9D400 A            H        2,'R','M'
     7307   01 02E39    00000000 A            E        0
     7308   01 02E3A    00000000 A            L        0
     7309   01 02E3B    0300A350 A            P        3,,0,ABSVAL(BA(RM%EXPL))
     7310                            *
     7311   01 02E3C    02C4E200 A            H        2,'D','S'
     7312   01 02E3D    00001125 A            E        ,,ABSVAL(PR%DS)
     7313   01 02E3E    22000000 A            L        1,,2
     7314   01 02E3F    1700A58C A            P        23,,0,ABSVAL(BA(DS%EXPL))
     7315                            *
     7316   01 02E40    03C7C1D7 A            H        3,'G','A','P'
     7317   01 02E41    00001156 A            E        ,,ABSVAL(PR%G)
     7318   01 02E42    40000008 A            L        2,,,,,,0,,0,1,0
     7319   01 02E43    0800A868 A            P        8,,0,ABSVAL(BA(G%EXPL))
     7320                            *
     7321                            *
     7322   01 02E44    01D10000 A            H        1,'J'
     7323   01 02E45    000011AA A            E        ,,ABSVAL(PR%J)
     7324   01 02E46    40000000 A            L        2
     7325   01 02E47    1A00A96C A            P        26,,,ABSVAL(BA(J%EXPL))
     7326                            *
     7327   01 02E48    02D3C900 A            H        2,'L','I'
     7328   01 02E49    0000123B A            E        ,,ABSVAL(PR%L)
     7329   01 02E4A    40000000 A            L        2
     7330   01 02E4B    0A00ACBC A            P        10,,0,ABSVAL(BA(L%EXPL))
     7331                            *
     7332   01 02E4C    01D70000 A            H        1,'P'
     7333   01 02E4D    00001262 A            E        ,,ABSVAL(PR%P)
     7334   01 02E4E    40000000 A            L        2
     7335   01 02E4F    0800AE28 A            P        8,,,ABSVAL(BA(P%EXPL))
     7336                            *
     7337   01 02E50    01E30000 A            H        1,'T'
     7338   01 02E51    0000127E A            E        ,,ABSVAL(PR%T)
     7339   01 02E52    48000008 A            L        2,1,,,,,0,,0,1,0
     7340   01 02E53    2F00AEDC A            P        47,,,ABSVAL(BA(T%EXPL))

     7342   01 02E54    FF000000 A   TABLE3END DATA  X'FF000000'
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   27
A    7344   01 02E55    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     7345   01 02E56    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     7346   01 02E57    EA6003C8              BAL,X6   *#GUIDE%
     7347   01 02E58    01209504 A            GEN,8,2,1,1,4,16 1,,1,,,ABSVAL(BA(MSG1))
     7348   01 02E59    00000000 A            DATA     0

     7350         01 02E56           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 02E5A   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   19:57 JUN 20,'83    TELEFILE MEMORY DIAGNOSTIC 960-0400-H02                               PAGE   28
A  ABCDEFAB        3139-DATA    4389/LW      4444/LW
   ABSINT           799/LI       800/STW     3223-EQU
   ABSINTEND        799/LI      3260-RES
   ADDBLOK         4786-LW      4798/BCR
   ADFETCH         4077/B       4086-BAL     4098/B
   ADJAC           6536-SLD     6539/BIR
   ADRDONE         4601/B       4609/B       4633-MTW
   ADRECFLG        1443/MTW     3245-DATA    3753/STW     6079/MTW     6086/MTW
   ADREXIT         4408/B       4454-LC
   ADRFLG          3124-DATA    3715/STW     4071/STW     4113/STW     5913/MTW
   ADRLDONE        4404-RES
   ADRLEND         1459/B       1641/B       4401/BCR     4435-LC
   ADRLEROR        4441/BCR     4461-WD
   ADRLTST         3838/BEZ     4123/BCR     4155/B       4312/B       4317/B       4379-MTW
   ADRLUP          4088-BAL     4110/BCS
   ADRPERR         6038-LI      6136/BCS
   ADRST           4384-BAL     4455/BCS     4471/BCS
   ADRSTOR         4076-BAL     4083/B
   ADRSTRT         4070-LI      4101/BCS     4111/BCS
   ADRTERR         4095/BCS     4105-LW
   ADRTST          3935/BCR     4055/B       4065-MTW
   ALLCMOK         3662/BCR     3666/BCS     3674/B       3703-RES
   ALLTST3         6157/BCR     6190-MTW
   ALLTST4         6260/BCR     6294-#PRINT
   ALLTST5         6367/BCR     6377/B       6397-BAL
   ALL0S           2935/LW      4966/LW      4980/CS      5000/LW      5031/LW      5079/LW      5096/LW
      5119/CS      5143/LW      5238/LW      5254/LW      5296/CS      5721/LW      5839-DATA
   ALL1S           2942/LW      4927/LW      4941/CS      5008/LW      5024/LW      5046/CS      5071/LW
      5103/LW      5150/LW      5165/LW      5207/CS      5231/LW      5838-DATA
   AMPER%EXPL      7299-P
   AMPTEMPS         930/STM     1002/LM      3117-RES
   ANALYZE         6015/BCS     6028-LI
   AND%EXPL        6960-TEXTCS  7299/P
   ANLZ0           3142/DATA    6073-MTW
   ANLZ1           3143/DATA    6095-BAL
   ANLZ10          3152/DATA    6640-LI
   ANLZ2           3144/DATA    6131-BAL
   ANLZ3           3145/DATA    6146-LI
   ANLZ4           3146/DATA    6214-LI
   ANLZ5           3147/DATA    6309-LI
   ANLZ6           3148/DATA    6406-BAL
   ANLZ7           3149/DATA    6479-LI
   ANLZ8           3150/DATA    6548-LI
   ANLZ9           3151/DATA    6599-LI
   ANYBIT          2650/BCS     2652/BCR     2654-AI
   AREA            3785-BAL     3797/B
   B:INSTR         3140-B       4405/LW
   B:M1X5          3136-B       4422/LW
   BAD:BYTE        2552-STW     6112/BAL     6427/BAL     6576/BAL     6651/BAL
   BAD:HB          2521-LW      6368/BAL
   BAD:HW          2582-STW     6118/BAL     6165/BAL     6271/BAL     6397/BAL     6531/BAL     6620/BAL
   BADBIT          2505/STW     2511-DATA
   BADBSET         2497/B       2499/BCS     2501-BIR
   BADCOR          6626/BCR     6628-#PRINT
   BADDATA         2648/STW     2680-DATA    5941/LW
   BADSEN          6494-MTW     6518/B
   BADXCS          6359/BCR     6364-LW
   BADYVPR         6191/BCS     6194-#PRINT
   BANKSIZE        1707/STW     1898/LW      1929/LW      2135-RES
   BIR             5729/LW      5849-BIR
   BITEXAM         6291/B       6613-LW      6679/B       6690/B       6739/B
   BITMASK          856/STW     1349/STW     4930/LW      4969/LW      5045/LW      5118/LW      5206/LW
      5295/LW      5830-DATA
   BITONLY         1773/BAL     1774/BAL     1778/BAL     1779/BAL     1782/BAL     1811-LI
   BITS38          6757-LI      6777/B
   BIT32BAD        4353/B       4366-EQU
   BKSIZE          1655/AW      1710/STW     2912/AW      2918/AW      3236-DATA    3379/STW     3401/AW
      3534/AW
   BLANKS           932/LW      1907/LW      1952/LW      2059/LW      2097/LW      2098/LW      2210/CW
      2220/CW      2383/LW      2384/LW      3091-DATA    4163/LW      4164/LW      4302/LW      4303/LW
      4465/LW      4864/LW      4865/LW      5745/LW
   BLKBIT          1771/BAL     1772/BAL     1776/BAL     1780/BAL     1808-LI
   BNDKFLG         2971/STW     2977/MTW     5827-DATA    6032/MTW
   BNR0            1845/BEZ     1856-SLD
   BNR1            1854/B       1861-STH
   BSBEG           1901/LI      2113-DATA
   BSEND           1901/LI      1902/CW      2121-DATA
   BSNAM           1906/LW      2131-DATA    2151/EQU     2152/EQU     2153/EQU
   BSTARS          2072/LW      3220-DATA
   BTA             3820-LW      4176/CW
   BTE             1757/BAL     2344-LCI
   BTEBUFF         1761/LB      2354/STW     2362-RES     2364/STW
   BTEINSTR        2346/LW      2364-STW
   BTESTR          2347/STW     2354-STW
   BTETEMPS        2345/STM     2358/LM      2363-RES
   BTOG            4425-LW      4470/BCS
   BT1             4931-LI      4944/B
   BT10            5508/BIR     5516-LI      5531/B
   BT11            5602-LI      5615/B
   BT12            5683-LI      5697/B
   BT13            5736-LCW     5742/BCS     5748/B
   BT2             4970-LI      4983/B
   BT3             5027/BIR     5035-LI      5049/B
   BT4             5099/BIR     5107-LI      5122/B
   BT5             5196-LI      5210/B
   BT6             5285-LI      5299/B
   BT7             5329-LI      5344/B
   BT8             5373-LI      5387/B
   BT9             5435/BIR     5443-LI      5458/B
   BUF             1020/STW     1022/STW     1024/STH     1027/#PRINTD 2634/STM     2664/SW      2667/STW
      2669/LM      2673/LW      2676/STW     6885-RES
   BYTEFAIL        6101/BCS     6108-CI
   BYTERR          4330/B       4338/B       4347/B       4354/B       4362-EQU
   BYTE0           2557/BCR     2569-LW
   BYTE1           2560/BCR     2568-AI
   BYTE2           2562/BCR     2567-AI
   BYTE3           2564/BCR     2566-AI
   CA               480/SET      547/SET      603-EQU
   CATALOG            2-EQU        4/EQU
   CB               480/SET      547/SET      604-EQU
   CC               480/SET      547/SET      605-EQU
   CD               480/SET      547/SET      606-EQU
   CDMLOC          6602-BIR     6610/BCS     6612/BCS
   CE               480/SET      547/SET      607-EQU
   CHEKPBIT        4197/BCR     4260-BAL
   CHKBIT2         6352/B       6354-RES     6372/B       6389/BCR     6393/B
   CHKBYT3         4334/B       4349-MTW
   CHKCM01         3013-LW      3026/BIR
   CHKCM23         3028-LW      3041/BIR
   CHKCM4          3043-LW      3056/BIR
   CHKHW0          4326/B       4344-BAL
   CHKINH          6564/BCS     6567/BCS     6585-CW
   CHKMAPJP        1138/STW     1141/LPSD    3161-DATA
   CHKXCFLG        6337-MTW     6376/BCS
   CHTITL          2063/BEZ     2070/BEZ     2075-EQU
   CICOUNT          911/STW     1161/STW     1243-DATA    3661/MTW     3665/CW
   CMCHKS          2090/BAL     3006-LCI
   CMERR           1154/B       1168/BCS     1174/BCS     1186/BCS     1194/BCS     1222-MTW
   CMFIN           2170/B       2177/BCS     2179-LCI
   CMFXD           3679/BCS     3685-BIR
   CMREGS          3007/STM     3058/LM      3119-RES
   CMRGIN          1674/STW     2016/LW      3229-DATA
   CMRTRN          3010/BCR     3057-LCI
   CMSAVE          2158/STM     2180/LM      2183-RES
   CMVAL           1167/CLM     1173/CLM     1185/CLM     3303-DATA
   CM01            3013/LW      3290-DATA
   CM01F           2021/BCS     2023/B       2025/B       2026-LI
   CM01S           2020/BCR     2024-LI
   CM1              894/STW      971/LW      1170/STW     1235-DATA    1787/LW      2161/LW      3478/STW
      3670/LW      3677/LW      3684/STW     3693/LW
   CM2              892/STW     1176/STW     1236-DATA    3479/STW
   CM23            3028/LW      3294-DATA
   CM23F           2033/BCS     2035/B       2037/B       2038-LI
   CM23S           2032/BCR     2036-LI
   CM3              895/STW     1188/STW     1237-DATA    3480/STW     3686/LW      3689/MTW
   CM4             3043/LW      3297-DATA
   CM4N            2045/BCR     2048-LI
   CNT:BITS        1871/BAL     2483-STD     6099/BAL     6131/BAL     6155/BAL     6255/BAL     6328/BAL
      6365/BAL     6374/BAL     6383/BAL     6420/BAL     6510/BAL     6554/BAL     6565/BAL     6614/BAL
   COMTEMR         6037/STM     6047/LM      6059/STM     6065-RES
   COMUTOR         6041/BCS     6046-LCI     6067/EQU     6069/B       6075/B       6133/BCS     6603/B
      6616/BCS     6701/BCS     6763/B       6775/B
   CONFLG          1478/MTW     1589/MTW     3246-DATA    4697/STW     4823/MTW     4850/MTW
   CONFLICT        4824/BCS     4850-MTW
   CONFRT          1481/LPSD    1594/LPSD    3165-DATA
   CONTFLG         2840/MTW     3210-DATA
   CONTRP40        1449/BCS     1478-MTW
   CONTST          1448/MTW     1490/MTW     1587/MTW     3241-RES     4692/STW     4883/STW
   CON40           1444/BCR     1448-MTW
   CPASS#           898/STW     3664/LW      3668/STW     3704/MTW     3870-DATA
   CPUPE           1519/BCS     1526-LI
   CTRTST1         4216-CI      4262/B
   CTRTST2         4217/BCS     4237-CI
   CTRTST3         4238/BCS     4241-CI
   CTRTST4         4249/BCS     4255-CI
   CTRTST5         4256/BCS     4264-CI
   CTRTST6         4265/BCS     4273-CI
   CYCLE           3568/BCS     3653-LW      5814/BCR     5818/BCS     5823/B
   C0               506/GEN      570/GEN      593-EQU
   C1               480/SET      547/SET      594-EQU     1027/#PRINTD
   C2               480/SET      547/SET      595-EQU     5820/#PRINT
   C3               480/SET      547/SET      596-EQU
   C4               480/SET      547/SET      597-EQU
   C5               480/SET      547/SET      598-EQU
   C6               480/SET      547/SET      599-EQU
   C7               480/SET      547/SET      600-EQU
   C8               480/SET      547/SET      601-EQU
   C9               480/SET      547/SET      602-EQU
   DATABAD         4180-LC      4193/BCS
   DATAFLG         3256-DATA    3734/STW     3837/MTW     3906/MTW     3923/STW     4128/STW
   DATAMFI         1570/BCR     1573-RES
   DATAOK          3878/B       3906-MTW
   DATAPW          3738-STW     3915/B
   DATAST          3736-LI      3836/BCS     3919/BCS
   DATATST         3719/B       3725-MTW
   DBLRET          2325/STW     2329/MTW     2330/B*      2332/BCR*    2333/MTW     2334/B*      2336-DATA
   DCA              688-ORG
   DEFLMS          4029/BCR     4031-LW
   DIOADR           906/STW     1302/STW     4728/LW      4845-DATA
   DIODTAG         6290/MTW     6600/STW     6625/MTW     6633-DATA    6645/STW
   DISABLE         2883-STW     4919/BAL     4958/BAL     4997/BAL     5068/BAL     5140/BAL     5228/BAL
   DISTB0          5169/BIR     5182-AI
   DISTB1          5258/BIR     5271-AI
   DISTB2          5574/BIR     5587-AI
   DISTB3          5658/BIR     5670-AI
   DM%EXPL         6929-TEXTCS  7304/P
   DMSADR          1018-#HTECON 1046/BCR
   DMSBRK          1028/BCR     1031/BCS     1041/BCR     1049-LI
   DMSTATUS        1029-LW      1047/B
   DOUBLE          2246/BAL     2313/BAL     2325-STW     3488/BAL     3511/BAL     3517/BAL
   DS%EXPL         6965-TEXTCS  7314/P
   DSFLAG          1034/STW     1038/STW     2087/MTW     3258-DATA
   DUMPEND         5945/BCR     5952/B       5969/BCR     5980/BCR     5983/B       5986/BCS     5988-LW
   E               7227-COM
   EBCDIC           804/BAL      808/BAL      831/BAL      839/BAL      937/BAL     1259/BAL     1734/BAL
      1744/BAL     1832/BAL     1877/BAL     1936/BAL     2054/BAL     2212/BAL     2222/BAL     2273/BAL
      2281/BAL     2291/BAL     2304/BAL     2412-LCI     3419/BAL     3440/BAL     3496/BAL     3502/BAL
      3697/BAL     5923/BAL     5934/BAL     5942/BAL     5962/BAL     5972/BAL     5977/BAL
   EBTEMPS         2380/STM     2403/LM      2413/STM     2431/STD     2433/LM      2438-RES
   ENABEX          2908/B       2921-LI
   ENABLE          2905-STW     5319/BAL     5363/BAL     5405/BAL     5479/BAL     5552/BAL     5638/BAL
      5720/BAL
   ENDADDR         7350-END
   ENLOOP          2907-BAL     2913/B       2919/B
   ERRCNT          3123-DATA    3752/STW     4186/MTW     6068/MTW     6700/MTW
   ERRORR          3832/BAL     4638/BAL     5892-LCI
   ERRSTEX         2239/BCR     2250-#PRINT
   ERRTST          1826/STW     2238/CW      2240/STW     2257-DATA    2310/STW     3660/STW
   ERRTST3         6150/BCR     6155-BAL
   ERRTST4         6218/BCR     6224-LI
   ERRTST5         6314/BCR     6322/BCR     6356-AI
   ERSTREG         2208/STM     2254/LM      2258-RES
   ERSTS           2099/BAL     2205-LC      4007/BAL     4032/BAL     4106/BAL     4165/BAL     4304/BAL
      4466/BAL     4552/BAL     4866/BAL     5869/BAL     5901/BAL
   EXAMALL         6522/B       6551-LI
   EXAMRET         6529-LW      6588/BCS
   EXITPERR        4299/BCS     4305-RES     4362/EQU     4363/EQU     4364/EQU     4365/EQU     4366/EQU
   EXITPTST        4136-LW      4224/BCS     4229/BCS     4234/B
   EXITST          6067-EQU     6081/B       6097/BCS     6111/BCS     6113/BCS     6119/BCS     6153/B
      6161/BCS     6178/B       6223/B       6266/B       6330/BCR     6338/BCS     6355/B       6385/BCS
      6392/BCS     6422/BCR     6439/B       6465/BCS     6470/BCS     6487/BCS     6505/B       6512/BCR
      6517/BCS     6543/B       6553/BCR     6559/BCS     6572/BCS     6575/BCS     6577/BCS     6590/BCS
      6675/BCR
   EXITSTR         6068-MTW     6087/B       6105/B       6116/B       6122/B       6138/B       6182/BCR
      6193/B       6195/B       6296/BCR     6401/B       6430/B       6433/B       6449/B       6459/B
      6472/B       6490/B       6497/B       6499/B       6569/B       6579/B       6592/B       6630/B
   EXITSWP         4291/B       4314-BAL
   EXPAT           3114-DATA    3778/STB     3781/STW     3831/XW      3833/XW
   EXPFLG          1532/MTW     3211-DATA    3589/STW     3593/MTW     3609/STW     3620/MTW     3716/STW
      3810/STW     3825/MTW     3858/MTW     3884/MTW     4526/STW     4533/MTW     4932/STW     4940/MTW
      4971/STW     4979/MTW     5036/STW     5044/MTW     5108/STW     5116/MTW     5197/STW     5205/MTW
      5286/STW     5294/MTW     5330/STW     5338/MTW     5374/STW     5382/MTW     5444/STW     5452/MTW
      5517/STW     5525/MTW     5603/STW     5611/MTW     5684/STW     5692/MTW
   EXPTBLK         2221/BCR     2229-LW
   FA              3873-EQU     4212/LW      5919/LW      5988/LW      6035/STW     6343/LW      6348/LW
      6364/LW      6419/LW      6445/LW      6455/LW      6468/LW      6515/LW      6613/LW      6746/AND
   FA:GRUP         2633-LCI     5927/BAL     6095/BAL     6134/BAL     6148/BAL     6216/BAL     6232/BAL
      6312/BAL     6340/BAL     6357/BAL     6406/BAL     6463/BAL     6481/BAL     6507/BAL     6557/BAL
      6573/BAL     6647/BAL
   FAIL            3359-TEXT    5938/LW
   FANDONE         6760/BCS     6778-MTW
   FASAVE          3872-RES     3873/EQU     5893/STM     5998/LM
   FAST             975/BCS      977/B        979/B        980-LI
   FA15            2606/STW     2625/B*      2670/STW     2681-DATA    2691/STW     2698/MTW     2702/BCR*
      2703/MTW     2705/B*      2883/STW     2893/B*      2898/B*      2905/STW     2926/B*      2930/STW
      2933/B*      2940/B*      2951/STW     2954/B*
   FETCH           3808-BAL     3835/BCS     6008/BCS
   FETCHADR        4613/BCS     4619-LCI
   FETCHEND        4628-LC      4634/BCS
   FF0S            2556/CW      3096-DATA
   FGRP            2671/STW     2682-DATA    5956/CW      6320/LW      6324/LW      6333/LW
   FINE0           5208/BCR     5214-WD
   FINE1           5297/BCR     5303-WD
   FINE2           5613/BCR     5620-WD
   FINE3           5695/BCR     5702-WD
   FS0S            2588/AND     3095-DATA
   FULL            3786/B       3801-LW
   FULWER          5996/BCR     6006-RES
   FULWRT          3893/BEZ     3903-AI
   F0               480/SET      547/SET      609-EQU
   F1               480/SET      547/SET      610-EQU
   G%EXPL          7001-TEXTCS  7319/P
   GAPCHK          3476/BCS     3490-MTW
   GAPEXIT         1103/BCR     1120-RES
   GAPFLG           896/STW     1069/MTW     1085/MTW     1104/MTW     2849/MTW     3209-DATA    3380/STW
      3404/MTW     3490/MTW     3492/LCW
   GAPLP           3495-LW      3509/BIR
   GAPS            3390-BAL     3405/BIR
   GENRADR         4596-BAL     4600/BIR     4608/BIR     4615/BIR     4627/BIR
   GENRNDM         4523-BAL     4559/BCS
   GETCM            971-LW       983/BIR
   GETCOMP         3769/EXU     3881-LCW
   GETLL           4753/BCR     4768-LW
   GETPAT          3773/EXU     3880-LW
   GOOD0           5047/BCR     5053-WD
   GOOD1           5120/BCR     5125-WD
   GOOD2           5456/BCR     5462-WD
   GOOD3           5529/BCR     5535-WD
   GRDXPNCK        6336/B       6374-BAL
   GSKIP           1650/BAL     2849-MTW     2892/BAL     2907/BAL
   GUIDE           7345-STW     7350/END
   GUIDRET          733/STW     3192-DATA    3530/BAL*
   G2CHK           1068/BCR     1081-RES
   G3CHK           1084/BCR     1100-RES
   H               7226-COM
   HBBBD5          2013/LW      3208-DATA
   HBBC1C2         2011/LW      3207-DATA
   HBBF0F0         1859/OR      1892/LW      3202-DATA    3498/OR      3504/OR
   HBB8B           1971/LW      2151-EQU
   HB16B           1977/LW      2152-EQU
   HB32B           1980/LW      2153-EQU
   HB5C             810/LW      3205-DATA
   HCORE           1990/LW      3200-DATA
   HC0             2424/OR      3321-DATA
   HC00000         3019/AND     3020/AND     3327-DATA
   HC0000000       3343-DATA    4745/LW
   HF               972/AND     1044/AND     1320/AND     1328/AND     1338/AND     1788/AND     3308-DATA
      6617/AND
   HFF              832/AND      840/AND     3340-DATA    4732/AND
   HFFE000         3335-DATA    4452/AND
   HFFFC0000       1753/AND     3203-DATA
   HFFFF           2586/AND     3341-DATA    3497/AND     3503/AND
   HFFFFF          1733/AND     1743/AND     3204-DATA
   HFFFF0000       3344-DATA    6167/OR
   HFFF000         3338-DATA    3409/AND
   HFFF003         3333-DATA    3545/AND     3551/AND
   HFFF40000       3339-DATA    4296/AND
   HFF0000         2558/CW      3318-DATA
   HFF100000       1667/AND     3317-DATA
   HF0             1226/OR      1813/OR      2352/OR      2390/OR      2395/OR      2426/OR      2746/OR
      3348-DATA    3863/OR
   HF0000000        751/AND      752/EOR      760/AND     3221-DATA
   HILIM           1072/CW      1088/CW      1107/CW      1265/STW     1268/CW      2176/CW      2610/CW
      2638/CW      2871/CW      2972/LW      2979/LW      2986/LW      2995/LW      3127-DATA    3413/STW
      3706/LW      4586/LCW     4904/LW      5985/CW
   HMOS            1995/LW      3199-DATA
   HOFBIT          2066/AND     3219-DATA
   HOFCHK          3514/BEZ     3520-MTW
   HOFSYS          2067/STS     3232-DATA    3520/MTW
   HOFWMSG         3523/#PRINT  6848-TEXTCS
   HTBB0           2236/OR      2241/OR      2300/OR      3082/OR      3206-DATA
   HWERR           4341/BCR     4364-EQU
   HWFAIL          6109/BCR     6118-BAL
   HW0             2587/BCR     2592-LI
   HW0ERR          4350/BCS     4365-EQU
   HW0FLG          3134-DATA    4323/STW     4340/MTW     4349/MTW     4357/STW
   HW0OK           4346/B       4356-LI
   HW1             2589/BCR     2591-AI
   HW1CHK          4332-BAL     4358/B
   H01000000       3316-DATA    3322/EQU
   H02000000       3315-DATA    4859/AND
   H1DFFF          2796/CW      3307-DATA
   H1E000           827/AND     2817/LW      2828/OR      3324-DATA    3325/EQU
   H1FFF           1257/OR      1867/AND     2809/AW      2827/AND     2973/AND     2974/CW      2980/OR
      2982/AND     3306-DATA    6096/CW
   H1FFFF          1011/AND     1418/AND     1613/AND     3414/CW      3537/CW      3554/CW      4173/AND
      5831-DATA    5832/EQU
   H1HI            1080/STW     1090/CW      2854/CW      2856/LW      3283-DATA    3399/STW     3400/MTW
      3501/LW
   H1LO             870/STW     1074/STW     1078/CW      2852/CW      3280-DATA    3393/STW     3495/LW
   H100            3342-DATA    4725/AND
   H1000000        2781/OR      2820/OR      3322-EQU     4737/LW
   H1800           5172/CW      5261/CW      5577/CW      5661/CW      5833-DATA
   H2HI            1098/STW     1109/CW      2860/CW      2862/LW      3284-DATA
   H2LO            1092/STW     1096/CW      2858/CW      3281-DATA
   H200            5179/AW      5181/SW      5584/AW      5586/SW      5835-DATA
   H200000          762/AND     3345-DATA
   H20002          2783/AW      2822/AW      3323-DATA
   H3              2162/AND     2534/AND     3347-DATA
   H3E000          1673/AND     3326-DATA
   H3FFF            838/OR      1768/AND     3337-DATA
   H3FF800         3346-DATA    6702/LW
   H3HI            1118/STW     2866/CW      2868/LW      3285-DATA
   H3LO            1111/STW     1116/CW      2864/CW      3282-DATA
   H300000         3034/AND     3035/AND     3328-DATA
   H400            5268/AW      5270/SW      5667/AW      5669/SW      5834-DATA
   H4000           3334-DATA    4709/OR
   H400000         1198/LW      2737/LW      3314-DATA    3539/LW      3556/LW
   H4040            813/OR      3331-DATA
   H4040FFFF       3330-DATA    3420/AND     5924/AND     5935/AND     5963/AND     5973/AND
   H4040F2E6       1895/LW      3320-DATA
   H4040F4E6       1889/LW      3319-DATA
   H40405C00        833/OR       841/OR      3332-DATA
   H7FE000         1071/AND     1087/AND     1106/AND     2806/AND     2987/AND     2990/AND     3311-DATA
      6745/LW
   H7FF            3336-DATA    3757/AND
   H7FFC0000        858/AND     1345/AND     3309-DATA
   H7FF000         3312-DATA    3392/AND     3398/AND
   H80000          3049/AND     3050/AND     3329-DATA
   H800000          786/AND     3218-DATA
   IERTRN          1412/B       1423-MTW
   IETRAP          1403-STCF    3179/DATA
   INHFLAG         6480/STW     6525-DATA    6542/MTW
   INHSYM          6538/BCR     6542-MTW
   INITDONE        3369/BNEZ    3521/BEZ     3525-WD
   INITIAL          692/DATA     732-EQU
   INSTPT          4909/LW      5776/CW      5851-B
   INTACFLG        1596/MTW     3122-DATA    3578/STW     3627/MTW     3635/MTW     3644/STW     3945/STW
      3991/MTW     4028/MTW     4034/STW     4052/STW
   INTINSTR        4175-LW      4179/BIR
   INTLCHK         3491/BCR     3513-MTW
   INTLOG          1525/BCS     1554-LCI
   INTLOK           850/BNEZ     922-B
   INTRAP          1434-STCF    3181/DATA
   INTRL#          1677/STW     1880/LW      3237-DATA    6030/MTW
   INTRLSYS        1881/STS     3231-DATA    3513/MTW
   INTRPFLG         796/STW     1524/MTW     1569/MTW     1606/MTW     3121-DATA    3573/STW     3646/STW
      3714/STW     3940/STW     4053/STW     4907/STW
   INTSPTR          957/LW      4911/LW      5850-DATA
   INVIR           1211/LPSD    1213-DATA
   INVIRET         1213/DATA    1215-LI
   IOPMSADR         908/STW     1294/LW      1296/STW     2190/HIO*    4708/LW      4724/LW      4731/LW
      4757/RIO*    4807/HIO*    4811/SIO*    4844-DATA
   ITRATE#          879/STW     1351/STW     4428/LCW     5736/LCW     5836-DATA
   J%EXPL          7016-TEXTCS  7325/P
   JRTRN           1137/STD     1218/DATA    3173-DATA
   K               4654/AW      4667-DATA
   L               7228-COM
   L%EXPL          7061-TEXTCS  7330/P
   LASTEST         3153-RES     6028/LI
   LASTPAT         3875-LI      3890/BEZ
   LEXIT           4103/B       4112-LI
   LHILIM          2975/BNE     2986-LW
   LIMCHECK        2970-LI      5006/BAL     5077/BAL     5148/BAL     5236/BAL     5412/BAL     5486/BAL
      5559/BAL     5644/BAL     5726/BAL
   LIMIT           3212-DATA    3375/STW     3535/CW      3552/CW
   LIMOVER         1091/BCS     1110/BCS     1127-#TYPE
   LIM1            3409-AND     3536/BCS
   LIM2            3412-LW      3553/BCS
   LIM3            3453/BEZ   3464.1-EQU
   LIM4            3475-MTW
   LINEOK          6235/BCR     6247-XW
   LINK             713-EQU      733/STW     1003/B*      1026/BAL     1062/STW     1063/LC      1067/LW
      1070/LI      1076/LW      1077/LI      1083/LW      1086/LI      1094/LW      1095/LI      1102/LW
      1105/LI      1113/LW      1114/LI      1121/LB      1122/LB      1123/STB     1124/BDR     1147/STW
      1150/TIO*    1159/STW     1161/STW     1164/CI      1167/CLM     1169/AI      1170/STW     1173/CLM
      1175/AI      1176/STW     1179/CI      1181/AI      1182/CI      1185/CLM     1187/AI      1188/STW
      1193/CI      1201/LB      1202/LB      1203/STB     1204/BDR     1217/BAL     1233/XW      1251/STW
      1252/LC      1256/LW      1262/LW      1267/LW      1272/LB      1273/LB      1274/STB     1275/BDR
      1280/LI      1286/LI      1290/LC      1295/LW      1301/LW      1315/STW     1316/LC      1325/LI
      1327/LB      1331/STW     1332/AI      1335/LI      1337/LB      1342/AI      1349/STW     1351/STW
      1353/LB      1354/LB      1355/STB     1356/BDR     1373/BAL     1389/LW      1724/BAL     1803/BAL
      2404/B*      2414/BAL     2434/BAL     2484/BAL     2507/BAL     2605/BAL     2623/BAL     2635/BAL
      2672/BAL     2714/STW     2718/LW      3432/BAL     3530/BAL     4875/BAL     5821/BAL     7223/BAL
   LOC:OK          3828/BE      3861/BE      3883-WD
   LOWLIM          1270/STW     2168/LW      2931/LW      2952/LW      2989/LW      3126-DATA    3439/STW
      3653/LW      3705/LW      3783/LW      3801/LW      3941/LW      4075/LW      4085/LW      4391/LW
      4493/LW      4520/LW      4587/AW      4598/CLM     4768/LW      4903/LW      4923/LW      4962/LW
      5002/LW      5073/LW      5145/LW      5233/LW      5321/LW      5365/LW      5408/LW      5482/LW
      5555/LW      5641/LW      5723/LW      5783/LW
   MAGEND          5787/CW      5846-DATA
   MAP             1663/BAL     2171/BAL     2612/BAL     2640/BAL     2658/BAL     2694/BAL     2795-STW
      2894/BAL     2914/BAL     2934/BAL     2941/BAL     2955/BAL     3011/BAL     3788/BAL     3808/BAL
      3953/BAL     3976/BAL     4002/BAL     4024/BAL     4079/BAL     4088/BAL     4198/BAL     4292/BAL
      4410/BAL     4416/BAL     4427/BAL     4505/BAL     4523/BAL     4547/BAL     4611/BAL     4815/BAL
      4926/BAL     4965/BAL     5007/BAL     5023/BAL     5030/BAL     5078/BAL     5095/BAL     5102/BAL
      5152/BAL     5164/BAL     5185/BAL     5195/BAL     5240/BAL     5253/BAL     5274/BAL     5284/BAL
      5324/BAL     5368/BAL     5416/BAL     5431/BAL     5438/BAL     5490/BAL     5504/BAL     5511/BAL
      5569/BAL     5591/BAL     5601/BAL     5653/BAL     5673/BAL     5682/BAL     5728/BAL     5871/BAL
      5897/BAL     6009/BAL     6051/BAL     6078/BAL     6202/BAL     6248/BAL     6605/BAL     6653/BAL
      6706/BAL     6751/BAL
   MAPCNTRL         853/BAL     1207/BAL     2733-STW     2764/B       3417/BAL     3540/BAL     3557/BAL
   MAPFLG          1407/MTW     1410/STW     2748/MTW     2755/MTW     2774/STW     3289-DATA
   MAPHI           2773/STW     2810/STW     3131-DATA
   MAPINTL          844/BAL     1191/BAL     2771-LI      3742/BAL     3942/BAL     4072/BAL     4131/BAL
      4289/BAL     4384/BAL     4496/BAL     4585/BAL     4694/BAL     5773/BAL
   MAPJRTRN        1144-LI      3161/DATA
   MAPLO           2772/STW     2800/CLM     2807/STW     3130-DATA
   MAPRT           2776/BCS     2785-LPSD    3169/DATA
   MAPTEMP         1715/LW      2174/LW      2615/LW      2643/LW      2661/LW      2677/LW      2699/LW
      2795/STW     2804/STM     2826/LM      2831-RES     2897/LW      2917/LW      2937/LW      2944/LW
      2957/LW      3795/LW      3824/LW      3857/LW      3967/LW      3983/LW      4005/LW      4027/LW
      4081/LW      4093/LW      4191/LW      4295/LW      4412/LW      4437/LW      4508/LW      4534/LW
      4551/LW      4623/LW      4828/LW      4851/LW      4949/LW      4988/LW      5011/LW      5028/LW
      5034/MTW     5055/LW      5085/LW      5100/LW      5106/MTW     5127/LW      5155/LW      5168/LW
      5190/LW      5216/LW      5243/LW      5257/LW      5279/LW      5305/LW      5352/LW      5394/LW
      5418/LW      5436/LW      5442/MTW     5464/LW      5492/LW      5509/LW      5515/MTW     5537/LW
      5573/LW      5597/LW      5624/LW      5657/LW      5678/LW      5706/LW      5754/LW      5868/LW
      5900/LW      6013/LW      6054/LW      6206/LW      6252/LW      6608/LW      6677/LW      6687/LW
      6699/LW      6717/LW      6722/MTW     6754/LW
   MAPX            2801/BCR     2827-AND
   MAXDEL0         5164-BAL     5220/BIR
   MAXDEL1         5253-BAL     5309/BIR
   MAXDEL2         5569-BAL     5628/BIR
   MAXDEL3         5653-BAL     5710/BIR
   MBIT            2750/LPSD    3171-DATA
   MBITRET         2752-MTW     3171/DATA
   MCALFLG         1032/MTW     1437/MTW     1474/STW     1520/MTW     1548/STW     1574/MTW     1828/MTW
      1839/STW     3243-DATA    3378/STW     3450/STW     3541/MTW     3558/MTW
   MCALPE          1522/B       1547-LI      1576/B
   MCALRET         1439/B       1472-MTW
   MCOM            4913/B       4925/B       4964/B       5004/B       5058/B       5075/B       5130/B
      5147/B       5219/B       5235/B       5308/B       5323/B       5367/B       5410/B       5467/B
      5484/B       5540/B       5557/B       5627/B       5643/B       5709/B       5725/B       5757/B
      5773-BAL
   MEDLOOP         5788/BCS     5808-EQU
   MEMRYSIZ        1030/CW      1258/STW     1263/CW      3287-DATA    3394/STW     3395/MTW     3402/STW
      3403/MTW     3410/STW     3411/MTW     3412/LW      3445/LW      4597/AND
   MEMSTAT         1035/BAL     1820-LCI     3542/BAL     3559/BAL
   MERROR          4943/BAL     4982/BAL     5048/BAL     5121/BAL     5209/BAL     5298/BAL     5343/BAL
      5386/BAL     5457/BAL     5530/BAL     5614/BAL     5696/BAL     5747/BAL     5860-WD
   MFI             1566-STCF    3185/DATA
   MFIERR          3992/BCR     3998-WD
   MFIFND          1618-LI      1654/BCS
   MFIHLT          4000/BCS     4009-BAL
   MFIOCC          3628/BCS     3644-STW
   MFIRBIT          729-DATA     746/STW      777/STW     3365/LW      3579/LW      3611/LW      3616/LW
      3650/LW      3740/LW      3946/LW      3974/LW      3978/LW      4022/LW      4041/LW      4136/LW
      4144/LW      4159/LW      4199/LW      4210/LW      4387/LW      4425/LW      4438/LW      4494/LW
   MFIRET          1615-MTW     1644/BCR     1658/B       4181/BCS     4183/B
   MFITRP          3611-LW      3619/BCS     3641/BCS
   MFITRY          3962/BNEZ    3974-LW      3981/BCS     4011/BCS
   MFTYP           1615/MTW     1653/MTW     1668/STW     2084/LW      2910/MTW     3234-DATA
   MODCM           3672/BCR     3676-LI      3685/BIR
   MODSENS         4247/B       4250-RES
   MOD79           6220/BCR     6299-RES
   MOFF            2738/LI      2739/STS     2740/STS     3156-RES
   MOFFEND         2738/LI      3190-RES
   MORE2           5023-BAL     5059/BIR
   MORE3           5095-BAL     5131/BIR
   MORE6           5431-BAL     5468/BIR
   MORE7           5504-BAL     5541/BIR
   MOSFLAG         1680/STW     1685/MTW     1691/MTW     1844/MTW     1923/MTW     1939/MTW     1992/MTW
      2062/MTW     2133-RES     3452/MTW
   MPAT            4928/STW     4967/STW     5009/STW     5025/STW     5051/LW      5080/STW     5097/STW
      5151/STW     5166/STW     5239/STW     5255/STW     5327/STW     5350/STW     5371/STW     5415/STW
      5433/STW     5489/STW     5506/STW     5571/STW     5622/STW     5655/STW     5704/STW     5746/STW
      5826-DATA    5865/LW
   MPFLG           1581/MTW     2925/STW     3249-DATA    5325/STW     5339/MTW     5349/STW     5369/STW
      5383/MTW     5392/STW     5413/STW     5453/MTW     5460/STW     5487/STW     5526/MTW     5533/STW
      5612/MTW     5618/STW     5694/MTW     5700/STW     5737/STW     5743/MTW     5750/STW
   MSADRFLG        1492/MTW     3247-DATA    4698/STW     4752/MTW     4755/MTW
   MSADRIDL        4714/BCS     4716-XPSD
   MSADROK         4711/BCR     4723-LI
   MSFAULT         2085/BCS     2096-#PRINT
   MSG1            6787-TEXTCS  7347/GEN
   MSG13           6018/#PRINT  6800-TEXTCS
   MSG15           3638/#TYPE   4001/#PRINT  6801-TEXTCS
   MSG16           6084/#PRINT  6802-TEXTCS
   MSG17           6103/#PRINT  6803-TEXTCS
   MSG18           6179/#PRINT  6804-TEXTCS
   MSG19           6192/#PRINT  6805-TEXTCS
   MSG2            5925/STD     5936/STW     5937/STW     5939/STW     5943/STD     5944/#PRINT  5960/STW
      5964/STD     5974/STW     5975/STW     5978/STD     5979/#PRINT  6790-TEXTCS
   MSG20           6194/#PRINT  6806-TEXTCS
   MSG21           6289/#PRINT  6807-TEXTCS
   MSG22           6294/#PRINT  6300/#PRINT  6808-TEXTCS
   MSG23           6351/#PRINT  6809-TEXTCS
   MSG24           6353/#PRINT  6810-TEXTCS
   MSG25           6371/#PRINT  6811-TEXTCS
   MSG26           6400/#PRINT  6812-TEXTCS
   MSG27           6432/#PRINT  6813-TEXTCS
   MSG28           6448/#PRINT  6814-TEXTCS
   MSG3            1285/#TYPE   6792-TEXTCS
   MSG30           6458/#PRINT  6815-TEXTCS
   MSG31           6429/#PRINT  6471/#PRINT  6816-TEXTCS
   MSG32           6489/#PRINT  6817-TEXTCS
   MSG33           4252/#PRINT  6496/#PRINT  6818-TEXTCS
   MSG34           6498/#PRINT  6819-TEXTCS
   MSG35           6591/#PRINT  6820-TEXTCS
   MSG36           4276/#PRINT  6628/#PRINT  6821-TEXTCS
   MSG37           6678/#PRINT  6822-TEXTCS
   MSG38           6688/#PRINT  6765/#PRINT  6823-TEXTCS
   MSG39           4226/#PRINT  6689/#PRINT  6824-TEXTCS
   MSG4            5820/#PRINT  6793-TEXTCS
   MSG40           4225/#PRINT  6695/#PRINT  6736/#PRINT  6825-TEXTCS
   MSG41           6737/#PRINT  6826-TEXTCS
   MSG44           6044/#PRINT  6827-TEXTCS
   MSG45           4233/#PRINT  6828-TEXTCS
   MSG46           4230/#PRINT  6829-TEXTCS
   MSG47           4269/#PRINT  6830-TEXTCS
   MSG49           4467/#PRINT  6831-TEXTCS
   MSG5            3864/STB     5911/#PRINT  6794-TEXTCS
   MSG50           4301/#PRINT  6832-TEXTCS
   MSG51           6137/#PRINT  6833-TEXTCS
   MSG52           6019/#PRINT  6568/#PRINT  6738/#PRINT  6834-TEXTCS
   MSG55           3408/#PRINT  6835-TEXTCS
   MSG56            915/STW     1997/CW      2000/STW     6837-TEXTCS
   MSG56A          2002/#PRINT  6836-TEXTCS
   MSG58           6578/#PRINT  6838-TEXTCS
   MSG6            2715/#TYPE   6795-TEXTCS
   MSG67           4765/#TYPE   6839-TEXTCS
   MSG68           4861/#PRINT  6840-TEXTCS
   MSG69           4863/#PRINT  6841-TEXTCS
   MSG7            5907/#PRINT  6796-TEXTCS
   MSG73           6115/#PRINT  6843-TEXTCS
   MSG74           6121/#PRINT  6844-TEXTCS
   MSG76           3598/#TYPE   3634/#TYPE   4021/#PRINT  6845-TEXTCS
   MSG77           4030/#PRINT  6846-TEXTCS
   MSG78           4715/#TYPE   6847-TEXTCS
   MSG8            3421/STW     3422/STW     3433/STW     6798-TEXTCS
   MSG8A           3444/#PRINT  6797-TEXTCS
   MSG80           1279/#TYPED  6851-TEXTCS
   MSG84           2242/STW     2243/STW     2247/#TYPE   2248/#PRINT  6852-TEXTCS
   MSG85           1726/LB      1728/STB     1737/STB     1747/STB     1762/STB     1797/STB     1810/STB
      1815/STB     2215/STB     2225/STB     2250/#PRINT  2276/STB     2284/STB     2312/#PRINT
      6858-TEXTCS
   MSG85T          2249/#PRINT  6853-TEXTCS
   MSG88           3083/STW     3084/STW     3086/#PRINT  6862-TEXTCS
   MSG89           2288/STH     2293/STH     2301/STW     2302/STW     2306/STH     2307/STW
      2311/#PRINT  2314/#TYPE   6863-TEXTCS
   MSG90           3510/#PRINT  3512/#TYPE   6870-TEXTCS
   MSG91           3487/#PRINT  3489/#TYPE   6872-TEXTCS
   MSG92           2096/#PRINT  6874-TEXTCS
   MSG93           3516/#PRINT  3518/#TYPE   6875-TEXTCS
   MSG94           2758/#PRINT  6877-TEXTCS
   MSG95           1127/#TYPE   6878-TEXTCS
   MSG96           1561/#PRINT  6879-TEXTCS
   MSOFF           2189-LW      4761/BAL     4853/BAL     4874/BAL
   MSRET           1829/BCR     2088/BCS     2092-LCI     2101/B       3167/DATA
   MSTART          4684/BEZ     4896-MTW
   MSTART0         4899-LI
   MSTREG          1821/STM     2082/MTW     2093/LM      2103-RES
   MSW              912/STW      951/MTW     1323/STW     4896/MTW     5841-DATA
   MTEMP           5862/STM     5876/LM      5878/BCS*    5880/MTW     5881/B*      5884-RES
   MTEST1          4919-BAL     5794/B
   MTEST10         5477-LI      5803/B
   MTEST11         5550-LI      5804/B
   MTEST12         5636-LI      5805/B
   MTEST13         5718-LI      5806/B
   MTEST2          4958-BAL     5795/B
   MTEST3          4997-BAL     5796/B
   MTEST4          5068-BAL     5797/B
   MTEST5          5140-BAL     5798/B
   MTEST6          5228-BAL     5799/B
   MTEST7          5317-LI      5800/B
   MTEST8          5361-LI      5801/B
   MTEST9          5403-LI      5802/B
   MTST#            797/STW      993/LW      1360/STW     1578/LW      2234/LW      2298/LW      3079/LW
      4906/STW     4921/STW     4960/STW     4999/STW     5070/STW     5142/STW     5230/STW     5318/STW
      5362/STW     5404/STW     5478/STW     5551/STW     5637/STW     5719/STW     5812/STW     5842-DATA
   MTST1           4924-BAL     4952/B
   MTST10          5483-BAL     5544/B
   MTST11          5556-BAL     5630/B
   MTST12          5642-BAL     5712/B
   MTST13          5724-BAL     5761/B
   MTST13R         1584/LPSD    3163-DATA
   MTST2           4963-BAL     4991/B
   MTST3           5003-BAL     5062/B
   MTST4           5074-BAL     5134/B
   MTST5           5146-BAL     5222/B
   MTST6           5234-BAL     5311/B
   MTST7           5322-BAL     5355/B
   MTST8           5366-BAL     5397/B
   MTST9           5409-BAL     5471/B
   M1               918/STD     4498/LD      4516/STD     4575/LD      4592/STD     4649/MTW     4655/EOR
      4664-DATA
   M1T              917/LD      4661-DATA
   M2              4651/MTW     4656/EOR     4665-DATA
   NEG3F           5162/AND     5170/LW      5250/AND     5259/LW      5567/AND     5575/LW      5651/AND
      5659/LW      5837-DATA
   NEUT            2930-STW     2946/B       4922/BAL     4961/BAL     5320/BAL     5364/BAL
   NEWFA           6704/STW     6718/STW     6728/LW      6731/AND     6747/STW     6750/LW      6758/AND
      6764/LW      6776/STW     6778/MTW     6781-DATA
   NEWLIMR         1126/B       1277/B       1362-MTW     1393/B
   NHOT            5744/BCR     5752-WD
   NILV            1884/BEZ     1892-LW
   NIN8KB          2979-LW      2993/BCS
   NOCMCHNG        3060/STH     3061/#PRINT  3064-TEXTCS
   NOHB            2530/BCS     2533/B       2538-LI
   NOHLTONERR      2713/BCS     2716-EQU
   NOMAG           4897/BEZ     5809-EQU
   NOMAPCHK        1408/BCR     1414-LW
   NOMPRNT         5864/BCS     5872-LCI
   NONE             988/BCR      991/BCS      994/BCR      997-STW
   NONEXST         1073/BCS     1089/BCS     1108/BCS     1264/BCS     1279-#TYPED
   NOOMERR         5903/BCR     5908-RES
   NOPE            3969/BCR     3989/BCR     4016-CI
   NOPORTER        4860/BCR     4863-#PRINT
   NORM             974/BCS      978-LI
   NOTAVAIL        1152/#TYPED  1242-TEXTCS
   NOTCOR          6627/B       6629-RES
   NOTITL          2077/BCS     2081-#PRINT
   NOTMEM          1531/BCS     1559-LC
   NOTPC           1588/BCR     1596-MTW
   NOTPW           5910/BCR     5912-RES
   NOTST           2230/BCR     2235/BCR     2249-#PRINT
   NOTST13         1580/BCS     1587-MTW
   NR1ST8K         4784/BCS     4802-AI
   NTRP            3396/BAL     3548-STW     3560/B
   NXTAH           6080-LW      6083/BIR
   NXTBITS3        6172-SLD     6175/BIR
   NXTBITS4        6280-SLD     6283/BIR
   NXTBLK          4521-BAL     4539/B
   NXTBNKL         4395-LI      4453/B
   NXTCHRC         2418-LB      2429/BIR
   NXTCM           2161-LW      2164/BDR
   NXTDUMP         5922-LW      5957/BCS     5987/B
   NXTFA           2638-CW      2656/BCR     2663/BCR     2678/B
   NXTLIN          4396-SLS     4450/BCR
   NXTLOC          3805-BAL     3886/B
   NXTMTST         5777/BCR     5782-MTW     5790/BCR
   NXTOK           2611-BCR     2620/B
   NXTPBIT         2463-LI      2468/BIR
   NXTRND          4503-BAL     4510/B
   NXTXD           6756/BCR     6768-AI
   NXTYD           6706-BAL     6723/BIR
   NXTYDBLK        6712/BCR     6719/B       6728-LW
   NXT4BITS        2349-LI      2356/BIR
   ODDMSG          4182/#PRINT  6262/#PRINT  6344/#PRINT  6435/#PRINT  6500/#PRINT  6880-TEXTCS
   ODDSENS         6500-#PRINT  6540/B
   ODDXCS          6343-LW      6361/BCR     6363/BCS     6369/BCS
   ODDXVS          6415/BCS     6424/BCS     6435-#PRINT  6457/BCS
   ODPRINT         6671/BCR     6683-LCI
   ODYCS           6261-RES     6284/B
   OK              3360-TEXT    5959/LW
   OK:GRUP         2604-RES     5967/BAL     6409/BAL     6413/BAL     6444/BAL     6454/BAL     6467/BAL
      6485/BAL     6514/BAL
   OKDONE          2611/BCR     2617/BCS     2621-XW
   OKHB            2528/BCR     2536-AI
   OK1             4942/BCR     4947-WD
   OK2             4981/BCR     4986-WD
   OK7             5342/BCR     5346-WD
   OK8             5385/BCR     5389-WD
   OMFLG           3240-DATA    5902/MTW
   ONE             1926/AND     2469/AND     3349-DATA
   OPENYC          6689-#PRINT  6696/B
   OPSINKLN        6447/BCS     6453-AI
   OVERTEMP        1602/BCR     1612-LW
   P               7230-COM
   P%EXPL          7080-TEXTCS  7335/P
   PA              6483/BCS     6507-BAL
   PARAM%RET       1145/STW     1153/MTW     1221/MTW     1222/MTW     1223/MTW     1224/MTW     1225/LW
      1233/XW      1234/B*      1240-DATA
   PARAMERR        1228/STB     1230/#TYPED  1239-TEXTCS  1387/STB     1388/#TYPED
   PARAMJ#A        1149/BE      1151/BCR     1158-#ETHCON
   PARINT          1647/B       4159-LW
   PARTYEX         4020/BCS     4033-LI
   PARTYFLG        1643/MTW     3253-DATA    3711/STW     4134/MTW     4139/STW     4143/STW     4151/STW
      5915/MTW     6073/MTW     6181/MTW     6295/MTW
   PARTYGO         3744-LI      4146/B
   PARTYON         4219/BCR     4222-RES
   PARTYST         3939-LI      4012/BCS     4038/BCS     4048/BCS
   PASS#            897/STW      936/LW      1358/STW     1362/MTW     1364/MTW     3655/MTW     3869-DATA
   PATDONE         3806/B       3888-EQU
   PATFLG          3745/STW     3766/MTW     3871-DATA    3876/MTW     3922/STW
   PATSIZE         3113-DATA    3756/LW
   PATTERN         3093-DATA    3113/DATA    3880/LW      3881/LCW
   PBIT            2460-LI      4218/BAL     4260/BAL     4735/BAL
   PCBT            4816-LW      4826/BIR
   PCCDW           4773/STW     4794/AWM     4805/AWM     4810/LI      4834/AWM     4838-GEN     4840/GEN
   PCCDWR          4772/AW      4842-GEN
   PCERRXT         4870/B       4879-LI
   PCHK            3907/BEZ     4150-LI
   PCINTRT         3165/DATA    4823-MTW
   PCTEST          4573/BCR     4644/B       4683-MTW     4717/B
   PCTEXIT         4778/B       4788/B       4831/B       4874-BAL
   PCTHLT          4764/BCS     4766/B       4856/BCS     4862/B       4867-BAL
   PCTST           4691-LI      4869/BCS     4877/BCS
   PE              1512-STCF    3187/DATA
   PEBCHK          4017/BCR     4041-LW
   PECHK           2689-LI      4324/BAL     4328/BAL     4332/BAL     4336/BAL     4344/BAL     4351/BAL
   PEFLG           1516/MTW     1601/MTW     1604/STW     1619/STW     3248-DATA    3577/STW     3605/STW
      3647/STW     3712/STW     4129/STW     4308/STW
   PEHALT          1533/BCR     1539-BAL     1560/BCS     1562/B
   PEHLT           3597/BCS     3599-BAL
   PELOC           3235-DATA    3581/LI      3648/STW     4051/STW
   PEOCC           3587/BNEZ    3595/BCS     3604-LI
   PEOK            3623/BNEZ    3633/BCS     3635-MTW
   PERCNTR         3239-DATA    4130/STW     4140/STW     4161/MTW     4195/MTW     4213/LW
   PETRP           3589-STW     3601/BCS
   PFLGTST         1636/BCR     1643-MTW
   PGENCHK         4297/BCR     4320-LI
   PGENTST         3135-DATA    3574/STW     3713/STW     3952/STW     4006/LW      4031/LW      4054/STW
      4288/STW     4309/STW     4321/STW     4908/STW
   PINH            4261/BCR     4267-RES
   PINTR           3952-STW     4037/BCS     4045/BIR
   PINXTBNK        3943-LI      3996/B
   PITSTEXT        3949/B       4047-LC
   PL#JHDR         1132/DATA    7020-TEXTCS
   PLINE#J          888/STB     1132/DATA    1201/LB      1203/STB     2747/STB     3484/STB     3698/STB
      7022-TEXTCS
   PLINE#JR         805/STW      812/STW      814/STW      886/LB       887/LB      1246-TEXTCS
   PLINEIN          694/DATA    1066/#ETHCON 1075/#ETHCON 1082/#ETHCON 1093/#ETHCON 1101/#ETHCON
      1112/#ETHCON 1122/LB      1146/#ETHCON 1158/#ETHCON 1160/#ETHCON 1163/#ETHCON 1172/#ETHCON
      1178/#ETHCON 1192/#ETHCON 1202/LB      1255/#ETHCON 1260/STW     1261/#ETHCON 1266/#ETHCON 1273/LB
      1293/#ETHCON 1297/LW      1300/#ETHCON 1303/LW      1319/LB      1327/LB      1337/LB
      1348/#ETHCON 1350/#ETHCON 1354/LB      3116-RES
   PLOOP           4780-CI      4835/B
   PM31            4227-RES     4274/BCS     4279/BCR
   PPASS#           847/STW     1370/STW     3070/LW      3225-DATA    3657/MTW
   PR%DS           1010-LI      7312/E
   PR%G            1062-STW     7317/E
   PR%J            1133-RES     7323/E
   PR%L            1251-STW     7328/E
   PR%P            1290-LC      7333/E
   PR%T            1315-STW     7338/E
   PRE1            3572-LI      3602/BCS     3642/BCS
   PRTERREX        4013/B       4039/B       4050-LI
   PRTRET          3068/STW     3087/B*      3089-RES
   PRTYLGIC        3726/BEZ     3839/B       3926/B       3934-MTW
   PRTYRUN         4135/BCR     4142-LI
   PRTYST          4127-LI      4153/BCS     4168/BCS     4187/BCS
   PRTYTST         4066/BCR     4114/B       4122-MTW
   PRTYTSTR        4162/BCS     4172-LW
   PR1ERR          3626/BCR     3630-LC
   PR1HLT          3631/BCS     3636/BCS     3639-BAL
   PTAGSET         4231-RES     4253/B       4271/B       4280/B       6183/B       6297/B
   PTST            1607/BCR     1635-MTW
   PWER            3830-LI      3865/B
   PWFLG           3242-DATA    3738/STW     3759/MTW     3775/MTW     3790/MTW     3812/MTW     3892/MTW
      3911/MTW     3921/STW     5909/MTW     5995/MTW
   PWRD            3813/BNEZ    3846-SLS
   PWSMR           3795-LW      3844/B
   PWSTR           3791/BNEZ    3841-SLS
   P0W             5370/LW      5406/LW      5439/LW      5488/LW      5505/LW      5553/LW      5621/LW
      5654/LW      5829-DATA
   P1W             5326/LW      5414/LW      5432/LW      5480/LW      5512/LW      5570/LW      5639/LW
      5703/LW      5828-DATA
   RADRBEG         4586-LCW     4617/B
   RADRFLG         3717/STW     4570-DATA    4584/STW     4612/MTW     4616/MTW     4633/MTW     4643/STW
      5917/MTW
   RADRST          4583-LI      4629/BCS     4641/BCS
   RADRSTST        4487/BCR     4544/B       4561/B       4572-MTW
   RANDERR         4625/BCS     4637-LW
   RANDERX         4631/B       4642-LI
   RANDMTST        4380/BCR     4474/B       4486-MTW
   RANDOM          4506/BAL     4524/BAL     4596/BAL     4649-MTW
   RANDST          4493-LW      4542/BCS     4560/BCS
   RBIAS            828/STW      860/LW      3193-DATA
   RBLOCK           864/AW      3304-DATA    3438/LW
   READSTAT        7223-BAL     7297/E
   RECBLK          2211/BCR     2219-LW
   REDO            5728-BAL     5758/BIR
   RESHI            866/STW     2844/LW      3129-DATA
   RESLOW           863/STW     2842/CLM     3009/CLM     3128-DATA    4783/MTW     4797/CW
   RESTART         3176/DATA    3567-MTW
   RETHB           2535/B       2539-SCS
   RETREGS         2442-LCI     4311/BAL     4314/BAL
   RETRNL          3141-B       4418/LW
   RET40           1442/BCS     1446/B       1465-MTW
   RIPFLG          1556/MTW     2690/STW     2701/MTW     2704/STW     3250-DATA    3576/STW     3594/MTW
      3606/STW     3625/MTW     3632/MTW     3645/STW     3944/STW     3968/MTW     3972/STW     3988/MTW
   RM%EXPL         6932-TEXTCS  7309/P
   RNDMERR         4536/BCS     4546-WD
   RNDSM           4499/STD     4515/LD      4576/STD     4591/LD      4669-RES
   RNDSS           4501/STD     4517/LD      4578/STD     4593/LD      4670-RES
   ROK             6350/BCR     6353-#PRINT
   RSKEX           2841/BCS     2850/BCR     2853/BCS     2859/BCS     2865/BCS     2871-CW
   RSKIP           2169/BAL     2840-MTW     2932/BAL     2939/BAL     2953/BAL     3785/BAL     3805/BAL
      3948/BAL     4076/BAL     4086/BAL     4290/BAL     4407/BAL     4503/BAL     4521/BAL     4603/BAL
      4777/BAL     4787/BAL     4830/BAL     4924/BAL     4963/BAL     5003/BAL     5057/BAL     5074/BAL
      5129/BAL     5146/BAL     5218/BAL     5234/BAL     5307/BAL     5322/BAL     5366/BAL     5409/BAL
      5466/BAL     5483/BAL     5539/BAL     5556/BAL     5626/BAL     5642/BAL     5708/BAL     5724/BAL
      5756/BAL     5951/BAL     5982/BAL
   RSTRT           1374/DATA    3176-DATA    3531/DATA
   RTSTDONE        4522/B       4541-LC
   R8R9            2483/STD     2506/LD      3197-DATA
   S:INT            369/ERROR    413/SET      422/SET      432/ERROR    436/SET      438/SET      447/DO
   S:PT               4/EQU
   S:RAD            436/SET      475/ERROR    542/ERROR
   S:UFV            475/ERROR    542/ERROR
   SAFLAG          3750/STW     6494/MTW     6521/MTW     6524-DATA    6549/STW     6587/MTW
   SAMEMEM         1998/BE      2004-LI
   SAREPORT        6495/BCS     6498-#PRINT
   SAVE            1135/STM     1210/LM      1232/LM      1241-RES
   SAVEGRP         2189/LW      4744/STW     4846-DATA
   SAVE3           2733/STW     2749/LW      2766-RES
   SAVREGS         2449-LCI     4286/BAL     6102/BAL
   SCAN            1616/BCR     1649-LI      1656/B
   SCANEX          1651/B       1657-LW
   SEED             920/STD     4500/LD      4518/STD     4577/LD      4594/STD     4652/LW      4657/STW
      4666-DATA
   SEEDT            919/LD      4662-DATA
   SENSAMP         6509/BCS     6521-MTW
   SETADRFG        4616-MTW     4635/B
   SETCM           1189/BAL     2157-LCI     3701/BAL
   SETJLN          3693-LW      3700/BIR
   SETMAR          2169-BAL     2178/B
   SHFTBIT         2490-LI      2501/BIR
   SHIFTHB         2525-LI      2537/BIR
   SHORTD          6737-#PRINT  6766/B
   SHTLP           4611-BAL     4640/BCS
   SI              1159/STW     1244-DATA    5813/MTW     5817/CW
   SIG0             763/BEZ      770-CW
   SIG1             768/B        771/BE       787/BNEZ     792-EQU
   SIG2             783-XPSD     925/DATA
   SIG3             785-LW       927/DATA
   SIG7A            782/LPSD     925-DATA
   SIG7B            783/XPSD     785/LW       926-DATA
   SIG7FLG          728-DATA     743/STW      780/STW     1598/MTW     2885/MTW     3586/MTW     3622/MTW
      3961/MTW     3985/MTW
   SIG8FLG          727-DATA     742/STW      766/STW      789/STW     2734/MTW     2775/MTW     2798/MTW
      3372/MTW
   SIPASS          1361/STW     1365/MTW     1367/MTW     3288-DATA    3656/MTW     5816/LW      5819/STW
   SMALHIGH        1079/BCS     1097/BCS     1117/BCS     1269/BCS     1285-#TYPE
   SMEAR           3766-MTW     3877/BEZ     3899/B       3904/B
   SPFLG           1454/MTW     1456/MTW     1635/MTW     1638/STW     3252-DATA    3710/STW     4316/STW
      4386/STW     4440/MTW     4473/STW
   SPREAD          2951-STW     2959/B       4390/BAL     5001/BAL     5072/BAL     5144/BAL     5232/BAL
      5407/BAL     5481/BAL     5554/BAL     5640/BAL     5722/BAL
   START            922/B       3365-LW
   STAT            5896/BCS     5906/BCS     5914/BCS     5916/BCS     5918/BCS     5991-BAL
   STATHDG          998/#PRINT  1005-TEXTCS
   STATLP           958-SLS      967/BIR
   STATMSG          929-LCI     5821/BAL     7223/BAL
   STATMT           951-MTW
   STATOUT          933/STW      938/STW      946/STB      961/STB      981/STB      996/STB      997/STW
       999/#PRINT  1007-TEXTCS
   STATUS          1722-LCI     2209/BAL     2272/BAL     6098/BAL
   STATWD          1652/BAL     1662-STW     1731/BAL     1823/BAL     2909/BAL     4857/BAL
   STATWD0         1692/BEZ     1702-SLS
   STAT1           5997-LCI     6017/BCS     6021/B       6031/BCS     6033/BCS     6043/BCS     6045/B
      6050/BCS     6057/BCR
   STCMF           3024/BAL     3039/BAL     3054/BAL     3060-STH
   STEMPLOC        1723/STM     1802/LM      3363-RES
   STFAST          1791/BCS     1793/B       1795/B       1796-LI
   STGETCM         1787-LW      1799/BIR
   STMAG            952/BEZ      969-LI
   STMS            4795/B       4800/B       4807-HIO
   STNORM          1790/BCS     1794-LI
   STRUNIT         1953/B       1963/B       1988-STW
   STRUNIT0        1972/B       1978/B       1982-STB
   STSBUFF         1050/STB     6884-RES
   STSEXPL         2261/GEN     7176-TEXTCS
   STSEXPLABLE     2251/LW      2261-GEN
   STSFORM         1833/STW     1835/STH     1861/STH     1878/STH     1896/STH     1914/STB     1915/STW
      1937/STH     1988/STW     2014/STW     2027/STH     2040/STB     2050/STB     2055/STW     2057/STH
      2060/STW     2073/STW     2081/#PRINT  2110-TEXTCS  6039/LB
   STSHDNG         2106-TEXTCS
   STSHDNGA        2079/#PRINT  2105-TEXTCS
   STWDREG         1662/STW     1716/B*      1718-RES
   STWFLG          1441/MTW     3244-DATA    3709/STW     3746/STW     3803/STW
   SUCCADRT        4087/B       4099-RES
   SWDFLG          3137-DATA    3747/STW     4133/STW     4298/MTW
   SWDRPE          4141/B       4215/BCR     4286-BAL     4310/BCS
   SYNTAX%EXPL     6887-TEXTCS  7294/P
   S3HLT           1420/BAL     1462/BAL     1499/BAL     1539/BAL     1624/BAL     2709-RES     3599/BAL
      3639/BAL     4009/BAL     4035/BAL     4108/BAL     4166/BAL     4468/BAL     4553/BAL     4867/BAL
      5874/BAL     5991/BAL     6501/BAL
   S4              2721-LC      4232/BAL     4251/BAL     4268/BAL     4275/BAL     4300/BAL
   T%EXPL          7091-TEXTCS  7340/P
   TABLE3           693/DATA    7289-EQU
   TABLE3END       7342-DATA
   TAGALT          2655/MTW     3751/STW     6646/MTW     6784-DATA
   TALLYFA         2639/BCS     2645/BCR     2653/B       2664-SW
   TCCS            1403/STCF    1434/STCF    1486/STCF    1512/STCF    1518/LC      1530/LC      1566/STCF
      2289/LB      3254-DATA
   TEMPCC          2472/STW     2474/LC      2540/STW     2542/LC      2571/STW     2573/LC      2595/STW
      2597/LC      3278-DATA
   TEMPL           1062/STW     1128/B*      1251/STW     1281/B*      1287/B*      1315/STW     1377-DATA
      1390/B*      2714/STW     2718/LW
   TEMPRA          3272-DATA
   TEMPRB          3273-DATA
   TEMPRC          3274-DATA
   TEMPRD          3275-DATA
   TEMPRE          3276-DATA
   TEMPRF          3277-DATA
   TEMPR0          2443/LM      2450/STM     3262-DATA
   TEMPR1          3263-DATA
   TEMPR2          3264-DATA
   TEMPR3          3265-DATA
   TEMPR4          3266-DATA
   TEMPR5          3267-DATA    4414/STW     4424/XW      4443/XW      4447/XW
   TEMPR6          2622/STW     2624/LW      3268-DATA
   TEMPR7          2487/STW     2498/MTW     2500/STW     2503/LW      3269-DATA    6619/STW     6621/LW
   TEMPR8          3270-DATA
   TEMPR9          2461/STW     2470/LW      2552/STW     2569/LW      2582/STW     2593/LW      3271-DATA
   TENS            2386/DW      2406-DATA
   TERRX           1380/B       1382/B       1384-LI
   TERR1           1322/BCS     1379-LI
   TERR2           1330/BCS     1381-LI
   TERR3           1340/BCS     1383-LI
   TESTS           3142-DATA    6028/LI      6060/LW
   TEXTCS           613-CNAME
   THREF           5016/CW      5018/OR      5087/CW      5089/OR      5158/OR      5246/OR      5420/CW
      5422/OR      5494/CW      5496/OR      5563/OR      5647/OR      5840-DATA
   TI%REGS          726-RES     1406/STM     1425/LM      1436/STM     1458/LM      1467/LM      1475/LW
      1480/LM      1489/STM     1504/LM      1515/STM     1544/LM      1551/LM      1568/STM     1583/LM
      1593/LM      1609/LM      1631/LM      1640/LM      1646/LM      1657/LW      2303/LI
   TITLE              4-EQU      345/TITLE   6787/TEXTCS
   TOGERXT         4463/BCS     4468-BAL
   TOGEXIT         4457/B       4472-LI
   TOTALPAT        3764/STW     3868-DATA    3889/CW
   TOTALTST        6027-DATA    6029/STW     6056/CW
   TPNYI           6556/BCR     6571-CI
   TPT             4910/STW     5775/LW      5779/BCS     5782/MTW     5792-B       5851/B       5879/BCS
   TRAPRET         1455/BCR     1461-BAL
   TRPREG          2271/STM     2316/LM      2319-RES
   TRPRTN          3533/STW     3543/B*      3548/STW     3561/B*      3563-RES
   TRPSTS          1417/BAL     1461/BAL     1498/BAL     1529/BAL     1623/BAL     2268-LC
   TRP4C            820/LD      3354-XPSD
   TRP4D           3355-XPSD
   TRP40            816/LD      3352-XPSD
   TRP41           3353-XPSD
   TRP46            822/LW      3356-XPSD
   TRP57            773/LW       818/LW      3357-XPSD
   TS               943/LW      1331/STW     1392-RES     3448/STW     3456/STW     3457/STW     3469/STW
      3725/MTW     3934/MTW     4065/MTW     4122/MTW     4379/MTW     4486/MTW     4572/MTW     4683/MTW
   TSLOOP           943-LW       949/BIR
   TSPTR           4912/STW     5784/LW      5786/STW     5844-DATA
   TSTBITS         2666/BCR     2676-STW
   TSTCOMP         3068-STW     3925/BAL     4049/BAL     4102/BAL     4154/BAL     4456/BAL     4543/BAL
      4630/BAL     4878/BAL     5780/BAL
   TSTON            794/STW      987/LW      1359/STW     1534/LW      2229/LW      2294/LW      3074/LW
      3362-DATA    3729/STW     3937/STW     4068/STW     4125/STW     4382/STW     4490/STW     4581/STW
      4687/STW     4900/STW     5811/STW     5992/LW
   TSTPAT          2692/LW      3133-DATA
   TSTRND          4504/B       4514-EQU
   TSTYP            986/LW       989/LW       992/LW       995/LW      2231/LW      2237/LW      2295/LW
      2299/LW      3076/LW      3081/LW      3214-DATA
   TSWRD            859/STW      959/CW      1346/STW     5789/CW      5845-DATA
   T13FRTRN        3163/DATA    5741-LC
   UCB             5732/LW      5843-B
   UNEXPTWD        1491/BCR     1495-LW
   UNITSIZE        1930/AWM     1955/LW      2134-RES     3382/STW     3383/STW
   UNR0            1924/BEZ     1932-CI
   USNEW0          1945/BLZ     1950/BGEZ    1955-LW
   USOLD           1940/BEZ     1965-LW
   USTABLE         1957/CVA     2149-EQU
   VALBIT           676-DATA
   VALDEX           680-EQU
   VALTYPE          684-EQU
   VERSION            3-EQU        4/EQU
   VMFLG            857/STW     2010/STW     3255-DATA    3475/MTW
   WASLW           4177/BCR     4186-MTW
   WDRTRN          1493/B       1502-MTW
   WDTRAP          1486-STCF    3183/DATA
   WHCHY0          5163/B       5172-CW
   WHCHY1          5252/B       5261-CW
   WHCHY2          5568/B       5577-CW
   WHCHY3          5652/B       5661-CW
   WORD0           1666/STW     1732/LI      1752/LW      1841/LW      1864/LW      1942/LW      2065/LW
      3226-DATA    4858/LW
   WORD1           1671/STW     1682/LH      1687/LW      1918/LW      1947/LW      2005/LW      3227-DATA
   WORD2           1714/STW     2052/LW      3228-DATA
   WRDERR          4342/B       4363-EQU
   XCSERR          6342/BCR     6348-LW
   XCSOK           6318/BCS     6324-LW
   XCS34           6311/STW     6319/MTW     6360/MTW     6402-DATA
   XDCOMPR         6751-BAL     6770/B
   XDEXAM          6715/BCS     6735/BCS     6745-LW
   XDGRUP          6749-LI      6779/B
   XDIODE          6643/STW     6761/MTW     6771/MTW     6772/LW      6785-DATA
   XLOPEN          6676-RES     6686/BCR
   XLTAG           6642/STW     6650/MTW     6670/MTW     6783-DATA
   XPNR            6323/B       6327-MTW
   XPNRCHK         6332/BCR     6380-LCI
   XPNRFLG         6307-DATA    6310/STW     6327/MTW     6337/MTW     6349/MTW
   XVDRIVE         6442/BCS     6463-BAL
   XVPRED          6411/BCS     6441-CI
   XVSBAAD         6428/BCR     6432-#PRINT
   X0X640          5017/BCR     5029-AI
   X0X641          5088/BCR     5101-AI
   X0X642          5421/BCR     5437-AI
   X0X643          5495/BCR     5508-BIR
   YCSBAD          4239/B       4257/B       6282/BCR     6293-RES
   YCSRETRN        6295-MTW     6301/B
   YCSW            6258/BCR     6271-BAL
   YCYV            6200/BCS     6209/B       6694-RES
   YC07BAD         6241/BCR     6300-#PRINT
   YC7FLAG         6215/STW     6230/MTW     6236/MTW     6244-DATA
   YD              6652/BCS     6657/BCS     6661/BCS     6665/BCS     6669/BCS     6699-LW
   YDCNTR          6714-MTW     6724/B
   YDCOMPR         6705-LI      6733/BCR
   YDIODE          6641/STW     6714/MTW     6716/MTW     6734/MTW     6782-DATA
   YDLOC           6710/BCR     6721-BDR
   YLOPEN          6208/BCR     6237/BCR     6242/B       6289-#PRINT
   YTRP            3390/BAL     3407/BAL     3533-STW     3546/B
   YVLOPEN         6159/BCR     6197-LI
   YVPRFLAG        6147/STW     6187-DATA    6189/MTW     6190/MTW
   YVPRL           6152/BCR     6189-MTW
   YVSBAD          4221/B       6174/BCR     6179-#PRINT
   1E000           3325-EQU
   1STIMFLG        2891/STW     2923/STW     3251-DATA    4945/STW     4951/STW     4984/STW     4990/STW
      5022/STW     5050/STW     5060/STW     5094/STW     5123/STW     5132/STW     5211/STW     5221/STW
      5300/STW     5310/STW     5347/STW     5354/STW     5390/STW     5396/STW     5459/STW     5469/STW
      5532/STW     5542/STW     5616/STW     5629/STW     5698/STW     5711/STW     5749/STW     5759/STW
   1STPASS         1015/STW     2076/MTW     2245/STW     2309/STW     3257-DATA    3386/STW
   1ST8KNUT        4781/BCS     4797-CW
   128K            3374/LW      5832-EQU     6239/AND
   2WY             1887/BNE     1895-LW
   4M            2052.1/AND     2761/STH     3300-DATA    3371/LW
   8K              2175/AW      3305-DATA    3549/AW      3995/AW      4451/AW      6334/CW      6558/CW
      6585/CW
   %ADASH          1314/DATA    7097-TEXTCS
   %AEXIT          1064/BCR     1253/BCR     1317/BCR     1393-B
   %AHDR           1314/DATA    7095-TEXTCS
   %AOUT            883/STB     1314/DATA    1353/LB      1355/STB     3461/STB     3463/STB     3473/STB
      7099-TEXTCS
   %AOUTRST         881/LB       882/LB      1397-TEXTCS
   %GHDR           1060/DATA    7005-TEXTCS
   %GOUT            875/STB     1060/DATA    1121/LB      1123/STB     3499/STW     3500/STW     3505/STW
      3506/STW     7008-TEXTCS
   %GOUTRST         873/LB       874/LB      1129-TEXTCS
   %IETRAP         1411/MTW     1414/LW      1415/LW      1419/STW     1423/MTW     1426/LPSD    3178-DATA
      3355/XPSD
   %IETRP          1404/LPSD    3157-DATA
   %IETRTN         1405-LCI     3157/DATA
   %INTRAP         1445/MTW     1452/LW      1453/LW      1465/MTW     1468/LPSD    1472/MTW     3180-DATA
      3352/XPSD    3353/XPSD
   %LHDR           1249/DATA    7064-TEXTCS
   %LOUT            834/STW      835/STW      842/STW      843/STW     1249/DATA    1272/LB      1274/STB
      3423/STW     3424/STW     3425/STW     3426/STW     3441/STH     3442/STW     7066-TEXTCS
   %MAPBIT         2785/LPSD    2829/LPSD    3169-DATA
   %MCALRT         1476/LPSD    1552/LPSD    3167-DATA
   %MFI            1612/LW      1621/LW      1622/LW      1629/MTW     1632/LPSD    3184-DATA    3357/XPSD
      4172/LW
   %PE             1527/LW      1528/LW      1537/MTW     1542/MTW     1545/LPSD    1549/MTW     1610/LPSD
      3186-DATA    3354/XPSD
   %PEPDF          1517/LPSD    3174-DATA
   %PERTN          1518-LC      3174/DATA
   %PERTRN         1536/BCS     1538/B       1542-MTW     1557/B
   %PEXIT          1291/BCR     1306-LCI
   %PHDR           1289/DATA    7084-TEXTCS
   %POUT            902/STB     1289/DATA    1298/STW     1304/STW     1309-TEXTCS
   %POUTRST         900/LB       901/LB      1310-TEXTCS
   %WDTRAP         1495/LW      1496/LW      1502/MTW     1505/LPSD    3182-DATA    3356/XPSD
   %WDTRP          1487/LPSD    3159-DATA
   %WDTRTN         1488-LCI     3159/DATA
   :HEX@D#A        2385-LI      2393/BDR
   :HEX@D#B        2389-OR      2399/BDR
   :HEX@D#C        2392-LW      2400/B
   :HEX@D#D        2387/BCR     2399-BDR
   :HEX@D#X        2397/B       2402-LCI
   :HEX@DE         1960/BAL     2378-RES     3432/BAL
   #ABSZERO         621-EQU      774/STW      817/STD      819/STW      821/STD      823/STW
   #ARMUSER         656-EQU     1026/BAL*    4762/BAL*    4854/BAL*    4875/BAL*
   #BRKOUT          645-EQU
   #BTE%            653-EQU
   #COCSTAT%        669-EQU     2331/LC*
   #DIAG@           695-DATA
   #DISUSER%        559/BAL*     654-EQU     1724/BAL*    2414/BAL*    2484/BAL*    2605/BAL*    2635/BAL*
   #DM%END          647-EQU     1040/CW
   #DM%START        646-EQU     1018/#HTECON 1029/LW      1039/LW      1043/MTW
   #DMENTRY%        666-EQU     1013/B*
   #ENUSER%         589/BAL*     655-EQU     1803/BAL*    2434/BAL*    2507/BAL*    2623/BAL*    2672/BAL*
   #ERRTEXT%        663-EQU     2252/STW*
   #ERR1PTR%        664-EQU
   #ETH%            446/BAL*     651-EQU
   #ETHCON          410-CNAME
   #FIDLE%          658-EQU     1058/B*      1217/BAL*    1307/B*      1373/BAL*
   #GUIDE%          657-EQU     7346/BAL*
   #GUIDEBUF%       668-EQU
   #HDRFLG          625-EQU
   #HTE%            376/BAL*     652-EQU
   #HTECON          366-CNAME
   #INDEX           632-EQU
   #INITIAL@        692-DATA
   #LOADER@         696-DATA    7345/STW
   #LOADFLAG        626-EQU      849/MTW     3368/MTW     3567/MTW
   #MAXMEM          643-EQU
   #MTLFLAG         627-EQU
   #ONLINE@         698-DATA
   #OUTBUF@         697-DATA
   #OUTPTR          630-EQU
   #P%MODE%         667-EQU     1012/STW*    1053/STW*
   #PAKDEX          631-EQU
   #PARAM%H1        633-EQU
   #PARAM%H2        634-EQU
   #PARAM%H3        635-EQU
   #PARAM%H4        636-EQU
   #PARAM1          639-EQU
   #PARAM2          640-EQU
   #PARAM3          641-EQU
   #PARAM4          642-EQU
   #PLINEIN@        694-DATA
   #PRINT           526-CNAME
   #PRINTD          459-CNAME
   #PRINTER%        459/CNAME    526/CNAME    662-EQU
   #PRTADDR         629-EQU      803/LW      1147/STW     2327/CW
   #RETURN%         660-EQU     7224/B*
   #RUNADDR%        659-EQU     1136/LD*     2100/XPSD*   2717/XPSD*   4716/XPSD*
   #SAMPLE          644-EQU
   #SENSE           624-EQU     1421/LC      1463/LC      1500/LC      1540/LC      1559/LC      1627/LC
      2205/LC      2268/LC      2710/LC      2721/LC      3591/LC      3596/LC      3600/LC      3618/LC
      3630/LC      3640/LC      3821/LC      3834/LC      3854/LC      3918/LC      3965/LC      3980/LC
      3999/LC      4010/LC      4019/LC      4036/LC      4047/LC      4091/LC      4100/LC      4109/LC
      4152/LC      4167/LC      4180/LC      4223/LC      4228/LC      4435/LC      4454/LC      4462/LC
      4469/LC      4531/LC      4541/LC      4558/LC      4621/LC      4628/LC      4639/LC      4713/LC
      4763/LC      4817/LC      4855/LC      4868/LC      4876/LC      4938/LC      4977/LC      5042/LC
      5114/LC      5203/LC      5292/LC      5336/LC      5380/LC      5450/LC      5523/LC      5609/LC
      5690/LC      5741/LC      5778/LC      5863/LC      5877/LC      5895/LC      5905/LC      6007/LC
      6016/LC      6042/LC      6049/LC
   #STATUS          638-EQU
   #TABLE1A         623-ORG
   #TABLE1B         650-ORG
   #TABLE2@         691-ORG
   #TABLE3@         693-DATA
   #TESTINIT        637-EQU
   #TOADDR          628-EQU      807/LW      1148/CW      2326/LW
   #TRAPLINK        648-EQU
   #TYPE            527-CNAME
   #TYPED           460-CNAME
   #TYPER%          460/CNAME    527/CNAME    661-EQU
   #VALTAB%         665-EQU
