1 C00   21:32 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   21:32 JUN 20,'83    SIGMA 8-9 HIGH SPEED RAD IOP TEST 706200-11/51A04 02-19-73            PAGE    2
A       1                                     PCC
        2         03 03098           BUF1LO   EQU      S:UFV(WA(DA(BUFFEND+1)+0))
1 C00   21:32 JUN 20,'83    SIGMA 8-9 HIGH SPEED RAD IOP TEST 706200-11/51A04 02-19-73            PAGE    3
A       4                            *
        5                            *
        6                                     SYSTEM   SIG7FDP
        7   01 00300                          ORG      X'300'
            01 00300
        8                            *
        9                            * CATALOG  NO. 706200 MANUAL NO. 901761
       10                            *
       11                            *
       12                            * PROGRAM OBJECTIVE
       13                            * ----------------- THE PROGRAM PROVIDES A COMPREHENSIVE SET OF TESTS
       14                            * DESIGNED TO DETECT SOLID LOGIC FAILURES AND TO ISOLATE FAILURES
       15                            * TO A SPECIFIC FUNCTION. THE PROGRAM ALSO EXERCISES THE HIGH-SPEED RAD
       16                            * IOP (RIOP) AND STORAGE UNITS UNDER CONDITIONS SIMILAR TO ACTUAL
       17                            * OPERATION UNDER STANDARD SOFTWARE. A UTILITY TEST PROVIDES ADDITIONAL
       18                            * CAPABILITY FOR TESTING THE SURFACE OF STORAGE UNITS.
       19                            *
       20                            *
       21                            *  PROGRAM MODIFICATIONS
       22                            *  ---------------------
       23                            *REVISION A04                                                       *A04
       24                            * PROGRAM MODIFIED SO TEST1,38 WILL RUN PROPERLY ON A SYSTEM WITH   *A04
       25                            * OVER 128K OF MEMORY    (TARS 25334 AND 13407)                     *A04
       26                            *REVISION A03 (3-1-72) CHANGES INDICATED IN COLUNMS 69-72 BY--------*A03
       27                            *MODIFICATIONS:                                                     *A03
       28                            *1. MODIFIED TESTS 90,92,93,94, TO ALLOW THE RIOP TEST TO RUN       *A03
       29                            *   WITHOUT ERROR FOLLOWING THE INSTALLATION OF MODIFICATION "G"    *A03
       30                            *   IN THE RIOP.                                                    *A03
       31                            *2.   INSTALLATION OF A MEMORY CLOCK MARGIN TEST. IF THE PROGRAM IS *A03
       32                            *   STARTED WITH ANY CLOCK MARGIN SET IN THE FIRST 128K OF MEMORY   *A03
       33                            *   A WARNING WILL BE PRINTED.                                      *A03
       34                            *  REVISION A02 (11/27/71) CHANGES INDICATED IN COLUMNS 69-72 BY*****A02
       35                            *  MODIFICATIONS:                                                   *A02
       36                            *    2. ADDED TO DOCUMENTATION, A LIMIT TO, THE SOFTWARE WRITE      *A02
       37                            *       PROTECT FEATURE OF THE 'SYST'. THE WRITE PROTECT NOW ONLY   *A02
       38                            *       APPLIES TO TST2 AND TST3. ALSO CORRECTED ERROR IN 'SYST'    *A02
       39                            *       DIRECTIVE ASSIOCATED WITH THIS FEATURE. (TAR 12093)         *A02
       40                            *    3. ADDED TO TST1,150 A FEATURE TO CHECK 'INCORRECT LENGTH' ON  *A02
       41                            *       A WRITE IF THE 'SKIP' FLAG IS SET. (TAR 11524)              *A02
       42                            *    4. ADDED TO TST1,134 A FEATURE THAT ALLOWS DATA PATTERNS TO BE *A02
       43                            *       BUILD AND MOVED WITHIN TRAP RECOVER OF THE TEST DRIVER.     *A02
       44                            *    5. ADDED CHANGE TO TST1,191 TO CORRECT ERROR. TEST DIDN'T CHECK*A02
       45                            *       FOR WRITE PROTECT VIOLATION CORRECTLY ON TDV STATUS         *A02
       46                            *                                                                   *A02
       47                            *  REVISION A01 (08/25/71)                                          *A01
       48                            *  1. ASSURES THAT I/O BUFFERS ARE BUILD ON DOUBLEWORD BOUNDARY.    *A01
       49                            *                                                                   *A01
       50                            *  2. THE AUDIO ALARM IS TURN OFF WHEN TST1 IS EXITED.              *A01
       51                            *                                                                   *A01
       52                            *
       53                            *  OPERATING REQUIREMENTS AND SPECIFICATIONS
       54                            *  ------------------------------------------
       55                            *
       56                            *  REQUIRED EQUIPMENT
       57                            *                    SIGMA 9 WITH 16K MIMIMUM OF MEMORY
       58                            *                    CARD-READER, PAPER-TAPE READER, OR MAGNETIC TAPE
       59                            *                    UNIT FOR PROGRAM INPUT.
       60                            *                    A KEYBOARD PRINTER OR LINE PRINTER FOR MESSAGE
       61                            *                    OUTPUT.  A LINE PRINTER IS RECOMMENDED AS THE
       62                            *                    OUTPUT MESSAGE DEVICE.
       63                            *
       64                            *  OPTIONAL EQUIPMENT
       65                            *  ----------------- NONE
       66                            *
       67                            *  PROGRAM PREREQUISITES
       68                            *  ----------------- NONE
       69                            *
       70                            *
       71                            *
       72                            *  RUN TIME
       73                            *                 FUNCTIONAL TESTS: 4.0 -5.0 MINUTES FOR ONE SUCCESSFUL
       74                            *                                   PASS ON ONE DEVICE.
       75                            *
       76                            *                 RANDOM EXERCISER: RUN TIME IS A FUNCTION OF THE
       77                            *                                   NUMBER OF DEVICES, SURFACE AREA
       78                            *                                   BEING TESTED,MEMORY SIZE, NUMBER OF
       79                            *                                   I/O CYCLES REQUIRED.
       80                            *                 UTILITY TEST:     0.2 - 0.6 MINUTES PER WRITE OR READ
       81                            *                                   PASS PER STORAGE UNIT. DEPENDING
       82                            *                                   ON MODEL NO., MEMORY SIZE,
       83                            *                                   AND THE SURFACE AREA BEING TESTED.
       84                            *  PROGRAM MEDIA
       85                            *                   80-COLUMN CARDS, 8 LEVEL PAPER TAPE OR MAGNETIC
       86                            *                   TAPE.
       87                            *
       88                            *  SOURCE LANGUAGE
       89                            *
       90                            *                   SIGMA 5/7 METASYMBOL
       91                            *
       92                            *  LOADING PROCEDURES
       93                            *  -------------------
       94                            *                    LOADING PROCEDURES IS DEFINED IN DIAGNOSTIC
       95                            *                    PROGRAM MONITOR MANUAL NO. 901649.
       96                            *                    A SUCCESSFUL LOAD OPERATION IS INDICATED BY:
       97                            *                    (1).  PRINTOUT ON OPTIONAL MESSAGE OUTPUT DEVICE
       98                            *                          SIGMA 9 HIGH-SPEED RAD IOP TEST
       99                            *                          PROGRAM 706200 MANUAL 901761
      100                            *
      101                            *  OPERATING PROCEDURES
      102                            *  --------------------
      103                            *
      104                            *  CONTROL OPTIONS
      105                            *                    PROGRAM CONTROL OPTIONS ARE SELECTED WITH THE
      106                            *                    PROCESSOR CONTROL PANEL SENSE SWITCHES 1,2,3,4 *A02
      107                            *
      108                            *     SSW1     SSW3
      109                            *   POSITION POSITION                OPTION
      110                            *
      111                            *    0 OR 1     0    THE PROGRAM COMES TO A WAIT AFTER FUNCTIONAL ERROR
      112                            *                    PRINTOUT(S) AND AFTER COMPLETION OF THE SELECTED
      113                            *                    TEST. CLEARING THE WAIT CAUSES PROGRAM LOOPING ON
      114                            *                    THE ERROR OR THE SELECTED TEST.
      115                            *                    INCREMENTING THE PROGRAM ADDRESS (PCP INSTRUCTION
      116                            *                    ADDRESS INCREMENT) BEFORE CLEARING THE WAIT CAUSES
      117                            *                    THE PROGRAM TO CONTINUE WITHOUT LOOPING.
      118                            *
      119                            *    0          1    THE PROGRAM CONTINUES WITHOUT WAIT AND WITHOUT
      120                            *                    FUNCTIONAL ERROR/TEST LOOPING.
      121                            *
      122                            *    1          1    THE PROGRAM PRINTS THE ERROR MESSAGE(S) AND LOOPS
      123                            *                    (WITHOUT WAITING) ON THE FUNCTIONAL ERROR-PRODUCING
      124                            *                    INSTRUCTION SEQUENCE. THE PROGRAM ALSO LOOPS
      125                            *                    (WITHOUT WAIT) ON SELECTED TESTS.
      126                            *
      127                            *                 IF SS2=1; INCONJUNCTION WITH SS1 AND SS3, THEN
      128                            *                 THE PROGRAM WILL LATCH UP AND LOOP ON THE FIRST ERROR
      129                            *                 DETECTED.  THIS ALLOWS FOR LOOPING ON INTERMITTENT
      130                            *                 ERRORS IN TST1.
      131                            *
      132                            *
      133                            *     SSW4
      134                            *   POSITION
      135                            *      0             THE PROGRAM PRINTS ALL MESSAGES
      136                            *
      137                            *      1             THE PROGRAM INHIBITS ALL MESSAGE PRINTOUTS.
      138                            *                    DPM MESSAGES CANNOT BE SUPPRESSED.
      139                            *                 IF SS4 IS = 1 AND THE ALARM (AUDIO) IS ON AND
      140                            *                 AN ERROR IS DETECTED BY TST1, THE PROGRAM WILL TURN
      141                            *                 ON THE AUDIO ALARM. THE ALARM IS TURNED OFF
      142                            *                 WHEN THE TEST DRIVER IS ENTERED.
      143                            *
      144                            *
      145                            *  TABLE OF DIRECTIVES
      146                            *
      147                            * THE DATA STATEMENT ASSOCIATED WITH EACH DIRECTIVE NAME PRODUCES A
      148                            * MEMORY ADDRESS IN THE MEMORY-CONTENTS-COLUMN WHICH CAN BE USED TO
      149                            * LOCATE THE PROGRAM CODING FOR THE DIRECTIVE. THE CODING FOR EACH
      150                            * DIRECTIVE IS PRECEDED BY A DESCRIPTION OF THE DIRECTIVES AND ITS
      151                            * PARAMETERS.
      152                            *
      153                            *
      154                            *    MNEMONIC            DESCRIPTION                 PARAMETER
      155                            *                                                               FORMAT
      156                            *
      157                            *     SYST  THE DIRECTIVE DESCRIBES SYSTEM ENVIRONMENT.       SYST,D1,
      158                            *                                                             D2,H3,H4,
      159                            *                 D1 XDS MODEL NUMBEL FOR THE HIGH-SPEED RAD IOP  D5-H15
      160                            *                 (D1 = 8680)
      161                            *                D2 REVISION NUMBER
      162                            *
      163                            *                H3 DIO ADDRESS FOR MAINTENANCE INTERFACE (0<=H3<=7F).
      164                            *
      165                            *                H4 I/O ADDRESS OF FIRST RIOP/STORAGE UNIT.
      166                            *                   (80<=H4<=1FFF)
      167                            *                D5 MODEL NUMBER OF FIRST STORAGE UNIT.
      168                            *                    (H5 = 7212)
      169                            *                H6 WRITE PROTECT SWITCH SETTINGS OF FIRST STORAGE UNIT.
      170                            *                   (H6 =  00D1D200D3D4  SEE FIG 1)
      171                            *                         D1D2 IF NOT =0, DENOTES ALL BANDS LESS
      172                            *                         THAN OR EQUAL TO BANDS PROTECTED BY THE
      173                            *                         WRITE PROTECT SWITCHES ARE PROGRAM PROTECTED.
      174                            *                    (FOR TST2 AND TST3 ONLY)                       *A02
      175                            *                         D3D4  IF NOT =0, DENOTES ALL BANDS EQUAL
      176                            *                               TO OR GREATER THAN THE BANDS
      177                            *                               PROTECTED BY THE WRITE PROTECT SWITCH
      178                            *                               ARE PROGRAM PROTECTED.
      179                            *                    (FOR TST2 AND TST3 ONLY)                       *A02
      180                            *                        EXAMPLES OF WRITE PROTECTION
      181                            *                        -----------------------------
      182                            *                        (1). H4 = 0F0       I/O ADDR OF THE RIOP/STOR U
      183                            *                             D5 = 7212      MODEL NO. OF STORAGE UNIT
      184                            *                            H6 = 00030012 THIS INDICATE THAT BANDS *A02
      185                            *                                            0 THRU 11 AND BANDS 44
      186                            *                                            THRU 63 WILL NOT BE TESTED
      187                            *                                            BECAUSE TO THE PROGRAM
      188                            *                                            THIS AREA IS ASSUMED TO BE
      189                            *                                            WRITE PROTECTED.
      190                            *
      191                            *                 H7 I/O ADDRESS OF SECOND RIOP/STORAGE UNIT
      192                            *
      193                            *                *
      194                            *                *
      195                            *                *
      196                            *
      197                            *                 H15 WRITE PROTECT SWITCH SETTINGS OF 4TH STORAGE UNIT
      198                            *
      199                            *
      200                            *
      201                            *                NO ATTEMPT WILL BE MADE TO READ/WRITE INTO WRITE
      202                            *                 PROTECTED AREA OF THE RAD'S DURING TST2 AND TST3  *A02
      203                            *                 BUT TST1 WILL TRY TO USE THESE AREAS. SO IT WILL  *A02
      204                            *                 BE NECESSARY TO SET H6, H9, H12 AND H15 = 0 BEFORE*A02
      205                            *                 TRYING TO RUN TST 1. WHENEVER THE PROTECTED       *A02
      206                            *                 BANDS ARE SPECIFIED BY H6, H9, H12, H15.
      207                            *                 ALSO ALL WRITE PROTECT SWITCHES MUST BE RESET     *A02
      208                            *                 BEFORE RUNNING TST1                               *A02
      209                            *
      210                            *                THE TEST VARIATION DIRECTIVE (SEEK) CAN ONLY FURTHER
      211                            *                LIMIT THE AREA OF THE RAD STORAGE UNIT WHICH IS
      212                            *                 NOT WRITE PROTECTED. (TST2 AND TST3 ONLY)         *A02
      213                            *
      214                            *
      215   01 00300    00000C47 03  TST0ADDR DATA     TST0
      216                            *         THE DIRECTIVE SELECTS THE COMPREHENSIVE TEST
      217                            *         CONSISTING OF FUNCTIONAL TEST (TEST 1 - N)
      218                            *         AND THE RANDOM EXERCISER.
      219                            *
      220                            *                 D1 = NUMBER OF ORDER SEQUENCES TO BE EXECUTED
      221                            *                      BY THE RANDOM EXERCISER. (IF D1 = 0, 5000
      222                            *                      ORDER SEQUENCES WILL BE ISSUED).
      223                            *
      224                            *                 D2 = RETRY COUNT FOR RANDOM EXERCISER.
      225                            *
      226                            *                 EXAMPLE: TST0,20000,2
      227                            *                 --------
      228                            *
      229                            *                          (1) THE FUNCTIONAL TEST WILL RUN
      230                            *                              ON ALL DEVICES IN SEQUENCES
      231                            *                              AS DESCRIBED BY 'SYST' DIRECTIVE.
      232                            *
      233                            *                          (2) THE RANDOM EXERCISER WILL DRIVE
      234                            *                              ALL DEVICES CONCURRENTLY UNTIL
      235                            *                              20000 ORDER SEQUENCES HAVE BEEN ISSUED,
      236                            *                              ANY FAILURE WILL BE RETRIED TWICE,
      237                            *
      238                            *
      239   01 00301    00000C6D 03  TST1ADDR DATA     TST1
      240                            *         THE DIRECTIVE SELECTS THE FUNCTIONAL TEST            TST1,D1,
      241                            *                                                              D2,D3*A02
      242                            *                 D1 = 0  ALL FUNCTIONAL SUB-TESTS ARE EXECUTED
      243                            *                 D1 > 0  THE NO. OF THE FIRST SUBTEST TO BE
      244                            *                         EXECUTED.
      245                            *
      246                            *                 D2 > 0  THE NO. OF THE LAST SUBTEST TO BE
      247                            *                         EXECUTED.
      248                            *
      249                            *                 D3 - NO. OF PASSES TO BE DONE ON EACH SUB-TEST.
      250                            *                      (0<D2<(X'80000000')
      251                            *                 EXAMPLES: TST1
      252                            *                 ---------
      253                            *                           RUN ALL FUNCTIONAL SUBTESTS ON ALL DEVICES
      254                            *                           DESCRIBED BY THE 'SYST' DIRECTIVE.
      255                            *
      256                            *                           TST1,40,45
      257                            *
      258                            *                           RUN FUNCTIONAL SUBTESTS 40 THRU 45 ON
      259                            *                           ALL DEVICES DESCRIBED BY THE 'SYST'
      260                            *                           DIRECTIVE.
      261                            *
      262   01 00302    000029F5 03  TST2ADDR DATA     TST2
      263                            *           THE DIRECTIVE SELECTS THE RANDOM EXERCISER TEST    TST2,D1,
      264                            *                                                              D2
      265                            *                 D1 = NUMBER OF CYCLES TO BE PERFORMED
      266                            *                      IF D1=0, 5000 ORDER SEQUENCES WILL BE ISSUED.
      267                            *                 D2 = NUMBER OF RETRIES ON AN ERROR, BEFORE
      268                            *                      GOING ON TO NEXT CYCLE.
      269                            *
      270                            *                 EXAMPLE: TST2,500,2
      271                            *                 --------
      272                            *                          THE RANDOM EXERCISER WILL DO CONCURRENTLY
      273                            *                          500 I/O OPERATIONS RANDOM TO THE DEVICES
      274                            *                          DESCRIBED BY THE 'SYST' DIRECTIVE.
      275                            *                          IF ANY I/O OPERATION FAILS IT WILL BE
      276                            *                          RETRIED UP TO THREE TIMES.
      277                            *
      278   01 00303    00002AF3 03  TST3ADDR DATA     TST3
      279                            *           THE DIRECTIVE SELECTS ONE UTILITY PROGRAM          TST3,D1,
      280                            *           D1 = 1  SURFACE TEST                         D2,D3,D4
      281                            *
      282                            *                 D2 = 0  WRITE AND READ (VERIFY DATA)
      283                            *                 D2 = 1  WRITE ONLY
      284                            *                 D2 = 2  READ ONLY (VERIFY DATA)
      285                            *                 D2 = 3  READ ONLY (NO DATA VERIFICATION)
      286                            *                 D2 = 4  CHECKWRITE
      287                            *
      288                            *                 D3 = NUMBER OF RETRIES ON AN ERROR
      289                            *
      290                            *                 D4 = NO. OF READS AFTER WRITE (D2=0 ONLY)
      291                            *
      292                            *                EXAMPLE: TST3,1,3,0
      293                            *                --------
      294                            *                          READ ALL THE SURFACE OF ALL UNITS DESCRIBED
      295                            *                          BY THE 'SYST' DIRECTIVE, NO RETRY ON ERROR.
      296                            *                          THIS TEST SHOULD BE USED IN CHECKING ERRORS
      297                            *                          FROM A RAD AFTER A SYSTEM CRASH BEFORE
      298                            *                          WRITING DATA WITH ANY TEST DIRECTIVE.
      299                            *
      300                            *
      301                            *                 EXAMPLE: TST3,1,0,3
      302                            *                 --------
      303                            *                          TEST THE SURFACE OF ALL UNITS DESCRIBED
      304                            *                          BY THE 'SYST' DIRECTIVE, BY FIRST
      305                            *                          WRITING AND THEN READING A PATTERN FOR
      306                            *                          THE UNITS.  RETRY WRITE OR READ
      307                            *                          OPERATION UNTIL SUCCESSFUL OR UNTIL THREE
      308                            *                          TRIES HAVE BEEN MADE.
      309                            *
      310                            *                 EXAMPLE: TST3,1,0,0,4
      311                            *                 -------
      312                            *                 WRITE ALL SURFACES DESCRIBED BY THE 'SYST'
      313                            *                 DIRECTIVE. READ EACH SURFACE FOUR TIMES.
      314                            *                 NO RETRIES ON ERROR.
      315                            *
      316   01 00304    00002921 03  DATAADDR DATA     :DATA  (DATA)
      317                            *           THE DIRECTIVE SELECTS THE PATTERN TYPE USED BY     DATA,D1,
      318                            *           THE RAD UTILITY PROGRAM.                           H2,H3
      319                            *
      320                            *                 D1 = 0  FIXED PATTERN
      321                            *                 D1 = 1  INCREMENTAL PATTERN
      322                            *                 D1 = 2  RANDOM PATTERN
      323                            *                 D1 = 3  CURRENT SEEK ADDRESS
      324                            *                 H2 =    PATTERN SEED (D1 =0,1,2)
      325                            *                 H3 =    INCREMENTING CONSTANT (D1 = 1 ONLY)
      326                            *
      327                            *                 EXAMPLES: DATA,2,31415926
      328                            *                 ---------
      329                            *                          GENERATE RANDOM PATTERN
      330                            *
      331                            *                           DATA,1,00010203,04040404
      332                            *
      333                            *                           GENERATE INCREMENTAL PATTERN
      334                            *                           OF '000102030405060708....FCFDFEFF...'
      335                            *
      336                            *
      337   01 00305    00002934 03  SEEKADD  DATA     SEEK
      338                            *           THIS DIRECTIVE DEFINES THE STARTING BAND         SEEK,D1,
      339                            *           AND SECTOR ADDRESS, THE ENDING BAND AND          D2,D3,
      340                            *           SECTOR ADDRESS.                                  D4
      341                            *
      342                            *                 D1 =    THE STARTING BAND ADDRESS
      343                            *                 D2 =    THE STARTING SECTOR ADDRESS
      344                            *                 D3 =    THE ENDING BAND ADDRESS
      345                            *                 D4 =    THE ENDING SECTOR ADDRESS
      346                            *
      347                            *                 EXAMPLE: SEEK,1,4,7,5
      348                            *
      349                            *                          LIMIT THE USABLE SURFACE AREA, TO
      350                            *                           BEGAN AT BAND 1 SECTOR 4 AND
      351                            *                          END INCLUDING BAND 7 SECTOR 5.
      352                            *
      353   01 00306    0000296D 03  MEMADDR  DATA     :MEM (MEM)
      354                            *           THIS DIRECTIVE WILL ENABLE THE USER TO DEFINE A
      355                            *           MEMORY AREA THAT WILL BE USED BY 'TST2' AND 'TST3'
      356                            *           AS AN I/O BUFFER AREA.
      357                            *
      358                            *                 H1 - FIRST LOCATION OF I/O BUFFER AREA
      359                            *                 H2 - LAST LOCATION OF I/O BUFFER AREA
      360                            *
      361                            *                 EXAMPLE: MEM
      362                            *                 --------
      363                            *                        THE DIRECTIVE WILL REPORT 'SPECIFIED I/O
      364                            *                        AREA NOT AVAILABLE', AND THEN REPORT THE
      365                            *                        AREAS THAT ARE AVAILABLE.  THE MEMORY AREA
      366                            *                        BETWEEN THE DIAGNOSTIC AND THE DPM WILL BE
      367                            *                        ASSIGNED BY DEFAULT.
      368                            *
      369                            *                 EXAMPLE: MEN,5000,C000
      370                            *                 --------
      371                            *                 MEMORY AREA FROM 5000 TO C000 WILL BE ASSIGNED
      372                            *                 AS AN I/O BUFFER AREA.
      373                            *
      374   01 00307    000029AB 03  LM1TADDR DATA     LIMT
      375                            *           THIS DIRECITVE ALLOWS THE USER TO LIMIT PROGRAM
      376                            *           PRINTOUTS.
      377                            *
      378                            *                 D1=1 LIMIT COMPARE ERROR PRINTOUTS/SECTOR TO
      379                            *                      THE VALUE EXPRESSED BY D2.
      380                            *                 D2= 0 PRINTOUT WILL NOT BE LIMITED.
      381                            *                 D2>0 PRINTOUT WILL BE LIMITED TO D2 SETS OF
      382                            *                 EXPECTED AND OBSERVED DATA PER SECTOR.
      383                            *
      384                            *                 D1=2 PASS COUNT.
      385                            *                   D2=0 INHIBIT PRINT-OUT OF PASS COUNTER.
      386                            *                   D2>0 NUMBER OF PASSES AFTER WHICH ACCUMULATED
      387                            *                        PASS COUNT WILL PRINT OUT.
      388                            *                   D3=N TOTAL NUMBER OF PASSES TO BE COMPLETED
      389                            *              (0<D3<X'80000000')                                   *A02
      390                            *
      391                            *                 D1=3 MESSAGE PRINT LEVEL CONTROL.
      392                            *          D2=0 THRU 2
      393                            *            PROGRAM PRINTOUTS OCCUR ONLY IF AT LEAST ONE FAILURE IS
      394                            *            DETECTED DURING A SUBTEST OF TST1.
      395                            *
      396                            *            D2=0 MESSAGE LEVEL 0
      397                            *                 THE MESSAGES DESCRIBE ONLY THE FAILING PORTIONS
      398                            *                 OF A SUBTEST.
      399                            *
      400                            *            D2=1 MESSAGE LEVEL 1
      401                            *                 THE MESSAGES DESCRIBE THE ENTIRE SUBTEST WITH THE
      402                            *                 EXCEPTION OF SUCCESSFUL DIO OPERATIONS. THE FAILING
      403                            *                 AND SUCCESSFUL PORTIONS OF THE SUBTEST ARE ANNOTATED
      404                            *                 BY ***(ERROR)*** AND ***(DISPLAY)*** RESPECTIVELY.
      405                            *
      406                            *             D2=2 MESSAGE LEVEL 2
      407                            *                 SUCCESSFUL DIO OPERATIONS IN ADDITION TO ALL
      408                            *                 MESSAGES DESCRIBED UNDER D2=1 ARE PRINTED.
      409                            *
      410                            *
      411                            *        D2 = 3 OR 4                                                *A02
      412                            *             PROGRAM PRINTOUTS OCCUR UNCONDITIONALLY. AS PART OF
      413                            *             THE HEADING, SUCCESS OR FAILURE OF AN ENTIRE TESTING
      414                            *             SEQUENCE IS INDICATED BY ***(DISPLAY)*** AND ***(ERROR)***
      415                            *             RESPECTIVELY.
      416                            *
      417                            *             THIS FEATURE ALLOWS A USER TO OUTPUT A TESTING HISTORY.
      418                            *
      419                            *             D2=3 MESSAGE LEVEL 3
      420                            *                 THE MESSAGES DESCRIBE THE ENTIRE TESTING SEQUENCE.
      421                            *                 THE HEADING OF THE PRINTOUT INDICATES THE SUCCESS
      422                            *                 OR FAILURE OF THE SUBTEST.
      423                            *
      424                            *             D2=4 MESSAGE LEVEL 4
      425                            *                 THE MESSAGES DESCRIBE THE ENTIRE TESTING SEQUENCE.
      426                            *                 I/O AND DIO OPERATIONS ARE SIMULATED. THIS MESSAGE
      427                            *                 LEVEL SHOULD NOT BE USED FOR FINDING AND ISOLATING
      428                            *                 HARDWARE FAILURES.
      429                            *
      430                            *
      431                            *                 EXAMPLE: LIMT,1
      432                            *                 --------
      433                            *                 NO LIMIT PLACED ON COMPARE ERROR PRINTOUTS.
      434                            *
      435                            *                 EXAMPLE: LIMT,1,3
      436                            *                 -------
      437                            *                 COMPARE ERROR PRINTOUTS ARE LIMITED TO 3 PER
      438                            *                 SECTOR.
      439                            *
      440                            *                 EXAMPLE: LIMT,2,20,500
      441                            *                 --------
      442                            *                 PASS COUNT MESSAGE WILL PRINT OUT EVERY 20 PASSES
      443                            *                 UNTIL A TOTAL OF 500 PASSES HAVE BEEN COMPLETED.
      444                            *
      445                            *
      446                            *
      447                            *                 FIGURE 1
      448                            *                        WRITE PROTECTION
      449                            *                        MODEL 7212 ONLY
      450                            *                 PARAMETER FOR SYST DIRECTIVE
      451                            *                 (H6,H9,H12,H15 = 00D1D200D3D4)
      452                            *           D 1 D 2           *         *           D 3 D 4           *
      453                            *--------------*--------------*---------*--------------*--------------*
      454                            *LOW LIMIT     * THE FOLLOWING*  BAND   *UPPER LIMIT   *THE FOLLOWING *
      455                            *WRITE PROTECT * LOW LIMIT    *AVAILABLE*WRITE PROTECT *UPPER LIMIT   *
      456                            *SWITCH SPEC   * BANDS ARE    * (MODEL) *SWITCH SPEC   *BANDS ARE     *
      457                            *              * PROTECTED    *         *              *PROTECTED     *
      458                            *--------------*--------------*---------*--------------*--------------*
      459                            *     0        *  NONE        *       7 *      0       *  NONE        *
      460                            *     1        *  0-3         *       2 *      1       *  ALL         *
      461                            *     2        *  0-7         *       1 *      2       *   4-63       *
      462                            *     3        *  0-11        *       2 *      3       *   8-63       *
      463                            *     4        *  0-15        *       - *      4       *  12-63       *
      464                            *     5        *  0-19        *       - *      5       *  16-63       *
      465                            *     6        *  0-23        *       - *      6       *  20-63       *
      466                            *     7        *  0-27        *       - *      7       *  24-63       *
      467                            *     8        *  0-31        *       - *      8       *  28-63       *
      468                            *     9        *  0-35        *       - *      9       *  32-63       *
      469                            *    10        *  0-39        *       - *     10       *  36-63       *
      470                            *    11        *  0-43        *       - *     11       *  40-63       *
      471                            *    12        *  0-47        *       - *     12       *  44-63       *
      472                            *    13        *  0-51        *       - *     13       *  48-63       *
      473                            *    14        *  0-55        *       - *     14       *  52-63       *
      474                            *    15        *  0-59        *       - *     15       *  56-63       *
      475                            *    16        *  0-63        *       - *     16       *  60-63       *
      476                            *----------------------------------------------------------------------
      477                            *
      478                            * OPERATION MODE
      479                            *---------------
      480                            *
      481                            *            PROGRAM-OPERATOR COMMUNICATION IS ACCOMPLISHED BY
      482                            *            USING THE INPUT/OUTPUT DEVICE SPECIFIED BY
      483                            *            THE OPERATOR.
      484                            *
      485                            *            DIRECTIVES ARE ENTERED AND TEST INITIATED
      486                            *            THRU THE MESSAGE INPUT DEVICE (MID).
      487                            *
      488                            *            THE PROGRAM OUTPUTS MESSAGES THRU THE MESSAGE
      489                            *            OUTPUT DEVICE (MOD).
      490                            *
      491                            *            (REFER TO DIAGNOSTIC PROGRAM MONITOR  MANUAL 901649
      492                            *             FOR DESCRIPTION OF DIRECTIVES 'MID' AND 'MOD').
      493                            *
      494                            *
      495                            *
      496                            * START-RESTART PROCEDURE
      497                            *
      498                            * START     AFTER A SUCCESS LOAD, THE PROGRAM TITLE WILL BE
      499                            *           DISPLAY ON THE MESSAGE OUTPUT DEVICE AND THEN
      500                            *           CONTROL WILL BE RETURNED TO THE DPM.  DIRECTIVES
      501                            *            MAY BE INITIATED BY ENTERING THEM VIA THE MESSAGE INPUT
      502                            *           DEVICE (REFER TO DPM MANUAL FOR INITIATING PROCEDURE).
      503                            *            IF THE SYSTEM IS ANY OTHER CONFIGURATION THAN
      504                            *            A MODEL 8680 RIOP WITH A 7212 STORAGE UNIT, A I/O ADDRESS
      505                            *            OF X'3F0' AND A DIO ADDRESS OF X'01' THE 'SYST' DIRECTIVE
      506                            *           MUST BE ENTERED INITIALLY,TO DESCRIBE THE
      507                            *           HARDWARE CONFIGUATION TO BE TESTED.
      508                            *           ONCE ENTERED, THE 'SYST'DIRECTIVE NEED NOT BE REENTERED.
      509                            *           UNTIL THE SYSTEM CONFIGUATION TO BE TESTED IS ALTERED.
      510                            *
      511                            *
      512                            *                 *** WATCHDOG TIMER SWITCH MUST BE IN NORMAL ***
      513                            *
      514                            *
      515                            *
      516                            * RESTART
      517                            *
      518                            * RESTART OR RECOVERY MAY BE ACCOMPLISHED BY THE FOLLOWING PROCEDURE
      519                            *
      520                            *            1.  PRESSING THE CONTOL PANEL INTERRUPT SWITCH.
      521                            *
      522                            *            2.  A. PLACING THE COMPUTE SWITCH ON THE PCP TO 'IDLE'
      523                            *                B. PRESS THE 'SYST RESET' SWITCH ON THE PCP
      524                            *                C. PLACING THE COMPUTE SWITCH ON  THE PCP TO 'RUN'
      525                            *
      526                            *  TERMINATION INDICATION
      527                            *
      528                            *            THE TERMINATION OF A DIRECTIVE IS INDICATED WHEN
      529                            *            CONTROL IS RETURNED TO THE MESSAGE INPUT DEVICE.
      530                            *
      531                            *
      532                            *
      533                            * SUCCESS-FAILURE INDICATIONS
      534                            * ---------------------------
      535                            *
      536                            * WAITS     THE PROGRAM COMES TO A WAIT CONDITION:
      537                            *
      538                            *                 1. AFTER ERROR MESSAGE PRINTOUT DURING THE
      539                            *                    EXECUTION OF FUNCTIONAL TESTS (SSW3 = 0).
      540                            *
      541                            *                 2. AFTER THE COMPLETION OF A DIRECTIVE (SSW3 = 0).
      542                            *
      543                            *
      544                            *
      545                            * LOOPS           THE PROGRAM LOOPS ON AN INSTRUCTION SEQUENCE
      546                            *                 PRODUCED BY AN ERROR DURING FUNCTIONAL TEST
      547                            *                 EXECUTION (SSW1=1,SSW3=1) OR AT THE COMPLETION
      548                            *                 OF A DIRECTIVE (SSW1=1,SSW3=1).
      549                            *
      550                            *
      551                            *
      552                            *
      553                            * MESSAGE PRINTOUTS
      554                            *
      555                            *
      556                            *             1.  FUNCTIONAL TEST
      557                            *
      558                            *
      559                            *                 GENERAL FORMAT OF TST1 MESSAGES
      560                            *
      561                            *                 TST1 PRINTOUTS CONSIST OF THREE PARTS:
      562                            *
      563                            *                 1. HEADING
      564                            *
      565                            *                 2. TEST INFORMATION
      566                            *
      567                            *                 3. TERMINATION LINES
      568                            *
      569                            *
      570                            *                 PRINTOUTS ARE CONTROLLED BY MESSAGE LEVELS (SEE LIMT
      571                            *                 DIRECTIVE). WHEN THE DECISION IS MADE TO PRINT
      572                            *                 SUBTEST INFORMATION, HEADING AND TERMINATION LINES
      573                            *                 ARE UNCONDITIONALLY PRINTED.
      574                            *
      575                            *                 EXAMPLE
      576                            *                 -------
      577                            *
      578                            *                 EXPLANATION                ACTUAL MESSAGE
      579                            *
      580                            *                 1 DDDD-D=TEST CASE NO.     TST1 DDDD-D I/O ADDRESS XXX
      581                            *                 1 SUCCESS OR FAILURE INFOR ***(DISPLAY)*** OR
      582                            *                 1   FOR THE ENTIRE TEST    ***(ERROR)***
      583                            *
      584                            *                 1                          ----------------------
      585                            *
      586                            *                 1 DEFINED BY TEST CASE     'NAME OF TEST'
      587                            *                                            TEST OBJECTIVE: TO VERIFY
      588                            *                                            THAT
      589                            *                 1 DEFINED BY TEST CASE     'FUNCTION OF TEST'
      590                            *
      591                            *                 1 XXX=I/O INSTRUCTION      I/O OPERATION XXX,RR
      592                            *                   RR=GENERAL REGISTER
      593                            *
      594                            *                 1
      595                            *
      596                            *                 1
      597                            *
      598                            *                 2
      599                            *
      600                            *                 2           TEST INFORMATION MESSAGES (SEE BELOW)
      601                            *
      602                            *                 2
      603                            *
      604                            *                 3 DDDD-D TEST CASE NO.     ***END OF TST1 DDDD-D ***
      605                            *
      606                            *
      607                            *
      608                            *                 THE TEST INFORMATION IS CONTROLLED BY THE MESSAGE
      609                            *                 LEVEL. FAILURES ARE UNCONDITIONALLY PRINTED.
      610                            *                 ADDITIONAL INFORMATION IS PRINTED, IF THE MESSAGE
      611                            *                 LEVEL ASSOCIATED WITH A GROUP OF MESSAGES IS EQUAL
      612                            *                 TO OR LESS THAN THE MESSAGE LEVEL DEFINED BY THE
      613                            *                 LIMT DIRECTIVE, THE MESSAGES WILL BE DISPLAYED
      614                            *                 EVEN IF NO FAILURE WAS DETECTED BY THE
      615                            *                 ASSOCIATED TEST PORTION.
      616                            *
      617                            *                 TEST INFORMATION MESSAGES.
      618                            *
      619                            *                 THE FOLLOWING IS A DESCRIPTION OF VARIOUS GROUPS
      620                            *                 OF TESTS WITHIN A SUBTEST IN THE SEQUENCE IN
      621                            *                 WHICH THEY ARE USED.
      622                            *
      623                            *                 1. TRAP AND INTERRUPT MESSAGES
      624                            *                    MESSAGE LEVEL 1
      625                            *
      626                            *                    EXP TRAP/INTER=46 TCC=0000 ***(DISPLAY)***
      627                            *                    OBS
      628                            *                    TRAP/INTER=46 TCC=0000 REGSAVE=000077BB
      629                            *                    PSW1=200011CF PSW2=01000000
      630                            *
      631                            *
      632                            *                    EXP TRAP/INTER=NONE ***(ERROR)***
      633                            *                    OBS
      634                            *                    TRAP/INTER=57 TCC=0000 REGSAVE=0000F7BB
      635                            *                    PSW1=E0001526 PSW2=01000000
      636                            *                    MSW0=08000400 MSW1=90C00000 MSW2=00000020
      637                            *
      638                            *
      639                            *                 2. DIO OPERATION MESSAGES
      640                            *                    MESSAGE LEVEL 2
      641                            *
      642                            *                    DIO OPERATION ***(ERROR)***
      643                            *                    DIO STEP NO 001
      644                            *                    WRITE DIRECT DIO ADDRESS=01 GROUP 3
      645                            *                    EXP CC 34 = X X
      646                            *                    OBS CC 34 = 0 0
      647                            *                    DATA LINES = 00000005
      648                            *
      649                            *                    DIO STEP NO 002
      650                            *                    WRITE DIRECT DIO ADDRESS=01 GROUP 0
      651                            *                    EXP CC 34 = 0 0
      652                            *                    OBS CC 34 = 0 0
      653                            *                    DATA LINES = 83000000
      654                            *
      655                            *                    DIO STEP NO 003
      656                            *                    WRITE DIRECT DIO ADDRESS=01 GROUP 1
      657                            *                    EXP CC 34 = 0 1
      658                            *                    OBS CC 34 = 0 1
      659                            *                    DATA LINES = 00000007
      660                            *
      661                            *                    ETC.
      662                            *
      663                            *                    DIO STEP NO 011
      664                            *                    READ DIRECT DIO ADDRESS =01 STEP TI DELAY LINE
      665                            *                                                           GROUP 0
      666                            *                    EXP CC 34 = 0 1
      667                            *                    OBS CC 34 = 0 1
      668                            *                    DATA LINES = 8038FF80
      669                            *
      670                            *                    DIO STEP NO 012
      671                            *                    READ DIRECT DIO ADDRESS =01 GROUP 0
      672                            *                    EXP CC 34 = 0 0
      673                            *                    OBS CC 34 = 0 1
      674                            *
      675                            *
      676                            *                 3. INTERNAL REGISTER AND INDICATOR MESSAGES
      677                            *                    MESSAGE LEVEL 1
      678                            *
      679                            *                    REGISTER FULL INDICATORS ***(ERROR)***
      680                            *                        MFULL HFULL IFULL JFULL KFULL
      681                            *                    EXP   1     1     1     1     0
      682                            *                    OBS   0     0     0     0     0
      683                            *
      684                            *                    PROCESSOR FUNCTION CODES ***(DISPLAY)***
      685                            *                        PBFNC0 PBFNC1 PBFNC2
      686                            *                    EXP   0      0      0
      687                            *                    OBS   0      0      0
      688                            *
      689                            *                    PHASE ***(DISPLAY)***
      690                            *                            0 1 2 3 4 5 10 11 12 20 30 M:DATA M:IN BUSY
      691                            *                    EXP     0 0 1 0 0 0  0  0  0  0  0   0     1     0
      692                            *                    OBS     0 0 1 0 0 0  0  0  0  0  0   0     1     0
      693                            *
      694                            *
      695                            *                 4. I/O INSTRUCTION STATUS MESSAGES
      696                            *                    MESSAGE LEVEL 1
      697                            *
      698                            *                    I/O COMPARE ***(ERROR)***
      699                            *                    TIO BUSY RIOP
      700                            *                    TIO INSTR  0123 4567 8901 2345 CC1,2,3
      701                            *                    EXP STATUS 0000 0000 0000 0000   0 1 0
      702                            *                    OBS STATUS 0000 0000 0000 0000   1 0 0
      703                            *
      704                            *
      705                            *                 5. DATA COMPARISON MESSAGES
      706                            *                    MESSAGE LEVEL 1
      707                            *
      708                            *                    PATTERN COMPARE - NO ERROR
      709                            *
      710                            *                    SEE LIMT DIRECTIVE (D1=1) FOR LIMITING DATA
      711                            *                    COMPARISON PRINTOUTS.
      712                            *
      713                            *
      714                            *
      715                            *             2.  RANDOM EXERCISOR AND UTILITY TESTS.
      716                            *
      717                            *                    ALL MESSAGES ARE SELF EXPLANETORY.
      718                            *
      719                            *             3.  DPM ERROR MESSAGES ARE DEFINED IN THE
      720                            *                 DPM MANUAL.
      721                            *
      722                            *
      723                            * PROGRAM TEST DESCRIPTION
      724                            *-------------------------
      725                            *           THE FOLLOWING IS A DESCRIPTION OF THE TESTS CONTAINED
      726                            *           IN THE RAD TEST PROGRAM.  OPERATOR INTERVENTION
      727                            *           (WHERE REQUIRED) IS ALSO DESCRIBED.
      728                            *
      729                            * COMPREHENSIVE TEST (TST0)
      730                            *
      731                            *            THE COMPREHENSIVE TEST CONSISTS OF THE FUNCTIONAL
      732                            *            TEST AND THE RANDOM EXERCISER TEST.
      733                            *
      734                            * FUNCTIONAL TEST (TST1)
      735                            *
      736                            *            THE FUNCTIONAL TEST PERFORMS A SYSTEMATIC TEST OF
      737                            *            ALL LOGIC FUNCTIONS OF THE HIGH SPEEED RAD IOP AND ALL
      738                            *            STORAGE UNITS SPECIFIED BY THE 'SYST' DIRECTIVE.
      739                            *            THE FUNCTIONAL TEST CONSISTS OF A NUMBER OF
      740                            *            SUBTESTS WHICH MAY BE SELECTED INDIVIDUALLY OR
      741                            *            IN GROUPS.
      742                            *
      743                            *            WHEN A FAULT HAS BEEN DETECTED. AUTOMATIC ERROR
      744                            *            LOOPING THRU SENSE SWITCH CONTROL IS IMPLEMENTED
      745                            *            WHEN EVER POSSIBLE. ERROR LOOPING WILL NOT BE
      746                            *            PREFORMED IF THE CAUSE OF THE FAULT IS A FLAW IN
      747                            *            THE RECORDING MEDIA.
      748                            *
      749                            *            FOR A DESCRIPTION OF THE INDIVIDUAL SUBTESTS REFER
      750                            *            TO THE FUNCTIONAL TEST SECTION IN THE PROGRAM
      751                            *            LISTING. EACH SUBTEST IS PRECEDED BY A TEST
      752                            *            DESCRIPTION.
      753                            *
      754                            * RANDOM EXERCISER (TST2)
      755                            *
      756                            *           THIS DIRECTIVE PROVIDES A MEANS OF OPERATING A RAD
      757                            *           STORAGE SYSTEM WITH PSEUDO RANDOM, STORAGE UNIT
      758                            *           SELECTION, ORDER SEQUENCE, DATA PATTERN, AND I/O AREAS,
      759                            *           FOR THE PURPOSE OF DETECTING INTERMITTENT FAILURES.
      760                            *           THE RECORDING MEDIA IS INITIALIZED WITH A PSEUDO
      761                            *           RANDOM PATTERN BEFORE THE EXERCISER PORTION OF THE TEST
      762                            *           AND VERIFIED AT THE COMPLETION OF THE TEST.
      763                            *           SPECIFIED NUMBER OF PASSES OR UNTIL TERMINATED BY
      764                            *           OPERATOR INTERVENTION.  THE RANDOM EXERCISER PROVIDES FOR
      765                            *           A RETRY ON ERROR,BUT NO CONTINUOUS LOOPING ON ERROR WILL
      766                            *           BE DONE.  THIS DIRECTIVE WILL EXERCISE ALL DEVICES
      767                            *           DESCRIBED BY THE 'SYST' DIRECTIVE.
      768                            *
      769                            *
      770                            *
      771                            * UTILITY TEST (TST3)
      772                            *
      773                            *           THIS DIRECTIVE PROVIDES THE USER A MEANS OF TESTING
      774                            *           A DEVICE(S) SURFACE AREA WITH A WRITE/READ, A WRITE,
      775                            *           A READ WITH DATA VERIFICATION, A READ WITHOUT DATA
      776                            *           VERIFICATION AND A CHECKWRITE OPERATION.
      777         00000000           R0       EQU      0
      778         00000001           R1       EQU      1
      779         00000002           R2       EQU      2
      780         00000003           R3       EQU      3
      781         00000004           R4       EQU      4
      782         00000005           R5       EQU      5
      783         00000006           R6       EQU      6
      784         00000007           R7       EQU      7
      785         00000008           R8       EQU      8
      786         00000009           R9       EQU      9
      787         0000000A           R10      EQU      X'A'
      788         0000000B           R11      EQU      X'B'
      789         0000000C           R12      EQU      X'C'
      790         0000000D           R13      EQU      X'D'
      791         0000000E           R14      EQU      X'E'
      792         0000000F           R15      EQU      X'F'
      793   01 00200                          ORG      X'200'
            01 00200
      794                            *
      795                            *
      796                            *
      797                                     OPEN     PAGE              THIS INHIBITS
      798         00000000           PAGE     CNAME                      PAGE
      799                                     PROC                       DIRECTIVE
      800                                     PEND                       TO PERMIT MAX-LINE/PAGE
      801                            *
      802                            * PROCEDURE
      803                            *
      804                        *S* :TSEQ    CNAME
      805                        *S*          PROC
      806                        *S* LF       EQU      %
      807                        *S* I        SET 1
      808                        *S*          DO       NUM(AF)/4+1
      809                        *S*          GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
      810                        *S* I        SET      I+4
      811                        *S*          FIN
      812                        *S*          PEND
      813                            *
      814                            *                                                                   *A02
      815                            * PROCEDURE FOR GENERATING NEW OR OLD VERSION OF THIS PROGRAM       *A02
      816                            *                                                                   *A02
      817         00000000           WAITPROC CNAME                                                      *A02
      818                                     PROC                                                       *A02
      819                                     GOTO,DPM OLD,NEWP                                          *A02
      820                            OLD      SET X                                                      *A02
      821                            LF       WAIT     %                 OLD VERSION                     *A02
      822                                     B        %+1                                               *A02
      823                                     GOTO     WAITPRO1                                          *A02
      824                            NEWP     SET 1                                                      *A02
      825                            LF       BAL,15   *:MLT+43          NEW VERSION                     *A02
      826                                     DATA     AF(1)                                             *A02
      827                            WAITPRO1 PEND                                                       *A02
      828                            *
      829                            *        PROCEDURE
      830                            *
      831                        *S* :TSEQEQU CNAME
      832                        *S*          PROC
      833                        *S* LF(1)    EQU      AF(1)
      834                        *S* LF(2)    EQU      AF(1)+1
      835                        *S* LF(3)    EQU      AF(1)+2
      836                        *S* LF(4)    EQU      AF(1)+3
      837                        *S* LF(5)    EQU      AF(1)+4
      838                        *S* LF(6)    EQU      AF(1)+5
      839                        *S* LF(7)    EQU      AF(1)+6
      840                        *S* LF(8)    EQU      AF(1)+7
      841                        *S*          PEND
      842                            *
      843                            *  PROCEDURES
      844                            *  ----------
      845                            *
      846                            *  PROCEDURE  FOR GENERATING DICTONARY DOUBLE WORDS
      847                            *
      848         00000000           :PROCDIC CNAME
      849                                     PROC
      850                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      851                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
      852                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
      853                                     PEND
      854                            *
      855                            *
      856                            ** ***************************************************************
      857                            ** ***************************************************************
      858                            ** *     TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
      859                            ** *     THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
      860                            ** *
      861                            ** *
      862                            ** *     METHOD:
      863                            ** *              1. USE 'REV' AS A COMMAND, IT OPERATES
      864                            ** *               SIMILAR TO A TEXTC DIRECTIVE.
      865                            ** *              2. A LABEL OF '' REVISION'' MUST BE USED
      866                            ** *               WITH THE FIRST CALL OF '' REV''.
      867                            ** *              3. A LABEL OF ''REVEND'' MUST BE USED WITH
      868                            ** *               THE LAST CALL OF ''REV''.
      869                            ** *
      870                            ** *
      871                            ** *
      872                            ** *
      873                            ** *     WHEN USED CORRECTLY '' REV'' WILL GENERATE ALL OF THE
      874                            ** *     NECCESSARY CODE TO TYPE THE REVISIONS MADE.
      875                            ** AN EXAMPLE OF USE WOULD BE:
      876                            **          CSECT
      877                            **          ORG    X'(A LOCATION PAST THE LAST LITERAL)'
      878                            ** REVISION REV   'REVISION XXX'
      879                            ** REVEND   REV   'NO CHANGES TO THE OPERATING PROCEDURES'
      880                            ** *        USECT     (PREVIOUSLY DEFINED LABEL)
      881                            ** NOTE!!! THIS PROCEDURE GENERATES 2 MORE LITERALS.
      882                            ** **************************************************************
      883                            ** **************************************************************
      884         00000000           REVCOUNT SET      0
      885         00000000           REVSTART SET      0
      886                            *
      887         00000000           REV      CNAME
      888                                     PROC
      889                                     DO       REVCOUNT=0
      890                            REVSTART SET      %
      891                            LF       RES      1
      892                                     FIN
      893                            REVCOUNT SET      REVCOUNT+1
      894                                     DO       SCOR(LF,REVEND)
      895                                     TEXTC    AF
      896                                     CODE
      897                                     ORG      REVSTART
      898                                     GEN,32   REVCOUNT
      899                                     ELSE
      900                                     TEXTC    AF
      901                                     FIN
      902                                     PEND
      903                            *
      904         00000000           CODE     CNAME
      905                                     PROC
      906                            REVPRINT LW,3     REVISON
      907                                     LW,4     =REVISON+1
      908                                     STW,4    TEXTADR
      909                            PRINT    BAL,15   *:PRINT
      910                            TEXTADR  DATA     0
      911                                     LB,5     *4
      912                                     AI,5     4
      913                                     SLS,5    -2
      914                                     AW,4     5
      915                                     BDR,3    PRINT-1
      916                                     LW,4     NOP
      917                                     STW,4    REVBRNCH
      918                                     B        *%-1
      919                            NOP      NOP
      920                                     PEND
      921                            *
      922                            *
      923                            *************************************************************
      924                            *************************************************************
      925                            ************   REVISIONS GO HERE*****************************
      926                            *************************************************************
      927   02 00000                          CSECT
      928   02 03100                          ORG      X'3100'
            02 03100
      929   02 03101    2DE3D640 A   REVISON  REV      'TO INHIBIT PRINT-OUT OF THIS MESSAGE, SET SS4'
            02 03102    C9D5C8C9 A
            02 03103    C2C9E340 A
            02 03104    D7D9C9D5 A
            02 03105    E360D6E4 A
            02 03106    E340D6C6 A
            02 03107    40E3C8C9 A
            02 03108    E240D4C5 A
            02 03109    E2E2C1C7 A
            02 0310A    C56B40E2 A
            02 0310B    C5E340E2 A
            02 0310C    E2F44040 A
      930   02 0310D    34E3C5E2 A            REV      'TEST ENVIRONMENT DEFINITION WITH THE SYST DIRECTIVE:'
            02 0310E    E340C5D5 A
            02 0310F    E5C9D9D6 A
            02 03110    D5D4C5D5 A
            02 03111    E340C4C5 A
            02 03112    C6C9D5C9 A
            02 03113    E3C9D6D5 A
            02 03114    40E6C9E3 A
            02 03115    C840E3C8 A
            02 03116    C540E2E8 A
            02 03117    E2E340C4 A
            02 03118    C9D9C5C3 A
            02 03119    E3C9E5C5 A
            02 0311A    7A404040 A
      931   02 0311B    224040E2 A            REV      '  SYST,M,R,D,A1,M1,L1-----A4,M4,L4'
            02 0311C    E8E2E36B A
            02 0311D    D46BD96B A
            02 0311E    C46BC1F1 A
            02 0311F    6BD4F16B A
            02 03120    D3F16060 A
            02 03121    606060C1 A
            02 03122    F46BD4F4 A
            02 03123    6BD3F440 A
      932   02 03124    2E4040E4 A            REV      '  UP TO 4 DEVICES CAN BE DEFINED WITH THE SYST'
            02 03125    D740E3D6 A
            02 03126    40F440C4 A
            02 03127    C5E5C9C3 A
            02 03128    C5E240C3 A
            02 03129    C1D540C2 A
            02 0312A    C540C4C5 A
            02 0312B    C6C9D5C5 A
            02 0312C    C440E6C9 A
            02 0312D    E3C840E3 A
            02 0312E    C8C540E2 A
            02 0312F    E8E2E340 A
      933   02 03130    2E4040C4 A            REV      '  DIRECTIVE. EACH DEVICE REQUIRES AN A,M,AND L'
            02 03131    C9D9C5C3 A
            02 03132    E3C9E5C5 A
            02 03133    4B40C5C1 A
            02 03134    C3C840C4 A
            02 03135    C5E5C9C3 A
            02 03136    C540D9C5 A
            02 03137    D8E4C9D9 A
            02 03138    C5E240C1 A
            02 03139    D540C16B A
            02 0313A    D46BC1D5 A
            02 0313B    C440D340 A
      934   02 0313C    0B4040D7 A            REV      '  PARAMETER'
            02 0313D    C1D9C1D4 A
            02 0313E    C5E3C5D9 A
      935   02 0313F    184040D4 A            REV      '  M= RIOP MODEL NO. 8680'
            02 03140    7E40D9C9 A
            02 03141    D6D740D4 A
            02 03142    D6C4C5D3 A
            02 03143    40D5D64B A
            02 03144    40F8F6F8 A
            02 03145    F0404040 A
      936   02 03146    1A4040D9 A            REV      '  R= RIOP REVISION NO. = 0'
            02 03147    7E40D9C9 A
            02 03148    D6D740D9 A
            02 03149    C5E5C9E2 A
            02 0314A    C9D6D540 A
            02 0314B    D5D64B40 A
            02 0314C    7E40F040 A
      937   02 0314D    104040C4 A            REV      '  D= DIO ADDRESS'
            02 0314E    7E40C4C9 A
            02 0314F    D640C1C4 A
            02 03150    C4D9C5E2 A
            02 03151    E2404040 A
      938   02 03152    1C4040C1 A            REV      '  A(1) THRU A(4) I/O ADDRESS'
            02 03153    4DF15D40 A
            02 03154    E3C8D9E4 A
            02 03155    40C14DF4 A
            02 03156    5D40C961 A
            02 03157    D640C1C4 A
            02 03158    C4D9C5E2 A
            02 03159    E2404040 A
      939   02 0315A    2D4040D4 A            REV      '  M(1) THRU M(4) STORAGE UNIT MODEL NO. =7212'
            02 0315B    4DF15D40 A
            02 0315C    E3C8D9E4 A
            02 0315D    40D44DF4 A
            02 0315E    5D40E2E3 A
            02 0315F    D6D9C1C7 A
            02 03160    C540E4D5 A
            02 03161    C9E340D4 A
            02 03162    D6C4C5D3 A
            02 03163    40D5D64B A
            02 03164    407EF7F2 A
            02 03165    F1F24040 A
      940   02 03166    2F4040D3 A            REV      '  L(1) THRU L(4) = 0 - ALL BANDS WILL BE TESTED'
            02 03167    4DF15D40 A
            02 03168    E3C8D9E4 A
            02 03169    40D34DF4 A
            02 0316A    5D407E40 A
            02 0316B    F0406040 A
            02 0316C    C1D3D340 A
            02 0316D    C2C1D5C4 A
            02 0316E    E240E6C9 A
            02 0316F    D3D340C2 A
            02 03170    C540E3C5 A
            02 03171    E2E3C5C4 A
      941   02 03172    1BD9C5E5 A            REV      'REVISION A04     (02-19-73)'                     *A04
            02 03173    C9E2C9D6 A
            02 03174    D540C1F0 A
            02 03175    F4404040 A
            02 03176    40404DF0 A
            02 03177    F260F1F9 A
            02 03178    60F7F35D A
      942   02 03179    29D4D6C4 A            REV      'MODIFIED TEST1,38 TO RUN ON A SYSTEM WITH'       *A04
            02 0317A    C9C6C9C5 A
            02 0317B    C440E3C5 A
            02 0317C    E2E3F16B A
            02 0317D    F3F840E3 A
            02 0317E    D640D9E4 A
            02 0317F    D540D6D5 A
            02 03180    40C140E2 A
            02 03181    E8E2E3C5 A
            02 03182    D440E6C9 A
            02 03183    E3C84040 A
      943   02 03184    2AD6E5C5 A            REV      'OVER 128K OF MEMORY (TARS 25334 AND 13407)'      *A04
            02 03185    D940F1F2 A
            02 03186    F8D240D6 A
            02 03187    C640D4C5 A
            02 03188    D4D6D9E8 A
            02 03189    404DE3C1 A
            02 0318A    D9E240F2 A
            02 0318B    F5F3F3F4 A
            02 0318C    40C1D5C4 A
            02 0318D    40F1F3F4 A
            02 0318E    F0F75D40 A
      944   02 0318F    17D9C5E5 A            REV      'REVISION A03 (03-01-72)'                         *A03
            02 03190    C9E2C9D6 A
            02 03191    D540C1F0 A
            02 03192    F3404DF0 A
            02 03193    F360F0F1 A
            02 03194    60F7F25D A
      945   02 03195    2C4040D4 A            REV      '  MODIFIED TESTS 90, 92, 93, 94 TO ALLOW THE'    *A03
            02 03196    D6C4C9C6 A
            02 03197    C9C5C440 A
            02 03198    E3C5E2E3 A
            02 03199    E240F9F0 A
            02 0319A    6B40F9F2 A
            02 0319B    6B40F9F3 A
            02 0319C    6B40F9F4 A
            02 0319D    40E3D640 A
            02 0319E    C1D3D3D6 A
            02 0319F    E640E3C8 A
            02 031A0    C5404040 A
      946   02 031A1    2A4040D9 A            REV      '  RIOP TEST TO RUN WITHOUT ERROR FOLLOWING'      *A03
            02 031A2    C9D6D740 A
            02 031A3    E3C5E2E3 A
            02 031A4    40E3D640 A
            02 031A5    D9E4D540 A
            02 031A6    E6C9E3C8 A
            02 031A7    D6E4E340 A
            02 031A8    C5D9D9D6 A
            02 031A9    D940C6D6 A
            02 031AA    D3D3D6E6 A
            02 031AB    C9D5C740 A
      947   02 031AC    2B4040E3 A            REV      '  THE INSTALLATION OF MODIFICATION G IN THE'     *A03
            02 031AD    C8C540C9 A
            02 031AE    D5E2E3C1 A
            02 031AF    D3D3C1E3 A
            02 031B0    C9D6D540 A
            02 031B1    D6C640D4 A
            02 031B2    D6C4C9C6 A
            02 031B3    C9C3C1E3 A
            02 031B4    C9D6D540 A
            02 031B5    C740C9D5 A
            02 031B6    40E3C8C5 A
      948   02 031B7    2F4040D9 A            REV      '  RIOP.  THE RIOP MUST BE AT REV. G OR ABOVE TO' *A03
            02 031B8    C9D6D74B A
            02 031B9    4040E3C8 A
            02 031BA    C540D9C9 A
            02 031BB    D6D740D4 A
            02 031BC    E4E2E340 A
            02 031BD    C2C540C1 A
            02 031BE    E340D9C5 A
            02 031BF    E54B40C7 A
            02 031C0    40D6D940 A
            02 031C1    C1C2D6E5 A
            02 031C2    C540E3D6 A
      949   02 031C3    254040D9 A            REV      '  RUN THIS TEST WITH NO ERROR OUTPUT.'           *A03
            02 031C4    E4D540E3 A
            02 031C5    C8C9E240 A
            02 031C6    E3C5E2E3 A
            02 031C7    40E6C9E3 A
            02 031C8    C840D5D6 A
            02 031C9    40C5D9D9 A
            02 031CA    D6D940D6 A
            02 031CB    E4E3D7E4 A
            02 031CC    E34B4040 A
      950   02 031CD    2F40C9D5 A            REV      ' INSTALLED MEMORY CLOCK MARGIN TEST AND WARNING' *A03
            02 031CE    E2E3C1D3 A
            02 031CF    D3C5C440 A
            02 031D0    D4C5D4D6 A
            02 031D1    D9E840C3 A
            02 031D2    D3D6C3D2 A
            02 031D3    40D4C1D9 A
            02 031D4    C7C9D540 A
            02 031D5    E3C5E2E3 A
            02 031D6    40C1D5C4 A
            02 031D7    40E6C1D9 A
            02 031D8    D5C9D5C7 A
      951   02 031D9    2940C9C6 A            REV      ' IF THE PROGRAM IS STARTED WITH ANY CLOCK'       *A03
            02 031DA    40E3C8C5 A
            02 031DB    40D7D9D6 A
            02 031DC    C7D9C1D4 A
            02 031DD    40C9E240 A
            02 031DE    E2E3C1D9 A
            02 031DF    E3C5C440 A
            02 031E0    E6C9E3C8 A
            02 031E1    40C1D5E8 A
            02 031E2    40C3D3D6 A
            02 031E3    C3D24040 A
      952   02 031E4    2840D4C1 A            REV      ' MARGINS SET IN THE FIRST 128K OF MEMORY'        *A03
            02 031E5    D9C7C9D5 A
            02 031E6    E240E2C5 A
            02 031E7    E340C9D5 A
            02 031E8    40E3C8C5 A
            02 031E9    40C6C9D9 A
            02 031EA    E2E340F1 A
            02 031EB    F2F8D240 A
            02 031EC    D6C640D4 A
            02 031ED    C5D4D6D9 A
            02 031EE    E8404040 A
      953   02 031EF    17D9C5E5 A            REV      'REVISION A02 (11/27/71)'                         *A02
            02 031F0    C9E2C9D6 A
            02 031F1    D540C1F0 A
            02 031F2    F2404DF1 A
            02 031F3    F161F2F7 A
            02 031F4    61F7F15D A
      954   02 031F5    2AF24B40 A            REV      '2. ADDED TO DOCUMENTATION, A LIMIT TO, THE'      *A02
            02 031F6    C1C4C4C5 A
            02 031F7    C440E3D6 A
            02 031F8    40C4D6C3 A
            02 031F9    E4D4C5D5 A
            02 031FA    E3C1E3C9 A
            02 031FB    D6D56B40 A
            02 031FC    C140D3C9 A
            02 031FD    D4C9E340 A
            02 031FE    E3D66B40 A
            02 031FF    E3C8C540 A
      955   02 03200    2F404040 A            REV      '   SOFTWARE WRITE PROTECT FEATURE OF THE  SYST.' *A02
            02 03201    E2D6C6E3 A
            02 03202    E6C1D9C5 A
            02 03203    40E6D9C9 A
            02 03204    E3C540D7 A
            02 03205    D9D6E3C5 A
            02 03206    C3E340C6 A
            02 03207    C5C1E3E4 A
            02 03208    D9C540D6 A
            02 03209    C640E3C8 A
            02 0320A    C54040E2 A
            02 0320B    E8E2E34B A
      956   02 0320C    2D404040 A            REV      '   THE WRITE PROTECT NOW ONLY APPLIES TO TST2'   *A02
            02 0320D    E3C8C540 A
            02 0320E    E6D9C9E3 A
            02 0320F    C540D7D9 A
            02 03210    D6E3C5C3 A
            02 03211    E340D5D6 A
            02 03212    E640D6D5 A
            02 03213    D3E840C1 A
            02 03214    D7D7D3C9 A
            02 03215    C5E240E3 A
            02 03216    D640E3E2 A
            02 03217    E3F24040 A
      957   02 03218    2A404040 A            REV      '   AND TST3. ALSO CORRECTED ERROR IN  SYST'      *A02
            02 03219    C1D5C440 A
            02 0321A    E3E2E3F3 A
            02 0321B    4B40C1D3 A
            02 0321C    E2D640C3 A
            02 0321D    D6D9D9C5 A
            02 0321E    C3E3C5C4 A
            02 0321F    40C5D9D9 A
            02 03220    D6D940C9 A
            02 03221    D54040E2 A
            02 03222    E8E2E340 A
      958   02 03223    2A404040 A            REV      '   DIRECTIVE ASSIOCATED WITH THIS FEATURE.'      *A02
            02 03224    C4C9D9C5 A
            02 03225    C3E3C9E5 A
            02 03226    C540C1E2 A
            02 03227    E2C9D6C3 A
            02 03228    C1E3C5C4 A
            02 03229    40E6C9E3 A
            02 0322A    C840E3C8 A
            02 0322B    C9E240C6 A
            02 0322C    C5C1E3E4 A
            02 0322D    D9C54B40 A
      959   02 0322E    0E404040 A            REV      '   (TAR 12093)'                                  *A02
            02 0322F    4DE3C1D9 A
            02 03230    40F1F2F0 A
            02 03231    F9F35D40 A
      960   02 03232    28F34B40 A            REV      '3. ADDED TO TST1,150 A FEATURE TO CHECK '        *A02
            02 03233    C1C4C4C5 A
            02 03234    C440E3D6 A
            02 03235    40E3E2E3 A
            02 03236    F16BF1F5 A
            02 03237    F040C140 A
            02 03238    C6C5C1E3 A
            02 03239    E4D9C540 A
            02 0323A    E3D640C3 A
            02 0323B    C8C5C3D2 A
            02 0323C    40404040 A
      961   02 0323D    2B404040 A            REV      '   INCORRECT LENGTH ON A WRITE IF THE SKIP '     *A02
            02 0323E    C9D5C3D6 A
            02 0323F    D9D9C5C3 A
            02 03240    E340D3C5 A
            02 03241    D5C7E3C8 A
            02 03242    40D6D540 A
            02 03243    C140E6D9 A
            02 03244    C9E3C540 A
            02 03245    C9C640E3 A
            02 03246    C8C540E2 A
            02 03247    D2C9D740 A
      962   02 03248    1B404040 A            REV      '   FLAG IS SET. (TAR 11524)'                     *A02
            02 03249    C6D3C1C7 A
            02 0324A    40C9E240 A
            02 0324B    E2C5E34B A
            02 0324C    404DE3C1 A
            02 0324D    D940F1F1 A
            02 0324E    F5F2F45D A
      963   02 0324F    2FF44B40 A            REV      '4. ADDED TO TST1,134 A FEATURE THAT ALLOWS DATA' *A02
            02 03250    C1C4C4C5 A
            02 03251    C440E3D6 A
            02 03252    40E3E2E3 A
            02 03253    F16BF1F3 A
            02 03254    F440C140 A
            02 03255    C6C5C1E3 A
            02 03256    E4D9C540 A
            02 03257    E3C8C1E3 A
            02 03258    40C1D3D3 A
            02 03259    D6E6E240 A
            02 0325A    C4C1E3C1 A
      964   02 0325B    2D404040 A            REV      '   PATTERNS TO BE BUILD AND MOVED WITHIN TRAP'   *A02
            02 0325C    D7C1E3E3 A
            02 0325D    C5D9D5E2 A
            02 0325E    40E3D640 A
            02 0325F    C2C540C2 A
            02 03260    E4C9D3C4 A
            02 03261    40C1D5C4 A
            02 03262    40D4D6E5 A
            02 03263    C5C440E6 A
            02 03264    C9E3C8C9 A
            02 03265    D540E3D9 A
            02 03266    C1D74040 A
      965   02 03267    1E404040 A            REV      '   RECOVER OF THE TEST DRIVER.'                  *A02
            02 03268    D9C5C3D6 A
            02 03269    E5C5D940 A
            02 0326A    D6C640E3 A
            02 0326B    C8C540E3 A
            02 0326C    C5E2E340 A
            02 0326D    C4D9C9E5 A
            02 0326E    C5D94B40 A
      966   02 0326F    2DF54B40 A            REV      '5. ADDED CHANGE TO TST1,191 TO CORRECT ERROR.'   *A02
            02 03270    C1C4C4C5 A
            02 03271    C440C3C8 A
            02 03272    C1D5C7C5 A
            02 03273    40E3D640 A
            02 03274    E3E2E3F1 A
            02 03275    6BF1F9F1 A
            02 03276    40E3D640 A
            02 03277    C3D6D9D9 A
            02 03278    C5C3E340 A
            02 03279    C5D9D9D6 A
            02 0327A    D94B4040 A
      967   02 0327B    26404040 A            REV      '   TEST DIDNOT CHECK FOR WRITE PROTECT'          *A02
            02 0327C    E3C5E2E3 A
            02 0327D    40C4C9C4 A
            02 0327E    D5D6E340 A
            02 0327F    C3C8C5C3 A
            02 03280    D240C6D6 A
            02 03281    D940E6D9 A
            02 03282    C9E3C540 A
            02 03283    D7D9D6E3 A
            02 03284    C5C3E340 A
      968   02 03285    24404040 A            REV      '   VIOLATION CORRECTLY ON TDV STATUS'            *A02
            02 03286    E5C9D6D3 A
            02 03287    C1E3C9D6 A
            02 03288    D540C3D6 A
            02 03289    D9D9C5C3 A
            02 0328A    E3D3E840 A
            02 0328B    D6D540E3 A
            02 0328C    C4E540E2 A
            02 0328D    E3C1E3E4 A
            02 0328E    E2404040 A
      969   02 0328F    015C4040 A            REV      '*'
      970   02 03290    01404040 A   REVEND   REV      ' '
            02 03291    32303100
            02 03292    32403028 03
            02 03293    35403295
            02 03294    EAF0021C A
            02 03295    00000000 A
            02 03296    F2500004 A
            02 03297    20500004 A
            02 03298    2550007E A
            02 03299    30400005 A
            02 0329A    64303293
            02 0329B    3240329E
            02 0329C    35400BB6 03
            02 0329D    E800329C
            02 0329E    02000000 A
            02 03100    0000002A A
      971         00000002           DPM      EQU      2                                                 *A02
      972                            *
      973   02 03101                          USECT    TST1ADDR
      974                            *
      975                            *
      976                            *                 THESE LOC ARE USED ONLY BY THE ISSUE I/O ROUTINE
      977                            *
      978   00 00000                 TEMP1    ASECT
      979   00 00140                          ORG      X'140'
            00 00140
      980                                     BOUND    8
      981   00 00140    00000000 A   AIOSAVE  DATA     0,0
            00 00141    00000000 A
      982   00 00142    00000000 A   :REG0405 DATA     0,0
            00 00143    00000000 A
      983   00 00144    00000000 A   :REG1213 DATA     0,0
            00 00145    00000000 A
      984                            *
      985                            *
      986                            *
      987                            *
      988                            *
      989                            *
      990                            *                 THESE LOC ARE USED ONLY BY THE CLEAR ROUTINE
      991                            *
      992                                     BOUND    8
      993   00 00146    00000000 A   :CLRSAVE DATA     0,0,0
            00 00147    00000000 A
            00 00148    00000000 A
      994                            *                 THESE LOC ARE USEDBY COMPARE ROUTINE (ONLY)
      995                            *
      996                                     BOUND    8
      997   00 0014A    00000000 A   :COMSAVE DATA     0,0,0,0
            00 0014B    00000000 A
            00 0014C    00000000 A
            00 0014D    00000000 A
      998   00 0014E    00000000 A   :COMERRT DATA     0                 NO. OF ERRORS DURING COMPARE
      999   00 0014F    00000000 A   :BUFTOP  DATA     0                 ADDR OF LAST LOCATION IN BUFFER
     1000   00 00150    00000000 A   :COMIDPT DATA     0                 ADDR OF MIDDLE LOC. IN BUFFER
     1001   00 00151    00000000 A            DATA     0
     1002   00 00152    00000000 A   :COMPXT  DATA     0                 EXIT FROM COMPARE
     1003   00 00153    00000000 A   :COMADDR DATA     0                 I/O, BAND, SECTOR ADDR
     1004                            *
     1005                            *                 THESE LOC ARE USED ONLY BY THE ERROR REPORTER
     1006                            *
     1007   00 00154    00000000 A   SELTEMP  DATA     0                 PARTIAL INDEX
     1008   00 00155    00000000 A   SELPASS  DATA     0                 PASS FLAG
     1009   00 00156    00000000 A   SELMANY  DATA     0
     1010   00 00157                 #MSG00   RES      16                STORAGE OF REG 0 - 15
     1011                            *
     1012                            *                 NORMAL TABLE AREA
     1013                            *
     1014                            *
     1015   00 00167                 MSGBUF   RES      19
     1016   00 0017A                 MSGSAVE  RES      11
     1017   00 00185    00000000 A   MSGOUTX  DATA     0                 EXIT ADDR
     1018   00 00186    00000000 A   SENSEWD  DATA     0
     1019   00 00187    00000000 A   STEPSTAT DATA     0
     1020   00 00188    00000000 A   TABCOUNT DATA     0
     1021   00 00189    00000000 A   LINE     DATA     0
     1022   00 0018A    00000000 A   IOCDPS   DATA     0
     1023   00 0018B    00000000 A   IOCDPX   DATA     0
     1024   00 0018C    00000000 A   LISTEXIT DATA     0                 EXIT ADDR FROM A LIST
     1025   00 0018D    00000000 A   SENSLESS DATA     0                 SENSE RETURN ADDR
     1026   00 0018E    00000000 A   DIOPOINT DATA     0                 DIO LIST POINTER
     1027   00 0018F    00000000 A   SSAVE    DATA     0
     1028   00 00190    00000000 A   MSN013   DATA     0
     1029   00 00191    00000000 A   DLAYSAVE DATA     0
     1030   00 00192    00000000 A   IOTRAP   DATA     0
     1031   00 00193    00000000 A   CURRSKAD DATA     0
     1032         00 00194           MACHINET EQU      %
     1033   00 00194    00000000 A   STATMASK DATA     0
     1034   00 00195    00000000 A   CDW      DATA     0
     1035   00 00196    00000000 A   IOFIELD  DATA     0
     1036   00 00197    00000000 A   CDMASK   DATA     0
     1037         00 00198           MACHINE  EQU      %
     1038         00 00198           TLSTART  SET      %
     1039   00 00198    00000000 A   PLADR    DATA     0
     1040   00 00199    00000000 A   IOINSTR  DATA     0
     1041   00 0019A    00000000 A   ALADR    DATA     0
     1042   00 0019B    00000000 A   MSGADR   DATA     0
     1043   00 0019C    00000000 A   CLADR    DATA     0
     1044         00 0019D           TLEND    SET      %
     1045                            MASKSTART ;
     1046         00 0019D                    SET      %
     1047   00 0019D    00000000 A   DIODATA1 DATA     0
     1048   00 0019E    00000000 A            DATA     0
     1049   00 0019F    00000000 A            DATA     0
     1050   00 001A0    00000000 A            DATA     0
     1051   00 001A1    00000000 A            DATA     0
     1052   00 001A2    00000000 A            DATA     0
     1053   00 001A3    00000000 A            DATA     0
     1054   00 001A4    00000000 A            DATA     0
     1055   00 001A5    00000000 A   DIOMASK  DATA     0
     1056   00 001A6    00000000 A            DATA     0
     1057   00 001A7    00000000 A            DATA     0
     1058   00 001A8    00000000 A            DATA     0
     1059   00 001A9    00000000 A            DATA     0
     1060   00 001AA    00000000 A            DATA     0
     1061   00 001AB    00000000 A            DATA     0
     1062   00 001AC    00000000 A   MEMASK   DATA     0
     1063   00 001AD    00000000 A   LRMASK   DATA     0
     1064   00 001AE    00000000 A   PHSTMASK DATA     0
     1065   00 001AF    00000000 A   PHMASK   DATA     0
     1066   00 001B0    00000000 A   MRMASK   DATA     0
     1067   00 001B1    00000000 A   FNMASK   DATA     0
     1068   00 001B2    00000000 A   KRMASK   DATA     0
     1069   00 001B3    00000000 A   COUNTMSK DATA     0
     1070   00 001B4    00000000 A   FULLMASK DATA     0
     1071   00 001B5    00000000 A   BYCNTMSK DATA     0
     1072   00 001B6    00000000 A   BYPRMASK DATA     0
     1073   00 001B7    00000000 A   JKPRMASK DATA     0
     1074   00 001B8    00000000 A   FAMPRMSK DATA     0
     1075         00 001B9           MASKEND  SET      %
     1076   00 001B9    00000000 A   DASHNOER DATA     0                 DASH NO. IN ERROR
     1077   00 001BA    00000000 A   TST1LOOP DATA     0                 NO OF TIMES A SUB-TEST SHOULD RUN
     1078   00 001BB    00000000 A   GROUP0   DATA     0                 GROUP 0 READ DIRECT INFORMATION
     1079   00 001BC    00000000 A   GROUP1   DATA     0                 GROUP 1 READ DIRECT INFORMATION
     1080   00 001BD    00000000 A   GROUP2   DATA     0                 GROUP 2 READ DIRECT INFORMATION
     1081   00 001BE    00000000 A   GROUP3   DATA     0                 GROUP 3 READ DIRECT INFORMATION
     1082   00 001BF    00000000 A   GROUP4   DATA     0                 GROUP 4 READ DIRECT INFORMATION
     1083   00 001C0    00000000 A   GROUP5   DATA     0                 GROUP 5 READ DIRECT INFORMATION
     1084   00 001C1    00000000 A   GROUP6   DATA     0                 GROUP 6 READ DIRECT INFORMATION
     1085   00 001C2    00000000 A   GROUP7   DATA     0
     1086   00 001C3    00000000 A   PINDEX   DATA     0                 INDEX FOR LOOPS
     1087   00 001C4    00000000 A   PWD1     DATA     0                 WD PHASE STOPS
     1088   00 001C5    00000000 A   PWD2     DATA     0                 WRITE DIRECT GROUP 2
     1089   00 001C6    00000000 A   WDG2     DATA     0                 WRITE DIRECT GROUP 2
     1090   00 001C7    00000000 A   PSAVE1   DATA     0                 PARAMETER SAVE LOC 1
     1091   00 001C8    00000000 A   PSAVE2   DATA     0                 PARAMETER SAVE LOC 2
     1092   00 001C9    00000000 A   PSAVE3   DATA     0                 PARAMETER SAVE LOC 3
     1093   00 001CA    00000000 A   PSAVE4   DATA     0                 PARAMETER SAVE LOC 4
     1094   00 001CB    00000000 A   PSAVE5   DATA     0                 PARAMETER SAVE LOC 5
     1095   00 001CC    00000000 A   ALFSAVE  DATA     0                 AFTER LIST FUNCTION SAVE LOC
     1096   00 001CD    00000000 A   ALFSAVE1 DATA     0                 AFTER LIST FUNCTION SAVE LOC 1
     1097   00 001CE    00000000 A   DIOLIST  DATA     0                 POINTER TO CURRENT DIO OPERATION
     1098   00 001CF    00000000 A   T:EXIT   DATA     0                 TRAP/INTERRUPT EXIT
     1099   00 001D0    00000000 A   IODWADR  DATA     0                 I/O DOUBLEWORD ADDR
     1100                                     BOUND    8
     1101   00 001D2    00000000 A   DOIOSTAT DATA     0,0
            00 001D3    00000000 A
     1102   00 001D4    00000000 A   SIOSTAT  DATA     0,0
            00 001D5    00000000 A
     1103   00 001D6    00000000 A   TIOSTAT  DATA     0,0
            00 001D7    00000000 A
     1104   00 001D8    00000000 A   TDVSTAT  DATA     0,0
            00 001D9    00000000 A
     1105   00 001DA    00000000 A   HIOSTAT  DATA     0,0
            00 001DB    00000000 A
     1106   00 001DC    00000000 A   RIOSTAT  DATA     0,0
            00 001DD    00000000 A
     1107   00 001DE    00000000 A   PLPSTAT  DATA     0,0
            00 001DF    00000000 A
     1108   00 001E0    00000000 A   AIOSTAT  DATA     0,0
            00 001E1    00000000 A
     1109   00 001E2    00000000 A   PLRSTAT  DATA     0,0
            00 001E3    00000000 A
     1110   00 001E4    00000000 A   SIOSTAT1 DATA     0,0
            00 001E5    00000000 A
     1111   00 001E6    00000000 A   TIOSTAT1 DATA     0,0
            00 001E7    00000000 A
     1112         00 001E8           IOTAB    EQU      %
     1113   00 001E8    00000000 A   CHAIN    DATA     0,0,0,0
            00 001E9    00000000 A
            00 001EA    00000000 A
            00 001EB    00000000 A
     1114   00 001EC    00000000 A   UNCHAIN  DATA     0,0,0,0
            00 001ED    00000000 A
            00 001EE    00000000 A
            00 001EF    00000000 A
     1115   00 001F0    00000000 A   BYTSAVE  DATA     0,0
            00 001F1    00000000 A
     1116   00 001F2    00000000 A   BYTEIOCD DATA     0,0
            00 001F3    00000000 A
     1117   00 001F4    00000000 A   BYTEIOC  DATA     0,0
            00 001F5    00000000 A
     1118   00 001F6    00000000 A   TSAVE1   DATA     0
     1119   00 001F7    00000000 A   TSAVE2   DATA     0
     1120   00 001F8    00000000 A   TSAVE3   DATA     0
     1121   00 001F9    00000000 A   TSAVE4   DATA     0
     1122   00 001FA    00000000 A   TSAVE5   DATA     0
     1123   00 001FB    00000000 A   INSAVE1  DATA     0
     1124   00 001FC    00000000 A   INSAVE2  DATA     0
     1125   00 001FD    00000000 A   INSAVE3  DATA     0
     1126   00 001FE    00000000 A   INSAVE4  DATA     0
     1127                            *
     1128                                     PAGE
     1129                            *
     1130                            *  MONITOR LINK TABLE
     1131                            *  ------------------
     1132                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
     1133                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
     1134                            *  THE MONITOR (DPM).
     1135                            *
     1136   00 00000                 ASECTMLT ASECT
     1137   00 00200                          ORG      X'200'
            00 00200
     1138                            *
     1139         00 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
     1140         00 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
     1141         00 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
     1142         00 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
     1143         00 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
     1144         00 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
     1145         00 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
     1146         00 00213           :BCDC    EQU      :MLT+19           BCD TO BINARY CONVERTION
     1147         00 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
     1148         00 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
     1149         00 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
     1150         00 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
     1151         00 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
     1152         00 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
     1153         00 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
     1154         00 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
     1155         00 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
     1156         00 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
     1157         00 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
     1158         00 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
     1159         00 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
     1160         00 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
     1161         00 00223           :TYPE1   EQU      :MLT+35           ADDRESS OF MONITOR TYPE ROUTINE *A03
     1162         00 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
     1163         00 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE (0=5/7, 9=8/9)
     1164         00 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
     1165         00 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
     1166         00 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
     1167         00 00229           :ERRPARM EQU      :MLT+41           DIRECTIVE RETURN IF PARMETER IN ERR
     1168         00 0022A           :QSENSE  EQU      :MLT+42           QUICK SENSE                     *A02
     1169         00 0022B           :WAIT    EQU      :MLT+43           WAIT SUBROUTINE                 *A02
     1170         00 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY (DPM)
     1171         00 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY (DPM)
     1172         00 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
     1173         00 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
     1174         00 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR I/O BUFFER
     1175         00 00231           :MONPBF  EQU      :MLT+49           ADDR OF MONITOR PARAMETER TABLE
     1176         00 00237           :REMOTE  EQU      :MLT+55           CONNECT REMOTE ROUTINE          *A02
     1177         00 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
     1178                            *
     1179                            *
     1180   00 00200                          RES      :MLTEND-:MLT+1
     1181         00 00241           BASEADDR SET      %
     1182                            *
     1183                            *                 THESE LOC ARE USED BY THE RANDOM EXERCISER
     1184                            *
     1185   00 00241    00000000 A   CYCLE    DATA     0                 NO. OF CYCLE TO BE DONE
     1186   00 00242    00000000 A   TST2RTN1 DATA     0                 RETURN TO LEVEL  1
     1187   00 00243    00000000 A   TST2RTN2 DATA     0                 RETURN TO LEVEL  2
     1188   00 00244    00000000 A   TST2RTN3 DATA     0                 RETURN TO LEVEL  3
     1189   00 00245    00000000 A   TST2RTN4 DATA     0                 RETURN TO LEVEL  4
     1190   00 00246    00000000 A   TSPREAD  DATA     0
     1191   00 00247    00000000 A   MAXSECT  DATA     0
     1192   00 00248    00000000 A   PASSTYPE DATA     0                 TYPE OF RANDOM PASS IT IS
     1193   00 00249    00000000 A   RDMPATTM DATA     0                 IF=0 BUILD ALL I/O BUFFER NOW
     1194                            *
     1195                            *                 THESE LOC ARE USED BY THE MEMORY ALLOCATION AND
     1196                            *                 SURFACE TEST
     1197                            *
     1198   00 0024A    00000000 A   MEMORY2  DATA     0                 TEMPORARY RETURN LOC
     1199   00 0024B    00000000 A   TCKSHOT  DATA     0                 STARTING ADDR OF THE BAND SHAP SHOT
     1200   00 0024C    00000000 A   SECTSHOT DATA     0                 STARTING ADDR OF THE SECT SHAP SHOT
     1201   00 0024D    00000000 A   TOTLSHOT DATA     0                 STARTING ADDR OF THE TOLS SHAP SHOT
     1202   00 0024E    00000000 A   ENDSHOT  DATA     0                 ENDING   ADDR OF THE BAND SHAP SHOT
     1203   00 0024F    00000000 A   TCKLGTH  DATA     0                 LENGTH OF BAND SNAP SHOT AREA
     1204   00 00250    00000000 A   SECTLGTH DATA     0                 LENGTH OF SECT SNAP SHOT AREA
     1205   00 00251    00000000 A   SSTABLE  DATA     0                 SEEK/SENSE TABLE STARTING AREA
     1206   00 00252    00000000 A   TABLEMAX DATA     0                 TABLE LENGTH IN HALF WORDS
     1207   00 00253    00000000 A   TABERROR DATA     0                 ERROR IF NOT = 0
     1208   00 00254    00000000 A   SECTLMT  DATA     0                 LIMIT OF NO. OF SECTORS BEING TESTED
     1209                            *
     1210                            *                 THESE LOC ARE USED BY THE SURFACE TEST ONLY
     1211                            *
     1212   00 00255    00000000 A   SURRTN   DATA     0
     1213   00 00256    00000000 A   SURFACE3 DATA     0
     1214   00 00257    00000000 A   SURORDER DATA     0                 ORDER FOR SURFACE TEST
     1215   00 00258    00000000 A   BUFLENGT DATA     0                 LENGTH OF USUABLE DATA AREA
     1216   00 00259    00000000 A   BUFINAD  DATA     0                 STARTING ADDRESS OF BUFFER BEING BLT
     1217   00 0025A    00000000 A   READLOOP DATA     0                 COUNT OF NO. READS AFTER WRITE
     1218   00 0025B    00000000 A   BUFAVAIL DATA     0                 MAX NO. OF AVAILABLE BUFFERS
     1219   00 0025C    00000000 A   BUFM1AVL DATA     0                 MAX NO. OF AVAILABLE BUFFERS MINUS 1
     1220   00 0025D    00000000 A   MEMLSTBA DATA     0                 LAST USUABLE BYTE ADDR
     1221   00 0025E    00000000 A   BUF1LOBA DATA     0                 BYTE ADDR OF FIRST USUABLE MEMORY LC
     1222   00 0025F    00000000 A   MASK     DATA     0                 RECEIVED STATUS MASK
     1223   00 00260    00000000 A   EXSEKAIO DATA     0                 EXPECTED AIO STATUS
     1224   00 00261    00000000 A   EXDATAIO DATA     0                 EXPECTED DATA AIO STATUS
     1225   00 00262    00000000 A   CURRSECT DATA     0                 CURRENT SECTOR UNDER TEST
     1226   00 00263    00000000 A   SURM1END DATA     0                 SECTOR END MIMUS 1
     1227   00 00264                 SUR0615  RES      9                 RESERVED SPACE FOR REG 6 THRU 14
     1228   00 0026D    00000000 A   SUR0015  DATA     0                 RESERVED SPACE FOR REG 15
     1229   00 0026E    00000000 A   SURINT03 DATA     0                 UPDATED  BYTE COUNT
     1230   00 0026F    00000000 A   WRITTEN  DATA     0                 RETURN ADDR
     1231   00 00270    00000000 A   FAKEINTR DATA     0                 FAKE AN INTERRUPT FLAG, IF =1
     1232   00 00271    00000000 A   BUFM1FLG DATA     0                 BUFFER -1 FLAG
     1233   00 00272    00000000 A   WRITEDLY DATA     0                 WRITE DELAY COUNT
     1234   00 00273    00000000 A   ENDOPER  DATA     0                 END OF OPERATION FLAG
     1235   00 00274    00000000 A   MAXERR   DATA     0                 NO. OF RETRIES ON A ERROR
     1236   00 00275    00000000 A   COMPERR  DATA     0                 COMPARE ERROR COUNT
     1237   00 00276    00000000 A   EXAIODST DATA     0                 TEMPORARY STORAGE FOR EXP AIO STATUS
     1238   00 00277    00000000 A   READVERY DATA     0                 READ VERIFY FLAG
     1239   00 00278    00000000 A   SURDELAY DATA     0                 MAXIMUM DELAY BETWEEN INTERRUPTS
     1240   00 00279    00000000 A   SURTN1   DATA     0                 RETURN ADDRESS TO HIGHER TEST
     1241   00 0027A    00000000 A   IOCDPNT  DATA     0                 IOCD POINTER 1= MORE THAN 1 IOCD
     1242   00 0027B    00000000 A   IOERAIO1 DATA     0                 I/O AIO 1 ERROR COUNT
     1243   00 0027C    00000000 A   IOERAIO2 DATA     0                 I/O AIO 2 ERROR COUNT
     1244   00 0027D    00000000 A   IOERSIO1 DATA     0                 I/O SIO 1 ERROR COUNT
     1245   00 0027E    00000000 A   IOERSIO2 DATA     0                 I/O SIO 2 ERROR COUNT
     1246   00 0027F    00000000 A   IOCPASS2 DATA     0                 IOCD PASS 2 COUNT
     1247   00 00280    00000000 A   SURTEMP1 DATA     0                 ADDRESS OF I/O AIO ERROR COUNT
     1248   00 00281    00000000 A   SURDATE1 DATA     0
     1249                            *
     1250                            *
     1251                            *                 THESE LOC ARE USED BY THE DDT AND OTHERS
     1252   00 00282    00000000 A   RADSEED  DATA     0                 RANDOM SEED FOR TEST SELECTION
     1253   00 00283    00000000 A   #DDTP    DATA     0                 DEVICE DESCRIPTION TABLE POINTER
     1254   00 00284    00000000 A   #DDTLGTH DATA     0                 DEVICE DESCRIPTION TABLE LENGTH
     1255   00 00285    00000000 A   #DDTBIAS DATA     0                 DEVICE DESCRIPTION TABLE BIAS
     1256                            *
     1257         00 00286           #DDTADR1 SET      %
     1258   00 00286    00000000 A   MODEL    DATA     0                 MODEL NO. OF DEVICE BEING TESTED
     1259   00 00287    00000000 A   TGTDEV   DATA     0                 TARGET I/O ADDR
     1260   00 00288    00000000 A   SECTORS  DATA     0                 NO.OF SECTOR/BAND
     1261   00 00289    00000000 A   BYTESECT DATA     0                 NO. OF BYTES/SECTOR
     1262   00 0028A    00000000 A   SLOWER   DATA     0                 SECTOR LOWER LIMIT (USED BY TESTS)
     1263   00 0028B    00000000 A   SUPPER   DATA     0                 SECTOR UPPER LIMIT (USED BY TESTS)
     1264   00 0028C    00000000 A   SSIZE    DATA     0                 NO. OF AVAILABLE SECTORS
     1265   00 0028D    00000000 A   TSSTART  DATA     0                 BAND-SECTOR STARTING ADDR
     1266   00 0028E    00000000 A   TCKSHIFT DATA     0                 NO. OF SHIFTS REQD TO POSTN BAND ADR
     1267   00 0028F    00000000 A   MAXCAPY  DATA     0
     1268         00 00290           #DDTADR3 SET      %
     1269   00 00290    00000000 A   SWPROT12 DATA     0                 SECTOR WRITE PROTECT LOWER LIMIT
     1270   00 00291    00000000 A   SWPROT34 DATA     0                 SECTOR WRITE PROTECT UPPER LIMIT
     1271   00 00292    00000000 A   TEMPSEK1 DATA     0                 SECTOR TEMPORARY STORAGE FOR LO LMT
     1272   00 00293    00000000 A   TEMPSEK2 DATA     0                 SECTOR TEMPORARY STORAGE FOR UP LMT
     1273                            *
     1274         00 00294           #DDTADR2 SET      %
     1275   00 00294                          RES      3*(#DDTADR2-#DDTADR1)
     1276         00 00157           #DDTSAVE EQU      #MSG00
     1277                            *
     1278         00 002BE           TESTDEV  SET      %
     1279   00 002BE    00000000 A   MODELC   DATA     0                 CURRENT DEVICE MODEL NO.
     1280   00 002BF    00000000 A   :DEVADDR DATA     0                 CURRENT DEVICE ADDRESS
     1281   00 002C0    00000000 A   SECTCURR DATA     0                 CURRENT SECTOR/BAND
     1282   00 002C1    00000000 A   BYTCURR  DATA     0                 CURRENT BYTE/SECTORS
     1283   00 002C2    00000000 A   CURRSEEK DATA     0                 CURRENT SEEK ADDR
     1284   00 002C3    00000000 A   SURFCEND DATA     0                 CURRENT END OF SURFACE
     1285   00 002C4    00000000 A   SSIZEC   DATA     0                 CURRENT NO. OF SECTORS
     1286   00 002C5    00000000 A   TSSTARTC DATA     0                 CURRENT BAND/SECTOR STARTING ADDR
     1287   00 002C6    00000000 A   TCKCURR  DATA     0                 CURRENT BAND SHIFT COUNT
     1288   00 002C7    00000000 A   MAXCAP   DATA     0
     1289                            *
     1290                            *                 THESE LOC ARE USED BY THE ERROR REPORTER AND OTHERS
     1291                            *
     1292   00 002C8    00000000 A   #MSGSCC  DATA     0
     1293   00 002C9    00000000 A   #MSGLEVL DATA     0                 MSG LEVEL OF PRINTED MSGS
     1294                            *
     1295                            *                 THESE LOC ARE SET UP FOR THE COMPARE ROUTINE
     1296   00 002CA    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT IF = 1
     1297   00 002CB    00000000 A   :COMBFRB DATA     0                 ADDR OF FIRST LOC IN BUFFER
     1298   00 002CC    00000000 A   :COMWCNT DATA     0                 NO. OF WORDS IN BUFFER
     1299                            *
     1300                            *                 THESE LOC ARE SET UP FOR THE CLEAR BUFFER ROUTINE
     1301                            *
     1302   00 002CD    00000000 A   :CLRADDR DATA     0                 BUFFER ADDR
     1303   00 002CE    00000000 A   :CLRSIZE DATA     0                 BUFFER SIZE
     1304                            *
     1305                            *                 THESE LOC ARE SET AND USED BY THE ISSUE I/O AND OTHER
     1306                            *                 ROUTINES
     1307                            *
     1308                            :STATLOOP ;
     1309   00 002CF    00000000 A            DATA     0
     1310   00 002D0    00000000 A   :IORTN   DATA     0                 STORAGE FOR REG 15
     1311   00 002D1    00000000 A   :TYPE    DATA     0                 TYPE OF I/O
     1312                            :STATUSCC ;
     1313   00 002D2    00000000 A            DATA     0                 STATUS & CC'S
     1314                            *
     1315                            *                 MISCELLANEOUS FLAG ETC
     1316                            *
     1317   00 002D3    00000000 A   WATCHERR DATA     0
     1318   00 002D4    00000000 A   WHDOGRTN DATA     0
     1319   00 002D5    00000000 A   ITHTEST  DATA     0
     1320   00 002D6    00000000 A   ITHSUBT  DATA     0
     1321   00 002D7    00000000 A   ITHRST   DATA     0
     1322   00 002D8    00000000 A   ITHSAVE  DATA     0
     1323   00 002D9    00000000 A   INITRTN  DATA     0                 SAVE RETURN ADDR
     1324   00 002DA    00000000 A   :PASSCUR DATA     0                 CURRENT PASS COUNT
     1325   00 002DB    00000000 A   REVISION DATA     0                 REVISION LEVEL OF RIOP
     1326   00 002DC    00000000 A   DONTREAD DATA     0                 DO NOT DO A READ OPERATION FLAG
     1327   00 002DD    00000000 A   SECTDLAY DATA     0                 SECTOR DELAY CONSTANT
     1328   00 002DE    00000000 A   TST1RTN  DATA     0                 RETURN ADDR
     1329   00 002DF    00000000 A   TST0FLAG DATA     0                 IF =1 COMPREHENSIVE TEST FLAG
     1330   00 002E0    00000000 A   TST1PONT DATA     0                 POINTER TO CURRENT FUNCTIONAL TEST
     1331   00 002E1    00000000 A   #MSGER41 DATA     0                 ERROR COUNT FOR TEST
     1332   00 002E2    00000000 A   LSEEKTEP DATA     0                 LOWER SEEK LIMIT
     1333   00 002E3    00000000 A   TABBIAS  DATA     0
     1334   00 002E4    00000000 A   TABINDEX DATA     0
     1335                            *
     1336                            *                 MISCELLANEOUS BOUND 8 TEMPORARY LOCATIONS
     1337                            *
     1338                                     BOUND    8
     1339   00 002E6    00000000 A   TST1TEST DATA     0,0               POINTER TO FIRST FUN TEST TO EXEC
            00 002E7    00000000 A
     1340   00 002E8    00000000 A   TCKWPVL1 DATA     0                 BAND WRT PROTECT LOW LIMIT FROM TDV
     1341   00 002E9    00000000 A   TCKWPVH1 DATA     0                 BAND WRT PROTECT UP  LIMIT FROM TDV
     1342   00 002EA    00000000 A   TCKWPVL  DATA     0                 BAND WRT PROTECT LOW LIMIT FROM SENS
     1343   00 002EB    00000000 A   TCKWPVH  DATA     0                 BAND WRT PROTECT UP  LIMIT FROM SENS
     1344                                     BOUND    8
     1345   00 002EC    00000000 A   :PK      DATA     0                 RANDOM NO. FOR RANDOM
     1346   00 002ED    00000000 A   :PK1     DATA     0                     NO. GENERATOR
     1347   00 002EE    00000000 A   :PATID   DATA     0                 PATTERN TYPE
     1348   00 002EF    00000000 A            DATA     0                 PATTERN SEED
     1349   00 002F0    00000000 A            DATA     0                 PATTERN INCREMENT CONSTANT
     1350   00 002F1    00000000 A            DATA     0
     1351                                     BOUND    8
     1352   00 002F2    00000000 A   IOCDGEN  DATA     0,0
            00 002F3    00000000 A
     1353                            *
     1354                            *                 THESE LOC ARE USED BY THE SURFACE TEST ONLY
     1355                            *
     1356                                     BOUND    8
     1357   00 002F4    00000000 A   TST3PARM DATA     0
     1358   00 002F5    00000000 A   TST3EXIT DATA     0
     1359   00 002F6    00000000 A   IOCSEEK1 DATA     0                 IOCD FOR SEEK OPERATIONS
     1360   00 002F7    00000000 A            DATA     0
     1361   00 002F8    00000000 A   IOCDATA  DATA     0                 IOCD FOR DATA OPERATIONS
     1362   00 002F9    00000000 A            DATA     0
     1363   00 002FA    00000000 A   IOCDAT01 DATA     0
     1364   00 002FB    00000000 A            DATA     0
     1365   00 002FC    00000000 A   IOCDAT02 DATA     0
     1366   00 002FD    00000000 A            DATA     0
     1367                            *                 THESE LOC ARE USED BY THE BUILD SEEK ROUTINE ONLY
     1368                            *
     1369                                     BOUND    8
     1370   00 002FE    00000000 A   BUILDSK1 DATA     0,0
            00 002FF    00000000 A
     1371   00 00000                 ABASETAB ASECT
     1372   00 00241                          ORG      BASEADDR
            00 00241
     1373                            :PROGID  TEXTC    ;
     1374                             'SIGMA 8-9 HIGH SPEED RAD IOP TEST
',;
     1375                             '706200-A04',;                                                     *A04
     1376   00 00241    3BE2C9C7 A    ' MANUAL 901761A'                                                  *A01
            00 00242    D4C140F8 A
            00 00243    60F940C8 A
            00 00244    C9C7C840 A
            00 00245    E2D7C5C5 A
            00 00246    C440D9C1 A
            00 00247    C440C9D6 A
            00 00248    D740E3C5 A
            00 00249    E2E315F7 A
            00 0024A    F0F6F2F0 A
            00 0024B    F060C1F0 A
            00 0024C    F440D4C1 A
            00 0024D    D5E4C1D3 A
            00 0024E    40F9F0F1 A
            00 0024F    F7F6F1C1 A
     1377                                     PAGE
     1378                            *
     1379                            *  PROGRAM INTERFACE TABLE
     1380                            *  -----------------------
     1381                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
     1382                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
     1383                            *  AND THE USER PROGRAM.
     1384                            *
     1385   00 00000                 ASECTPIT ASECT
     1386   00 00300                          ORG      X'300'
            00 00300
     1387   00 00300    00000000 A   :PIT0    DATA     0                 BLANK
     1388   00 00301    00000241 A   :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
     1389   00 00302    00000320 03  :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
     1390   00 00303    00000010 A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
     1391   00 00304    00000BB5 03  :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
     1392   00 00305    00000330 03  :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
     1393   00 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
     1394   00 00307    00000000 A   :PIT7    DATA     0
     1395   00 00308    00000BC9 03  :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER
     1396   00 00309    00000000 A   :PIT9    DATA     0
     1397         00 00309           :DIRNAME EQU      :PIT9             NAME OF DIRECTIVE WITH A BAD PAR
     1398   00 0030A    00000000 A   :PIT10   DATA     0
     1399         00 0030A           :ERPARNO EQU      :PIT10
     1400   00 0030B    00000000 A   :PIT11   DATA     0
     1401   00 0030C    00000000 A   :PIT12   DATA     0                 SYST ENTERED
     1402   00 0030D    00000000 A   :PIT13   DATA     0                 (UNUSED)
     1403   00 0030E    00000000 A   :PIT14   DATA     0                 (UNUSED)
     1404   00 0030F    00000000 A   :PIT15   DATA     0                 INTERRUPT/TRAP HANDLER ADDR
     1405         00 00310           :PITLAST EQU      %
     1406         00 00320           :PITEND  EQU      :PIT0+32          LAST LOCATION OF PROG INTERFACE TAB.
     1407         00000010                    DO       :PITEND-:PITLAST  CLEAR REMAINING LOCATIONS OF PIT
     1408   00 00310    00000000 A            DATA     0
     1409                                     FIN
            00 00311    00000000 A
            00 00312    00000000 A
            00 00313    00000000 A
            00 00314    00000000 A
            00 00315    00000000 A
            00 00316    00000000 A
            00 00317    00000000 A
            00 00318    00000000 A
            00 00319    00000000 A
            00 0031A    00000000 A
            00 0031B    00000000 A
            00 0031C    00000000 A
            00 0031D    00000000 A
            00 0031E    00000000 A
            00 0031F    00000000 A
     1410                            *
     1411                            *
     1412                            *  LOCATIONS
     1413         00 00310           :PITX    EQU      :PITLAST
     1414                            * THRU
     1415         00 00320           :PITY    EQU      :PITEND
     1416                            * ARE AVAILABLE AS A PATCH AREA.
     1417                            *
     1418                                     PAGE
     1419                            *
     1420                            *  DIRECTIVE DICTIONARY
     1421                            *  --------------------
     1422                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
     1423                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
     1424                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
     1425                            *  DEFINED AS FOLLOWS:
     1426                            *
     1427                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
     1428                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
     1429                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
     1430                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
     1431                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
     1432                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     1433                            *  BITS 48 THRU 63  ROUTINE ADDRESS
     1434                            *
     1435                            *  TYPE OF PARAMETER CONVERSION
     1436                            *
     1437                            *  000   HEXADECIMAL CONVERSION
     1438                            *  001   DECIMAL CONVERSION TO BINARY
     1439                            *  002   ALPHANUMERIC
     1440                            *
     1441   03 00000                 CSECTDIC CSECT
     1442   03 00320                          ORG      X'320'
            03 00320
     1443         03 00320           :DIC     EQU      %
     1444                            *        INSERT DICTIONARY ENTRIES
     1445                            *
     1446   03 00320    E3E2E3F0 A   :TST0DIR :PROCDIC 'TST0',1,1,7,0,0,TST0  COMPREHENSIVE TEST
                        27800C47
     1447   03 00322    E3E2E3F1 A   :TST1DIR :PROCDIC 'TST1',1,1,1,1,0,TST1  FUNCTIONAL
                        24900C6D
     1448   03 00324    E3E2E3F2 A   :TST2DIR :PROCDIC 'TST2',1,1,7,0,0,TST2      RANDOM EXERCISER
                        278029F5
     1449   03 00326    E3E2E3F3 A   :TST3DIR :PROCDIC 'TST3',1,1,1,1,0,TST3  UTILITY TEST
                        24902AF3
     1450   03 00328    C4C1E3C1 A   :DATADIR :PROCDIC 'DATA',1,0,0,7,0,:DATA    DATA DIRECTIVE
                        20702921
     1451   03 0032A    E2C5C5D2 A   :SEEKDIR :PROCDIC 'SEEK',1,1,1,1,0,SEEK      SEEK DIRECTIVE
                        24902934
     1452   03 0032C    00D4C5D4 A   :MEMDIR  :PROCDIC 'MEM',0,0,7,0,0,:MEM   MEMORY DIRECTIVE
                        0380296D
     1453   03 0032E    D3C9D4E3 A   :LIMTDIR :PROCDIC 'LIMT',1,1,1,1,0,LIMT  LIMIT DIRECTIVE
                        249029AB
     1454                            *
     1455         03 00330           :DICEND  EQU      %
     1456                                     PAGE
     1457                            *
     1458                            *  CONTEXT DESCRIPTION TABLE
     1459                            *  -------------------------
     1460                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
     1461                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
     1462                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
     1463                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
     1464                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
     1465                            *
     1466                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
     1467                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     1468                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
     1469                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
     1470                            *
     1471         03 00330           :CDT     EQU      :DICEND
     1472   03 00330    07800001 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000333
     1473         03 00332           :CDTEND  EQU      %
     1474                            *
     1475                            *
     1476                            *  CONTEXT DATA BLOCK
     1477                            *  ------------------
     1478                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
     1479                            *  INFORMATION FOR THE TEST PROGRAM.
     1480                            *
     1481         03 00332           :CDBM    EQU      %
     1482                            *
     1483                            *        INSERT ALL MODEL NUMBERS WHICH CAN BE TESTED
     1484                            *        WITH THIS TEST PROGRAM.
     1485                            ***  EXAMPLE OF MODEL NUMBER ENTRY
     1486   03 00332    000021E8 A            DATA     8680              RIOP MODEL NO.
     1487                            *
     1488         03 00333           :CDBMEND EQU      %
     1489                            *                                     'SYST' DIRECTIVE OR INITIAL VALUE
     1490         03 00333           :CDB     EQU      %
     1491   03 00333    000521E8 A            GEN,16,16 5,8680           NO. OF PARAMETER RIOP
     1492   03 00334    00000000 A            DATA     0                 REVISION NUMBER
     1493   03 00335    00000001 A            DATA     1
     1494   03 00336    000003F0 A            DATA     X'3F0'
     1495   03 00337    00007212 A            DATA     X'7212'
     1496   03 00338    00000000 A            DATA     0                 WRITE PROTECT SWITCH SETTING
     1497   03 00339                          RES      9
     1498         03 00342           :CDBEND  EQU      %
     1499                            *
     1500                            *
     1501                            *
     1502                                     PAGE
     1503         00000000           TNONE    SET      0
     1504                            *
     1505         00000000           TESTNO   CNAME
     1506                                     PROC
     1507                            TNONE    SET      TNONE+1
     1508                            PARTIAL  SET      0
     1509                            V1       SET      TNONE
     1510                                     DO       3
     1511                            V2       SET      V1/10
     1512                            REM      SET      V1-10*V2
     1513                            PARTIAL  SET      PARTIAL/16+REM*256
     1514                            V1       SET      V2
     1515                                     FIN
     1516                                     DISP     PARTIAL
     1517                                     PEND
     1518                            *
     1519         00000000           TEST     CNAME
     1520                                     PROC
     1521                                     TESTNO
     1522                            LF       GEN,1,15 AF(2),AF(1)-RIOPLIST
     1523                                     PEND
     1524                            *
     1525         00000000           HEADR    CNAME
     1526                                     PROC
     1527                            LF       GEN,1,1,30 AF(1),AF(2),BA(AF(3))
     1528                                     PEND
     1529                            *
     1530                            *
     1531         00004000           RIO      CNAME    X'4000'
     1532         00008000           PLOP     CNAME    X'8000'
     1533         0000C000           PLOR     CNAME    X'C000'
     1534                                     PROC
     1535                                     LOCAL    A,B,C
     1536                            A        SET      AF(1)
     1537                            B        SET      AFA(1)+1
     1538                                     GOTO,B   A,C
     1539                            A        SET      NAME(1)+AF(1)
     1540                            C        SET      B
     1541                            LF       GEN,1,7,4,3,17 AFA(1),X'4F',CF(2),AF(2),A
     1542                                     PEND
     1543                                     PAGE
     1544                            *
     1545                            *
     1546         00000000           WD0      CNAME
     1547                                     PROC
     1548                                     LOCAL    I,N,PNTN,K,Q,Z
     1549                            Q        SET      NUM(AF)
     1550                            K        SET      1**31
     1551                            PNTR     SET      0
     1552                            I        DO       Q
     1553                            J        SET      SCOR(AF(I),;
     1554                                              TM1,TM2,TM3,TM4,;
     1555                                              POWERLO,POWERHI,;
     1556                                              DVT,DVO,;
     1557                                              CLOCKLO,CLOCKHI)
     1558                                     ERROR,1,J=0 'INVALID MNEMONIC'
     1559                            PNTR     SET      PNTR|(K**-(J-1))
     1560                                     FIN
     1561                            LF       LW,8     =PNTR
     1562                                     PEND
     1563                                     PAGE
     1564         00000000           WD1      CNAME
     1565                                     PROC
     1566                                     LOCAL    I,N,PNTN,K,Q,Z
     1567                            Q        SET      NUM(AF)
     1568                            K        SET      1**13
     1569                            PNTR     SET      0
     1570                            I        DO       Q
     1571                            J        SET      SCOR(AF(I),;
     1572                                              PH00,PH01,PH02,PH03,PH04,PH05,PH10,PH102,PH11,PH12,;
     1573                                              DATA,TS,TI,TR)
     1574                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1575                            PNTR     SET      PNTR|(K**-(J-1))
     1576                                     FIN
     1577                            LF       GEN,8,4,20 X'22',8,PNTR
     1578                                     PEND
     1579                            *
     1580                            *
     1581                                     PAGE
     1582         00000000           WD2      CNAME
     1583                                     PROC
     1584                                     LOCAL    I,N,PRTR,K,Q,Z
     1585                            Q        SET      NUM(AF)
     1586                            PNTR     SET      0
     1587                            K        SET      1**31
     1588                            I        DO       Q
     1589                            J        SET      SCOR(AF(I),;
     1590                                              Z,Z,Z,Z,;
     1591                                              MFI:D,;
     1592                                              Z,;
     1593                                              ZBCI,;
     1594                                              MAE,;
     1595                                              NADDR,;
     1596                                              NDATA,;
     1597                                              MPE,;
     1598                                              PE:D,;
     1599                                              RATER,;
     1600                                              SUN,;
     1601                                              WPV,;
     1602                                              SPM,;
     1603                                              INL,;
     1604                                              IOPH,;
     1605                                              BTE,;
     1606                                              HCE)
     1607                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1608                            PNTR     SET      PNTR|(K**-(J-1))
     1609                                     FIN
     1610                            LF       LW,8     =PNTR
     1611                                     PEND
     1612                                     PAGE
     1613         00000000           PHPROC   CNAME
     1614                                     PROC
     1615                                     LOCAL    I,N,PNTN,K,Q,Z
     1616                            Q        SET      NUM(AF)
     1617                            K        SET      1**13
     1618                            PNTR     SET      0
     1619                            I        DO       Q
     1620                            J        SET      SCOR(AF(I),;
     1621                                              PH00,PH01,PH02,PH03,PH04,PH05,PH10,PH11,PH12,;
     1622                                              PH20,PH30,DATA,IN,BUSY)
     1623                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1624                            PNTR     SET      PNTR|(K**-(J-1))
     1625                                     FIN
     1626                            LF       GEN,8,4,20 X'22',8,PNTR
     1627                                     PEND
     1628                            *
     1629                            *
     1630                                     PAGE
     1631         00000000           MEPROC   CNAME
     1632                                     PROC
     1633                                     LOCAL    I,N,PNTN,K,Q,Z
     1634                            K        SET      1**8
     1635                            Q        SET      NUM(AF)
     1636                            PNTR     SET      0
     1637                            I        DO       Q
     1638                            J        SET      SCOR(AF(I),;
     1639                                              MAR,MDR,;
     1640                                              MAE,MQ:D,;
     1641                                              MPE:R,MPE,;
     1642                                              MSTART,;
     1643                                              MBUSY,;
     1644                                              M:32D)
     1645                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1646                            PNTR     SET      PNTR|(K**-(J-1))
     1647                                     FIN
     1648                            LF       GEN,8,4,20 X'22',8,PNTR
     1649                                     PEND
     1650                            *
     1651                                     PAGE
     1652         00000000           BYMHI    CNAME
     1653                                     PROC
     1654                                     LOCAL    I,N,PNTR,K,Q
     1655                            K        SET      1**11
     1656                            Q        SET      NUM(AF)
     1657                            PNTR     SET      0
     1658                            I        DO       Q
     1659                            J        SET      SCOR(AF(I),;
     1660                                              MBPA,MBPB,MBPC,MBPD,;
     1661                                              HBPA,HBPB,HBPC,HBPD,;
     1662                                              IBPA,IBPB,IBPC,IBPD)
     1663                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1664                            PNTR     SET      PNTR|(K**-(J-1))
     1665                                     FIN
     1666                            LF       GEN,8,4,20 X'22',8,PNTR
     1667                                     PEND
     1668                            *
     1669                            *
     1670                                     PAGE
     1671         00000000           BYR      CNAME
     1672                                     PROC
     1673                                     LOCAL    I,N,PNTR,K,Q
     1674                            K        SET      1**6
     1675                            Q        SET      NUM(AF)
     1676                            PNTR     SET      0
     1677                            I        DO       Q
     1678                            J        SET      SCOR(AF(I),;
     1679                                              RE8,RF8,RG8,;
     1680                                              RA8,RB8,RC8,RD8)
     1681                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1682                            PNTR     SET      PNTR|(K**-(J-1))
     1683                                     FIN
     1684                            LF       GEN,8,4,20 X'22',8,PNTR
     1685                                     PEND
     1686                            *
     1687                            *
     1688                                     PAGE
     1689         00000000           FAMCNT   CNAME
     1690                                     PROC
     1691                                     LOCAL    I,N,PNTR,K,Q
     1692                            K        SET      1**16
     1693                            Q        SET      NUM(AF)
     1694                            PNTR     SET      0
     1695                            I        DO       Q
     1696                            J        SET      SCOR(AF(I),;
     1697                                              L0,L1,L2,L3,;
     1698                                              LW0,LW1,LW2,LW3,;
     1699                                              LR0,LR1,LR2,LR3,;
     1700                                              K0,K1,K2,K3,K4)
     1701                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1702                            PNTR     SET      PNTR|(K**-(J-1))
     1703                                     FIN
     1704                            LF       GEN,8,4,20 X'22',8,PNTR
     1705                                     PEND
     1706                            *
     1707                            *
     1708                                     PAGE
     1709         00000000           FULLPROC CNAME
     1710                                     PROC
     1711                                     LOCAL    I,N,PNTR,K,Q
     1712                            K        SET      1**4
     1713                            Q        SET      NUM(AF)
     1714                            PNTR     SET      0
     1715                            I        DO       Q
     1716                            J        SET      SCOR(AF(I),;
     1717                                              MFULL,;
     1718                                              HFULL,;
     1719                                              IFULL,;
     1720                                              JFULL,;
     1721                                              KFULL)
     1722                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1723                            PNTR     SET      PNTR|(K**-(J-1))
     1724                                     FIN
     1725                            LF       GEN,8,4,20 X'22',8,PNTR
     1726                                     PEND
     1727                            *
     1728                            *
     1729                        *S* TEST1    CNAME
     1730                        *S*          PROC
     1731                        *S*          TESTNO
     1732                        *S* LF       GEN,16   AF(1)
     1733                        *S*          PEND
     1734                            *
     1735                                     PAGE
     1736         00000000           BYJK     CNAME
     1737                                     PROC
     1738                                     LOCAL    I,N,PNTR,K,Q
     1739                            K        SET      1**7
     1740                            Q        SET      NUM(AF)
     1741                            PNTR     SET      0
     1742                            I        DO       Q
     1743                            J        SET      SCOR(AF(I),;
     1744                                              JA8,JB8,JC8,JD8,;
     1745                                              KA8,KB8,KC8,KD8)
     1746                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1747                            PNTR     SET      PNTR|(K**-(J-1))
     1748                                     FIN
     1749                            LF       LI,8     PNTR
     1750                                     PEND
     1751                            *
     1752                            *
     1753                                     PAGE
     1754         00000000           BYPROC   CNAME
     1755                                     PROC
     1756                                     LOCAL    I,N,PNTR,K,Q
     1757                            K        SET      1**5
     1758                            Q        SET      NUM(AF)
     1759                            PNTR     SET      0
     1760                            I        DO       Q
     1761                            J        SET      SCOR(AF(I),;
     1762                                              BPA,BPB,BPC,BPD,;
     1763                                              BCZ,BC4)
     1764                                              ERROR,1,J=0 'INVALID MNEMONIC'
     1765                            PNTR     SET      PNTR|(K**-(J-1))
     1766                                     FIN
     1767                            LF       LI,8     PNTR
     1768                                     PEND
     1769                            *
     1770                            *
     1771                                     PAGE
     1772                        *S* CHCKSIO  CNAME    0
     1773         00000001           CHCKTIO  CNAME    1
     1774         00000002           CHCKTDV  CNAME    2
     1775         00000003           CHCKHIO  CNAME    3
     1776         00000004           CHCKRIO  CNAME    4
     1777                        *S* CHCKPLP  CNAME    5
     1778         00000006           CHCKAIO  CNAME    6
     1779                        *S* CHCKPLR  CNAME    7
     1780                        *S* CHCKSIO1 CNAME    8
     1781         00000009           CHCKTIO1 CNAME    9
     1782                            *
     1783                        *S* CHCKMASK CNAME    X'40'
     1784                                     PROC
     1785                                     LOCAL    A,B
     1786                            A        SET      AF(1)
     1787                            B        SET      AFA(1)**7
     1788                            LF       DATA     A+B+NAME(1)
     1789                                     PEND
     1790                            *
     1791                                     PAGE
     1792         00000020           CHCKBC   CNAME    X'20'
     1793                        *S* CHCKBC1  CNAME    X'21'
     1794                                     PROC
     1795                                     LOCAL    A,B
     1796                            A        SET      AF(1)**16
     1797                            B        SET      AFA(1)**7
     1798                            LF       DATA     A+B+NAME(1)
     1799                                     PEND
     1800                        *S* CHCKCD   CNAME    X'22'
     1801                        *S*          PROC
     1802                        *S*          LOCAL    A,B
     1803                        *S* A        SET      AF(1)**8
     1804                        *S* B        SET      AFA(1)**7
     1805                        *S* LF       DATA     A+B+NAME(1)
     1806                        *S*          PEND
     1807                            *
     1808                            * MSGX PROCEDURE
     1809                            *
     1810         00000000           MSGX     CNAME
     1811                                     PROC
     1812                            LF       GEN,8    NUM(AF)
     1813                            I        DO       NUM(AF)
     1814                                     DO       AF(I)-DAT<256
     1815                                     GEN,8    AF(I)-DAT
     1816                                     ELSE
     1817                                     GEN,8,8  2,AF(I)-DATEXT
     1818                                     FIN
     1819                                     FIN
     1820                                     PEND
     1821                            *
     1822                            * T PROCEDURE
     1823                            *
     1824         00000000           T        CNAME
     1825                                     PROC
     1826                            I        SET      S:NUMC(AF(1))
     1827                            LF       GEN,8    I
     1828                                     GEN,8*I  AF(1)
     1829                                     PEND
     1830                            *
     1831                            * GENV PROCEDURE
     1832                            *
     1833         00000000           GENV     CNAME
     1834                                     PROC
     1835                            LF       GEN,8,24 AF(2),AF(1)
     1836                                     PEND
     1837                            *
     1838                            * SEND PROCEDURE
     1839                            *
     1840         00000000           SEND     CNAME
     1841                                     PROC
     1842                            LF       BAL,15   MSGOUT
     1843                                     DATA     AF(1)
     1844                                     PEND
     1845                            *
     1846                            * END OF PROCEDURES
     1847                            *
     1848                            *        ***DT - DICTIONARY TABLE***
     1849                            *
     1850   03 00342                 DT       LOC,1    %
            03 00342
     1851   03 00342    24E3C5E2 A   T401     TEXTC    'TEST
TEST OBJECTIVE: TO VERIFY THAT
'
            03 00343    E315E3C5 A
            03 00344    E2E340D6 A
            03 00345    C2D1C5C3 A
            03 00346    E3C9E5C5 A
            03 00347    7A40E3D6 A
            03 00348    40E5C5D9 A
            03 00349    C9C6E840 A
            03 0034A    E3C8C1E3 A
            03 0034B    15404040 A
     1852                            T402     TEXTC   ' 000 001 002 003 004 005 006 007 008 009',;
     1853   03 0034C    4040F0F0 A                     ' 00A 00B 00C 00D 00E 00F'
            03 0034D    F040F0F0 A
            03 0034E    F140F0F0 A
            03 0034F    F240F0F0 A
            03 00350    F340F0F0 A
            03 00351    F440F0F0 A
            03 00352    F540F0F0 A
            03 00353    F640F0F0 A
            03 00354    F740F0F0 A
            03 00355    F840F0F0 A
            03 00356    F940F0F0 A
            03 00357    C140F0F0 A
            03 00358    C240F0F0 A
            03 00359    C340F0F0 A
            03 0035A    C440F0F0 A
            03 0035B    C540F0F0 A
            03 0035C    C6404040 A
     1854   03 0035D    2015E3C5 A   T403     TEXTC    '
TEST OBJECTIVE: TO VERIFY THAT
'
            03 0035E    E2E340D6 A
            03 0035F    C2D1C5C3 A
            03 00360    E3C9E5C5 A
            03 00361    7A40E3D6 A
            03 00362    40E5C5D9 A
            03 00363    C9C6E840 A
            03 00364    E3C8C1E3 A
            03 00365    15404040 A
     1855   03 00366    01       A   T001     T        'A'
            03 00366 1  C1       A
     1856   03 00366 2  06       A   T002     T        'ACCESS'
            03 00366 3  C1C3C3C5 A
                        E2E2
     1857   03 00368 1  08       A   T003     T        'ACCEPTED'
            03 00368 2  C1C3C3C5 A
                        D7E3C5C4
     1858   03 0036A 2  07       A   T004     T        'ADDRESS'
            03 0036A 3  C1C4C4D9 A
                        C5E2E2
     1859   03 0036C 2  05       A   T005     T        'AFTER'
            03 0036C 3  C1C6E3C5 A
                        D9
     1860   03 0036E    09       A   T006     T        'ALIGNMENT'
            03 0036E 1  C1D3C9C7 A
                        D5D4C5D5
                        E3
     1861   03 00370 2  03       A   T007     T        'AIO'
            03 00370 3  C1C9D6   A
     1862   03 00371 2  03       A   T008     T        'ARE'
            03 00371 3  C1D9C5   A
     1863   03 00372 2  02       A   T009     T        'AT'
            03 00372 3  C1E3     A
     1864   03 00373 1  03       A   T010     T        'AND'
            03 00373 2  C1D5C4   A
     1865   03 00374 1  09       A   T011     T        'AVAILABLE'
            03 00374 2  C1E5C1C9 A
                        D3C1C2D3
                        C5
     1866   03 00376 3  01       A   T012     T        'B'
            03 00377    C2       A
     1867   03 00377 1  03       A   T013     T        'BIG'
            03 00377 2  C2C9C7   A
     1868   03 00378 1  02       A   T014     T        'BE'
            03 00378 2  C2C5     A
     1869   03 00379    03       A   T015     T        'BIT'
            03 00379 1  C2C9E3   A
     1870   03 0037A    01       A   T016     T        ' '
            03 0037A 1  40       A
     1871   03 0037A 2  02       A   T017     T        '  '
            03 0037A 3  4040     A
     1872   03 0037B 1  04       A   T018     T        '    '
            03 0037B 2  40404040 A
     1873   03 0037C 2  08       A   T019     T        '        '
            03 0037C 3  40404040 A
                        40404040
     1874   03 0037E 3  04       A   T021     T        'BUSY'
            03 0037F    C2E4E2E8 A
     1875   03 00380    04       A   T022     T        'BYTE'
            03 00380 1  C2E8E3C5 A
     1876   03 00381 1  05       A   T023     T        'BYTES'
            03 00381 2  C2E8E3C5 A
                        E2
     1877   03 00382 3  04       A   T024     T        'CODE'
            03 00383    C3D6C4C5 A
     1878   03 00384    07       A   T025     T        'COMMAND'
            03 00384 1  C3D6D4D4 A
                        C1D5C4
     1879   03 00386    01       A   T026     T        ':'
            03 00386 1  7A       A
     1880   03 00386 2  01       A   T027     T        ','
            03 00386 3  6B       A
     1881   03 00387    05       A   T028     T        'CLEAR'
            03 00387 1  C3D3C5C1 A
                        D9
     1882   03 00388 2  07       A   T029     T        'COMPARE'
            03 00388 3  C3D6D4D7 A
                        C1D9C5
     1883   03 0038A 2  05       A   T033     T        'COUNT'
            03 0038A 3  C3D6E4D5 A
                        E3
     1884   03 0038C    02       A   T035     T        'CC'
            03 0038C 1  C3C3     A
     1885   03 0038C 3  07       A   T036     T        'CURRENT'
            03 0038D    C3E4D9D9 A
                        C5D5E3
     1886   03 0038E 3  08       A   T037     T        'CHAINING'
            03 0038F    C3C8C1C9 A
                        D5C9D5C7
     1887   03 00391    04       A   T038     T        'DATA'
            03 00391 1  C4C1E3C1 A
     1888   03 00392 1  05       A   T039     T        'DELAY'
            03 00392 2  C4C5D3C1 A
                        E8
     1889   03 00393 3  06       A   T040     T        'DEVICE'
            03 00394    C4C5E5C9 A
                        C3C5
     1890   03 00395 2  04       A   T041     T        'DONE'
            03 00395 3  C4D6D5C5 A
     1891   03 00396 3  04       A   T042     T        'EACH'
            03 00397    C5C1C3C8 A
     1892   03 00398    03       A   T043     T        'END'
            03 00398 1  C5D5C4   A
     1893   03 00399    06       A   T044     T        'ENOUGH'
            03 00399 1  C5D5D6E4 A
                        C7C8
     1894   03 0039A 3  05       A   T046     T        'ERROR'
            03 0039B    C5D9D9D6 A
                        D9
     1895   03 0039C 1  03       A   T047     T        'EXP'
            03 0039C 2  C5E7D7   A
     1896   03 0039D 1  08       A   T049     T        'EXECUTED'
            03 0039D 2  C5E7C5C3 A
                        E4E3C5C4
     1897   03 0039F 2  03       A   T050     T        'FAM'
            03 0039F 3  C6C1D4   A
     1898   03 003A0 2  05       A   T052     T        'FAULT'
            03 003A0 3  C6C1E4D3 A
                        E3
     1899   03 003A2    03       A   T053     T        'FOR'
            03 003A2 1  C6D6D9   A
     1900   03 003A3    05       A   T055     T        'GROUP'
            03 003A3 1  C7D9D6E4 A
                        D7
     1901   03 003A4 2  0A       A   T056     T        'GENERATION'
            03 003A4 3  C7C5D5C5 A
                        D9C1E3C9
                        D6D5
     1902   03 003A7 1  04       A   T057     T        'HALT'
            03 003A7 2  C8C1D3E3 A
     1903   03 003A8 2  03       A   T058     T        'HIO'
            03 003A8 3  C8C9D6   A
     1904   03 003A9 2  09       A   T059     T        'INCORRECT'
            03 003A9 3  C9D5C3D6 A
                        D9D9C5C3
                        E3
     1905   03 003AC    09       A   T061     T        'INTERRUPT'
            03 003AC 1  C9D5E3C5 A
                        D9D9E4D7
                        E3
     1906   03 003AE 2  02       A   T062     T        'IN'
            03 003AE 3  C9D5     A
     1907   03 003AF 1  07       A   T063     T        'INVALID'
            03 003AF 2  C9D5E5C1 A
                        D3C9C4
     1908   03 003B1 1  04       A   T065     T        'IOCD'
            03 003B1 2  C9D6C3C4 A
     1909   03 003B2 2  02       A   T066     T        'IS'
            03 003B2 3  C9E2     A
     1910   03 003B3 1  06       A   T068     T        'LENGTH'
            03 003B3 2  D3C5D5C7 A
                        E3C8
     1911   03 003B5    02       A   T079     T        'NO'
            03 003B5 1  D5D6     A
     1912   03 003B5 3  06       A   T074     T        'MEMORY'
            03 003B6    D4C5D4D6 A
                        D9E8
     1913   03 003B7 2  03       A   T080     T        'NOT'
            03 003B7 3  D5D6E3   A
     1914   03 003B8 2  03       A   T081     T        'OBS'
            03 003B8 3  D6C2E2   A
     1915   03 003B9 2  02       A   T082     T        'OF'
            03 003B9 3  D6C6     A
     1916   03 003BA 1  09       A   T084     T        'OPERATION'
            03 003BA 2  D6D7C5D9 A
                        C1E3C9D6
                        D5
     1917   03 003BC 3  02       A   T087     T        'OR'
            03 003BD    D6D9     A
     1918   03 003BD 2  05       A   T088     T        'ORDER'
            03 003BD 3  D6D9C4C5 A
                        D9
     1919   03 003BF    03       A   T089     T        'OUT'
            03 003BF 1  D6E4E3   A
     1920   03 003C0    07       A   T091     T        'PATTERN'
            03 003C0 1  D7C1E3E3 A
                        C5D9D5
     1921   03 003C2    07       A   T092     T        'PENDING'
            03 003C2 1  D7C5D5C4 A
                        C9D5C7
     1922   03 003C4    08       A   T094     T        'POSSIBLE'
            03 003C4 1  D7D6E2E2 A
                        C9C2D3C5
     1923   03 003C6 1  06       A   T096     T        'RANDOM'
            03 003C6 2  D9C1D5C4 A
                        D6D4
     1924   03 003C8    04       A   T097     T        'READ'
            03 003C8 1  D9C5C1C4 A
     1925   03 003C9 1  0B       A   T100     T        'RECOGNITION'
            03 003C9 2  D9C5C3D6 A
                        C7D5C9E3
                        C9D6D5
     1926   03 003CC 1  05       A   T104     T        'RESET'
            03 003CC 2  D9C5E2C5 A
                        E3
     1927   03 003CD 3  04       A   T107     T        'SEEK'
            03 003CE    E2C5C5D2 A
     1928   03 003CF    05       A   T108     T        'SENSE'
            03 003CF 1  E2C5D5E2 A
                        C5
     1929   03 003D0 2  08       A   T109     T        'SEQUENCE'
            03 003D0 3  E2C5D8E4 A
                        C5D5C3C5
     1930   03 003D2 3  09       A   T110     T        'SELECTION'
            03 003D3    E2C5D3C5 A
                        C3E3C9D6
                        D5
     1931   03 003D5 1  06       A   T111     T        'SHOULD'
            03 003D5 2  E2C8D6E4 A
                        D3C4
     1932   03 003D7    03       A   T112     T        'SIO'
            03 003D7 1  E2C9D6   A
     1933   03 003D8    06       A   T116     T        'STATUS'
            03 003D8 1  E2E3C1E3 A
                        E4E2
     1934   03 003D9 3  03       A   T118     T        'TDV'
            03 003DA    E3C4E5   A
     1935   03 003DA 3  04       A   T119     T        'TEST'
            03 003DB    E3C5E2E3 A
     1936   03 003DC    04       A   T120     T        'THRU'
            03 003DC 1  E3C8D9E4 A
     1937   03 003DD 1  03       A   T122     T        'TIO'
            03 003DD 2  E3C9D6   A
     1938   03 003DE 1  02       A   T123     T        'TO'
            03 003DE 2  E3D6     A
     1939   03 003DF    04       A   T128     T        'TST0'
            03 003DF 1  E3E2E3F0 A
     1940   03 003E0 1  04       A   T129     T        'TST1'
            03 003E0 2  E3E2E3F1 A
     1941   03 003E1 2  04       A   T130     T        'TST2'
            03 003E1 3  E3E2E3F2 A
     1942   03 003E2 3  04       A   T131     T        'TST3'
            03 003E3    E3E2E3F3 A
     1943   03 003E4    04       A   T133     T        'WILL'
            03 003E4 1  E6C9D3D3 A
     1944   03 003E5 1  04       A   T134     T        'WORD'
            03 003E5 2  E6D6D9C4 A
     1945   03 003E6 2  05       A   T135     T        'WRITE'
            03 003E6 3  E6D9C9E3 A
                        C5
     1946   03 003E8    03       A   T136     T        '***'
            03 003E8 1  5C5C5C   A
     1947   03 003E9    07       A   T200     T        'ABORTED'
            03 003E9 1  C1C2D6D9 A
                        E3C5C4
     1948   03 003EB    0F       A   T201     T        '***(DISPLAY)***'
            03 003EB 1  5C5C5C4D A
                        C4C9E2D7
                        D3C1E85D
                        5C5C5C
     1949   03 003EF    0D       A   T202     T        '***(ERROR)***'
            03 003EF 1  5C5C5C4D A
                        C5D9D9D6
                        D95D5C5C
                        5C
     1950   03 003F2 2  03       A   T203     T        'ALL'
            03 003F2 3  C1D3D3   A
     1951   03 003F3 2  02       A   T204     T        'AN'
            03 003F3 3  C1D5     A
     1952   03 003F4 1  03       A   T2041    T        'ANY'
            03 003F4 2  C1D5E8   A
     1953   03 003F5 1  02       A   T205     T        'AS'
            03 003F5 2  C1E2     A
     1954   03 003F6    0A       A   T206     T        'ASSOCIATED'
            03 003F6 1  C1E2E2D6 A
                        C3C9C1E3
                        C5C4
     1955   03 003F8 3  02       A   T208     T        'BA'
            03 003F9    C2C1     A
     1956   03 003F9 2  04       A   T209     T        'BAND'
            03 003F9 3  C2C1D5C4 A
     1957   03 003FA 3  03       A   T210     T        'BUS'
            03 003FB    C2E4E2   A
     1958   03 003FB 3  02       A   T211     T        'BY'
            03 003FC    C2E8     A
     1959   03 003FC 2  02       A   T212     T        'CA'
            03 003FC 3  C3C1     A
     1960   03 003FD 1  03       A   T213     T        'CAN'
            03 003FD 2  C3C1D5   A
     1961   03 003FE 1  05       A   T214     T        'CAUSE'
            03 003FE 2  C3C1E4E2 A
                        C5
     1962   03 003FF 3  04       A   T215     T        'CELL'
            03 00400    C3C5D3D3 A
     1963   03 00401    05       A   T216     T        'CHECK'
            03 00401 1  C3C8C5C3 A
                        D2
     1964   03 00402 2  09       A   T217     T        'CONDITION'
            03 00402 3  C3D6D5C4 A
                        C9E3C9D6
                        D5
     1965   03 00405    07       A   T218     T        'CONTROL'
            03 00405 1  C3D6D5E3 A
                        D9D6D3
     1966   03 00407    01       A   T220     T        '-'
            03 00407 1  60       A
     1967   03 00407 2  06       A   T221     T        'DECODE'
            03 00407 3  C4C5C3D6 A
                        C4C5
     1968   03 00409 1  08       A   T222     T        'DECODING'
            03 00409 2  C4C5C3D6 A
                        C4C9D5C7
     1969   03 0040B 2  09       A   T223     T        'DECREMENT'
            03 0040B 3  C4C5C3D9 A
                        C5D4C5D5
                        E3
     1970   03 0040E    06       A   T224     T        'DETECT'
            03 0040E 1  C4C5E3C5 A
                        C3E3
     1971   03 0040F 3  03       A   T2241    T        'DIO'
            03 00410    C4C9D6   A
     1972   03 00410 3  06       A   T225     T        'DIRECT'
            03 00411    C4C9D9C5 A
                        C3E3
     1973   03 00412 2  02       A   T227     T        'DO'
            03 00412 3  C4D6     A
     1974   03 00413 1  04       A   T228     T        'DOES'
            03 00413 2  C4D6C5E2 A
     1975   03 00414 2  06       A   T230     T        'DURING'
            03 00414 3  C4E4D9C9 A
                        D5C7
     1976   03 00416 1  01       A   T231     T        '='
            03 00416 2  7E       A
     1977   03 00416 3  09       A   T232     T        'EXECUTION'
            03 00417    C5E7C5C3 A
                        E4E3C9D6
                        D5
     1978   03 00419 1  03       A   T234     T        'FAR'
            03 00419 2  C6C1D9   A
     1979   03 0041A 1  04       A   T235     T        'FREE'
            03 0041A 2  C6D9C5C5 A
     1980   03 0041B 2  04       A   T236     T        'FULL'
            03 0041B 3  C6E4D3D3 A
     1981   03 0041C 3  08       A   T237     T        'FUNCTION'
            03 0041D    C6E4D5C3 A
                        E3C9D6D5
     1982   03 0041F    01       A   T238     T        'H'
            03 0041F 1  C8       A
     1983   03 0041F 2  03       A   T240     T        'I/O'
            03 0041F 3  C961D6   A
     1984   03 00420 2  02       A   T241     T        'IF'
            03 00420 3  C9C6     A
     1985   03 00421 1  09       A   T242     T        'INCREMENT'
            03 00421 2  C9D5C3D9 A
                        C5D4C5D5
                        E3
     1986   03 00423 3  09       A   T243     T        'INDICATOR'
            03 00424    C9D5C4C9 A
                        C3C1E3D6
                        D9
     1987   03 00426 1  0A       A   T244     T        'INDICATORS'
            03 00426 2  C9D5C4C9 A
                        C3C1E3D6
                        D9E2
     1988   03 00429    07       A   T245     T        'INITIAL'
            03 00429 1  C9D5C9E3 A
                        C9C1D3
     1989   03 0042B    0B       A   T246     T        'INSTRUCTION'
            03 0042B 1  C9D5E2E3 A
                        D9E4C3E3
                        C9D6D5
     1990   03 0042E    04       A   T247     T        'INTO'
            03 0042E 1  C9D5E3D6 A
     1991   03 0042F 1  02       A   T248     T        'IT'
            03 0042F 2  C9E3     A
     1992   03 00430    01       A   T249     T        'J'
            03 00430 1  D1       A
     1993   03 00430 2  01       A   T250     T        'K'
            03 00430 3  D2       A
     1994   03 00431    01       A   T251     T        'L'
            03 00431 1  D3       A
     1995   03 00431 2  05       A   T252     T        'LATCH'
            03 00431 3  D3C1E3C3 A
                        C8
     1996   03 00433    07       A   T253     T        'LATCHES'
            03 00433 1  D3C1E3C3 A
                        C8C5E2
     1997   03 00435    01       A   T254     T        'M'
            03 00435 1  D4       A
     1998   03 00435 2  05       A   T255     T        'M8/M9'
            03 00435 3  D4F861D4 A
                        F9
     1999   03 00437    04       A   T256     T        'MADE'
            03 00437 1  D4C1C4C5 A
     2000   03 00438 1  02       A   T257     T        'MI'
            03 00438 2  D4C9     A
     2001   03 00439    06       A   T258     T        'MISSED'
            03 00439 1  D4C9E2E2 A
                        C5C4
     2002   03 0043A 3  03       A   T260     T        'NEW'
            03 0043B    D5C5E6   A
     2003   03 0043B 3  04       A   T261     T        'NONE'
            03 0043C    D5D6D5C5 A
     2004   03 0043D    09       A   T262     T        'OBJECTIVE'
            03 0043D 1  D6C2D1C5 A
                        C3E3C9E5
                        C5
     2005   03 0043F 2  05       A   T263     T        'OCCUR'
            03 0043F 3  D6C3C3E4 A
                        D9
     2006   03 00441    08       A   T264     T        'OCCURRED'
            03 00441 1  D6C3C3E4 A
                        D9D9C5C4
     2007   03 00443 1  01       A   T265     T        '1'
            03 00443 2  F1       A
     2008   03 00443 3  04       A   T266     T        'ONLY'
            03 00444    D6D5D3E8 A
     2009   03 00445    06       A   T267     T        'PARITY'
            03 00445 1  D7C1D9C9 A
                        E3E8
     2010   03 00446 3  04       A   T2671    T        'PART'
            03 00447    D7C1D9E3 A
     2011   03 00448    07       A   T268     T        'PARTIAL'
            03 00448 1  D7C1D9E3 A
                        C9C1D3
     2012   03 0044A    04       A   T269     T        'PASS'
            03 0044A 1  D7C1E2E2 A
     2013   03 0044B 1  04       A   T270     T        'PATH'
            03 0044B 2  D7C1E3C8 A
     2014   03 0044C 2  02       A   T271     T        'PH'
            03 0044C 3  D7C8     A
     2015   03 0044D 1  05       A   T272     T        'PHASE'
            03 0044D 2  D7C8C1E2 A
                        C5
     2016   03 0044E 3  04       A   T273     T        'PLOP'
            03 0044F    D7D3D6D7 A
     2017   03 00450    04       A   T274     T        'PLOR'
            03 00450 1  D7D3D6D9 A
     2018   03 00451 1  04       A   T2741    T        'PORT'
            03 00451 2  D7D6D9E3 A
     2019   03 00452 2  08       A   T275     T        'PRESENCE'
            03 00452 3  D7D9C5E2 A
                        C5D5C3C5
     2020   03 00454 3  09       A   T276     T        'PROCESSOR'
            03 00455    D7D9D6C3 A
                        C5E2E2D6
                        D9
     2021   03 00457 1  07       A   T277     T        'PROTECT'
            03 00457 2  D7D9D6E3 A
                        C5C3E3
     2022   03 00459 1  0A       A   T278     T        'RECOGNIZED'
            03 00459 2  D9C5C3D6 A
                        C7D5C9E9
                        C5C4
     2023   03 0045C    08       A   T279     T        'REGISTER'
            03 0045C 1  D9C5C7C9 A
                        E2E3C5D9
     2024   03 0045E 1  06       A   T280     T        'REPORT'
            03 0045E 2  D9C5D7D6 A
                        D9E3
     2025   03 00460    08       A   T281     T        'REPORTED'
            03 00460 1  D9C5D7D6 A
                        D9E3C5C4
     2026   03 00462 1  07       A   T282     T        'REQUEST'
            03 00462 2  D9C5D8E4 A
                        C5E2E3
     2027   03 00464 1  09       A   T283     T        'RESPONDED'
            03 00464 2  D9C5E2D7 A
                        D6D5C4C5
                        C4
     2028   03 00466 3  06       A   T284     T        'RETURN'
            03 00467    D9C5E3E4 A
                        D9D5
     2029   03 00468 2  03       A   T285     T        'RIO'
            03 00468 3  D9C9D6   A
     2030   03 00469 2  04       A   T286     T        'RIOP'
            03 00469 3  D9C9D6D7 A
     2031   03 0046A 3  03       A   T287     T        'ROW'
            03 0046B    D9D6E6   A
     2032   03 0046B 3  03       A   T288     T        'RUN'
            03 0046C    D9E4D5   A
     2033   03 0046C 3  07       A   T289     T        'RUNNING'
            03 0046D    D9E4D5D5 A
                        C9D5C7
     2034   03 0046E 3  06       A   T290     T        'SECTOR'
            03 0046F    E2C5C3E3 A
                        D6D9
     2035   03 00470 2  03       A   T291     T        'SET'
            03 00470 3  E2C5E3   A
     2036   03 00471 2  07       A   T292     T        'SETTING'
            03 00471 3  E2C5E3E3 A
                        C9D5C7
     2037   03 00473 2  04       A   T293     T        'STEP'
            03 00473 3  E2E3C5D7 A
     2038   03 00474 3  04       A   T295     T        'STOP'
            03 00475    E2E3D6D7 A
     2039   03 00476    06       A   T296     T        'STROBE'
            03 00476 1  E2E3D9D6 A
                        C2C5
     2040   03 00477 3  0A       A   T297     T        'SUCCESSFUL'
            03 00478    E2E4C3C3 A
                        C5E2E2C6
                        E4D3
     2041   03 0047A 2  04       A   T298     T        'THAT'
            03 0047A 3  E3C8C1E3 A
     2042   03 0047B 3  03       A   T299     T        'THE'
            03 0047C    E3C8C5   A
     2043   03 0047C 3  02       A   T300     T        'TI'
            03 0047D    E3C9     A
     2044   03 0047D 2  05       A   T301     T        'TOTAL'
            03 0047D 3  E3D6E3C1 A
                        D3
     2045   03 0047F    02       A   T302     T        'TR'
            03 0047F 1  E3D9     A
     2046   03 0047F 3  08       A   T303     T        'TRANSFER'
            03 00480    E3D9C1D5 A
                        E2C6C5D9
     2047   03 00482    0C       A   T304     T        'TRANSMISSION'
            03 00482 1  E3D9C1D5 A
                        E2D4C9E2
                        E2C9D6D5
     2048   03 00485 1  04       A   T305     T        'TRAP'
            03 00485 2  E3D9C1D7 A
     2049   03 00486 2  0A       A   T306     T        'TRAP/INTER'
            03 00486 3  E3D9C1D7 A
                        61C9D5E3
                        C5D9
     2050   03 00489 1  02       A   T307     T        'TS'
            03 00489 2  E3E2     A
     2051   03 0048A    07       A   T308     T        'UNUSUAL'
            03 0048A 1  E4D5E4E2 A
                        E4C1D3
     2052   03 0048C    09       A   T309     T        'VIOLATION'
            03 0048C 1  E5C9D6D3 A
                        C1E3C9D6
                        D5
     2053   03 0048E 2  04       A   T310     T        'WHEN'
            03 0048E 3  E6C8C5D5 A
     2054   03 0048F 3  07       A   T311     T        'WRITTEN'
            03 00490    E6D9C9E3 A
                        E3C5D5
     2055   03 00491 3  07       A   T312     T        'WRITING'
            03 00492    E6D9C9E3 A
                        C9D5C7
     2056   03 00493 3  01       A   T313     T        '0'
            03 00494    F0       A
     2057   03 00494 1  09       A   T314     T        'DEPENDENT'
            03 00494 2  C4C5D7C5 A
                        D5C4C5D5
                        E3
     2058   03 00496 3  06       A   T315     T        'VERIFY'
            03 00497    E5C5D9C9 A
                        C6E8
     2059   03 00498 2  05       A   T316     T        'LINES'
            03 00498 3  D3C9D5C5 A
                        E2
     2060   03 0049A    05       A   T317     T        'STATE'
            03 0049A 1  E2E3C1E3 A
                        C5
     2061   03 0049B 2  05       A   T318     T        'CODES'
            03 0049B 3  C3D6C4C5 A
                        E2
     2062   03 0049D    08       A   T319     T        'RETURNED'
            03 0049D 1  D9C5E3E4 A
                        D9D5C5C4
     2063   03 0049F 1  0A       A   T320     T        'DOUBLEWORD'
            03 0049F 2  C4D6E4C2 A
                        D3C5E6D6
                        D9C4
     2064   03 004A2    08       A   T321     T        'COUNTERS'
            03 004A2 1  C3D6E4D5 A
                        E3C5D9E2
     2065   03 004A4 1  06       A   T322     T        'OUTPUT'
            03 004A4 2  D6E4E3D7 A
                        E4E3
     2066   03 004A6    08       A   T323     T        'EXPECTED'
            03 004A6 1  C5E7D7C5 A
                        C3E3C5C4
     2067   03 004A8 1  03       A   T324     T        'DID'
            03 004A8 2  C4C9C4   A
     2068   03 004A9 1  05       A   T325     T        'PATHS'
            03 004A9 2  D7C1E3C8 A
                        E2
     2069   03 004AA 3  0A       A   T326     T        'UNEXPECTED'
            03 004AB    E4D5C5E7 A
                        D7C5C3E3
                        C5C4
     2070   03 004AD 2  03       A   T327     T        'WAS'
            03 004AD 3  E6C1E2   A
     2071   03 004AE 2  07       A   T328     T        'CHAINED'
            03 004AE 3  C3C8C1C9 A
                        D5C5C4
     2072   03 004B0 2  04       A   T329     T        'FROM'
            03 004B0 3  C6D9D6D4 A
     2073   03 004B1 3  07       A   T330     T        'STEPPED'
            03 004B2    E2E3C5D7 A
                        D7C5C4
     2074   03 004B3 3  04       A   T331     T        'LINE'
            03 004B4    D3C9D5C5 A
     2075   03 004B5    08       A   T332     T        'ACCESSED'
            03 004B5 1  C1C3C3C5 A
                        E2E2C5C4
     2076   03 004B7 1  0A       A   T333     T        'ADDRESSING'
            03 004B7 2  C1C4C4D9 A
                        C5E2E2C9
                        D5C7
     2077   03 004BA    05       A   T334     T        'BEING'
            03 004BA 1  C2C5C9D5 A
                        C7
     2078   03 004BB 2  07       A   T336     T        'CHANNEL'
            03 004BB 3  C3C8C1D5 A
                        D5C5D3
     2079   03 004BD 2  09       A   T337     T        'CORRECTLY'
            03 004BD 3  C3D6D9D9 A
                        C5C3E3D3
                        E8
     2080   03 004C0    07       A   T338     T        'DECODED'
            03 004C0 1  C4C5C3D6 A
                        C4C5C4
     2081   03 004C2    08       A   T339     T        'DETECTED'
            03 004C2 1  C4C5E3C5 A
                        C3E3C5C4
     2082   03 004C4 1  07       A   T340     T        'EXECUTE'
            03 004C4 2  C5E7C5C3 A
                        E4E3C5
     2083   03 004C6 1  0B       A   T341     T        'FUNCTIONING'
            03 004C6 2  C6E4D5C3 A
                        E3C9D6D5
                        C9D5C7
     2084   03 004C9 1  09       A   T342     T        'FUNCTIONS'
            03 004C9 2  C6E4D5C3 A
                        E3C9D6D5
                        E2
     2085   03 004CB 3  09       A   T343     T        'GENERATED'
            03 004CC    C7C5D5C5 A
                        D9C1E3C5
                        C4
     2086   03 004CE 1  02       A   T344     T        'GO'
            03 004CE 2  C7D6     A
     2087   03 004CF    06       A   T345     T        'GROUPS'
            03 004CF 1  C7D9D6E4 A
                        D7E2
     2088   03 004D0 3  06       A   T346     T        'HEADER'
            03 004D1    C8C5C1C4 A
                        C5D9
     2089   03 004D2 2  07       A   T347     T        'INITIAL'
            03 004D2 3  C9D5C9E3 A
                        C9C1D3
     2090   03 004D4 2  06       A   T348     T        'NORMAL'
            03 004D4 3  D5D6D9D4 A
                        C1D3
     2091   03 004D6 1  06       A   T349     T        'OBTAIN'
            03 004D6 2  D6C2E3C1 A
                        C9D5
     2092   03 004D8    04       A   T350     T        'RATE'
            03 004D8 1  D9C1E3C5 A
     2093   03 004D9 1  08       A   T351     T        'REQUIRED'
            03 004D9 2  D9C5D8E4 A
                        C9D9C5C4
     2094   03 004DB 2  08       A   T352     T        'SELECTED'
            03 004DB 3  E2C5D3C5 A
                        C3E3C5C4
     2095   03 004DD 3  04       A   T353     T        'SYNC'
            03 004DE    E2E8D5C3 A
     2096   03 004DF    04       A   T354     T        'THIS'
            03 004DF 1  E3C8C9E2 A
     2097   03 004E0 1  0B       A   T355     T        'UNAVAILABLE'
            03 004E0 2  E4D5C1E5 A
                        C1C9D3C1
                        C2D3C5
     2098   03 004E3 1  0A       A   T356     T        'ADDITIONAL'
            03 004E3 2  C1C4C4C9 A
                        E3C9D6D5
                        C1D3
     2099   03 004E6    04       A   T357     T        'AREA'
            03 004E6 1  C1D9C5C1 A
     2100   03 004E7 1  07       A   T358     T        'FAILING'
            03 004E7 2  C6C1C9D3 A
                        C9D5C7
     2101   03 004E9 1  09       A   T359     T        'SPECIFIED'
            03 004E9 2  E2D7C5C3 A
                        C9C6C9C5
                        C4
     2102   03 004EB 3  07       A   T360     T        'LIMITED'
            03 004EC    D3C9D4C9 A
                        E3C5C4
     2103   03 004ED 3  06       A   T361     T        'ERRORS'
            03 004EE    C5D9D9D6 A
                        D9E2
     2104   03 004EF 2  09       A   T362     T        'ADVANCING'
            03 004EF 3  C1C4E5C1 A
                        D5C3C9D5
                        C7
     2105   03 004F2    04       A   T363     T        'BITS'
            03 004F2 1  C2C9E3E2 A
     2106   03 004F3 1  09       A   T365     T        'DETECTION'
            03 004F3 2  C4C5E3C5 A
                        C3E3C9D6
                        D5
     2107   03 004F5 3  0C       A   T366     T        'INSTRUCTIONS'
            03 004F6    C9D5E2E3 A
                        D9E4C3E3
                        C9D6D5E2
     2108   03 004F9    08       A   T368     T        'PROPERLY'
            03 004F9 1  D7D9D6D7 A
                        C5D9D3E8
     2109   03 004FB 1  09       A   T369     T        'REQUESTED'
            03 004FB 2  D9C5D8E4 A
                        C5E2E3C5
                        C4
     2110   03 004FD 3  04       A   T371     T        'SIZE'
            03 004FE    E2C9E9C5 A
     2111   03 004FF    05       A   T372     T        'TRACK'
            03 004FF 1  E3D9C1C3 A
                        D2
     2112   03 00500 2  0B       A   T373     T        'TRANSFERRED'
            03 00500 3  E3D9C1D5 A
                        E2C6C5D9
                        D9C5C4
     2113   03 00503 2  04       A   T374     T        'WERE'
            03 00503 3  E6C5D9C5 A
     2114   03 00504 3  06       A   T375     T        'WITHIN'
            03 00505    E6C9E3C8 A
                        C9D5
     2115   03 00506 2  07       A   T376     T        'BECAUSE'
            03 00506 3  C2C5C3C1 A
                        E4E2C5
     2116   03 00508 2  04       A   T377     T        'AXIS'
            03 00508 3  C1E7C9E2 A
     2117   03 00509 3  01       A   T378     T        'D'
            03 0050A    C4       A
     2118   03 0050A 1  03       A   T379     T        'DEC'
            03 0050A 2  C4C5C3   A
     2119   03 0050B 1  07       A   T380     T        'DECIMAL'
            03 0050B 2  C4C5C3C9 A
                        D4C1D3
     2120   03 0050D 1  01       A   T381     T        'E'
            03 0050D 2  C5       A
     2121   03 0050D 3  04       A   T382     T        'HEAD'
            03 0050E    C8C5C1C4 A
     2122   03 0050F    06       A   T383     T        'MATRIX'
            03 0050F 1  D4C1E3D9 A
                        C9E7
     2123   03 00510 3  01       A   T384     T        'P'
            03 00511    D7       A
     2124   03 00511 1  01       A   T385     T        'R'
            03 00511 2  D9       A
     2125   03 00511 3  07       A   T386     T        'SURFACE'
            03 00512    E2E4D9C6 A
                        C1C3C5
     2126   03 00513 3  01       A   T387     T        'T'
            03 00514    E3       A
     2127   03 00514 1  05       A   T388     T        'TABLE'
            03 00514 2  E3C1C2D3 A
                        C5
     2128   03 00515 3  01       A   T389     T        'U'
            03 00516    E4       A
     2129   03 00516 1  06       A   T390     T        'UNLESS'
            03 00516 2  E4D5D3C5 A
                        E2E2
     2130   03 00518    06       A   T391     T        'VALUES'
            03 00518 1  E5C1D3E4 A
                        C5E2
     2131   03 00519 3  01       A   T392     T        'X'
            03 0051A    E7       A
     2132   03 0051A 1  05       A   T393     T        'BANDS'
            03 0051A 2  C2C1D5C4 A
                        E2
     2133   03 0051B 3  05       A   T394     T        'ENTRY'
            03 0051C    C5D5E3D9 A
                        E8
     2134   03 0051D 1  08       A   T395     T        'INDICATE'
            03 0051D 2  C9D5C4C9 A
                        C3C1E3C5
     2135   03 0051F 2  04       A   T396     T        'ONCE'
            03 0051F 3  D6D5C3C5 A
     2136   03 00520 3  09       A   T397     T        'PROTECTED'
            03 00521    D7D9D6E3 A
                        C5C3E3C5
                        C4
     2137   03 00523 1  09       A   T398     T        'OTHERWISE'
            03 00523 2  D6E3C8C5 A
                        D9E6C9E2
                        C5
     2138   03 00525 3  05       A   T400     T        'WHERE'
            03 00526    E6C8C5D9 A
                        C5
     2139   03 00527 1  01       A   T404     T        '
'
            03 00527 2  15       A
     2140   03 00527 3  02       A   T405     T        '20'
            03 00528    F2F0     A
     2141   03 00528 2  04       A   T406     T        'BEEN'
            03 00528 3  C2C5C5D5 A
     2142   03 00529 3  07       A   T407     T        'DETECTS'
            03 0052A    C4C5E3C5 A
                        C3E3E2
     2143   03 0052B 3  03       A   T408     T        'HAS'
            03 0052C    C8C1E2   A
     2144   03 0052C 3  03       A   T409     T        'IOP'
            03 0052D    C9D6D7   A
     2145   03 0052D 3  05       A   T410     T        'THERE'
            03 0052E    E3C8C5D9 A
                        C5
     2146   03 0052F 1  09       A   T411     T        'ACCESSING'
            03 0052F 2  C1C3C3C5 A
                        E2E2C9D5
                        C7
     2147   03 00531 3  09       A   T412     T        'ADDRESSES'
            03 00532    C1C4C4D9 A
                        C5E2E2C5
                        E2
     2148   03 00534 1  04       A   T413     T        'BACK'
            03 00534 2  C2C1C3D2 A
     2149   03 00535 2  08       A   T414     T        'BOUNDARY'
            03 00535 3  C2D6E4D5 A
                        C4C1D9E8
     2150   03 00537 3  05       A   T415     T        'CASES'
            03 00538    C3C1E2C5 A
                        E2
     2151   03 00539 1  07       A   T416     T        'CAUSING'
            03 00539 2  C3C1E4E2 A
                        C9D5C7
     2152   03 0053B 1  06       A   T417     T        'CHECKS'
            03 0053B 2  C3C8C5C3 A
                        D2E2
     2153   03 0053D    0A       A   T418     T        'CHECKWRITE'
            03 0053D 1  C3C8C5C3 A
                        D2E6D9C9
                        E3C5
     2154   03 0053F 3  04       A   T419     T        'CORE'
            03 00540    C3D6D9C5 A
     2155   03 00541    07       A   T420     T        'COUNTER'
            03 00541 1  C3D6E4D5 A
                        E3C5D9
     2156   03 00543    06       A   T421     T        'COUNTS'
            03 00543 1  C3D6E4D5 A
                        E3E2
     2157   03 00544 3  0A       A   T422     T        'CONDITIONS'
            03 00545    C3D6D5C4 A
                        C9E3C9D6
                        D5E2
     2158   03 00547 2  0B       A   T423     T        'DECREMENTED'
            03 00547 3  C4C5C3D9 A
                        C5D4C5D5
                        E3C5C4
     2159   03 0054A 2  06       A   T424     T        'DESKEW'
            03 0054A 3  C4C5E2D2 A
                        C5E6
     2160   03 0054C 1  0A       A   T425     T        'DIFFERENCE'
            03 0054C 2  C4C9C6C6 A
                        C5D9C5D5
                        C3C5
     2161   03 0054F    06       A   T427     T        'FAILED'
            03 0054F 1  C6C1C9D3 A
                        C5C4
     2162   03 00550 3  04       A   T428     T        'FLAG'
            03 00551    C6D3C1C7 A
     2163   03 00552    01       A   T429     T        '5'
            03 00552 1  F5       A
     2164   03 00552 2  01       A   T430     T        '4'
            03 00552 3  F4       A
     2165   03 00553    08       A   T431     T        'FOLLOWED'
            03 00553 1  C6D6D3D3 A
                        D6E6C5C4
     2166   03 00555 1  01       A   T432     T        'I'
            03 00555 2  C9       A
     2167   03 00555 3  09       A   T433     T        'INTERFACE'
            03 00556    C9D5E3C5 A
                        D9C6C1C3
                        C5
     2168   03 00558 1  04       A   T434     T        'LAST'
            03 00558 2  D3C1E2E3 A
     2169   03 00559 2  04       A   T435     T        'LESS'
            03 00559 3  D3C5E2E2 A
     2170   03 0055A 3  05       A   T436     T        'LOGIC'
            03 0055B    D3D6C7C9 A
                        C3
     2171   03 0055C 1  07       A   T437     T        'OVERRUN'
            03 0055C 2  D6E5C5D9 A
                        D9E4D5
     2172   03 0055E 1  06       A   T438     T        'OCCURS'
            03 0055E 2  D6C3C3E4 A
                        D9E2
     2173   03 00560    05       A   T439     T        'KEYED'
            03 00560 1  D2C5E8C5 A
                        C4
     2174   03 00561 2  0B       A   T440     T        'INCREMENTED'
            03 00561 3  C9D5C3D9 A
                        C5D4C5D5
                        E3C5C4
     2175   03 00564 2  05       A   T441     T        'PLACE'
            03 00564 3  D7D3C1C3 A
                        C5
     2176   03 00566    06       A   T442     T        'PASSED'
            03 00566 1  D7C1E2E2 A
                        C5C4
     2177   03 00567 3  09       A   T443     T        'RECOGNIZE'
            03 00568    D9C5C3D6 A
                        C7D5C9E9
                        C5
     2178   03 0056A 1  05       A   T444     T        'READS'
            03 0056A 2  D9C5C1C4 A
                        E2
     2179   03 0056B 3  08       A   T445     T        'REQUESTS'
            03 0056C    D9C5D8E4 A
                        C5E2E3E2
     2180   03 0056E    07       A   T446     T        'RESPOND'
            03 0056E 1  D9C5E2D7 A
                        D6D5C4
     2181   03 00570    07       A   T447     T        'REPORTS'
            03 00570 1  D9C5D7D6 A
                        D9E3E2
     2182   03 00572    07       A   T448     T        'SECTORS'
            03 00572 1  E2C5C3E3 A
                        D6D9E2
     2183   03 00574    06       A   T449     T        'SEEKED'
            03 00574 1  E2C5C5D2 A
                        C5C4
     2184   03 00575 3  06       A   T450     T        'SENSED'
            03 00576    E2C5D5E2 A
                        C5C4
     2185   03 00577 2  04       A   T451     T        'SKIP'
            03 00577 3  E2D2C9D7 A
     2186   03 00578 3  0A       A   T452     T        'SUBCHANNEL'
            03 00579    E2E4C2C3 A
                        C8C1D5D5
                        C5D3
     2187   03 0057B 2  04       A   T453     T        'THEN'
            03 0057B 3  E3C8C5D5 A
     2188   03 0057C 3  05       A   T454     T        'THOSE'
            03 0057D    E3C8D6E2 A
                        C5
     2189   03 0057E 1  04       A   T455     T        'THUS'
            03 0057E 2  E3C8E4E2 A
     2190   03 0057F 2  04       A   T456     T        'TAKE'
            03 0057F 3  E3C1D2C5 A
     2191   03 00580 3  06       A   T457     T        'TRACKS'
            03 00581    E3D9C1C3 A
                        D2E2
     2192   03 00582 2  01       A   T458     T        '3'
            03 00582 3  F3       A
     2193   03 00583    01       A   T459     T        '2'
            03 00583 1  F2       A
     2194   03 00583 2  02       A   T460     T        '63'
            03 00583 3  F6F3     A
     2195   03 00584 1  05       A   T461     T        'UNDER'
            03 00584 2  E4D5C4C5 A
                        D9
     2196   03 00585 3  05       A   T462     T        'UNTIL'
            03 00586    E4D5E3C9 A
                        D3
     2197   03 00587 1  07       A   T463     T        'VARIOUS'
            03 00587 2  E5C1D9C9 A
                        D6E4E2
     2198   03 00589 1  05       A   T464     T        'WHILE'
            03 00589 2  E6C8C9D3 A
                        C5
     2199   03 0058A 3  04       A   T465     T        'WITH'
            03 0058B    E6C9E3C8 A
     2200   03 0058C    05       A   T466     T        'FIRST'
            03 0058C 1  C6C9D9E2 A
                        E3
     2201   03 0058D 2  06       A   T467     T        'LOADED'
            03 0058D 3  D3D6C1C4 A
                        C5C4
     2202   03 0058F 1  09       A   T468     T        'RETURNING'
            03 0058F 2  D9C5E3E4 A
                        D9D5C9D5
                        C7
     2203   03 00591 3  07       A   T469     T        'SPREADS'
            03 00592    E2D7D9C5 A
                        C1C4E2
     2204   03 00593 3  08       A   T470     T        'STARTING'
            03 00594    E2E3C1D9 A
                        E3C9D5C7
     2205   03 00596    08       A   T471     T        'SUPPRESS'
            03 00596 1  E2E4D7D7 A
                        D9C5E2E2
     2206   03 00598 1  04       A   T472     T        'THAN'
            03 00598 2  E3C8C1D5 A
     2207   03 00599 2  08       A   T474     T        'OBSERVED'
            03 00599 3  D6C2E2C5 A
                        D9E5C5C4
     2208   03 0059B 3  05       A   T475     T        'WORKS'
            03 0059C    E6D6D9D2 A
                        E2
     2209   03 0059D 1  09       A   T476     T        'PARTIALLY'
            03 0059D 2  D7C1D9E3 A
                        C9C1D3D3
                        E8
     2210   03 0059F 3  07       A   T477     T        'CHECKED'
            03 005A0    C3C8C5C3 A
                        D2C5C4
     2211   03 005A1 3  09       A   T478     T        'REGISTERS'
            03 005A2    D9C5C7C9 A
                        E2E3C5D9
                        E2
     2212   03 005A4 1  07       A   T479     T        'ALIGNED'
            03 005A4 2  C1D3C9C7 A
                        D5C5C4
     2213   03 005A6 1  06       A   T480     T        'HALTED'
            03 005A6 2  C8C1D3E3 A
                        C5C4
     2214   03 005A8    08       A   T481     T        'REPEATED'
            03 005A8 1  D9C5D7C5 A
                        C1E3C5C4
     2215   03 005AA 1  03       A   T482     T        'TCC'
            03 005AA 2  E3C3C3   A
     2216   03 005AB 1  0A       A   T500     T        'FUNCTIONAL'
            03 005AB 2  C6E4D5C3 A
                        E3C9D6D5
                        C1D3
     2217   03 005AE    07       A   T501     T        'STARTED'
            03 005AE 1  E2E3C1D9 A
                        E3C5C4
     2218   03 005B0    09       A   T502     T        'EXERCISER'
            03 005B0 1  C5E7C5D9 A
                        C3C9E2C5
                        D9
     2219   03 005B2 2  01       A   T503     T        '6'
            03 005B2 3  F6       A
     2220   03 005B3    05       A   T504     T        'ZEROS'
            03 005B3 1  E9C5D9D6 A
                        E2
     2221   03 005B4 2  05       A   T505     T        'FIXED'
            03 005B4 3  C6C9E7C5 A
                        C4
     2222                            *
     2223                            *
     2224                            *
     2225                            *
     2226                                     BOUND    4
     2227   03 005B6                          LOC,4    %
            03 005B6
     2228                            *
     2229                            *
     2230                            *
     2231                            *        ***DAT - DICTIONARY ADDRESS TABLE***
     2232                            *
     2233                                     LOCAL    AIO,CC,HIO,IO,SIO,TDV,TIO,TST0,TST1,TST2,TST3,;
     2234                                              J,K,L,DELAY,;
     2235                                              I,SECTORS,;
     2236                                              PARTIAL,;
     2237                                              RIO,PLOP,PLOR,;
     2238                                              LINE,MASK,MEMORY,;
     2239                                              SEEK,SENSE,;
     2240                                              SURFACE,;
     2241                                              WRITTEN,;
     2242                                              STOP
     2243         03 005B6           DAT      EQU      %
     2244         03 006B6           DATEXT   EQU      %+256
     2245   03 005B6    00000000 A   CONC     DATA     0                 1. ENTRY
     2246   03 005B7    0000149D     NL                DATA              T404
     2247   03 005B8    00000000 A            DATA     0                 3. ENTRY
     2248   03 005B9    00000D08     TOBJ              DATA              T401
     2249   03 005BA    00000D98     A           DATA     T001
     2250   03 005BB    00000FA4     ABORTED           DATA              T200
     2251   03 005BC    00000DA1     ACCEPTED    DATA     T003
     2252   03 005BD    000012D4     ACCESSED          DATA              T332
     2253   03 005BE    00000DAA     ADDRESS     DATA     T004
     2254   03 005BF    000012DD     ADDRESSING        DATA              T333
     2255   03 005C0    00000FAC     ADISPLAY          DATA              T201
     2256   03 005C1    00000FBC     AERROR            DATA              T202
     2257   03 005C2    00000DB2     AFTER       DATA     T005
     2258   03 005C3    00000DB8     ALIGNMENT   DATA     T006
     2259   03 005C4    00000FCA     ALL               DATA              T203
     2260   03 005C5    00000DC2     AIO         DATA     T007
     2261   03 005C6    00000FCE     AN                DATA              T204
     2262   03 005C7    00000FD5     AS                DATA              T205
     2263   03 005C8    00000DC6     ARE         DATA     T008
     2264   03 005C9    00001398     AREA              DATA              T357
     2265   03 005CA    00000DCA     AT          DATA     T009
     2266   03 005CB    00000DCD     AND         DATA     T010
     2267   03 005CC    00000DD1     AVAILABLE   DATA     T011
     2268   03 005CD    00000DDB     B           DATA     T012
     2269   03 005CE    00000FE6     BAND              DATA              T209
     2270   03 005CF    00001469     BANDS             DATA              T393
     2271   03 005D0    00000DE1     BE          DATA     T014
     2272   03 005D1    00000DE4     BIT         DATA     T015
     2273   03 005D2    00000DE8     1BLANK      DATA     T016
     2274   03 005D3    00000DEA     2BLANK      DATA     T017
     2275   03 005D4    00000DED     4BLANK      DATA     T018
     2276   03 005D5    00000DF2     8BLANK      DATA     T019
     2277   03 005D6    000014D6     BOUNDARY          DATA              T414
     2278   03 005D7    00000FEB     BUS               DATA              T210
     2279   03 005D8    00000DFB     BUSY        DATA     T021
     2280   03 005D9    00000FEF     BY                DATA              T211
     2281   03 005DA    00000E00     BYTE        DATA     T022
     2282   03 005DB    00000E05     BYTES       DATA     T023
     2283   03 005DC    00000FF2     CA                DATA              T212
     2284   03 005DD    00000FF5     CAN               DATA              T213
     2285   03 005DE    000014DF     CASES             DATA              T415
     2286   03 005DF    00000FF9     CAUSE             DATA              T214
     2287   03 005E0    00000FFF     CELL              DATA              T215
     2288   03 005E1    000012BA     CHAINED           DATA              T328
     2289   03 005E2    00000E3B     CHAINING    DATA     T037
     2290   03 005E3    000012EE     CHANNEL           DATA              T336
     2291   03 005E4    00001004     CHECK             DATA              T216
     2292   03 005E5    000014ED     CHECKS            DATA              T417
     2293   03 005E6    000014F4     CHECKWRITE        DATA              T418
     2294   03 005E7    00000E0B     CODE        DATA     T024
     2295   03 005E8    0000126E     CODES             DATA              T318
     2296   03 005E9    00000E10     COMMAND     DATA     T025
     2297   03 005EA    00000E1A     COMMA       DATA     T027
     2298   03 005EB    00000E22     COMPARE     DATA     T029
     2299   03 005EC    0000100A     CONDITION         DATA              T217
     2300   03 005ED    00001513     CONDITIONS        DATA              T422
     2301   03 005EE    00001014     CONTROL           DATA              T218
     2302   03 005EF    000014FF     CORE              DATA              T419
     2303   03 005F0    000012F6     CORRECTLY         DATA              T337
     2304   03 005F1    00000E2A     COUNT       DATA     T033
     2305   03 005F2    00001504     COUNTER           DATA              T420
     2306   03 005F3    00001288     COUNTERS          DATA              T321
     2307   03 005F4    00000E30     CC          DATA     T035
     2308   03 005F5    00001427     D                 DATA              T378
     2309   03 005F6    0000101C     DASH              DATA              T220
     2310   03 005F7    00000E44     DATA        DATA     T038
     2311   03 005F8    00000E49     DELAY       DATA     T039
     2312   03 005F9    0000142D     DECIMAL           DATA              T380
     2313   03 005FA    0000101E     DECODE            DATA              T221
     2314   03 005FB    00001025     DECODING          DATA              T222
     2315   03 005FC    0000102E     DECREMENT         DATA              T223
     2316   03 005FD    0000151E     DECREMENTED       DATA              T423
     2317   03 005FE    00001308     DETECTED          DATA              T339
     2318   03 005FF    00000E4F     DEVICE      DATA     T040
     2319   03 00600    0000103F     DIO               DATA              T2241
     2320   03 00601    00001043     DIRECT            DATA              T225
     2321   03 00602    0000127D     DOUBLEWORD        DATA              T320
     2322   03 00603    00001052     DURING            DATA              T230
     2323   03 00604    00001435     E                 DATA              T381
     2324   03 00605    00000E60     END         DATA     T043
     2325   03 00606    00001059     EQ                DATA              T231
     2326   03 00607    00000E6B     ERROR       DATA     T046
     2327   03 00608    00001311     EXECUTE           DATA              T340
     2328   03 00609    00000E75     EXECUTED    DATA     T049
     2329   03 0060A    0000105B     EXECUTION         DATA              T232
     2330   03 0060B    00000E71     EXP         DATA     T047
     2331   03 0060C    00001298     EXPECTED          DATA              T323
     2332   03 0060D    0000139D     FAILING           DATA              T358
     2333   03 0060E    00000E7E     FAM         DATA     T050
     2334   03 0060F    00001065     FAR               DATA              T234
     2335   03 00610    00000E82     FAULT       DATA     T052
     2336   03 00611    00001630     FIRST             DATA              T466
     2337   03 00612    00001543     FLAG              DATA              T428
     2338   03 00613    00000E88     FOR         DATA     T053
     2339   03 00614    0000154A     FOUR              DATA              T430
     2340   03 00615    00001069     FREE              DATA              T235
     2341   03 00616    000012C2     FROM              DATA              T329
     2342   03 00617    0000106E     FULL              DATA              T236
     2343   03 00618    00001073     FUNCTION          DATA              T237
     2344   03 00619    00001319     FUNCTIONING       DATA              T341
     2345   03 0061A    00001325     FUNCTIONS         DATA              T342
     2346   03 0061B    0000132F     GENERATED         DATA              T343
     2347   03 0061C    00000E92     GENERATION  DATA     T056
     2348   03 0061D    00001339     GO                DATA              T344
     2349   03 0061E    00000E8C     GROUP       DATA     T055
     2350   03 0061F    0000107C     H                 DATA              T238
     2351   03 00620    00000E9D     HALT        DATA     T057
     2352   03 00621    00001437     HEAD              DATA              T382
     2353   03 00622    00001343     HEADER            DATA              T346
     2354   03 00623    00000EA2     HIO         DATA     T058
     2355   03 00624    00001555     I                 DATA              T432
     2356   03 00625    0000107E     IO                DATA              T240
     2357   03 00626    00001082     IF                DATA              T241
     2358   03 00627    00000EBA     IN          DATA     T062
     2359   03 00628    00000EA6     INCORRECT   DATA     T059
     2360   03 00629    00001085     INCREMENT         DATA              T242
     2361   03 0062A    00001586     INCREMENTED       DATA              T440
     2362   03 0062B    0000108F     INDICATOR         DATA              T243
     2363   03 0062C    00001099     INDICATORS        DATA              T244
     2364   03 0062D    0000134A     INITIAL           DATA              T347
     2365   03 0062E    000010AC     INSTRUCTION       DATA              T246
     2366   03 0062F    000013D7     INSTRUCTIONS      DATA              T366
     2367   03 00630    00000EB0     INTERRUPT   DATA     T061
     2368   03 00631    000010B8     INTO              DATA              T247
     2369   03 00632    00000EBD     INVALID     DATA     T063
     2370   03 00633    00000EC5     IOCD        DATA     T065
     2371   03 00634    000014B3     IOP               DATA              T409
     2372   03 00635    00000ECA     IS          DATA     T066
     2373   03 00636    000010BD     IT                DATA              T248
     2374   03 00637    000010C0     J                 DATA              T249
     2375   03 00638    000010C2     K                 DATA              T250
     2376   03 00639    000010C4     L                 DATA              T251
     2377   03 0063A    000010C6     LATCH             DATA              T252
     2378   03 0063B    00000ECD     LENGTH      DATA     T068
     2379   03 0063C    000012CF     LINE              DATA              T331
     2380   03 0063D    00001262     LINES             DATA              T316
     2381   03 0063E    000010D4     M                 DATA              T254
     2382   03 0063F    000010DC     MADE              DATA              T256
     2383   03 00640    00000ED7     MEMORY      DATA     T074
     2384   03 00641    000010E1     MI                DATA              T257
     2385   03 00642    000010EB     NEW               DATA              T260
     2386   03 00643    00000ED4     NO          DATA     T079
     2387   03 00644    000010EF     NONE              DATA              T261
     2388   03 00645    00001352     NORMAL            DATA              T348
     2389   03 00646    00000EDE     NOT         DATA     T080
     2390   03 00647    00000EE2     OBS         DATA     T081
     2391   03 00648    00001104     OCCURRED          DATA              T264
     2392   03 00649    00000EE6     OF          DATA     T082
     2393   03 0064A    0000110D     ONE               DATA              T265
     2394   03 0064B    0000110F     ONLY              DATA              T266
     2395   03 0064C    00000EE9     OPERATION   DATA     T084
     2396   03 0064D    00000EF3     OR          DATA     T087
     2397   03 0064E    00000EF6     ORDER       DATA     T088
     2398   03 0064F    00000EFC     OUT         DATA     T089
     2399   03 00650    00001443     P                 DATA              T384
     2400   03 00651    00001114     PARITY            DATA              T267
     2401   03 00652    00001120     PARTIAL           DATA              T268
     2402   03 00653    00001128     PASS              DATA              T269
     2403   03 00654    0000112D     PATH              DATA              T270
     2404   03 00655    000012A5     PATHS             DATA              T325
     2405   03 00656    00000F00     PATTERN     DATA     T091
     2406   03 00657    00000F08     PENDING     DATA     T092
     2407   03 00658    00001132     PH                DATA              T271
     2408   03 00659    00001592     PLACE             DATA              T441
     2409   03 0065A    00001135     PHASE             DATA              T272
     2410   03 0065B    0000113B     PLOP              DATA              T273
     2411   03 0065C    00001140     PLOR              DATA              T274
     2412   03 0065D    00000F10     POSSIBLE    DATA     T094
     2413   03 0065E    0000114A     PRESENCE          DATA              T275
     2414   03 0065F    00001153     PROCESSOR         DATA              T276
     2415   03 00660    000013E4     PROPERLY          DATA              T368
     2416   03 00661    00001483     PROTECTED         DATA              T397
     2417   03 00662    00000F20     READ        DATA     T097
     2418   03 00663    00000F25     RECOGNITION DATA     T100
     2419   03 00664    00001165     RECOGNIZED        DATA              T278
     2420   03 00665    00001170     REGISTER          DATA              T279
     2421   03 00666    00001179     REPORT            DATA              T280
     2422   03 00667    00001180     REPORTED          DATA              T281
     2423   03 00668    00001189     REQUEST           DATA              T282
     2424   03 00669    000015AF     REQUESTS          DATA              T445
     2425   03 0066A    00000F31     RESET       DATA     T104
     2426   03 0066B    0000119B     RETURN            DATA              T284
     2427   03 0066C    0000163D     RETURNING         DATA              T468
     2428   03 0066D    000011A2     RIO               DATA              T285
     2429   03 0066E    000011A6     RIOP              DATA              T286
     2430   03 0066F    00000D74     ROBJ              DATA              T403
     2431   03 00670    000011B3     RUNNING           DATA              T289
     2432   03 00671    000011BB     SECTOR            DATA              T290
     2433   03 00672    000015C8     SECTORS           DATA              T448
     2434   03 00673    00000F37     SEEK        DATA     T107
     2435   03 00674    00000F3C     SENSE       DATA     T108
     2436   03 00675    000015D7     SENSED            DATA              T450
     2437   03 00676    00000F42     SEQUENCE    DATA     T109
     2438   03 00677    00000F4B     SELECTION   DATA     T110
     2439   03 00678    000011C2     SET               DATA              T291
     2440   03 00679    000011C6     SETTING           DATA              T292
     2441   03 0067A    00000F55     SHOULD      DATA     T111
     2442   03 0067B    00000F5C     SIO         DATA     T112
     2443   03 0067C    000015DE     SKIP              DATA              T451
     2444   03 0067D    0000164F     STARTING          DATA              T470
     2445   03 0067E    00001268     STATE             DATA              T317
     2446   03 0067F    00000F60     STATUS      DATA     T116
     2447   03 00680    000011CE     STEP              DATA              T293
     2448   03 00681    000012C7     STEPPED           DATA              T330
     2449   03 00682    000011D3     STOP              DATA              T295
     2450   03 00683    000015E3     SUBCHANNEL        DATA              T452
     2451   03 00684    00001447     SURFACE           DATA              T386
     2452   03 00685    00001451     TABLE             DATA              T388
     2453   03 00686    00000F67     TDV         DATA     T118
     2454   03 00687    00000F6B     TEST        DATA     T119
     2455   03 00688    000011EA     THAT              DATA              T298
     2456   03 00689    000011EF     THE               DATA              T299
     2457   03 0068A    000015EE     THEN              DATA              T453
     2458   03 0068B    0000137C     THIS              DATA              T354
     2459   03 0068C    0000160A     THREE             DATA              T458
     2460   03 0068D    00000F75     TIO         DATA     T122
     2461   03 0068E    00000F79     TO          DATA     T123
     2462   03 0068F    000013FC     TRACK             DATA              T372
     2463   03 00690    000011FF     TRANSFER          DATA              T303
     2464   03 00691    00001402     TRANSFERRED       DATA              T373
     2465   03 00692    00001208     TRANSMISSION      DATA              T304
     2466   03 00693    00001215     TRAP              DATA              T305
     2467   03 00694    0000121A     TRAP#INTER        DATA              T306
     2468   03 00695    00000F8B     TST3        DATA     T131
     2469   03 00696    0000149F     TWENTY            DATA              T405
     2470   03 00697    0000160C     TWO               DATA              T459
     2471   03 00698    00001381     UNAVAILABLE       DATA              T355
     2472   03 00699    00001228     UNUSUAL           DATA              T308
     2473   03 0069A    000012B6     WAS               DATA              T327
     2474   03 0069B    0000140E     WERE              DATA              T374
     2475   03 0069C    0000123A     WHEN              DATA              T310
     2476   03 0069D    00000F90     WILL        DATA     T133
     2477   03 0069E    0000162B     WITH              DATA              T465
     2478   03 0069F    00000F95     WORD        DATA     T134
     2479   03 006A0    00000F9A     WRITE       DATA     T135
     2480   03 006A1    0000123F     WRITTEN           DATA              T311
     2481   03 006A2    00001247     WRITING           DATA              T312
     2482   03 006A3    0000124F     ZERO              DATA              T313
     2483   03 006A4    00000FA0     3ASTERISKS  DATA     T136
     2484                            *
     2485                            *
     2486                            *        ***CONVERSION CONTROL BYTE DEFINITION***
     2487                            *
     2488         000000A1           D1       SET      X'A1'
     2489         000000A2           D2       SET      X'A2'
     2490         000000A3           D3       SET      X'A3'
     2491         000000A4           D4       SET      X'A4'
     2492         000000A8           D8       SET      X'A8'
     2493         000000C1           H1       SET      X'C1'
     2494         000000C2           H2       SET      X'C2'
     2495         000000C4           H4       SET      X'C4'
     2496         000000C6           H6       SET      X'C6'
     2497         000000C8           H8       SET      X'C8'
     2498         000000D8           HF8      SET      X'D8'
     2499         00000081           B2       SET      X'81'
     2500         00000083           B4       SET      X'83'
     2501         00000087           B8       SET      X'87'
     2502         0000008F           B16      SET      X'8F'
     2503         0000009F           B32      SET      X'9F'
     2504         000000E0           BF       SET      X'E0'
     2505                            *
     2506                            *
     2507                            *
     2508                            *        ***DAT - VARIABLE DATA ADDRESS TABLE***
     2509                            *
     2510   03 006A5    A10006BE     DEC1A    GENV     VDEC1A,D1
     2511   03 006A6    A20006BF     DEC2A    GENV     VDEC2A,D2
     2512   03 006A7    A30006C0     DEC3A    GENV     VDEC3A,D3
     2513   03 006A8    A30006C1     DEC3B    GENV     VDEC3B,D3
     2514   03 006A9    A40006C2     DEC4A    GENV     VDEC4A,D4
     2515   03 006AA    A80006C3     DEC8A    GENV     VDEC8A,D8
     2516   03 006AB    C10006C4     HEX1A    GENV     VHEX1A,H1
     2517   03 006AC    C20006C5     HEX2A    GENV     VHEX2A,H2
     2518   03 006AD    C40006C6     HEX4A    GENV     VHEX4A,H4
     2519   03 006AE    C60006C7     HEX6A    GENV     VHEX6A,H6
     2520   03 006AF    C80006C8     HEX8A    GENV     VHEX8A,H8
     2521   03 006B0    A20006C9     DEC2B    GENV     VDEC2B,D2
     2522   03 006B1    A20006CA     DEC2C    GENV     VDEC2C,D2
     2523   03 006B2    A40006CB     DEC4B    GENV     VDEC4B,D4
     2524   03 006B3    C20006CC     HEX2B    GENV     VHEX2B,H2
     2525   03 006B4    C40006CD     HEX4B    GENV     VHEX4B,H4
     2526   03 006B5    C40006CE     HEX4C    GENV     VHEX4C,H4
     2527   03 006B6    C60006CF     HEX6B    GENV     VHEX6B,H6
     2528   03 006B7    C60006D0     HEX6C    GENV     VHEX6C,H6
     2529   03 006B8    C60006D1     HEX6D    GENV     VHEX6D,H6
     2530   03 006B9    C80006D2     HEX8B    GENV     VHEX8B,H8
     2531   03 006BA    830006D3     BIN4A    GENV     VBIN4A,B4
     2532   03 006BB    870006D4     BIN8A    GENV     VBIN8A,B8
     2533   03 006BC    E00006D5     BINFA    GENV     VBINFA,BF
     2534   03 006BD    E00006D6     BINFB    GENV     VBINFB,BF
     2535                            *
     2536                            *
     2537                            *
     2538                            *
     2539                            *        ***VARIABLE DATA LOCATIONS***
     2540                            *
     2541   03 006BE    00000009 A   VDEC1A   DATA     9
     2542   03 006BF    00000063 A   VDEC2A   DATA     99
     2543   03 006C0    00000000 A   VDEC3A   DATA     0
     2544   03 006C1    00000000 A   VDEC3B   DATA     0
     2545   03 006C2    0000270F A   VDEC4A   DATA     9999
     2546   03 006C3    05F5E0FF A   VDEC8A   DATA     99999999
     2547   03 006C4    00000000 A   VHEX1A   DATA     0
     2548   03 006C5    000000FF A   VHEX2A   DATA     X'FF'
     2549   03 006C6    0000FFFF A   VHEX4A   DATA     X'FFFF'
     2550   03 006C7    00FFFFFF A   VHEX6A   DATA     X'FFFFFF'
     2551   03 006C8    FFFFFFFF A   VHEX8A   DATA     X'FFFFFFFF'
     2552   03 006C9    00000063 A   VDEC2B   DATA     99
     2553   03 006CA    00000000 A   VDEC2C   DATA     0
     2554   03 006CB    0000270F A   VDEC4B   DATA     9999
     2555   03 006CC    000000FF A   VHEX2B   DATA     X'FF'
     2556   03 006CD    0000FFFF A   VHEX4B   DATA     X'FFFF'
     2557   03 006CE    00000000 A   VHEX4C   DATA     0
     2558   03 006CF    00FFFFFF A   VHEX6B   DATA     X'FFFFFF'
     2559   03 006D0    00000000 A   VHEX6C   DATA     0
     2560   03 006D1    00000000 A   VHEX6D   DATA     0
     2561   03 006D2    FFFFFFFF A   VHEX8B   DATA     X'FFFFFFFF'
     2562   03 006D3    00000000 A   VBIN4A   DATA     0
     2563   03 006D4    000000FF A   VBIN8A   DATA     X'FF'
     2564   03 006D5    000010E4     VBINFA   DATA     FORMAT
     2565   03 006D6    000010E4     VBINFB   DATA     FORMAT
     2566   03 006D7    00000D9A     ACCESS      DATA     T002
     2567   03 006D8    000014BD     ACCESSING         DATA              T411
     2568   03 006D9    0000138D     ADDITIONAL        DATA              T356
     2569   03 006DA    000014C7     ADDRESSES         DATA              T412
     2570   03 006DB    000013BE     ADVANCING         DATA              T362
     2571   03 006DC    00001691     ALIGNED           DATA              T479
     2572   03 006DD    00000FD1     ANY               DATA              T2041
     2573   03 006DE    00000FD8     ASSOCIATED        DATA              T206
     2574   03 006DF    00001422     AXIS              DATA              T377
     2575   03 006E0    00000FE3     BA                DATA              T208
     2576   03 006E1    000014D1     BACK              DATA              T413
     2577   03 006E2    0000141A     BECAUSE           DATA              T376
     2578   03 006E3    000014A2     BEEN              DATA              T406
     2579   03 006E4    000012E8     BEING             DATA              T334
     2580   03 006E5    00000DDD     BIG         DATA     T013
     2581   03 006E6    000013C8     BITS              DATA              T363
     2582   03 006E7    000014E5     CAUSING           DATA              T416
     2583   03 006E8    0000167F     CHECKED           DATA              T477
     2584   03 006E9    00000E1C     CLEAR       DATA     T028
     2585   03 006EA    00000E18     COLON       DATA     T026
     2586   03 006EB    0000150C     COUNTS            DATA              T421
     2587   03 006EC    00000E33     CURRENT     DATA     T036
     2588   03 006ED    00001429     DEC               DATA              T379
     2589   03 006EE    00001300     DECODED           DATA              T338
     2590   03 006EF    00001251     DEPENDENT         DATA              T314
     2591   03 006F0    0000152A     DESKEW            DATA              T424
     2592   03 006F1    00001038     DETECT            DATA              T224
     2593   03 006F2    000013CD     DETECTION         DATA              T365
     2594   03 006F3    000014A7     DETECTS           DATA              T407
     2595   03 006F4    000012A1     DID               DATA              T324
     2596   03 006F5    00001531     DIFFERENCE        DATA              T425
     2597   03 006F6    0000104A     DO                DATA              T227
     2598   03 006F7    0000104D     DOES              DATA              T228
     2599   03 006F8    00000E56     DONE        DATA     T041
     2600   03 006F9    00000E5B     EACH        DATA     T042
     2601   03 006FA    00000E64     ENOUGH      DATA     T044
     2602   03 006FB    0000146F     ENTRY             DATA              T394
     2603   03 006FC    000013B7     ERRORS            DATA              T361
     2604   03 006FD    000016C0     EXERCISER         DATA              T502
     2605   03 006FE    0000153C     FAILED            DATA              T427
     2606   03 006FF    00001548     FIVE              DATA              T429
     2607   03 00700    000016D2     FIXED             DATA              T505
     2608   03 00701    0000154C     FOLLOWED          DATA              T431
     2609   03 00702    000016AD     FUNCTIONAL        DATA              T500
     2610   03 00703    0000133C     GROUPS            DATA              T345
     2611   03 00704    00001699     HALTED            DATA              T480
     2612   03 00705    000014AF     HAS               DATA              T408
     2613   03 00706    00001475     INDICATE          DATA              T395
     2614   03 00707    00001557     INTERFACE         DATA              T433
     2615   03 00708    00001580     KEYED             DATA              T439
     2616   03 00709    00001561     LAST              DATA              T434
     2617   03 0070A    000010CC     LATCHES           DATA              T253
     2618   03 0070B    00001566     LESS              DATA              T435
     2619   03 0070C    000013AF     LIMITED           DATA              T360
     2620   03 0070D    00001636     LOADED            DATA              T467
     2621   03 0070E    0000156B     LOGIC             DATA              T436
     2622   03 0070F    000010D6     M8#M9             DATA              T255
     2623   03 00710    0000143C     MATRIX            DATA              T383
     2624   03 00711    000010E4     MISSED            DATA              T258
     2625   03 00712    000010F4     OBJECTIVE         DATA              T262
     2626   03 00713    00001666     OBSERVED          DATA              T474
     2627   03 00714    00001359     OBTAIN            DATA              T349
     2628   03 00715    000010FE     OCCUR             DATA              T263
     2629   03 00716    00001579     OCCURS            DATA              T438
     2630   03 00717    0000147E     ONCE              DATA              T396
     2631   03 00718    0000148D     OTHERWISE         DATA              T398
     2632   03 00719    00001291     OUTPUT            DATA              T322
     2633   03 0071A    00001571     OVERRUN           DATA              T437
     2634   03 0071B    0000111B     PART              DATA              T2671
     2635   03 0071C    00001675     PARTIALLY         DATA              T476
     2636   03 0071D    00001598     PASSED            DATA              T442
     2637   03 0071E    00001145     PORT              DATA              T2741
     2638   03 0071F    0000115D     PROTECT           DATA              T277
     2639   03 00720    00001445     R                 DATA              T385
     2640   03 00721    00000F19     RANDOM      DATA     T096
     2641   03 00722    00001360     RATE              DATA              T350
     2642   03 00723    000015A9     READS             DATA              T444
     2643   03 00724    0000159F     RECOGNIZE         DATA              T443
     2644   03 00725    00001687     REGISTERS         DATA              T478
     2645   03 00726    000016A0     REPEATED          DATA              T481
     2646   03 00727    000015C0     REPORTS           DATA              T447
     2647   03 00728    000013ED     REQUESTED         DATA              T369
     2648   03 00729    00001365     REQUIRED          DATA              T351
     2649   03 0072A    000015B8     RESPOND           DATA              T446
     2650   03 0072B    00001191     RESPONDED         DATA              T283
     2651   03 0072C    00001274     RETURNED          DATA              T319
     2652   03 0072D    000011AB     ROW               DATA              T287
     2653   03 0072E    000011AF     RUN               DATA              T288
     2654   03 0072F    000015D0     SEEKED            DATA              T449
     2655   03 00730    0000136E     SELECTED          DATA              T352
     2656   03 00731    000016CA     SIX               DATA              T503
     2657   03 00732    000013F7     SIZE              DATA              T371
     2658   03 00733    000013A5     SPECIFIED         DATA              T359
     2659   03 00734    00001647     SPREADS           DATA              T469
     2660   03 00735    000016B8     STARTED           DATA              T501
     2661   03 00736    000011D8     STROBE            DATA              T296
     2662   03 00737    000011DF     SUCCESSFUL        DATA              T297
     2663   03 00738    00001658     SUPPRESS          DATA              T471
     2664   03 00739    00001377     SYNC              DATA              T353
     2665   03 0073A    0000144F     T                 DATA              T387
     2666   03 0073B    000015FE     TAKE              DATA              T456
     2667   03 0073C    000016A9     TCC               DATA              T482
     2668   03 0073D    00001661     THAN              DATA              T472
     2669   03 0073E    000014B7     THERE             DATA              T410
     2670   03 0073F    000015F3     THOSE             DATA              T454
     2671   03 00740    00000F70     THRU        DATA     T120
     2672   03 00741    000011F3     TI                DATA              T300
     2673   03 00742    000011F6     TOTAL             DATA              T301
     2674   03 00743    000011FC     TR                DATA              T302
     2675   03 00744    00001603     TRACKS            DATA              T457
     2676   03 00745    00001225     TS                DATA              T307
     2677   03 00746    00000F7C     TST0        DATA     T128
     2678   03 00747    00000F81     TST1        DATA     T129
     2679   03 00748    00000F86     TST2        DATA     T130
     2680   03 00749    000015F9     THUS              DATA              T455
     2681   03 0074A    0000160E     T63               DATA              T460
     2682   03 0074B    00001457     U                 DATA              T389
     2683   03 0074C    00001611     UNDER             DATA              T461
     2684   03 0074D    000012AB     UNEXPECTED        DATA              T326
     2685   03 0074E    00001459     UNLESS            DATA              T390
     2686   03 0074F    00001617     UNTIL             DATA              T462
     2687   03 00750    00001460     VALUES            DATA              T391
     2688   03 00751    0000161D     VARIOUS           DATA              T463
     2689   03 00752    0000125B     VERIFY            DATA              T315
     2690   03 00753    00001230     VIOLATION         DATA              T309
     2691   03 00754    00001497     WHERE             DATA              T400
     2692   03 00755    00001625     WHILE             DATA              T464
     2693   03 00756    00001413     WITHIN            DATA              T375
     2694   03 00757    0000166F     WORKS             DATA              T475
     2695   03 00758    00001467     X                 DATA              T392
     2696   03 00759    000016CC     ZEROS             DATA              T504
     2697   03 0075A    00000D30     TAB000F           DATA              T402
     2698                            *
     2699                            *
     2700         03 0075B           DATLAST  EQU      %
     2701                            *
     2702                            *
     2703                            *
     2704                            *        P R O G R A M   M E S S A G E S
     2705                            *
     2706                            *
     2707                            * THE FOLLOWING SECTION DEFINES ALL MESSAGES WHICH ARE
     2708                            * STORED IN COMPRESSED FORM AND WHICH CAN ONLY BE OUTPUT
     2709                            * WITH THE 'MSGOUT' SUBROUTINE. ALL VARIABLE DATA MUST
     2710                            * BE STORED IN THE APPROPRIATE LOCATIONS PRIOR TO OUTPUTTING
     2711                            * A MESSAGE.
     2712                            *
     2713   03 0075B                 MXSTART  LOC,1    %                 START OF MSG INDEX TABLES
            03 0075B
     2714   03 0075B    04       A   MX0001   MSGX     SIO,NO,ADDRESS,RECOGNITION
            03 0075B 1  C5       A
            03 0075B 2  8D       A
            03 0075B 3  08       A
            03 0075C    AD       A
     2715                            *
     2716   03 0075C 1  04       A   MX0002   MSGX     TIO,NO,ADDRESS,RECOGNITION
            03 0075C 2  D7       A
            03 0075C 3  8D       A
            03 0075D    08       A
            03 0075D 1  AD       A
     2717                            *
     2718   03 0075D 2  04       A   MX0003   MSGX     HIO,NO,ADDRESS,RECOGNITION
            03 0075D 3  6D       A
            03 0075E    8D       A
            03 0075E 1  08       A
            03 0075E 2  AD       A
     2719                            *
     2720   03 0075E 3  04       A   MX0004   MSGX     AIO,NO,INTERRUPT,RECOGNITION
            03 0075F    0F       A
            03 0075F 1  8D       A
            03 0075F 2  7A       A
            03 0075F 3  AD       A
     2721                            *
     2722   03 00760    04       A   MX0005   MSGX     TDV,NO,ADDRESS,RECOGNITION
            03 00760 1  D0       A
            03 00760 2  8D       A
            03 00760 3  08       A
            03 00761    AD       A
     2723                            *
     2724   03 00761 1  04       A   MX0006   MSGX     RIO,NO,ADDRESS,RECOGNITION
            03 00761 2  B7       A
            03 00761 3  8D       A
            03 00762    08       A
            03 00762 1  AD       A
     2725   03 00762 2  04       A   MX0007   MSGX     PLOP,NO,ADDRESS,RECOGNITION
            03 00762 3  A5       A
            03 00763    8D       A
            03 00763 1  08       A
            03 00763 2  AD       A
     2726   03 00763 3  04       A   MX0008   MSGX     PLOR,NO,ADDRESS,RECOGNITION
            03 00764    A6       A
            03 00764 1  8D       A
            03 00764 2  08       A
            03 00764 3  AD       A
     2727                            *
     2728   03 00765    03       A   MX0014   MSGX     COMMAND,ADDRESS,HEX6A
            03 00765 1  33       A
            03 00765 2  08       A
            03 00765 3  F8       A
     2729                            *
     2730   03 00766    03       A   MX0015   MSGX     IOCD,HEX8A,HEX8B
            03 00766 1  7D       A
            03 00766 2  F9       A
            03 00766 3  0203     A
     2731                            *
     2732   03 00767 1  03       A   DAMSGERR MSGX     PATTERN,COMPARE,AERROR
            03 00767 2  A0       A
            03 00767 3  35       A
            03 00768    0B       A
     2733   03 00768 1  05       A   DAMSGDLY MSGX     PATTERN,COMPARE,DASH,NO,ERROR
            03 00768 2  A0       A
            03 00768 3  35       A
            03 00769    40       A
            03 00769 1  8D       A
            03 00769 2  51       A
     2734   03 00769 3  03       A   CCERM1   MSGX      SIO,NOT,ACCEPTED
            03 0076A    C5       A
            03 0076A 1  90       A
            03 0076A 2  06       A
     2735   03 0076A 3  04       A   CCERM2   MSGX     TIO,SIO,NOT,POSSIBLE
            03 0076B    D7       A
            03 0076B 1  C5       A
            03 0076B 2  90       A
            03 0076B 3  A7       A
     2736   03 0076C    05       A   CCERM3   MSGX     HIO,DEVICE,BUSY,AT,HALT
            03 0076C 1  6D       A
            03 0076C 2  49       A
            03 0076C 3  22       A
            03 0076D    14       A
            03 0076D 1  6A       A
     2737   03 0076D 2  04       A   CCERM4   MSGX     TDV,DEVICE,DEPENDENT,CONDITION
            03 0076D 3  D0       A
            03 0076E    49       A
            03 0076E 1  0239     A
            03 0076E 3  36       A
     2738   03 0076F    04       A   CCERM5   MSGX     AIO,UNUSUAL,END,INTERRUPT
            03 0076F 1  0F       A
            03 0076F 2  E3       A
            03 0076F 3  4F       A
            03 00770    7A       A
     2739   03 00770 1  03       A   CCERM6   MSGX     SIO,BUSY,RIOP
            03 00770 2  C5       A
            03 00770 3  22       A
            03 00771    B8       A
     2740   03 00771 1  03       A   CCERM7   MSGX     TIO,BUSY,RIOP
            03 00771 2  D7       A
            03 00771 3  22       A
            03 00772    B8       A
     2741   03 00772 1  01       A   CCERM8   MSGX     1BLANK
            03 00772 2  1C       A
     2742   03 00772 3  03       A   CCERM9   MSGX     TDV,BUSY,RIOP
            03 00773    D0       A
            03 00773 1  22       A
            03 00773 2  B8       A
     2743   03 00773 3  01       A   CCERMA   MSGX     1BLANK
            03 00774    1C       A
     2744   03 00774 1  07       A   :DAERM   MSGX     AIO,IO,ADDRESS,ERROR,DASH,OBS,HEX4A
            03 00774 2  0F       A
            03 00774 3  6F       A
            03 00775    08       A
            03 00775 1  51       A
            03 00775 2  40       A
            03 00775 3  91       A
            03 00776    F7       A
     2745   03 00776 1  04       A   :STATEM2 MSGX     EXP,STATUS,BINFA,BINFB
            03 00776 2  55       A
            03 00776 3  C9       A
            03 00777    0206     A
            03 00777 2  0207     A
     2746   03 00778    04       A   :STATEM3 MSGX     OBS,STATUS,BINFA,BINFB
            03 00778 1  91       A
            03 00778 2  C9       A
            03 00778 3  0206     A
            03 00779 1  0207     A
     2747   03 00779 3  02       A   PHMSGDLY MSGX     PHASE,ADISPLAY
            03 0077A    A4       A
            03 0077A 1  0A       A
     2748   03 0077A 2  02       A   PHMSGERR MSGX     PHASE,AERROR
            03 0077A 3  A4       A
            03 0077B    0B       A
     2749   03 0077B 1  03       A   PHMSGEXP MSGX     EXP,BINFA,BINFB
            03 0077B 2  55       A
            03 0077B 3  0206     A
            03 0077C 1  0207     A
     2750   03 0077C 3  03       A   PHMSGOBS MSGX     OBS,BINFA,BINFB
            03 0077D    91       A
            03 0077D 1  0206     A
            03 0077D 3  0207     A
     2751   03 0077E 1  05       A   IOMSGSIO MSGX     IO,OPERATION,DASH,SIO,DEC2A
            03 0077E 2  6F       A
            03 0077E 3  96       A
            03 0077F    40       A
            03 0077F 1  C5       A
            03 0077F 2  F0       A
     2752   03 0077F 3  05       A   IOMSGTIO MSGX     IO,OPERATION,DASH,TIO,DEC2A
            03 00780    6F       A
            03 00780 1  96       A
            03 00780 2  40       A
            03 00780 3  D7       A
            03 00781    F0       A
     2753   03 00781 1  05       A   IOMSGTDV MSGX     IO,OPERATION,DASH,TDV,DEC2A
            03 00781 2  6F       A
            03 00781 3  96       A
            03 00782    40       A
            03 00782 1  D0       A
            03 00782 2  F0       A
     2754   03 00782 3  05       A   IOMSGHIO MSGX     IO,OPERATION,DASH,HIO,DEC2A
            03 00783    6F       A
            03 00783 1  96       A
            03 00783 2  40       A
            03 00783 3  6D       A
            03 00784    F0       A
     2755   03 00784 1  05       A   IOMSGRIO MSGX     IO,OPERATION,DASH,RIO,DEC2A
            03 00784 2  6F       A
            03 00784 3  96       A
            03 00785    40       A
            03 00785 1  B7       A
            03 00785 2  F0       A
     2756   03 00785 3  05       A   IOMSGPLP MSGX     IO,OPERATION,DASH,PLOP,DEC2A
            03 00786    6F       A
            03 00786 1  96       A
            03 00786 2  40       A
            03 00786 3  A5       A
            03 00787    F0       A
     2757   03 00787 1  05       A   IOMSGAIO MSGX     IO,OPERATION,DASH,AIO,DEC2A
            03 00787 2  6F       A
            03 00787 3  96       A
            03 00788    40       A
            03 00788 1  0F       A
            03 00788 2  F0       A
     2758   03 00788 3  05       A   IOMSGPLR MSGX     IO,OPERATION,DASH,PLOR,DEC2A
            03 00789    6F       A
            03 00789 1  96       A
            03 00789 2  40       A
            03 00789 3  A6       A
            03 0078A    F0       A
     2759   03 0078A 1  04       A   IOMSGNON MSGX     IO,OPERATION,DASH,NONE
            03 0078A 2  6F       A
            03 0078A 3  96       A
            03 0078B    40       A
            03 0078B 1  8E       A
     2760   03 0078B 2  01       A   THMSG    MSGX     AERROR
            03 0078B 3  0B       A
     2761   03 0078C    01       A   THMSG1   MSGX     ADISPLAY
            03 0078C 1  0A       A
     2762   03 0078C 2  09       A   THEADER  MSGX     TST1,DEC4A,CONC,DASH,CONC,DEC2C,IO,ADDRESS,HEX4A
            03 0078C 3  0291     A
            03 0078D 1  F3       A
            03 0078D 2  00       A
            03 0078D 3  40       A
            03 0078E    00       A
            03 0078E 1  FB       A
            03 0078E 2  6F       A
            03 0078E 3  08       A
            03 0078F    F7       A
     2763   03 0078F 1  06       A   THMSGOBJ MSGX     TEST,OBJECTIVE,DASH,TO,VERIFY,THAT
            03 0078F 2  D1       A
            03 0078F 3  025C     A
            03 00790 1  40       A
            03 00790 2  D8       A
            03 00790 3  029C     A
            03 00791 1  D2       A
     2764   03 00791 2  03       A   DIMSGDLY MSGX     DIO,OPERATION,ADISPLAY
            03 00791 3  4A       A
            03 00792    96       A
            03 00792 1  0A       A
     2765   03 00792 2  03       A   DIMSGERR MSGX     DIO,OPERATION,AERROR
            03 00792 3  4A       A
            03 00793    96       A
            03 00793 1  0B       A
     2766   03 00793 2  05       A   DIMSGNO  MSGX     NL,DIO,STEP,NO,DEC3B
            03 00793 3  01       A
            03 00794    4A       A
            03 00794 1  CA       A
            03 00794 2  8D       A
            03 00794 3  F2       A
     2767   03 00795    05       A   DIMSGEXP MSGX     EXP,CC,HEX2A,EQ,BINFA
            03 00795 1  55       A
            03 00795 2  3E       A
            03 00795 3  F6       A
            03 00796    50       A
            03 00796 1  0206     A
     2768   03 00796 3  05       A   DIMSGOBS MSGX     OBS,CC,HEX2A,EQ,BINFA
            03 00797    91       A
            03 00797 1  3E       A
            03 00797 2  F6       A
            03 00797 3  50       A
            03 00798    0206     A
     2769   03 00798 2  05       A   TSSTOP   MSGX     TS,DELAY,LINE,STOP,SET
            03 00798 3  028F     A
            03 00799 1  42       A
            03 00799 2  86       A
            03 00799 3  CC       A
            03 0079A    C2       A
     2770   03 0079A 1  05       A   TISTOP   MSGX     TI,DELAY,LINE,STOP,SET
            03 0079A 2  028B     A
            03 0079B    42       A
            03 0079B 1  86       A
            03 0079B 2  CC       A
            03 0079B 3  C2       A
     2771   03 0079C    05       A   TRSTOP   MSGX     TR,DELAY,LINE,STOP,SET
            03 0079C 1  028D     A
            03 0079C 3  42       A
            03 0079D    86       A
            03 0079D 1  CC       A
            03 0079D 2  C2       A
     2772   03 0079D 3  09       A   DIMSGWD  MSGX     WRITE,DIRECT,DIO,ADDRESS,CONC,EQ,HEX2A,GROUP,HEX1A
            03 0079E    EA       A
            03 0079E 1  4B       A
            03 0079E 2  4A       A
            03 0079E 3  08       A
            03 0079F    00       A
            03 0079F 1  50       A
            03 0079F 2  F6       A
            03 0079F 3  68       A
            03 007A0    F5       A
     2773                            DIMSGTS  MSGX     READ,DIRECT,DIO,ADDRESS,CONC,EQ,HEX2A,STEP,TS,DELAY,;
     2774   03 007A0 1  0D       A                     LINE,GROUP,HEX1A
            03 007A0 2  AC       A
            03 007A0 3  4B       A
            03 007A1    4A       A
            03 007A1 1  08       A
            03 007A1 2  00       A
            03 007A1 3  50       A
            03 007A2    F6       A
            03 007A2 1  CA       A
            03 007A2 2  028F     A
            03 007A3    42       A
            03 007A3 1  86       A
            03 007A3 2  68       A
            03 007A3 3  F5       A
     2775                            DIMSGTI  MSGX     READ,DIRECT,DIO,ADDRESS,CONC,EQ,HEX2A,STEP,TI,DELAY,;
     2776   03 007A4    0D       A                     LINE,GROUP,HEX1A
            03 007A4 1  AC       A
            03 007A4 2  4B       A
            03 007A4 3  4A       A
            03 007A5    08       A
            03 007A5 1  00       A
            03 007A5 2  50       A
            03 007A5 3  F6       A
            03 007A6    CA       A
            03 007A6 1  028B     A
            03 007A6 3  42       A
            03 007A7    86       A
            03 007A7 1  68       A
            03 007A7 2  F5       A
     2777                            DIMSGTR  MSGX     READ,DIRECT,DIO,ADDRESS,CONC,EQ,HEX2A,STEP,TR,DELAY,;
     2778   03 007A7 3  0D       A                     LINE,GROUP,HEX1A
            03 007A8    AC       A
            03 007A8 1  4B       A
            03 007A8 2  4A       A
            03 007A8 3  08       A
            03 007A9    00       A
            03 007A9 1  50       A
            03 007A9 2  F6       A
            03 007A9 3  CA       A
            03 007AA    028D     A
            03 007AA 2  42       A
            03 007AA 3  86       A
            03 007AB    68       A
            03 007AB 1  F5       A
     2779   03 007AB 2  09       A   DIMSGRD  MSGX     READ,DIRECT,DIO,ADDRESS,CONC,EQ,HEX2A,GROUP,HEX1A
            03 007AB 3  AC       A
            03 007AC    4B       A
            03 007AC 1  4A       A
            03 007AC 2  08       A
            03 007AC 3  00       A
            03 007AD    50       A
            03 007AD 1  F6       A
            03 007AD 2  68       A
            03 007AD 3  F5       A
     2780   03 007AE    02       A   DIMSGDAT MSGX     DATA,LINES
            03 007AE 1  41       A
            03 007AE 2  87       A
     2781   03 007AE 3  04       A   DIMSGDL  MSGX     DATA,LINES,EQ,HEX8A
            03 007AF    41       A
            03 007AF 1  87       A
            03 007AF 2  50       A
            03 007AF 3  F9       A
     2782   03 007B0    08       A   TMSGERR  MSGX     EXP,TRAP#INTER,EQ,HEX2A,TCC,EQ,BIN4A,AERROR
            03 007B0 1  55       A
            03 007B0 2  DE       A
            03 007B0 3  50       A
            03 007B1    F6       A
            03 007B1 1  0286     A
            03 007B1 3  50       A
            03 007B2    0204     A
            03 007B2 2  0B       A
     2783   03 007B2 3  08       A   TMSGDPL  MSGX     EXP,TRAP#INTER,EQ,HEX2A,TCC,EQ,BIN4A,ADISPLAY
            03 007B3    55       A
            03 007B3 1  DE       A
            03 007B3 2  50       A
            03 007B3 3  F6       A
            03 007B4    0286     A
            03 007B4 2  50       A
            03 007B4 3  0204     A
            03 007B5 1  0A       A
     2784   03 007B5 2  03       A   TMSGOBS  MSGX     OBS,DASH,NONE
            03 007B5 3  91       A
            03 007B6    40       A
            03 007B6 1  8E       A
     2785   03 007B6 2  01       A   TMSGOBS1 MSGX     OBS
            03 007B6 3  91       A
     2786   03 007B7    08       A   TMSGPROC MSGX     PROCESSOR,EQ,HEX2A,FAULT,DASH,STATUS,EQ,HEX2B
            03 007B7 1  A9       A
            03 007B7 2  50       A
            03 007B7 3  F6       A
            03 007B8    5A       A
            03 007B8 1  40       A
            03 007B8 2  C9       A
            03 007B8 3  50       A
            03 007B9    FD       A
     2787   03 007B9 1  05       A   TMSGEXP  MSGX     EXP,TRAP#INTER,EQ,NONE,AERROR
            03 007B9 2  55       A
            03 007B9 3  DE       A
            03 007BA    50       A
            03 007BA 1  8E       A
            03 007BA 2  0B       A
     2788   03 007BA 3  05       A   TMSGEXP1 MSGX     EXP,TRAP#INTER,EQ,NONE,ADISPLAY
            03 007BB    55       A
            03 007BB 1  DE       A
            03 007BB 2  50       A
            03 007BB 3  8E       A
            03 007BC    0A       A
     2789   03 007BC 1  04       A   FNMSGDPY MSGX     PROCESSOR,FUNCTION,CODES,ADISPLAY
            03 007BC 2  A9       A
            03 007BC 3  62       A
            03 007BD    32       A
            03 007BD 1  0A       A
     2790   03 007BD 2  04       A   FNMSGERR MSGX     PROCESSOR,FUNCTION,CODES,AERROR
            03 007BD 3  A9       A
            03 007BE    62       A
            03 007BE 1  32       A
            03 007BE 2  0B       A
     2791   03 007BE 3  02       A   MSGEXP   MSGX     EXP,BINFA
            03 007BF    55       A
            03 007BF 1  0206     A
     2792   03 007BF 3  02       A   MSGOBS   MSGX     OBS,BINFA
            03 007C0    91       A
            03 007C0 1  0206     A
     2793   03 007C0 3  03       A   MRMSGDLY MSGX     M,REGISTER,ADISPLAY
            03 007C1    88       A
            03 007C1 1  AF       A
            03 007C1 2  0A       A
     2794   03 007C1 3  03       A   MRMSGERR MSGX     M,REGISTER,AERROR
            03 007C2    88       A
            03 007C2 1  AF       A
            03 007C2 2  0B       A
     2795   03 007C2 3  04       A   BCMSGDLY MSGX     BYTE,COUNT,RETURNED,ADISPLAY
            03 007C3    24       A
            03 007C3 1  3B       A
            03 007C3 2  0276     A
            03 007C4    0A       A
     2796   03 007C4 1  04       A   BCMSGERR MSGX     BYTE,COUNT,RETURNED,AERROR
            03 007C4 2  24       A
            03 007C4 3  3B       A
            03 007C5    0276     A
            03 007C5 2  0B       A
     2797   03 007C5 3  0B       A   BYTEITER MSGX     NL,BYTE,COUNT,EXP,EQ,HEX4A,OBS,EQ,HEX4B,AERROR,NL
            03 007C6    01       A
            03 007C6 1  24       A
            03 007C6 2  3B       A
            03 007C6 3  55       A
            03 007C7    50       A
            03 007C7 1  F7       A
            03 007C7 2  91       A
            03 007C7 3  50       A
            03 007C8    FE       A
            03 007C8 1  0B       A
            03 007C8 2  01       A
     2798   03 007C8 3  0B       A   BYTEITDY MSGX     NL,BYTE,COUNT,EXP,EQ,HEX4A,OBS,EQ,HEX4B,ADISPLAY,NL
            03 007C9    01       A
            03 007C9 1  24       A
            03 007C9 2  3B       A
            03 007C9 3  55       A
            03 007CA    50       A
            03 007CA 1  F7       A
            03 007CA 2  91       A
            03 007CA 3  50       A
            03 007CB    FE       A
            03 007CB 1  0A       A
            03 007CB 2  01       A
     2799                            CDMSGERR MSGX     CURRENT,COMMAND,DOUBLEWORD,ADDRESS,EXP,HEX6C,;
     2800   03 007CB 3  09       A                     OBS,HEX6D,AERROR
            03 007CC    0236     A
            03 007CC 2  33       A
            03 007CC 3  4C       A
            03 007CD    08       A
            03 007CD 1  55       A
            03 007CD 2  0201     A
            03 007CE    91       A
            03 007CE 1  0202     A
            03 007CE 3  0B       A
     2801                            CDMSGDLY MSGX     CURRENT,COMMAND,DOUBLEWORD,ADDRESS,EXP,HEX6C,;
     2802   03 007CF    09       A                     OBS,HEX6D,ADISPLAY
            03 007CF 1  0236     A
            03 007CF 3  33       A
            03 007D0    4C       A
            03 007D0 1  08       A
            03 007D0 2  55       A
            03 007D0 3  0201     A
            03 007D1 1  91       A
            03 007D1 2  0202     A
            03 007D2    0A       A
     2803   03 007D2 1  03       A   IOMSGDLY MSGX     IO,COMPARE,ADISPLAY
            03 007D2 2  6F       A
            03 007D2 3  35       A
            03 007D3    0A       A
     2804   03 007D3 1  03       A   IOMSGERR MSGX     IO,COMPARE,AERROR
            03 007D3 2  6F       A
            03 007D3 3  35       A
            03 007D4    0B       A
     2805   03 007D4 1  06       A   PSMSGDLY MSGX     PHASE,STOP,AND,STEP,LATCH,ADISPLAY
            03 007D4 2  A4       A
            03 007D4 3  CC       A
            03 007D5    15       A
            03 007D5 1  CA       A
            03 007D5 2  84       A
            03 007D5 3  0A       A
     2806   03 007D6    06       A   PSMSGERR MSGX     PHASE,STOP,AND,STEP,LATCH,AERROR
            03 007D6 1  A4       A
            03 007D6 2  CC       A
            03 007D6 3  15       A
            03 007D7    CA       A
            03 007D7 1  84       A
            03 007D7 2  0B       A
     2807   03 007D7 3  03       A   MEMSGDLY MSGX     MEMORY,CONTROL,ADISPLAY
            03 007D8    8A       A
            03 007D8 1  38       A
            03 007D8 2  0A       A
     2808   03 007D8 3  03       A   MEMSGERR MSGX     MEMORY,CONTROL,AERROR
            03 007D9    8A       A
            03 007D9 1  38       A
            03 007D9 2  0B       A
     2809   03 007D9 3  04       A   LRMSGDLY MSGX     L,DASH,REGISTER,ADISPLAY
            03 007DA    83       A
            03 007DA 1  40       A
            03 007DA 2  AF       A
            03 007DA 3  0A       A
     2810   03 007DB    04       A   LRMSGERR MSGX     L,DASH,REGISTER,AERROR
            03 007DB 1  83       A
            03 007DB 2  40       A
            03 007DB 3  AF       A
            03 007DC    0B       A
     2811   03 007DC 1  03       A   ORMSGDLY MSGX     ORDER,DECODE,ADISPLAY
            03 007DC 2  98       A
            03 007DC 3  44       A
            03 007DD    0A       A
     2812   03 007DD 1  03       A   ORMSGERR MSGX     ORDER,DECODE,AERROR
            03 007DD 2  98       A
            03 007DD 3  44       A
            03 007DE    0B       A
     2813   03 007DE 1  03       A   FSMSGDLY MSGX     FAULT,STATUS,ADISPLAY
            03 007DE 2  5A       A
            03 007DE 3  C9       A
            03 007DF    0A       A
     2814   03 007DF 1  03       A   FSMSGERR MSGX     FAULT,STATUS,AERROR
            03 007DF 2  5A       A
            03 007DF 3  C9       A
            03 007E0    0B       A
     2815   03 007E0 1  04       A   KRMSGDLY MSGX     K,DASH,REGISTER,ADISPLAY
            03 007E0 2  82       A
            03 007E0 3  40       A
            03 007E1    AF       A
            03 007E1 1  0A       A
     2816   03 007E1 2  04       A   KRMSGERR MSGX     K,DASH,REGISTER,AERROR
            03 007E1 3  82       A
            03 007E2    40       A
            03 007E2 1  AF       A
            03 007E2 2  0B       A
     2817   03 007E2 3  03       A   FAMSGDLY MSGX     FAM,COUNTERS,ADISPLAY
            03 007E3    58       A
            03 007E3 1  3D       A
            03 007E3 2  0A       A
     2818   03 007E3 3  03       A   FAMSGERR MSGX     FAM,COUNTERS,AERROR
            03 007E4    58       A
            03 007E4 1  3D       A
            03 007E4 2  0B       A
     2819   03 007E4 3  04       A   FUMSGDLY MSGX     REGISTER,FULL,INDICATORS,ADISPLAY
            03 007E5    AF       A
            03 007E5 1  61       A
            03 007E5 2  76       A
            03 007E5 3  0A       A
     2820   03 007E6    04       A   FUMSGERR MSGX     REGISTER,FULL,INDICATORS,AERROR
            03 007E6 1  AF       A
            03 007E6 2  61       A
            03 007E6 3  76       A
            03 007E7    0B       A
     2821   03 007E7 1  05       A   BIMSGERR MSGX     BYTE,COUNT,CONTROL,INDICATORS,AERROR
            03 007E7 2  24       A
            03 007E7 3  3B       A
            03 007E8    38       A
            03 007E8 1  76       A
            03 007E8 2  0B       A
     2822   03 007E8 3  05       A   BIMSGDLY MSGX     BYTE,COUNT,CONTROL,INDICATORS,ADISPLAY
            03 007E9    24       A
            03 007E9 1  3B       A
            03 007E9 2  38       A
            03 007E9 3  76       A
            03 007EA    0A       A
     2823   03 007EA 1  05       A   RBMSGDLY MSGX     REGISTER,BYTE,PRESENCE,INDICATORS,ADISPLAY
            03 007EA 2  AF       A
            03 007EA 3  24       A
            03 007EB    A8       A
            03 007EB 1  76       A
            03 007EB 2  0A       A
     2824   03 007EB 3  05       A   RBMSGERR MSGX     REGISTER,BYTE,PRESENCE,INDICATORS,AERROR
            03 007EC    AF       A
            03 007EC 1  24       A
            03 007EC 2  A8       A
            03 007EC 3  76       A
            03 007ED    0B       A
     2825   03 007ED 1  07       A   FBMSGERR MSGX     FAM,REGISTER,OUTPUT,BYTE,PRESENCE,INDICATORS,AERROR
            03 007ED 2  58       A
            03 007ED 3  AF       A
            03 007EE    0263     A
            03 007EE 2  24       A
            03 007EE 3  A8       A
            03 007EF    76       A
            03 007EF 1  0B       A
     2826   03 007EF 2  07       A   FBMSGDLY MSGX     FAM,REGISTER,OUTPUT,BYTE,PRESENCE,INDICATORS,ADISPLAY
            03 007EF 3  58       A
            03 007F0    AF       A
            03 007F0 1  0263     A
            03 007F0 3  24       A
            03 007F1    A8       A
            03 007F1 1  76       A
            03 007F1 2  0A       A
     2827   03 007F1 3  07       A   TSMSG    MSGX     NL,TS,DELAY,LINE,WAS,STEPPED,NL
            03 007F2    01       A
            03 007F2 1  028F     A
            03 007F2 3  42       A
            03 007F3    86       A
            03 007F3 1  E4       A
            03 007F3 2  CB       A
            03 007F3 3  01       A
     2828   03 007F4    07       A   TIMSG    MSGX     NL,TI,DELAY,LINE,WAS,STEPPED,NL
            03 007F4 1  01       A
            03 007F4 2  028B     A
            03 007F5    42       A
            03 007F5 1  86       A
            03 007F5 2  E4       A
            03 007F5 3  CB       A
            03 007F6    01       A
     2829   03 007F6 1  07       A   TRMSG    MSGX     NL,TR,DELAY,LINE,WAS,STEPPED,NL
            03 007F6 2  01       A
            03 007F6 3  028D     A
            03 007F7 1  42       A
            03 007F7 2  86       A
            03 007F7 3  E4       A
            03 007F8    CB       A
            03 007F8 1  01       A
     2830   03 007F8 2  01       A   MX037    MSGX     3ASTERISKS
            03 007F8 3  EE       A
     2831   03 007F9    03       A   MX501    MSGX     FUNCTIONAL,TEST,STARTED
            03 007F9 1  024C     A
            03 007F9 3  D1       A
            03 007FA    027F     A
     2832   03 007FA 2  04       A   MX502    MSGX     END,OF,FUNCTIONAL,TEST
            03 007FA 3  4F       A
            03 007FB    93       A
            03 007FB 1  024C     A
            03 007FB 3  D1       A
     2833   03 007FC    03       A   MX503    MSGX     RANDOM,EXERCISER,STARTED
            03 007FC 1  026B     A
            03 007FC 3  0247     A
            03 007FD 1  027F     A
     2834   03 007FD 3  04       A   MX504    MSGX     END,OF,RANDOM,EXERCISER
            03 007FE    4F       A
            03 007FE 1  93       A
            03 007FE 2  026B     A
            03 007FF    0247     A
     2835   03 007FF 2  05       A   NOMSG    MSGX     NO,DELAY,LINE,WAS,STEPPED
            03 007FF 3  8D       A
            03 00800    42       A
            03 00800 1  86       A
            03 00800 2  E4       A
            03 00800 3  CB       A
     2836   03 00801    05       A   EXPINT   MSGX     EXPECTED,INTERRUPT,DID,NOT,OCCUR
            03 00801 1  56       A
            03 00801 2  7A       A
            03 00801 3  023E     A
            03 00802 1  90       A
            03 00802 2  025F     A
     2837   03 00803    03       A   UNEXINT  MSGX     UNEXPECTED,INTERRUPT,OCCURRED
            03 00803 1  0297     A
            03 00803 3  7A       A
            03 00804    92       A
     2838   03 00804 1  05       A   BTMSGDLY MSGX     DATA,BYTE,FROM,RIOP,ADISPLAY
            03 00804 2  41       A
            03 00804 3  24       A
            03 00805    60       A
            03 00805 1  B8       A
            03 00805 2  0A       A
     2839   03 00805 3  05       A   BTMSGERR MSGX     DATA,BYTE,FROM,RIOP,AERROR
            03 00806    41       A
            03 00806 1  24       A
            03 00806 2  60       A
            03 00806 3  B8       A
            03 00807    0B       A
     2840   03 00807 1  04       A   PATHDIS  MSGX     DATA,PATHS,TEST,ADISPLAY
            03 00807 2  41       A
            03 00807 3  9F       A
            03 00808    D1       A
            03 00808 1  0A       A
     2841   03 00808 2  04       A   PATHERR  MSGX     DATA,PATHS,TEST,AERROR
            03 00808 3  41       A
            03 00809    9F       A
            03 00809 1  D1       A
            03 00809 2  0B       A
     2842   03 00809 3  04       A   OBSWDMSG MSGX     OBS,WORD,DEC4B,BINFB
            03 0080A    91       A
            03 0080A 1  E9       A
            03 0080A 2  FC       A
            03 0080A 3  0207     A
     2843   03 0080B 1  02       A   WDMSG    MSGX     BINFA,BINFB
            03 0080B 2  0206     A
            03 0080C    0207     A
     2844   03 0080C 2  03       A   EXPWDMSG MSGX     EXP,WORD,DEC4B
            03 0080C 3  55       A
            03 0080D    E9       A
            03 0080D 1  FC       A
     2845   03 0080D 2  05       A   WRTDC    MSGX     WRITE,OPERATION,WAS,DATA,CHAINED
            03 0080D 3  EA       A
            03 0080E    96       A
            03 0080E 1  E4       A
            03 0080E 2  41       A
            03 0080E 3  2B       A
     2846   03 0080F    05       A   READC    MSGX     READ,OPERATION,WAS,DATA,CHAINED
            03 0080F 1  AC       A
            03 0080F 2  96       A
            03 0080F 3  E4       A
            03 00810    41       A
            03 00810 1  2B       A
     2847   03 00810 2  03       A   IRMSG    MSGX     EXPECTED,INTERRUPT,OCCURRED
            03 00810 3  56       A
            03 00811    7A       A
            03 00811 1  92       A
     2848   03 00811 2  04       A   IRMSG1   MSGX     NO,UNEXPECTED,INTERRUPT,OCCURRED
            03 00811 3  8D       A
            03 00812    0297     A
            03 00812 2  7A       A
            03 00812 3  92       A
     2849                            ENDMSG   MSGX     3ASTERISKS,END,TST1,DEC4A,CONC,DASH,CONC,DEC2C,;
     2850   03 00813    09       A                     3ASTERISKS
            03 00813 1  EE       A
            03 00813 2  4F       A
            03 00813 3  0291     A
            03 00814 1  F3       A
            03 00814 2  00       A
            03 00814 3  40       A
            03 00815    00       A
            03 00815 1  FB       A
            03 00815 2  EE       A
     2851   03 00815 3  05       A   FAILDLY  MSGX     SENSE,FAILING,TRACK,BYTE,ADISPLAY
            03 00816    BE       A
            03 00816 1  57       A
            03 00816 2  D9       A
            03 00816 3  24       A
            03 00817    0A       A
     2852   03 00817 1  05       A   FAILERR  MSGX     SENSE,FAILING,TRACK,BYTE,AERROR
            03 00817 2  BE       A
            03 00817 3  57       A
            03 00818    D9       A
            03 00818 1  24       A
            03 00818 2  0B       A
     2853   03 00818 3  03       A   SUBCHERR MSGX     SUBCHANNEL,STATUS,AERROR
            03 00819    CD       A
            03 00819 1  C9       A
            03 00819 2  0B       A
     2854   03 00819 3  03       A   SUBCHDLY MSGX     SUBCHANNEL,STATUS,ADISPLAY
            03 0081A    CD       A
            03 0081A 1  C9       A
            03 0081A 2  0A       A
     2855                            EXPATMSG MSGX     8BLANK,EXPECTED,DATA,PATTERN,8BLANK,EXPECTED,;
     2856                                              CONC,DASH,CONC,OBSERVED,PATTERN,NL,;
     2857                                              8BLANK,2BLANK,IN,THE,FAM,8BLANK,8BLANK,1BLANK,;
     2858                                              RETURN,TO,CORE,NL,;
     2859                                              BYTE,ZERO,1BLANK,BYTE,ONE,1BLANK,BYTE,TWO,1BLANK,;
     2860                                              BYTE,THREE,2BLANK,BYTE,ZERO,1BLANK,BYTE,ONE,1BLANK,;
     2861   03 0081A 3  2F       A                     BYTE,TWO,1BLANK,BYTE,THREE
            03 0081B    1F       A
            03 0081B 1  56       A
            03 0081B 2  41       A
            03 0081B 3  A0       A
            03 0081C    1F       A
            03 0081C 1  56       A
            03 0081C 2  00       A
            03 0081C 3  40       A
            03 0081D    00       A
            03 0081D 1  025D     A
            03 0081D 3  A0       A
            03 0081E    01       A
            03 0081E 1  1F       A
            03 0081E 2  1D       A
            03 0081E 3  71       A
            03 0081F    D3       A
            03 0081F 1  58       A
            03 0081F 2  1F       A
            03 0081F 3  1F       A
            03 00820    1C       A
            03 00820 1  B5       A
            03 00820 2  D8       A
            03 00820 3  39       A
            03 00821    01       A
            03 00821 1  24       A
            03 00821 2  ED       A
            03 00821 3  1C       A
            03 00822    24       A
            03 00822 1  94       A
            03 00822 2  1C       A
            03 00822 3  24       A
            03 00823    E1       A
            03 00823 1  1C       A
            03 00823 2  24       A
            03 00823 3  D6       A
            03 00824    1D       A
            03 00824 1  24       A
            03 00824 2  ED       A
            03 00824 3  1C       A
            03 00825    24       A
            03 00825 1  94       A
            03 00825 2  1C       A
            03 00825 3  24       A
            03 00826    E1       A
            03 00826 1  1C       A
            03 00826 2  24       A
            03 00826 3  D6       A
     2862   03 00827    08       A   TABLERR  MSGX     8BLANK,SEEK,CONC,DASH,CONC,SENSE,TABLE,AERROR
            03 00827 1  1F       A
            03 00827 2  BD       A
            03 00827 3  00       A
            03 00828    40       A
            03 00828 1  00       A
            03 00828 2  BE       A
            03 00828 3  CF       A
            03 00829    0B       A
     2863   03 00829 1  08       A   TABLEDLY MSGX     8BLANK,SEEK,CONC,DASH,CONC,SENSE,TABLE,ADISPLAY
            03 00829 2  1F       A
            03 00829 3  BD       A
            03 0082A    00       A
            03 0082A 1  40       A
            03 0082A 2  00       A
            03 0082A 3  BE       A
            03 0082B    CF       A
            03 0082B 1  0A       A
     2864   03 0082B 2  02       A   SECTAB   MSGX     SECTOR,TAB000F
            03 0082B 3  BB       A
            03 0082C    02A4     A
     2865   03 0082C 2  03       A   BANDTAB  MSGX     BAND,1BLANK,TAB000F
            03 0082C 3  18       A
            03 0082D    1C       A
            03 0082D 1  02A4     A
     2866   03 0082D 3  06       A   TABLE100 MSGX     EACH,ENTRY,SHOULD,OCCUR,ONLY,ONCE
            03 0082E    0243     A
            03 0082E 2  0245     A
            03 0082F    C4       A
            03 0082F 1  025F     A
            03 0082F 3  95       A
            03 00830    0261     A
     2867   03 00830 2  07       A   MSGT1T19 MSGX     BANDS,DEC4A,THRU,DEC4B,ARE,WRITE,PROTECTED
            03 00830 3  19       A
            03 00831    F3       A
            03 00831 1  028A     A
            03 00831 3  FC       A
            03 00832    12       A
            03 00832 1  EA       A
            03 00832 2  AB       A
     2868                            SELECT90 MSGX     SELECTION,MATRIX,DASH,ALL,VALUES,ARE,IN,DECIMAL,NL,;
     2869                                              UNLESS,OTHERWISE,SPECIFIED,NL,;
     2870                                              BAND,8BLANK,2BLANK,3ASTERISKS,4BLANK,;
     2871   03 00832 3  17       A                     X,CONC,DASH,CONC,AXIS
            03 00833    C1       A
            03 00833 1  025A     A
            03 00833 3  40       A
            03 00834    0E       A
            03 00834 1  029A     A
            03 00834 3  12       A
            03 00835    71       A
            03 00835 1  43       A
            03 00835 2  01       A
            03 00835 3  0298     A
            03 00836 1  0262     A
            03 00836 3  027D     A
            03 00837 1  01       A
            03 00837 2  18       A
            03 00837 3  1F       A
            03 00838    1D       A
            03 00838 1  EE       A
            03 00838 2  1E       A
            03 00838 3  02A2     A
            03 00839 1  00       A
            03 00839 2  40       A
            03 00839 3  00       A
            03 0083A    0229     A
     2872                            SELECT96 MSGX     DEC,2BLANK,2BLANK,R,1BLANK,;
     2873                                              U,1BLANK,P,1BLANK,B,1BLANK,;
     2874   03 0083A 2  14       A                     H,1BLANK,T,1BLANK,E,1BLANK,D,1BLANK,A
            03 0083A 3  0237     A
            03 0083B 1  1D       A
            03 0083B 2  1D       A
            03 0083B 3  026A     A
            03 0083C 1  1C       A
            03 0083C 2  0295     A
            03 0083D    1C       A
            03 0083D 1  9A       A
            03 0083D 2  1C       A
            03 0083D 3  17       A
            03 0083E    1C       A
            03 0083E 1  69       A
            03 0083E 2  1C       A
            03 0083E 3  0284     A
            03 0083F 1  1C       A
            03 0083F 2  4E       A
            03 0083F 3  1C       A
            03 00840    3F       A
            03 00840 1  1C       A
            03 00840 2  04       A
     2875                            SECTOROC MSGX     DECIMAL,VALUES,IN,SELECTION,MATRIX,TABLE,INDICATE,;
     2876                                              NL,THE,ADDRESS,WHERE,THE,ACCESSED,DATA,WAS,DETECTED,;
     2877                                              NL,R,EQ,RATE,ERROR,;
     2878                                              NL,U,EQ,SECTOR,UNAVAILABLE,ERROR,;
     2879                                              NL,P,EQ,SYNC,PATTERN,MISSED,ERROR,;
     2880                                              NL,B,EQ,BAND,TRANSMISSION,ERROR,;
     2881                                              NL,H,EQ,HEADER,COMPARE,ERROR,;
     2882                                              NL,T,EQ,TRANSMISSION,ERROR,;
     2883                                              NL,E,EQ,UNUSUAL,END,ERROR,;
     2884                                              NL,D,EQ,DATA,COMPARE,ERROR,;
     2885   03 00840 3  46       A                     NL,A,EQ,BAND,ADDRESS,COMPARE,ERROR
            03 00841    43       A
            03 00841 1  029A     A
            03 00841 3  71       A
            03 00842    C1       A
            03 00842 1  025A     A
            03 00842 3  CF       A
            03 00843    0250     A
            03 00843 2  01       A
            03 00843 3  D3       A
            03 00844    08       A
            03 00844 1  029E     A
            03 00844 3  D3       A
            03 00845    07       A
            03 00845 1  41       A
            03 00845 2  E4       A
            03 00845 3  48       A
            03 00846    01       A
            03 00846 1  026A     A
            03 00846 3  50       A
            03 00847    026C     A
            03 00847 2  51       A
            03 00847 3  01       A
            03 00848    0295     A
            03 00848 2  50       A
            03 00848 3  BB       A
            03 00849    E2       A
            03 00849 1  51       A
            03 00849 2  01       A
            03 00849 3  9A       A
            03 0084A    50       A
            03 0084A 1  0283     A
            03 0084A 3  A0       A
            03 0084B    025B     A
            03 0084B 2  51       A
            03 0084B 3  01       A
            03 0084C    17       A
            03 0084C 1  50       A
            03 0084C 2  18       A
            03 0084C 3  DC       A
            03 0084D    51       A
            03 0084D 1  01       A
            03 0084D 2  69       A
            03 0084D 3  50       A
            03 0084E    6C       A
            03 0084E 1  35       A
            03 0084E 2  51       A
            03 0084E 3  01       A
            03 0084F    0284     A
            03 0084F 2  50       A
            03 0084F 3  DC       A
            03 00850    51       A
            03 00850 1  01       A
            03 00850 2  4E       A
            03 00850 3  50       A
            03 00851    E3       A
            03 00851 1  4F       A
            03 00851 2  51       A
            03 00851 3  01       A
            03 00852    3F       A
            03 00852 1  50       A
            03 00852 2  41       A
            03 00852 3  35       A
            03 00853    51       A
            03 00853 1  01       A
            03 00853 2  04       A
            03 00853 3  50       A
            03 00854    18       A
            03 00854 1  08       A
            03 00854 2  35       A
            03 00854 3  51       A
     2886   03 00855    06       A   SELECT94 MSGX     SECTOR,NO,1BLANK,SECTOR,ERROR,TABLE
            03 00855 1  BB       A
            03 00855 2  8D       A
            03 00855 3  1C       A
            03 00856    BB       A
            03 00856 1  51       A
            03 00856 2  CF       A
     2887   03 00856 3  05       A   SELECTRR MSGX     SURFACE,OR,HEAD,SELECTION,AERROR
            03 00857    CE       A
            03 00857 1  97       A
            03 00857 2  6B       A
            03 00857 3  C1       A
            03 00858    0B       A
     2888   03 00858 1  05       A   SELECTDY MSGX     SURFACE,OR,HEAD,SELECTION,ADISPLAY
            03 00858 2  CE       A
            03 00858 3  97       A
            03 00859    6B       A
            03 00859 1  C1       A
            03 00859 2  0A       A
     2889   03 00859 3  06       A   #MSGERR1 MSGX     BAND,EQ,DEC3A,SECTOR,EQ,DEC2A
            03 0085A    18       A
            03 0085A 1  50       A
            03 0085A 2  F1       A
            03 0085A 3  BB       A
            03 0085B    50       A
            03 0085B 1  F0       A
     2890   03 0085B 2  04       A   #MSGER02 MSGX     TST2,IO,ADDRESS,HEX4A
            03 0085B 3  0292     A
            03 0085C 1  6F       A
            03 0085C 2  08       A
            03 0085C 3  F7       A
     2891   03 0085D    04       A   #MSGER03 MSGX     TST3,IO,ADDRESS,HEX4A
            03 0085D 1  DF       A
            03 0085D 2  6F       A
            03 0085D 3  08       A
            03 0085E    F7       A
     2892   03 0085E 1  06       A   SECTDLY  MSGX     SEEK,CONC,DASH,CONC,SENSE,ADISPLAY
            03 0085E 2  BD       A
            03 0085E 3  00       A
            03 0085F    40       A
            03 0085F 1  00       A
            03 0085F 2  BE       A
            03 0085F 3  0A       A
     2893   03 00860    06       A   SECTERR  MSGX     SEEK,CONC,DASH,CONC,SENSE,AERROR
            03 00860 1  BD       A
            03 00860 2  00       A
            03 00860 3  40       A
            03 00861    00       A
            03 00861 1  BE       A
            03 00861 2  0B       A
     2894   03 00861 3  07       A   EXPSECT  MSGX     EXPECTED,BAND,EQ,DEC3A,SECTOR,EQ,DEC2A
            03 00862    56       A
            03 00862 1  18       A
            03 00862 2  50       A
            03 00862 3  F1       A
            03 00863    BB       A
            03 00863 1  50       A
            03 00863 2  F0       A
     2895   03 00863 3  07       A   OBSSECT  MSGX     OBSERVED,BAND,EQ,DEC3A,SECTOR,EQ,DEC2A
            03 00864    025D     A
            03 00864 2  18       A
            03 00864 3  50       A
            03 00865    F1       A
            03 00865 1  BB       A
            03 00865 2  50       A
            03 00865 3  F0       A
     2896   03 00866    03       A   #MSGERRX MSGX     FAILING,TRACK,BIN8A
            03 00866 1  57       A
            03 00866 2  D9       A
            03 00866 3  0205     A
     2897                            MEM      MSGX     SPECIFIED,IO,AREA,NOT,AVAILABLE,NL,;
     2898                                              NORMAL,IO,AREA,HEX6A,TO,HEX6B,;
     2899   03 00867 1  12       A                     ADDITIONAL,IO,AREA,HEX6C,TO,HEX6D
            03 00867 2  027D     A
            03 00868    6F       A
            03 00868 1  13       A
            03 00868 2  90       A
            03 00868 3  16       A
            03 00869    01       A
            03 00869 1  8F       A
            03 00869 2  6F       A
            03 00869 3  13       A
            03 0086A    F8       A
            03 0086A 1  D8       A
            03 0086A 2  0200     A
            03 0086B    0223     A
            03 0086B 2  6F       A
            03 0086B 3  13       A
            03 0086C    0201     A
            03 0086C 2  D8       A
            03 0086C 3  0202     A
     2900                            MEMNORM  MSGX     SPECIFIED,IO,AREA,NOT,AVAILABLE,NORMAL,IO,AREA,;
     2901   03 0086D 1  0B       A                     HEX6A,TO,HEX6B
            03 0086D 2  027D     A
            03 0086E    6F       A
            03 0086E 1  13       A
            03 0086E 2  90       A
            03 0086E 3  16       A
            03 0086F    8F       A
            03 0086F 1  6F       A
            03 0086F 2  13       A
            03 0086F 3  F8       A
            03 00870    D8       A
            03 00870 1  0200     A
     2902   03 00870 3  05       A   :PASS0   MSGX     TST0,DASH,PASS,COUNT,DEC8A
            03 00871    0290     A
            03 00871 2  40       A
            03 00871 3  9D       A
            03 00872    3B       A
            03 00872 1  F4       A
     2903   03 00872 2  05       A   :PASS2   MSGX     TST2,DASH,PASS,COUNT,DEC8A
            03 00872 3  0292     A
            03 00873 1  40       A
            03 00873 2  9D       A
            03 00873 3  3B       A
            03 00874    F4       A
     2904   03 00874 1  05       A   :PASS3   MSGX     TST3,DASH,PASS,COUNT,DEC8A
            03 00874 2  DF       A
            03 00874 3  40       A
            03 00875    9D       A
            03 00875 1  3B       A
            03 00875 2  F4       A
     2905   03 00875 3  05       A   ERRNOINT MSGX     TEST,ABORTED,NO,INTERRUPT,OCCURRED
            03 00876    D1       A
            03 00876 1  05       A
            03 00876 2  8D       A
            03 00876 3  7A       A
            03 00877    92       A
     2906   03 00877 1  07       A   ERRCBR   MSGX     TEST,ABORTED,RIOP,CAN,NOT,BE,RESET
            03 00877 2  D1       A
            03 00877 3  05       A
            03 00878    B8       A
            03 00878 1  27       A
            03 00878 2  90       A
            03 00878 3  1A       A
            03 00879    B4       A
     2907   03 00879 1  08       A   NOMEMORY MSGX     MEMORY,SIZE,NOT,BIG,ENOUGH,FOR,THIS,TEST
            03 00879 2  8A       A
            03 00879 3  027C     A
            03 0087A 1  90       A
            03 0087A 2  022F     A
            03 0087B    0244     A
            03 0087B 2  5D       A
            03 0087B 3  D5       A
            03 0087C    D1       A
     2908                            :COMERM6 MSGX     IO,ADDRESS,EQ,HEX4A,SEEK,ADDRESS,BAND,EQ,DEC3A,;
     2909   03 0087C 1  0E       A                     SECTOR,EQ,DEC2A,FROM,PATTERN
            03 0087C 2  6F       A
            03 0087C 3  08       A
            03 0087D    50       A
            03 0087D 1  F7       A
            03 0087D 2  BD       A
            03 0087D 3  08       A
            03 0087E    18       A
            03 0087E 1  50       A
            03 0087E 2  F1       A
            03 0087E 3  BB       A
            03 0087F    50       A
            03 0087F 1  F0       A
            03 0087F 2  60       A
            03 0087F 3  A0       A
     2910   03 00880    08       A   :COMERM7 MSGX     COMPARE,ERRORS,WERE,LIMITED,CONC,COLON,TOTAL,DEC4B
            03 00880 1  35       A
            03 00880 2  0246     A
            03 00881    E5       A
            03 00881 1  0256     A
            03 00881 3  00       A
            03 00882    0234     A
            03 00882 2  028C     A
            03 00883    FC       A
     2911                            NOPATTN  MSGX     NO,PATTERN,WRITTEN,DO,TST3,CONC,COMMA,ONE,;
     2912                                              CONC,COMMA,ONE,;
     2913   03 00883 1  0F       A                     TO,WRITE,A,PATTERN
            03 00883 2  8D       A
            03 00883 3  A0       A
            03 00884    EB       A
            03 00884 1  0240     A
            03 00884 3  DF       A
            03 00885    00       A
            03 00885 1  34       A
            03 00885 2  94       A
            03 00885 3  00       A
            03 00886    34       A
            03 00886 1  94       A
            03 00886 2  D8       A
            03 00886 3  EA       A
            03 00887    04       A
            03 00887 1  A0       A
     2914   03 00887 2  03       A   :COMERM4 MSGX     EXP,BINFA,HEX4A
            03 00887 3  55       A
            03 00888    0206     A
            03 00888 2  F7       A
     2915                            MSG0100  MSGX     DIO,ADDRESS,RECOGNITION,TOBJ,;
     2916                                              A,DIO,WRITE,DIRECT,TO,THE,RIOP,WILL,BE,RECOGNIZED,;
     2917   03 00888 3  11       A                     AND,RESPONDED,TO
            03 00889    4A       A
            03 00889 1  08       A
            03 00889 2  AD       A
            03 00889 3  03       A
            03 0088A    04       A
            03 0088A 1  4A       A
            03 0088A 2  EA       A
            03 0088A 3  4B       A
            03 0088B    D8       A
            03 0088B 1  D3       A
            03 0088B 2  B8       A
            03 0088B 3  E7       A
            03 0088C    1A       A
            03 0088C 1  AE       A
            03 0088C 2  15       A
            03 0088C 3  0275     A
            03 0088D 1  D8       A
     2918                            MSG0400  MSGX     MI,INITIAL,RESET,TOBJ,;
     2919   03 0088D 2  0B       A                     THE,RIOP,WAS,OR,CAN,BE,RESET
            03 0088D 3  8B       A
            03 0088E    77       A
            03 0088E 1  B4       A
            03 0088E 2  03       A
            03 0088E 3  D3       A
            03 0088F    B8       A
            03 0088F 1  E4       A
            03 0088F 2  97       A
            03 0088F 3  27       A
            03 00890    1A       A
            03 00890 1  B4       A
     2920                            MSG0500  MSGX     DIO,DATA,AND,ADDRESS,LINE,TOBJ,;
     2921                                              DATA,LINES,AND,ASSOCIATED,LATCHES,FOR,WRITE,DIRECT,;
     2922                                              GROUP,DEC1A,NL,;
     2923   03 00890 2  16       A                     AND,READ,DIRECT,GROUP,ONE
            03 00890 3  4A       A
            03 00891    41       A
            03 00891 1  15       A
            03 00891 2  08       A
            03 00891 3  86       A
            03 00892    03       A
            03 00892 1  41       A
            03 00892 2  87       A
            03 00892 3  15       A
            03 00893    0228     A
            03 00893 2  0254     A
            03 00894    5D       A
            03 00894 1  EA       A
            03 00894 2  4B       A
            03 00894 3  68       A
            03 00895    EF       A
            03 00895 1  01       A
            03 00895 2  15       A
            03 00895 3  AC       A
            03 00896    4B       A
            03 00896 1  68       A
            03 00896 2  94       A
     2924                            MSG0600  MSGX     MI,STOP,LATCH,TOBJ,;
     2925                                              THE,SETTING,OF,A,STOP,LATCH,WILL,CAUSE,A,DIO,;
     2926   03 00896 3  13       A                     CONDITION,CODE,TO,BE,SET
            03 00897    8B       A
            03 00897 1  CC       A
            03 00897 2  84       A
            03 00897 3  03       A
            03 00898    D3       A
            03 00898 1  C3       A
            03 00898 2  93       A
            03 00898 3  04       A
            03 00899    CC       A
            03 00899 1  84       A
            03 00899 2  E7       A
            03 00899 3  29       A
            03 0089A    04       A
            03 0089A 1  4A       A
            03 0089A 2  36       A
            03 0089A 3  31       A
            03 0089B    D8       A
            03 0089B 1  1A       A
            03 0089B 2  C2       A
     2927                            MSG0700  MSGX     MI,STEP,LATCH,TOBJ,;
     2928                                              THE,SETTING,OF,A,STEP,LATCH,WILL,CAUSE,A,DIO,;
     2929   03 0089B 3  13       A                     CONDITION,CODE,TO,BE,SET
            03 0089C    8B       A
            03 0089C 1  CA       A
            03 0089C 2  84       A
            03 0089C 3  03       A
            03 0089D    D3       A
            03 0089D 1  C3       A
            03 0089D 2  93       A
            03 0089D 3  04       A
            03 0089E    CA       A
            03 0089E 1  84       A
            03 0089E 2  E7       A
            03 0089E 3  29       A
            03 0089F    04       A
            03 0089F 1  4A       A
            03 0089F 2  36       A
            03 0089F 3  31       A
            03 008A0    D8       A
            03 008A0 1  1A       A
            03 008A0 2  C2       A
     2930                            MSG0800  MSGX     MI,RESET,LATCH,AND,ADDRESSING,TOBJ,;
     2931                                              ALL,LATCHES,THAT,SHOULD,BE,RESET,ARE,RESET,AND,;
     2932   03 008A0 3  19       A                     NL,ALL,WRITE,AND,READ,DIRECT,GROUPS,CAN,BE,RECOGNIZED
            03 008A1    8B       A
            03 008A1 1  B4       A
            03 008A1 2  84       A
            03 008A1 3  15       A
            03 008A2    09       A
            03 008A2 1  03       A
            03 008A2 2  0E       A
            03 008A2 3  0254     A
            03 008A3 1  D2       A
            03 008A3 2  C4       A
            03 008A3 3  1A       A
            03 008A4    B4       A
            03 008A4 1  12       A
            03 008A4 2  B4       A
            03 008A4 3  15       A
            03 008A5    01       A
            03 008A5 1  0E       A
            03 008A5 2  EA       A
            03 008A5 3  15       A
            03 008A6    AC       A
            03 008A6 1  4B       A
            03 008A6 2  024D     A
            03 008A7    27       A
            03 008A7 1  1A       A
            03 008A7 2  AE       A
     2933                            MSGP000  MSGX     INTERRUPT,NOT,PENDING,TOBJ,;
     2934   03 008A7 3  0E       A                     NO,INTERRUPT,IS,PENDING,AFTER,THE,RIOP,HAS,BEEN,RESET
            03 008A8    7A       A
            03 008A8 1  90       A
            03 008A8 2  A1       A
            03 008A8 3  03       A
            03 008A9    8D       A
            03 008A9 1  7A       A
            03 008A9 2  7F       A
            03 008A9 3  A1       A
            03 008AA    0C       A
            03 008AA 1  D3       A
            03 008AA 2  B8       A
            03 008AA 3  024F     A
            03 008AB 1  022D     A
            03 008AB 3  B4       A
     2935                            MSGP001  MSGX     INTERRUPT,PENDING,TOBJ,;
     2936   03 008AC    0C       A                     AN,INTERRUPT,SET,IN,THE,RIOP,CAN,BE,DETECTED
            03 008AC 1  7A       A
            03 008AC 2  A1       A
            03 008AC 3  03       A
            03 008AD    10       A
            03 008AD 1  7A       A
            03 008AD 2  C2       A
            03 008AD 3  71       A
            03 008AE    D3       A
            03 008AE 1  B8       A
            03 008AE 2  27       A
            03 008AE 3  1A       A
            03 008AF    48       A
     2937                            MSGPX00  MSGX     INSTRUCTION,DECODE,TOBJ,;
     2938                                              IO,ADDRESS,RECOGNITION,THE,CONTROL,STROBE,AND,THE,;
     2939   03 008AF 1  0F       A                     ADVANCING,TO,PH,DEC2B
            03 008AF 2  78       A
            03 008AF 3  44       A
            03 008B0    03       A
            03 008B0 1  6F       A
            03 008B0 2  08       A
            03 008B0 3  AD       A
            03 008B1    D3       A
            03 008B1 1  38       A
            03 008B1 2  0280     A
            03 008B2    15       A
            03 008B2 1  D3       A
            03 008B2 2  0225     A
            03 008B3    D8       A
            03 008B3 1  A2       A
            03 008B3 2  FA       A
     2940                            MSGP0Y0  MSGX     INSTRUCTION,FREE,RUNNING,EXECUTION,TOBJ,;
     2941                                              THIS,INSTRUCTION,CAN,BE,RECOGNIZED,AND,CONDITION,;
     2942   03 008B3 3  10       A                     CODES,CAN,BE,RETURNED
            03 008B4    78       A
            03 008B4 1  5F       A
            03 008B4 2  BA       A
            03 008B4 3  54       A
            03 008B5    03       A
            03 008B5 1  D5       A
            03 008B5 2  78       A
            03 008B5 3  27       A
            03 008B6    1A       A
            03 008B6 1  AE       A
            03 008B6 2  15       A
            03 008B6 3  36       A
            03 008B7    32       A
            03 008B7 1  27       A
            03 008B7 2  1A       A
            03 008B7 3  0276     A
     2943                            MSGP800  MSGX     CELL,TWENTY,MEMORY,CONTROL,TOBJ,;
     2944                                              THE,CONTROL,REQUIRED,TO,OBTAIN,A,WORD,FROM,MEMORY,;
     2945                                              IS,FUNCTIONING,NL,;
     2946   03 008B8 1  19       A                     CORRECTLY,AND,THAT,CELL,TWENTY,IS,BEING,REQUESTED
            03 008B8 2  2A       A
            03 008B8 3  E0       A
            03 008B9    8A       A
            03 008B9 1  38       A
            03 008B9 2  03       A
            03 008B9 3  D3       A
            03 008BA    38       A
            03 008BA 1  0273     A
            03 008BA 3  D8       A
            03 008BB    025E     A
            03 008BB 2  04       A
            03 008BB 3  E9       A
            03 008BC    60       A
            03 008BC 1  8A       A
            03 008BC 2  7F       A
            03 008BC 3  63       A
            03 008BD    01       A
            03 008BD 1  3A       A
            03 008BD 2  15       A
            03 008BD 3  D2       A
            03 008BE    2A       A
            03 008BE 1  E0       A
            03 008BE 2  7F       A
            03 008BE 3  022E     A
            03 008BF 1  0272     A
     2947                            MSGP900  MSGX     M,DASH,REGISTER,AND,MEMORY,LINES,TOBJ,;
     2948                                              CELL,TWENTY,CAN,BE,ACCESSED,AND,THAT,DATA,CAN,BE,;
     2949                                              NL,;
     2950   03 008BF 3  19       A                     TRANSFERRED,FROM,MEMORY,TO,THE,M,REGISTER
            03 008C0    88       A
            03 008C0 1  40       A
            03 008C0 2  AF       A
            03 008C0 3  15       A
            03 008C1    8A       A
            03 008C1 1  87       A
            03 008C1 2  03       A
            03 008C1 3  2A       A
            03 008C2    E0       A
            03 008C2 1  27       A
            03 008C2 2  1A       A
            03 008C2 3  07       A
            03 008C3    15       A
            03 008C3 1  D2       A
            03 008C3 2  41       A
            03 008C3 3  27       A
            03 008C4    1A       A
            03 008C4 1  01       A
            03 008C4 2  DB       A
            03 008C4 3  60       A
            03 008C5    8A       A
            03 008C5 1  D8       A
            03 008C5 2  D3       A
            03 008C5 3  88       A
            03 008C6    AF       A
     2951                            MSGPZ00  MSGX     M8#M9,DECODE,TOBJ,;
     2952   03 008C6 1  0B       A                     THE,DECODING,OF,THE,M8#M9,REGISTER,INDICATOR,BITS
            03 008C6 2  0259     A
            03 008C7    44       A
            03 008C7 1  03       A
            03 008C7 2  D3       A
            03 008C7 3  45       A
            03 008C8    93       A
            03 008C8 1  D3       A
            03 008C8 2  0259     A
            03 008C9    AF       A
            03 008C9 1  75       A
            03 008C9 2  0230     A
     2953                            MSGP160  MSGX     NO,IOP,ADDRESS,RECOGNITION,TOBJ,;
     2954                                              THERE,IS,NO,ADDRESS,RECOGNITION,OF,AN,INVALID,;
     2955   03 008CA    12       A                     IOP,ADDRESS,BY,THE,RIOP
            03 008CA 1  8D       A
            03 008CA 2  7E       A
            03 008CA 3  08       A
            03 008CB    AD       A
            03 008CB 1  03       A
            03 008CB 2  0288     A
            03 008CC    7F       A
            03 008CC 1  8D       A
            03 008CC 2  08       A
            03 008CC 3  AD       A
            03 008CD    93       A
            03 008CD 1  10       A
            03 008CD 2  7C       A
            03 008CD 3  7E       A
            03 008CE    08       A
            03 008CE 1  23       A
            03 008CE 2  D3       A
            03 008CE 3  B8       A
     2956                            MSGPB00  MSGX     NO,DEVICE,ADDRESS,RECOGNITION,TOBJ,;
     2957                                              THERE,IS,NO,ADDRESS,RECOGNITION,OF,AN,INVALID,;
     2958                                              NL,;
     2959   03 008CF    13       A                     DEVICE,ADDRESS,BY,THE,RIOP
            03 008CF 1  8D       A
            03 008CF 2  49       A
            03 008CF 3  08       A
            03 008D0    AD       A
            03 008D0 1  03       A
            03 008D0 2  0288     A
            03 008D1    7F       A
            03 008D1 1  8D       A
            03 008D1 2  08       A
            03 008D1 3  AD       A
            03 008D2    93       A
            03 008D2 1  10       A
            03 008D2 2  7C       A
            03 008D2 3  01       A
            03 008D3    49       A
            03 008D3 1  08       A
            03 008D3 2  23       A
            03 008D3 3  D3       A
            03 008D4    B8       A
     2960                            MSGP210  MSGX     PH,DEC2B,DECODE,TOBJ,;
     2961   03 008D4 1  0D       A                     THE,IO,CAN,RUN,AS,FAR,AS,PH,DEC2B
            03 008D4 2  A2       A
            03 008D4 3  FA       A
            03 008D5    44       A
            03 008D5 1  03       A
            03 008D5 2  D3       A
            03 008D5 3  6F       A
            03 008D6    27       A
            03 008D6 1  0278     A
            03 008D6 3  11       A
            03 008D7    59       A
            03 008D7 1  11       A
            03 008D7 2  A2       A
            03 008D7 3  FA       A
     2962                            MSGP220  MSGX     ADDRESS,ERROR,TOBJ,;
     2963   03 008D8    0D       A                     A,MEMORY,ADDRESS,ERROR,WILL,CAUSE,THE,RIOP,TO,TRAP
            03 008D8 1  08       A
            03 008D8 2  51       A
            03 008D8 3  03       A
            03 008D9    04       A
            03 008D9 1  8A       A
            03 008D9 2  08       A
            03 008D9 3  51       A
            03 008DA    E7       A
            03 008DA 1  29       A
            03 008DA 2  D3       A
            03 008DA 3  B8       A
            03 008DB    D8       A
            03 008DB 1  DD       A
     2964                            MSGP2300 MSGX     BUS,CHECK,FAULT,TOBJ,;
     2965   03 008DB 2  0E       A                     A,BUS,CHECK,FAULT,CAN,BE,GENERATED,DETECTED,AND,RESET
            03 008DB 3  21       A
            03 008DC    2E       A
            03 008DC 1  5A       A
            03 008DC 2  03       A
            03 008DC 3  04       A
            03 008DD    21       A
            03 008DD 1  2E       A
            03 008DD 2  5A       A
            03 008DD 3  27       A
            03 008DE    1A       A
            03 008DE 1  65       A
            03 008DE 2  48       A
            03 008DE 3  15       A
            03 008DF    B4       A
     2966                            MSGP2400 MSGX     PROCESSOR,FAULT,INTERRUPT,GENERATION,TOBJ,;
     2967                                              A,PROCESSOR,FAULT,INTERRUPT,CAN,BE,GENERATED,AND,;
     2968   03 008DF 1  0E       A                     DETECTED
            03 008DF 2  A9       A
            03 008DF 3  5A       A
            03 008E0    7A       A
            03 008E0 1  66       A
            03 008E0 2  03       A
            03 008E0 3  04       A
            03 008E1    A9       A
            03 008E1 1  5A       A
            03 008E1 2  7A       A
            03 008E1 3  27       A
            03 008E2    1A       A
            03 008E2 1  65       A
            03 008E2 2  15       A
            03 008E2 3  48       A
     2969                            MSGP2500 MSGX     ADDRESS,AVAILABLE,MEMORY,TOBJ,;
     2970                                              THE,M,DASH,REGISTER,TO,CA,DASH,REGISTER,TO,L,DASH,;
     2971                                              REGISTER,TRANSFER,AND,;
     2972   03 008E3    1A       A                     NL,THE,MEMORY,ACCESSING,WITHIN,THE,AVAILABLE,MEMORY
            03 008E3 1  08       A
            03 008E3 2  16       A
            03 008E3 3  8A       A
            03 008E4    03       A
            03 008E4 1  D3       A
            03 008E4 2  88       A
            03 008E4 3  40       A
            03 008E5    AF       A
            03 008E5 1  D8       A
            03 008E5 2  26       A
            03 008E5 3  40       A
            03 008E6    AF       A
            03 008E6 1  D8       A
            03 008E6 2  83       A
            03 008E6 3  40       A
            03 008E7    AF       A
            03 008E7 1  DA       A
            03 008E7 2  15       A
            03 008E7 3  01       A
            03 008E8    D3       A
            03 008E8 1  8A       A
            03 008E8 2  0222     A
            03 008E9    02A0     A
            03 008E9 2  D3       A
            03 008E9 3  16       A
            03 008EA    8A       A
     2973                            MSGP2700 MSGX     ADDRESS,NOT,AVAILABLE,MEMORY,TOBJ,;
     2974                                              THE,MEMORY,DETECTS,THE,MEMORY,ADDRESSING,OF,NOT,;
     2975   03 008EA 1  0F       A                     AVAILABLE,MEMORY
            03 008EA 2  08       A
            03 008EA 3  90       A
            03 008EB    16       A
            03 008EB 1  8A       A
            03 008EB 2  03       A
            03 008EB 3  D3       A
            03 008EC    8A       A
            03 008EC 1  023D     A
            03 008EC 3  D3       A
            03 008ED    8A       A
            03 008ED 1  09       A
            03 008ED 2  93       A
            03 008ED 3  90       A
            03 008EE    16       A
            03 008EE 1  8A       A
     2976                            MSGP2800 MSGX     ORDER,DECODE,TOBJ,;
     2977                                              THE,FREE,RUNNING,PATH,AS,FAR,AS,PH,DEC2B,AND,;
     2978                                              THE,DECODING,OF,NL,;
     2979   03 008EE 2  13       A                     THE,ORDER
            03 008EE 3  98       A
            03 008EF    44       A
            03 008EF 1  03       A
            03 008EF 2  D3       A
            03 008EF 3  5F       A
            03 008F0    BA       A
            03 008F0 1  9E       A
            03 008F0 2  11       A
            03 008F0 3  59       A
            03 008F1    11       A
            03 008F1 1  A2       A
            03 008F1 2  FA       A
            03 008F1 3  15       A
            03 008F2    D3       A
            03 008F2 1  45       A
            03 008F2 2  93       A
            03 008F2 3  01       A
            03 008F3    D3       A
            03 008F3 1  98       A
     2980                            MSGP2900 MSGX     TRANSFER,IN,CHANNEL,ORDER,DECODE,TOBJ,;
     2981   03 008F3 2  0D       A                     A,TRANSFER,IN,CHANNEL,CAN,BE,DECODED
            03 008F3 3  DA       A
            03 008F4    71       A
            03 008F4 1  2D       A
            03 008F4 2  98       A
            03 008F4 3  44       A
            03 008F5    03       A
            03 008F5 1  04       A
            03 008F5 2  DA       A
            03 008F5 3  71       A
            03 008F6    2D       A
            03 008F6 1  27       A
            03 008F6 2  1A       A
            03 008F6 3  0238     A
     2982                            MSGP3200 MSGX     WRITE,CELL,DEC2B,TOBJ,;
     2983   03 008F7 1  0D       A                     THE,CONTROL,FOR,WRITING,CELL,DEC2B,FROM,THE,RIOP
            03 008F7 2  EA       A
            03 008F7 3  2A       A
            03 008F8    FA       A
            03 008F8 1  03       A
            03 008F8 2  D3       A
            03 008F8 3  38       A
            03 008F9    5D       A
            03 008F9 1  EC       A
            03 008F9 2  2A       A
            03 008F9 3  FA       A
            03 008FA    60       A
            03 008FA 1  D3       A
            03 008FA 2  B8       A
     2984                            MSGP3401 MSGX     AIO,INSTRUCTION,CONTROL,TOBJ,;
     2985   03 008FA 3  0D       A                     THE,PHASE,CONTROL,FOR,AN,AIO,IS,FUNCTIONING,CORRECTLY
            03 008FB    0F       A
            03 008FB 1  78       A
            03 008FB 2  38       A
            03 008FB 3  03       A
            03 008FC    D3       A
            03 008FC 1  A4       A
            03 008FC 2  38       A
            03 008FC 3  5D       A
            03 008FD    10       A
            03 008FD 1  0F       A
            03 008FD 2  7F       A
            03 008FD 3  63       A
            03 008FE    3A       A
     2986                            MSGP3403 MSGX     PARITY,ERROR,DURING,THE,WRITING,OF,CELL,DEC2B,TOBJ,;
     2987                                              THE,RIOP,WILL,DETECT,AND,REPORT,A,PARITY,DURING,THE,;
     2988   03 008FE 1  17       A                     WRITING,OF,CELL,DEC2B
            03 008FE 2  9B       A
            03 008FE 3  51       A
            03 008FF    4D       A
            03 008FF 1  D3       A
            03 008FF 2  EC       A
            03 008FF 3  93       A
            03 00900    2A       A
            03 00900 1  FA       A
            03 00900 2  03       A
            03 00900 3  D3       A
            03 00901    B8       A
            03 00901 1  E7       A
            03 00901 2  023B     A
            03 00902    15       A
            03 00902 1  B0       A
            03 00902 2  04       A
            03 00902 3  9B       A
            03 00903    4D       A
            03 00903 1  D3       A
            03 00903 2  EC       A
            03 00903 3  93       A
            03 00904    2A       A
            03 00904 1  FA       A
     2989                            MSGSTAT0 MSGX     STATUS,RETURN,TOBJ,;
     2990                                              SELECTED,STATUS,CAN,BE,SET,AND,THAT,THE,STATUS,;
     2991                                              RETURN,PATH,FROM,THE,NL,;
     2992                                              STATUS,INDICATORS,TO,THE,H,REGISTER,TO,THE,M,;
     2993                                              REGISTER,TO,THE,NL,;
     2994   03 00904 2  21       A                     MEMORY,FUNCTIONS,PROPERLY
            03 00904 3  C9       A
            03 00905    B5       A
            03 00905 1  03       A
            03 00905 2  027A     A
            03 00906    C9       A
            03 00906 1  27       A
            03 00906 2  1A       A
            03 00906 3  C2       A
            03 00907    15       A
            03 00907 1  D2       A
            03 00907 2  D3       A
            03 00907 3  C9       A
            03 00908    B5       A
            03 00908 1  9E       A
            03 00908 2  60       A
            03 00908 3  D3       A
            03 00909    01       A
            03 00909 1  C9       A
            03 00909 2  76       A
            03 00909 3  D8       A
            03 0090A    D3       A
            03 0090A 1  69       A
            03 0090A 2  AF       A
            03 0090A 3  D8       A
            03 0090B    D3       A
            03 0090B 1  88       A
            03 0090B 2  AF       A
            03 0090B 3  D8       A
            03 0090C    D3       A
            03 0090C 1  01       A
            03 0090C 2  8A       A
            03 0090C 3  64       A
            03 0090D    AA       A
     2995                            MSGP3900 MSGX     SUCCESSFUL,SIO,TOBJ,;
     2996                                              A,SUCCESSFUL,SIO,CAN,BE,EXECUTED,AND,THAT,IT,CAN,;
     2997   03 0090D 1  12       A                     BE,FOLLOWED,BY,A,TIO
            03 0090D 2  0281     A
            03 0090E    C5       A
            03 0090E 1  03       A
            03 0090E 2  04       A
            03 0090E 3  0281     A
            03 0090F 1  C5       A
            03 0090F 2  27       A
            03 0090F 3  1A       A
            03 00910    53       A
            03 00910 1  15       A
            03 00910 2  D2       A
            03 00910 3  80       A
            03 00911    27       A
            03 00911 1  1A       A
            03 00911 2  024B     A
            03 00912    23       A
            03 00912 1  04       A
            03 00912 2  D7       A
     2998                            MSGP3902 MSGX     IO,INSTRUCTION,NOT,ACCEPTED,OR,NOT,POSSIBLE,TOBJ,;
     2999                                              AN,IO,INSTRUCTION,WILL,REPORT,THAT,IT,WAS,NOT,;
     3000                                              ACCEPTED,OR,NOT,NL,;
     3001   03 00912 3  1B       A                     POSSIBLE,BECAUSE,OF,A,PENDING,INTERRUPT
            03 00913    6F       A
            03 00913 1  78       A
            03 00913 2  90       A
            03 00913 3  06       A
            03 00914    97       A
            03 00914 1  90       A
            03 00914 2  A7       A
            03 00914 3  03       A
            03 00915    10       A
            03 00915 1  6F       A
            03 00915 2  78       A
            03 00915 3  E7       A
            03 00916    B0       A
            03 00916 1  D2       A
            03 00916 2  80       A
            03 00916 3  E4       A
            03 00917    90       A
            03 00917 1  06       A
            03 00917 2  97       A
            03 00917 3  90       A
            03 00918    01       A
            03 00918 1  A7       A
            03 00918 2  022C     A
            03 00919    93       A
            03 00919 1  04       A
            03 00919 2  A1       A
            03 00919 3  7A       A
     3002                            MSGP4000 MSGX     SUBCHANNEL,STATUS,TOBJ,;
     3003                                              SUBCHANNEL,STATUS,IS,RETURNED,CORRECTLY,WHEN,;
     3004   03 0091A    0E       A                     A,BUS,CHECK,FAULT,OCCURS
            03 0091A 1  CD       A
            03 0091A 2  C9       A
            03 0091A 3  03       A
            03 0091B    CD       A
            03 0091B 1  C9       A
            03 0091B 2  7F       A
            03 0091B 3  0276     A
            03 0091C 1  3A       A
            03 0091C 2  E6       A
            03 0091C 3  04       A
            03 0091D    21       A
            03 0091D 1  2E       A
            03 0091D 2  5A       A
            03 0091D 3  0260     A
     3005                            MSGP4100 MSGX     BYTE,COUNT,REGISTER,TOBJ,THE,DATA,PATH,FROM,;
     3006                                              THE,M,DASH,REGISTER,TO,BYTE,COUNT,REGISTER,AND,THE,;
     3007                                           NL,BYTE,COUNT,REGISTER,;
     3008   03 0091E 1  1E       A                     TO,THE,M,DASH,REGISTER,IS,FUNCTIONING,PROPERLY
            03 0091E 2  24       A
            03 0091E 3  3B       A
            03 0091F    AF       A
            03 0091F 1  03       A
            03 0091F 2  D3       A
            03 0091F 3  41       A
            03 00920    9E       A
            03 00920 1  60       A
            03 00920 2  D3       A
            03 00920 3  88       A
            03 00921    40       A
            03 00921 1  AF       A
            03 00921 2  D8       A
            03 00921 3  24       A
            03 00922    3B       A
            03 00922 1  AF       A
            03 00922 2  15       A
            03 00922 3  D3       A
            03 00923    01       A
            03 00923 1  24       A
            03 00923 2  3B       A
            03 00923 3  AF       A
            03 00924    D8       A
            03 00924 1  D3       A
            03 00924 2  88       A
            03 00924 3  40       A
            03 00925    AF       A
            03 00925 1  7F       A
            03 00925 2  63       A
            03 00925 3  AA       A
     3009                            MSGP4200 MSGX     COMMAND,DOUBLEWORD,RETURN,PATH,TOBJ,THE,DATA,PATH,;
     3010                                              FOR,THE,COMMAND,DOUBLEWORD,FROM,THE,NL,;
     3011                                              CA,DASH,REGISTER,TO,;
     3012                                              THE,H,DASH,REGISTER,TO,THE,M,DASH,REGISTER,TO,;
     3013   03 00926    1F       A                     THE,MEMORY
            03 00926 1  33       A
            03 00926 2  4C       A
            03 00926 3  B5       A
            03 00927    9E       A
            03 00927 1  03       A
            03 00927 2  D3       A
            03 00927 3  41       A
            03 00928    9E       A
            03 00928 1  5D       A
            03 00928 2  D3       A
            03 00928 3  33       A
            03 00929    4C       A
            03 00929 1  60       A
            03 00929 2  D3       A
            03 00929 3  01       A
            03 0092A    26       A
            03 0092A 1  40       A
            03 0092A 2  AF       A
            03 0092A 3  D8       A
            03 0092B    D3       A
            03 0092B 1  69       A
            03 0092B 2  40       A
            03 0092B 3  AF       A
            03 0092C    D8       A
            03 0092C 1  D3       A
            03 0092C 2  88       A
            03 0092C 3  40       A
            03 0092D    AF       A
            03 0092D 1  D8       A
            03 0092D 2  D3       A
            03 0092D 3  8A       A
     3014                            MSGP4300 MSGX     TRANSFER,IN,CHANNEL,TOBJ,;
     3015                                              A,NEW,IOCD,CAN,BE,REQUESTED,BY,THE,TRANSFER,IN,;
     3016   03 0092E    10       A                     CHANNEL,ORDER
            03 0092E 1  DA       A
            03 0092E 2  71       A
            03 0092E 3  2D       A
            03 0092F    03       A
            03 0092F 1  04       A
            03 0092F 2  8C       A
            03 0092F 3  7D       A
            03 00930    27       A
            03 00930 1  1A       A
            03 00930 2  0272     A
            03 00931    23       A
            03 00931 1  D3       A
            03 00931 2  DA       A
            03 00931 3  71       A
            03 00932    2D       A
            03 00932 1  98       A
     3017                            MSGP4600 MSGX     IO,INTERRUPT,GENERATION,TOBJ,;
     3018   03 00932 2  0E       A                     AN,IO,INTERRUPT,CAN,BE,GENERATED,BY,AN,INVALID,ORDER
            03 00932 3  6F       A
            03 00933    7A       A
            03 00933 1  66       A
            03 00933 2  03       A
            03 00933 3  10       A
            03 00934    6F       A
            03 00934 1  7A       A
            03 00934 2  27       A
            03 00934 3  1A       A
            03 00935    65       A
            03 00935 1  23       A
            03 00935 2  10       A
            03 00935 3  7C       A
            03 00936    98       A
     3019                            MSGP4700 MSGX     INTERRUPT,RECOGNITION,AND,RESET,TOBJ,;
     3020                                              AN,INTERRUPT,PENDING,CONDITION,CAN,BE,GENERATED,AND,;
     3021   03 00936 1  0E       A                     RESET
            03 00936 2  7A       A
            03 00936 3  AD       A
            03 00937    15       A
            03 00937 1  B4       A
            03 00937 2  03       A
            03 00937 3  10       A
            03 00938    7A       A
            03 00938 1  A1       A
            03 00938 2  36       A
            03 00938 3  27       A
            03 00939    1A       A
            03 00939 1  65       A
            03 00939 2  15       A
            03 00939 3  B4       A
     3022                            MSGP5500 MSGX     AIO,INSTRUCTION,TOBJ,;
     3023                                              AN,AIO,INSTRUCTION,CAN,BE,EXECUTED,TO,CLEAR,A,;
     3024   03 0093A    0E       A                     PENDING,INTERRUPT
            03 0093A 1  0F       A
            03 0093A 2  78       A
            03 0093A 3  03       A
            03 0093B    10       A
            03 0093B 1  0F       A
            03 0093B 2  78       A
            03 0093B 3  27       A
            03 0093C    1A       A
            03 0093C 1  53       A
            03 0093C 2  D8       A
            03 0093C 3  0233     A
            03 0093D 1  04       A
            03 0093D 2  A1       A
            03 0093D 3  7A       A
     3025                            MSGP5700 MSGX     INITIAL,DATA,OUT,STATE,TOBJ,;
     3026                                              THE,RIOP,CAN,GO,INTO,A,DATA,OUT,STATE,AND,THAT,THE,;
     3027                                              NL,;
     3028   03 0093E    16       A                     TS,STOP,FUNCTIONS,PROPERLY
            03 0093E 1  77       A
            03 0093E 2  41       A
            03 0093E 3  99       A
            03 0093F    C8       A
            03 0093F 1  03       A
            03 0093F 2  D3       A
            03 0093F 3  B8       A
            03 00940    27       A
            03 00940 1  67       A
            03 00940 2  7B       A
            03 00940 3  04       A
            03 00941    41       A
            03 00941 1  99       A
            03 00941 2  C8       A
            03 00941 3  15       A
            03 00942    D2       A
            03 00942 1  D3       A
            03 00942 2  01       A
            03 00942 3  028F     A
            03 00943 1  CC       A
            03 00943 2  64       A
            03 00943 3  AA       A
     3029   03 00944    05       A   MSGP5800 MSGX     IOP,HALT,ERROR,STATUS,TEST
            03 00944 1  7E       A
            03 00944 2  6A       A
            03 00944 3  51       A
            03 00945    C9       A
            03 00945 1  D1       A
     3030   03 00945 2  04       A   MSGP5900 MSGX     RATE,ERROR,STATUS,TEST
            03 00945 3  026C     A
            03 00946 1  51       A
            03 00946 2  C9       A
            03 00946 3  D1       A
     3031   03 00947    05       A   MSGP6000 MSGX     SECTOR,UNAVAILABLE,ERROR,STATUS,TEST
            03 00947 1  BB       A
            03 00947 2  E2       A
            03 00947 3  51       A
            03 00948    C9       A
            03 00948 1  D1       A
     3032   03 00948 2  06       A   MSGP6100 MSGX     WRITE,PROTECT,VIOLATION,ERROR,STATUS,TEST
            03 00948 3  EA       A
            03 00949    0269     A
            03 00949 2  029D     A
            03 0094A    51       A
            03 0094A 1  C9       A
            03 0094A 2  D1       A
     3033   03 0094A 3  06       A   MSGP6200 MSGX     SYNC,PATTERN,MISSED,ERROR,STATUS,TEST
            03 0094B    0283     A
            03 0094B 2  A0       A
            03 0094B 3  025B     A
            03 0094C 1  51       A
            03 0094C 2  C9       A
            03 0094C 3  D1       A
     3034   03 0094D    05       A   MSGP6300 MSGX     INCORRECT,LENGTH,ERROR,STATUS,TEST
            03 0094D 1  72       A
            03 0094D 2  85       A
            03 0094D 3  51       A
            03 0094E    C9       A
            03 0094E 1  D1       A
     3035   03 0094E 2  05       A   MSGP6400 MSGX     BAND,TRANSMISSION,ERROR,STATUS,TEST
            03 0094E 3  18       A
            03 0094F    DC       A
            03 0094F 1  51       A
            03 0094F 2  C9       A
            03 0094F 3  D1       A
     3036   03 00950    05       A   MSGP6500 MSGX     HEADER,COMPARE,ERROR,STATUS,TEST
            03 00950 1  6C       A
            03 00950 2  35       A
            03 00950 3  51       A
            03 00951    C9       A
            03 00951 1  D1       A
     3037   03 00951 2  05       A   MSGP660  MSGX     TRANSMISSION,MEMORY,ERROR,STATUS,TEST
            03 00951 3  DC       A
            03 00952    8A       A
            03 00952 1  51       A
            03 00952 2  C9       A
            03 00952 3  D1       A
     3038                            MSGTEST2 MSGX     AN,UNUSUAL,END,CONDITION,CAN,BE,GENERATED,BY,THE,;
     3039                                              SETTING,OF,AN,ERROR,NL,;
     3040                                              STATUS,INDICATOR,CONC,COMMA,THUS,CAUSING,THE,RIOP,;
     3041                                              TO,GO,TO,AN,UNUSUAL,NL,;
     3042   03 00953    24       A                     END,AND,REPORT,THE,CAUSE,OF,THE,END
            03 00953 1  10       A
            03 00953 2  E3       A
            03 00953 3  4F       A
            03 00954    36       A
            03 00954 1  27       A
            03 00954 2  1A       A
            03 00954 3  65       A
            03 00955    23       A
            03 00955 1  D3       A
            03 00955 2  C3       A
            03 00955 3  93       A
            03 00956    10       A
            03 00956 1  51       A
            03 00956 2  01       A
            03 00956 3  C9       A
            03 00957    75       A
            03 00957 1  00       A
            03 00957 2  34       A
            03 00957 3  0293     A
            03 00958 1  0231     A
            03 00958 3  D3       A
            03 00959    B8       A
            03 00959 1  D8       A
            03 00959 2  67       A
            03 00959 3  D8       A
            03 0095A    10       A
            03 0095A 1  E3       A
            03 0095A 2  01       A
            03 0095A 3  4F       A
            03 0095B    15       A
            03 0095B 1  B0       A
            03 0095B 2  D3       A
            03 0095B 3  29       A
            03 0095C    93       A
            03 0095C 1  D3       A
            03 0095C 2  4F       A
     3043                            MSGP7000 MSGX     TWO,TRANSFER,IN,CHANNEL,IN,A,ROW,CONTROL,TOBJ,;
     3044                                              A,SEQUENCE,OF,TWO,TRANSFER,IN,CHANNEL,IN,A,ROW,IS,;
     3045   03 0095C 3  18       A                     DETECTED,AS,AN,ERROR
            03 0095D    E1       A
            03 0095D 1  DA       A
            03 0095D 2  71       A
            03 0095D 3  2D       A
            03 0095E    71       A
            03 0095E 1  04       A
            03 0095E 2  0277     A
            03 0095F    38       A
            03 0095F 1  03       A
            03 0095F 2  04       A
            03 0095F 3  C0       A
            03 00960    93       A
            03 00960 1  E1       A
            03 00960 2  DA       A
            03 00960 3  71       A
            03 00961    2D       A
            03 00961 1  71       A
            03 00961 2  04       A
            03 00961 3  0277     A
            03 00962 1  7F       A
            03 00962 2  48       A
            03 00962 3  11       A
            03 00963    10       A
            03 00963 1  51       A
     3046                            MSGP7100 MSGX     PARTIAL,EXECUTION,OF,AN,IO,INSTRUCTION,TOBJ,;
     3047                                              THE,RIOP,WILL,PARTIALLY,EXECUTE,IO,INSTRUCTIONS,;
     3048   03 00963 2  12       A                     IF,IT,IS,BUSY
            03 00963 3  9C       A
            03 00964    54       A
            03 00964 1  93       A
            03 00964 2  10       A
            03 00964 3  6F       A
            03 00965    78       A
            03 00965 1  03       A
            03 00965 2  D3       A
            03 00965 3  B8       A
            03 00966    E7       A
            03 00966 1  0266     A
            03 00966 3  52       A
            03 00967    6F       A
            03 00967 1  79       A
            03 00967 2  70       A
            03 00967 3  80       A
            03 00968    7F       A
            03 00968 1  22       A
     3049                            MSGP7400 MSGX     INSTRUCTION,EXECUTION,WHILE,BUSY,TOBJ,;
     3050                                              THE,RIOP,WILL,EXECUTE,AN,AIO,OR,HIO,INSTRUCTION,;
     3051   03 00968 2  12       A                     WHILE,IT,IS,BUSY
            03 00968 3  78       A
            03 00969    54       A
            03 00969 1  029F     A
            03 00969 3  22       A
            03 0096A    03       A
            03 0096A 1  D3       A
            03 0096A 2  B8       A
            03 0096A 3  E7       A
            03 0096B    52       A
            03 0096B 1  10       A
            03 0096B 2  0F       A
            03 0096B 3  97       A
            03 0096C    6D       A
            03 0096C 1  78       A
            03 0096C 2  029F     A
            03 0096D    80       A
            03 0096D 1  7F       A
            03 0096D 2  22       A
     3052                            MSGF000  MSGX     INITIAL,WRITE,STATE,TOBJ,;
     3053                                              THE,INITIAL,CONDITION,OF,THE,DATA,CONTROL,LOGIC,FOR,;
     3054   03 0096D 3  0F       A                     DATA,OUT
            03 0096E    77       A
            03 0096E 1  EA       A
            03 0096E 2  C8       A
            03 0096E 3  03       A
            03 0096F    D3       A
            03 0096F 1  77       A
            03 0096F 2  36       A
            03 0096F 3  93       A
            03 00970    D3       A
            03 00970 1  41       A
            03 00970 2  38       A
            03 00970 3  0258     A
            03 00971 1  5D       A
            03 00971 2  41       A
            03 00971 3  99       A
     3055                            MSGF0010 MSGX     MEMORY,WORD,ADDRESSING,TEST,DEC1A,ROBJ,;
     3056                                              ALL,POSSIBLE,MEMORY,ADDRESSES,CAN,BE,TRANSFERRED,;
     3057                                              TO,THE,BA,REGISTER,NL,;
     3058   03 00972    18       A                     AND,THEN,TO,THE,L,REGISTER
            03 00972 1  8A       A
            03 00972 2  E9       A
            03 00972 3  09       A
            03 00973    D1       A
            03 00973 1  EF       A
            03 00973 2  B9       A
            03 00973 3  0E       A
            03 00974    A7       A
            03 00974 1  8A       A
            03 00974 2  0224     A
            03 00975    27       A
            03 00975 1  1A       A
            03 00975 2  DB       A
            03 00975 3  D8       A
            03 00976    D3       A
            03 00976 1  022A     A
            03 00976 3  AF       A
            03 00977    01       A
            03 00977 1  15       A
            03 00977 2  D4       A
            03 00977 3  D8       A
            03 00978    D3       A
            03 00978 1  83       A
            03 00978 2  AF       A
     3059                            MSGF0020 MSGX     MEMORY,REQUEST,AND,REGISTER,TRANSFER,CONTROL,TEST,;
     3060                                              DEC1A,ROBJ,;
     3061                                              MEMORY,REQUEST,CAN,BE,MADE,COMMA,WORD,PRESENCE,;
     3062                                                AND,BYTE,PRESENCE,NL,;
     3063                                              INDICATORS,CAN,BE,SET,AS,THE,DATA,IS,TRANSFERRED,NL,;
     3064   03 00978 3  28       A                     FROM,M,TO,H,TO,I,TO,J,REGISTERS
            03 00979    8A       A
            03 00979 1  B2       A
            03 00979 2  15       A
            03 00979 3  AF       A
            03 0097A    DA       A
            03 0097A 1  38       A
            03 0097A 2  D1       A
            03 0097A 3  EF       A
            03 0097B    B9       A
            03 0097B 1  8A       A
            03 0097B 2  B2       A
            03 0097B 3  27       A
            03 0097C    1A       A
            03 0097C 1  89       A
            03 0097C 2  34       A
            03 0097C 3  E9       A
            03 0097D    A8       A
            03 0097D 1  15       A
            03 0097D 2  24       A
            03 0097D 3  A8       A
            03 0097E    01       A
            03 0097E 1  76       A
            03 0097E 2  27       A
            03 0097E 3  1A       A
            03 0097F    C2       A
            03 0097F 1  11       A
            03 0097F 2  D3       A
            03 0097F 3  41       A
            03 00980    7F       A
            03 00980 1  DB       A
            03 00980 2  01       A
            03 00980 3  60       A
            03 00981    88       A
            03 00981 1  D8       A
            03 00981 2  69       A
            03 00981 3  D8       A
            03 00982    6E       A
            03 00982 1  D8       A
            03 00982 2  81       A
            03 00982 3  026F     A
     3065                            MSGFZZZ  MSGX     MEMORY,REQUEST,AND,REGISTER,TRANSFER,CONTROL,TEST,;
     3066                                              DEC1A,ROBJ,;
     3067                                              ONLY,DEC2B,MEMORY,REQUESTS,WILL,BE,MADE,AND,THAT,;
     3068                                              THE,DATA,TRANSFER,NL,;
     3069   03 00983 1  1F       A                     DOES,NOT,STOP,UNTIL,THE,J,REGISTER,IS,FULL
            03 00983 2  8A       A
            03 00983 3  B2       A
            03 00984    15       A
            03 00984 1  AF       A
            03 00984 2  DA       A
            03 00984 3  38       A
            03 00985    D1       A
            03 00985 1  EF       A
            03 00985 2  B9       A
            03 00985 3  95       A
            03 00986    FA       A
            03 00986 1  8A       A
            03 00986 2  B3       A
            03 00986 3  E7       A
            03 00987    1A       A
            03 00987 1  89       A
            03 00987 2  15       A
            03 00987 3  D2       A
            03 00988    D3       A
            03 00988 1  41       A
            03 00988 2  DA       A
            03 00988 3  01       A
            03 00989    0241     A
            03 00989 2  90       A
            03 00989 3  CC       A
            03 0098A    0299     A
            03 0098A 2  D3       A
            03 0098A 3  81       A
            03 0098B    AF       A
            03 0098B 1  7F       A
            03 0098B 2  61       A
     3070                            MSGFYYY0 MSGX     BYTE,COUNT,DECREMENT,DASH,MEMORY,BYTE,ADDRESS,;
     3071                                              INCREMENT,TEST,DEC1A,ROBJ,;
     3072                                              THE,RIOP,CAN,DECREMENT,A,BYTE,COUNT,TO,ZERO,;
     3073                                              FROM,HEX4C,AND,NL,;
     3074   03 0098B 3  1E       A                     INCREMENT,THE,MEMORY,BYTE,ADDRESS,PROPERLY
            03 0098C    24       A
            03 0098C 1  3B       A
            03 0098C 2  46       A
            03 0098C 3  40       A
            03 0098D    8A       A
            03 0098D 1  24       A
            03 0098D 2  08       A
            03 0098D 3  73       A
            03 0098E    D1       A
            03 0098E 1  EF       A
            03 0098E 2  B9       A
            03 0098E 3  D3       A
            03 0098F    B8       A
            03 0098F 1  27       A
            03 0098F 2  46       A
            03 0098F 3  04       A
            03 00990    24       A
            03 00990 1  3B       A
            03 00990 2  D8       A
            03 00990 3  ED       A
            03 00991    60       A
            03 00991 1  FF       A
            03 00991 2  15       A
            03 00991 3  01       A
            03 00992    73       A
            03 00992 1  D3       A
            03 00992 2  8A       A
            03 00992 3  24       A
            03 00993    08       A
            03 00993 1  AA       A
     3075                            MSGF0120 MSGX     FAM,COUNTER,INCREMENT,TOBJ,;
     3076                                              THE,FAM,CAN,BE,LOADED,PROPERLY,BY,A,WRITE,OPERATION,;
     3077                                              COMMA,THAT,THE,BYTE,NL,;
     3078                                              COUNT,WILL,BE,DECREMENTED,TO,ZERO,AND,THAT,THE,FAM,;
     3079   03 00993 2  20       A                     COUNTER,COUNTS,PROPERLY
            03 00993 3  58       A
            03 00994    3C       A
            03 00994 1  73       A
            03 00994 2  03       A
            03 00994 3  D3       A
            03 00995    58       A
            03 00995 1  27       A
            03 00995 2  1A       A
            03 00995 3  0257     A
            03 00996 1  AA       A
            03 00996 2  23       A
            03 00996 3  04       A
            03 00997    EA       A
            03 00997 1  96       A
            03 00997 2  34       A
            03 00997 3  D2       A
            03 00998    D3       A
            03 00998 1  24       A
            03 00998 2  01       A
            03 00998 3  3B       A
            03 00999    E7       A
            03 00999 1  1A       A
            03 00999 2  47       A
            03 00999 3  D8       A
            03 0099A    ED       A
            03 0099A 1  15       A
            03 0099A 2  D2       A
            03 0099A 3  D3       A
            03 0099B    58       A
            03 0099B 1  3C       A
            03 0099B 2  0235     A
            03 0099C    AA       A
     3080                            MSGF0160 MSGX     FREE,RUNNING,WRITE,TOBJ,;
     3081                                              A,WRITE,OPERATION,WILL,GO,TO,A,NORMAL,END,AND,;
     3082   03 0099C 1  11       A                     REPORT,STATUS,PROPERLY
            03 0099C 2  5F       A
            03 0099C 3  BA       A
            03 0099D    EA       A
            03 0099D 1  03       A
            03 0099D 2  04       A
            03 0099D 3  EA       A
            03 0099E    96       A
            03 0099E 1  E7       A
            03 0099E 2  67       A
            03 0099E 3  D8       A
            03 0099F    04       A
            03 0099F 1  8F       A
            03 0099F 2  4F       A
            03 0099F 3  15       A
            03 009A0    B0       A
            03 009A0 1  C9       A
            03 009A0 2  AA       A
     3083                            MSGF0170 MSGX     INITIAL,DATA,IN,TOBJ,;
     3084   03 009A0 3  0D       A                     THE,RIOP,CAN,GO,INTO,A,DATA,IN,STATE
            03 009A1    77       A
            03 009A1 1  41       A
            03 009A1 2  71       A
            03 009A1 3  03       A
            03 009A2    D3       A
            03 009A2 1  B8       A
            03 009A2 2  27       A
            03 009A2 3  67       A
            03 009A3    7B       A
            03 009A3 1  04       A
            03 009A3 2  41       A
            03 009A3 3  71       A
            03 009A4    C8       A
     3085                            MSGF0180 MSGX     FAM,REQUEST,AND,REGISTER,TRANSFER,CONTROL,TEST,;
     3086                                              DEC1A,ROBJ,;
     3087                                              REQUESTS,FOR,DATA,CAN,BE,MADE,TO,THE,FAM,AND,;
     3088                                              THAT,THE,WORD,NL,;
     3089                                              AND,BYTE,PRESENCE,INDICATORS,REPORT,DATA,AS,IT,IS,;
     3090                                              TRANSFERRED,FROM,NL,;
     3091   03 009A4 1  2F       A                     THE,FAM,TO,K,TO,I,TO,H,TO,M,TO,MEMORY
            03 009A4 2  58       A
            03 009A4 3  B2       A
            03 009A5    15       A
            03 009A5 1  AF       A
            03 009A5 2  DA       A
            03 009A5 3  38       A
            03 009A6    D1       A
            03 009A6 1  EF       A
            03 009A6 2  B9       A
            03 009A6 3  B3       A
            03 009A7    5D       A
            03 009A7 1  41       A
            03 009A7 2  27       A
            03 009A7 3  1A       A
            03 009A8    89       A
            03 009A8 1  D8       A
            03 009A8 2  D3       A
            03 009A8 3  58       A
            03 009A9    15       A
            03 009A9 1  D2       A
            03 009A9 2  D3       A
            03 009A9 3  E9       A
            03 009AA    01       A
            03 009AA 1  15       A
            03 009AA 2  24       A
            03 009AA 3  A8       A
            03 009AB    76       A
            03 009AB 1  B0       A
            03 009AB 2  41       A
            03 009AB 3  11       A
            03 009AC    80       A
            03 009AC 1  7F       A
            03 009AC 2  DB       A
            03 009AC 3  60       A
            03 009AD    01       A
            03 009AD 1  D3       A
            03 009AD 2  58       A
            03 009AD 3  D8       A
            03 009AE    82       A
            03 009AE 1  D8       A
            03 009AE 2  6E       A
            03 009AE 3  D8       A
            03 009AF    69       A
            03 009AF 1  D8       A
            03 009AF 2  88       A
            03 009AF 3  D8       A
            03 009B0    8A       A
     3092                            MSGF0200 MSGX     DATA,IN,MEMORY,ACCESS,TEST,DEC1A,ROBJ,;
     3093                                              THE,MEMORY,REQUESTS,ARE,ONLY,MADE,WHEN,ALL,;
     3094                                              REGISTER,;
     3095   03 009B0 1  14       A                     ARE,FULL,OF,DATA
            03 009B0 2  41       A
            03 009B0 3  71       A
            03 009B1    8A       A
            03 009B1 1  0221     A
            03 009B1 3  D1       A
            03 009B2    EF       A
            03 009B2 1  B9       A
            03 009B2 2  D3       A
            03 009B2 3  8A       A
            03 009B3    B3       A
            03 009B3 1  12       A
            03 009B3 2  95       A
            03 009B3 3  89       A
            03 009B4    E6       A
            03 009B4 1  0E       A
            03 009B4 2  AF       A
            03 009B4 3  12       A
            03 009B5    61       A
            03 009B5 1  93       A
            03 009B5 2  41       A
     3096                            MSGF0220 MSGX     FAM,COUNTER,DECREMENT,AND,FAM,BYTE,PRESENCE,TOBJ,;
     3097                                              THE,FAM,COUNTER,CAN,BE,DECREMENTED,BY,A,READ,;
     3098                                              OPERATION,AND,NL,;
     3099                                              THAT,ALL,BYTE,PRESENCE,INDICATORS,FROM,THE,FAM,CAN,;
     3100   03 009B5 3  24       A                     REPORT,NL,THE,PRESENCE,OF,THE,BYTES
            03 009B6    58       A
            03 009B6 1  3C       A
            03 009B6 2  46       A
            03 009B6 3  15       A
            03 009B7    58       A
            03 009B7 1  24       A
            03 009B7 2  A8       A
            03 009B7 3  03       A
            03 009B8    D3       A
            03 009B8 1  58       A
            03 009B8 2  3C       A
            03 009B8 3  27       A
            03 009B9    1A       A
            03 009B9 1  47       A
            03 009B9 2  23       A
            03 009B9 3  04       A
            03 009BA    AC       A
            03 009BA 1  96       A
            03 009BA 2  15       A
            03 009BA 3  01       A
            03 009BB    D2       A
            03 009BB 1  0E       A
            03 009BB 2  24       A
            03 009BB 3  A8       A
            03 009BC    76       A
            03 009BC 1  60       A
            03 009BC 2  D3       A
            03 009BC 3  58       A
            03 009BD    27       A
            03 009BD 1  B0       A
            03 009BD 2  01       A
            03 009BD 3  D3       A
            03 009BE    A8       A
            03 009BE 1  93       A
            03 009BE 2  D3       A
            03 009BE 3  25       A
     3101                            MSGF0230 MSGX     FAM,CONTROL,DATA,TEST,DEC1A,ROBJ,;
     3102                                              DATA,CAN,BE,WRITTEN,INTO,AND,READ,FROM,THE,FAM,;
     3103                                              PROPERLY,COMMA,NL,;
     3104                                              DATA,IS,CHECKED,AT,THE,K,REGISTER,NL,;
     3105                                              AND,AFTER,IT,IS,;
     3106   03 009BF    22       A                     RETURNED,TO,MEMORY
            03 009BF 1  58       A
            03 009BF 2  38       A
            03 009BF 3  41       A
            03 009C0    D1       A
            03 009C0 1  EF       A
            03 009C0 2  B9       A
            03 009C0 3  41       A
            03 009C1    27       A
            03 009C1 1  1A       A
            03 009C1 2  EB       A
            03 009C1 3  7B       A
            03 009C2    15       A
            03 009C2 1  AC       A
            03 009C2 2  60       A
            03 009C2 3  D3       A
            03 009C3    58       A
            03 009C3 1  AA       A
            03 009C3 2  34       A
            03 009C3 3  01       A
            03 009C4    41       A
            03 009C4 1  7F       A
            03 009C4 2  0232     A
            03 009C5    14       A
            03 009C5 1  D3       A
            03 009C5 2  82       A
            03 009C5 3  AF       A
            03 009C6    01       A
            03 009C6 1  15       A
            03 009C6 2  0C       A
            03 009C6 3  80       A
            03 009C7    7F       A
            03 009C7 1  0276     A
            03 009C7 3  D8       A
            03 009C8    8A       A
     3107                            MSGF0260 MSGX     FAM,FREE,RUNNING,DATA,TEST,DEC1A,ROBJ,;
     3108                                              DATA,;
     3109                                              CAN,BE,WRITTEN,TO,THE,FAM,FROM,A,WORD,BOUNDARY,;
     3110                                              AND,THEN,READ,NL,BACK,INTO,;
     3111   03 009C8 1  21       A                     THE,MEMORY,FROM,THE,FAM,AT,A,WORD,BOUNDARY
            03 009C8 2  58       A
            03 009C8 3  5F       A
            03 009C9    BA       A
            03 009C9 1  41       A
            03 009C9 2  D1       A
            03 009C9 3  EF       A
            03 009CA    B9       A
            03 009CA 1  41       A
            03 009CA 2  27       A
            03 009CA 3  1A       A
            03 009CB    EB       A
            03 009CB 1  D8       A
            03 009CB 2  D3       A
            03 009CB 3  58       A
            03 009CC    60       A
            03 009CC 1  04       A
            03 009CC 2  E9       A
            03 009CC 3  20       A
            03 009CD    15       A
            03 009CD 1  D4       A
            03 009CD 2  AC       A
            03 009CD 3  01       A
            03 009CE    022B     A
            03 009CE 2  7B       A
            03 009CE 3  D3       A
            03 009CF    8A       A
            03 009CF 1  60       A
            03 009CF 2  D3       A
            03 009CF 3  58       A
            03 009D0    14       A
            03 009D0 1  04       A
            03 009D0 2  E9       A
            03 009D0 3  20       A
     3112                            MSGF0290 MSGX     SKIP,FLAG,WRITE,TOBJ,;
     3113   03 009D1    0B       A                     THE,SKIP,OPERATION,WORKS,FOR,A,WRITE
            03 009D1 1  C6       A
            03 009D1 2  5C       A
            03 009D1 3  EA       A
            03 009D2    03       A
            03 009D2 1  D3       A
            03 009D2 2  C6       A
            03 009D2 3  96       A
            03 009D3    02A1     A
            03 009D3 2  5D       A
            03 009D3 3  04       A
            03 009D4    EA       A
     3114                            MSGF0300 MSGX     SKIP,FLAG,READ,TOBJ,;
     3115   03 009D4 1  0B       A                     THE,SKIP,OPERATION,WORKS,FOR,A,READ
            03 009D4 2  C6       A
            03 009D4 3  5C       A
            03 009D5    AC       A
            03 009D5 1  03       A
            03 009D5 2  D3       A
            03 009D5 3  C6       A
            03 009D6    96       A
            03 009D6 1  02A1     A
            03 009D6 3  5D       A
            03 009D7    04       A
            03 009D7 1  AC       A
     3116                            MSGYT00  MSGX     PARTIAL,WRITE,TO,CORE,WHEN,THE,COUNT,IS,LESS,THAN,;
     3117                                              FOUR,TEST,DEC1A,ROBJ,;
     3118                                              A,PARTIAL,WRITE,TO,MEMORY,WHEN,THE,BYTE,COUNT,IS,;
     3119                                              LESS,THAN,FOUR,NL,;
     3120                                              FUNCTIONS,PROPERLY,AND,THAT,ONLY,THOSE,BYTES,THAT,;
     3121                                              NL,;
     3122   03 009D7 2  2A       A                     SHOULD,BE,WRITTEN,ARE,WRITTEN
            03 009D7 3  9C       A
            03 009D8    EA       A
            03 009D8 1  D8       A
            03 009D8 2  39       A
            03 009D8 3  E6       A
            03 009D9    D3       A
            03 009D9 1  3B       A
            03 009D9 2  7F       A
            03 009D9 3  0255     A
            03 009DA 1  0287     A
            03 009DA 3  5E       A
            03 009DB    D1       A
            03 009DB 1  EF       A
            03 009DB 2  B9       A
            03 009DB 3  04       A
            03 009DC    9C       A
            03 009DC 1  EA       A
            03 009DC 2  D8       A
            03 009DC 3  8A       A
            03 009DD    E6       A
            03 009DD 1  D3       A
            03 009DD 2  24       A
            03 009DD 3  3B       A
            03 009DE    7F       A
            03 009DE 1  0255     A
            03 009DE 3  0287     A
            03 009DF 1  5E       A
            03 009DF 2  01       A
            03 009DF 3  64       A
            03 009E0    AA       A
            03 009E0 1  15       A
            03 009E0 2  D2       A
            03 009E0 3  95       A
            03 009E1    0289     A
            03 009E1 2  25       A
            03 009E1 3  D2       A
            03 009E2    01       A
            03 009E2 1  C4       A
            03 009E2 2  1A       A
            03 009E2 3  EB       A
            03 009E3    12       A
            03 009E3 1  EB       A
     3123                            MSGF0370 MSGX     COMMAND,CHAINING,CONTROL,TEST,DEC1A,ROBJ,;
     3124                                              COMMAND,CHAINING,WILL,TAKE,PLACE,AND,A,NEW,ORDER,NL,;
     3125   03 009E3 2  17       A                     IS,TRANSFERRED,TO,THE,ORDER,DECODE,REGISTER
            03 009E3 3  33       A
            03 009E4    2C       A
            03 009E4 1  38       A
            03 009E4 2  D1       A
            03 009E4 3  EF       A
            03 009E5    B9       A
            03 009E5 1  33       A
            03 009E5 2  2C       A
            03 009E5 3  E7       A
            03 009E6    0285     A
            03 009E6 2  A3       A
            03 009E6 3  15       A
            03 009E7    04       A
            03 009E7 1  8C       A
            03 009E7 2  98       A
            03 009E7 3  01       A
            03 009E8    7F       A
            03 009E8 1  DB       A
            03 009E8 2  D8       A
            03 009E8 3  D3       A
            03 009E9    98       A
            03 009E9 1  44       A
            03 009E9 2  AF       A
     3126                            MSGF0390 MSGX     DATA,CHAINING,CONTROL,TEST,DEC1A,ROBJ,;
     3127                                              DATA,CHAINING,WILL,TAKE,PLACE,AND,THAT,NO,NEW,ORDER,;
     3128                                              NL,;
     3129   03 009E9 3  18       A                     IS,TRANSFERRED,TO,THE,ORDER,DECODE,REGISTER
            03 009EA    41       A
            03 009EA 1  2C       A
            03 009EA 2  38       A
            03 009EA 3  D1       A
            03 009EB    EF       A
            03 009EB 1  B9       A
            03 009EB 2  41       A
            03 009EB 3  2C       A
            03 009EC    E7       A
            03 009EC 1  0285     A
            03 009EC 3  A3       A
            03 009ED    15       A
            03 009ED 1  D2       A
            03 009ED 2  8D       A
            03 009ED 3  8C       A
            03 009EE    98       A
            03 009EE 1  01       A
            03 009EE 2  7F       A
            03 009EE 3  DB       A
            03 009EF    D8       A
            03 009EF 1  D3       A
            03 009EF 2  98       A
            03 009EF 3  44       A
            03 009F0    AF       A
     3130                            MSGF0410 MSGX     COMMAND,CHAINING,WRITE,READ,FREE,RUNNING,TOBJ,;
     3131                                              DATA,CAN,BE,COMMAND,CHAINED,TO,AND,FROM,THE,RIOP,;
     3132   03 009F0 1  12       A                     CORRECTLY
            03 009F0 2  33       A
            03 009F0 3  2C       A
            03 009F1    EA       A
            03 009F1 1  AC       A
            03 009F1 2  5F       A
            03 009F1 3  BA       A
            03 009F2    03       A
            03 009F2 1  41       A
            03 009F2 2  27       A
            03 009F2 3  1A       A
            03 009F3    33       A
            03 009F3 1  2B       A
            03 009F3 2  D8       A
            03 009F3 3  15       A
            03 009F4    60       A
            03 009F4 1  D3       A
            03 009F4 2  B8       A
            03 009F4 3  3A       A
     3133                            MSGF0420 MSGX     WRITE,BYTE,ALIGNMENT,TOBJ,;
     3134                                              ALL,POSSIBLE,CASES,OF,BYTE,ALIGNMENT,FUNCTIONS,NL,;
     3135   03 009F5    11       A                     PROPERLY,FOR,A,WRITE,OPERATION
            03 009F5 1  EA       A
            03 009F5 2  24       A
            03 009F5 3  0D       A
            03 009F6    03       A
            03 009F6 1  0E       A
            03 009F6 2  A7       A
            03 009F6 3  28       A
            03 009F7    93       A
            03 009F7 1  24       A
            03 009F7 2  0D       A
            03 009F7 3  64       A
            03 009F8    01       A
            03 009F8 1  AA       A
            03 009F8 2  5D       A
            03 009F8 3  04       A
            03 009F9    EA       A
            03 009F9 1  96       A
     3136                            MSGF0430 MSGX     READ,BYTE,ALIGNMENT,TOBJ,;
     3137                                              ALL,POSSIBLE,CASES,OF,BYTE,ALIGNMENT,FUNCTIONS,NL,;
     3138   03 009F9 2  11       A                     PROPERLY,FOR,A,READ,OPERATION
            03 009F9 3  AC       A
            03 009FA    24       A
            03 009FA 1  0D       A
            03 009FA 2  03       A
            03 009FA 3  0E       A
            03 009FB    A7       A
            03 009FB 1  28       A
            03 009FB 2  93       A
            03 009FB 3  24       A
            03 009FC    0D       A
            03 009FC 1  64       A
            03 009FC 2  01       A
            03 009FC 3  AA       A
            03 009FD    5D       A
            03 009FD 1  04       A
            03 009FD 2  AC       A
            03 009FD 3  96       A
     3139                            MSGF0440 MSGX     FAM,BYTE,PRESENCE,TEST,DEC1A,ROBJ,;
     3140                                              NO,BYTE,PRESENCE,INDICATORS,IN,THE,FAM,ARE,FAILED,;
     3141   03 009FE    12       A                     TO,A,ONE
            03 009FE 1  58       A
            03 009FE 2  24       A
            03 009FE 3  A8       A
            03 009FF    D1       A
            03 009FF 1  EF       A
            03 009FF 2  B9       A
            03 009FF 3  8D       A
            03 00A00    24       A
            03 00A00 1  A8       A
            03 00A00 2  76       A
            03 00A00 3  71       A
            03 00A01    D3       A
            03 00A01 1  58       A
            03 00A01 2  12       A
            03 00A01 3  0248     A
            03 00A02 1  D8       A
            03 00A02 2  04       A
            03 00A02 3  94       A
     3142                            MSGF045A MSGX     MEMORY,ADDRESS,ERROR,TOBJ,;
     3143                                              A,MEMORY,ADDRESSING,ERROR,CAN,BE,DETECTED,AND,;
     3144   03 00A03    0D       A                     REPORTED
            03 00A03 1  8A       A
            03 00A03 2  08       A
            03 00A03 3  51       A
            03 00A04    03       A
            03 00A04 1  04       A
            03 00A04 2  8A       A
            03 00A04 3  09       A
            03 00A05    51       A
            03 00A05 1  27       A
            03 00A05 2  1A       A
            03 00A05 3  48       A
            03 00A06    15       A
            03 00A06 1  B1       A
     3145                            MSGF046  MSGX     MEMORY,PORT,TOBJ,DATA,CAN,BE,WRITTEN,TO,OR,;
     3146   03 00A06 2  0F       A                     READ,FROM,ANY,PART,OF,MEMORY
            03 00A06 3  8A       A
            03 00A07    0268     A
            03 00A07 2  03       A
            03 00A07 3  41       A
            03 00A08    27       A
            03 00A08 1  1A       A
            03 00A08 2  EB       A
            03 00A08 3  D8       A
            03 00A09    97       A
            03 00A09 1  AC       A
            03 00A09 2  60       A
            03 00A09 3  0227     A
            03 00A0A 1  0265     A
            03 00A0A 3  93       A
            03 00A0B    8A       A
     3147                            MSGNOTIL MSGX     NORMAL,ORDER,CONTROL,TEST,DEC1A,ROBJ,;
     3148                                              THIS,ORDER,CAN,BE,EXECUTED,PROPERLY,UNDER,VARIOUS,;
     3149   03 00A0B 1  0F       A                     CONDITIONS
            03 00A0B 2  8F       A
            03 00A0B 3  98       A
            03 00A0C    38       A
            03 00A0C 1  D1       A
            03 00A0C 2  EF       A
            03 00A0C 3  B9       A
            03 00A0D    D5       A
            03 00A0D 1  98       A
            03 00A0D 2  27       A
            03 00A0D 3  1A       A
            03 00A0E    53       A
            03 00A0E 1  AA       A
            03 00A0E 2  0296     A
            03 00A0F    029B     A
            03 00A0F 2  37       A
     3150                            MSGIL    MSGX     ORDER,CONTROL,FOR,INCORRECT,BYTE,COUNT,;
     3151                                              TEST,DEC1A,ROBJ,;
     3152                                              THIS,ORDER,CAN,BE,EXECUTED,PROPERLY,UNDER,VARIOUS,;
     3153   03 00A0F 3  12       A                     CONDITIONS
            03 00A10    98       A
            03 00A10 1  38       A
            03 00A10 2  5D       A
            03 00A10 3  72       A
            03 00A11    24       A
            03 00A11 1  3B       A
            03 00A11 2  D1       A
            03 00A11 3  EF       A
            03 00A12    B9       A
            03 00A12 1  D5       A
            03 00A12 2  98       A
            03 00A12 3  27       A
            03 00A13    1A       A
            03 00A13 1  53       A
            03 00A13 2  AA       A
            03 00A13 3  0296     A
            03 00A14 1  029B     A
            03 00A14 3  37       A
     3154                            MSN0090  MSGX     SUPPRESS,INCORRECT,LENGTH,TOBJ,;
     3155   03 00A15    0A       A                     THE,SUPPRESS,INCORRECT,LENGTH,FUNCTIONS,PROPERLY
            03 00A15 1  0282     A
            03 00A15 3  72       A
            03 00A16    85       A
            03 00A16 1  03       A
            03 00A16 2  D3       A
            03 00A16 3  0282     A
            03 00A17 1  72       A
            03 00A17 2  85       A
            03 00A17 3  64       A
            03 00A18    AA       A
     3156                            MSGN0210 MSGX     READ,DESKEW,DATA,PATH,TEST,DEC1A,ROBJ,;
     3157                                              THE,DATA,PATH,FROM,RIOP,DASH,DEVICE,INTERFACE,NL,;
     3158                                              FUNCTIONS,CORRECTLY,BY,RETURNING,A,RIOP,GENERATED,;
     3159   03 00A18 1  18       A                     PATTERN
            03 00A18 2  AC       A
            03 00A18 3  023A     A
            03 00A19 1  41       A
            03 00A19 2  9E       A
            03 00A19 3  D1       A
            03 00A1A    EF       A
            03 00A1A 1  B9       A
            03 00A1A 2  D3       A
            03 00A1A 3  41       A
            03 00A1B    9E       A
            03 00A1B 1  60       A
            03 00A1B 2  B8       A
            03 00A1B 3  40       A
            03 00A1C    49       A
            03 00A1C 1  0251     A
            03 00A1C 3  01       A
            03 00A1D    64       A
            03 00A1D 1  3A       A
            03 00A1D 2  23       A
            03 00A1D 3  B6       A
            03 00A1E    04       A
            03 00A1E 1  B8       A
            03 00A1E 2  65       A
            03 00A1E 3  A0       A
     3160                            MSGN230  MSGX     FAILING,TRACK,STATUS,FROM,SENSE,BYTE,FOUR,TEST,ROBJ,;
     3161   03 00A1F    12       A                     SENSE,BYTE,FOUR,REPORTS,THE,CONDITION,OF,THE,TRACKS
            03 00A1F 1  57       A
            03 00A1F 2  D9       A
            03 00A1F 3  C9       A
            03 00A20    60       A
            03 00A20 1  BE       A
            03 00A20 2  24       A
            03 00A20 3  5E       A
            03 00A21    D1       A
            03 00A21 1  B9       A
            03 00A21 2  BE       A
            03 00A21 3  24       A
            03 00A22    5E       A
            03 00A22 1  0271     A
            03 00A22 3  D3       A
            03 00A23    36       A
            03 00A23 1  93       A
            03 00A23 2  D3       A
            03 00A23 3  028E     A
     3162                            MSGN2500 MSGX     REPORT,TRANSMISSION,ERROR,TOBJ,;
     3163                                              TRANSMISSION,ERROR,IS,REPORTED,AT,COUNT,DONE,FOR,;
     3164                                              A,READ,TWO,ORDER,NL,;
     3165   03 00A24 1  1D       A                     AND,AT,END,OF,SECTOR,FOR,A,READ,ONE,CONC,TWO,ORDER
            03 00A24 2  B0       A
            03 00A24 3  DC       A
            03 00A25    51       A
            03 00A25 1  03       A
            03 00A25 2  DC       A
            03 00A25 3  51       A
            03 00A26    7F       A
            03 00A26 1  B1       A
            03 00A26 2  14       A
            03 00A26 3  3B       A
            03 00A27    0242     A
            03 00A27 2  5D       A
            03 00A27 3  04       A
            03 00A28    AC       A
            03 00A28 1  E1       A
            03 00A28 2  98       A
            03 00A28 3  01       A
            03 00A29    15       A
            03 00A29 1  14       A
            03 00A29 2  4F       A
            03 00A29 3  93       A
            03 00A2A    BB       A
            03 00A2A 1  5D       A
            03 00A2A 2  04       A
            03 00A2A 3  AC       A
            03 00A2B    94       A
            03 00A2B 1  00       A
            03 00A2B 2  E1       A
            03 00A2B 3  98       A
     3166                            MSGN0300 MSGX     CHECKWRITE,TO,VERIFY,DETECTION,OF,BIT,ERROR,;
     3167                                              TEST,DEC1A,ROBJ,;
     3168                                              A,CHECKWRITE,WITH,ONE,BIT,DIFFERENCE,WILL,BE,;
     3169   03 00A2C    15       A                     DETECTED,AND,REPORTED
            03 00A2C 1  30       A
            03 00A2C 2  D8       A
            03 00A2C 3  029C     A
            03 00A2D 1  023C     A
            03 00A2D 3  93       A
            03 00A2E    1B       A
            03 00A2E 1  51       A
            03 00A2E 2  D1       A
            03 00A2E 3  EF       A
            03 00A2F    B9       A
            03 00A2F 1  04       A
            03 00A2F 2  30       A
            03 00A2F 3  E8       A
            03 00A30    94       A
            03 00A30 1  1B       A
            03 00A30 2  023F     A
            03 00A31    E7       A
            03 00A31 1  1A       A
            03 00A31 2  48       A
            03 00A31 3  15       A
            03 00A32    B1       A
     3170                            MSGT320  MSGX     SEEK,DASH,SENSE,FOR,SECTORS,TOBJ,;
     3171   03 00A32 1  0D       A                     ALL,SECTORS,CAN,BE,SEEKED,AND,SENSED
            03 00A32 2  BD       A
            03 00A32 3  40       A
            03 00A33    BE       A
            03 00A33 1  5D       A
            03 00A33 2  BC       A
            03 00A33 3  03       A
            03 00A34    0E       A
            03 00A34 1  BC       A
            03 00A34 2  27       A
            03 00A34 3  1A       A
            03 00A35    0279     A
            03 00A35 2  15       A
            03 00A35 3  BF       A
     3172                            MSGT330  MSGX     SEEK,DASH,SENSE,FOR,BANDS,TOBJ,;
     3173   03 00A36    0D       A                     ALL,BANDS,CAN,BE,SEEKED,AND,SENSED
            03 00A36 1  BD       A
            03 00A36 2  40       A
            03 00A36 3  BE       A
            03 00A37    5D       A
            03 00A37 1  19       A
            03 00A37 2  03       A
            03 00A37 3  0E       A
            03 00A38    19       A
            03 00A38 1  27       A
            03 00A38 2  1A       A
            03 00A38 3  0279     A
            03 00A39 1  15       A
            03 00A39 2  BF       A
     3174                            MSGT340  MSGX     SECTOR,INCREMENT,FOR,SECTORS,TOBJ,;
     3175                                              ALL,SECTOR,CAN,BE,INCREMENTED,TO,CONC,COMMA,;
     3176   03 00A39 3  10       A                     AND,THEN,SENSED
            03 00A3A    BB       A
            03 00A3A 1  73       A
            03 00A3A 2  5D       A
            03 00A3A 3  BC       A
            03 00A3B    03       A
            03 00A3B 1  0E       A
            03 00A3B 2  BB       A
            03 00A3B 3  27       A
            03 00A3C    1A       A
            03 00A3C 1  74       A
            03 00A3C 2  D8       A
            03 00A3C 3  00       A
            03 00A3D    34       A
            03 00A3D 1  15       A
            03 00A3D 2  D4       A
            03 00A3D 3  BF       A
     3177                            MSGT350  MSGX     SECTOR,INCREMENT,FOR,BANDS,TOBJ,;
     3178                                              ALL,SECTOR,CAN,BE,INCREMENTED,TO,CONC,COMMA,;
     3179   03 00A3E    10       A                     AND,THEN,SENSED
            03 00A3E 1  BB       A
            03 00A3E 2  73       A
            03 00A3E 3  5D       A
            03 00A3F    19       A
            03 00A3F 1  03       A
            03 00A3F 2  0E       A
            03 00A3F 3  BB       A
            03 00A40    27       A
            03 00A40 1  1A       A
            03 00A40 2  74       A
            03 00A40 3  D8       A
            03 00A41    00       A
            03 00A41 1  34       A
            03 00A41 2  15       A
            03 00A41 3  D4       A
            03 00A42    BF       A
     3180                            MSGT360A MSGX     SECTOR,UNAVAILABLE,TOBJ,;
     3181                                              BAND,EQ,DEC3A,SECTOR,EQ,DEC2B,;
     3182   03 00A42 1  0D       A                     WAS,REPORTED,AS,UNAVAILABLE
            03 00A42 2  BB       A
            03 00A42 3  E2       A
            03 00A43    03       A
            03 00A43 1  18       A
            03 00A43 2  50       A
            03 00A43 3  F1       A
            03 00A44    BB       A
            03 00A44 1  50       A
            03 00A44 2  FA       A
            03 00A44 3  E4       A
            03 00A45    B1       A
            03 00A45 1  11       A
            03 00A45 2  E2       A
     3183                            MSGT360  MSGX     SECTOR,UNAVAILABLE,TEST,DEC1A,ROBJ,;
     3184                                              SECTOR,UNAVAILABLE,WILL,BE,REPORTED,IF,THE,SECTOR,;
     3185                                              COUNTER,IS,NL,INCREMENTED,;
     3186   03 00A45 3  15       A                     PASSED,THE,LAST,SECTOR
            03 00A46    BB       A
            03 00A46 1  E2       A
            03 00A46 2  D1       A
            03 00A46 3  EF       A
            03 00A47    B9       A
            03 00A47 1  BB       A
            03 00A47 2  E2       A
            03 00A47 3  E7       A
            03 00A48    1A       A
            03 00A48 1  B1       A
            03 00A48 2  70       A
            03 00A48 3  D3       A
            03 00A49    BB       A
            03 00A49 1  3C       A
            03 00A49 2  7F       A
            03 00A49 3  01       A
            03 00A4A    74       A
            03 00A4A 1  0267     A
            03 00A4A 3  D3       A
            03 00A4B    0253     A
            03 00A4B 2  BB       A
     3187                            MSGT480  MSGX     DATA,OVERRUN,TEST,DEC1A,ROBJ,;
     3188   03 00A4B 3  0C       A                     DATA,OVERRUN,CAN,BE,DETECTED,AND,REPORTED
            03 00A4C    41       A
            03 00A4C 1  0264     A
            03 00A4C 3  D1       A
            03 00A4D    EF       A
            03 00A4D 1  B9       A
            03 00A4D 2  41       A
            03 00A4D 3  0264     A
            03 00A4E 1  27       A
            03 00A4E 2  1A       A
            03 00A4E 3  48       A
            03 00A4F    15       A
            03 00A4F 1  B1       A
     3189                            MSGT000  MSGX     DEVICE,ADDRESS,RECOGNITION,TOBJ,;
     3190                                              THE,DEVICE,WILL,RECOGNIZE,AND,RESPOND,TO,ALL,IO,;
     3191   03 00A4F 2  0E       A                     INSTRUCTIONS
            03 00A4F 3  49       A
            03 00A50    08       A
            03 00A50 1  AD       A
            03 00A50 2  03       A
            03 00A50 3  D3       A
            03 00A51    49       A
            03 00A51 1  E7       A
            03 00A51 2  026E     A
            03 00A52    15       A
            03 00A52 1  0274     A
            03 00A52 3  D8       A
            03 00A53    0E       A
            03 00A53 1  6F       A
            03 00A53 2  79       A
     3192                            MSGT001  MSGX     SURFACE,WRITE,DASH,READ,TOBJ,;
     3193                                              THE,SURFACE,CAN,BE,WRITTEN,AND,READ,FROM,BAND,ZERO,;
     3194   03 00A53 3  11       A                     SECTOR,ZERO
            03 00A54    CE       A
            03 00A54 1  EA       A
            03 00A54 2  40       A
            03 00A54 3  AC       A
            03 00A55    03       A
            03 00A55 1  D3       A
            03 00A55 2  CE       A
            03 00A55 3  27       A
            03 00A56    1A       A
            03 00A56 1  EB       A
            03 00A56 2  15       A
            03 00A56 3  AC       A
            03 00A57    60       A
            03 00A57 1  18       A
            03 00A57 2  ED       A
            03 00A57 3  BB       A
            03 00A58    ED       A
     3195                            MSGT002  MSGX     CURRENT,SECTOR,TOBJ,;
     3196   03 00A58 1  08       A                     ALL,SECTORS,CAN,BE,SENSED
            03 00A58 2  0236     A
            03 00A59    BB       A
            03 00A59 1  03       A
            03 00A59 2  0E       A
            03 00A59 3  BC       A
            03 00A5A    27       A
            03 00A5A 1  1A       A
            03 00A5A 2  BF       A
     3197                            MSGT410  MSGX     BAND,AND,SURFACE,TEST,ONE,ROBJ,;
     3198                                              ALL,BANDS,AND,SECTORS,CAN,BE,READ,COMMA,THE,TEST,;
     3199                                              FIRST,SPREADS,THE,NL,SURFACE,WITH,A,PATTERN,OF,ZEROS,;
     3200                                              AND,THEN,CHECKS,THIS,PATTERN,COMMA,NL,;
     3201                                              IT,THEN,SPREADS,THE,SURFACE,WITH,NL,;
     3202                                              A,BAND,DASH,SECTOR,;
     3203                                              KEYED,RANDOM,PATTERN,STARTING,NL,BAND,;
     3204                                              ZERO,CONC,COMMA,IT,THEN,READS,AND,CHECKS,THE,DATA,;
     3205                                              WRITTEN,NL,STARTING,AT,BAND,ZERO,NL,;
     3206                                              DASH,ONE,THRU,THREE,FIXED,PATTERN,NL,;
     3207   03 00A5A 3  50       A                     DASH,FOUR,THRU,SIX,RANDOM,PATTERN
            03 00A5B    18       A
            03 00A5B 1  15       A
            03 00A5B 2  CE       A
            03 00A5B 3  D1       A
            03 00A5C    94       A
            03 00A5C 1  B9       A
            03 00A5C 2  0E       A
            03 00A5C 3  19       A
            03 00A5D    15       A
            03 00A5D 1  BC       A
            03 00A5D 2  27       A
            03 00A5D 3  1A       A
            03 00A5E    AC       A
            03 00A5E 1  34       A
            03 00A5E 2  D3       A
            03 00A5E 3  D1       A
            03 00A5F    5B       A
            03 00A5F 1  027E     A
            03 00A5F 3  D3       A
            03 00A60    01       A
            03 00A60 1  CE       A
            03 00A60 2  E8       A
            03 00A60 3  04       A
            03 00A61    A0       A
            03 00A61 1  93       A
            03 00A61 2  02A3     A
            03 00A62    15       A
            03 00A62 1  D4       A
            03 00A62 2  2F       A
            03 00A62 3  D5       A
            03 00A63    A0       A
            03 00A63 1  34       A
            03 00A63 2  01       A
            03 00A63 3  80       A
            03 00A64    D4       A
            03 00A64 1  027E     A
            03 00A64 3  D3       A
            03 00A65    CE       A
            03 00A65 1  E8       A
            03 00A65 2  01       A
            03 00A65 3  04       A
            03 00A66    18       A
            03 00A66 1  40       A
            03 00A66 2  BB       A
            03 00A66 3  0252     A
            03 00A67 1  026B     A
            03 00A67 3  A0       A
            03 00A68    C7       A
            03 00A68 1  01       A
            03 00A68 2  18       A
            03 00A68 3  ED       A
            03 00A69    00       A
            03 00A69 1  34       A
            03 00A69 2  80       A
            03 00A69 3  D4       A
            03 00A6A    026D     A
            03 00A6A 2  15       A
            03 00A6A 3  2F       A
            03 00A6B    D3       A
            03 00A6B 1  41       A
            03 00A6B 2  EB       A
            03 00A6B 3  01       A
            03 00A6C    C7       A
            03 00A6C 1  14       A
            03 00A6C 2  18       A
            03 00A6C 3  ED       A
            03 00A6D    01       A
            03 00A6D 1  40       A
            03 00A6D 2  94       A
            03 00A6D 3  028A     A
            03 00A6E 1  D6       A
            03 00A6E 2  024A     A
            03 00A6F    A0       A
            03 00A6F 1  01       A
            03 00A6F 2  40       A
            03 00A6F 3  5E       A
            03 00A70    028A     A
            03 00A70 2  027B     A
            03 00A71    026B     A
            03 00A71 2  A0       A
     3208                            MSGT420  MSGX     BAND,AND,SURFACE,TEST,TWO,ROBJ,;
     3209                                              ALL,BANDS,AND,SECTORS,CAN,BE,READ,COMMA,THE,TEST,NL,;
     3210                                              FIRST,SPREADS,THE,SURFACE,WITH,A,BAND,CONC,;
     3211                                              DASH,CONC,SECTOR,;
     3212                                              KEYED,RANDOM,PATTERN,NL,;
     3213                                              STARTING,AT,BAND,T63,CONC,COMMA,;
     3214                                              IT,THEN,READS,AND,CHECKS,;
     3215                                              NL,;
     3216   03 00A71 3  33       A                     THE,DATA,WRITTEN,STARTING,AT,BAND,ZERO
            03 00A72    18       A
            03 00A72 1  15       A
            03 00A72 2  CE       A
            03 00A72 3  D1       A
            03 00A73    E1       A
            03 00A73 1  B9       A
            03 00A73 2  0E       A
            03 00A73 3  19       A
            03 00A74    15       A
            03 00A74 1  BC       A
            03 00A74 2  27       A
            03 00A74 3  1A       A
            03 00A75    AC       A
            03 00A75 1  34       A
            03 00A75 2  D3       A
            03 00A75 3  D1       A
            03 00A76    01       A
            03 00A76 1  5B       A
            03 00A76 2  027E     A
            03 00A77    D3       A
            03 00A77 1  CE       A
            03 00A77 2  E8       A
            03 00A77 3  04       A
            03 00A78    18       A
            03 00A78 1  00       A
            03 00A78 2  40       A
            03 00A78 3  00       A
            03 00A79    BB       A
            03 00A79 1  0252     A
            03 00A79 3  026B     A
            03 00A7A 1  A0       A
            03 00A7A 2  01       A
            03 00A7A 3  C7       A
            03 00A7B    14       A
            03 00A7B 1  18       A
            03 00A7B 2  0294     A
            03 00A7C    00       A
            03 00A7C 1  34       A
            03 00A7C 2  80       A
            03 00A7C 3  D4       A
            03 00A7D    026D     A
            03 00A7D 2  15       A
            03 00A7D 3  2F       A
            03 00A7E    01       A
            03 00A7E 1  D3       A
            03 00A7E 2  41       A
            03 00A7E 3  EB       A
            03 00A7F    C7       A
            03 00A7F 1  14       A
            03 00A7F 2  18       A
            03 00A7F 3  ED       A
     3217                            MSGN0041 MSGX     DATA,ALIGNMENT,AT,THE,END,OF,A,SECTOR,TOBJ,;
     3218                                              DATA,BYTES,ARE,ALIGNED,PROPERLY,IF,DATA,CHAINING,NL,;
     3219   03 00A80    1B       A                     OCCURS,WITHIN,THE,LAST,FOUR,BYTES,OF,A,SECTOR
            03 00A80 1  41       A
            03 00A80 2  0D       A
            03 00A80 3  14       A
            03 00A81    D3       A
            03 00A81 1  4F       A
            03 00A81 2  93       A
            03 00A81 3  04       A
            03 00A82    BB       A
            03 00A82 1  03       A
            03 00A82 2  41       A
            03 00A82 3  25       A
            03 00A83    12       A
            03 00A83 1  0226     A
            03 00A83 3  AA       A
            03 00A84    70       A
            03 00A84 1  41       A
            03 00A84 2  2C       A
            03 00A84 3  01       A
            03 00A85    0260     A
            03 00A85 2  02A0     A
            03 00A86    D3       A
            03 00A86 1  0253     A
            03 00A86 3  5E       A
            03 00A87    25       A
            03 00A87 1  93       A
            03 00A87 2  04       A
            03 00A87 3  BB       A
     3220                            MSNG042  MSGX     COMMAND,CHAINING,SEQUENCE,TOBJ,;
     3221                                              A,SEQUENCE,OF,COMMAND,CHAINED,SEEK,WRITE,SEEK,READ,;
     3222   03 00A88    12       A                     SENSE,NL,WILL,FUNCTION,PROPERLY
            03 00A88 1  33       A
            03 00A88 2  2C       A
            03 00A88 3  C0       A
            03 00A89    03       A
            03 00A89 1  04       A
            03 00A89 2  C0       A
            03 00A89 3  93       A
            03 00A8A    33       A
            03 00A8A 1  2B       A
            03 00A8A 2  BD       A
            03 00A8A 3  EA       A
            03 00A8B    BD       A
            03 00A8B 1  AC       A
            03 00A8B 2  BE       A
            03 00A8B 3  01       A
            03 00A8C    E7       A
            03 00A8C 1  62       A
            03 00A8C 2  AA       A
     3223                            MSGN0043 MSGX     WRITE,OR,READ,SURFACE,TOBJ,;
     3224                                              THE,TOTAL,SURFACE,CAN,BE,WRITTEN,OR,READ,BY,A,;
     3225                                              DATA,CHAINED,DASH,NL,TRANSFER,IN,CHANNEL,SEQUENCE,;
     3226                                              CONC,COMMA,THE,SEQUENCE,IS,REPEATED,NL,;
     3227   03 00A8C 3  23       A                     UNTIL,SECTOR,UNAVAILABLE,IS,DETECTED
            03 00A8D    EA       A
            03 00A8D 1  97       A
            03 00A8D 2  AC       A
            03 00A8D 3  CE       A
            03 00A8E    03       A
            03 00A8E 1  D3       A
            03 00A8E 2  028C     A
            03 00A8F    CE       A
            03 00A8F 1  27       A
            03 00A8F 2  1A       A
            03 00A8F 3  EB       A
            03 00A90    97       A
            03 00A90 1  AC       A
            03 00A90 2  23       A
            03 00A90 3  04       A
            03 00A91    41       A
            03 00A91 1  2B       A
            03 00A91 2  40       A
            03 00A91 3  01       A
            03 00A92    DA       A
            03 00A92 1  71       A
            03 00A92 2  2D       A
            03 00A92 3  C0       A
            03 00A93    00       A
            03 00A93 1  34       A
            03 00A93 2  D3       A
            03 00A93 3  C0       A
            03 00A94    7F       A
            03 00A94 1  0270     A
            03 00A94 3  01       A
            03 00A95    0299     A
            03 00A95 2  BB       A
            03 00A95 3  E2       A
            03 00A96    7F       A
            03 00A96 1  48       A
     3228                            MSGN044  MSGX     HALT,IO,OPERATION,WITH,A,HIO,OR,RIO,TOBJ,;
     3229                                               A,FREE,RUNNING,IO,OPERATION,CAN,BE,HALTED,NL,;
     3230   03 00A96 2  19       A                     PROPERLY,BY,A,HIO,OR,RIO,INSTRUCTION
            03 00A96 3  6A       A
            03 00A97    6F       A
            03 00A97 1  96       A
            03 00A97 2  E8       A
            03 00A97 3  04       A
            03 00A98    6D       A
            03 00A98 1  97       A
            03 00A98 2  B7       A
            03 00A98 3  03       A
            03 00A99    04       A
            03 00A99 1  5F       A
            03 00A99 2  BA       A
            03 00A99 3  6F       A
            03 00A9A    96       A
            03 00A9A 1  27       A
            03 00A9A 2  1A       A
            03 00A9A 3  024E     A
            03 00A9B 1  01       A
            03 00A9B 2  AA       A
            03 00A9B 3  23       A
            03 00A9C    04       A
            03 00A9C 1  6D       A
            03 00A9C 2  97       A
            03 00A9C 3  B7       A
            03 00A9D    78       A
     3231                            MSGT049  MSGX     WRITE,PROTECT,TOBJ,;
     3232                                              WRITE,PROTECTED,BAND,CAN,BE,DETECTED,COMMA,NL,;
     3233                                              DASH,THREE,WRITE,PROTECTED,REPORTED,BY,TDV,STATUS,NL,;
     3234   03 00A9D 1  1C       A                     DASH,FIVE,WRITE,PROTECTED,REPORTED,BY,SENSE,STATUS
            03 00A9D 2  EA       A
            03 00A9D 3  0269     A
            03 00A9E 1  03       A
            03 00A9E 2  EA       A
            03 00A9E 3  AB       A
            03 00A9F    18       A
            03 00A9F 1  27       A
            03 00A9F 2  1A       A
            03 00A9F 3  48       A
            03 00AA0    34       A
            03 00AA0 1  01       A
            03 00AA0 2  40       A
            03 00AA0 3  D6       A
            03 00AA1    EA       A
            03 00AA1 1  AB       A
            03 00AA1 2  B1       A
            03 00AA1 3  23       A
            03 00AA2    D0       A
            03 00AA2 1  C9       A
            03 00AA2 2  01       A
            03 00AA2 3  40       A
            03 00AA3    0249     A
            03 00AA3 2  EA       A
            03 00AA3 3  AB       A
            03 00AA4    B1       A
            03 00AA4 1  23       A
            03 00AA4 2  BE       A
            03 00AA4 3  C9       A
     3235                            *
     3236                                     BOUND    4
     3237   03 00AA5                 MXEND    LOC,4    %
            03 00AA5
     3238                                     LOCAL
     3239                            *
     3240                            *
     3241                            *        ***TEXT STATEMENTS***
     3242                                     PAGE
     3243                            *
     3244                            *
     3245                            *
     3246                            *
     3247                            *
     3248                            * MSGOUT - THIS ROUTINE RECONSTRUCTS A MESSAGE FROM THE MSG
     3249                            *          INDEX TABLE AND OUTPUTS THE MESSAGE.
     3250                            *          REGISTERS 4-13 ARE SAVED
     3251                            *          CALLING SEQUENCE: BAL,15  MSGOUT
     3252                            *                            DATA    MXNNN (MXNNN IS A BYTE ADR)
     3253                            *
     3254                            *        CODE OF ADDED FEATURES
     3255                            *        *
     3256                            *        0        CONC              CONTINUATION CHARACTER
     3257                            *        1        NL                NEW LINE
     3258                            *        2                          EXTERNAL TABLE
     3259                            *
     3260                            *
     3261   03 00AA5    022000C0 A   MSGOUT   LCI      12                SAVE REGISTERS
     3262   03 00AA6    2B40017A A            STM,4    MSGSAVE           SAVE REGISTERS 4 - 15
     3263   03 00AA7    6AF01552              BAL,15   SENSE4
     3264   03 00AA8    68000AD8              B        MSGOUT2B
     3265   03 00AA9    B2600185 A            LW,6     *MSGOUTX          BYTE ADR OF MSG INDEX TABLE
     3266   03 00AAA    729C0000 A            LB,9     0,6               FETCH MSG WORD COUNT
     3267   03 00AAB    22B00000 A            LI,11    0                 MSG BYTE COUNT
     3268   03 00AAC    2240059D A            LI,4     BA(MSGBUF)+1      STARTING ADR OF OUTPUT BUFFER
     3269   03 00AAD    33100006 A   MSGOUT1  MTW,1    6                 INCR MSG INDEX ADR
     3270   03 00AAE    727C0000 A            LB,7     0,6               FETCH DICTIONARY ADR TABLE INDEX
     3271   03 00AAF    68300AB6              BEZ      MSGOUT1B          B: CONC
     3272   03 00AB0    21700002 A            CI,7     2                 TEXT MESSAGE INDEX
     3273   03 00AB1    69300ABA              BNE      MSGOUT1C          B: NOT A SPECIAL TYPE
     3274   03 00AB2    33100006 A            MTW,1    6                 INCR. MSG INDEX ADR
     3275   03 00AB3    727C0000 A            LB,7     0,6               FETCH DICTIONARY ADR TABLE INDEX
     3276   03 00AB4    325E06B6              LW,5     DATEXT,7          FETCH WORD FROM EXT DIC ADR TABLE
     3277   03 00AB5    68000ABB              B        MSGOUT1D
     3278   03 00AB6    204FFFFF A   MSGOUT1B AI,4     -1                DECREMENT BUFFER ADDRESS
     3279   03 00AB7    20BFFFFF A            AI,11    -1                DECREMENT BYTE COUNT
     3280   03 00AB8    64900AAD              BDR,9    MSGOUT1
     3281   03 00AB9    68000AAD              B        MSGOUT1
     3282                            MSGOUT1C ;
     3283   03 00ABA    325E05B6              LW,5     DAT,7             FETCH WORD FROM D1C ADR TABLE
     3284                            MSGOUT1D ;
     3285   03 00ABB    69100ADD              BLZ      MSGOUT4           B: THE CURRENT WORD IS A VARIABLE
     3286   03 00ABC    728A0000 A            LB,8     0,5               FETCH BYTE CNT
     3287   03 00ABD    20500001 A            AI,5     1                 INCREMENT
     3288   03 00ABE    20B00001 A   MSGOUT2  AI,11    1                 UPDATE MSG BYTE COUNT
     3289   03 00ABF    21B00048 A            CI,11    72                TEST FOR EXCESS MSG LENGTH
     3290   03 00AC0    68200AC2              BLE      %+2
     3291   03 00AC1    6AF00D5B              BAL,15   TILT              EXIT-BUT REPORT LOC OF PROC FAULT
     3292   03 00AC2    72AA0000 A            LB,10    0,5               FETCH MSG BYTE
     3293   03 00AC3    21A00015 A            CI,10    X'15'             TEST FOR NEW LINE CODE
     3294   03 00AC4    69300AD0              BNE      MSGOUT99              IF NOT BRANCH
     3295   03 00AC5    22A00040 A            LI,10    X'40'             LOAD AND SAVE
     3296   03 00AC6    75A80000 A            STB,10   0,4                   BLANK
     3297   03 00AC7    75B00167 A            STB,11   MSGBUF            SAVE BYTE COUNT
     3298   03 00AC8    22B00000 A            LI,11    0                     ZERO BYTE COUNT
     3299   03 00AC9    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     3300   03 00ACA    00000167 A            DATA     MSGBUF
     3301   03 00ACB    2240059D A            LI,4     BA(MSGBUF)+1
     3302   03 00ACC    20500001 A            AI,5     1
     3303   03 00ACD    64800ABE              BDR,8    MSGOUT2
     3304   03 00ACE    64900AAD              BDR,9    MSGOUT1
     3305   03 00ACF    22B00001 A            LI,11    1
     3306                            MSGOUT99 ;
     3307   03 00AD0    75A80000 A            STB,10   0,4               STORE IN OUTPUT BUFFER
     3308   03 00AD1    20400001 A            AI,4     1                 INCR
     3309   03 00AD2    20500001 A            AI,5     1                   BYTE ADRS
     3310   03 00AD3    64800ABE              BDR,8    MSGOUT2           LOOP ON NEXT MSG BYTE
     3311                            MSGOUT2A ;
     3312   03 00AD4    64900ADB              BDR,9    MSGOUT3           B: STORE BLANK CHAR BEFORE NEXT WORD
     3313   03 00AD5    75B00167 A            STB,11   MSGBUF            STORE MSG BYTE CNT IN OUTPUT BUFFER
     3314   03 00AD6    EAF0021C A            BAL,15   *:PRINT           B: PRINT MSG
     3315   03 00AD7    00000167 A            DATA     MSGBUF            ADR OF MSG
     3316                            MSGOUT2B ;
     3317   03 00AD8    022000B0 A            LCI      11
     3318   03 00AD9    2A40017A A            LM,4     MSGSAVE           RESTORE 4-14
     3319   03 00ADA    E8020185 A            B        *MSGOUTX,1        EXIT
     3320   03 00ADB    6AE00B42     MSGOUT3  BAL,14   MSGOUT15          INSERT A BLANK CHAR.
     3321   03 00ADC    68000AAD              B        MSGOUT1           LOOP ON NEXT WORD
     3322                            *
     3323   03 00ADD    72800005 A   MSGOUT4  LB,8     5                 FETCH CONVERSION TYPE
     3324   03 00ADE    4B503029              AND,5    =X'00FFFFFF'      REMOVE CONVERSION TYPE
     3325   03 00ADF    B2C00005 A            LW,12    *5                FETCH VARIABLE DATA
     3326   03 00AE0    21800020 A            CI,8     X'20'             TEST FOR DECIMAL CONVERSION
     3327   03 00AE1    68400AE9              BCR,4    MSGOUT5           B: NOT DECIMAL OR BIN FORMAT
     3328   03 00AE2    21800040 A            CI,8     X'40'             TEST FOR BINARY FORMAT
     3329   03 00AE3    69400B1C              BCS,4    MSGOUT9           B: BINARY FORMAT
     3330   03 00AE4    EAF00217 A            BAL,15   *:DECC            B: CONVERT TO DECIMAL (LSD)
     3331   03 00AE5    35F0000D A            STW,15   13                SAVE LSD
     3332   03 00AE6    EAF00217 A            BAL,15   *:DECC            B: CONVERT TO DECIMAL (MSD)
     3333   03 00AE7    35F0000C A            STW,15   12                SAVE MSD
     3334   03 00AE8    68000B0F              B        MSGOUT6           B: STORE IN OUTPUT BUFFER
     3335                            *
     3336   03 00AE9    21800040 A   MSGOUT5  CI,8     X'40'             TEST FOR HEXADECIMAL CONVERSION
     3337   03 00AEA    68400B13              BCR,4    MSGOUT7           B: NOT HEXADECIMAL
     3338   03 00AEB    21800010 A            CI,8     X'10'             TEST FOR SPECIAL HEX CONVERSION
     3339   03 00AEC    68400AEF              BCR,4    %+3               B: NO SPECIAL HEX CONV.
     3340   03 00AED    B2E2000C A            LW,14    *12,1             FETCH MASK
     3341   03 00AEE    B2C0000C A            LW,12    *12               FETCH VARIABLE DATA
     3342   03 00AEF    EAF00218 A            BAL,15   *:HEXC            B: CONVERT TO HEX (LSD)
     3343   03 00AF0    35F0000D A            STW,15   13                SAVE
     3344   03 00AF1    EAF00218 A            BAL,15   *:HEXC            B: CONVERT TO HEX (MSD)
     3345   03 00AF2    35F0000C A            STW,15   12                SAVE MSD
     3346   03 00AF3    21800010 A            CI,8     X'10'             TEST FOR SPECIAL HEX CONVERSION
     3347   03 00AF4    68400B0F              BCR,4    MSGOUT6           B: N0 SPECIL HEX CONV.
     3348   03 00AF5    225FFFF8 A            LI,5     -8                INDEX
     3349   03 00AF6    25E00304 A            SCD,14   4                 ALIGN MASK
     3350   03 00AF7    4BF0302A              AND,15   =X'F'             REMOVE EXTRA BITS
     3351   03 00AF8    69300AFB              BNEZ     %+3               B: MASK NO ZERO
     3352   03 00AF9    22F000E7 A            LI,15    'X'               CHANGE DIGIT
     3353   03 00AFA    75FA000E A            STB,15   14,5              TO 'X'
     3354   03 00AFB    65500AF6              BIR,5    %-5               LOOP
     3355   03 00AFC    22500038 A            LI,5     X'38'             BYTE ADDRESS OF CONV. DATA
     3356   03 00AFD    4B80302A              AND,8    =X'F'             REMOVE CONVERSION CODE
     3357   03 00AFE    38500008 A            SW,5     8                 ADJUST BYTE ADR OF CONV. DATA
     3358   03 00AFF    30B00008 A            AW,11    8                 UPDATE MSG BYTE COUNT
     3359   03 00B00    72AA0000 A   MSGOUT6A LB,10    0,5               FETCH BYTE
     3360   03 00B01    75A80000 A            STB,10   0,4               STORE IN OUTPUT BUFFER
     3361   03 00B02    20500001 A            AI,5     1                 INCR
     3362   03 00B03    20400001 A            AI,4     1                   BYTE ADR
     3363   03 00B04    64800B06              BDR,8    %+2               LOOP ON NEXT BYTE
     3364   03 00B05    68000AD4              B        MSGOUT2A          B: ALL BYTES STORED
     3365   03 00B06    21800001 A            CI,8     1                 TEST FOR ODD
     3366   03 00B07    69400B00              BCS,4    MSGOUT6A          B: ODD COUNT
     3367   03 00B08    22A00040 A            LI,10    X'40'             BLANK
     3368   03 00B09    75A80000 A            STB,10   0,4               STORE BLANKS
     3369   03 00B0A    20400001 A            AI,4     1                 INCR. BYTE ADR
     3370   03 00B0B    75A80000 A            STB,10   0,4
     3371   03 00B0C    20400001 A            AI,4     1                 INCR BYTE ADR
     3372   03 00B0D    20B00002 A            AI,11    2                 INCR MSG BYTE COUNT
     3373   03 00B0E    68000B00              B        MSGOUT6A          LOOP ON NEXT BYTE
     3374   03 00B0F    22500038 A   MSGOUT6  LI,5     X'38'             BYTE ADR OF CONV.DATA (NO ADJUSTM)
     3375   03 00B10    4B80302A              AND,8    =X'F'             REMOVE CONVERSION TYPE
     3376   03 00B11    38500008 A            SW,5     8                 ADJUST BYTE ADR OF CONV. DATA
     3377   03 00B12    68000ABE              B        MSGOUT2           STORE VARIABLE DATA IN MSG
     3378                            *
     3379   03 00B13    4B80302B     MSGOUT7  AND,8    =X'1F'            REMOVE CONVERSION TYPE
     3380   03 00B14    20800001 A            AI,8     1                 INCR CONVERSION CNT
     3381   03 00B15    22000000 A            LI,0     0
     3382   03 00B16    75820000 A            STB,8    0,1               NO. OF CHAR TO BE CONVERTED
     3383   03 00B17    22800008 A            LI,8     8                 NO. OF CHAR/GROUP
     3384   03 00B18    75840000 A            STB,8    0,2
     3385   03 00B19    75160000 A            STB,1    0,3               NO. OF BLANKS BETWEEN GROUPS
     3386   03 00B1A    22AFFFFF A            LI,10    -1                MASK = ALL ONES
     3387   03 00B1B    68000B23              B        MSGOUT10          CONVERT DATA
     3388                            *
     3389   03 00B1C    B200000C A   MSGOUT9  LW,0     *12               FETCH CONTROL WORD
     3390   03 00B1D    B2A4000C A            LW,10    *12,2             FETCH DATA MASK
     3391   03 00B1E    B2C2000C A            LW,12    *12,1             FETCH DATA WORD
     3392   03 00B1F    72800000 A            LB,8     0                 NO. OF LEADING ZEROES
     3393   03 00B20    68300B23              BEZ      MSGOUT10          B: NO LEADING ZEROES
     3394   03 00B21    6AE00B42              BAL,14   MSGOUT15          B: STORE LEADING ZEROES
     3395   03 00B22    64800B21              BDR,8    %-1               LOOP
     3396   03 00B23    72F20000 A   MSGOUT10 LB,15    0,1               NO. OF CHAR TO BE CONVERTED
     3397   03 00B24    22500020 A            LI,5     32                MAX. CHAR COUNT
     3398   03 00B25    3850000F A            SW,5     15                ADJUSTMENT CNT
     3399   03 00B26    A5C00005 A            S,12     *5                ADJUST DATA WORD
     3400   03 00B27    A5A00005 A            S,10     *5                ADJUST MASK
     3401   03 00B28    22E00000 A            LI,14    0
     3402   03 00B29    72840000 A            LB,8     0,2               NO. OF CHAR/GROUP
     3403   03 00B2A    36E00008 A            DW,14    8                 FIND NO. OF GROUPS
     3404   03 00B2B    3300000E A            MTW,0    14                TEST REMAINDER
     3405   03 00B2C    68300B2F              BEZ      %+3               CHAR CNT = MODULO GROUP COUNT
     3406   03 00B2D    3310000F A            MTW,1    15                INCR LOOP CNT
     3407   03 00B2E    68000B30              B        %+2
     3408   03 00B2F    72E40000 A   MSGOUT11 LB,14    0,2               NO OF CHAR/GROUP
     3409   03 00B30    25C00301 A            SCD,12   1                 GET 1 BIT OF DATA
     3410   03 00B31    4BD00001 A            AND,13   1
     3411   03 00B32    20D000F0 A            AI,13    X'F0'             NUMERIC EBCDIC CHAR (0 OR 1)
     3412   03 00B33    25A00201 A            SCS,10   1                 SHIFT MASK
     3413   03 00B34    21A00001 A            CI,10    1
     3414   03 00B35    69400B37              BCS,4    %+2               B: OUTPUT CHAR WILL BE 0 OR 1
     3415   03 00B36    22D000E7 A            LI,13    'X'               OUTPUT CHAR WILL BE AN X
     3416   03 00B37    75D80000 A            STB,13   0,4               STORE IN OUTPUT BUFFER
     3417   03 00B38    20400001 A            AI,4     1                 INCR BUFFER ADR
     3418   03 00B39    20B00001 A            AI,11    1                 INCR MSG BUTE CNT
     3419   03 00B3A    64E00B30              BDR,14   MSGOUT11+1        LOOP
     3420   03 00B3B    64F00B3D              BDR,15   %+2
     3421   03 00B3C    68000AD4              B        MSGOUT2A          B: BINARY CONVERSION DONE
     3422   03 00B3D    72860000 A            LB,8     0,3               NO OF BLANKS BETWEEN GROUPS
     3423   03 00B3E    68300B41              BEZ      %+3               B: NO BLANKS BETWEEN GROUPS
     3424   03 00B3F    6AE00B42              BAL,14   MSGOUT15          B: STORE A BLANK
     3425   03 00B40    64800B3F              BDR,8    %-1               LOOP
     3426   03 00B41    68000B2F              B        MSGOUT11          B: NEXT GROUP
     3427                            *
     3428                            *
     3429   03 00B42    22D00040 A   MSGOUT15 LI,13    X'40'             FETCH BLANK CHAR
     3430   03 00B43    75D80000 A            STB,13   0,4               STORE IN OUTPUT BUFFER
     3431   03 00B44    20400001 A            AI,4     1                 INCR BUFFER ADDR
     3432   03 00B45    20B00001 A            AI,11    1                 INCR MSG BYTE CNT
     3433   03 00B46    E800000E A            B        *14               RETURN
     3434                            *
     3435                            * IOCDP - IOCD PRINT ROUTINE. THIS ROUTINE WILL PRINT THE
     3436                            *         COMMAND ADR (CA) AND THE IOCD. UP TO 16 IOCD'S CAN BE
     3437                            *         PRINTED IF IOCD'S CONTAIN DC OR CC FLAGS OR IF THE ORDER
     3438                            *         IS A TRANSFER IN CHANNEL. R12 = CA
     3439                            *
     3440   03 00B47    35F0018A A   IOCDP    STW,15   IOCDPS            SAVE RETURN ADR.
     3441   03 00B48    22FFFFF0 A            LI,15    -16
     3442   03 00B49    35F0018B A            STW,15   IOCDPX            SAVE INDEX
     3443   03 00B4A    35C006C7              STW,12   VHEX6A            SAVE IOCD ADR
     3444   03 00B4B    6AF00AA5              BAL,15   MSGOUT
     3445   03 00B4C    00001D94              DATA     MX0014            PRINT MSG 14
     3446   03 00B4D    325006C7     IOCDP0   LW,5     VHEX6A            FETCH IOCD ADR
     3447   03 00B4E    12CA0000 A            LD,12    0,5               FETCH IOCD
     3448   03 00B4F    35C006C8              STW,12   VHEX8A            SAVE
     3449   03 00B50    35D006D2              STW,13   VHEX8B              IOCD
     3450   03 00B51    6AF00AA5              BAL,15   MSGOUT
     3451   03 00B52    00001D98              DATA     MX0015            PRINT MSG 14
     3452   03 00B53    72C006D2              LB,12    VHEX8B            FETCH IOCD FLAGS
     3453   03 00B54    21C000A0 A            CI,12    X'A0'             TEST CC AND DC FLAGS
     3454   03 00B55    68400B58              BCR,4    %+3               B: NOT CC OR DC
     3455   03 00B56    331006C7              MTW,1    VHEX6A            INCR IOCD ADDR
     3456   03 00B57    68000B5F              B        IOCDPZ            B: TEST INDEX
     3457   03 00B58    72C006C8              LB,12    VHEX8A            FETCH ORDER CODE
     3458   03 00B59    21C00008 A            CI,12    X'08'             TEST TRANSFER IN CHANNEL
     3459   03 00B5A    E930018A A            BNE      *IOCDPS           EXIT -LAST IOCD
     3460   03 00B5B    325006C8              LW,5     VHEX8A            FETCH NEW CA
     3461   03 00B5C    4B503029              AND,5   =X'FFFFFF'         REMOVE ORDER CODE
     3462   03 00B5D    E820018A A            BLE      *IOCDPS           EXIT - IOCD LOOP
     3463   03 00B5E    355006C7              STW,5    VHEX6A            SAVE IOCD ADR
     3464   03 00B5F    3310018B A   IOCDPZ   MTW,1    IOCDPX            INDR INDEX
     3465   03 00B60    69100B4D              BLZ      IOCDP0            PRINT NEXT IOCD
     3466   03 00B61    E800018A A            B        *IOCDPS
     3467                            *
     3468                            *                                                                   *A03
     3469                            *                                                                   *A03
     3470                            *                 **MEMORY CLOCK MARGIN TEST**                      *A03
     3471   03 00B62    35F00B9E     MEMCLKT  STW,15   MCTH                                              *A03
     3472   03 00B63    32F00225 A            LW,15    :MACHINE                                          *A03
     3473   03 00B64    E9300B9E              BNEZ     *MCTH                                             *A03
     3474   03 00B65    02200000 A            LCI      0                                                 *A03
     3475   03 00B66    2B000B9F              STM,0    MCTB                                              *A03
     3476   03 00B67    32200BAF              LW,2     MCTP15                                            *A03
     3477   03 00B68    3520030F A            STW,2    :PIT15                                            *A03
     3478   03 00B69    22500000 A            LI,5     0                                                 *A03
     3479   03 00B6A    02200090 A   MCT1     LCI      9                                                 *A03
     3480   03 00B6B    2D6A0000 A            LMS,6    0,5                                               *A03
     3481   03 00B6C    4B600BB0              AND,6    MCTW                                              *A03
     3482   03 00B6D    69300B76              BNEZ     MCMS                                              *A03
     3483   03 00B6E    20502001 A   MCT2     AI,5     X'2001'                                           *A03
     3484   03 00B6F    3150022E A            CW,5     :MEMSIZE                                          *A03
     3485   03 00B70    69100B6A              BCS,1    MCT1                                              *A03
     3486   03 00B71    22200000 A   MCT3     LI,2     0                                                 *A03
     3487   03 00B72    3520030F A            STW,2    :PIT15                                            *A03
     3488   03 00B73    02200000 A            LCI      0                                                 *A03
     3489   03 00B74    2A000B9F              LM,0     MCTB                                              *A03
     3490   03 00B75    E8000B9E              B        *MCTH                                             *A03
     3491   03 00B76    EAF00223 A   MCMS     BAL,15   *:TYPE1                                           *A03
     3492   03 00B77    00000B79              DATA     CMMSG                                             *A03
     3493   03 00B78    68000B71              B        MCT3                                              *A03
     3494                            CMMSG    TEXTC    '     ***** WARNING *****     
',;                *A03
     3495                                              'A MEMORY CLOCK MARGIN IS SET.
',;                *A03
     3496                                              'SYSTEM RESET AND CHECK THE MEMORY CLOCK 
',;     *A03
     3497   03 00B79    92404040 A                     'MARGIN SWITCHES ON 31A IN THE MEMORY DRIVERS.'   *A03
            03 00B7A    40405C5C A
            03 00B7B    5C5C5C40 A
            03 00B7C    E6C1D9D5 A
            03 00B7D    C9D5C740 A
            03 00B7E    5C5C5C5C A
            03 00B7F    5C404040 A
            03 00B80    404015C1 A
            03 00B81    40D4C5D4 A
            03 00B82    D6D9E840 A
            03 00B83    C3D3D6C3 A
            03 00B84    D240D4C1 A
            03 00B85    D9C7C9D5 A
            03 00B86    40C9E240 A
            03 00B87    E2C5E34B A
            03 00B88    15E2E8E2 A
            03 00B89    E3C5D440 A
            03 00B8A    D9C5E2C5 A
            03 00B8B    E340C1D5 A
            03 00B8C    C440C3C8 A
            03 00B8D    C5C3D240 A
            03 00B8E    E3C8C540 A
            03 00B8F    D4C5D4D6 A
            03 00B90    D9E840C3 A
            03 00B91    D3D6C3D2 A
            03 00B92    4015D4C1 A
            03 00B93    D9C7C9D5 A
            03 00B94    40E2E6C9 A
            03 00B95    E3C3C8C5 A
            03 00B96    E240D6D5 A
            03 00B97    40F3F1C1 A
            03 00B98    40C9D540 A
            03 00B99    E3C8C540 A
            03 00B9A    D4C5D4D6 A
            03 00B9B    D9E840C4 A
            03 00B9C    D9C9E5C5 A
            03 00B9D    D9E24B40 A
     3498   03 00B9E    00000000 A   MCTH     DATA     0                                                 *A03
     3499   03 00B9F                 MCTB     RES      16                                                *A03
     3500   03 00BAF    01000BB1     MCTP15   GEN,8,24 1,T40RTN                                          *A03
     3501   03 00BB0    0003E000 A   MCTW     DATA     X'3E000'                                          *A03
     3502   03 00BB1    35F00BB4     T40RTN   STW,15   T40BK                                             *A03
     3503   03 00BB2    22F00B6E              LI,15    MCT2                                              *A03
     3504   03 00BB3    E8000BB4              B        *T40BK                                            *A03
     3505   03 00BB4    00000000 A   T40BK    DATA     0                                                 *A03
     3506                                     PAGE
     3507                            *
     3508                            *                 *** A B S O L U T E  R E C O V E R Y ***
     3509                            :RECOVER ;
     3510   03 00BB5    35F002D4 A            STW,15   WHDOGRTN
     3511                            *
     3512         03 00BB6           REVBRNCH EQU      %
     3513         00000000                    DO       REVCOUNT=0
     3514                        *S*          NOP
     3515                                     ELSE
     3516   03 00BB6    6AF03291 02           BAL,15   REVPRINT
     3517                                     FIN
     3518                            *
     3519                            *
     3520   03 00BB7    6AF00B62              BAL,15   MEMCLKT                                           *A03
     3521   03 00BB8    22000000 A            LI,0     0                 REGISTER 0 = 0
     3522   03 00BB9    313002D5 A            CW,3     ITHTEST
     3523   03 00BBA    68300BBC              BE       %+2               BRANCH
     3524   03 00BBB    351002DC A            STW,1    DONTREAD          OTHER SET THE DON'T READ FLAG
     3525   03 00BBC    3500030F A            STW,0    :PIT15            DPM WILL HANDLE TRAP/INTER RECOV
     3526   03 00BBD    35000273 A            STW,0    ENDOPER           ZERO END OF OPERATION FLAG
     3527   03 00BBE    22700020 A            LI,7     X'20'             DISARM IO INTERRUPT
     3528   03 00BBF    6D701100 A            WD,7     X'1100'
     3529   03 00BC0    6D701700 A            WD,7     X'1700'           TRIGGER I/O INTERRUPT
     3530   03 00BC1    6D000040 A            WD,0     X'40'             RESET ALARM
     3531   03 00BC2    0E101648              LPSD,1   :CLRPDF           LEAR THE PDF HARDWARE FLAG
     3532         03 00BC3           :REC     EQU      %
     3533   03 00BC3    E80002D4 A            B        *WHDOGRTN         RETURN
     3534                                     PAGE
     3535                            *
     3536                            *                 *** I N I T I A L I Z E R ***
     3537                            *
     3538                            *                 THE MONITOR WILL TRANSFER CONTROL TO THIS ROUTINE
     3539                            *                 UNDER THE FOLLOWING CONDITIONS:
     3540                            *                   1. IMMEDIATELY AFTER A PROGRAM HAS BEEN LOADED
     3541                            *                      AND PRIOR TO PRINTING THE PROGRAM TITLE.
     3542                            *                   2. IF A NEW 'SYST' DIRECTIVE IS ENTERED AND THE
     3543                            *                      TEST PROGRAM IS ALREADY IN CORE.
     3544                            *
     3545                            *
     3546                            *                 THIS ROUTINE PERFORMS THE FOLLOWING FUNCTIONS:
     3547                            *                   1. INITIALIZES THE I/O, COUNTER 4 AND
     3548                            *                      WATCHDOG TIMER LOCATIONS.
     3549                            *                   2. DISARM AND DISABLES ALL I/O AND COUNTER
     3550                            *                      INTERRUPTS.
     3551                            *                   3. VALIDATES ALL PARAMETERS ENTERED BY THE |SYST'
     3552                            *                      DIRECTIVES.
     3553                            *
     3554                            *                 INPUT PARAMETERS:
     3555                            *
     3556                            *                   REG 15  -RETURN ADDRESS
     3557                            *
     3558                            *                 REGISTERS DISTURBED:
     3559                            *                   REG  4 THRU 15
     3560                            *
     3561                            *                 OUTPUT PARAMETERS:
     3562                            *
     3563                            *                   REG  0  -0
     3564                            *                   REG  1  -1
     3565                            *                   REG  2  -2
     3566                            *                   REG  3  -3
     3567                            *                   DEVICE DISCRIPTION TABLE CONTAINS INFORMATION
     3568                            *                      PERTAINING TO TARGET DEVICES.
     3569                            *                   #DDTLGTH- DEVICE DESCRIPTION TABLE LENGTH (NO.
     3570                            *                      OF TARGET DEVICES).
     3571                            *
     3572                            *
     3573                            *
     3574         03 00BC4           MODELNO  SET      %                 STORAGE UNIT MODEL NUMBER
     3575   03 00BC4    00007212 A            DATA     X'7212'
     3576         03 00BC5           MODELEND SET      %
     3577                            *
     3578         03 00BC5           CAPACITY SET      %                 SECTOR / STORAGE UNIT
     3579   03 00BC5    00001480 A            DATA     64*82
     3580         03 00BC6           CAPEND   SET      %
     3581                            *
     3582         03 00BC6           BYTESTAT EQU      %                 BYTE / SECTOR
     3583   03 00BC6    00000400 A            DATA     1024
     3584         03 00BC7           BYTEND   SET      %
     3585                            *
     3586         03 00BC7           SECTRACK SET      %
     3587   03 00BC7    00000052 A            DATA     82
     3588         03 00BC8           SECTREND SET      %
     3589                            *
     3590         03 00BC8           TCKSFT01 SET      %
     3591   03 00BC8    00000007 A            DATA     7                 BAND SHIFT
     3592         03 00BC9           TCKSFT02 SET      %
     3593                            *
     3594                            *
     3595                            *
     3596                            *
     3597   03 00BC9    35F002D9 A   :INITIAL STW,15   INITRTN           SAVE RETURN ADDRESS
     3598   03 00BCA    6AF00BB5              BAL,15   :RECOVER          GO TO ABSOLUTE RECOVERY
     3599   03 00BCB    351002DC A            STW,1    DONTREAD          SET THE DON'T READ FLAG
     3600                            *
     3601                            *
     3602                            *
     3603   03 00BCC    52700333              LH,7     :CDB              FETCH NO. OF PARAMETERS
     3604   03 00BCD    55720BDD              STH,7    INIT4,1           SAVE NO. OF PARAMETERS
     3605   03 00BCE    21700005 A            CI,7     5                 IF LESS THAN 5
     3606   03 00BCF    69100BEB              BL       INITERR           ERROR, PARAMETER IN ERROR
     3607   03 00BD0    2170000F A            CI,7     :CDBEND-:CDB      MAXIMUM NO. OF PARAMETERS TO BE USED
     3608   03 00BD1    69200BEB              BG       INITERR           IF GREATER THAN ALLOW NO. ERROR
     3609                            *
     3610                            *
     3611                            *
     3612   03 00BD2    32600334     INIT0    LW,6     :CDB+1            LOAD AND SAVE
     3613   03 00BD3    356002DB A            STW,6    REVISION              REVISION LEVEL
     3614   03 00BD4    32600335              LW,6     :CDB+2            FETCH VALID IOP, INVALID DEV ADDR
     3615   03 00BD5    35601569              STW,6    DIOADNOW          SAVE DIO ADDR
     3616                            *
     3617                            *
     3618                            *                                       SKIP TST1,1.
     3619                            INIT04 ;
     3620   03 00BD6    35000283 A            STW,0    #DDTP             INITIALIZE DDT POINTER TO ZERO
     3621   03 00BD7    35000285 A            STW,0    #DDTBIAS          INITIALIZE DDT BIAS POINTER
     3622   03 00BD8    22600005 A            LI,6     5                 LOAD MAX LENGTH OF TABLE
     3623   03 00BD9    35600284 A            STW,6    #DDTLGTH          SAVE IN DDT LENGTH
     3624   03 00BDA    22700001 A            LI,7     1                 SET REG = 1
     3625   03 00BDB    20700002 A   INIT1    AI,7     2                 ADD 2 TO CDB POINTER
     3626   03 00BDC    20700001 A   INIT2    AI,7     1                 ADD 1 TO CDB POINTER
     3627   03 00BDD    21700000 A   INIT4    CI,7     0                 IF > LENGTH OF TABLE,
     3628   03 00BDE    68100BEF              BGE      INITEXIT              EXIT
     3629   03 00BDF    326E0332              LW,6     :CDB-1,7          FETCH DEV ADDR FROM CDB
     3630   03 00BE0    21600080 A            CI,6     X'80'             IF DEV. ADDR < X'80'
     3631   03 00BE1    69100BEB              BL       INITERR               GO TO PARAMETER ERROR EXIT
     3632   03 00BE2    21601FFF A            CI,6     X'1FFF'            IF DEV. ADDR.X'1FFF'
     3633   03 00BE3    69200BEB              BG       INITERR               GO  TO PARAMETER ERROR EXIT
     3634                            *
     3635                            *
     3636   03 00BE4    32400285 A   INIT3    LW,4     #DDTBIAS          LOAD BIAS POINTER TO DDT
     3637   03 00BE5    35680287 A            STW,6    TGTDEV,4          SAVE TARGET DEVICE ADDRESS
     3638   03 00BE6    6AE00C08              BAL,14   INITPAR           GO TO PARAMETER CHECKING ROUTINE
     3639   03 00BE7    68000BEB              B        INITERR           IF BAD PARAMETER RETURN WAS HERE
     3640   03 00BE8    6AF02D46              BAL,15   #DDTICMT          UPDATE DDT POINTER
     3641   03 00BE9    6AF00D5B              BAL,15   TILT              ERROR SHOULD NOT GOT HERE
     3642   03 00BEA    68000BDC              B        INIT2             GO TEST NEXT PARAMETER
     3643                            *
     3644                            *
     3645   03 00BEB    3570030A A   INITERR  STW,7    :ERPARNO          SAVE NO. OF THE DAD PARAMETER
     3646   03 00BEC    22400000 A            LI,4     0                 RESET LENGTH
     3647   03 00BED    3540030C A            STW,4    :PIT12            RESET 'SYST' DIRECTIVE ENTERED
     3648   03 00BEE    68000BFD              B        INTEXT1           TAKE RETURN PATH TO MONITOR
     3649                            *
     3650                            *
     3651                            *
     3652   03 00BEF    22700003 A   INITEXIT LI,7     3                 LOAD PARMETER IN ERROR =3
     3653   03 00BF0    32F01569     INIT05   LW,15    DIOADNOW          LOAD DIO ADDR
     3654   03 00BF1    21F0007F A            CI,15    X'7F'             IF DIO ADDR > X'7F' ERROR
     3655   03 00BF2    69200BEB              BG       INITERR               GO TO PARAMETER ERROR EXIT
     3656   03 00BF3    25F00005 A            SLS,15    5                POSITION ADDR
     3657   03 00BF4    226FFFF4 A            LI,6     DIOSTART-DIOEND   SET UP DIO TABLE INDEX
     3658   03 00BF5    32EC156A     INIT051  LW,14    DIOEND,6          FETCH ADDR FROM DIO ADDR TABLE
     3659   03 00BF6    4BE0302C              AND,14   =X'0000E01F'      MASK OUT DIO ADDR
     3660   03 00BF7    30E0000F A            AW,14    15                ADD NEW DIO ADDR
     3661   03 00BF8    35EC156A              STW,14   DIOEND,6          ADD NEW DIO ADDR
     3662   03 00BF9    65600BF5              BIR,6    INIT051           LOOP UNTIL CONPLETED
     3663   03 00BFA    226FFFFF A   INIT052  LI,6     -1                RESET 'SXST' DIR. NOT LOAD FLAG
     3664   03 00BFB    3560030C A            STW,6    :PIT12
     3665   03 00BFC    32400283 A            LW,4     #DDTP             FETCH CURRENT LENGTH OF DDT
     3666   03 00BFD    35400284 A   INTEXT1  STW,4    #DDTLGTH          SAVE AS THE LENGTH OF THE DDT
     3667   03 00BFE    2260155E              LI,6     SIGMA9            LOAD POINTER TO SIGMA 9 TABLE
     3668   03 00BFF    32700225 A            LW,7     :MACHINE
     3669   03 00C00    21700009 A            CI,7     9
     3670   03 00C01    68300C03              BE       %+2
     3671   03 00C02    2260155A              LI,6     NSIGMA9           LOAD POINTER TO NOT SIGMA 9 TABLE
     3672   03 00C03    225FFFFC A            LI,5     MACHINET-MACHINE
     3673   03 00C04    B27A0006 A            LW,7     *6,5              MOVE TO CURRENT
     3674   03 00C05    357A0198 A            STW,7    MACHINE,5             MACHINE TABLE
     3675   03 00C06    65500C04              BIR,5    %-2
     3676   03 00C07    E80002D9 A            B        *INITRTN          RETURN TO MONITOR
     3677                            *
     3678                            *
     3679                            *
     3680   03 00C08    20700001 A   INITPAR  AI,7     1                 INCREMENT CDB POINTER
     3681   03 00C09    326E0332              LW,6     :CDB-1,7          LOAD MODEL NUMBER OF STORAGE UNIT
     3682   03 00C0A    225FFFFF A            LI,5     MODELNO-MODELEND  LOAD LENGTN OF THE MODEL NO. TABLE
     3683   03 00C0B    316A0BC5              CW,6     MODELEND,5        COMPARE PARAMETER WITH MODEL NO TABL
     3684   03 00C0C    68300C0F              BE       INITPAR1          IF MATCH NEXT STEP
     3685   03 00C0D    65500C0B              BIR,5    %-2               IF NO MATCH TRY NEXT ENTRY
     3686   03 00C0E    E800000E A            B        *14               IF NO MATCHES TAKE ERROR EXIT
     3687                            *
     3688                            *
     3689                            *
     3690   03 00C0F    35680286 A   INITPAR1 STW,6    MODEL,4           SAVE THE MODEL NO.
     3691   03 00C10    329A0BC6              LW,9     CAPEND,5          LOAD MAXIMUM SECTORS AVAILABLE
     3692   03 00C11    3598028F A            STW,9    MAXCAPY,4         SAVE MAXIMUM CAPACITY
     3693   03 00C12    32AA0BC7              LW,10    BYTEND,5          LOAD AND SAVE
     3694   03 00C13    35A80289 A            STW,10   BYTESECT,4        NO. OF BYTES/SECTOR
     3695                            *
     3696   03 00C14    32BA0BC8              LW,11    SECTREND,5        LOAD AND SAVE
     3697   03 00C15    35B80288 A            STW,11   SECTORS,4             NO. OF SECTORS/TRACK
     3698                            *
     3699   03 00C16    32BA0BC9              LW,11    TCKSFT02,5        LOAD AND SAVE
     3700   03 00C17    35B8028E A            STW,11   TCKSHIFT,4            NO. OF SHIFT REQD FOR TRACK ADDR
     3701                            *
     3702                            *
     3703                            *
     3704   03 00C18    20700001 A            AI,7     1                 INCREMENT CDB POINTER
     3705   03 00C19    326E0332              LW,6     :CDB-1,7          LOAD WRITE PROTECT SWITCH SETTING
     3706   03 00C1A    51720BDD              CH,7     INIT4,1           COMPARE HALFWORD
     3707   03 00C1B    68200C1D              BLE      %+2               BRANCH IF LESS OR EQUAL
     3708   03 00C1C    22600000 A            LI,6     0                 FETCH NO
     3709                            *
     3710                            *
     3711   03 00C1D    52C00006 A            LH,12    6,0               LOAD D1D2
     3712   03 00C1E    EAF00213 A            BAL,15   *:BCDC            BRANCH TO BCD TO BINARY CONVERTION
     3713   03 00C1F    32B0000F A            LW,11    15                SAVE CONVERTED D1D2
     3714                            *
     3715                            *
     3716   03 00C20    52C20006 A            LH,12    6,1               LOAD D3D4
     3717   03 00C21    EAF00213 A            BAL,15   *:BCDC            BRANCH TO BCD TO BINARY CONVERTION
     3718   03 00C22    32D0000F A            LW,13    15                SAVE CONVERTED D3D4
     3719                            *
     3720                            *
     3721   03 00C23    21B00010 A            CI,11    16                IF D1D2 > 16
     3722   03 00C24    E920000E A            BG       *14                   TAKE PARAMETER ERROR EXIT
     3723   03 00C25    21D00010 A            CI,13    16                IF D3D4 > 16
     3724   03 00C26    E920000E A            BG       *14                   TAKE PARAMETER ERROR EXIT
     3725                            *
     3726                            *
     3727   03 00C27    3300000D A            MTW,0    13                IF D3D4 > 0
     3728   03 00C28    69300C2A              BNEZ     %+2                   NEXT STEP,
     3729   03 00C29    20D00011 A            AI,13    17                    OTHERWISE SET D3D4 = 17
     3730                            *
     3731                            *
     3732   03 00C2A    20DFFFFF A            AI,13    -1
     3733   03 00C2B    31B0000D A            CW,11    13                IF D1D2 = D3D4
     3734   03 00C2C    E810000E A            BGE      *14                   TAKE PARAMETER ERROR EXIT
     3735                            *
     3736                            *
     3737   03 00C2D    22A00000 A            LI,10    0                 ZERO MSB OF REG 1O-11 DOUBLEWORD
     3738   03 00C2E    22C00000 A            LI,12    0                 ZERO MSB OF REG 12-13 DOUBLEWORD
     3739   03 00C2F    37A80288 A            MW,10    SECTORS,4         REG 11 =
     3740   03 00C30    23A00004 A            MI,10    4                     (D1D2 * SECTORS) * 4        *A02
     3741   03 00C31    31B00009 A            CW,11    9                 IF REG 11 > MAXIMUM SECTORS AVAILABLE
     3742   03 00C32    E810000E A            BGE      *14                     TAKE PARAMETER ERROR EXIT
     3743                            *                                   IF NOT; LOAD
     3744   03 00C33    35B8028A A            STW,11   SLOWER,4              AND SAVE AS SECTOR LOWER LIMIT
     3745   03 00C34    35B80290 A            STW,11   SWPROT12,4            AS WRITE PROTECT LOWER LIMIT
     3746                            *
     3747                            *
     3748   03 00C35    37C80288 A            MW,12    SECTORS,4         REG 13 =
     3749   03 00C36    23C00004 A            MI,12    4                 (D3D4*4 SECTORS)                *A02
     3750   03 00C37    31D00009 A            CW,13    9                 IF REG 13 > MAXIMUM SECTORS AVAILABL
     3751   03 00C38    69200C3A              BG       %+2               USE MAXIMUM SECTOR AVAILABLE
     3752   03 00C39    3290000D A            LW,9     13                    OTHERWISE USE REG 13
     3753   03 00C3A    3598028B A            STW,9    SUPPER,4              AS SECTOR UPPER LIMIT
     3754   03 00C3B    35980291 A            STW,9    SWPROT34,4            AS WRITE PROTECT UPPER LIMIT
     3755                            *
     3756                            *                                   CALLED BY THE S E E K DIRECTIVE
     3757                            *
     3758   03 00C3C    3890000B A   INITSIZE SW,9     11                CALCULATE MAXIMUM SECTOR AVAILABLE
     3759   03 00C3D    3598028C A            STW,9    SSIZE,4               SAVE SECTOR SIZE
     3760                            *
     3761   03 00C3E    22A00000 A            LI,10    0                 ZERO REG 10
     3762   03 00C3F    3268028E A            LW,6     TCKSHIFT,4        FETCH SHIFTING PARAMETER
     3763   03 00C40    3300000B A            MTW,0    11                IF SECTOR LOWER LIMIT = 0
     3764   03 00C41    68300C45              BEZ      %+4                   BRANCH AROUND CALCULATION
     3765   03 00C42    36A80288 A            DW,10    SECTORS,4         CALCULATE
     3766   03 00C43    A5B00006 A            SLS,11   *6                   A STARTING
     3767   03 00C44    30B0000A A            AW,11    10                    TRACK SECTOR ADDRESS
     3768   03 00C45    35B8028D A            STW,11   TSSTART,4         SAVE TRACK SECTOR STARTING ADDRESS
     3769   03 00C46    E802000E A            B        *14,1             RETURN TO CALLING CODE
     3770                            *
     3771                            *
     3772                            *
     3773                                     PAGE
     3774                            *
     3775                            *                 *** C O M P R E H E N S I V E  T E S T ***
     3776                            *                 *** T S T 0 ***
     3777                            *
     3778                            *                 THIS DIRECTIVE TESTS ALL FUNCTIONS ASSOCIATED
     3779                            *                 WITH A RAD STORAGE SYSTEM.  IT PERFORMS A
     3780                            *                 FUNCTIONAL  AND A RANDOM EXERCISOR TEST ON
     3781                            *                 THE CONTROLLER AND ALL STORAGE UNITS SPECIFIED
     3782                            *                 BY THE 'SYST' DIRECTIVE.
     3783                            *                 P1 = THE NUMBER OF ORDER SEQUENCES TO BE ISSUED
     3784                            *                      DURING THE EXECUTION OF RANDOM EXECISER.
     3785                            *
     3786                            *                      IF P1 = 0, 5000 ORDER SEQUENCES WILL BE ISSUED
     3787                            *                      BY DEFAULT.
     3788                            *
     3789                            *                      P1 = 0; ORDER SEQUENCES = 5000
     3790                            *
     3791                            *                      0R
     3792                            *
     3793                            *                      1  < P1 < 99999999
     3794                            *
     3795                            *                 P2 = RETRY COUNT FOR THE RANDOM EXERCISER ON DETECTED
     3796                            *                      ERROR.
     3797                            *
     3798                            *                      0 < P2 < 999999999
     3799                            *
     3800                            *
     3801                            *
     3802   03 00C47    351002DA A   TST0     STW,1    :PASSCUR          INIT. PASS COUNT
     3803   03 00C48    22800000 A            LI,8     0                 LOAD P1
     3804   03 00C49    22900000 A            LI,9     0                     AND P2 AS ZERO FOR FUCTIONAL TST
     3805   03 00C4A    35800CDF              STW,8    TST1LOP1
     3806   03 00C4B    6AF00AA5              SEND     MX501
            03 00C4C    00001FE4
     3807   03 00C4D    6AF00AA5              SEND     MX037
            03 00C4E    00001FE2
     3808   03 00C4F    6AF00C7A              BAL,15   TST100            GO TO FUCTIONAL TEST
     3809   03 00C50    6AF00AA5              SEND     MX502
            03 00C51    00001FEA
     3810   03 00C52    6AF00AA5              SEND     MX037
            03 00C53    00001FE2
     3811   03 00C54    6AF00AA5              SEND     MX503
            03 00C55    00001FF0
     3812   03 00C56    6AF00AA5              SEND     MX037
            03 00C57    00001FE2
     3813                            *
     3814                            *
     3815                            *
     3816   03 00C58    32800201 A            LW,8     :P1               LOAD ORDER SEQUENCE COUNT
     3817   03 00C59    69300C5B              BNEZ     %+2               IF ZERO
     3818   03 00C5A    22801388 A            LI,8     5000                  LOAD A SEQUENCE COUNT = 5000
     3819   03 00C5B    35800241 A            STW,8    CYCLE                 RANDOM CYCLES
     3820   03 00C5C    32800202 A            LW,8     :P2               LOAD RETRY COUNT
     3821   03 00C5D    35802AED              STW,8    TST2PAR+2             ON ERROR
     3822   03 00C5E    22800000 A            LI,8     0
     3823   03 00C5F    358002C9 A            STW,8    #MSGLEVL          REPORT ALL ERRORS
     3824   03 00C60    6AF02A04              BAL,15   TST2LEV2          GO TO RANDOM EXERCISER
     3825   03 00C61    68000C62              B        %+1               BRANCH
     3826   03 00C62    6AF00AA5              SEND     MX504
            03 00C63    00001FF7
     3827   03 00C64    351002DC A            STW,1    DONTREAD
     3828   03 00C65    22000000 A            LI,0     0
     3829   03 00C66    350002D5 A            STW,0    ITHTEST
     3830   03 00C67    6AF029C5              BAL,15   :PASSC
     3831   03 00C68    68000C48              B        TST0+1
     3832   03 00C69    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     3833   03 00C6A    2E000C6A              WAIT     %                 SS3- OFF SS1 - UNK (HLT AFTER TEST)
     3834   03 00C6B    68000C47              B        TST0              SS3- ON  SS1 - ON  (LOOP ON TEST)
     3835   03 00C6C    E8000214 A            B        *:MONITOR         SS3- ON  SS1 - OFF (RTN TO MONITOR)
     3836                                     PAGE
     3837                            *
     3838                            *                 *** F U N C T I O N A L  T E S T  ***
     3839                            *
     3840                            *                 *** T S T 1 , D 1 , D 2
     3841                            *
     3842                            *                 THIS DIRECTIVE PERFORMS A SYSTEMATIC TEST OF ALL
     3843                            *                 LOGIC FUNCTIONS OF THE CONTROLLER AND ALL STORAGE
     3844                            *                 UNITS SPECIFIED BY THE  'S Y S T'  DIRECTIVE.
     3845                            *                 THE FUNCTIONAL TEST CONSISTS OF A NUMBER OF SUBTESTS
     3846                            *                 WHICH MAY BE SELECTED INDIVIDUALLY OR IN GROUPS.
     3847                            *
     3848                            *                 WHEN A FAULT HAS BEEN DETECTED, AUTOMATIC ERROR
     3849                            *                 LOOPING WILL BE IMPLEMENTED UNDER SENSE SWITCH
     3850                            *                 CONTROL.
     3851                            *
     3852                            *                 ERROR LOOPING WILL NOT BE PERFORMED IF THE CAUSE
     3853                            *                 OF THE FAULT IS A FLAW IN THE RECORDING MEDIA.
     3854                            *
     3855                            *                 PARAMETERS:
     3856                            *
     3857                            *                 D1 - THE NUMBER OF THE FIRST SUBTEST TO BE EXECUTED
     3858                            *                      (IF = 0 ALL SUB-TESTS WILL BE EXECUTED).
     3859                            *
     3860                            *                 D2 - THE NUMBER OF THE LAST SUBTEST TO BE EXECUTED.
     3861                            *
     3862                            *                 D3 - NO. OF PASSES TO BE DONE ON EACH SUB-TEST.
     3863                            *                      (0<D2<(X'80000000')
     3864                            *
     3865                            *
     3866                            *
     3867                            *
     3868   03 00C6D    22000000 A   TST1     LI,0     0                 ZERO
     3869   03 00C6E    350002DF A            STW,0    TST0FLAG             COMPREHENSIVE TEST FLAG
     3870   03 00C6F    32800201 A            LW,8     :P1               LOAD NO. OF FIRST SUB-TEST TO BE EXC
     3871   03 00C70    32900202 A            LW,9     :P2               LOAD NO. OF LAST  SUB-TEST TO BE EXC
     3872   03 00C71    3530030A A            STW,3    :ERPARNO
     3873   03 00C72    32A00203 A            LW,10    :P3               LOAD SUB-TEST PASS COUNT
     3874   03 00C73    69100C8E              BLZ      TST1PERR              IF NEGATIVE ERROR
     3875   03 00C74    35A00CDF              STW,10   TST1LOP1              IF NOT SAVE
     3876   03 00C75    6AF20C7A              BAL,15   TST100,1          GO TO FUNCTIONAL TEST
     3877   03 00C76    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     3878   03 00C77    2E000C77              WAIT     %                 SS3 - OFF SS1 - UNK (HLT AFTER TST)
     3879   03 00C78    68000C6D              B        TST1              SS3 - ON  SS1 - ON  (LOOP ON TEST)
     3880   03 00C79    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
     3881                            *
     3882                            *                 START FUNCTIONAL TEST
     3883                            *
     3884   03 00C7A    351002DF A   TST100   STW,1    TST0FLAG          SET COMPREHENSIVE TEST FLAG
     3885   03 00C7B    35F002DE A            STW,15   TST1RTN           SAVE RETURN ADDR
     3886   03 00C7C    351002D5 A            STW,1    ITHTEST
     3887   03 00C7D    22A00001 A            LI,10    1                 LOAD INDEX POINTER
     3888   03 00C7E    22B000BF A            LI,11    TESTSIZE          LOAD MAXIMUM UPPER LIMIT OF TESTS
     3889                            *
     3890                            *                 TEST FOR P1 =0, IF =0 DO ALL FUNCTIONAL TESTS
     3891                            *
     3892   03 00C7F    33000008 A            MTW,0    8                 TEST P1, IF = 0
     3893   03 00C80    68300C91              BEZ      TST1001           DO ALL FUNC TESTS
     3894                            *
     3895                            *                 TEST FOR P1 > UPPER LIMIT, IF SO, P1 IS IN ERROR
     3896                            *
     3897   03 00C81    3510030A A            STW,1    :ERPARNO          LOAD PARAMETER ERROR COUNT = 1
     3898   03 00C82    32A00008 A            LW,10    8                 LOAD NO. OF FIRST FUNCTIONAL TEST
     3899   03 00C83    218000BF A            CI,8     TESTSIZE          COMPARE WITH UPPER LIMIT
     3900   03 00C84    69200C8E              BG       TST1PERR          IF GREATER P1 IS IN ERROR
     3901                            *
     3902                            *                 TEST FOR P2 = 0,IF =0, SET P2 = P1
     3903                            *
     3904   03 00C85    33000009 A            MTW,0    9
     3905   03 00C86    69300C88              BNEZ     %+2                   IF NOT BRANCH
     3906   03 00C87    32900008 A            LW,9     8                     OTHERWISE SET P2 = P1
     3907                            *
     3908                            *                 TEST FOR P2 > UPPER LIMIT, IF SO, P2 IS IN ERROR
     3909                            *
     3910   03 00C88    3520030A A            STW,2    :ERPARNO          LOAD PARAMETER ERROR COUNT = 2
     3911   03 00C89    32B00009 A            LW,11    9                 LOAD NO. OF LAST FUNCTIONAL TEST
     3912   03 00C8A    219000BF A            CI,9     TESTSIZE          COMPARE WITH UPPER LIMIT
     3913   03 00C8B    69200C8E              BG       TST1PERR          IF GREATER P2 IS IN ERROR
     3914                            *
     3915                            *                 TEST FOR P2 + P1  IF SO, P2 IS IN ERROR
     3916                            *
     3917   03 00C8C    31B0000A A            CW,11    10                TEST FOR P2 < P1
     3918   03 00C8D    68100C91              BGE      TST1001               IF NOT BRANCH
     3919                            *
     3920                            *                 REPORT PARAMETER ERROR
     3921                            *
     3922   03 00C8E    EAF00229 A   TST1PERR BAL,15   *:ERRPARM         GO TO PARAMETER ERRER REPORTER
     3923   03 00C8F    00000322              DATA     :TST1DIR          ***  TYPE OF TEST BE EXECUTED  ***
     3924   03 00C90    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
     3925                            *
     3926   03 00C91    15A002E6 A   TST1001  STD,10   TST1TEST          SAVE LOWER AND UPPER LIMITS
     3927                            *
     3928                            *                 THIS CODE SETS UP THE DEVICE DESCRIPTION TABLE PNTER
     3929                            *
     3930                            TST102 ;
     3931   03 00C92    228FFFFF A            LI,8     -1                LOAD AND SAVE A -1
     3932   03 00C93    35800283 A            STW,8    #DDTP                 TO INITIALIZE DDTP
     3933                            *
     3934                            *                 THIS CODE UPDATE THE ACTIVE DEVICE DESCRIPTION TABLE
     3935                            *
     3936                            TST103 ;
     3937   03 00C94    324002BF A            LW,4     :DEVADDR
     3938   03 00C95    6AF02D46              BAL,15   #DDTICMT          GO TO THE DDT TABLE INCREMENT ROUTN
     3939   03 00C96    E80002DE A            B        *TST1RTN          RTNS HERE IF NO MORE DEVICES
     3940   03 00C97    22000000 A            LI,0     0                 FETCH ZERO
     3941   03 00C98    350002C9 A            STW,0    #MSGLEVL          STORE ZERO
     3942   03 00C99    3280022F A            LW,8     :MEMLAST
     3943   03 00C9A    358001CE A            STW,8    DIOLIST
     3944   03 00C9B    6AF02D0D              BAL,15   MEMORY            BRANCH TO MEMORY SUBR.
     3945   03 00C9C    E80002DE A            B        *TST1RTN
     3946                            *
     3947                            *
     3948                            *                 THIS CODE CALCULATES THE TIME REQUIRES FOR AT LEAST
     3949                            *                 1 SECTOR TO PASS UNDER A HEADER.
     3950   03 00C9D    22A00000 A            LI,10    0                 ZERO REG 10
     3951   03 00C9E    22B0C350 A            LI,11    50000
     3952   03 00C9F    36A002C0 A            DW,10    SECTCURR          DIVIDE BY NO. OF SECT/REV
     3953   03 00CA0    35B002DD A            STW,11   SECTDLAY          SAVE AS SECTOR DELAY CONSTANT
     3954                            *
     3955                            *                 THIS CODE SETS UP THE NO. OF THE FIRST FUNCTIONAL
     3956                            *                 TEST AND SETS PRINT HEADER FLAG
     3957                            *
     3958                            TST104 ;
     3959   03 00CA1    324002E6 A            LW,4     TST1TEST          LOAD AND SAVE THE
     3960   03 00CA2    354002E0 A            STW,4    TST1PONT              NO. OF THE 1 ST FUNCTIONAL SUB-T
     3961                            *
     3962                            *
     3963                            TST105 ;
     3964   03 00CA3    32800CDF              LW,8     TST1LOP1          LOAD AND SAVE
     3965   03 00CA4    358001BA A            STW,8    TST1LOOP              LOOPING COUNT
     3966         03 00CA5           TST105A  EQU      %
     3967   03 00CA5    2280FDE8 A            LI,8     65000
     3968   03 00CA6    35800191 A            STW,8    DLAYSAVE
     3969   03 00CA7    3280022F A            LW,8     :MEMLAST
     3970   03 00CA8    358001CE A            STW,8    DIOLIST
     3971   03 00CA9    22800020 A            LI,8     X'20'             FETCH 20
     3972   03 00CAA    6D801100 A            WD,8     X'1100'           WRITE DIRECT
     3973   03 00CAB    6D801700 A            WD,8     X'1700'           WRITE DIRECT
     3974   03 00CAC    32500285 A            LW,5     #DDTBIAS
     3975   03 00CAD    022000A0 A            LCI      #DDTADR3-#DDTADR1
     3976   03 00CAE    2A6A0286 A            LM,6     MODEL,5
     3977   03 00CAF    2B6002BE A            STM,6    MODELC
     3978   03 00CB0    330002C2 A            MTW,0    CURRSEEK
     3979   03 00CB1    69300CB3              BNEZ     %+2
     3980   03 00CB2    331002C2 A            MTW,1    CURRSEEK
     3981   03 00CB3    325002C2 A            LW,5     CURRSEEK
     3982   03 00CB4    6AC02CEE              BAL,12   BUILDSK
     3983   03 00CB5    22800000 A            LI,8     0
     3984   03 00CB6    358002E1 A            STW,8    #MSGER41          ZERO ERROR FLAG
     3985   03 00CB7    358015B6              STW,8    NOIOCD
     3986   03 00CB8    35801592              STW,8    PARTING
     3987   03 00CB9    22900EBD              LI,9     EXPTRAP           SET UP TRAP
     3988   03 00CBA    158015CA              STD,8    TRAPEXP               ADDR
     3989   03 00CBB    226FFFE4 A            LI,6     MASKSTART-MASKEND MOVE
     3990   03 00CBC    327C1586              LW,7     MASKBOTT,6            MASK
     3991   03 00CBD    357C01B9 A            STW,7    MASKEND,6             TABLE
     3992   03 00CBE    65600CBC              BIR,6    %-2
     3993   03 00CBF    12801644              LD,8     TST2DATA          SET UP RANDOM PATTERN
     3994   03 00CC0    158002EE A            STD,8    :PATID
     3995   03 00CC1    328002C1 A            LW,8     BYTCURR
     3996   03 00CC2    2580007E A            SLS,8    -2
     3997   03 00CC3    358002CC A            STW,8    :PATWC
     3998   03 00CC4    22803098              LI,8     BUF1LO
     3999   03 00CC5    358002CB A            STW,8    :PATBFR
     4000   03 00CC6    22FFFFFF A            LI,15    -1                RESET DASH NO. OF
     4001   03 00CC7    35F001B9 A            STW,15   DASHNOER              FAILING SUB-SUB TEST
     4002                            *                 THIS CODE TESTS FOR CONDITIONS WHERE A SUB-TEST WILL
     4003                            *                 BE SKIPPED
     4004   03 00CC8    52F80CE0              LH,15    RIOPLIST,4
     4005   03 00CC9    68100CCD              BGEZ     TST107                IF POSITIVE OR ZERO BRANCH
     4006   03 00CCA    32E00225 A            LW,14    :MACHINE          LOAD TYPE OF COMPUTER
     4007   03 00CCB    21E00009 A            CI,14    9
     4008   03 00CCC    69300CD1              BNE      RIOPEXIT              IF NOT SKIP THIS TEST
     4009   03 00CCD    4BF0302D     TST107   AND,15   =X'7FFF'
     4010   03 00CCE    68300CD1              BEZ      RIOPEXIT              IF NO ADDR OF TEST EXIT
     4011   03 00CCF    20F00CE0              AI,15    RIOPLIST
     4012                            *
     4013                            *                 THIS CODE HANDLE THE CALLING OF AND RETURN FROM
     4014                            *                 A FUNCTIONAL SUB-TEST
     4015   03 00CD0    EAF0000F A            BAL,15   *15
     4016                            *
     4017   03 00CD1    68000CD6     FUCTEXIT B        TST106            THIS THE NORMAL EXIT FROM A SUB-TEST
     4018                            *
     4019   03 00CD2    324002E0 A            LW,4     TST1PONT          THIS THE ERROR EXIT FROM A SUB-TEST
     4020   03 00CD3    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITHCES
     4021   03 00CD4    2E000CD4              WAIT     %                 SS3-OFF SS1-UNK(HLT AFTER TEST)
     4022   03 00CD5    68000CA3              B        TST105            SS3- ON  SS1 - ON  (LOOP ON TEST)
     4023                            *                                   SS3- ON  SS1 - OFF (GO TO NEXT TEST)
     4024                            *
     4025                            *                 THIS CODE UPDATES THE FUNCTIONAL TEST POINTER
     4026                            *
     4027         03 00CD6           TST106   EQU      %
     4028   03 00CD6    324002E0 A            LW,4     TST1PONT
     4029   03 00CD7    33F001BA A            MTW,-1   TST1LOOP          DECREMENT SUB-TEST
     4030   03 00CD8    69200CA5              BGZ      TST105A               COUNT
     4031   03 00CD9    331002E0 A            MTW,1    TST1PONT          INCREMENT FUNCTIONAL TEST POINTER
     4032   03 00CDA    324002E0 A            LW,4     TST1PONT          FETCH POINTER
     4033   03 00CDB    314002E7 A            CW,4     TST1TEST+1        COMPARE LAST TEST REQD
     4034   03 00CDC    68200CA3              BLE      TST105            DO NEXT SUB-TEST                *A01
     4035   03 00CDD    6D000040 A            WD,0     X'40'             RESET ALARM                     *A01
     4036   03 00CDE    68000C94              B        TST103            EXIT THIS DEVICE                *A01
     4037                            *
     4038   03 00CDF    00000001 A   TST1LOP1 DATA     1                 NO. OF TIMES A SUB-TEST SHALL RUN
     4039         03 00CD1           RIOPEXIT EQU      FUCTEXIT
     4040                            TST1START ;
     4041         03 00CE0                    EQU      %
     4042         FFFFFFFF           TNONE    SET      -1
     4043         03 00CE0           RIOPLIST EQU      %
     4044                                     BOUND    4
     4045         00000000                    TEST     M010
            03 00CE0    0A59     A
     4046         00000001                    TEST     M010
            03 00CE0 2  0A59     A
     4047         00000002                    TEST     M040
            03 00CE1    0A65     A
     4048         00000003                    TEST     M050
            03 00CE1 2  0A71     A
     4049         00000004                    TEST     M0510
            03 00CE2    0A74     A
     4050         00000005                    TEST     M0520
            03 00CE2 2  0A77     A
     4051         00000006                    TEST     M080
            03 00CE3    0AAB     A
     4052         00000007                    TEST     M060
            03 00CE3 2  0AC9     A
     4053         00000008                    TEST     M070
            03 00CE4    0AEF     A
     4054         00000009                    TEST     P000
            03 00CE4 2  0B0D     A
     4055         00000010                    TEST     P0001
            03 00CE5    0B18     A
     4056         00000011                    TEST     P010
            03 00CE5 2  0B25     A
     4057         00000012                    TEST     P020
            03 00CE6    0B27     A
     4058         00000013                    TEST     P030
            03 00CE6 2  0B29     A
     4059         00000014                    TEST     P040
            03 00CE7    0B2B     A
     4060         00000015                    TEST     P0401
            03 00CE7 2  0B4C     A
     4061         00000016                    TEST     P050,1
            03 00CE8    8B65     A
     4062         00000017                    TEST     P060,1
            03 00CE8 2  8B69     A
     4063         00000018                    TEST     P070
            03 00CE9    0B6B     A
     4064         00000019                    TEST     P080,1
            03 00CE9 2  8B6D     A
     4065         00000020                    TEST     P0801
            03 00CEA    0B8C     A
     4066         00000021                    TEST     P090
            03 00CEA 2  0BA1     A
     4067         00000022                    TEST     P100
            03 00CEB    0BB7     A
     4068         00000023                    TEST     P110
            03 00CEB 2  0BBA     A
     4069         00000024                    TEST     P120
            03 00CEC    0BBD     A
     4070         00000025                    TEST     P130
            03 00CEC 2  0BDE     A
     4071         00000026                    TEST     P140
            03 00CED    0BE0     A
     4072         00000027                    TEST     P150
            03 00CED 2  0BE8     A
     4073         00000028                    TEST     P160,1
            03 00CEE    8BFD     A
     4074         00000029                    TEST     P170
            03 00CEE 2  0C16     A
     4075         00000030                    TEST     P180
            03 00CEF    0C18     A
     4076         00000031                    TEST     P190
            03 00CEF 2  0C1A     A
     4077         00000032                    TEST     P200
            03 00CF0    0C1C     A
     4078         00000033                    TEST     P210
            03 00CF0 2  0C37     A
     4079         00000034                    TEST     P220
            03 00CF1    0C4D     A
     4080         00000035                    TEST     P230,1
            03 00CF1 2  8C61     A
     4081         00000036                    TEST     P240,1
            03 00CF2    8CAA     A
     4082         00000037                    TEST     P250X,1
            03 00CF2 2  8CAC     A
     4083         00000038                    TEST     P250
            03 00CF3    0CC0     A
     4084         00000039                    TEST     P260
            03 00CF3 2  0CE4     A
     4085         00000040                    TEST     P270
            03 00CF4    0CF7     A
     4086         00000041                    TEST     P280
            03 00CF4 2  0D10     A
     4087         00000042                    TEST     P290
            03 00CF5    0D50     A
     4088         00000043                    TEST     P300
            03 00CF5 2  0D5C     A
     4089         00000044                    TEST     P320
            03 00CF6    0D75     A
     4090         00000045                    TEST     P330
            03 00CF6 2  0D8B     A
     4091         00000046                    TEST     P340
            03 00CF7    0D9D     A
     4092         00000047                    TEST     P3401
            03 00CF7 2  0DA7     A
     4093         00000048                    TEST     P3402
            03 00CF8    0DC0     A
     4094         00000049                    TEST     P3403
            03 00CF8 2  0DD6     A
     4095         00000050                    TEST     P350
            03 00CF9    0DEC     A
     4096         00000051                    TEST     P360
            03 00CF9 2  0DEF     A
     4097         00000052                    TEST     P370
            03 00CFA    0DF1     A
     4098         00000053                    TEST     P380
            03 00CFA 2  0DF3     A
     4099         00000054                    TEST     P3801
            03 00CFB    0DF9     A
     4100         00000055                    TEST     P390
            03 00CFB 2  0E21     A
     4101         00000056                    TEST     P3901
            03 00CFC    0E3E     A
     4102         00000057                    TEST     P3902
            03 00CFC 2  0E49     A
     4103         00000058                    TEST     P400,1
            03 00CFD    8E60     A
     4104         00000059                    TEST     P410
            03 00CFD 2  0E8F     A
     4105         00000060                    TEST     P420
            03 00CFE    0EAA     A
     4106         00000061                    TEST     P430
            03 00CFE 2  0ECF     A
     4107         00000062                    TEST     P460
            03 00CFF    0EEA     A
     4108         00000063                    TEST     P470X
            03 00CFF 2  0EEC     A
     4109         00000064                    TEST     P470
            03 00D00    0F07     A
     4110         00000065                    TEST     P480
            03 00D00 2  0F09     A
     4111         00000066                    TEST     P550
            03 00D01    0F1D     A
     4112         00000067                    TEST     P560
            03 00D01 2  0F20     A
     4113         00000068                    TEST     P570
            03 00D02    0F38     A
     4114         00000069                    TEST     F017
            03 00D02 2  0F4E     A
     4115         00000070                    TEST     P580
            03 00D03    0F5E     A
     4116         00000071                    TEST     P590
            03 00D03 2  0F67     A
     4117         00000072                    TEST     P600
            03 00D04    0F70     A
     4118         00000073                    TEST     P610
            03 00D04 2  0F78     A
     4119         00000074                    TEST     P620
            03 00D05    0F80     A
     4120         00000075                    TEST     P630
            03 00D05 2  0F88     A
     4121         00000076                    TEST     P640
            03 00D06    0F90     A
     4122         00000077                    TEST     P650
            03 00D06 2  0F98     A
     4123         00000078                    TEST     P660
            03 00D07    0FA0     A
     4124         00000079                    TEST     P700
            03 00D07 2  0FBC     A
     4125         00000080                    TEST     P701
            03 00D08    0FDB     A
     4126         00000081                    TEST     P710
            03 00D08 2  0FE2     A
     4127         00000082                    TEST     P720
            03 00D09    0FF2     A
     4128         00000083                    TEST     P730
            03 00D09 2  0FF4     A
     4129         00000084                    TEST     P7401
            03 00D0A    100D     A
     4130         00000085                    TEST     P740
            03 00D0A 2  1011     A
     4131         00000086                    TEST     P750
            03 00D0B    102C     A
     4132         00000087                    TEST     F000
            03 00D0B 2  103C     A
     4133         00000088                    TEST     F001
            03 00D0C    105B     A
     4134         00000089                    TEST     F001X
            03 00D0C 2  1080     A
     4135         00000090                    TEST     F002
            03 00D0D    109D     A
     4136         00000091                    TEST     F003
            03 00D0D 2  111B     A
     4137         00000092                    TEST     F004
            03 00D0E    1150     A
     4138         00000093                    TEST     F005
            03 00D0E 2  1155     A
     4139         00000094                    TEST     F006
            03 00D0F    115A     A
     4140         00000095                    TEST     F007
            03 00D0F 2  115F     A
     4141         00000096                    TEST     F008
            03 00D10    119D     A
     4142         00000097                    TEST     F009
            03 00D10 2  11A0     A
     4143         00000098                    TEST     F010
            03 00D11    11A3     A
     4144         00000099                    TEST     F011
            03 00D11 2  11A6     A
     4145         00000100                    TEST     F012
            03 00D12    11D6     A
     4146         00000101                    TEST     F013
            03 00D12 2  1267     A
     4147         00000102                    TEST     F015
            03 00D13    1299     A
     4148         00000103                    TEST     F016
            03 00D13 2  132D     A
     4149         00000104                    TEST     F018
            03 00D14    1349     A
     4150         00000105                    TEST     F019
            03 00D14 2  13AF     A
     4151         00000106                    TEST     F020
            03 00D15    13E2     A
     4152         00000107                    TEST     F022
            03 00D15 2  1401     A
     4153         00000108                    TEST     F023
            03 00D16    148A     A
     4154         00000109                    TEST     F024
            03 00D16 2  148E     A
     4155         00000110                    TEST     F025
            03 00D17    1492     A
     4156         00000111                    TEST     F026
            03 00D17 2  14D8     A
     4157         00000112                    TEST     F027
            03 00D18    14DC     A
     4158         00000113                    TEST     F028
            03 00D18 2  14E0     A
     4159         00000114                    TEST     F029
            03 00D19    14FF     A
     4160         00000115                    TEST     F030
            03 00D19 2  152A     A
     4161         00000116                    TEST     F0301
            03 00D1A    153F     A
     4162         00000117                    TEST     F031
            03 00D1A 2  1550     A
     4163         00000118                    TEST     F032
            03 00D1B    155A     A
     4164         00000119                    TEST     F033
            03 00D1B 2  1564     A
     4165         00000120                    TEST     F034
            03 00D1C    156E     A
     4166         00000121                    TEST     F035
            03 00D1C 2  1579     A
     4167         00000122                    TEST     F036
            03 00D1D    1584     A
     4168         00000123                    TEST     F037
            03 00D1D 2  1604     A
     4169         00000124                    TEST     F038
            03 00D1E    1609     A
     4170         00000125                    TEST     F038X
            03 00D1E 2  160D     A
     4171         00000126                    TEST     F039
            03 00D1F    1611     A
     4172         00000127                    TEST     F040
            03 00D1F 2  1616     A
     4173         00000128                    TEST     F041
            03 00D20    1688     A
     4174         00000129                    TEST     F042
            03 00D20 2  169F     A
     4175         00000130                    TEST     F043
            03 00D21    16CA     A
     4176         00000131                    TEST     F044
            03 00D21 2  16E1     A
     4177         00000132                    TEST     F045
            03 00D22    16FD     A
     4178         00000133                    TEST     F045A
            03 00D22 2  172E     A
     4179         00000134                    TEST     F046
            03 00D23    173D     A
     4180         00000135                    TEST     F047
            03 00D23 2  1740     A
     4181         00000136                    TEST     N000
            03 00D24    17B8     A
     4182         00000137                    TEST     N001
            03 00D24 2  17C1     A
     4183         00000138                    TEST     N002
            03 00D25    17C4     A
     4184         00000139                    TEST     N003
            03 00D25 2  17CD     A
     4185         00000140                    TEST     N004
            03 00D26    17D7     A
     4186         00000141                    TEST     N005
            03 00D26 2  17DC     A
     4187         00000142                    TEST     N006
            03 00D27    17E1     A
     4188         00000143                    TEST     N007
            03 00D27 2  17EE     A
     4189         00000144                    TEST     N008
            03 00D28    17F7     A
     4190         00000145                    TEST     N009
            03 00D28 2  1800     A
     4191         00000146                    TEST     N010
            03 00D29    1808     A
     4192         00000147                    TEST     N011
            03 00D29 2  180C     A
     4193         00000148                    TEST     N012
            03 00D2A    1810     A
     4194         00000149                    TEST     N013
            03 00D2A 2  1815     A
     4195         00000150                    TEST     N014
            03 00D2B    183D     A
     4196         00000151                    TEST     N015
            03 00D2B 2  1864     A
     4197         00000152                    TEST     N016
            03 00D2C    186B     A
     4198         00000153                    TEST     N017
            03 00D2C 2  186F     A
     4199         00000154                    TEST     N018
            03 00D2D    1876     A
     4200         00000155                    TEST     N019
            03 00D2D 2  187A     A
     4201         00000156                    TEST     N020
            03 00D2E    1881     A
     4202         00000157                    TEST     N021
            03 00D2E 2  18B0     A
     4203         00000158                    TEST     N022
            03 00D2F    18B5     A
     4204         00000159                    TEST     N023
            03 00D2F 2  18EC     A
     4205         00000160                    TEST     N024
            03 00D30    18F1     A
     4206         00000161                    TEST     N025
            03 00D30 2  1911     A
     4207         00000162                    TEST     N026
            03 00D31    1915     A
     4208         00000163                    TEST     N0261
            03 00D31 2  1935     A
     4209         00000164                    TEST     N027
            03 00D32    1939     A
     4210         00000165                    TEST     N028
            03 00D32 2  193D     A
     4211         00000166                    TEST     N029
            03 00D33    1943     A
     4212         00000167                    TEST     N030
            03 00D33 2  1948     A
     4213         00000168                    TEST     N031
            03 00D34    194D     A
     4214         00000169                    TEST     N032
            03 00D34 2  197B     A
     4215         00000170                    TEST     N033
            03 00D35    199E     A
     4216         00000171                    TEST     N034
            03 00D35 2  19C2     A
     4217         00000172                    TEST     N035
            03 00D36    19E5     A
     4218         00000173                    TEST     N036A
            03 00D36 2  1A11     A
     4219         00000174                    TEST     N036
            03 00D37    1A24     A
     4220         00000175                    TEST     N036XX
            03 00D37 2  1A28     A
     4221         00000176                    TEST     N037
            03 00D38    1A4A     A
     4222         00000177                    TEST     N038
            03 00D38 2  1A4D     A
     4223         00000178                    TEST     TN000
            03 00D39    1A7F     A
     4224         00000179                    TEST     TN001
            03 00D39 2  1A87     A
     4225         00000180                    TEST     TN002
            03 00D3A    1AA0     A
     4226         00000181                    TEST     TN003
            03 00D3A 2  1ADE     A
     4227         00000182                    TEST     TN004
            03 00D3B    1B2F     A
     4228         00000183                    TEST     TN0041
            03 00D3B 2  1B75     A
     4229         00000184                    TEST     TN0042
            03 00D3C    1B96     A
     4230         00000185                    TEST     TN0043
            03 00D3C 2  1BAB     A
     4231         00000186                    TEST     TN0044
            03 00D3D    1BAD     A
     4232         00000187                    TEST     TN0045
            03 00D3D 2  1BBA     A
     4233         00000188                    TEST     TN0046
            03 00D3E    1BBC     A
     4234         00000189                    TEST     TN0047,1
            03 00D3E 2  9BDA     A
     4235         00000190                    TEST     TN0048,1
            03 00D3F    9BDC     A
     4236         00000191                    TEST     TN005
            03 00D3F 2  1BE8     A
     4237         03 00D40           TST1END  SET      %
     4238         03 00D40           RIOPEND  EQU      %
     4239                                     BOUND    4
     4240         000000BF           TESTSIZE SET      TNONE
     4241                                     PAGE
     4242                            *                 S T A T U S  O F  T R A C K S ( B A N D )
     4243                            *
     4244                            *                 R E P O R T E R
     4245                            *
     4246                            *                 THIS ROUTINE IS DESIGNED TO REPORT THE CONDITION
     4247                            *                 OF A TRACK (BAND) WHEN IT WAS TESTED.
     4248                            *
     4249                            *                 INPUT PARAMETERS:
     4250                            *
     4251                            *                   TCKUNVL  -  TCK UNVAILABLE LOWER LIMIT
     4252                            *                   TCKUNVH  -  TCK UNVAILABLE UPPER LIMIT
     4253                            *                   TCKWPVL1 -  TCK WRT PROTECTED LOWER LIMIT RPT BY TDV
     4254                            *                   TCKWPVH1 -  TCK WRT PROTECTED UPPER LIMIT RPT BY TDV
     4255                            *                   TCKWPVL  -  TCK WRT PROTECTED LOWER LIMIT RPT BY SNS
     4256                            *                   TCKWPVH  -  TCK WRT PROTECTED UPPER LIMIT RPT BY SNS
     4257                            *                   REG 5    -  CURRECT DEVICE SEEK ADDRESS
     4258                            *                   REG 6    -  TRACK (BAND) ADDRESS
     4259                            *
     4260                            *
     4261                            *                 REGISTER DISTURBED.
     4262                            *
     4263                            *                    REG 4,7,8,12,15
     4264                            *
     4265                            *                 OUTPUT PARAMETERS:
     4266                            *
     4267                            *                   REPORT TRACK (BAND)
     4268                            *
     4269                            *                   REG 5-FIRST BAD TRACK (BAND)
     4270                            *
     4271                            *
     4272                            *                 CALLING FORMAT:
     4273                            *
     4274                            *                    BAL,15  T1ST19RP
     4275                            *                    DATA           WORD ADDRESS OF LOWER VIOLATION PARM
     4276                            *                    %+1            RETURN
     4277                            *
     4278   03 00D40    35F001C7 A   T1ST19RP STW,15   T1ST19RT          SAVE RETURN ADDRESS
     4279   03 00D41    B2F2000F A            LW,15    *15,1
     4280   03 00D42    35F0019B A            STW,15   MSGADR
     4281   03 00D43    351015B6              STW,1    NOIOCD
     4282   03 00D44    35101587              STW,1    E:MARKER
     4283   03 00D45    35201588              STW,2    E:ERROR
     4284   03 00D46    02200000 A            LCI      0
     4285   03 00D47    2B000157 A            STM,0    #MSG00
     4286   03 00D48    6AF00EFC              BAL,15   TP:HEAD
     4287   03 00D49    68000D4A              B        %+1
     4288   03 00D4A    02200000 A            LCI      0
     4289   03 00D4B    2A000157 A            LM,0     #MSG00
     4290   03 00D4C    B29001C7 A            LW,9     *T1ST19RT
     4291   03 00D4D    92C00009 A            LD,12    *9
     4292   03 00D4E    4BC0302E              AND,12   =X'FFFF'
     4293   03 00D4F    4BD0302E              AND,13   =X'FFFF'
     4294   03 00D50    35C006C2              STW,12   VDEC4A
     4295   03 00D51    35D006CB              STW,13   VDEC4B
     4296   03 00D52    6AF00AA5              BAL,15   MSGOUT
     4297   03 00D53    000020C2              DATA     BA(MSGT1T19)
     4298   03 00D54    22400000 A            LI,4     0                 LOAD ZERO
     4299   03 00D55    D2520009 A            LH,5     *9,1              LOAD FIRST BAD TRACK (BAND)
     4300   03 00D56    B5400009 A            STW,4    *9                ZERO FIRST BAD TRACK (BAND)
     4301   03 00D57    374002C0 A            MW,4     SECTCURR          CALCULATE NEW SEEK ADDRESS
     4302   03 00D58    3550018F A            STW,5    SSAVE
     4303   03 00D59    22400000 A            LI,4     0
     4304   03 00D5A    E80401C7 A            B        *T1ST19RT,2
     4305         00 001C7           T1ST19RT EQU      PSAVE1
     4306                                     PAGE
     4307                            *
     4308                            *
     4309                            *
     4310   03 00D5B    32C0000F A   TILT     LW,12    15                LOAD ADDR OF WHERE NON-RECOVERABLE
     4311   03 00D5C    EAF00218 A            BAL,15   *:HEXC            ERROR OCCURRED, CONVERT TO EBIDIC
     4312   03 00D5D    35F00D64              STW,15   TILT1+3
     4313   03 00D5E    EAF0021C A            BAL,15   *:PRINT           PRINT
     4314   03 00D5F    00000D61              DATA     TILT1
     4315   03 00D60    E8000214 A            B        *:MONITOR         RETURN CONTROL TO MOINTOR
     4316                            *
     4317                            *
     4318   03 00D61    0FE3C9D3 A   TILT1    TEXTC    'TILT  LOC  XXXX'
            03 00D62    E34040D3 A
            03 00D63    D6C34040 A
            03 00D64    E7E7E7E7 A
     4319                                     PAGE
     4320                            *
     4321                            *                 *** S E E K / S E N S E  T A B L E  R O U T I N E ***
     4322                            *
     4323                            *                 THIS ROUTINE BUILDS A SENSE TABLE, TEST THE TABLE
     4324                            *                 FOR ERRORS AND REPORTS ERRORS.
     4325                            *
     4326                            *                 INPUT PARMATERS:
     4327                            *
     4328                            *                   ROUTINE 'MEMORY3' MUST BE EXECUTED BEFORE FIRST
     4329                            *                   CALL TO THIS ROUTINE.
     4330                            *                   REG 6 PRESENT LENGTH OF TABLE
     4331                            *                   REG 7 INDEX FOR UPDATING THE TABLE
     4332                            *                   TABDPLY1 - ERROR NO. OF SUBTEST
     4333                            *                 REGISTERS DISTURDED
     4334                            *
     4335                            *                       NONE AS LONG AS THE TABLE IS BEING BUILT
     4336                            *                             OR TESTED
     4337                            *                       ALL WHEN THE TABLE IS BEING DISPLAYED
     4338                            *
     4339                            *
     4340                            *                 OUTPUT PARAMETERS'
     4341                            *
     4342                            *                   ERROR TABLE, WHEN AN ERROR IS DETECTED.
     4343                            *
     4344                            *                 CALLING FORMAT:
     4345                            *
     4346                            *                   BAL,15   TABUILD
     4347                            *                   %        NO ERROR EXIT
     4348                            *                   %+1      LOOP EXIT
     4349                            *                   %+2      ERROR EXIT
     4350   03 00D65    35F01591     TABIT    STW,15   IOMODRTN
     4351   03 00D66    B2F0000F A            LW,15    *15
     4352   03 00D67    35F00D6C              STW,15   TABMSG
     4353   03 00D68    6AF00E9D              BAL,15   T:EXEC
     4354   03 00D69    00000000 A            DATA     0
     4355   03 00D6A    00000000 A            DATA     0
     4356   03 00D6B    00000000 A            DATA     0
     4357   03 00D6C    00000000 A   TABMSG   DATA     0
     4358   03 00D6D    00000D8F              DATA     TABUILD2
     4359   03 00D6E    E8021591              B        *IOMODRTN,1
     4360   03 00D6F    E8041591              B        *IOMODRTN,2
     4361                            *
     4362                            *
     4363                            *
     4364                            TABUILDS ;
     4365   03 00D70    3260018F A            LW,6     SSAVE
     4366   03 00D71    31700252 A            CW,7     TABLEMAX          DOES IT EXCEEDING THE TABLE
     4367   03 00D72    68200D74              BLE      %+2                 LENGTH IF SO *** WHOA ***
     4368   03 00D73    6AF00D5B              BAL,15   TILT              GO REPORT NON-RECOVERABLE CONDITION
     4369   03 00D74    D31E0251 A            MTH,1    *SSTABLE,7        UPDATE TABLE
     4370   03 00D75    20700001 A            AI,7     1                 ADD 1 TO INDEX
     4371   03 00D76    31600007 A            CW,6     7                 IF NORMAL TABLE LENGTH EXCEEDED
     4372   03 00D77    68100D7A              BGE      %+3
     4373   03 00D78    35100253 A            STW,1    TABERROR             SET ERROR FLAG
     4374   03 00D79    32600007 A            LW,6     7                    AND EXTEND TABLE
     4375   03 00D7A    331002E4 A            MTW,1    TABINDEX          ADD U TO TABINDEX
     4376   03 00D7B    316002E4 A            CW,6     TABINDEX          COMPARE WORDS
     4377   03 00D7C    3560018F A            STW,6    SSAVE
     4378   03 00D7D    E820000F A            BLE      *15               BRANCH IF LESS
     4379   03 00D7E    E802000F A            B        *15,1             GO TEST SOME MORE
     4380                            *
     4381                            *
     4382                            *
     4383                            TABUILD  ;
     4384   03 00D7F    3260018F A            LW,6     SSAVE
     4385   03 00D80    31700252 A            CW,7     TABLEMAX          IF INDEX IS GREATER THAN TABLE
     4386   03 00D81    68200D83              BLE      %+2                   TWICE THE NORMAL SIZE TABLE
     4387   03 00D82    6AF00D5B              BAL,15   TILT              GO REPORT NON-RECOVERABLE CONDITION
     4388   03 00D83    D31E0251 A            MTH,1    *SSTABLE,7        UPDATE TABLE
     4389   03 00D84    317002E3 A            CW,7     TABBIAS
     4390   03 00D85    68100D87              BGE      %+2
     4391   03 00D86    33100253 A            MTW,1    TABERROR
     4392   03 00D87    331002E4 A            MTW,1    TABINDEX
     4393   03 00D88    316002E4 A            CW,6     TABINDEX          TEST FOR END OF TABLE
     4394   03 00D89    E822000F A            BLE      *15,1             IF LESS RTN
     4395   03 00D8A    31700254 A            CW,7     SECTLMT           COMPARE WORDS
     4396   03 00D8B    68200D8E              BLE      %+3               BRANCH LESS OR EQUAL
     4397   03 00D8C    33100253 A            MTW,1    TABERROR
     4398   03 00D8D    3570018F A            STW,7    SSAVE
     4399   03 00D8E    E800000F A            B        *15
     4400                            *
     4401                            *
     4402                            *
     4403   03 00D8F    3260018F A   TABUILD2 LW,6     SSAVE
     4404   03 00D90    33000253 A            MTW,0    TABERROR
     4405   03 00D91    69300D9A              BNEZ     TABDPLY           BR. NOT = ZERO
     4406   03 00D92    327002E3 A            LW,7     TABBIAS           FETCH TABBIAS
     4407   03 00D93    D11E0251 A   TABUILD1 CH,1     *SSTABLE,7        GO CHECK TABLE FOR ERROR
     4408   03 00D94    69300D9A              BNE      TABDPLY           IF NOT EQUAL :ERROR
     4409   03 00D95    20700001 A            AI,7     1                 ADD 1 TO INDEX
     4410   03 00D96    31700006 A            CW,7     6                 IF MORE TO DO GO DO IT
     4411   03 00D97    69100D93              BL       TABUILD1
     4412   03 00D98    22800001 A            LI,8     1
     4413   03 00D99    68000D9B              B        TABDPLY+1
     4414                            *
     4415                            *
     4416   03 00D9A    22800000 A   TABDPLY  LI,8     0
     4417   03 00D9B    229FFFFF A            LI,9     -1
     4418   03 00D9C    22700001 A            LI,7     1
     4419   03 00D9D    6AE00ED8              BAL,14   TP:CONTR
     4420   03 00D9E    22F0209C              LI,15    BA(TABLERR)
     4421   03 00D9F    33001587              MTW,0    E:MARKER
     4422   03 00DA0    69300DA2              BNEZ     %+2
     4423   03 00DA1    22F020A5              LI,15    BA(TABLEDLY)
     4424   03 00DA2    35F00DA4              STW,15   %+2
     4425   03 00DA3    6AF00AA5              BAL,15   MSGOUT
     4426   03 00DA4    00000000 A            DATA     0
     4427   03 00DA5    6AF00AA5              BAL,15   MSGOUT
     4428   03 00DA6    000020B7              DATA     BA(TABLE100)
     4429   03 00DA7    6AF00AA5              BAL,15   MSGOUT
     4430   03 00DA8    00000000 A   TABHEAD  DATA     0
     4431   03 00DA9    EAF0021C A            BAL,15   *:PRINT
     4432   03 00DAA    00000DDC              DATA     TABLE102
     4433   03 00DAB    68000DAE              B        %+3
     4434   03 00DAC    6AF00AA5     TABDPLY2 BAL,15   MSGOUT
     4435   03 00DAD    00001DC9              DATA     BA(CCERM8)
     4436   03 00DAE    227FFFEE A            LI,7     -18               LOAD BLANKS
     4437   03 00DAF    3240302F              LW,4     L(X'40404040')        INTO
     4438   03 00DB0    354E30AA              STW,4    BUF1LO+18,7       OUTPUT LINE
     4439   03 00DB1    65700DB0              BIR,7    %-1                   AREA
     4440   03 00DB2    329002E3 A            LW,9     TABBIAS           LOAD TABLE STARTING BIAS
     4441   03 00DB3    4B903030              AND,9   =X'FFFFFFF0'       REMOVE LSB 4
     4442   03 00DB4    324002E3 A            LW,4     TABBIAS           LOAD TABLE STARTING BIAS
     4443   03 00DB5    4B40302A              AND,4    =X'F'
     4444   03 00DB6    22700000 A            LI,7     0
     4445   03 00DB7    35700188 A            STW,7    TABCOUNT          STORE WORD
     4446   03 00DB8    327002E3 A            LW,7     TABBIAS           FETCH WORD
     4447   03 00DB9    22A000F0 A            LI,10    X'F0'             LOAD EBCDIC ZERO
     4448   03 00DBA    22B00040 A            LI,11    X'40'             LOAD EBCDIC BLANK
     4449                            TABDPLY3 ;
     4450   03 00DBB    31600188 A            CW,6     TABCOUNT          COMPARE WORDS
     4451   03 00DBC    682010C1              BLE      XIT
     4452   03 00DBD    D2CE0251 A            LH,12    *SSTABLE,7        LOAD PASS COUNT
     4453   03 00DBE    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     4454   03 00DBF    75B0000F A            STB,11   15                STORE A BLANK IN MSB POSITION
     4455   03 00DC0    71A2000F A            CB,10    15,1              TEST BYTE 1 FOR ZERO
     4456   03 00DC1    69300DC3              BNE      %+2                   IF ZERO
     4457   03 00DC2    75B2000F A            STB,11   15,1                  STORE A BLANK
     4458   03 00DC3    71A4000F A            CB,10    15,2              TEST BYTE 2 FOR ZERO
     4459   03 00DC4    69300DC6              BNE      %+2                   IF ZERO
     4460   03 00DC5    75B4000F A            STB,11   15,2                  STORE A BLANK
     4461   03 00DC6    35F8309A              STW,15   BUF1LO+2,4        STORE ENTRY INTO OUTPUT LINE
     4462   03 00DC7    33100188 A            MTW,1    TABCOUNT          ADD 1 TO TABCOUNT
     4463   03 00DC8    20400001 A            AI,4     1                 UP DATE LINE INDEX
     4464   03 00DC9    20700001 A            AI,7     1                 UP DATA TABLE INDEX
     4465   03 00DCA    21400010 A            CI,4     16                IS LINE INDEX
     4466   03 00DCB    68100DCE              BGE      TABDLY4           GREATER THAN TABLE LENGTH
     4467   03 00DCC    31600188 A            CW,6     TABCOUNT          COMPARE WORDS
     4468   03 00DCD    69200DBB              BG       TABDPLY3          BRANCH IF GREATER
     4469                            *
     4470                            *
     4471                            *
     4472   03 00DCE    32C00009 A   TABDLY4  LW,12    9                 LOAD TABLE STARTING BIAS
     4473   03 00DCF    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX
     4474   03 00DD0    25400002 A            SLS,4    2                 CONVERTS TO A BYTE
     4475   03 00DD1    20400007 A            AI,4     7                 ADD7
     4476   03 00DD2    75F03099              STB,15   BUF1LO+1
     4477   03 00DD3    25F00078 A            SLS,15   -8
     4478   03 00DD4    75B2000F A            STB,11   15,1
     4479   03 00DD5    7540000F A            STB,4    15
     4480   03 00DD6    35F03098              STW,15   BUF1LO
     4481   03 00DD7    20900010 A            AI,9     X'10'             UPDATE TABLE BIAS FOR NEXT PASS
     4482   03 00DD8    EAF0021C A            BAL,15   *:PRINT           GO PRINT
     4483   03 00DD9    00003098              DATA     BUF1LO                LINE
     4484   03 00DDA    22400000 A            LI,4     0                 SET LINE BIAS POINTER =0
     4485   03 00DDB    68000DBB              B        TABDPLY3          GO DO ANYOTHER LINE
     4486                            TABLE102 TEXTC ;
     4487   03 00DDC    0940D5D6 A    ' NO.(HEX)'
            03 00DDD    4B4DC8C5 A
            03 00DDE    E75D4040 A
     4488                                     PAGE
     4489                            SELCTOUT ;
     4490   03 00DDF    22700000 A            LI,7     0
     4491   03 00DE0    229FFFFF A            LI,9     -1
     4492   03 00DE1    328002E1 A            LW,8     #MSGER41
     4493   03 00DE2    6AE00ED8              BAL,14   TP:CONTR
     4494   03 00DE3    22F02161              LI,15    BA(SELECTDY)
     4495   03 00DE4    33001587              MTW,0    E:MARKER
     4496   03 00DE5    68300DE7              BEZ      %+2
     4497   03 00DE6    22F0215B              LI,15    BA(SELECTRR)
     4498   03 00DE7    35F00DE9              STW,15   %+2
     4499   03 00DE8    6AF00AA5              BAL,15   MSGOUT
     4500   03 00DE9    00000000 A            DATA     0
     4501   03 00DEA    6AF00AA5              BAL,15   MSGOUT
     4502   03 00DEB    000020CB              DATA     BA(SELECT90)
     4503   03 00DEC    22703099              LI,7     BUF1LO+1          LOAD FIRST AVAILABLE MEMORY LOC
     4504   03 00DED    4B703031              AND,7    =-2               CONVERT TO A DOUBLE WORD COMPATABLE
     4505   03 00DEE    35700E3F              STW,7    SELCT52           SAVE STARTING LINE NO.
     4506   03 00DEF    35700E6E              STW,7    SELCT89           SAVE STARTING LINE NO.
     4507   03 00DF0    EAF0021C A            BAL,15   *:PRINT           PRINT HEADER 3
     4508   03 00DF1    00000E80              DATA     SELECT93
     4509   03 00DF2    22400000 A            LI,4     0
     4510   03 00DF3    325002C3 A            LW,5     SURFCEND          LOAD END OF RAD
     4511   03 00DF4    364002C0 A            DW,4     SECTCURR          DIVIDE TO FIND LAST TRACK
     4512   03 00DF5    33000004 A            MTW,0    4                 IF NO
     4513   03 00DF6    68300DF8              BEZ      %+2                   CARRY BRANCH
     4514   03 00DF7    20500001 A            AI,5     1                 OTHER WISE UPDATE LAST TRACK BY 1
     4515   03 00DF8    22700000 A            LI,7     0                 ZERO TRACK TABLE INDEX
     4516   03 00DF9    22400000 A            LI,4     0                 ZERO TRACK (BAND) COUNT
     4517                            *
     4518                            *
     4519   03 00DFA    32C00004 A   SELCT60  LW,12    4                 LOAD Y-AXIS COUNT
     4520   03 00DFB    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     4521   03 00DFC    B5F00E3F              STW,15   *SELCT52          LOAD INTO OUTPUT MESSAGE
     4522   03 00DFD    22F0004F A            LI,15    79                LOAD BYTE OF MESSAGE
     4523   03 00DFE    F5F00E3F              STB,15   *SELCT52          LOAD BYTE COUNT
     4524   03 00DFF    3040000E A            AW,4     14                ADD INCREMENT COUNT
     4525   03 00E00    32C00004 A            LW,12    4
     4526   03 00E01    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     4527   03 00E02    22C00060 A            LI,12    '-'               LOAD '-'
     4528   03 00E03    75C0000F A            STB,12   15                INSERT INTO OUTPUT MESSAGE
     4529   03 00E04    B5F20E3F              STW,15   *SELCT52,1        LOAD MESSAGE
     4530   03 00E05    32F0302F              LW,15    =X'40404040'
     4531   03 00E06    B5F40E3F              STW,15   *SELCT52,2        LOAD INTO OUTPUT MESSAGE
     4532   03 00E07    32F0302F              LW,15    =X'40404040'
     4533   03 00E08    B5F60E3F              STW,15   *SELCT52,3        LOAD SPACE INTO OUTPUT MSG
     4534   03 00E09    22600002 A            LI,6     2                 LOAD LINE INDEX
     4535   03 00E0A    22000000 A            LI,0     0                 ZERO ERROR
     4536   03 00E0B    35000189 A            STW,0    LINE                  ENCOUNTERED FLAG
     4537   03 00E0C    12A00E96     SELCT51  LD,10    SELECT95          LOAD DOUBLEWORD OF SPACES
     4538   03 00E0D    D28E024B A            LH,8     *TCKSHOT,7        LOAD ERROR HALF WORD
     4539   03 00E0E    68300E37              BEZ      SELCT53           IF ZERO SKIP FORMATING
     4540   03 00E0F    21800200 A            CI,8     X'200'            TEST FOR ADDRESS ERROR
     4541   03 00E10    68400E16              BCR,4    SELCT70           IF NONE GO LOOK FOR OTHER ERRORS
     4542   03 00E11    32C00008 A            LW,12    8                 LOAD ADDRESS
     4543   03 00E12    4BC03032              AND,12   =X'7F'
     4544   03 00E13    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     4545   03 00E14    4BF03033              AND,15   =X'4040FFFF'      INSERT SPACES
     4546   03 00E15    35F0000B A            STW,15   11                STORE IN ERROR DOUBLEWORD
     4547   03 00E16    21808000 A   SELCT70  CI,8     X'8000'           TEST OVERRUN BIT
     4548   03 00E17    68400E1A              BCR,4    SELCT71               IF NOT SET NEXT TEST
     4549   03 00E18    22C000D9 A            LI,12    'R'
     4550   03 00E19    75C0000A A            STB,12   10,0              INSERT INTO ERROR MESSAGE
     4551                            *
     4552                            *
     4553                            *
     4554   03 00E1A    21804000 A   SELCT71  CI,8     X'4000'           TEST FOR SECTOR UNAVAILABLE
     4555   03 00E1B    68400E1E              BCR,4    SELCT72               IF NOT SET NEXT TEST
     4556   03 00E1C    22C000E4 A            LI,12    'U'               LOAD 'U'
     4557   03 00E1D    75C2000A A            STB,12   10,1              INSERT INTO ERROR MESSAGE
     4558                            *
     4559                            *
     4560                            *
     4561   03 00E1E    21801000 A   SELCT72  CI,8     X'1000'           TEST FOR TRANSMISSION ERROR
     4562   03 00E1F    68400E22              BCR,4    SELCT73               IF NOT SET NEXT TEST
     4563   03 00E20    22C000E3 A            LI,12    'T'               LOAD A 'T'
     4564   03 00E21    75C4000A A            STB,12   10,2              INSERT INTO ERROR MESSAGE
     4565                            *
     4566                            *
     4567                            *
     4568   03 00E22    21802000 A   SELCT73  CI,8     X'2000'           TEST FOR SYNC PATTERN MISSED
     4569   03 00E23    68400E26              BCR,4    SELCT74               IF NOT SET NEXT TEST
     4570   03 00E24    22C000D7 A            LI,12    'P'               LOAD A 'P'
     4571   03 00E25    75C4000A A            STB,12   10,2              INSERT INTO ERROR MESSAGE
     4572                            *
     4573                            *
     4574                            *
     4575   03 00E26    21800800 A   SELCT74  CI,8     X'0800'           TEST FOR UNUSUAL END
     4576   03 00E27    68400E2A              BCR,4    SELCT75               IF NOT SET NEXT TEST
     4577   03 00E28    22C000C5 A            LI,12    'E'               LOAD A 'E'
     4578   03 00E29    75C6000A A            STB,12   10,3              INSERT INTO ERROR MESSAGE
     4579                            *
     4580                            *
     4581                            *
     4582   03 00E2A    21800400 A   SELCT75  CI,8     X'0400'           TEST FOR DATA COMPARE ERROR
     4583   03 00E2B    68400E2E              BCR,4    SELCT76               IF NOT SET NEXT TEST
     4584   03 00E2C    22C000C4 A            LI,12    'D'               LOAD A 'D'
     4585   03 00E2D    75C0000B A            STB,12   11,0              INSERT INTO ERROR MESSAGE
     4586                            *
     4587                            *
     4588   03 00E2E    21800080 A   SELCT76  CI,8     X'80'
     4589   03 00E2F    68400E32              BCR,4    SELCT77
     4590   03 00E30    22C000C8 A            LI,12    'H'
     4591   03 00E31    75C2000B A            STB,12   11,1
     4592                            *
     4593                            *
     4594   03 00E32    21800100 A   SELCT77  CI,8     X'100'            TEST FOR BAND TRANSMISSION ERROR
     4595   03 00E33    68400E36              BCR,4    SELCT78
     4596   03 00E34    22C000C2 A            LI,12    'B'
     4597   03 00E35    75C0000A A            STB,12   10
     4598                            *
     4599                            *
     4600   03 00E36    33100189 A   SELCT78  MTW,1    LINE              SET ERROR IN THIS LINE FLAG
     4601   03 00E37    95AC0E3F     SELCT53  STD,10   *SELCT52,6        STORE ERROR DW IN OUTPUT LINE
     4602   03 00E38    20700001 A            AI,7     1                 INCREMENT TRACK TABLE INDEX
     4603   03 00E39    20600001 A            AI,6     1                 INCREMENT OUTPUT LINE INDEX
     4604   03 00E3A    2160000A A            CI,6     10                TEST FOR FULL LINE
     4605   03 00E3B    69100E0C              BL       SELCT51               IF NOT FULL LOOP BACK
     4606   03 00E3C    33000189 A            MTW,0    LINE              TEST FOR ERROR IN THE LINE
     4607   03 00E3D    68300E40              BEZ      SELCT52+1             IF NONE SKIP MESSAGE
     4608   03 00E3E    EAF0021C A            BAL,15   *:PRINT           OUTPUT ERROR LINE
     4609   03 00E3F    00000000 A   SELCT52  DATA     0
     4610   03 00E40    20400001 A            AI,4     1                 UPDATE TRACK (BAND) COUNT
     4611   03 00E41    31400005 A            CW,4     5                 IF LESS THEN
     4612   03 00E42    69100DFA              BL       SELCT60                 UPDATE LIMIT CONTINUE TO OUTP
     4613   03 00E43    6AF00AA5              BAL,15   MSGOUT
     4614   03 00E44    00001DC9              DATA     BA(CCERM8)
     4615                            *
     4616                            *
     4617   03 00E45    6AF00AA5              BAL,15   MSGOUT
     4618   03 00E46    00002154              DATA     BA(SELECT94)
     4619                            *
     4620                            *
     4621   03 00E47    6AF00AA5              BAL,15   MSGOUT
     4622   03 00E48    000020EA              DATA     BA(SELECT96)
     4623   03 00E49    22A00000 A            LI,10    0                 ZERO PRINT TOTAL LINE FLAG
     4624   03 00E4A    22600000 A            LI,6     0                 ZERO SECTOR TABLE INDEX
     4625   03 00E4B    22400000 A            LI,4     0                 ZERO SECTOR LINE NO.
     4626   03 00E4C    3280302F              LW,8     =X'40404040'
     4627   03 00E4D    B5820E6E              STW,8    *SELCT89,1
     4628   03 00E4E    32803034              LW,8     =X'2B404040'
     4629   03 00E4F    B5800E6E              STW,8    *SELCT89          SAVE IN OUTPUT MESSAGE AREA
     4630   03 00E50    32B0024C A            LW,11    SECTSHOT          LOAD STARTING ADDR OF SECTOR TABLE
     4631                            SELCT83 ;
     4632   03 00E51    32C00004 A            LW,12    4                 LOAD SECTOR LINE NO.
     4633   03 00E52    EAF00217 A            BAL,15   *:DECC            CONVERT IT TO DECIMAL
     4634   03 00E53    D5F20E6E              STH,15   *SELCT89,1        SET INTO OUTPUT MESSAGE
     4635   03 00E54    22900000 A   SELCT85  LI,9     0                 ZERO ERROR ENCOUNTERED FLAG
     4636   03 00E55    22700002 A            LI,7     2                 SET UP LINE INDEX
     4637   03 00E56    32F03035     SELCT82  LW,15   =X'404040F0'       LOAD SPACE
     4638   03 00E57    D2CC000B A            LH,12    *11,6             LOAD ERROR COUNT
     4639   03 00E58    68300E66              BEZ      SELCT81           IF ZERO BRANCH
     4640   03 00E59    22900001 A            LI,9     1                 OTHERWISE SET ERROR ENCOUNTERED FLAG
     4641   03 00E5A    32F03036              LW,15    =' <1K'
     4642   03 00E5B    21C003E8 A            CI,12    1000
     4643   03 00E5C    68100E66              BGE      SELCT81           ERROR LOAD IF BRANCH
     4644   03 00E5D    EAF00217 A            BAL,15   *:DECC            AND CONVERT IT TO DECIMAL
     4645   03 00E5E    7580000F A            STB,8    15
     4646   03 00E5F    22C000F0 A            LI,12    X'F0'             LOAD EBCIDC ZERO
     4647   03 00E60    71C2000F A            CB,12    15,1              IF ZERO SUPRESS PRINTING
     4648   03 00E61    69300E66              BNEZ     SELCT81           IF NOT BRANCH
     4649   03 00E62    7582000F A            STB,8    15,1              OTHERWISE REPLACE WITH SPACE
     4650   03 00E63    71C4000F A            CB,12    15,2              IF ZERO SUPRESS PRINTING
     4651   03 00E64    69300E66              BNEZ     SELCT81           IF NOT BRANCH
     4652   03 00E65    7584000F A            STB,8    15,2              OTHERWISE REPLACE WITH SPACE
     4653   03 00E66    B5FE0E6E     SELCT81  STW,15   *SELCT89,7        SAVE IN OUTPUT MESSAGE
     4654   03 00E67    20600001 A            AI,6     1                 ADD 1 TO SECTOR TABLE INDEX
     4655   03 00E68    20700001 A            AI,7     1                 ADD 1 TO LINE INDEX
     4656   03 00E69    2170000B A            CI,7     11                TEST FOR END OF LINE
     4657   03 00E6A    68200E56              BLE      SELCT82               IF NOT END GO BACK
     4658   03 00E6B    33000009 A            MTW,0    9                 IF NO ERRORS ENCOUNTERED SKIP PRINTG
     4659   03 00E6C    68300E6F              BEZ      %+3
     4660   03 00E6D    EAF0021C A            BAL,15   *:PRINT           PRINT LINE IF ERROR
     4661   03 00E6E    00000000 A   SELCT89  DATA     0
     4662                            *
     4663                            *
     4664   03 00E6F    20400001 A            AI,4     1                 UPDATE SECTOR LINE NO.
     4665   03 00E70    314002C0 A            CW,4     SECTCURR          TEST FOR ALL SECTOR DONE
     4666   03 00E71    69100E51              BL       SELCT83               IF NOT GO BACK
     4667   03 00E72    3300000A A            MTW,0    10                TEST FOR TOTAL LINE PRINT
     4668   03 00E73    69300E7B              BNEZ     SELCT87               IF PRINTED EXIT
     4669   03 00E74    3310000A A            MTW,1    10                SET TOTAL LINE FLAG
     4670   03 00E75    32B0024D A            LW,11    TOTLSHOT          LOAD STARTING ADDR OF TOTAL TABLE
     4671   03 00E76    12C00E94              LD,12    SELECT97          LOAD 'TOTAL'
     4672   03 00E77    D5C20E6E              STH,12   *SELCT89,1        FORMAT INTO TOTAL LINE
     4673   03 00E78    B5D20E6E              STW,13   *SELCT89,1
     4674   03 00E79    22600000 A            LI,6     0                 ZERO TOTAL TABLE INDEX
     4675   03 00E7A    68000E54              B        SELCT85           GO FORMAT & PRINT TOTAL LINE
     4676                            *
     4677                            *
     4678                            *
     4679   03 00E7B    6AF00AA5     SELCT87  BAL,15   MSGOUT
     4680   03 00E7C    00001DC9              DATA     BA(CCERM8)
     4681   03 00E7D    6AF00AA5              BAL,15   MSGOUT
     4682   03 00E7E    00002103              DATA     BA(SECTOROC)
     4683   03 00E7F    E80015C9              B        *TP:RTN
     4684                            *
     4685                            *
     4686                            *
     4687                            SELECT93 TEXTC       '(DEC)   *     **  0   *   1   *   2   *   3   *',;
     4688   03 00E80    4F4DC4C5 A    '   4   *   5   *   6   *   7   *'
            03 00E81    C35D4040 A
            03 00E82    405C4040 A
            03 00E83    4040405C A
            03 00E84    5C4040F0 A
            03 00E85    4040405C A
            03 00E86    404040F1 A
            03 00E87    4040405C A
            03 00E88    404040F2 A
            03 00E89    4040405C A
            03 00E8A    404040F3 A
            03 00E8B    4040405C A
            03 00E8C    404040F4 A
            03 00E8D    4040405C A
            03 00E8E    404040F5 A
            03 00E8F    4040405C A
            03 00E90    404040F6 A
            03 00E91    4040405C A
            03 00E92    404040F7 A
            03 00E93    4040405C A
     4689                                     BOUND    8
     4690   03 00E94    4040E3D6 A   SELECT97 TEXT     '  TOTAL '
            03 00E95    E3C1D340 A
     4691   03 00E96    40404040 A   SELECT95 TEXT     '        '
            03 00E97    40404040 A
     4692                                     PAGE
     4693                            *                 T E S T  E X E C U T E  R O U T I N E
     4694                            *
     4695                            *                 THIS ROUTINE SETS UP AND CONTROLS THE
     4696                            *                 EXECUTION  OF  FUNCTIONAL SUBTESTS.
     4697                            *
     4698                            *                 INPUT PARAMETERS:
     4699                            *                     (SEE CALLING SEQUENCE)
     4700                            *
     4701                            *                 REGISTER DISTURBED:
     4702                            *                      R4-R15
     4703                            *
     4704                            *                 OUTPUT PARAMETERS:
     4705                            *                      CONTROL OF SUBTEST EXECUTION
     4706                            *
     4707                            *                 CALLING FORMAT:
     4708                            *
     4709                            *                      BAL,15       T:SETUP  ONLY NECESSARY IF A TRAP/
     4710                            *                     DATA          TRAPINFO INTERRUPT IS EXPECTED
     4711                            *                     LI,0          DA(IOCD) FOR SIO ONLY
     4712                            *                     BAL,15        T:EXEC (NO RESET) T:EXECRS (RESET)
     4713                            *                     DATA          ADR OF PRE-LIST OF SETUP INSTRUCTION
     4714                            *                     DATA          THE I/O INSTR TO BE EXECUTED
     4715                            *                     DATA          ADR OF AFTER-LIST OF COLLECT INSTR
     4716                            *                     DATA          ADR OF ADR OF TEST MSGS
     4717                            *                     DATA          ADR OF COMPARE-LIST OF COMPARES
     4718                            *                     %             WAIT RETURN
     4719                            *                     %+1           LOOP RETURN
     4720                            *                     %+2           CONTINUE RETURN
     4721                            *
     4722   03 00E98    22500000 A   T:EXECRS LI,5     0                 ZERO
     4723   03 00E99    35501588              STW,5    E:ERROR
     4724   03 00E9A    355015A8              STW,5    TESTCONT              THE TEST CONTINUE FLAG
     4725   03 00E9B    22400001 A   T:CONTRS LI,4     1                 SET RIOP RESET FLAG
     4726   03 00E9C    68000EA1              B        T:CONT+1
     4727                            *
     4728                            *
     4729   03 00E9D    22500000 A   T:EXEC   LI,5     0                 ZERO
     4730   03 00E9E    35501588              STW,5    E:ERROR
     4731   03 00E9F    355015A8              STW,5    TESTCONT              THE TEST CONTINUE FLAG
     4732   03 00EA0    22400002 A   T:CONT   LI,4     2                 SET NO RESET
     4733   03 00EA1    02200050 A            LCI      TLEND-TLSTART
     4734   03 00EA2    AA50000F A            LM,5     *15
     4735   03 00EA3    2B500198 A            STM,5    TLSTART
     4736   03 00EA4    20F00005 A            AI,15    TLEND-TLSTART
     4737   03 00EA5    35F001CF A            STW,15   T:EXIT
     4738   03 00EA6    350001D0 A            STW,0    IODWADR
     4739   03 00EA7    22500000 A            LI,5     0
     4740   03 00EA8    355015AB              STW,5    GOTINTR           ZERO GOT INTERRUPT FLAG
     4741   03 00EA9    3550159C              STW,5    T:OCCUR
     4742   03 00EAA    3550158B              STW,5    CCDIOERR
     4743   03 00EAB    355015A4              STW,5    XPANDFLG
     4744   03 00EAC    35500187 A            STW,5    STEPSTAT
     4745   03 00EAD    3250022F A            LW,5     :MEMLAST
     4746   03 00EAE    355001CE A            STW,5    DIOLIST
     4747   03 00EAF    22F00020 A            LI,15    X'20'             DISARM
     4748   03 00EB0    6DF01100 A            WD,15    X'1100'              I/O INTERRUPT
     4749   03 00EB1    22F00010 A            LI,15    X'10'             ARM AND ENABLE
     4750   03 00EB2    6DF01200 A            WD,15    X'1200'              CONTROL PANEL INTERRUPT
     4751   03 00EB3    6D000022 A            WD,0     X'22'             RESET I/O INTERRUPTS INHIBITS
     4752   03 00EB4    6D000040 A            WD,0     X'40'             RESET ALARM
     4753   03 00EB5    6AF00FFC              BAL,15   T:SETUP
     4754                            *
     4755   03 00EB6    68080EB7              B        %+1,4
     4756   03 00EB7    68000EB7              B        %
     4757   03 00EB8    6AF00ED2              BAL,15   DIORESET
     4758                            T:EXEC3 ;
     4759   03 00EB9    6AF00FC3              BAL,15   DOPL
     4760   03 00EBA    6AF00ECE              BAL,15   T:LOOPCC
     4761   03 00EBB    6AF00F9E              BAL,15   DOIO
     4762   03 00EBC    6AF00ECF              BAL,15   T:LOOP
     4763   03 00EBD    6AF00FC6     EXPTRAP  BAL,15   DOAL
     4764   03 00EBE    6AF00ECE              BAL,15   T:LOOPCC
     4765   03 00EBF    6AF00EFC     T:EXEC1  BAL,15   TP:HEAD
     4766   03 00EC0    68000EC1              B        %+1
     4767   03 00EC1    6AF0100C              BAL,15   TP:TRAP
     4768   03 00EC2    6AF00ECB              BAL,15   T:EXEC2
     4769   03 00EC3    6AF01060              BAL,15   DIOCHECK
     4770   03 00EC4    6AF00ECB              BAL,15   T:EXEC2
     4771   03 00EC5    6AF00F55              BAL,15   STEPRINT
     4772   03 00EC6    68000EC7              B        %+1
     4773   03 00EC7    6AF00FB7              BAL,15   DOCOMP
     4774   03 00EC8    6AF00ECB              BAL,15   T:EXEC2
     4775   03 00EC9    6AF00F66              BAL,15   T:END
     4776   03 00ECA    6AF00ECB              BAL,15   T:EXEC2
     4777   03 00ECB    6AF00F6C     T:EXEC2  BAL,15   L:CONTR
     4778   03 00ECC    68000EBF              B        T:EXEC1
     4779   03 00ECD    68000ECD              B        %
     4780   03 00ECE    3510158B     T:LOOPCC STW,1    CCDIOERR
     4781   03 00ECF    35101588     T:LOOP   STW,1    E:ERROR
     4782   03 00ED0    35101587              STW,1    E:MARKER
     4783   03 00ED1    68000ECB              B        T:EXEC2
     4784   03 00ED2    31301586     DIORESET CW,3     E:PRINT
     4785   03 00ED3    E910000F A            BL       *15
     4786   03 00ED4    22800005 A            LI,8     5
     4787   03 00ED5    ED801561              WD,8     *DIOAD3
     4788   03 00ED6    6AF00FD1              BAL,15   CCXX
     4789   03 00ED7    68000EB9              B        T:EXEC3
     4790                                     PAGE
     4791                            *                 T E S T  P R I N T  C O N T R O L  R O U T I N E
     4792                            *
     4793                            *                 THIS ROUTINE DOES ALL THE COMPARING OF
     4794                            *                 EXPECTED AND OBSERVED INFORMATION, THE SETTING
     4795                            *                 OF THE ERROR FLAG AND THE CONTROLLING OF
     4796                            *                 MESSAGE PRINTING.
     4797                            *
     4798                            *                 INPUT PARAMETERS:
     4799                            *                     R7            OBSERVED INFORMATION
     4800                            *                     R8            EXPECTED INFORMATION
     4801                            *                     R9            MASK
     4802                            *                     R14           RTN ADDR TO PRINT ROUTINE
     4803                            *                     R15           RTN ADDR TO CALLING ROUTINE OF THE
     4804                            *                                       PRINT ROUTINE
     4805                            *
     4806                            *                 REGISTER DISTURBED:
     4807                            *                     NONE
     4808                            *
     4809                            *                 OUTPUT PARAMETERS:
     4810                            *                     E:ERROR, E:MARKER (MODIFIED)
     4811                            *
     4812                            *
     4813                            *                 CALLING FORMAT:
     4814                            *
     4815                            *                     BAL,14        TP:CONTR
     4816                            *                     %             (RETURN)
     4817                            *
     4818   03 00ED8    15E015C8     TP:CONTR STD,14   TP:RTNP           SAVE RTN ADDRS
     4819   03 00ED9    31301586              CW,3     E:PRINT           TEST PRINT INDICATOR
     4820   03 00EDA    68100EDC              BGE      %+2               IF GREATER THAN 2
     4821   03 00EDB    32700008 A            LW,7     8                     FAKE RECEIVED INFORMATION
     4822   03 00EDC    22E00000 A            LI,14    0                 ZERO ERROR
     4823   03 00EDD    35E01587              STW,14   E:MARKER              MARKER
     4824   03 00EDE    45800007 A            CS,8     7                 TEST EXPECTED AND RECEIVED INFO
     4825   03 00EDF    68300EEA              BE       TP:CON02             IF = CONTINUE
     4826   03 00EE0    35101587              STW,1    E:MARKER          SET ERROR MARKER
     4827   03 00EE1    72F0019B A            LB,15    MSGADR            LOAD AND SAVE
     4828   03 00EE2    35F001B9 A            STW,15   DASHNOER              ERROR DASH NO.
     4829   03 00EE3    31201588              CW,2     E:ERROR           TEST ERROR INDICATOR
     4830   03 00EE4    68300EE8              BE       TP:CON01             IF NOT = 2
     4831   03 00EE5    35101588              STW,1    E:ERROR               SET TO 1
     4832   03 00EE6    6AF01552              BAL,15   SENSE4            IF SS4 IS SET TURN ON ALARM
     4833   03 00EE7    6D000041 A            WD,0     X'41'             TURN ON ERROR ALARM
     4834   03 00EE8    6AF01552     TP:CON01 BAL,15   SENSE4            TEST FOR PRINT INHIBIT
     4835   03 00EE9    E80015C9              B        *TP:RTN
     4836                            TP:CON02 ;
     4837   03 00EEA    31201588              CW,2     E:ERROR           TEST ERROR INDICATOR
     4838   03 00EEB    E93015C9              BNE      *TP:RTN               IF NOT = 2  RTN
     4839   03 00EEC    33001587              MTW,0    E:MARKER          TEST ERROR MARKER
     4840   03 00EED    E93015C8              BNEZ     *TP:RTNP              IF SET GO PRINT ERROR
     4841   03 00EEE    33001586              MTW,0    E:PRINT           TEST PRINT INDICATOR
     4842   03 00EEF    E93015C8              BNEZ     *TP:RTNP              IF SET GO PRINT DISPLAY
     4843   03 00EF0    E80015C9              B        *TP:RTN               OTHERWISE SKIP PRINTING
     4844                                     PAGE
     4845                            *                 C O L L E C T  D I S P L A Y  S T A T U S
     4846                            *
     4847                            *                 THIS ROUTINE READS ALL DISPLAY REGISTERS WITHIN
     4848                            *                 THE RIOP VIE READ DIRECTS
     4849                            *
     4850                            *                 INPUT PARAMETERS:
     4851                            *                     NONE
     4852                            *                 REGISTER DISTURBED:
     4853                            *                     R4,R6,R7,R8,R14,R15
     4854                            *                 OUTPUT PARAMETERS:
     4855                            *                     GROUP0-GROUP6 SET UP
     4856                            *
     4857                            *                 CALLING FORMAT:
     4858                            *                     BAL,15        COLLECT
     4859                            *                     B             CCZZ     TEST REQUIRED FOR THE CC'S
     4860                            *                     %+1           (RETURN)
     4861                            *
     4862   03 00EF1    35F01589     COLLECT  STW,15   COLTRTN           SAVE RTN
     4863   03 00EF2    32F00EFB              LW,15    COLTRD
     4864   03 00EF3    35F00EF6              STW,15   COLT3
     4865   03 00EF4    224FFFF9 A            LI,4     -7                SET UP INDEX
     4866   03 00EF5    22F00EF8     COLT1    LI,15    COLT2             SET UP RETURN
     4867   03 00EF6    EC80155E     COLT3    RD,8     *DIOAD0           GO GATHER STATUS
     4868   03 00EF7    E7001589              EXU      *COLTRTN          GO TEST CONDITION CODES
     4869                            COLT2 ;
     4870   03 00EF8    66100EF6              AWM,1    COLT3
     4871   03 00EF9    65400EF5              BIR,4    COLT1             OTHERWISE LOOP
     4872   03 00EFA    E8021589              B        *COLTRTN,1
     4873                            *
     4874   03 00EFB    EC80155E     COLTRD   RD,8     *DIOAD0
     4875                                     PAGE
     4876                            *                 T E S T  /  P R I N T  H E A D E R
     4877                            *
     4878                            *                 THIS ROUTINE CONTROLS PRINTING OF HEADER
     4879                            *                 INFORMATION.
     4880                            *
     4881                            *                 INPUT PARAMETERS:
     4882                            *                      TSNUMBER     TEST NUMBER
     4883                            *                      :DEVADDR     I/O ADDRESS
     4884                            *                      DIOADO       DIO ADDRESS
     4885                            *                      E:MARKER     ERROR MARKER
     4886                            *                      PASSCNT      PASS COUNT
     4887                            *                      ERRCNT       ERROR COUNT
     4888                            *
     4889                            *                 REGISTER DISTURBED:
     4890                            *                      R14,R15
     4891                            *
     4892                            *                 OUTPUT PARAMETERS:
     4893                            *                      MESSAGES DESCRIBING THE STATE OF THE RIOP
     4894                            *
     4895                            *                 CALLING SEQUENCE:
     4896                            *                      BAL,15       TP:HEAD
     4897                            *                      B            %        UNRECOVERABLE ERROR
     4898                            *                      %            RETURN   NORMAL RETURN
     4899                            *
     4900   03 00EFC    3310000F A   TP:HEAD  MTW,1    15
     4901   03 00EFD    22E00F00              LI,14    %+3               SET UP RTN FOR
     4902   03 00EFE    15E015C8              STD,14   TP:RTNP               TP:RTNP
     4903   03 00EFF    68000EE8              B        TP:CON01          GO TEST TO SEE IF HEADER IS REQD
     4904   03 00F00    22E00004 A            LI,14    4
     4905   03 00F01    6AF00AA5              BAL,15   MSGOUT
     4906   03 00F02    00001DCF              DATA     BA(CCERMA)
     4907   03 00F03    64E00F01              BDR,14   %-2
     4908   03 00F04    351006BF              STW,1    VDEC2A
     4909   03 00F05    32F002E0 A            LW,15    TST1PONT          LOAD AND SET UP
     4910   03 00F06    35F006C2              STW,15   VDEC4A                TEST NUMBER
     4911   03 00F07    32F002BF A            LW,15    :DEVADDR          LOAD AND SET UP
     4912   03 00F08    35F006C6              STW,15   VHEX4A            I/O ADDR
     4913   03 00F09    72F0019B A            LB,15    MSGADR            LOAD AND SAVE TEST DASH NO.
     4914   03 00F0A    4BF03032              AND,15   =X'7F'            REMOVE INDIRECT MSG ADDR INDICATOR
     4915   03 00F0B    35F006CA              STW,15   VDEC2C
     4916   03 00F0C    22F01E32              LI,15    BA(THEADER)
     4917   03 00F0D    311002D5 A            CW,1     ITHTEST
     4918   03 00F0E    68300F13              BE       %+5
     4919   03 00F0F    22F0216E              LI,15    BA(#MSGER02)
     4920   03 00F10    312002D5 A            CW,2     ITHTEST
     4921   03 00F11    68300F13              BE       %+2
     4922   03 00F12    22F02174              LI,15    BA(#MSGER03)
     4923   03 00F13    35F00F15              STW,15   %+2
     4924   03 00F14    6AF00AA5              BAL,15   MSGOUT            PRINT ='TST1 DDDD - DD
     4925   03 00F15    00001E32              DATA     BA(THEADER)           I/O ADDRESS XXXX'
     4926   03 00F16    22F01E2E              LI,15    BA(THMSG)         LOAD ADDR OF MSG
     4927   03 00F17    33001587              MTW,0    E:MARKER
     4928   03 00F18    69300F1A              BNEZ     %+2
     4929   03 00F19    22F01E30              LI,15    BA(THMSG1)
     4930   03 00F1A    35F00F1C              STW,15   TP:HD1
     4931   03 00F1B    6AF00AA5              BAL,15   MSGOUT            PRINT HEADER
     4932   03 00F1C    00000000 A   TP:HD1   DATA     0                     MSG
     4933   03 00F1D    EAF0021C A            BAL,15   *:PRINT
     4934   03 00F1E    00001662              DATA     DASHS
     4935   03 00F1F    32F0019B A            LW,15    MSGADR            LOAD ADDR OF MSG
     4936   03 00F20    4BF03029              AND,15   =X'FFFFFF'        REMOVE DASH NO.
     4937   03 00F21    68300F33              BEZ      TP:HEAD5          IF ADDR ZERO EXIT
     4938                            *
     4939                            *
     4940   03 00F22    35F00F32              STW,15   TP:HEAD4          SAVE ADDR IN CASE OF DIRECT
     4941   03 00F23    3300019B A            MTW,0    MSGADR                IF DIRECT
     4942   03 00F24    69200F31              BGZ      TP:HEAD3
     4943                            *
     4944   03 00F25    B2F0000F A            LW,15    *15               LOAD ADD OF MSG
     4945   03 00F26    4BF03029              AND,15   =X'FFFFFF'        REMOVE JUNK
     4946   03 00F27    35F00F2A              STW,15   TP:HEAD2          SAVE AS ADDR OF TITLE MESSAGE
     4947   03 00F28    68300F33              BEZ      TP:HEAD5          IF ADDR ZERO EXIT
     4948                            *
     4949   03 00F29    6AF00AA5              BAL,15   MSGOUT            PRINT: NAME OF TEST
     4950   03 00F2A    00000000 A   TP:HEAD2 DATA     0
     4951   03 00F2B    B2F2019B A            LW,15    *MSGADR,1         LOAD ADDR OF TEST OBJECTIVE
     4952   03 00F2C    4BF03029              AND,15   =X'FFFFFF'        REMOVE JUNK
     4953   03 00F2D    35F00F32              STW,15   TP:HEAD4          SAVE AS ADDR OF OBJECTIVE MESSAGE
     4954   03 00F2E    68300F33              BEZ      TP:HEAD5
     4955                            *
     4956                            *
     4957   03 00F2F    6AF00AA5              BAL,15   MSGOUT            PRINT:
     4958   03 00F30    00001E3D              DATA     BA(THMSGOBJ)          'TEST OBJECTIVE: TO VERIFY THAT'
     4959                            *
     4960                            *
     4961   03 00F31    6AF00AA5     TP:HEAD3 BAL,15   MSGOUT            PRINT: ADDITIONAL
     4962   03 00F32    00000000 A   TP:HEAD4 DATA     0                     INFORMATION
     4963                            *
     4964                            *
     4965                            TP:HEAD5 ;
     4966   03 00F33    330015B6              MTW,0    NOIOCD
     4967   03 00F34    E93015C9              BNEZ     *TP:RTN
     4968   03 00F35    6AF00F37              BAL,15   TP:IOCD           GO PRINT IOCD MSG'S
     4969   03 00F36    E80015C9              B        *TP:RTN           RETURN
     4970                                     PAGE
     4971                            *                 P R I N T  I / O  O P E R A T I O N
     4972                            *
     4973                            *                 THIS ROUTINE CONTROL THE PRINTING OF THE
     4974                            *                 TYPE OF I/O OPERATION THAT WAS PERFORMED.
     4975                            *
     4976                            *                 INPUT PARAMETERS:
     4977                            *                     IOINSTR       TYPE OF I/O INSTRUCTION EXECUTED
     4978                            *
     4979                            *                 REGISTER DISTURBED
     4980                            *                     R4,R12,R15
     4981                            *
     4982                            *                 OUTPUT PARAMETERS:
     4983                            *                     MESSAGE DESCRIBING THE I/O OPERATION
     4984                            *
     4985                            *                 CALLING FORMAT:
     4986                            *                     BAL,15        TP:IOCD
     4987                            *                     %             RETURN
     4988                            *
     4989   03 00F37    35F0158A     TP:IOCD  STW,15   TP:IORTN          SAVE RETURN ADDR
     4990   03 00F38    72F20199 A            LB,15    IOINSTR,1         FETCH R FIELD OF THE INSTRUCTION
     4991   03 00F39    25F0007C A            SLS,15   -4                RIGHT JUSTIFIED
     4992   03 00F3A    35F006BF              STW,15   VDEC2A            SET UP R FIELD
     4993   03 00F3B    22400000 A            LI,4     0                 SET INDEX
     4994   03 00F3C    32F00199 A            LW,15    IOINSTR           LOAD I/O INSTR
     4995   03 00F3D    4BF03037              AND,15   =X'7F00C000'      STRIP EXPECT FOR OP CODE
     4996   03 00F3E    31F81144     TP:IOCD1 CW,15    INSTRTAB,4        TEST IT AGAINST INSTR LIST
     4997   03 00F3F    68300F43              BE       TP:IOCD2          IF EQUAL EXIT
     4998   03 00F40    20400001 A            AI,4     1                 UP DATE INDEX
     4999   03 00F41    21400007 A            CI,4     7                 TEST FOR UPPER LIMIT
     5000   03 00F42    68200F3E              BLE      TP:IOCD1              IF NOT REACHED LOOP
     5001   03 00F43    32F80F4C     TP:IOCD2 LW,15    IOMSGADR,4        LOAD BA OF MSG
     5002   03 00F44    35F00F46              STW,15   TP:IOCD3              AND SAVE
     5003   03 00F45    6AF00AA5              BAL,15   MSGOUT            PRINT: 'I/O OPERATION --------'
     5004   03 00F46    00000000 A   TP:IOCD3 DATA     0
     5005   03 00F47    33000004 A            MTW,0    4                 TEST FOR AN SIO
     5006   03 00F48    E930158A              BNE      *TP:IORTN             IF NOT EXIT
     5007   03 00F49    32C001D0 A            LW,12    IODWADR           OTHERWISE GO PRINT
     5008   03 00F4A    6AF00B47              BAL,15   IOCDP
     5009   03 00F4B    E800158A              B        *TP:IORTN         EXIT
     5010   03 00F4C    00001DF9     IOMSGADR DATA     BA(IOMSGSIO)
     5011   03 00F4D    00001DFF              DATA     BA(IOMSGTIO)
     5012   03 00F4E    00001E05              DATA     BA(IOMSGTDV)
     5013   03 00F4F    00001E0B              DATA     BA(IOMSGHIO)
     5014   03 00F50    00001E11              DATA     BA(IOMSGRIO)
     5015   03 00F51    00001E17              DATA     BA(IOMSGPLP)
     5016   03 00F52    00001E1D              DATA     BA(IOMSGAIO)
     5017   03 00F53    00001E23              DATA     BA(IOMSGPLR)
     5018   03 00F54    00001E29              DATA     BA(IOMSGNON)
     5019                                     PAGE
     5020                            *
     5021                            *                 STEP PRINT ROUTINE
     5022   03 00F55    35F0018C A   STEPRINT STW,15   LISTEXIT
     5023   03 00F56    31201588              CW,2     E:ERROR
     5024   03 00F57    E932000F A            BNE      *15,1
     5025   03 00F58    32E00187 A            LW,14    STEPSTAT
     5026   03 00F59    21E00004 A            CI,14    4                 TEST FOR  TS
     5027   03 00F5A    68400F5D              BCR,4    %+3
     5028   03 00F5B    6AF00AA5              BAL,15   MSGOUT
     5029   03 00F5C    00001E62              DATA     BA(TSSTOP)
     5030   03 00F5D    21E00002 A            CI,14    2
     5031   03 00F5E    68400F61              BCR,4    %+3               TEST FOR TI
     5032   03 00F5F    6AF00AA5              BAL,15   MSGOUT
     5033   03 00F60    00001E69              DATA     BA(TISTOP)
     5034   03 00F61    21E00001 A            CI,14    1
     5035   03 00F62    68400F65              BCR,4    %+3               TEST FOR TR
     5036   03 00F63    6AF00AA5              BAL,15   MSGOUT
     5037   03 00F64    00001E70              DATA     BA(TRSTOP)
     5038   03 00F65    E802018C A            B        *LISTEXIT,1
     5039                            *
     5040                            *                 T E S T  P R I N T  E N D  M E S S A G E
     5041                            *
     5042   03 00F66    31201588     T:END    CW,2     E:ERROR
     5043   03 00F67    E932000F A            BNE      *15,1
     5044   03 00F68    35F0018C A            STW,15   LISTEXIT
     5045   03 00F69    6AF00AA5              BAL,15   MSGOUT
     5046   03 00F6A    0000204C              DATA     BA(ENDMSG)
     5047   03 00F6B    E802018C A            B        *LISTEXIT,1
     5048                                     PAGE
     5049                            *                 L O O P  C O N T R O L
     5050                            *
     5051                            *                 THIS ROUTINE CONTROL THE LOOPING
     5052                            *                 OF SUBTESTS.
     5053                            *
     5054                            *                 INPUT PARAMETERS:
     5055                            *                     T:EXIT        ADDR OF WHERE TO BRANCH TO WHEN
     5056                            *                                   CONTROL IS TO BE RETURN TO A
     5057                            *                                   SUBTEST
     5058                            *                 REGISTER DISTURBED:
     5059                            *                     NONE
     5060                            *
     5061                            *
     5062                            *                 OUTPUT PARAMETERS:
     5063                            *                   E:ERROR, E:MARKER (MODIFIED)
     5064                            *
     5065                            *                 CALLING FORMAT:
     5066                            *
     5067                            *                      LI,X         (SEE ABOVE)
     5068                            *                      STW,X        T:EXIT
     5069                            *                      BAL,15       L:CONTR
     5070                            *                      B            (TO ERROR PASS)
     5071                            *
     5072   03 00F6C    35F0159A     L:CONTR  STW,15   L:CONTRTN         SAVE RTN ADDR
     5073   03 00F6D    32E001CF A            LW,14    T:EXIT
     5074   03 00F6E    22F00000 A            LI,15    0                                                 *A02
     5075   03 00F6F    35F00F9D              STW,15   WAITFLAG                                          *A02
     5076   03 00F70    EAF0022A A            BAL,15   *:QSENSE          GO TEST SENSE SWITCHES          *A02
     5077   03 00F71    68200F7E              BCR,2    L:CONT5           WAIT                            *A02
     5078   03 00F72    35100F9D              STW,1    WAITFLAG                                          *A02
     5079   03 00F73    69800F76              BCS,8    L:CONT4           LOOP TO TEST                    *A02
     5080   03 00F74    22E00F87              LI,14    L:CONT6           CONTINUE
     5081   03 00F75    68000F7E              B        L:CONT5
     5082                            *
     5083                            *
     5084         03 00F76           L:CONT4  EQU      %                 IF SS2 IS NOT SET               *A02
     5085   03 00F76    68400F7E              BCR,4    L:CONT41              BRANCH
     5086   03 00F77    32F001B9 A            LW,15    DASHNOER          IF DASH NO. ERROR IS
     5087   03 00F78    69100F7E              BLZ      L:CONT41              RESET BRANCH
     5088   03 00F79    71F0019B A            CB,15    MSGADR            IF SUBTEST DASH NO. AND
     5089   03 00F7A    69300F7E              BNE      L:CONT41              INTERMITTENT ERROR NOT = BRANCH
     5090   03 00F7B    33001588              MTW,0    E:ERROR           IF ERROR ALREADY DETECTED
     5091   03 00F7C    69300F7E              BNEZ     L:CONT41              BRANCH
     5092   03 00F7D    35201588              STW,2    E:ERROR           FAKE AN ERROR
     5093         03 00F7E           L:CONT41 EQU      %                                                 *A02
     5094   03 00F7E    35E0159B     L:CONT5  STW,14   L:EXIT            SAVE RTN ADR
     5095   03 00F7F    22E00000 A            LI,14    0                 ZERO
     5096   03 00F80    35E01587              STW,14   E:MARKER              ERROR MARKER FLAG
     5097   03 00F81    31201588              CW,2     E:ERROR           TEST ERROR INDICATOR
     5098   03 00F82    68300F8E              BE       L:CONTR1              IF = 2 GO TO EXIT
     5099   03 00F83    33001588              MTW,0    E:ERROR           TEST ERROR INDICATOR
     5100   03 00F84    69300F97              BNEZ     L:CONTR2              IF NOT = 0 GO SET PRINT PASS
     5101   03 00F85    31301586              CW,3     E:PRINT           TEST PRINT INDICATOR
     5102   03 00F86    68200F9A              BLE      L:CONTR4             IF < 2 CONTINUE
     5103                            L:CONT6  ;
     5104   03 00F87    3300159C              MTW,0    T:OCCUR           TEST FOR TRAP OCCURRED
     5105   03 00F88    68300F8B              BEZ      %+3
     5106   03 00F89    68000F8A              B        %+1               ****
     5107   03 00F8A    EAF015A2              BAL,15   *T:RTN            GO RELEASE TRAP
     5108   03 00F8B    22E00000 A            LI,14    0
     5109   03 00F8C    35E0159C              STW,14   T:OCCUR           ZERO TRAP OCCURRED FLAG
     5110   03 00F8D    E80201CF A            B        *T:EXIT,1         TAKE NORMAL EXIT                *A02
     5111                            *
     5112   03 00F8E    35E01588     L:CONTR1 STW,14   E:ERROR           ZERO ERROR INDICATOR
     5113   03 00F8F    35E0159C              STW,14   T:OCCUR           ZERO TRAP OCCURRED FLAG
     5114   03 00F90    330015A5              MTW,0    E:DISPLY
     5115   03 00F91    68300F87              BEZ      L:CONT6
     5116   03 00F92    33000F9D              MTW,0    WAITFLAG                                          *A02
     5117   03 00F93    E930159B              BNEZ     *L:EXIT                                           *A02
     5118   03 00F94    EAF0022B A            WAITPROC WAITMSG1                                          *A02
            03 00F95    00003023
     5119   03 00F96    E800159B              B        *L:EXIT           TAKE EXIT BASIC ON SENSE SWITCHES
     5120                            *
     5121   03 00F97    35101587     L:CONTR2 STW,1    E:MARKER          SET ERROR MARKER FLAG
     5122   03 00F98    35201588     L:CONTR3 STW,2    E:ERROR           SET ERROR INDICATOR FOR SECOND PASS
     5123   03 00F99    E800159A              B        *L:CONTRTN        GO REPORT ERROR
     5124   03 00F9A    32E01588     L:CONTR4 LW,14    E:ERROR
     5125   03 00F9B    35E015A5              STW,14   E:DISPLY
     5126   03 00F9C    68000F98              B        L:CONTR3
     5127   03 00F9D    00000000 A   WAITFLAG DATA     0
     5128                                     PAGE
     5129                            *                 D O  I / O  O P E R A T I O N
     5130                            *
     5131                            *                 THIS ROUTINE ISSUES I/O INSTRUCTIONS TO THE
     5132                            *                 RIOP, AND SAVES THE STATUS AND CONDITIONS CODES
     5133                            *                 RETURN FROM THIS OPERATION.
     5134                            *
     5135                            *                 INPUT PARAMETERS:
     5136                            *                     IOINSTR       THE I/O INSTRUCTION TO BE EXECUTED
     5137                            *                     E:PRINT       IF =<2 SKIP DOING I/O
     5138                            *                     IODWADR       DA(IOCD) SIO ONLY
     5139                            *                 REGISTER DISTURBED:
     5140                            *                     R12,R13
     5141                            *
     5142                            *                 OUTPUT PARAMETERS:
     5143                            *                     I/O ISSUED
     5144                            *                     I/O STATUS STORED IN :STATUSCC
     5145                            *
     5146                            *                 CALLING FORMAT:
     5147                            *
     5148                            *                     BAL,15        DOIO
     5149                            *                     B             ERROR RTN FROM THIS ROUTINE
     5150                            *                     %             GOOD RTN
     5151                            *
     5152                            *
     5153   03 00F9E    31301586     DOIO     CW,3     E:PRINT           TEST PRINT INDICATOR
     5154   03 00F9F    E912000F A            BL       *15,1                 IF GREATER THAN 2 SKIP I/O
     5155   03 00FA0    35F0018C A            STW,15   LISTEXIT          SAVE RTN
     5156   03 00FA1    32F00199 A            LW,15    IOINSTR           LOAD INTRUCTION
     5157   03 00FA2    E832018C A            BEZ      *LISTEXIT,1          IF ZERO EXIT
     5158   03 00FA3    320001D0 A            LW,0     IODWADR           LOAD DA(IOCD)
     5159   03 00FA4    22C00000 A            LI,12    0                 ZERO R12
     5160   03 00FA5    22D00000 A            LI,13    0                 ZERO R13
     5161   03 00FA6    15C001D2 A            STD,12   DOIOSTAT          ZERO IN CASE OF TRAP
     5162   03 00FA7    15C001D4 A            STD,12   SIOSTAT           ZERO IN CASE OF TRAP
     5163   03 00FA8    4BF03038              AND,15   =X'7FFFC000'
     5164   03 00FA9    7270000F A            LB,7     15
     5165   03 00FAA    2170006E A            CI,7     X'6E'             TEST FOR AIO
     5166   03 00FAB    68300FAD              BE       %+2               IF AIO BRANCH
     5167   03 00FAC    30F002BF A            AW,15    :DEVADDR
     5168   03 00FAD    6700000F A            EXU      15                DO I/O
     5169   03 00FAE    74020007 A            STCF     7,1               SET UP
     5170   03 00FAF    4B703039              AND,7    =X'00E00000'          TO SAVE
     5171   03 00FB0    30C00007 A            AW,12    7                     CC'S
     5172   03 00FB1    15C001D2 A            STD,12   DOIOSTAT
     5173   03 00FB2    72F0000F A            LB,15    15                LOAD OP CODE
     5174   03 00FB3    21F0004C A            CI,15    X'4C'                 IF NOT
     5175   03 00FB4    E932018C A            BNE      *LISTEXIT,1           SIO BRANCH
     5176   03 00FB5    15C001D4 A            STD,12   SIOSTAT
     5177   03 00FB6    E802018C A            B        *LISTEXIT,1
     5178                                     PAGE
     5179                            *                 D O  C O M P A R E  O P E R A T I O N
     5180                            *
     5181                            *                 THIS ROUTINE SETS UP AND TEST FOR THE INITIAL
     5182                            *                 CONDITION REQUIRED BY ANY COMPARE LIST
     5183                            *
     5184                            *                 INPUT PARAMETERS:
     5185                            *                     CLADR         ADDRESS OF COMPARE LIST:IF =0 NONE
     5186                            *
     5187                            *                 REGISTER DISTURBED:
     5188                            *                     R15
     5189                            *
     5190                            *                 OUTPUT PARAMETERS:
     5191                            *                     CONTROL TRANSFERRED TO A LIST OF COMPARE ROUTINES
     5192                            *
     5193                            *                 CALLING FORMAT:
     5194                            *                     BAL,15        DOCOMP
     5195                            *                     %             NON RECOVERABLE RETURN
     5196                            *                     %+1           NORMAL RETURN
     5197                            *
     5198   03 00FB7    35F0018C A   DOCOMP   STW,15   LISTEXIT
     5199   03 00FB8    32F0158C              LW,15    ALFPOINT          LOAD AN SAVE POINTER TO ACTIVE
     5200   03 00FB9    35F0158D              STW,15   REGPOINT              DIO LIST
     5201   03 00FBA    3300019C A            MTW,0    CLADR             IS THERE ANYTHING TO COMPARE
     5202   03 00FBB    E832018C A            BEZ      *LISTEXIT,1        IF NOT EXIT
     5203   03 00FBC    33001588              MTW,0    E:ERROR           IS THERE ANY DETECTED ERRORS
     5204   03 00FBD    68300FC0              BEZ      DOCOMP1           IF NOT GO DO COMPARE LIST
     5205   03 00FBE    6AF01552              BAL,15   SENSE4            GO TEST SS4
     5206   03 00FBF    E802018C A            B        *LISTEXIT,1         IF SET DON'T DO COMPARE LIST
     5207                            DOCOMP1 ;
     5208   03 00FC0    EAF0019C A            BAL,15   *CLADR            GO DO THE COMPARE LIST
     5209   03 00FC1    E802018C A   DOCOMP2  B        *LISTEXIT,1       NORMAL EXIT
     5210   03 00FC2    E800018C A            B        *LISTEXIT         NON RECOVERABLE EXIT
     5211                                     PAGE
     5212                            *                 D O  D I O  C O N T R O L  L I S T S
     5213                            *
     5214                            *                 THESE ROUTINES CONTROLS ALL INTERNAL CONTROL
     5215                            *                 AND DISPLAY FUNCTIONS OF THE RIOP VIE THE
     5216                            *                 DIO INTERFACE.
     5217                            *
     5218                            *                 INPUT PARAMETERS:
     5219                            *                     PLADR         PRE-LIST ADRRESS
     5220                            *                     ALADR         AFTER-LIST ADDRESS
     5221                            *                     DIOLIST       LIST OF ALL EXECUTED DIO INSTR
     5222                            *                 REGISTER DISTURBED:
     5223                            *                     R6,R7,R8,R14,R15
     5224                            *
     5225                            *                 OUTPUT PARAMETERS:
     5226                            *                     EXECUTION OF A DIO CONTROL LIST
     5227                            *
     5228                            *                 CALLING FORMAT:
     5229                            *
     5230                            *                     BAL,15        DOPL OR DOAL
     5231                            *                     %             CONDITION CODE ERROR
     5232                            *                 %+1               NORMAL RETURN
     5233                            *
     5234   03 00FC3    22D00EBD     DOPL     LI,13    EXPTRAP
     5235   03 00FC4    32E00198 A            LW,14    PLADR
     5236   03 00FC5    68000FCA              B        DOAL1
     5237                            *
     5238   03 00FC6    32E001CE A   DOAL     LW,14    DIOLIST           LOAD AND SAVE STARTING ADDRESS
     5239   03 00FC7    35E0158C              STW,14   ALFPOINT              OF ACTIVE DIO LIST
     5240   03 00FC8    22D00EBF              LI,13    T:EXEC1
     5241   03 00FC9    32E0019A A            LW,14    ALADR             LOAD ADR OF AFTER LIST
     5242                            DOAL1    ;
     5243   03 00FCA    E832000F A            BEZ      *15,1             IF ZERO NO LIST
     5244   03 00FCB    35F0018C A            STW,15   LISTEXIT          SAVE RTN
     5245   03 00FCC    35D015A0              STW,13   T:HANEXIT
     5246   03 00FCD    31301586              CW,3     E:PRINT           TEST PRINT INDICATOR
     5247   03 00FCE    E912000F A            BL       *15,1                 IF  < 2 EXIT
     5248   03 00FCF    EAF0000E A            BAL,15   *14               GO DO LIST
     5249   03 00FD0    680010C1              B        XIT
     5250                            *
     5251   03 00FD1    6AE00FE3     CCXX     BAL,14   CCTEST
     5252   03 00FD2    00000000 A            DATA     X'0000'
     5253                            *
     5254   03 00FD3    6AE00FE3     CCX0     BAL,14   CCTEST
     5255   03 00FD4    00001000 A            DATA     X'1000'
     5256                            *
     5257   03 00FD5    6AE00FE3     CCX1     BAL,14   CCTEST
     5258   03 00FD6    00001010 A            DATA     X'1010'
     5259                            *
     5260   03 00FD7    6AE00FE3     CC0X     BAL,14   CCTEST
     5261   03 00FD8    00002000 A            DATA     X'2000'
     5262                            *
     5263   03 00FD9    6AE00FE3     CC1X     BAL,14   CCTEST
     5264   03 00FDA    00002020 A            DATA     X'2020'
     5265                            *
     5266   03 00FDB    6AE00FE3     CC00     BAL,14   CCTEST
     5267   03 00FDC    00003000 A            DATA     X'3000'
     5268                            *
     5269   03 00FDD    6AE00FE3     CC01     BAL,14   CCTEST
     5270   03 00FDE    00003010 A            DATA     X'3010'
     5271                            *
     5272   03 00FDF    6AE00FE3     CC10     BAL,14   CCTEST
     5273   03 00FE0    00003020 A            DATA     X'3020'
     5274                            *
     5275   03 00FE1    6AE00FE3     CC11     BAL,14   CCTEST
     5276   03 00FE2    00003030 A            DATA     X'3030'
     5277                            *
     5278                            *
     5279   03 00FE3    F400000E A   CCTEST   STCF     *14               SAVE THE CONDITION CODES
     5280   03 00FE4    33D001CE A            MTW,-3   DIOLIST
     5281   03 00FE5    B260000E A            LW,6     *14               LOAD OBS,EXP,MASK CC
     5282   03 00FE6    33E0000F A            MTW,-2   15                BACK UP RETURN ADDR
     5283   03 00FE7    B270000F A            LW,7     *15               LOAD DIO INSTRUCTION
     5284   03 00FE8    02200030 A            LCI      3                 SAVE DIO OPER AND
     5285   03 00FE9    AB6001CE A            STM,6    *DIOLIST              CONDITION CODES IN A LIST
     5286   03 00FEA    32D00007 A            LW,13    7
     5287   03 00FEB    4B70303A              AND,7    =X'1FFFF'
     5288   03 00FEC    B2700007 A            LW,7     *7
     5289   03 00FED    4B70303B              AND,7    =7
     5290   03 00FEE    31D0303C              CW,13    =X'01000000'
     5291   03 00FEF    69400FF7              BCS,4    CCTEST2
     5292   03 00FF0    358E01BB A            STW,8    GROUP0,7
     5293                            CCTEST1 ;
     5294   03 00FF1    F2B4000E A            LB,11    *14,2             LOAD  MASK
     5295   03 00FF2    F2A0000E A            LB,10    *14               LOAD OBS CC
     5296   03 00FF3    45A00006 A            CS,10    6                 TEST TO DETERMINE IF THEY WERE GOOD
     5297   03 00FF4    E834000F A            BE       *15,2                IF SO NORMAL RTN
     5298   03 00FF5    3510158B              STW,1    CCDIOERR          SET CC DIO ERROR
     5299   03 00FF6    E804000F A            B        *15,2             TAKE ERROR EXIT
     5300                            *
     5301   03 00FF7    21700001 A   CCTEST2  CI,7     1
     5302   03 00FF8    69300FF1              BNE      CCTEST1
     5303   03 00FF9    49800187 A            OR,8     STEPSTAT
     5304   03 00FFA    35800187 A            STW,8    STEPSTAT
     5305   03 00FFB    68000FF1              B        CCTEST1
     5306                                     PAGE
     5307                            *                 T R A P / I N T E R R U P T  I N I T I A L I Z E R
     5308                            *
     5309                            *                 THIS ROUTINE SETS UP THE TRAP/INTERRUPT
     5310                            *                 HANDLING PARAMETERS.
     5311                            *
     5312                            *                 INPUT PARAMETERS:
     5313                            *                     (SEE CALLING SEQUENCE)
     5314                            *
     5315                            *                 REGISTER DISTURBED:
     5316                            *                     R14
     5317                            *
     5318                            *                 OUTPUT PARMETERS:
     5319                            *                     T:OCCUR, T:EXP, PASSCNT, ERRCNT,E:ERROR
     5320                            *                     T:CCADR,:PIT15
     5321                            *
     5322                            *                 CALLING SEQUENCE:
     5323                            *                      LI,X CC,0, (ADDR OF EXP TRAP/INTERRUPT)
     5324                            *                      LI,X+1  PFI STATUS, RTN ADR FOR DPM TRAP/INT
     5325                            *                      STD,X     TRAPEXP
     5326                            *                     BAL,15        T:SETUP
     5327                            *                     %             RETURN
     5328                            *
     5329                            *
     5330                            *
     5331   03 00FFC    22E01008     T:SETUP  LI,14    T:HANDLE          SET UP
     5332   03 00FFD    7510000E A            STB,1    14                    RETURN ADDR
     5333                            T:SETUP1 ;
     5334   03 00FFE    35E0030F A            STW,14   :PIT15                FOR THE DPM TRAP/INT HANDLER
     5335   03 00FFF    22E00000 A            LI,14    0                 ZERO
     5336   03 01000    351015A5              STW,1    E:DISPLY
     5337   03 01001    35E0159E              STW,14   T:EXP                 TRAP EXPECTED FLAG
     5338   03 01002    35E01588              STW,14   E:ERROR               ERROR LEVEL INDICATOR
     5339   03 01003    32E015CA              LW,14    TRAPEXP           LOAD AND SAVE EXP CONDITION CODES
     5340   03 01004    35E0159F              STW,14   T:CCADR               AND TRAP/INT LOCATION
     5341   03 01005    68301007              BEZ      %+2               IF NONE EXPECTED BRANCH
     5342   03 01006    3510159E              STW,1    T:EXP                 OTHERWISE SET TRAP EXPECTED FLAG
     5343   03 01007    E800000F A            B        *15                EXIT
     5344                                     PAGE
     5345                            *                 T R A P  /  I N T E R R U P T  H A N D L E R
     5346                            *
     5347                            *                 THIS ROUTINE HANDLER THE CONTROL OF A TRAP/INTERRUPT
     5348                            *                 WHEN CONTROL IS PASSED FROM THE DPM TO THE
     5349                            *                 DIAGNOSTIC.
     5350                            *
     5351                            *                 INPUT PARAMETERS:
     5352                            *                     T:HANEXIT     PFI STATUS AND RTN ADR TO DIAGNOSTIC
     5353                            *                                   AFTER DPM HAS COMPLETLY PROCESSED
     5354                            *                                   TRAP/INT.
     5355                            *                 REGISTER DISTURBED:
     5356                            *                     R15
     5357                            *                 OUTPUT PARAMETERS:
     5358                            *                     T:REG         CC,TRAP/INTERRUPT LOCATION
     5359                            *                     T:OCCUR       TRAP OCCUR FLAG =1
     5360                            *                     T:RTN         DPM RETURN ADDR
     5361                            *
     5362                            *                 CALLING FORMAT (FROM DPM)
     5363                            *                     BAL,15        *:PIT15
     5364                            *
     5365                            T:HANDLE ;
     5366   03 01008    350015A1              STW,0    T:REG0            SAVE OBSERVED CC & TRAP LOCATION
     5367   03 01009    35F015A2              STW,15   T:RTN             SAVE DPM RETURN ADDR
     5368   03 0100A    3510159C              STW,1    T:OCCUR           SET TRAP OCCURRED FLAG
     5369   03 0100B    E80015A0              B        *T:HANEXIT
     5370                                     PAGE
     5371                            *                 T R A P  / I N T R  C O N T R O L  &  R E P O R T I NG
     5372                            *
     5373                            *                 THIS ROUTINE CONTROLS THE RELEASING AND PRINTING
     5374                            *                 OF TRAPS AND INTERRUPTS.
     5375                            *
     5376                            *                 INPUT PARAMETERS
     5377                            *                     T:OCCUR       TRAP OCCURRED FLAG
     5378                            *                     T:EXP         TRAP EXPECTED FLAG
     5379                            *                     T:REG0        OBSERVED: CC,TRAP/INTR LOCATION
     5380                            *                     T:RTN         DPM RETURN ADR
     5381                            *                     T:CCADR       EXPECTED: CC,TRAP/INTR LOCATION
     5382                            *
     5383                            *                 REGISTER DISTURBED:
     5384                            *                     R6,R14,R15
     5385                            *                 OUTPUT PARMETERS:
     5386                            *                     MSG'S DESCRIBING THE TRAP/INTR
     5387                            *                     RELEASE OF THE DPM
     5388                            *                 CALLING FORMAT:
     5389                            *                     BAL,15
     5390                            *                     %             NON RECOVERABLE RETURN
     5391                            *                     %+1           NORMAL RETURN
     5392                            *
     5393   03 0100C    15E015C8     TP:TRAP  STD,14   TP:RTNP           SAVE RTNS
     5394   03 0100D    22D0100F              LI,13    %+2               SET UP
     5395   03 0100E    35D015A0              STW,13   T:HANEXIT            RETURN FOR DOUBLE TRAP/INTERRUPT
     5396   03 0100F    3260159E              LW,6     T:EXP             FETCH TRAP EXPECTED FLAG
     5397   03 01010    31301586              CW,3     E:PRINT           TEST PRINT INDICATOR
     5398   03 01011    68101013              BGE      %+2               IF GREATER THAN 2
     5399   03 01012    22600000 A            LI,6     0                     FAKE THAT NO TRAP WAS EXPECTED
     5400   03 01013    22E00000 A            LI,14    0                 ZERO
     5401   03 01014    35E01587              STW,14   E:MARKER              ERROR MARKER
     5402   03 01015    3160159C              CW,6     T:OCCUR           TEST TRAP OCCURRED AND EXPECTED
     5403   03 01016    69301023              BNE      TP:TRAP1              IF NOT = ERROR
     5404   03 01017    3300159C              MTW,0    T:OCCUR           TEST TRAP OCCUR
     5405   03 01018    68301029              BEZ      TP:TRAP2              IF NONE GOOD
     5406   03 01019    32E015A1              LW,14    T:REG0            LOAD OCCURRED TRAP/INT LOC AND CC
     5407   03 0101A    31E0159F              CW,14    T:CCADR           IF NOT EQUAL TO
     5408   03 0101B    69301023              BNE      TP:TRAP1              EXPECTED = ERROR
     5409   03 0101C    4BE0303D              AND,14   =X'000000FF'      REMOVE ALL BUT TRAP/INT ADR
     5410   03 0101D    21E00056 A            CI,14    X'56'             IF NOT EQUAL TO
     5411   03 0101E    69301029              BNE      TP:TRAP2              PFI LOC = GOOD
     5412   03 0101F    326002BF A            LW,6     :DEVADDR          LOAD DEV ADDR
     5413   03 01020    4FCC8000 A            PLOP,12  0,6               GO GET PFI STATUS
     5414   03 01021    21C00040 A            CI,12    X'40'             WAS IT A BCF
     5415   03 01022    68301029              BE       TP:TRAP2          IF SO = GOOD
     5416         03 01023           TP:TRAP1 EQU      %
     5417   03 01023    6AF01552              BAL,15   SENSE4            IF SS4 IS SET TURN ON ALARM
     5418   03 01024    6D000041 A            WD,0     X'41'             TURN ON ERROR ALARM
     5419   03 01025    35101587              STW,1    E:MARKER          SET ERROR MARKER
     5420   03 01026    31201588              CW,2     E:ERROR           TEST ERROR INDICATOR
     5421   03 01027    68301029              BE       TP:TRAP2              IF NOT = 2
     5422   03 01028    35101588              STW,1    E:ERROR               SET ERROR INDICATOR = 1
     5423   03 01029    31201588     TP:TRAP2 CW,2     E:ERROR           TEST ERROR INDICATOR
     5424   03 0102A    E93215C9              BNE      *TP:RTN,1             IF  NOT =2 RTN
     5425   03 0102B    33001587              MTW,0    E:MARKER
     5426   03 0102C    69301033              BNEZ     TP:CONT
     5427   03 0102D    33001586              MTW,0    E:PRINT
     5428   03 0102E    69301033              BNEZ     TP:CONT
     5429   03 0102F    3300159C              MTW,0    T:OCCUR
     5430   03 01030    E83215C9              BEZ      *TP:RTN,1
     5431   03 01031    32F0303E              LW,15    L(X'01000000'+T:HANDLE)
     5432   03 01032    6800104C              B        TP:CONT7
     5433   03 01033    3300159E     TP:CONT  MTW,0    T:EXP             IF NO TRAP
     5434   03 01034    68301055              BEZ      TP:CONT1              EXPECTED BRANCH
     5435                            *
     5436                            *
     5437   03 01035    32F0159F              LW,15    T:CCADR           SET UP
     5438   03 01036    35F006C5              STW,15   VHEX2A                EXPECTED TRAP LOCATION
     5439   03 01037    25F00204 A            SCS,15   4                 SET UP
     5440   03 01038    35F006D3              STW,15   VBIN4A               EXPECTED CONDITION CODES
     5441   03 01039    33001587              MTW,0    E:MARKER          WAS THERE AN ERROR DETECTED
     5442   03 0103A    6830105D              BEZ      TP:CONT2              IF NOT BRANCH
     5443   03 0103B    6AF00AA5              BAL,15   MSGOUT            PRINT 'EXP TRAP/INTER= XX
     5444   03 0103C    00001EC0              DATA     BA(TMSGERR)           TCC = X ERROR'
     5445   03 0103D    32F002BF A   TP:CONT6 LW,15    :DEVADDR          LOAD AND
     5446   03 0103E    25F00078 A            SLS,15   -8                    SAVE
     5447   03 0103F    35F006C5              STW,15   VHEX2A                IOP ADDR
     5448   03 01040    72F015CB              LB,15    TRAPEXP+1
     5449   03 01041    35F006CC              STW,15   VHEX2B                PFI STATUS
     5450   03 01042    72F6159F              LB,15    T:CCADR,3         TEST
     5451   03 01043    21F00056 A            CI,15    X'56'                 FOR A PFI
     5452   03 01044    69301047              BNE      TP:CONT3              IF NONE BRANCH
     5453   03 01045    6AF00AA5              BAL,15   MSGOUT            PRINT 'PROC =XX F/STATUS XX'
     5454   03 01046    00001EDC              DATA     BA(TMSGPROC)
     5455   03 01047    3300159C     TP:CONT3 MTW,0    T:OCCUR           TEST FOR TRAP
     5456   03 01048    68301052              BEZ      TP:CONT4              IF ONE OCCURRED BRANCH
     5457   03 01049    6AF00AA5              BAL,15   MSGOUT            PRINT 'OBS'
     5458   03 0104A    00001EDA              DATA     BA(TMSGOBS1)
     5459   03 0104B    22F01008              LI,15    T:HANDLE          SET UP RTN
     5460                            TP:CONT7  ;
     5461   03 0104C    35F0030F A            STW,15   :PIT15
     5462   03 0104D    22F00000 A            LI,15    0
     5463   03 0104E    35F0159C              STW,15   T:OCCUR           ZERO TRAP OCCURRED FLAG
     5464   03 0104F    32F015C9              LW,15    TP:RTN            SET UP RTN FOR DPM
     5465   03 01050    20F00001 A            AI,R15   1
     5466   03 01051    E80015A2              B        *T:RTN            RETURN TO DPM
     5467   03 01052    6AF00AA5     TP:CONT4 BAL,15   MSGOUT            PRINT 'OBS NONE'
     5468   03 01053    00001ED6              DATA     BA(TMSGOBS)
     5469   03 01054    E80215C9              B        *TP:RTN,1         RETURN TO TEST EXECUTE ROUTINE
     5470   03 01055    33001587     TP:CONT1 MTW,0    E:MARKER          TEST ERROR MARKER
     5471   03 01056    6830105A              BEZ      TP:CONT5              IF NOT SET: BRANCH
     5472   03 01057    6AF00AA5              BAL,15   MSGOUT            PRINT: EXP TRAP/INTER=NONE ERROR
     5473   03 01058    00001EE5              DATA     BA(TMSGEXP)
     5474   03 01059    68001047              B        TP:CONT3
     5475   03 0105A    6AF00AA5     TP:CONT5 BAL,15   MSGOUT
     5476   03 0105B    00001EEB              DATA     BA(TMSGEXP1)      PRINT: EXP TRAP/INTER=NONE DISPLAY
     5477   03 0105C    68001047              B        TP:CONT3
     5478   03 0105D    6AF00AA5     TP:CONT2 BAL,15   MSGOUT
     5479   03 0105E    00001ECB              DATA     BA(TMSGDPL)
     5480   03 0105F    6800103D              B        TP:CONT6
     5481                                     PAGE
     5482                            *                 D I O  C H E C K  R O U T I N E
     5483                            *
     5484                            *                 THIS ROUTINE CHECKS FOR A DIO CONDITION ERROR.
     5485                            *                 IF THIS ERROR HAS OCCURRED IT CONTROL PRINTING OF
     5486                            *                 ALL DIO ACTIVITY.
     5487                            *
     5488                            *                 INPUT PARAMETERS:
     5489                            *                     DIOAREA       A LIST OF ALL DIO ACTIVITY
     5490                            *                     DIOLIST       CURRENT DIO OPERATION
     5491                            *                     CCDIOERR      IF = 1 DIO CONDITION CODE ERROR
     5492                            *
     5493                            *                 REGISTER DISTURBED:
     5494                            *                     R7,R8,R9,R14,R15
     5495                            *                 OUTPUT PARAMETERS:
     5496                            *                     DESCRIPTIVE MESSAGES ABOUT DIO OPERATIONS.
     5497                            *
     5498                            *                 CALLING FORMAT:
     5499                            *                     BAL,15        DIOCHECK
     5500                            *                     %             (ERROR RETURN)
     5501                            *                     %+1           (NORMAL RETURN)
     5502                            *
     5503   03 01060    3310000F A   DIOCHECK MTW,1    15                UPDATE RETURN ADDR
     5504   03 01061    22800000 A            LI,8     0                 SET EXPECTED CONDITION = 0
     5505   03 01062    3270158B              LW,7     CCDIOERR          LOAD OBS CC-DIO-ERROR FLAG
     5506   03 01063    229FFFFF A            LI,9     -1                LOAD MASK
     5507   03 01064    6AE00ED8              BAL,14   TP:CONTR          GO TEST FOR ERRORS OR PRINTING
     5508                            DIOREPORT ;
     5509   03 01065    33001587              MTW,0    E:MARKER          TEST TO SEE IF DISPLAY OR
     5510   03 01066    69301070              BNEZ     DIORPT1               ERROR MSG SHOULD BE PRINTED
     5511   03 01067    330015A4              MTW,0    XPANDFLG          IF EXPAND FLAG IS SET
     5512   03 01068    6930106D              BNEZ     DIORP1                CONTINUE
     5513   03 01069    33001586              MTW,0    E:PRINT           IF PRINT LEVEL 0 SKIP DIO IF NO
     5514   03 0106A    E83015C9              BEZ      *TP:RTN              ERROR IN DIO
     5515   03 0106B    31101586              CW,1     E:PRINT           IF PRINT LEVEL 1 SKIP DIO IF NO
     5516   03 0106C    E83015C9              BE       *TP:RTN               ERROR IN DIO
     5517                            DIORP1 ;
     5518   03 0106D    6AF00AA5              BAL,15   MSGOUT            PRINT: 'DIO OPERATION DISPLAY'
     5519   03 0106E    00001E46              DATA     BA(DIMSGDLY)
     5520   03 0106F    68001072              B        DIORPT2
     5521                            *
     5522                            *
     5523   03 01070    6AF00AA5     DIORPT1  BAL,15   MSGOUT            PRINT: 'DIO OPERATION ERROR'
     5524   03 01071    00001E4A              DATA     BA(DIMSGERR)
     5525   03 01072    22F00000 A   DIORPT2  LI,15    0                 INITIALIZE
     5526   03 01073    35F006C1              STW,15   VDEC3B
     5527   03 01074    32F0022F A            LW,15    :MEMLAST
     5528   03 01075    35F0018E A            STW,15   DIOPOINT              POINTER TO CURRENT DIO OPERATION
     5529   03 01076    33D0018E A   DIORPT3  MTW,-3   DIOPOINT
     5530   03 01077    331006C1              MTW,1    VDEC3B
     5531   03 01078    32F0018E A            LW,15    DIOPOINT          TEST
     5532   03 01079    31F001CE A            CW,15    DIOLIST               FOR END OF
     5533   03 0107A    691010B5              BL       DIORPT6
     5534   03 0107B    6AF00AA5              BAL,15   MSGOUT            PRINT: 'NO. DD'
     5535   03 0107C    00001E4E              DATA     BA(DIMSGNO)
     5536   03 0107D    22F010C4              LI,15    DIOFORMT          INITIALIZE
     5537   03 0107E    35F006D5              STW,15   VBINFA                VARIBLE FORMAT TABLE ADDR
     5538   03 0107F    B2F2018E A            LW,15    *DIOPOINT,1       LOAD
     5539   03 01080    4BF0303A              AND,15   =X'1FFFF'             AND CALCULATE
     5540   03 01081    B2E0000F A            LW,14    *15
     5541   03 01082    4BE0303B              AND,14   =7
     5542   03 01083    35E006C4              STW,14   VHEX1A
     5543   03 01084    B2E0000F A            LW,14    *15
     5544   03 01085    25E0007B A            SLS,14   -5
     5545   03 01086    4BE03032              AND,14   =X'7F'
     5546   03 01087    35E006C5              STW,14   VHEX2A
     5547   03 01088    B2E0000F A            LW,14    *15
     5548   03 01089    22D01E77              LI,13    BA(DIMSGWD)
     5549   03 0108A    D2F4018E A            LH,15    *DIOPOINT,2       LOAD AND
     5550   03 0108B    4BF0303F              AND,15   =X'7F00'              CALCULATE
     5551   03 0108C    21F06C00 A            CI,15    X'6C00'               IF IT WAS
     5552   03 0108D    69301098              BNE      DIORPT4
     5553   03 0108E    22D01EAE              LI,13    BA(DIMSGRD)
     5554   03 0108F    4BE03040              AND,14   =X'18'
     5555   03 01090    68301098              BEZ      DIORPT4
     5556   03 01091    22D01E81              LI,13    BA(DIMSGTS)
     5557   03 01092    21E00008 A            CI,14    8
     5558   03 01093    68301098              BE       DIORPT4
     5559   03 01094    22D01E90              LI,13    BA(DIMSGTI)
     5560   03 01095    21E00010 A            CI,14    X'10'
     5561   03 01096    68301098              BE       DIORPT4
     5562   03 01097    22D01E9F              LI,13    BA(DIMSGTR)
     5563   03 01098    35D0109A     DIORPT4  STW,13   %+2
     5564   03 01099    6AF00AA5              BAL,15   MSGOUT
     5565   03 0109A    00001EAE              DATA     BA(DIMSGRD)
     5566   03 0109B    22800034 A            LI,8     X'34'
     5567   03 0109C    358006C5              STW,8    VHEX2A
     5568   03 0109D    B280018E A            LW,8     *DIOPOINT         LOAD AND
     5569   03 0109E    2580007C A            SLS,8    -4                    FORMAT MASK
     5570   03 0109F    758610C5              STB,8    DIOFORMT+1,3          FORMAT EXP CC
     5571   03 010A0    25800078 A            SLS,8    -8                LOAD AND
     5572   03 010A1    758610C6              STB,8    DIOFORMT+2,3      FORMAT MASK
     5573   03 010A2    6AF00AA5              BAL,15   MSGOUT            PRINT: 'EXP CC34 =XX
     5574   03 010A3    00001E54              DATA     BA(DIMSGEXP)
     5575   03 010A4    25800070 A            SLS,8    -16               LOAD AND
     5576   03 010A5    758610C5              STB,8    DIOFORMT+1,3          FORMAT OBS CC
     5577   03 010A6    228FFFFF A            LI,8     -1                LOAD AND
     5578   03 010A7    758610C6              STB,8    DIOFORMT+2,3          FORMAT MSG
     5579   03 010A8    6AF00AA5              BAL,15   MSGOUT            PRINT= 'OBS CC34 =XX'
     5580   03 010A9    00001E5B              DATA     BA(DIMSGOBS)
     5581   03 010AA    D2F4018E A            LH,15    *DIOPOINT,2
     5582   03 010AB    4BF0303F              AND,15   =X'7F00'
     5583   03 010AC    21F06C00 A            CI,15    X'6C00'
     5584   03 010AD    693010B0              BNE      DIORPT5
     5585   03 010AE    330015A4              MTW,0    XPANDFLG
     5586   03 010AF    693010B6              BNEZ     XPANDIO
     5587   03 010B0    B2F4018E A   DIORPT5  LW,15    *DIOPOINT,2       LOAD AND SAVE
     5588   03 010B1    35F006C8              STW,15   VHEX8A                DATA LINES
     5589   03 010B2    6AF00AA5              BAL,15   MSGOUT            PRINT: 'DATA LINES = XXXX XXXX'
     5590   03 010B3    00001EBB              DATA     BA(DIMSGDL)
     5591   03 010B4    68001076              B        DIORPT3           GO LOOP
     5592                            DIORPT6  ;
     5593   03 010B5    E80015C9              B        *TP:RTN           TAKE ERROR EXIT
     5594   03 010B6    324006C4     XPANDIO  LW,4     VHEX1A
     5595   03 010B7    4B40303B              AND,4    =7                FIND GROUP NO.
     5596   03 010B8    327801BB A            LW,7     GROUP0,4          LOAD THAT GROUP
     5597   03 010B9    3288019D A            LW,8     DIODATA1,4        LOAD EXP PATTERN
     5598   03 010BA    329801A5 A            LW,9     DIOMASK,4         LOAD EXP MASK
     5599   03 010BB    6AF010C7              BAL,15   FORMSG            GO FORMAT
     5600   03 010BC    03200401 A            DATA     X'03200401'
     5601   03 010BD    00001EB8              DATA     BA(DIMSGDAT)
     5602   03 010BE    00001EB8              DATA     BA(DIMSGDAT)
     5603   03 010BF    00001681              DATA     MRMSGHDR
     5604   03 010C0    68001076              B        DIORPT3
     5605                            *
     5606                            *
     5607                            *
     5608   03 010C1    3300158B     XIT      MTW,0    CCDIOERR          TEST FOR DIO ERROR
     5609   03 010C2    E832018C A            BEZ      *LISTEXIT,1           IF NONE TAKE NORMAL EXIT
     5610   03 010C3    E800018C A   XITERR   B        *LISTEXIT         ERROR EXIT
     5611   03 010C4    00020101 A   DIOFORMT DATA     X'00020101'       LINE DESCRIPTOR
     5612   03 010C5    00000000 A            DATA     0                 VARIABLE DATA
     5613   03 010C6    00000000 A            DATA     0                 MASK
     5614                                     PAGE
     5615                            *                 F O R M A T  M E S S A G E  R O U T I N E
     5616                            *
     5617                            *                 THIS ROUTINE FORMAT AND CONTROLS PRINTING OF
     5618                            *                 COMPARE MESSAGES.
     5619                            *
     5620                            *                 INPUT PARAMETERS:
     5621                            *                     E:MARKER      IF = 0 DISPLAY, IF=1 ERROR
     5622                            *                     R7            MASK (RIGHT JUSTIFIED)
     5623                            *                     R8            EXP STATUS (RIGHT JUSTIFIED)
     5624                            *                     R9            OBS STATUS (RIGHT JUSTIFIED)
     5625                            *
     5626                            *                 REGISTER DISTURBED:
     5627                            *                     R10,R11,R12,R13,R14,R15
     5628                            *
     5629                            *                 OUTPUT PARAMETERS:
     5630                            *                     MSG DESCRIBING COMPARISON THAT WAS ATTEMPTED.
     5631                            *                 CALLING FORMAT:
     5632                            *                     BAL,15        FORMSG
     5633                            *                     DATA          LINE DESCRIPTOR
     5634                            *                     DATA          BA(OF DISPLAY HEADER)
     5635                            *                     DATA          BA(OF ERROR HEADER)
     5636                            *                     DATA          ADDR OF 2ND HEADER MSG
     5637                            *                      %            (RETURN)
     5638                            *
     5639                            FORMSG  ;
     5640   03 010C7    02200040 A            LCI      4                 LOAD ADDR OF MSG'S
     5641   03 010C8    AAA0000F A            LM,10    *15
     5642   03 010C9    35A010E4              STW,10   FORMAT            SAVE FORMAT OF MSG
     5643   03 010CA    35B010D6              STW,11   FORMHD1D          SAVE ADDR OF DISPLAY HEADER
     5644   03 010CB    35C010D9              STW,12   FORMHD1E          SAVE ADDR OF ERROR  HEADER
     5645   03 010CC    35D010DB              STW,13   FORMHD2           SAVE ADDR OF SECOND HEADER
     5646   03 010CD    358010E5              STW,8    FORMAT+1          SAVE EXP INFORATION
     5647   03 010CE    359010E6              STW,9    FORMAT+2          SAVE MASK FOR EXP DATA
     5648   03 010CF    22A010E4              LI,10    FORMAT            LOAD AND SAVE
     5649   03 010D0    35A006D5              STW,10   VBINFA                OF SPECIAL FORMAT TABLE
     5650   03 010D1    20F00004 A            AI,15    4                 SET UP A
     5651   03 010D2    35F010E7              STW,15   FORMRTN               RETURN ADDR
     5652   03 010D3    33001587              MTW,0    E:MARKER          TEST TO SEE IF DISPLAY OR
     5653   03 010D4    693010D8              BNEZ     FORM1                 ERROR MSG SHOULD BE PRINTED
     5654   03 010D5    6AF00AA5              BAL,15   MSGOUT
     5655   03 010D6    00000000 A   FORMHD1D DATA     0                 PRINT:'----- DISPLAY'
     5656   03 010D7    680010DA              B        FORM2
     5657   03 010D8    6AF00AA5     FORM1    BAL,15   MSGOUT            PRINT: '----- ERROR'
     5658   03 010D9    00000000 A   FORMHD1E DATA     0
     5659   03 010DA    EAF0021C A   FORM2    BAL,15   *:PRINT           PRINT SECOND HEADER
     5660   03 010DB    00000000 A   FORMHD2  DATA     0
     5661   03 010DC    6AF00AA5     FORM3    BAL,15   MSGOUT            PRINT: 'EXP -----'
     5662   03 010DD    00001EFB     FORMEXP  DATA     BA(MSGEXP)
     5663   03 010DE    229FFFFF A            LI,9     -1                SET UP FORMAT
     5664   03 010DF    357010E5              STW,7    FORMAT+1              FOR OBS
     5665   03 010E0    359010E6              STW,9    FORMAT+2              MSG
     5666   03 010E1    6AF00AA5     FORM4    BAL,15   MSGOUT            PRINT:'OBS -----'
     5667   03 010E2    00001EFF     FORMOBS  DATA     BA(MSGOBS)
     5668   03 010E3    E80010E7              B        *FORMRTN          RETURN TO CALL ROUTINE
     5669   03 010E4    00000000 A   FORMAT   DATA     0                 LINE DESCRIPTOR
     5670   03 010E5    00000000 A            DATA     0                 VARIABLE DATA
     5671   03 010E6    00000000 A            DATA     0                 MASK
     5672   03 010E7    00000000 A   FORMRTN  DATA     0                 RETURN ADDR
     5673   03 010E8    527001BB A   FNCOMP   LH,7     GROUP0            LOAD OBS STATUS
     5674   03 010E9    329001B1 A            LW,9     FNMASK            LOAD MASK
     5675   03 010EA    6AE00ED8              BAL,14   TP:CONTR          GO TEST FOR ERROR
     5676   03 010EB    6AF010C7              BAL,15   FORMSG            GO PRINT COMPARE MSG
     5677   03 010EC    08030106 A            DATA     X'08030106'
     5678   03 010ED    00001EF1              DATA     BA(FNMSGDPY)
     5679   03 010EE    00001EF6              DATA     BA(FNMSGERR)
     5680   03 010EF    00001679              DATA     FNMSGHDR
     5681   03 010F0    E80015C9              B        *TP:RTN           RETURN TO NEXT LEVEL
     5682                                     PAGE
     5683                            *                 C O M P A R E  D A T A  R O U T I N E
     5684                            *
     5685                            *                 THIS ROUTINE HANDLES THE PREPARATION
     5686                            *                 OF THE DATA COMPARE OPERATION.
     5687                            *
     5688                            *                 INPUT PARAMETERS:
     5689                            *                    :PATWC         PATTERN WORD COUNT
     5690                            *                    :PATBFR        WA(BUFFER)
     5691                            *                    :PATID         PATTERN ID
     5692                            *                    :PATID+1       SEED
     5693                            *                    :PATID+2       INCREMENT
     5694                            *
     5695                            *                 REGISTER DISTURBED:
     5696                            *                    R6,R7,R8,R9,R14,R15
     5697                            *
     5698                            *                 OUTPUT PARAMETERS:
     5699                            *                    DATA PATTERN COMPARISON AND PRINTING
     5700                            *
     5701                            *                 CALLING SEQUENCE:
     5702                            *                    BAL,15         DATACOMP
     5703                            *                    %              (RETURN)
     5704                            *
     5705   03 010F1    351002CA A   DATACOMP STW,1    :COMFLAG          SET PRINT INHIBIT FLAG
     5706   03 010F2    35F01106              STW,15   DATARTN           SAVE RTN
     5707   03 010F3    6AF02EE6              BAL,15   :COMPARE          GO TO COMPARE ROUTINE
     5708   03 010F4    680010F5              B        %+1               NORMAL EXIT
     5709   03 010F5    3270014E A            LW,7     :COMERRT          LOAD ERROR COUNT
     5710   03 010F6    22800000 A            LI,8     0                 LOAD ZERO EXPECTED ERROR CNT
     5711   03 010F7    229FFFFF A            LI,9     -1                SET MASK
     5712   03 010F8    32F01106              LW,15    DATARTN           RESTORE RTN
     5713   03 010F9    6AE00ED8              BAL,14   TP:CONTR          GO TO PRINT CONTROL RTN
     5714   03 010FA    22F00000 A            LI,15    0                 RESET PRINT INHIBIT
     5715   03 010FB    35F002CA A            STW,15   :COMFLAG              FLAG
     5716   03 010FC    22F01DA1              LI,15    BA(DAMSGDLY)      LOAD BYTE ADDR OF MSG
     5717   03 010FD    33001587              MTW,0    E:MARKER
     5718   03 010FE    68301100              BEZ      %+2
     5719   03 010FF    22F01D9D              LI,15    BA(DAMSGERR)
     5720   03 01100    35F01102              STW,15   %+2               SAVE BYTE ADDR
     5721   03 01101    6AF00AA5              BAL,15   MSGOUT            PRINT: 'PATTERN COMPARE -----'
     5722   03 01102    00000000 A            DATA     0
     5723   03 01103    6AF02EE6              BAL,15   :COMPARE          GO PRINT COMPARE ERRORS
     5724   03 01104    E80015C9              B        *TP:RTN           RETURN TO COMPARE LIST
     5725   03 01105    E80015C9              B        *TP:RTN           RETURN TO COMPARE LIST
     5726   03 01106    00000000 A   DATARTN  DATA     0
     5727   03 01107    327001C1 A   MREG     LW,7     GROUP6            LOAD OBS STATUS
     5728   03 01108    329001B0 A            LW,9     MRMASK            LOAD MASK
     5729   03 01109    6AE00ED8              BAL,14   TP:CONTR          GO TEST FOR ERROR
     5730   03 0110A    6AF010C7              BAL,15   FORMSG            GO PRINT COMPARE MSG
     5731   03 0110B    03200401 A            DATA     X'03200401'
     5732   03 0110C    00001F03              DATA     BA(MRMSGDLY)
     5733   03 0110D    00001F07              DATA     BA(MRMSGERR)
     5734   03 0110E    00001681              DATA     MRMSGHDR
     5735   03 0110F    E80015C9              B        *TP:RTN           RETURN TO NEXT LEVEL
     5736                            *
     5737                            *
     5738                                     PAGE
     5739                            *                 C O M P A R E  I / O  S T A T U S
     5740                            *
     5741                            *                 THIS ROUTINE HANDLE THE PREPARATION
     5742                            *                 OF THE I/O STATUS AND CONDITION CODES, FOR
     5743                            *                 TESTING AND REPORTING OF STATUS.
     5744                            *
     5745                            *                 INPUT PARAMETER
     5746                            *                     REG 15        ADDR OF DW OF MASK AND EXP STATUS
     5747                            *                     :STATUSCC     OBSERVED I/O STATUS
     5748                            *
     5749                            *                 REGISTER DISTURBED:
     5750                            *                     R7,R8,R9,R14,R15
     5751                            *
     5752                            *                 OUTPUT PARAMETERS:
     5753                            *                 CONDITIONS SET UP FOR I/O STATUS REPORT RTN
     5754                            *
     5755                            *                 CALLING FORMAT:
     5756                            *
     5757                            *                     BAL,15        IOCOMP
     5758                            *                     DATA          MASK
     5759                            *                     DATA          EXP STATUS
     5760                            *                     %             RETURN
     5761                            *
     5762   03 01110    B282000F A   IOCOMP   LW,8     *15,1             LOAD AND SAVE
     5763   03 01111    35801141              STW,8    IOCOMP3+1             EXPECTED INFORMATION
     5764   03 01112    B290000F A            LW,9     *15               LOAD AND SAVE
     5765   03 01113    4B900194 A            AND,9    STATMASK          REMOVE BITS
     5766   03 01114    35901140              STW,9    IOCOMP3               MASK
     5767   03 01115    327001D3 A            LW,7     DOIOSTAT+1        FETCH STATUS
     5768   03 01116    4B703041              AND,7    =X'FFFF0000'          REMOVE BC
     5769   03 01117    72C201D2 A            LB,12    DOIOSTAT,1        LOAD CC'S
     5770   03 01118    75C40007 A            STB,12   7,2               SET UP STATUS + CC'S
     5771   03 01119    357002D2 A            STW,7    :STATUSCC         SAVE AS THE WAY IT IS
     5772   03 0111A    32A00199 A            LW,10    IOINSTR           LOAD THE INSTR
     5773   03 0111B    4BA03042              AND,10   =X'FFF00000'      REMOVE ALL BUT OP CODE AND REG
     5774   03 0111C    31A03043              CW,10    =X'6ED00000'      IF IT IS NOT AN AIO
     5775   03 0111D    69301128              BNE      IOCOMP4               BRANCH
     5776   03 0111E    703201D2 A            LCF      DOIOSTAT,1
     5777   03 0111F    69801128              BCS,8    IOCOMP4
     5778   03 01120    12C001D2 A            LD,12    DOIOSTAT          LOAD STATUS
     5779   03 01121    4BD03044              AND,13   =X'1FFF'              SAVE I/O ADDR
     5780   03 01122    31D002BF A            CW,13    :DEVADDR          TEST IT AGANIST EXP AIO ADDR
     5781   03 01123    68301128              BE       IOCOMP4               IF EQUAL BRANCH
     5782   03 01124    229FFFFF A            LI,9     -1                IF NOT
     5783   03 01125    22800000 A            LI,8     0                     FORCE
     5784   03 01126    22700001 A            LI,7     1                     AN
     5785   03 01127    66201140              AWM,2    IOCOMP3           SET FLAG TO CHECK DEV ADDR
     5786                            IOCOMP4 ;
     5787   03 01128    20F00002 A            AI,15    2                 KICK RTN ADDR BY 2
     5788   03 01129    6AE00ED8              BAL,14   TP:CONTR          GO TEST STATUS
     5789   03 0112A    357002D2 A            STW,7    :STATUSCC         RESTORE STATUS
     5790   03 0112B    32A00199 A            LW,10    IOINSTR           LOAD TYPE OF
     5791   03 0112C    4BA03037              AND,10   =X'7F00C000'          INSTRUCTION AND
     5792   03 0112D    22F00004 A            LI,15    4                 SET PRINT COMPARE
     5793   03 0112E    66F01140              AWM,15   IOCOMP3               FLAG
     5794   03 0112F    22400000 A            LI,4     0                 SET INDEX
     5795   03 01130    31A81144     IOCOMP2  CW,10    INSTRTAB,4        COMPARE IT TO I/O OP CODES
     5796   03 01131    68301136              BE       IOCOMP1           IF = GO BRANCH TO I/O RPT RTN
     5797   03 01132    20400001 A            AI,4     1                 UPDATE INDEX
     5798   03 01133    21400009 A            CI,4     9                 TEST FOR END
     5799   03 01134    69101130              BL       IOCOMP2           IF NOT LOOP
     5800   03 01135    68001135              B        %                     OTHERWISE HALT
     5801   03 01136    22F01F4D     IOCOMP1  LI,15    BA(IOMSGERR)      LOAD 'I/O COMPARE *** ERROR ***'
     5802   03 01137    33001587              MTW,0    E:MARKER          TEST FOR ERROR
     5803   03 01138    6930113A              BNEZ     %+2
     5804   03 01139    22F01F49              LI,15    BA(IOMSGDLY)      LOAD 'I/O COMPARE *** DISPLAY****'
     5805   03 0113A    35F0113C              STW,15   %+2
     5806   03 0113B    6AF00AA5              BAL,15   MSGOUT            PRINT MSG
     5807   03 0113C    00000000 A            DATA     0
     5808   03 0113D    32E00004 A            LW,14    4                 SET UP TYPE OF OPERATION
     5809   03 0113E    12C001D2 A            LD,12    DOIOSTAT          LOAD STATUS
     5810   03 0113F    6AF02E42              BAL,15   :STATEST          GO REPORT ERROR
     5811   03 01140    00000000 A   IOCOMP3  DATA     0
     5812   03 01141    00000000 A            DATA     0
     5813   03 01142    68001143              B        %+1
     5814   03 01143    E80015C9              B        *TP:RTN           EXIT
     5815   03 01144    4C000000 A   INSTRTAB DATA     X'4C000000',X'4D000000',X'4E000000'
            03 01145    4D000000 A
            03 01146    4E000000 A
     5816   03 01147    4F000000 A            DATA     X'4F000000',X'4F004000'
            03 01148    4F004000 A
     5817   03 01149    4F008000 A            DATA     X'4F008000',X'6E000000',X'4F00C000'
            03 0114A    6E000000 A
            03 0114B    4F00C000 A
     5818                                     PAGE
     5819                            *                 C O M P A R E  P H A S E  I N F O R M A T I O N
     5820                            *
     5821                            *                 THIS ROUTINE SETS UP THE EXPECTED AND OBSERVED
     5822                            *                 PHASE INFORMATION FOR THE TEST PRINT CONTROL
     5823                            *                 ROUTINE, IT ALSO CONTROLS THE PRINTING OF
     5824                            *                 THIS INFORMATION.
     5825                            *
     5826                            *                 INPUT PARAMETERS:
     5827                            *                     GROUP0        OBSERVED STATUS OF PHASES
     5828                            *                     PHMASK        MASK FOR PHASE COMPARISON
     5829                            *                     R8            EXPECTED STATUS OF PHASES (RIGHT JUS
     5830                            *                     E:MARKER      IF = 0 DISPLAY, IF=1 ERROR
     5831                            *
     5832                            *                 REGISTER DISTURBED:
     5833                            *                     R7,R8,R9,R14,R15
     5834                            *
     5835                            *                 OUTPUT PARAMETERS:
     5836                            *                     MESSAGE DESCRIBING THE COMPARISON.
     5837                            *
     5838                            *                 CALLING FORMAT:
     5839                            *                     PHPROC        PHXX,PHXX---ETC  (LI,8 )
     5840                            *                     BAL,15        PHCOMP
     5841                            *                     %             (RETURN)
     5842                            *
     5843                            PHCOMP ;
     5844   03 0114C    327001BB A            LW,7     GROUP0            LOAD OBS STATUS
     5845   03 0114D    2570006D A            SLS,7    -19               RIGHT JUSTIFIED
     5846   03 0114E    25700001 A            SLS,7    1
     5847   03 0114F    329001BB A            LW,9     GROUP0
     5848   03 01150    4B903045              AND,9    =X'8000'
     5849   03 01151    25900071 A            SLS,9    -15
     5850   03 01152    49700009 A            OR,7     9
     5851   03 01153    329001AF A            LW,9     PHMASK            LOAD MASK
     5852   03 01154    6AE00ED8              BAL,14   TP:CONTR          GO TEST DATA
     5853                            *
     5854   03 01155    33001587              MTW,0    E:MARKER          TEST TO SEE IF DISPLAY OR
     5855   03 01156    6930115A              BNEZ     PHCOMP1               ERROR MSG SHOULD BE PRINTED
     5856   03 01157    6AF00AA5              BAL,15   MSGOUT            PRINT: '------ DISPLAY'
     5857   03 01158    00001DE7              DATA     BA(PHMSGDLY)
     5858   03 01159    6800115C              B        PHCOMP2
     5859   03 0115A    6AF00AA5     PHCOMP1  BAL,15   MSGOUT            PRINT: '------ ERROR'
     5860   03 0115B    00001DEA              DATA     BA(PHMSGERR)
     5861                            PHCOMP2 ;
     5862   03 0115C    EAF0021C A            BAL,15   *:PRINT           PRINT 2ND HEADER
     5863   03 0115D    0000166B              DATA     PHMSGHDR
     5864                            *
     5865                            *
     5866   03 0115E    22F01172              LI,15    PHMSGA            FORMAT
     5867   03 0115F    35F006D5              STW,15   VBINFA                EXP
     5868   03 01160    22F01175              LI,15    PHMSGB                MSG
     5869   03 01161    35F006D6              STW,15   VBINFB
     5870   03 01162    35801176              STW,8    PHMSGB+1
     5871   03 01163    35901177              STW,9    PHMSGB+2
     5872                            *
     5873                            *
     5874   03 01164    2580037D A            SCD,8    -3
     5875   03 01165    35801173              STW,8    PHMSGA+1
     5876   03 01166    35901174              STW,9    PHMSGA+2
     5877   03 01167    6AF00AA5              BAL,15   MSGOUT            PRINT: 'EXP ------'
     5878   03 01168    00001DED              DATA     BA(PHMSGEXP)
     5879   03 01169    229FFFFF A            LI,9     -1                FORMAT
     5880   03 0116A    35901174              STW,9    PHMSGA+2              OBS
     5881   03 0116B    35901177              STW,9    PHMSGB+2              MSG
     5882   03 0116C    35701176              STW,7    PHMSGB+1
     5883   03 0116D    2570007D A            SLS,7    -3
     5884   03 0116E    35701173              STW,7    PHMSGA+1
     5885   03 0116F    6AF00AA5              BAL,15   MSGOUT            PRINT: 'OBS -------'
     5886   03 01170    00001DF3              DATA     BA(PHMSGOBS)
     5887   03 01171    E80015C9              B        *TP:RTN           RETURN
     5888   03 01172    020B0102 A   PHMSGA   DATA     X'020B0102'       LINE DESCRIPTOR
     5889   03 01173    00000000 A            DATA     0                 VARIABLE DATA
     5890   03 01174    00000000 A            DATA     0                 MASK
     5891   03 01175    02030105 A   PHMSGB   DATA     X'02030105'
     5892   03 01176    00000000 A            DATA     0                 VARIABLE DATA
     5893   03 01177    00000000 A            DATA     0                 MASK
     5894   03 01178    22E0C270     BOUND16  LI,14    BA(BUF1LO)+16
     5895   03 01179    4BE03030              AND,14   =X'FFFFFFF0'
     5896   03 0117A    7510000E A            STB,1    14
     5897   03 0117B    35E002F2 A            STW,14   IOCDGEN
     5898   03 0117C    E800000F A            B        *15
     5899   03 0117D    22E0C270     NBOUND16 LI,14    BA(BUF1LO)+16
     5900   03 0117E    4BE03030              AND,14   =X'FFFFFFF0'
     5901   03 0117F    20E00004 A            AI,14    4
     5902   03 01180    7510000E A            STB,1    14
     5903   03 01181    35E002F2 A            STW,14   IOCDGEN
     5904   03 01182    E800000F A            B        *15
     5905   03 01183    22E00004 A   IUEBYTE4 LI,14    4
     5906   03 01184    6800118A              B        SAVEBYTE
     5907   03 01185    22E00003 A   IUEBYTE3 LI,14    3
     5908   03 01186    6800118A              B        SAVEBYTE
     5909   03 01187    22E00002 A   IUEBYTE2 LI,14    2
     5910   03 01188    6800118A              B        SAVEBYTE
     5911   03 01189    22E00001 A   IUEBYTE1 LI,14    1
     5912   03 0118A    30E03046     SAVEBYTE AW,14    =X'0C000000'
     5913   03 0118B    35E002F3 A            STW,14   IOCDGEN+1
     5914   03 0118C    E800000F A            B        *15
     5915                                     PAGE
     5916                            *                 BYTE COMPARE AND PRINT ROUTINE
     5917                            *
     5918   03 0118D    327001D3 A   BCCOMP   LW,7     DOIOSTAT+1        LOAD CURRENT BC
     5919   03 0118E    2290FFFF A            LI,9     X'FFFF'
     5920   03 0118F    6AE00ED8              BAL,14   TP:CONTR
     5921   03 01190    6AF010C7              BAL,15   FORMSG
     5922   03 01191    03200401 A            DATA     X'03200401'
     5923   03 01192    00001F0B              DATA     BA(BCMSGDLY)
     5924   03 01193    00001F11              DATA     BA(BCMSGERR)
     5925   03 01194    00001681              DATA     MRMSGHDR
     5926   03 01195    E80015C9              B        *TP:RTN
     5927                            *
     5928                            *                 COMMAND DOUBLEWORD COMPARE AND PRINT ROUTINE
     5929                            *
     5930   03 01196    327001D2 A   CDCOMP   LW,7     DOIOSTAT          LOAD CURRENT DWA
     5931   03 01197    32903029              LW,9     =X'FFFFFF'
     5932   03 01198    357006D1              STW,7    VHEX6D
     5933   03 01199    358006D0              STW,8    VHEX6C
     5934   03 0119A    6AE00ED8              BAL,14   TP:CONTR
     5935   03 0119B    22F01F2F              LI,15    BA(CDMSGERR)
     5936   03 0119C    33001587              MTW,0    E:MARKER
     5937   03 0119D    6930119F              BNEZ     %+2
     5938   03 0119E    22F01F3C              LI,15    BA(CDMSGDLY)
     5939   03 0119F    35F011A1              STW,15   %+2
     5940   03 011A0    6AF00AA5              BAL,15   MSGOUT
     5941   03 011A1    00000000 A            DATA     0
     5942   03 011A2    E80015C9              B        *TP:RTN
     5943                                     PAGE
     5944                            *
     5945   03 011A3    327001BD A   MECOMP   LW,7     GROUP2            SET UP
     5946   03 011A4    25700069 A            SLS,7    -23
     5947   03 011A5    329001AC A            LW,9     MEMASK            LOAD MASK
     5948   03 011A6    6AE00ED8              BAL,14   TP:CONTR          GO TEST FOR ERROR
     5949   03 011A7    6AF010C7              BAL,15   FORMSG            GO PRINT COMPARE MSG
     5950   03 011A8    02090105 A            DATA     X'02090105'
     5951   03 011A9    00001F5F              DATA     BA(MEMSGDLY)
     5952   03 011AA    00001F63              DATA     BA(MEMSGERR)
     5953   03 011AB    00001699              DATA     MEMSGHDR
     5954   03 011AC    E80015C9              B        *TP:RTN
     5955                                     PAGE
     5956                            *
     5957                            *
     5958   03 011AD    227FFFFF A   LREG     LI,7     -1                TAKE 1'S
     5959   03 011AE    487001BD A            EOR,7    GROUP2               COMPLEMENT
     5960   03 011AF    49801596              OR,8     HSB               OR IN HOME SPACE BIAS
     5961   03 011B0    4B803047              AND,8    =X'3FFFFF'
     5962   03 011B1    25800220 A            SCS,8    32                CALC PARITY
     5963   03 011B2    698011B4              BCS,8    %+2
     5964   03 011B3    30803048              AW,8     =X'00400000'      SET PARITY BIT
     5965   03 011B4    329001AD A            LW,9     LRMASK            LOAD MASK
     5966   03 011B5    6AE00ED8              BAL,14   TP:CONTR          GO TEST FOR ERROR
     5967   03 011B6    6AF010C7              BAL,15   FORMSG            GO PRINT COMPARE MSG
     5968   03 011B7    01170102 A            DATA     X'01170102'
     5969   03 011B8    00001F67              DATA     BA(LRMSGDLY)
     5970   03 011B9    00001F6C              DATA     BA(LRMSGERR)
     5971   03 011BA    000016BB              DATA     LRMSGHDR
     5972   03 011BB    E80015C9              B        *TP:RTN
     5973                                     PAGE
     5974                            *
     5975   03 011BC    327001BC A   PHSTCOMP LW,7     GROUP1            LOAD OSB STATUS
     5976   03 011BD    329001AE A            LW,9     PHSTMASK          LOAD MASK
     5977   03 011BE    6AE00ED8              BAL,14   TP:CONTR          GO TEST FOR ERROR
     5978   03 011BF    6AF010C7              BAL,15   FORMSG            GO PRINT COMPARE MSG
     5979   03 011C0    020E0102 A            DATA     X'020E0102'
     5980   03 011C1    00001F51              DATA     BA(PSMSGDLY)
     5981   03 011C2    00001F58              DATA     BA(PSMSGERR)
     5982   03 011C3    0000168D              DATA     PSMSGHDR
     5983   03 011C4    E80015C9              B        *TP:RTN           RETURN TO NEXT LEVEL
     5984                                     PAGE
     5985                            *
     5986                            *                 SET UP A TEST MODE
     5987                            *
     5988   03 011C5    22800000 A   WDGPNONE LI,8     0
     5989   03 011C6    680011CF              B        WDGP0SET
     5990                            *
     5991                            *
     5992   03 011C7    32803049     WDVTDVO  WD0      DVT,DVO
     5993   03 011C8    680011CF              B        WDGP0SET
     5994                            *
     5995                            *
     5996   03 011C9    3280304A     WDGP0    WD0      TM1,DVT,DVO
     5997   03 011CA    680011CF              B        WDGP0SET
     5998                            *
     5999                            *
     6000   03 011CB    3280304B     WDGPTM24 WD0      TM2,TM4,DVT,DVO
     6001   03 011CC    680011CF              B        WDGP0SET
     6002                            *
     6003                            *
     6004   03 011CD    3280304C     WDGPTM2  WD0      TM2,DVT,DVO
     6005   03 011CE    680011CF              B        WDGP0SET
     6006                            *
     6007                            *
     6008   03 011CF    35F015AD     WDGP0SET STW,15   WDGRTN
     6009   03 011D0    49801597              OR,8     MARGINS
     6010   03 011D1    ED80155E              WD,8     *DIOAD0
     6011   03 011D2    6AF00FDB              BAL,15   CC00              SAVE OPERATION
     6012   03 011D3    E80015AD              B        *WDGRTN           EXIT
     6013                            *
     6014   03 011D4    3260304D     T:WDT    LW,6     =X'40000046'
     6015   03 011D5    22700009 A            LI,7     9
     6016   03 011D6    31700225 A            CW,7     :MACHINE
     6017   03 011D7    683011D9              BE       %+2
     6018   03 011D8    22600046 A            LI,6     X'46'             ***** REMOVE CODE WHEN 9 *****
     6019   03 011D9    22700EBD              LI,7     EXPTRAP
     6020   03 011DA    156015CA              STD,6    TRAPEXP
     6021   03 011DB    E800000F A            B        *15
     6022   03 011DC    229FFFFF A   IRCOMP   LI,9     -1
     6023   03 011DD    22700001 A            LI,7     1
     6024   03 011DE    6AE00ED8              BAL,14   TP:CONTR
     6025   03 011DF    22F02042              LI,15    BA(IRMSG)
     6026   03 011E0    33001587              MTW,0    E:MARKER
     6027   03 011E1    683011E3              BEZ      %+2
     6028   03 011E2    22F02004              LI,15    BA(EXPINT)
     6029   03 011E3    35F011E5              STW,15   %+2
     6030   03 011E4    6AF00AA5              BAL,15   MSGOUT
     6031   03 011E5    00000000 A            DATA     0
     6032   03 011E6    E80015C9              B        *TP:RTN
     6033   03 011E7    229FFFFF A   IRCOMP1  LI,9     -1
     6034   03 011E8    22700000 A            LI,7     0
     6035   03 011E9    6AE00ED8              BAL,14   TP:CONTR
     6036   03 011EA    22F02046              LI,15    BA(IRMSG1)
     6037   03 011EB    33001587              MTW,0    E:MARKER
     6038   03 011EC    683011EE              BEZ      %+2
     6039   03 011ED    22F0200C              LI,15    BA(UNEXINT)
     6040   03 011EE    35F011F0              STW,15   %+2
     6041   03 011EF    6AF00AA5              BAL,15   MSGOUT
     6042   03 011F0    00000000 A            DATA     0
     6043   03 011F1    E80015C9              B        *TP:RTN
     6044                            *
     6045                            *
     6046                            *                 THIS CALCULATES ACTUAL SIZE OF MEMORY
     6047                            *
     6048   03 011F2    22400001 A   SIZEACT  LI,4     1                 LOAD EXECUTE  INDEX
     6049   03 011F3    680011F5              B        SIZEMEM2
     6050                            *                 THIS ROUTINE CALCULATES THE SIZE OF MEMORY
     6051                            *
     6052   03 011F4    22400000 A   SIZEMEM  LI,4     0                 LOAD EXECUTE  INDEX
     6053                            *
     6054                            *
     6055   03 011F5    35F001C7 A   SIZEMEM2 STW,15   PSAVE1
     6056   03 011F6    22E00040 A            LI,14    X'40'             SAVE TYPE OF TRAP
     6057   03 011F7    22F0120F              LI,15    SIZETRAP          SAVE ADDR OF WHERE TO GO
     6058   03 011F8    15E015CA              STD,14   TRAPEXP           SAVE INFOR
     6059   03 011F9    35F015A0              STW,15   T:HANEXIT
     6060   03 011FA    6AF00FFC              BAL,15   T:SETUP           GO SET UP FOR A TRAP
     6061   03 011FB    67081213              EXU      SIZE1,4           SET UP WA
     6062   03 011FC    67081215     SIZEMEM1 EXU      SIZE2,4           UPDATE WA
     6063   03 011FD    31E0022F A            CW,14    :MEMLAST          IF LESS THAN THE SIZE OF MEMORY
     6064   03 011FE    682011FC              BLE      SIZEMEM1          LOOP
     6065   03 011FF    0F001640              XPSD,0   SETREALX
     6066   03 01200    E80001C7 A            B        *PSAVE1
     6067   03 01201    67081215     SIZETRA3 EXU      SIZE2,4           POSITION SIZE OF MEMORY
     6068                            SIZETRA2 ;
     6069   03 01202    32D0304E              LW,13    =X'55555555'      LOAD A PATTERN
     6070   03 01203    C6D0000E A            XW,13    *14               EXCHANGE WITH WORD FROM MEMORY
     6071   03 01204    C6D0000E A            XW,13    *14               EXCHANGE WITH WORD FROM MEMORY
     6072   03 01205    31D0304E              CW,13    =X'55555555'
     6073   03 01206    69301209              BNE      SIZETRA1
     6074   03 01207    31E00195 A            CW,14    CDW               TEST FOR MAX
     6075   03 01208    69101201              BL       SIZETRA3          MEMORY
     6076                            SIZETRA1  ;
     6077   03 01209    25E0007F A            SLS,14   -1                CALCULATE DA
     6078   03 0120A    35E015D0              STW,14   DASIZE            SAVE AS DW ADDR
     6079   03 0120B    22E00000 A            LI,14    0                 SET UP
     6080   03 0120C    22F00EBD              LI,15    EXPTRAP               FOR NO
     6081   03 0120D    15E015CA              STD,14   TRAPEXP               TRAP EXP
     6082   03 0120E    0E001640              LPSD,0   SETREALX
     6083                            *
     6084                            *
     6085                            *
     6086   03 0120F    32D0303E     SIZETRAP LW,13    L(X'01000000'+T:HANDLE)
     6087   03 01210    35D0030F A            STW,13   :PIT15            NO PRINTING PLEASE OF TRAP
     6088   03 01211    22F01209              LI,15    SIZETRA1          LOAD ADDR OF WHERE TO COME BACK TO
     6089   03 01212    E80015A2              B        *T:RTN            GO TO DMP TO RELEASE TRAP
     6090                            *
     6091                            *
     6092   03 01213    22E00001 A   SIZE1    LI,14    1                 START WITH WA OF 1
     6093   03 01214    22E00000 A            LI,14    0                 STAART WITH OF 0
     6094   03 01215    25E00001 A   SIZE2    SLS,14   1                 POSITION WA
     6095   03 01216    20E01000 A            AI,14    4096              ADD 1K TO IT
     6096                                     PAGE
     6097                            *
     6098                            *                 TEST AND PRINT ORDER REGISTER
     6099                            *
     6100   03 01217    727601BB A   ORDEREG  LB,7     GROUP0,3
     6101   03 01218    229FFFFF A            LI,9     -1
     6102   03 01219    6AE00ED8              BAL,14   TP:CONTR
     6103   03 0121A    6AF010C7              BAL,15   FORMSG
     6104   03 0121B    03080105 A            DATA     X'03080105'
     6105   03 0121C    00001F71              DATA     BA(ORMSGDLY)
     6106   03 0121D    00001F75              DATA     BA(ORMSGERR)
     6107   03 0121E    000016A8              DATA     ORMSGHDR
     6108   03 0121F    E80015C9              B        *TP:RTN
     6109                            *
     6110                            *
     6111                                     PAGE
     6112                            *
     6113                            *                 TEST AND PRINT FAULT STATUS
     6114                            *
     6115   03 01220    727001D2 A   FSCOMP   LB,7     DOIOSTAT
     6116   03 01221    229FFFFF A            LI,9     -1
     6117   03 01222    6AE00ED8              BAL,14   TP:CONTR
     6118   03 01223    6AF010C7              BAL,15   FORMSG
     6119   03 01224    01080101 A            DATA     X'01080101'
     6120   03 01225    00001F79              DATA     BA(FSMSGDLY)
     6121   03 01226    00001F7D              DATA     BA(FSMSGERR)
     6122   03 01227    000016B5              DATA     FSMSGHDR
     6123   03 01228    E80015C9              B        *TP:RTN
     6124                            *
     6125                            *                 TEST SUB-CHANNEL STATUS
     6126                            *
     6127   03 01229    727601D2 A   SUBCHAN  LB,7     DOIOSTAT,3          LOAD SUB-CHANNEL STATUS
     6128   03 0122A    229FFFFF A            LI,9     -1
     6129   03 0122B    6AE00ED8              BAL,14   TP:CONTR
     6130   03 0122C    6AF010C7              BAL,15   FORMSG
     6131   03 0122D    01080101 A            DATA     X'01080101'
     6132   03 0122E    00002067              DATA     BA(SUBCHDLY)
     6133   03 0122F    00002063              DATA     BA(SUBCHERR)
     6134   03 01230    000016B5              DATA     FSMSGHDR
     6135   03 01231    E80015C9              B        *TP:RTN
     6136                                     PAGE
     6137                            *
     6138                            *                 TEST AND PRINT K REGISTER
     6139                            *
     6140   03 01232    327001C0 A   KREG     LW,7     GROUP5
     6141   03 01233    329001B2 A            LW,9     KRMASK
     6142   03 01234    6AE00ED8              BAL,14   TP:CONTR
     6143   03 01235    6AF010C7              BAL,15   FORMSG
     6144   03 01236    05200403 A            DATA     X'05200403'
     6145   03 01237    00001F81              DATA     BA(KRMSGDLY)
     6146   03 01238    00001F86              DATA     BA(KRMSGERR)
     6147   03 01239    00001716              DATA     KRMSGHDR
     6148   03 0123A    E80015C9              B        *TP:RTN
     6149                                     PAGE
     6150                            *
     6151                            *                 TEST AND PRINT FAM COUNTERS
     6152                            *
     6153   03 0123B    327001BF A   FACOUNT  LW,7     GROUP4
     6154   03 0123C    25700071 A            SLS,7    -15
     6155   03 0123D    329001B3 A            LW,9     COUNTMSK
     6156   03 0123E    6AE00ED8              BAL,14   TP:CONTR
     6157   03 0123F    6AF010C7              BAL,15   FORMSG
     6158   03 01240    02110103 A            DATA     X'02110103'
     6159   03 01241    00001F8B              DATA     BA(FAMSGDLY)
     6160   03 01242    00001F8F              DATA     BA(FAMSGERR)
     6161   03 01243    000016CE              DATA     FAMSGHDR
     6162   03 01244    E80015C9              B        *TP:RTN
     6163                            *
     6164                            *                 TEST AND PRINT REGISTER FULL INDICATORS
     6165                            *
     6166   03 01245    327001BE A   FULLCOMP LW,7     GROUP3,
     6167   03 01246    2570007D A            SLS,7    -3
     6168   03 01247    329001B4 A            LW,9     FULLMASK
     6169   03 01248    6AE00ED8              BAL,14   TP:CONTR
     6170   03 01249    6AF010C7              BAL,15   FORMSG
     6171   03 0124A    02050105 A            DATA     X'02050105'
     6172   03 0124B    00001F93              DATA     BA(FUMSGDLY)
     6173   03 0124C    00001F98              DATA     BA(FUMSGERR)
     6174   03 0124D    000016E1              DATA     FUMSGHDR
     6175   03 0124E    E80015C9              B        *TP:RTN
     6176                                     PAGE
     6177                            *
     6178                            *                 TEST AND PRINT BYTE COUNTER CONTROL INDICATORS
     6179                            *
     6180   03 0124F    329001BE A   BYCOUNT  LW,9     GROUP3
     6181   03 01250    4B90304F              AND,9    =3
     6182   03 01251    327001BE A            LW,7     GROUP3
     6183   03 01252    25700066 A            SLS,7    -26
     6184   03 01253    4B703050              AND,7    =X'3C'
     6185   03 01254    30700009 A            AW,7     9
     6186   03 01255    329001B5 A            LW,9     BYCNTMSK
     6187   03 01256    6AE00ED8              BAL,14   TP:CONTR
     6188   03 01257    6AF010C7              BAL,15   FORMSG
     6189   03 01258    02060103 A            DATA     X'02060103'
     6190   03 01259    00001FA3              DATA     BA(BIMSGDLY)
     6191   03 0125A    00001F9D              DATA     BA(BIMSGERR)
     6192   03 0125B    000016EA              DATA     BIMSGHDR
     6193   03 0125C    E80015C9              B        *TP:RTN
     6194                            *
     6195                                     PAGE
     6196                            *
     6197                            *                 TEST AND PRINT M-H-I BYTE PRESENCE INDICATORS
     6198                            *
     6199   03 0125D    527001BE A   BYPRES   LH,7     GROUP3
     6200   03 0125E    329001B6 A            LW,9     BYPRMASK
     6201   03 0125F    6AE00ED8              BAL,14   TP:CONTR
     6202   03 01260    6AF010C7              BAL,15   FORMSG
     6203   03 01261    020C0104 A            DATA     X'020C0104'
     6204   03 01262    00001FA9              DATA     BA(RBMSGDLY)
     6205   03 01263    00001FAF              DATA     BA(RBMSGERR)
     6206   03 01264    000016F2              DATA     RBMSGHDR
     6207   03 01265    E80015C9              B        *TP:RTN
     6208                            *
     6209                            *                 TEST AND PRINT J-K BYTE PRESENCE INDICATORS
     6210                            *
     6211   03 01266    727601BF A   JKPRES   LB,7     GROUP4,3
     6212   03 01267    329001B7 A            LW,9     JKPRMASK
     6213   03 01268    6AE00ED8              BAL,14   TP:CONTR
     6214   03 01269    6AF010C7              BAL,15   FORMSG
     6215   03 0126A    02080103 A            DATA     X'02080103'
     6216   03 0126B    00001FA9              DATA     BA(RBMSGDLY)
     6217   03 0126C    00001FAF              DATA     BA(RBMSGERR)
     6218   03 0126D    00001703              DATA     JKMSGHDR
     6219   03 0126E    E80015C9              B        *TP:RTN
     6220                                     PAGE
     6221                            *
     6222                            *                 TEST AND PRINT RA8-RG8 BYTE PRESENCE INDICATORS
     6223                            *
     6224   03 0126F    727401BF A   FAMPRES  LB,7     GROUP4,2
     6225   03 01270    329001B8 A            LW,9     FAMPRMSK
     6226   03 01271    6AE00ED8              BAL,14   TP:CONTR
     6227   03 01272    6AF010C7              BAL,15   FORMSG
     6228   03 01273    02070103 A            DATA     X'02070103'
     6229   03 01274    00001FBE              DATA     BA(FBMSGDLY)
     6230   03 01275    00001FB5              DATA     BA(FBMSGERR)
     6231   03 01276    0000170D              DATA     FBMSGHDR
     6232   03 01277    E80015C9              B        *TP:RTN
     6233                                     PAGE
     6234                            *
     6235                            *                 SENSE FAILING TRACK BYTE
     6236                            *
     6237   03 01278    727615BF     FAILTCK  LB,7     #MSNSEFT,3
     6238   03 01279    229FFFFF A            LI,9     -1
     6239   03 0127A    6AE00ED8              BAL,14   TP:CONTR
     6240   03 0127B    6AF010C7              BAL,15   FORMSG
     6241   03 0127C    01080101 A            DATA     X'01080101'
     6242   03 0127D    00002057              DATA     BA(FAILDLY)
     6243   03 0127E    0000205D              DATA     BA(FAILERR)
     6244   03 0127F    000016B5              DATA     FSMSGHDR
     6245   03 01280    E80015C9              B        *TP:RTN
     6246                            *
     6247                            *                 BYTE  COMPARE AND PRINT ROUTINE
     6248                            *
     6249   03 01281    327001D3 A   BYTEIT   LW,7     DOIOSTAT+1        LOAD BC
     6250   03 01282    2290FFFF A            LI,9     X'FFFF'
     6251   03 01283    357006CD              STW,7    VHEX4B
     6252   03 01284    358006C6              STW,8    VHEX4A
     6253   03 01285    6AE00ED8              BAL,14   TP:CONTR
     6254   03 01286    22F01F17              LI,15    BA(BYTEITER)
     6255   03 01287    33001587              MTW,0    E:MARKER
     6256   03 01288    6930128A              BNEZ     %+2
     6257   03 01289    22F01F23              LI,15    BA(BYTEITDY)
     6258   03 0128A    35F0128C              STW,15   %+2
     6259   03 0128B    6AF00AA5              BAL,15   MSGOUT
     6260   03 0128C    00000000 A            DATA     0
     6261   03 0128D    E80015C9              B        *TP:RTN
     6262                            *
     6263                            *                 SEEK/SENSE COMPARISON ROUTINE
     6264                            *
     6265   03 0128E    52700186 A   SENSCOMP LH,7     SENSEWD
     6266   03 0128F    3290302E              LW,9     =X'FFFF'
     6267   03 01290    6AE00ED8              BAL,14   TP:CONTR
     6268   03 01291    22F02180              LI,15    BA(SECTERR)
     6269   03 01292    33001587              MTW,0    E:MARKER
     6270   03 01293    69301295              BNEZ     %+2
     6271   03 01294    22F02179              LI,15    BA(SECTDLY)
     6272   03 01295    35F01297              STW,15   %+2
     6273   03 01296    6AF00AA5              BAL,15   MSGOUT
     6274   03 01297    00000000 A            DATA     0
     6275   03 01298    32F00008 A            LW,15    8
     6276   03 01299    4BF03032              AND,15   =X'7F'
     6277   03 0129A    35F006BF              STW,15   VDEC2A
     6278   03 0129B    25800079 A            SLS,8    -7
     6279   03 0129C    358006C0              STW,8    VDEC3A
     6280   03 0129D    6AF00AA5              BAL,15   MSGOUT
     6281   03 0129E    00002187              DATA     BA(EXPSECT)
     6282   03 0129F    32F00007 A            LW,15    7
     6283   03 012A0    4BF03032              AND,15   =X'7F'
     6284   03 012A1    35F006BF              STW,15   VDEC2A
     6285   03 012A2    25700079 A            SLS,7    -7
     6286   03 012A3    357006C0              STW,7    VDEC3A
     6287   03 012A4    6AF00AA5              BAL,15   MSGOUT
     6288   03 012A5    0000218F              DATA     BA(OBSSECT)
     6289   03 012A6    E80015C9              B        *TP:RTN
     6290                                     PAGE
     6291                            *
     6292                            *
     6293                            *
     6294                            *                 SET UP A WRITE OPERATION
     6295                            *
     6296   03 012A7    22E00010 A   SET16WRT LI,14    16                SET
     6297   03 012A8    35E002CC A            STW,14   :PATWC                WC = 16
     6298   03 012A9    22E0309C              LI,14    BUF1LO+4          SET
     6299   03 012AA    4BE03051              AND,14   =X'FFFFFFFC'         WA = MOD 4
     6300   03 012AB    35E002CB A            STW,14   :PATBFR
     6301   03 012AC    68002010              B        SETWRITE          GO WRITE PATTERN
     6302                            *                 SET UP A READ OPERATION
     6303   03 012AD    35F012B6     SETREAD  STW,15   SETRDXIT
     6304   03 012AE    B2F0000F A            LW,15    *15               LOAD AND SAVE
     6305   03 012AF    35F0201D              STW,15   F016XMSG              MSG ADDR
     6306   03 012B0    6AF012A7              BAL,15   SET16WRT
     6307   03 012B1    6AF01178              BAL,15   BOUND16
     6308   03 012B2    752002F2 A            STB,2    IOCDGEN
     6309   03 012B3    22000179 A            LI,0     DA(IOCDGEN)
     6310   03 012B4    32F012B6              LW,15    SETRDXIT
     6311   03 012B5    E80212B6              B        *SETRDXIT,1
     6312   03 012B6    00000000 A   SETRDXIT DATA     0
     6313                            *
     6314                            *
     6315   03 012B7    35F001C9 A   REGDIS   STW,15   PSAVE3            SAVE RTN
     6316   03 012B8    33D0158D              MTW,-3   REGPOINT
     6317   03 012B9    32E0158D              LW,14    REGPOINT          LOAD REGISTER POINTER
     6318   03 012BA    B2C2000E A   REGDIS4  LW,12    *14,1             LOAD WORD FROM DIO TABLE
     6319   03 012BB    4BC0303A              AND,12   =X'1FFFF'
     6320   03 012BC    B2C0000C A            LW,12    *12
     6321   03 012BD    4BC03040              AND,12   =X'18'            REMOVE ALL BUT STEP BITS
     6322   03 012BE    22501FC7              LI,5     BA(TSMSG)         LOAD 'TS STEP' MSG
     6323   03 012BF    21C00008 A            CI,12    8                 WAS IT A
     6324   03 012C0    683012C8              BE       REGDIS1               TS STEP,IF ISO BRANCH
     6325   03 012C1    22501FD0              LI,5     BA(TIMSG)         LOAD 'TI STEP' MSG
     6326   03 012C2    21C00010 A            CI,12    X'10'             WAS IT A
     6327   03 012C3    683012C8              BE       REGDIS1               TI STEP, IF SO BRANCH
     6328   03 012C4    22501FD9              LI,5     BA(TRMSG)         LOAD 'TR STEP' MSG
     6329   03 012C5    21C00018 A            CI,12    X'18'             WAS IT A
     6330   03 012C6    683012C8              BE       REGDIS1               TR STEP, IF SO BRANCH
     6331   03 012C7    22501FFE              LI,5     BA(NOMSG)         LOAD 'NO STEP' MSG
     6332   03 012C8    355012CC     REGDIS1  STW,5    REGDIS10          SAVE TYPE OF MSG
     6333   03 012C9    31201588              CW,2     E:ERROR           WAS THERE AN ERROR
     6334   03 012CA    693012CD              BNE      REGDIS3               IF NONE BRANCH
     6335   03 012CB    6AF00AA5              BAL,15   MSGOUT            GO PRINT MSG
     6336   03 012CC    00000000 A   REGDIS10 DATA     0
     6337                            REGDIS3 ;
     6338   03 012CD    20EFFFFD A            AI,14    -3
     6339   03 012CE    B2C2000E A            LW,12    *14,1
     6340   03 012CF    4BC0303A              AND,12   =X'1FFFF'
     6341   03 012D0    B2C0000C A            LW,12    *12
     6342   03 012D1    21C00018 A            CI,12    X'18'             IF NEXT OPERATION WAS A STEP LOOP
     6343   03 012D2    694012BA              BCS,4    REGDIS4
     6344                            REGDIS5  ;
     6345   03 012D3    227FFFF9 A            LI,7     -7
     6346   03 012D4    B254000E A   REGDIS2  LW,5     *14,2             LOAD RETURNED STATUS
     6347   03 012D5    355E01C2 A            STW,5    GROUP6+1,7
     6348   03 012D6    20EFFFFD A            AI,14    -3
     6349   03 012D7    657012D4              BIR,7    REGDIS2
     6350   03 012D8    20E00003 A            AI,14    3
     6351   03 012D9    35E0158D              STW,14   REGPOINT          SAVE NEW VALUE FOR POINTER
     6352   03 012DA    E80001C9 A            B        *PSAVE3
     6353                            *
     6354                            *
     6355                            *
     6356   03 012DB    35F001C8 A   RECOMP   STW,15   PSAVE2
     6357   03 012DC    6AF012B7              BAL,15   REGDIS
     6358   03 012DD    E7000006 A   RECOMP1  EXU      *6
     6359   03 012DE    6AF011A3              BAL,15   MECOMP            MEMORY INDICATOR COMPARE
     6360   03 012DF    E7020006 A            EXU      *6,1
     6361   03 012E0    6AF01245              BAL,15   FULLCOMP          MEMORY FULL INDICATOR COMPARE
     6362   03 012E1    E7040006 A            EXU      *6,2
     6363   03 012E2    33001592              MTW,0    PARTING
     6364   03 012E3    693012E6              BNEZ     %+3
     6365   03 012E4    49800003 A            OR,8     3
     6366   03 012E5    358001B5 A            STW,8    BYCNTMSK
     6367   03 012E6    E7040006 A            EXU      *6,2
     6368   03 012E7    6AF0124F              BAL,15   BYCOUNT           BYTE INDICATOR COMPARE
     6369   03 012E8    E7060006 A            EXU      *6,3
     6370   03 012E9    33001592              MTW,0    PARTING
     6371   03 012EA    693012EC              BNEZ     %+2
     6372   03 012EB    358001B6 A            STW,8    BYPRMASK
     6373   03 012EC    6AF0125D              BAL,15   BYPRES            M-H-I BYTE PRESENCE COMPARE
     6374   03 012ED    20600004 A            AI,6     4
     6375   03 012EE    E7000006 A            EXU      *6
     6376   03 012EF    6AF01266              BAL,15   JKPRES            J-K BYTE PRESENCE COMPARE
     6377   03 012F0    E7020006 A            EXU      *6,1
     6378   03 012F1    358001B3 A            STW,8    COUNTMSK          SET UP FAM COUNTER MASK
     6379   03 012F2    E7040006 A            EXU      *6,2
     6380   03 012F3    6AF0123B              BAL,15   FACOUNT           FAM COUNTER COMPARE
     6381   03 012F4    20600003 A            AI,6     3
     6382   03 012F5    E80001C8 A            B        *PSAVE2
     6383                            *
     6384                            *
     6385                            *
     6386                                     PAGE
     6387                            *
     6388                            *                 CONTROL I/O STATUS GATHERING
     6389                            *
     6390   03 012F6    35F015C6     ALFUNCT  STW,15   INSTRLIST         SAVE RTN
     6391   03 012F7    B2F0000F A            LW,15    *15
     6392   03 012F8    35F001CC A            STW,15   ALFSAVE
     6393   03 012F9    32F001D0 A            LW,15    IODWADR           LOAD DW ADDR
     6394   03 012FA    25F00001 A            SLS,15   1                 POSITION ADDR
     6395   03 012FB    327015A9              LW,7     XPSDINT           SET UP
     6396   03 012FC    3570005C A            STW,7    X'5C'                 INTERRUPT
     6397   03 012FD    327002DD A            LW,7     SECTDLAY          LOAD SECTOR DELAY COUNT
     6398   03 012FE    F2F0000F A            LB,15    *15               LOAD ORDER
     6399   03 012FF    68301305              BEZ      ALFUNCT1          IF STOP ORDER BRANCH
     6400   03 01300    21F00004 A            CI,15    4                 IF SENSE
     6401   03 01301    68301305              BE       ALFUNCT1              BRANCH
     6402   03 01302    21F00003 A            CI,15    3                 IF SEEK
     6403   03 01303    68301305              BE       ALFUNCT1              BRANCH
     6404   03 01304    32700191 A            LW,7     DLAYSAVE
     6405   03 01305    2570007E A   ALFUNCT1 SLS,7    -2                POSITION DELAY
     6406   03 01306    6D000032 A            WD,0     X'32'             INHIBIT INTERRUPTS
     6407   03 01307    22E00020 A            LI,14    X'20'             ARM AND ENABLE
     6408   03 01308    6DE01200 A            WD,14    X'1200'               I/O INTERRUPTS
     6409   03 01309    6D000022 A            WD,0     X'22'             ALLOW INTERRUPTS
     6410   03 0130A    20700000 A            AI,7     0
     6411   03 0130B    20700000 A            AI,7     0
     6412   03 0130C    6470130A              BDR,7    %-2               DELAY UNTIL INTERRUPT
     6413   03 0130D    6DE01100 A            WD,14    X'1100'           DISALLOW INTERRUPT
     6414   03 0130E    22C00000 A            LI,12    0
     6415   03 0130F    35C015AA              STW,12   ALFXITFG          ZERO EXIT FLAG
     6416   03 01310    35C0158E              STW,12   INTEXFG           ZERO INTERRUPT EXPECTED FLAG
     6417   03 01311    22D00000 A            LI,13    0                 REGISTER FOR I/O
     6418   03 01312    227FFFEE A            LI,7     TIOSTAT-IOTAB     ZERO
     6419   03 01313    35CE01E8 A            STW,12   IOTAB,7               I/O STATUS
     6420   03 01314    65701313              BIR,7    %-1                   TABLE
     6421   03 01315    31301586              CW,3     E:PRINT
     6422   03 01316    691010C1              BL       XIT
     6423   03 01317    B27001CC A   ALFUNCT2 LW,7     *ALFSAVE
     6424   03 01318    3300159C              MTW,0    T:OCCUR           TEST FOR TRAP
     6425   03 01319    693010C1              BNEZ     XIT                   IF ONE OCCURRED DO NO I/O
     6426   03 0131A    21700080 A            CI,7     X'80'             SET FOR END OF
     6427   03 0131B    6840131D              BCR,4    %+2                   LIST
     6428   03 0131C    351015AA              STW,1    ALFXITFG              IF SO SET EXIT FLAG
     6429   03 0131D    21700060 A            CI,7     X'60'             TEST FOR BC OR MASK
     6430   03 0131E    69401339              BCS,4    ALFUNCT3              IF SO NEXT STEP
     6431   03 0131F    22C00000 A            LI,12    0                 ZERO
     6432   03 01320    22D00000 A            LI,13    0                     STATUS REGISTER
     6433   03 01321    2170000F A            CI,7     X'F'              TEST FOR FIRST
     6434   03 01322    68401339              BCR,4    ALFUNCT3              SIO IF CALLED FOR SKIP IT
     6435   03 01323    22000AEA              LI,0     DA(STOPIT)        LOAD ADDR OF STOP IOCD
     6436   03 01324    4B70303B              AND,7    =7                AND OUT ALL BUT POINTER
     6437   03 01325    328E1144              LW,8     INSTRTAB,7        LOAD I/O INST
     6438   03 01326    30803052              AW,8     =X'00C00000'      ADD REGISTER FIELD =12
     6439   03 01327    21700006 A            CI,7     6                 TEST FOR AIO
     6440   03 01328    6930132B              BNE      %+3
     6441   03 01329    30803053              AW,8     =X'00100000'      MAKE IT REG 13
     6442   03 0132A    6800132C              B        %+2               IF AIO SKIP ADDING I/O ADDR
     6443   03 0132B    308002BF A            AW,8     :DEVADDR          ADD I/O ADDR
     6444   03 0132C    3580132D              STW,8    ALFUNCT9          SAVE I/O INSTR
     6445   03 0132D    00000000 A   ALFUNCT9 DATA     0                 DO I/O INSTR
     6446   03 0132E    74020007 A            STCF     7,1               SAVE CC'S
     6447   03 0132F    22800009 A            LI,8     9
     6448   03 01330    31800225 A            CW,8     :MACHINE
     6449   03 01331    68301333              BE       %+2               IF NOT SIGMA 8/9
     6450   03 01332    32C00020 A            LW,12    X'20'                LOAD CDW FROM X'20'
     6451   03 01333    4BC03054              AND,12   =X'FF1FFFFF'
     6452   03 01334    4B703039              AND,7    =X'00E00000'      REMOVE ALL BUT CC'S
     6453   03 01335    30C00007 A            AW,12    7                 ADD TO DWA
     6454   03 01336    B27001CC A            LW,7     *ALFSAVE
     6455   03 01337    4B70302A              AND,7    =X'F'             REMOVE ALL BUT STATUS TABLE POINTER
     6456   03 01338    15CE01D4 A            STD,12   SIOSTAT,7         SAVE STATUS AND CC'S
     6457   03 01339    661001CC A   ALFUNCT3 AWM,1    ALFSAVE
     6458   03 0133A    330015AA              MTW,0    ALFXITFG          TEST EXIT FLAG
     6459   03 0133B    693010C1              BNEZ     XIT                   IF SET EXIT
     6460   03 0133C    68001317              B        ALFUNCT2          IF NOT LOOP
     6461                            *
     6462                                     BOUND    8
     6463   03 0133E    00000000 A   FUNINTR  DATA     0,0
            03 0133F    00000000 A
     6464   03 01340    00001342              DATA     FUNINTR1,7**24
            03 01341    07000000 A
     6465   03 01342    22700001 A   FUNINTR1 LI,7     1
     6466   03 01343    351015AB              STW,1    GOTINTR
     6467   03 01344    0E20133E              LPSD,2   FUNINTR
     6468                                     PAGE
     6469                            *
     6470                            *                 TEST I/O STATUS GATHERED
     6471                            *
     6472   03 01345    3510158E     CLISTI   STW,1    INTEXFG           SET INTERRUPT EXPECTED FLAG
     6473   03 01346    35F001CD A   CLIST    STW,15   ALFSAVE1          SAVE RTN
     6474   03 01347    22700000 A            LI,7     0
     6475   03 01348    357015AA              STW,7    ALFXITFG          SET OBS = 0
     6476   03 01349    22800001 A            LI,8     1                 SET EXP = 1
     6477   03 0134A    229FFFFF A            LI,9     -1                SET MASK
     6478   03 0134B    22F01397              LI,15    CLFUN12           SET RTN
     6479   03 0134C    330015AB              MTW,0    GOTINTR           TEST GOT INTERRUPT FLAG
     6480   03 0134D    68301354              BEZ      CLIST01           IF ZERO BRANCH
     6481   03 0134E    3300158E              MTW,0    INTEXFG           TEST FOR INT EXP
     6482   03 0134F    69301359              BNEZ     CLFUNCT           IF NOT SET BRANCH
     6483   03 01350    6AE00ED8              BAL,14   TP:CONTR          SO SET ERROR FLAG
     6484   03 01351    6AF00AA5              BAL,15   MSGOUT            GO PRINT 'UNEXPECTED INTERRUPT
     6485   03 01352    0000200C              DATA     BA(UNEXINT)           OCCURRED'
     6486   03 01353    68001359              B        CLFUNCT           NEXT STAGE
     6487   03 01354    3300158E     CLIST01  MTW,0    INTEXFG           TEST FOR INTERRUPT EXPECTED
     6488   03 01355    68301359              BEZ      CLFUNCT               IF NONE TAKE GOOD EXIT
     6489   03 01356    6AE00ED8              BAL,14   TP:CONTR          SO GO SET ERROR FLAGS
     6490   03 01357    6AF00AA5              BAL,15   MSGOUT            GO PRINT 'EXPECTED
     6491   03 01358    00002004              DATA     BA(EXPINT)            INTERRUPT DIDN'T OCCUR'
     6492                            CLFUNCT ;
     6493   03 01359    B2A015C6              LW,10    *INSTRLIST        LOAD TEST POINTER
     6494   03 0135A    68301397              BEZ      CLFUN12               IF ZERO EXIT
     6495   03 0135B    35A001CC A            STW,10   ALFSAVE           SAVE POINTER
     6496                            *
     6497   03 0135C    32903055     CLFUN01  LW,9     =X'FFFFE000'      LOAD NORMAL MASK
     6498   03 0135D    B28001CC A            LW,8     *ALFSAVE          LOAD INSTR
     6499   03 0135E    4B80302A              AND,8    =X'F'
     6500   03 0135F    69301361              BNEZ     %+2               1F NOT FIRST SIO SKIP
     6501   03 01360    32903056              LW,9     =X'FF00E000'          LOAD MASK FOR FIRST SIO
     6502   03 01361    330015AA     CLFUN02  MTW,0    ALFXITFG          IF EXIT FLAG
     6503   03 01362    69301397              BNEZ     CLFUN12               SET EXIT
     6504   03 01363    B28001CC A            LW,8     *ALFSAVE          LOAD FIRST TEST
     6505   03 01364    21800080 A            CI,8     X'80'             IS IT THE END
     6506   03 01365    68401367              BCR,4    %+2               IF SO RETREAT ORDERLY
     6507   03 01366    351015AA              STW,1    ALFXITFG          SET EXIT FLAG
     6508   03 01367    21800040 A            CI,8     X'40'             IS IT THE SPECIAL
     6509   03 01368    6840136D              BCR,4    CLFUN03
     6510   03 01369    32900008 A            LW,9     8                 SET UP NEW MASK
     6511   03 0136A    4B903055              AND,9    =X'FFFFE000'      REMOVE INDEX
     6512   03 0136B    661001CC A   CLFUN05  AWM,1    ALFSAVE           UPDATE  TEST POINTER
     6513   03 0136C    68001361              B        CLFUN02
     6514   03 0136D    4B803032     CLFUN03  AND,8    =X'7F'
     6515   03 0136E    21800020 A            CI,8     X'20'
     6516   03 0136F    69301375              BNE      CLFUN04               IF NOT BRANCH
     6517   03 01370    327001DB A            LW,7     HIOSTAT+1         LOAD HIO STATUS 0 BC
     6518   03 01371    B28001CC A   CLFUN06  LW,8     *ALFSAVE
     6519   03 01372    25800070 A            SLS,8    -16
     6520   03 01373    6AF01282              BAL,15   BYTEIT+1
     6521   03 01374    68001395              B        CLFUN20           GO UPDATE THE INDEX
     6522                            *
     6523   03 01375    21800021 A   CLFUN04  CI,8     X'21'             TEST FOR BC CHECK 1
     6524   03 01376    69301379              BNE      CLFUN06X              IF NOT BRANCH
     6525   03 01377    327001E7 A            LW,7     TIOSTAT1+1        LOAD TIO STATUS 1
     6526   03 01378    68001371              B        CLFUN06           GO TEST IT
     6527   03 01379    21800022 A   CLFUN06X CI,8     X'22'             TEST FOR CDW
     6528   03 0137A    69301380              BNE      CLFUN07               IF NOT NEXT TEST
     6529   03 0137B    327001DA A            LW,7     HIOSTAT           LOAD COMMAND DOUBLEWORD
     6530   03 0137C    B28001CC A            LW,8     *ALFSAVE          LOAD EXP CDW
     6531   03 0137D    25800078 A            SLS,8    -8                POSITION CDW
     6532   03 0137E    6AF01197              BAL,15   CDCOMP+1          TEST CDW
     6533   03 0137F    68001395              B        CLFUN20
     6534                            *
     6535   03 01380    B28001CC A   CLFUN07  LW,8     *ALFSAVE
     6536   03 01381    B24001CC A            LW,4     *ALFSAVE
     6537   03 01382    4B40302A              AND,4    =X'F'                 REMOVE JUNK
     6538   03 01383    12C801D4 A            LD,12    SIOSTAT,4         SET UP CURRENT STATUS
     6539   03 01384    15C001D2 A            STD,12   DOIOSTAT              TO BE TESTED
     6540   03 01385    4B40303B              AND,4    =X'7'             REMOVE ALL BUT INSTR INDEX
     6541   03 01386    21400006 A            CI,4     6                 IS IT AN AIO
     6542   03 01387    6930138A              BNE      CLFUN08           IF NOT BRANCH
     6543   03 01388    330015AB              MTW,0    GOTINTR           WAS THERE AN INTERRUPT
     6544   03 01389    68301395              BEZ      CLFUN20           IF NONE BRANCH
     6545   03 0138A    32F81144     CLFUN08  LW,15    INSTRTAB,4        LOAD I/O INSTR
     6546   03 0138B    30F03052              AW,15    =X'00C00000'
     6547   03 0138C    21400006 A            CI,4     6
     6548   03 0138D    6930138F              BNE      %+2
     6549   03 0138E    30F03053              AW,15    =X'00100000'
     6550   03 0138F    35F00199 A   CLFUN25  STW,15   IOINSTR           SAVE INSTRUCTION
     6551   03 01390    35801394              STW,8    CLFUN10           SAVE EXPECTED STATUS
     6552   03 01391    35901393              STW,9    CLFUN09           SAVE MASK
     6553   03 01392    6AF01110              BAL,15   IOCOMP            GO CHECK I/O
     6554   03 01393    00000000 A   CLFUN09  DATA     0
     6555   03 01394    00000000 A   CLFUN10  DATA     0
     6556   03 01395    661001CC A   CLFUN20  AWM,1    ALFSAVE           UPDATE TEST POINTER
     6557   03 01396    6800135C              B        CLFUN01
     6558   03 01397    32C01144     CLFUN12  LW,12    INSTRTAB          RESTORE SIO INSTRUCTION
     6559   03 01398    30C03052              AW,12    =X'00C00000'      ADD REG 12 ADDR
     6560   03 01399    35C00199 A            STW,12   IOINSTR           SAVE INSTR
     6561   03 0139A    E80001CD A            B        *ALFSAVE1         GO TO EXIT
     6562                                     PAGE
     6563                            *
     6564                            *                 RESET RIOP MODULE
     6565                            *
     6566   03 0139B    35F01591     RESETMOD STW,15   IOMODRTN
     6567   03 0139C    B2F0000F A            LW,15    *15
     6568   03 0139D    35F013A3              STW,15   RESETM2
     6569   03 0139E    358013A0              STW,8    RESETM1
     6570   03 0139F    6AF00E98     RESETM3  BAL,15   T:EXECRS
     6571   03 013A0    00000000 A   RESETM1  DATA     0
     6572   03 013A1    00000000 A            DATA     0
     6573   03 013A2    00000000 A            DATA     0
     6574   03 013A3    00000000 A   RESETM2  DATA     0
     6575   03 013A4    00000000 A            DATA     0
     6576   03 013A5    E8021591              B        *IOMODRTN,1
     6577   03 013A6    E8041591              B        *IOMODRTN,2
     6578                                     PAGE
     6579                            *
     6580                            *                 STANDAND I/O SUBROUTINES
     6581                            *
     6582         03 013A7           :SEEKMODZ EQU     %
     6583   03 013A7    220009E5              LI,0     DA(IOCDSEEK)
     6584   03 013A8    680013AD              B        IOMOD2
     6585                            *
     6586   03 013A9    220009E6     :SNSMODZ LI,0     DA(IOCDSNS)
     6587   03 013AA    680013AD              B        IOMOD2
     6588                            *
     6589   03 013AB    220009E7     :WRTMODZ LI,0     DA(IOCDWRT)
     6590   03 013AC    680013AD              B        IOMOD2
     6591                            *
     6592   03 013AD    22E02778     IOMOD2   LI,14    ALN001
     6593   03 013AE    680013B7              B        IOMOD1
     6594                            *
     6595   03 013AF    220009E5     :SEEKMOD LI,0     DA(IOCDSEEK)
     6596   03 013B0    680013B6              B        IOMOD
     6597                            *
     6598   03 013B1    220009E6     :SNSMOD  LI,0     DA(IOCDSNS)
     6599   03 013B2    680013B6              B        IOMOD
     6600                            *
     6601   03 013B3    220009E7     :WRTMOD  LI,0     DA(IOCDWRT)
     6602   03 013B4    680013B6              B        IOMOD
     6603                            *
     6604   03 013B5    220009E8     :READMOD LI,0     DA(IOCDREAD)
     6605                            *
     6606                            *
     6607   03 013B6    22E013C5     IOMOD    LI,14    ALPMOD
     6608   03 013B7    35E013C0     IOMOD1   STW,14   IOMODALP
     6609   03 013B8    35001590              STW,0    IOMODIOC
     6610   03 013B9    35F01591              STW,15   IOMODRTN
     6611   03 013BA    B2F0000F A            LW,15    *15
     6612   03 013BB    35F013C1              STW,15   IOMODMSG
     6613                            *
     6614                            *
     6615   03 013BC    32001590              LW,0     IOMODIOC
     6616   03 013BD    6AF00E9D              BAL,15   T:EXEC
     6617   03 013BE    00000000 A            DATA     0
     6618   03 013BF    4CC00000 A            SIO,12   0
     6619   03 013C0    00000000 A   IOMODALP DATA     0
     6620   03 013C1    00000000 A   IOMODMSG DATA     0
     6621   03 013C2    000013C8              DATA     CLPMOD
     6622   03 013C3    E8021591              B        *IOMODRTN,1
     6623   03 013C4    E8041591              B        *IOMODRTN,2
     6624                            *
     6625                            *
     6626   03 013C5    6AF012F6     ALPMOD   BAL,15   ALFUNCT
     6627   03 013C6    000024B2              DATA     CLPLIST
     6628   03 013C7    680010C1              B        XIT
     6629                            *
     6630                            *
     6631   03 013C8    6AF01345     CLPMOD   BAL,15   CLISTI
     6632   03 013C9    680010C1              B        XIT
     6633                            *
     6634                            *
     6635                            *
     6636                            *
     6637                                     BOUND    8
     6638   03 013CA    030056FA     IOCDSEEK GEN,8,24 X'03',BA(SEEKRAD)+2
     6639   03 013CB    1C000002 A            GEN,8,24 X'1C',2
     6640   03 013CC    040056FC     IOCDSNS  GEN,8,24 X'04',BA(:SNSWORD)
     6641   03 013CD    1C000004 A            GEN,8,24 X'1C',4
     6642   03 013CE    0100C260     IOCDWRT  GEN,8,24 X'01',BA(BUF1LO)
     6643   03 013CF    1C000400 A            GEN,8,24 X'1C',1024
     6644   03 013D0    0200C260     IOCDREAD GEN,8,24 X'02',BA(BUF1LO)
     6645   03 013D1    1C000400 A            GEN,8,24 X'1C',1024
     6646                                     PAGE
     6647                            *
     6648   03 013D2    22400000 A   UPDATA   LI,4     0                 LOAD ZERO
     6649   03 013D3    331015C2              MTW,1    BC1               UPDATE BC OF FIRST IOCD
     6650   03 013D4    313015C2              CW,3     BC1               IF INDEX LESS THAN
     6651   03 013D5    E810000F A            BGE      *15                   FOUR BRANCH
     6652   03 013D6    354015C2              STW,4    BC1
     6653   03 013D7    331015C3              MTW,1    BC2
     6654   03 013D8    313015C3              CW,3     BC2
     6655   03 013D9    E810000F A            BGE      *15
     6656   03 013DA    354015C3              STW,4    BC2
     6657   03 013DB    331015C4              MTW,1    BD1
     6658   03 013DC    313015C4              CW,3     BD1
     6659   03 013DD    E810000F A            BGE      *15
     6660   03 013DE    354015C4              STW,4    BD1
     6661   03 013DF    331015C5              MTW,1    BD2
     6662   03 013E0    313015C5              CW,3     BD2
     6663   03 013E1    E810000F A            BGE      *15
     6664   03 013E2    20F00001 A            AI,15    1
     6665   03 013E3    680013E5              B        DATAINIT
     6666   03 013E4    68000CD1              B        RIOPEXIT
     6667                            *
     6668                            *
     6669                            *
     6670                                     PAGE
     6671                            *                 INITIALIZE DATA CHAIN
     6672                            *
     6673   03 013E5    02200060 A   DATAINIT LCI      6
     6674   03 013E6    22A03098              LI,10    BUF1LO
     6675   03 013E7    35A002CD A            STW,10   :CLRADDR
     6676   03 013E8    22B00010 A            LI,11    16
     6677   03 013E9    35B002CE A            STW,11   :CLRSIZE
     6678   03 013EA    22C00000 A            LI,12    0
     6679   03 013EB    35C015C2              STW,12   BC1
     6680   03 013EC    35C015C3              STW,12   BC2
     6681   03 013ED    35C015C4              STW,12   BD1
     6682   03 013EE    35C015C5              STW,12   BD2
     6683   03 013EF    E800000F A            B        *15
     6684                            *
     6685                            *                 SET UP DATA IOCD BYTE COUNT INITIALLY
     6686                            *
     6687   03 013F0    B240000F A   DATAUP LW,4       *15               LOAD ADDR OF IOCD'S
     6688   03 013F1    02200060 A            LCI      6                 LOAD CHAINED
     6689   03 013F2    AA400004 A            LM,4     *4                    IOCD'S
     6690         03 013F3           DATAUP1  EQU      %
     6691   03 013F3    304015C4              AW,4     BD1
     6692   03 013F4    305015C2              AW,5     BC1
     6693   03 013F5    306015C5              AW,6     BD2
     6694   03 013F6    307015C3              AW,7     BC2
     6695   03 013F7    02200060 A            LCI      6                 SAVE IOCD'S
     6696   03 013F8    2B4001E8 A            STM,4    CHAIN
     6697   03 013F9    E802000F A            B        *15,1
     6698                                     PAGE
     6699                            *
     6700                            *                 TEST EXP TO OBS DATA STRINGS
     6701                            *
     6702   03 013FA    154001F4 A   BYTEPATN STD,4    BYTEIOC           SAVE IOCD POINTER
     6703   03 013FB    154001F2 A            STD,4    BYTEIOCD          SAVE IOCD POINTER
     6704   03 013FC    35F015BB              STW,15   BYTEXIT           SAVE RETURN
     6705   03 013FD    6AF01414              BAL,15   BYSETINT
     6706   03 013FE    000001F2 A            DATA     BYTEIOCD
     6707   03 013FF    22A00000 A            LI,10    0                 ZERO
     6708   03 01400    35A015B7              STW,10   BYTEEND               BYTE END FLAG
     6709   03 01401    68001404              B        %+3
     6710   03 01402    6AF0141D     BYTEPAT4 BAL,15   BYSET
     6711   03 01403    000001F2 A            DATA     BYTEIOCD
     6712   03 01404    32F015BB              LW,15    BYTEXIT           LOAD EXIT ADDR
     6713   03 01405    330015B7              MTW,0    BYTEEND
     6714   03 01406    69301412              BNEZ     BYTEDONE
     6715   03 01407    72E80000 A   BYTEPAT2 LB,14    0,4               LOAD EXP PATTERN
     6716   03 01408    71EC0000 A            CB,14    0,6               TEST TO OBS PATTERN
     6717   03 01409    6830140F              BE       BYTEPAT3          IF EQUAL GO UPDATE POINTER
     6718   03 0140A    22700000 A   BYTEPAT1 LI,7     0                 SET
     6719   03 0140B    22800001 A            LI,8     1                     ERROR
     6720   03 0140C    229FFFFF A            LI,9     -1                    IF
     6721                            BYTEOUT ;
     6722   03 0140D    6AE00ED8              BAL,14   TP:CONTR              NOT
     6723   03 0140E    6AF0143F              BAL,15   PRINTBY               EQUAL
     6724   03 0140F    20400001 A   BYTEPAT3 AI,4     1                 UPDATE EXP POINTER
     6725   03 01410    20600001 A            AI,6     1                 UPDATE OBS POINTER
     6726   03 01411    64901407              BDR,9    BYTEPAT2          UPDATE BC
     6727                            BYTEDONE ;
     6728   03 01412    22900000 A            LI,9     0                 FAKE MASK
     6729   03 01413    6800140D              B        BYTEOUT           GO CHECK PRINT CONTROL
     6730                                     PAGE
     6731                            *
     6732                            *
     6733   03 01414    B2E0000F A   BYSETINT LW,14    *15               LOAD ADDR OF DW ADDR
     6734   03 01415    9240000E A            LD,4     *14
     6735   03 01416    126A0000 A            LD,6     0,5               LOAD READ IOCD
     6736   03 01417    12480000 A            LD,4     0,4                &   WRITE IOCD
     6737   03 01418    32900007 A            LW,9     7                 LOAD BC OF READ IOCD
     6738   03 01419    69101428              BLZ      BYP3                  IF DC BRANCH
     6739   03 0141A    32900005 A            LW,9     5                 LOAD BC OF WRITE IOCD
     6740   03 0141B    69101428              BLZ      BYP3                  IF DC BRANCH
     6741   03 0141C    68001427              B        BYP4
     6742                            *
     6743   03 0141D    B2E0000F A   BYSET    LW,14    *15               LOAD ADDR OF DW ADDR
     6744   03 0141E    154001F0 A            STD,4    BYTSAVE
     6745   03 0141F    9240000E A            LD,4     *14               LOAD DW ADDR OF IOCD'S
     6746   03 01420    12A80000 A            LD,10    0,4               LOAD WRITE IOCD
     6747   03 01421    12CA0000 A            LD,12    0,5               LOAD READ  IOCD
     6748   03 01422    124001F0 A            LD,4     BYTSAVE
     6749   03 01423    3290000D A   BYTSET1  LW,9     13                LOAD BC OF READ IOCD
     6750   03 01424    69101432              BLZ      BYP2                  IF DC BRANCH
     6751   03 01425    3290000B A            LW,9     11                LOAD BC OF WRITE IOCD
     6752   03 01426    6910142E              BLZ      BYP1
     6753                            BYP4 ;
     6754   03 01427    351015B7              STW,1    BYTEEND           IF NONE SET END FLAG
     6755   03 01428    4B403029     BYP3     AND,4    =X'FFFFFF'        MASK FOR ONLY MBA WRITE
     6756   03 01429    4B50302E              AND,5    =X'FFFF'          MASK FOR ONLY BC WRITE
     6757   03 0142A    4B603029              AND,6    =X'FFFFFF'        MASK FOR ONLY MBA READ
     6758   03 0142B    4B70302E              AND,7    =X'FFFF'          MASK FOR ONLY BC READ
     6759   03 0142C    4B90302E              AND,9    =X'FFFF'
     6760   03 0142D    E802000F A            B        *15,1             EXIT
     6761                            *
     6762   03 0142E    E610000E A   BYP1     AWM,1    *14               IF DC UPDATE IOCD POINTER (WRITE)
     6763   03 0142F    9240000E A            LD,4     *14
     6764   03 01430    12480000 A            LD,4     0,4
     6765   03 01431    68001428              B        BYP3
     6766                            *
     6767                            *
     6768   03 01432    E612000E A   BYP2     AWM,1    *14,1
     6769   03 01433    9260000E A            LD,6     *14
     6770   03 01434    126E0000 A            LD,6     0,7
     6771   03 01435    68001428              B        BYP3
     6772                            *
     6773                            *
     6774   03 01436    00200801 A   FAMWORD  DATA     X'00200801'       VARIBLE DATA
     6775   03 01437    00000000 A            DATA     0                 MASK
     6776   03 01438    00000000 A            DATA     0                 FAM WORD
     6777   03 01439    01200801 A   EXPCORE  DATA     X'01200801'       VARIBLE DATA
     6778   03 0143A    00000000 A            DATA     0                 MASK
     6779   03 0143B    00000000 A            DATA     0                 EXP CORE WORD
     6780   03 0143C    17200801 A   OBSCORE  DATA     X'17200801'
     6781   03 0143D    00000000 A            DATA     0                 MASK
     6782   03 0143E    00000000 A            DATA     0                 OBS CORE WORD
     6783                                     PAGE
     6784                            *
     6785                            *                 PRINT EXP AND OBS BYTE PATTERNS
     6786                            *
     6787   03 0143F    22F02022     PRINTBY  LI,15    BA(PATHERR)       DISPLAY 'DATA PATHS TEST ***(DISPLAY
     6788   03 01440    33001587              MTW,0    E:MARKER
     6789   03 01441    69301443              BNEZ     %+2
     6790   03 01442    22F0201D              LI,15    BA(PATHDIS)       DISPLAY 'DATA PATHS TEST ***(ERROR)*
     6791   03 01443    35F01445              STW,15   %+2
     6792   03 01444    6AF00AA5              BAL,15   MSGOUT
     6793   03 01445    00000000 A            DATA     0
     6794   03 01446    6AF00AA5              BAL,15   MSGOUT            PRINT: HEADERS
     6795   03 01447    0000206B              DATA     BA(EXPATMSG)
     6796   03 01448    EAF0021C A            BAL,15   *:PRINT
     6797   03 01449    00001726              DATA     NUMMSG            DISPLAY '01234567 ETC'
     6798   03 0144A    351006CB              STW,1    VDEC4B
     6799   03 0144B    22A00000 A            LI,10    0                 ZERO END
     6800   03 0144C    35A015B7              STW,10   BYTEEND               FLAG
     6801   03 0144D    35A015B8              STW,10   ENDFLAG               FLAG
     6802   03 0144E    35A015B9              STW,10   ENDFLAG1              FLAG
     6803   03 0144F    35A015BA              STW,10   ENDFLAG2              FLAG
     6804   03 01450    6AF01414              BAL,15   BYSETINT
     6805   03 01451    000001F4 A            DATA     BYTEIOC
     6806   03 01452    02200040 A            LCI      4                 LOAD AND SAVE
     6807   03 01453    2B4001F6 A            STM,4    TSAVE1                FAM   INDEX
     6808   03 01454    2B4001FB A            STM,4    INSAVE1               CORE  INDEX
     6809   03 01455    124001F4 A            LD,4     BYTEIOC           LOAD AND SAVE
     6810   03 01456    154001F2 A            STD,4    BYTEIOCD              IOCD DW ADR
     6811   03 01457    228FFFFF A   BYTEPRT7 LI,8     -1                LOAD
     6812   03 01458    229FFFFF A            LI,9     -1                    MASKS
     6813   03 01459    124001F6 A            LD,4     TSAVE1            LOAD FAM PATTERN POINTER
     6814   03 0145A    4B40304F              AND,4    =3                SAVE MBA OF LSB 2
     6815   03 0145B    30500004 A            AW,5     4                 ADD TO BC
     6816   03 0145C    33000004 A            MTW,0    4                 TEST FOR WORD BOUND ADDR
     6817   03 0145D    68301460              BEZ      %+3               IF SO SKIP
     6818   03 0145E    25800078 A            SLS,8    -8                IF NOT MOVE MASK RIGHT
     6819   03 0145F    6440145E              BDR,4    %-1               UNTIL POSITIONED
     6820                            *
     6821                            *
     6822   03 01460    205FFFFC A            AI,5     -4                DECREMENT THE BC BY 4
     6823   03 01461    69201466              BGZ      BYTEPRT3          IF NOT =0 OR NEG MASK IS OK
     6824   03 01462    68301465              BEZ      BYTEPRT2          IF =0 MASK OK
     6825   03 01463    25900008 A            SLS,9    8                 POSITION MASK LEFT
     6826   03 01464    65501463              BIR,5    %-1               UNTIL POSITIONED
     6827                            *
     6828                            *
     6829   03 01465    351015B8     BYTEPRT2 STW,1    ENDFLAG           SET END OF WRITE IOCD FLAG
     6830                            *
     6831                            *
     6832   03 01466    4B800009 A   BYTEPRT3 AND,8    9                 PUT THE MASK TOGETHER
     6833   03 01467    35801438              STW,8    FAMWORD+2         AND SAVE
     6834   03 01468    124001F6 A            LD,4     TSAVE1            LOAD MBA AND BC
     6835   03 01469    4B403057              AND,4    =X'FFFFFC'        REMOVE LSB 2
     6836   03 0146A    32800004 A            LW,8     4                 LOAD
     6837   03 0146B    2580007E A            SLS,8    -2                    WORD
     6838   03 0146C    B2800008 A            LW,8     *8
     6839   03 0146D    35801437              STW,8    FAMWORD+1         SAVE AS WORD FROM FAM PATTERN
     6840   03 0146E    20400004 A            AI,4     4                 UPDATE MBA
     6841   03 0146F    464001F6 A            XW,4     TSAVE1            SAVE IT
     6842   03 01470    4B40304F              AND,4    =3                REMOVE ALL BUT LSB 2
     6843   03 01471    69301473              BNEZ     %+2               IF ZERO
     6844   03 01472    22400004 A            LI,4     4                     ADD 4 BYTE
     6845   03 01473    38500004 A            SW,5     4                 THEN SUBTRACT FROM BC
     6846   03 01474    355001F7 A            STW,5    TSAVE2                AND SAVE NEW BC
     6847                            *
     6848                            *
     6849   03 01475    330015B8              MTW,0    ENDFLAG           TEST FOR END OF WRITE IOCD
     6850   03 01476    6830147D              BEZ      BYUPIOC1              IF NOT SKIP
     6851   03 01477    6AF0141D     BYUPIOC  BAL,15   BYSET             GO GET NEW SET OF IOCDS
     6852   03 01478    000001F4 A            DATA     BYTEIOC
     6853   03 01479    154001F6 A            STD,4    TSAVE1            SAVE NEW WRITE MBA  BC
     6854   03 0147A    330015B7              MTW,0    BYTEEND
     6855   03 0147B    6830147D              BEZ      BYUPIOC1
     6856   03 0147C    351015BA              STW,1    ENDFLAG2
     6857                            *
     6858                            *                 DO CORE PATTERN SET UP
     6859                            *
     6860                            BYUPIOC1 ;
     6861   03 0147D    228FFFFF A            LI,8     -1                LOAD
     6862   03 0147E    229FFFFF A            LI,9     -1                    MASKS
     6863   03 0147F    02200040 A            LCI      4                 LOAD CORE PATTERN POINTERS
     6864   03 01480    2A4001FB A            LM,4     INSAVE1
     6865   03 01481    4B60304F              AND,6    =3
     6866   03 01482    30700006 A            AW,7     6                 ADD TO BC
     6867   03 01483    33000006 A            MTW,0    6                 TEST FOR WORD BOUND ADDR
     6868   03 01484    68301487              BEZ      %+3               IF SO SKIP
     6869   03 01485    25800078 A            SLS,8    -8                IF NOT MOVE MASK RIGHT
     6870   03 01486    64601485              BDR,6    %-1               UNTIL POSITION
     6871                            *
     6872                            *
     6873   03 01487    207FFFFC A            AI,7     -4                DECREMENT THE BC BY 4
     6874   03 01488    6920148D              BGZ      BYTEPRT5          IF NOT =0, OR NEG MASK IS OK
     6875   03 01489    6830148C              BEZ      BYTEPRT4          IF =0 MASK OK
     6876   03 0148A    25900008 A            SLS,9    8                 POSITION MASK LEFT
     6877   03 0148B    6570148A              BIR,7    %-1               UNTIL POSITION
     6878                            *
     6879                            *
     6880   03 0148C    351015B9     BYTEPRT4 STW,1    ENDFLAG1          SET END OF READ IOCD FLAG
     6881                            *
     6882                            *
     6883                            BYTEPRT5 ;
     6884   03 0148D    4B800009 A            AND,8    9                 PUT MASK TOGETHER
     6885   03 0148E    3580143B              STW,8    EXPCORE+2
     6886   03 0148F    3580143E              STW,8    OBSCORE+2
     6887                            *
     6888                            *
     6889   03 01490    22AFFFFC A   BYTEPRT6 LI,10    -4                LOAD BYTE LOOP COUNT
     6890   03 01491    02200040 A   BYTEPRT8 LCI      4                 LOAD CORE PATTERN POINTERS
     6891   03 01492    2A4001FB A            LM,4     INSAVE1
     6892   03 01493    72880000 A            LB,8     0,4               LOAD BYTE FROM WRITE PATTERN
     6893   03 01494    72EC0000 A            LB,14    0,6
     6894   03 01495    4B60304F              AND,6    =3                MASK ALL BUT LSB'S
     6895   03 01496    758C143A              STB,8    EXPCORE+1,6       SAVE EXPECTED BYTE
     6896   03 01497    75EC143D              STB,14   OBSCORE+1,6       SAVE OBSERVED BYTE
     6897   03 01498    326001FD A            LW,6     INSAVE1+2         LOAD READ MBA
     6898   03 01499    20400001 A            AI,4     1                 UPDATE WRITE MBA
     6899   03 0149A    20600001 A            AI,6     1                 UPDATE READ MBA
     6900   03 0149B    205FFFFF A            AI,5     -1                UPDATE WRITE BC
     6901   03 0149C    207FFFFF A            AI,7     -1                UPDATE READ BC
     6902   03 0149D    683014CE              BEZ      BYUPIO22          READ BC GONE TO ZERO
     6903   03 0149E    20500000 A            AI,5     0
     6904   03 0149F    683014D0              BEZ      BYUPIO21          WRITE BC GONE TO ZERO
     6905   03 014A0    02200040 A   BYUPIO20 LCI      4                 SAVE NEW
     6906   03 014A1    2B4001FB A            STM,4    INSAVE1               INDEXS
     6907   03 014A2    4B60304F              AND,6    =3                TEST FOR END OF READ WORD
     6908   03 014A3    683014A5              BEZ      %+2                   IF SO EXIT
     6909   03 014A4    65A01491              BIR,10   BYTEPRT8          OTHERWISE UPDATE BYTE INDEX COUNT
     6910                            BYUPIO11 ;
     6911   03 014A5    330015B7              MTW,0    BYTEEND           TEST FOR DC
     6912   03 014A6    683014B1              BEZ      BYUPIOC3              IF DC  BRANCH
     6913   03 014A7    330015B9              MTW,0    ENDFLAG1
     6914   03 014A8    683014AA              BEZ      %+2
     6915   03 014A9    351015BA              STW,1    ENDFLAG2          SET LAST PRINT LINE FLAG
     6916   03 014AA    20500000 A            AI,5     0                 TEST FOR EQUAL BC
     6917   03 014AB    681014B1              BGEZ     BYUPIOC3
     6918   03 014AC    228FFFFF A            LI,8     -1                SET UP MASKING
     6919   03 014AD    25800008 A            SLS,8    8
     6920   03 014AE    655014AD              BIR,5    %-1
     6921   03 014AF    3580143B              STW,8    EXPCORE+2         SAVE MASK
     6922   03 014B0    3580143E              STW,8    OBSCORE+2         SAVE MASK
     6923                            *
     6924                            *
     6925                            BYUPIOC3 ;
     6926   03 014B1    6AF00AA5              BAL,15   MSGOUT            PRINT: 'EXP WORD XX'
     6927   03 014B2    00002032              DATA     BA(EXPWDMSG)
     6928   03 014B3    22F01436              LI,15    FAMWORD           LOAD AND SAVE
     6929   03 014B4    35F006D5              STW,15   VBINFA                FAM ADR DISCRIPTOR POINTER
     6930   03 014B5    22F01439              LI,15    EXPCORE           LOAD AND SAVE
     6931   03 014B6    35F006D6              STW,15   VBINFB                CORE EXP ADR DISCRIPTOR POINTER
     6932   03 014B7    6AF00AA5              BAL,15   MSGOUT            PRINT: '1111 1111 ETC'
     6933   03 014B8    0000202D              DATA     BA(WDMSG)
     6934   03 014B9    22F0143C              LI,15    OBSCORE           LOAD AND SAVE
     6935   03 014BA    35F006D6              STW,15   VBINFB                CORE OBS ADR DISCRIPTOR POINTER
     6936   03 014BB    6AF00AA5              BAL,15   MSGOUT            PRINT= OBS '1111 ETC'
     6937   03 014BC    00002027              DATA     BA(OBSWDMSG)
     6938   03 014BD    6AF00AA5              BAL,15   MSGOUT
     6939   03 014BE    00001DC9              DATA     BA(CCERM8)
     6940   03 014BF    331006CB              MTW,1    VDEC4B            UPDATE WORD COUNT
     6941   03 014C0    330015BA              MTW,0    ENDFLAG2          TEST FOR END OF PRINT FLAG
     6942   03 014C1    E93015C9              BNEZ     *TP:RTN               IF SET EXIT
     6943   03 014C2    330015B8              MTW,0    ENDFLAG           TEST FOR
     6944   03 014C3    683014C6              BEZ      %+3                   WRITE DC
     6945   03 014C4    6AF00AA5              BAL,15   MSGOUT            IF SO PRINT: 'WRITE OPERATION
     6946   03 014C5    00002036              DATA     BA(WRTDC)             WAS DATA CHAINED'
     6947   03 014C6    330015B9              MTW,0    ENDFLAG1          TEST FOR
     6948   03 014C7    683014CA              BEZ      %+3                   READ DC
     6949   03 014C8    6AF00AA5              BAL,15   MSGOUT            IF SO PRINT: 'READ OPERATION
     6950   03 014C9    0000203C              DATA     BA(READC)             WAS DATA CHAINED'
     6951   03 014CA    22F00000 A            LI,15    0
     6952   03 014CB    35F015B8              STW,15   ENDFLAG
     6953   03 014CC    35F015B9              STW,15   ENDFLAG1
     6954   03 014CD    68001457              B        BYTEPRT7          OTHERWISE NEXT LINE
     6955                            *
     6956                            *
     6957   03 014CE    22AFFFFF A   BYUPIO22 LI,10    -1                IF READ FORCE INDEX TO END
     6958   03 014CF    33000000 A            MTW,0    0                 ****** HELP   ****
     6959   03 014D0    35A001C3 A   BYUPIO21 STW,10   PINDEX            SAVE INDEX
     6960   03 014D1    6AF0141D              BAL,15   BYSET
     6961   03 014D2    000001F2 A            DATA     BYTEIOCD
     6962   03 014D3    32A001C3 A            LW,10    PINDEX            RESTORE INDEX
     6963   03 014D4    680014A0              B        BYUPIO20
     6964                                     PAGE
     6965                            *
     6966                            *                 TEST MODE 2 TEST DRIVER
     6967                            *
     6968   03 014D5    22D01538     MODE2I   LI,13    CLPSIOI           SET UP TO EXP INTR
     6969   03 014D6    680014D8              B        %+2
     6970   03 014D7    22D0153A     MODE2    LI,13    CLPSIO            SET UP NOT TO EXP INTR
     6971   03 014D8    22800000 A            LI,8     0                 ZERO INFLICTED ERROR REG
     6972   03 014D9    22900000 A            LI,9     0                 ZERO STOP REGISTER
     6973   03 014DA    22A011CD              LI,10    WDGPTM2
     6974   03 014DB    68001501              B        TESTIT
     6975                            *
     6976                            *                 TEST MODE 2 AND RETURN DRIVER
     6977                            *
     6978   03 014DC    22D01533     MODE2IFT LI,13    CLPSIOFT
     6979   03 014DD    680014E1              B        MODE2RT+1
     6980                            *
     6981   03 014DE    22D01538     MODE2IRT LI,13    CLPSIOI
     6982   03 014DF    680014E1              B        %+2
     6983   03 014E0    22D0153A     MODE2RT  LI,13    CLPSIO
     6984   03 014E1    22800000 A            LI,8     0
     6985   03 014E2    22900000 A            LI,9     0
     6986   03 014E3    22A011CD              LI,10    WDGPTM2
     6987   03 014E4    68001502              B        TESTIT1
     6988                            *
     6989                            *                 TEST MODE 2/4 TEST DRIVER
     6990                            *
     6991   03 014E5    22D01538     MODE24I  LI,13    CLPSIOI           SET UP TO EXP INTR
     6992   03 014E6    680014E8              B        %+2
     6993   03 014E7    22D0153A     MODE24   LI,13    CLPSIO            SET UP NOT TO EXP INTR
     6994   03 014E8    22800000 A            LI,8     0                 ZERO INFLICTED ERROR REG
     6995   03 014E9    22900000 A            LI,9     0                 ZER STOP REGISTER
     6996   03 014EA    22A011CB              LI,10    WDGPTM24
     6997   03 014EB    68001501              B        TESTIT
     6998                            *
     6999                            *                 TEST MODE 1 TEST DRIVER
     7000                            *
     7001   03 014EC    22D01538     MODE1I   LI,13    CLPSIOI           SET UP TO EXP INTR
     7002   03 014ED    680014EF              B        %+2
     7003   03 014EE    22D0153A     MODE1    LI,13    CLPSIO            SET UP NOT TO EXP INTR
     7004   03 014EF    22800000 A            LI,8     0
     7005   03 014F0    22900000 A            LI,9     0
     7006   03 014F1    22A011C9              LI,10    WDGP0
     7007   03 014F2    68001501              B        TESTIT            GO DO TEST
     7008                            *
     7009                            *                 NO TEST MODE TEST DRIVER
     7010                            *
     7011   03 014F3    22D01538     MODE0I   LI,13    CLPSIOI           SET UP TO EXP INTR
     7012   03 014F4    680014F6              B        %+2
     7013   03 014F5    22D0153A     MODE0    LI,13    CLPSIO            SET UP NOT TO EXP INTR
     7014   03 014F6    22800000 A            LI,8     0                 ZERO INFLICTED ERROR REG
     7015   03 014F7    22900000 A            LI,9     0                 ZERO STOP REG
     7016   03 014F8    22A011C5              LI,10    WDGPNONE          LOAD ADDR OF WD GROUP ZERO ROUTINE
     7017   03 014F9    68001501              B        TESTIT
     7018                            *
     7019                            *
     7020                            *
     7021   03 014FA    22D01538     MODE1INT LI,13    CLPSIOI
     7022   03 014FB    35E01C9A              STW,14   MSPTEST
     7023   03 014FC    22900004 A            LI,9     4                 TS STOP
     7024   03 014FD    22A011C9              LI,10    WDGP0
     7025   03 014FE    32E01500              LW,14    MSPLINE
     7026   03 014FF    68001501              B        TESTIT
     7027   03 01500    80001C9A     MSPLINE  GEN,1,31 1,MSPTEST
     7028                                     PAGE
     7029   03 01501    22C00CD1     TESTIT   LI,12    RIOPEXIT
     7030   03 01502    35C01595     TESTIT1  STW,12   MODEXIT
     7031   03 01503    35D01510              STW,13   CLLIST
     7032   03 01504    35E0150F              STW,14   TEST2             SAVE ADDR OF MSG
     7033   03 01505    35F01531              STW,15   ALPSIO2           SAVE ADDR OF COMPARE I/O LIST
     7034   03 01506    350015BD              STW,0    TESTIT3           SAVE IOCD ADDR
     7035   03 01507    358001C5 A            STW,8    PWD2              SAVE INFLICTED ERROR
     7036   03 01508    359001C4 A            STW,9    PWD1              SAVE STOPS
     7037   03 01509    35A015C1              STW,10   PWD0
     7038   03 0150A    320015BD     TEST1A   LW,0     TESTIT3
     7039   03 0150B    6AF00E98              BAL,15   T:EXECRS
     7040   03 0150C    00001513     PLLIST   DATA     PLPSIO
     7041   03 0150D    4CC00000 A            SIO,12   0
     7042   03 0150E    00001526     ALLIST   DATA     ALPSIO
     7043   03 0150F    00000000 A   TEST2    DATA     0
     7044   03 01510    0000153A     CLLIST   DATA     CLPSIO
     7045   03 01511    6800150A              B        TEST1A
     7046   03 01512    E8001595              B        *MODEXIT
     7047                            *
     7048                            *
     7049                            *
     7050                            *
     7051   03 01513    EAF015C1     PLPSIO   BAL,15   *PWD0
     7052   03 01514    32F0153D              LW,15    CCODE00
     7053   03 01515    328001C4 A            LW,8     PWD1
     7054   03 01516    6830151E              BEZ      PLPSIOX
     7055   03 01517    32F0153F              LW,15    CCODE01
     7056   03 01518    21800007 A            CI,8     7
     7057   03 01519    6940151E              BCS,4    PLPSIOX
     7058   03 0151A    32F0153E              LW,15    CCODE10
     7059   03 0151B    218FFFF8 A            CI,8     -8
     7060   03 0151C    6940151E              BCS,4    PLPSIOX
     7061   03 0151D    32F01540              LW,15    CCODE11
     7062   03 0151E    35F01524     PLPSIOX  STW,15   PLPSIOCC
     7063   03 0151F    35F01529              STW,15   ALPSIOCC
     7064   03 01520    35F0152F              STW,15   ALPSIOC1
     7065   03 01521    328001C4 A            LW,8     PWD1
     7066   03 01522    683010C1              BEZ      XIT
     7067   03 01523    ED80155F              WD,8     *DIOAD1
     7068   03 01524    00000000 A   PLPSIOCC DATA     0
     7069   03 01525    680010C1              B        XIT
     7070                            *
     7071   03 01526    328001C5 A   ALPSIO   LW,8     PWD2
     7072   03 01527    6830152E              BEZ      ALPSIO1
     7073   03 01528    ED801560              WD,8     *DIOAD2
     7074   03 01529    00000000 A   ALPSIOCC DATA     0
     7075   03 0152A    EC801566              RD,8     *DIOAD0TS
     7076   03 0152B    6AF00FDD              BAL,15   CC01
     7077   03 0152C    32F0153D              LW,15    CCODE00
     7078   03 0152D    35F0152F              STW,15   ALPSIOC1
     7079                            *
     7080   03 0152E    6AF00EF1     ALPSIO1  BAL,15   COLLECT
     7081   03 0152F    00000000 A   ALPSIOC1 DATA     0
     7082   03 01530    6AF012F6              BAL,15   ALFUNCT
     7083   03 01531    00000000 A   ALPSIO2  DATA     0
     7084   03 01532    680010C1              B        XIT
     7085                            *
     7086                            *
     7087         03 01533           CLPSIOFT EQU      %
     7088   03 01533    6AF01345              BAL,15   CLISTI
     7089   03 01534    22800000 A            LI,8     0
     7090   03 01535    727401BE A            LB,7     GROUP3,2
     7091   03 01536    6AF01279              BAL,15   FAILTCK+1
     7092   03 01537    680010C1              B        XIT
     7093                            *
     7094                            CLPSIOI  ;
     7095   03 01538    6AF01345              BAL,15   CLISTI
     7096   03 01539    680010C1              B        XIT
     7097                            *
     7098                            *
     7099                            CLPSIO  ;
     7100   03 0153A    6AF01346              BAL,15   CLIST
     7101   03 0153B    680010C1              B        XIT
     7102                            *
     7103   03 0153C    80000000 A   MSGSIO   HEADR    1,0,0
     7104   03 0153D    6AF00FDB     CCODE00  BAL,15   CC00
     7105   03 0153E    6AF00FDF     CCODE10  BAL,15   CC10
     7106   03 0153F    6AF00FDD     CCODE01  BAL,15   CC01
     7107   03 01540    6AF00FE1     CCODE11  BAL,15   CC11
     7108                                     PAGE
     7109                            *
     7110                            *                 BUILD AND SAVE SPLIT PATTERN
     7111                            *
     7112   03 01541    35E002CC A   DOPATTN  STW,14   :PATWC
     7113   03 01542    35F001C7 A            STW,15   PSAVE1
     7114                            *                                   CLEAR READ BUFFER
     7115   03 01543    22F03098              LI,15    BUF1LO
     7116   03 01544    35F002CB A            STW,15   :COMBFRB
     7117   03 01545    22F00000 A            LI,15    0
     7118   03 01546    35F002EE A            STW,15   :PATID
     7119   03 01547    35F002EF A            STW,15   :PATID+1
     7120   03 01548    6AF02EEB              BAL,15   :PATTERN
     7121                            *                                   BUILD WRITE BUFFER
     7122   03 01549    22F03098              LI,15    BUF1LO
     7123   03 0154A    30F002CC A            AW,15    :PATWC
     7124   03 0154B    35F002CB A            STW,15   :COMBFRB
     7125   03 0154C    B2F001C7 A            LW,15    *PSAVE1
     7126   03 0154D    35F002EF A            STW,15   :PATID+1
     7127   03 0154E    6AF02EEB              BAL,15   :PATTERN
     7128   03 0154F    22F03098              LI,15    BUF1LO
     7129   03 01550    35F002CB A            STW,15   :COMBFRB
     7130   03 01551    E80201C7 A            B        *PSAVE1,1
     7131                                     PAGE
     7132                            *
     7133                            *                 GO AND HAVE SENSE SWITCHES TESTED
     7134                            *
     7135   03 01552    35F0018D A   SENSE4   STW,15   SENSLESS
     7136   03 01553    EAF0022A A            BAL,15   *:QSENSE          GO TEST SENSE SWITCHES          *A02
     7137   03 01554    E910018D A            BCS,1    *SENSLESS         SS4 WAS SET                     *A02
     7138   03 01555    E802018D A            B        *SENSLESS,1       SS4 WASN'T SET
     7139                            *
     7140                                     PAGE
     7141         03 01556           NSIGMA9T EQU      %
     7142   03 01556    FFFFC000 A   STATN9   DATA     X'FFFFC000'
     7143   03 01557    00010000 A   CDWN9    DATA     X'00010000'
     7144   03 01558    00000800 A   ION9     DATA     X'00000800'
     7145   03 01559    0000FFFF A   NCDMASK9 DATA     X'FFFF'
     7146         03 0155A           NSIGMA9  EQU      %
     7147         03 0155A           SIGMA9T  EQU      %
     7148   03 0155A    FFFFE000 A   STAT9    DATA     X'FFFFE000'
     7149   03 0155B    00200000 A   CDW9     DATA     X'00200000'
     7150   03 0155C    00002000 A   IO9      DATA     X'00002000'
     7151   03 0155D    001FFFFF A   CDMASK9  DATA     X'1FFFFF'
     7152         03 0155E           SIGMA9   EQU      %
     7153         03 0155E           DIOSTART SET      %
     7154   03 0155E    00002000 A   DIOAD0   DATA     X'2000'
     7155   03 0155F    00002001 A   DIOAD1   DATA     X'2001'
     7156   03 01560    00002002 A   DIOAD2   DATA     X'2002'
     7157   03 01561    00002003 A   DIOAD3   DATA     X'2003'
     7158   03 01562    00002004 A   DIOAD4   DATA     X'2004'
     7159   03 01563    00002005 A   DIOAD5   DATA     X'2005'
     7160   03 01564    00002006 A   DIOAD6   DATA     X'2006'
     7161   03 01565    00002007 A   DIOAD7   DATA     X'2007'
     7162   03 01566    00002008 A   DIOAD0TS DATA     X'2008'
     7163   03 01567    00002010 A   DIOAD0TI DATA     X'2010'
     7164   03 01568    00002018 A   DIOAD0TR DATA     X'2018'
     7165   03 01569    00000000 A   DIOADNOW DATA     0
     7166         03 0156A           DIOEND   SET      %
     7167         03 0156A           MASKTOP  SET      %
     7168   03 0156A    80007F00 A   DIODATE  DATA     X'80007F00'
     7169   03 0156B    00000000 A            DATA     0
     7170   03 0156C    C0000000 A            DATA     X'C0000000'
     7171   03 0156D    00000004 A            DATA     X'00000004'
     7172   03 0156E    00000000 A            DATA     0
     7173   03 0156F    00000000 A            DATA     0
     7174   03 01570    00000000 A            DATA     0
     7175   03 01571    00000000 A            DATA     0
     7176   03 01572    FFFFFF00 A   DIOMASKS DATA     X'FFFFFF00'
     7177   03 01573    FFFFFFFF A            DATA     -1
     7178   03 01574    FF000000 A            DATA     X'FF000000'
     7179   03 01575    0000FF04 A            DATA     X'0000FF04'
     7180   03 01576    00000000 A            DATA     0
     7181   03 01577    FFFFFFFF A            DATA     -1
     7182   03 01578    00000000 A            DATA     0
     7183   03 01579    000001FE A   MEMASKS  DATA     X'1FE'
     7184   03 0157A    007FFFFF A   LRMASKS  DATA     X'7FFFFF'
     7185   03 0157B    00003FFF A   PNSTMAKS DATA     X'3FFF'
     7186   03 0157C    00003FFF A   PNMASKS  DATA     X'000003FFF'
     7187   03 0157D    FFFFFFFF A   MRMASKS  DATA     -1
     7188   03 0157E    00000007 A   FNMASKS  DATA     7
     7189   03 0157F    FFFFFFFF A   KMASKS   DATA     -1
     7190   03 01580    0001FFFF A   CNTMASKS DATA     X'1FFFF'
     7191   03 01581    0000001F A   FULMASKS DATA     X'1F'
     7192   03 01582    0000003F A   BYCTMSKS DATA     X'3F'
     7193   03 01583    00000FFF A   BYPRMSKS DATA     X'FFF'
     7194   03 01584    000000FF A   JKPRMSKS DATA     X'FF'
     7195   03 01585    0000007F A   FMPRMSKS DATA     X'7F'
     7196         03 01586           MASKBOTT SET      %
     7197   03 01586    00000001 A   E:PRINT  DATA     1                 PRINT LEVEL INDICATOR
     7198   03 01587    00000000 A   E:MARKER DATA     0                 ERROR MARKER= ERROR IF = 1
     7199   03 01588    00000000 A   E:ERROR  DATA     0                 ERROR LEVEL INDICATOR
     7200   03 01589    00000000 A   COLTRTN  DATA     0
     7201   03 0158A    00000000 A   TP:IORTN DATA     0
     7202   03 0158B    00000000 A   CCDIOERR DATA     0                 CC DIO ERROR FLAG
     7203   03 0158C    00000000 A   ALFPOINT DATA     0                 STARTING ADDR OF ACTIVE DIO LIST
     7204   03 0158D    00000000 A   REGPOINT DATA     0                 CURRENT ADDR OF ACTIVE DIO LIST
     7205   03 0158E    00000000 A   INTEXFG  DATA     0                 INTERRUPT EXP IF = 1
     7206   03 0158F    00000000 A   MBADDR   DATA     0                 CURRENT MBA
     7207   03 01590    00000000 A   IOMODIOC DATA     0
     7208   03 01591    00000000 A   IOMODRTN DATA     0
     7209   03 01592    00000000 A   PARTING  DATA     0                 IF =1 PRINT ALL MBP'S INDICATOR
     7210   03 01593    00000000 A   N013SAVE DATA     0                 ORDER & MBA OF IOCD
     7211   03 01594    00000000 A   MSN013X  DATA     0                 ADDRESS OF HEADER MESSAGE
     7212   03 01595    00000000 A   MODEXIT  DATA     0                 EXIT FROM TEST IT ROUTINE
     7213   03 01596    00000000 A   HSB      DATA     0                 HOME SPACE BIAS
     7214   03 01597    00000000 A   MARGINS  DATA     0                 POWER AND CLOCK MARGINS
     7215   03 01598    00000000 A   PASSCNT  DATA     0                 NO. OF PASSES MADE THRU A TEST
     7216   03 01599    00000000 A   ERRCNT   DATA     0                 NO. OF ERRORS DETECTED
     7217                            L:CONTRTN ;
     7218   03 0159A    00000000 A            DATA     0                 RTN ADDR FOR LOOP CONTROL
     7219   03 0159B    00000000 A   L:EXIT   DATA     0                 CALC RTN ADDR FOR LOOP CONTROL
     7220   03 0159C    00000000 A   T:OCCUR  DATA     0                 TRAP OCCURRED IF = 1
     7221   03 0159D    00000000 A   DOIOEXIT DATA     0                 RTN FOR DIO ROUTINE
     7222   03 0159E    00000000 A   T:EXP    DATA     0                 TRAP EXPECTED IF =1
     7223   03 0159F    00000000 A   T:CCADR  DATA     0                 TRAP CONDITION CODES AND ADR
     7224                            T:HANEXIT ;
     7225   03 015A0    00000000 A            DATA     0                 TRAP HANDLE EXIT
     7226   03 015A1    00000000 A   T:REG0   DATA     0                 OBSERVED CC & TRAP LOC
     7227   03 015A2    00000000 A   T:RTN    DATA     0                 RETURN TO DPM
     7228   03 015A3    00000000 A   MEXIT    DATA     0                 EXIT FOR MI TESTS
     7229   03 015A4    00000000 A   XPANDFLG DATA     0                 EXPAND RD MSG FLAG
     7230   03 015A5    00000001 A   E:DISPLY DATA     1                 SAVE LOCATION OF E:ERROR
     7231   03 015A6    00000000 A   CLRTN    DATA     0                 RTN ADDR FROM COMPARE LIST
     7232   03 015A7    00000000 A   RIOPTEST DATA     0                 CURRENT RIOP TEST
     7233   03 015A8    00000000 A   TESTCONT DATA     0                 TEST CONTINUE FLAG
     7234   03 015A9    0F00133E     XPSDINT  XPSD,0   FUNINTR
     7235   03 015AA    00000000 A   ALFXITFG DATA     0                 EXIT FLAG
     7236   03 015AB    00000000 A   GOTINTR  DATA     0                 GOT A INTERRUPT FLAG
     7237   03 015AC    00000000 A   PSAVERTN DATA     0                 DO WRITE EXIT
     7238   03 015AD    00000000 A   WDGRTN   DATA     0
     7239   03 015AE    00000000 A   K:KOUNTR DATA     0                 FAM COUNTERS
     7240   03 015AF    00000000 A   F0EXPDAT DATA     0                 EXPECTED DATA PATTERN
     7241   03 015B0    00000000 A   PARTLOOP DATA     0                 LOOP COUNTER
     7242   03 015B1    00000000 A   F0BYPROC DATA     0                 BYTE PRESENCE INDICATORS BPA-BPD,BC
     7243   03 015B2    00000000 A   F0BYPR01 DATA     0                 M BYTE PRESENCE INDICATORS
     7244   03 015B3    00000000 A   RPRESIND DATA     0                 R BYTE PRESENCE INDICATORS
     7245   03 015B4    00000000 A   F0BYIND  DATA     0                 K BYTE PRESENCE INDICATORS
     7246   03 015B5    00000000 A   KEXP     DATA     0                 EXP VALUE FOR K REG
     7247   03 015B6    00000000 A   NOIOCD   DATA     0                 NO VALID IOCD INFOR FOR PRINTING
     7248   03 015B7    00000000 A   BYTEEND  DATA     0                 IF =1 NO MORE DATA CHAINNING
     7249   03 015B8    00000000 A   ENDFLAG  DATA     0                 IF =0 NOT END OF WRITE IOCD
     7250   03 015B9    00000000 A   ENDFLAG1 DATA     0                 IF =0 NOT END OF READ IOCD
     7251   03 015BA    00000000 A   ENDFLAG2 DATA     0                 IF =0 NOT END OF PRINTING
     7252   03 015BB    00000000 A   BYTEXIT  DATA     0
     7253   03 015BC    00000000 A   KFLAG    DATA     0
     7254   03 015BD    00000000 A   TESTIT3  DATA     0
     7255   03 015BE    00000000 A   SEEKRAD  DATA     0
     7256   03 015BF    00000000 A   :SNSWORD DATA     0
     7257   03 015C0    00000000 A            DATA     0
     7258   03 015C1    00000000 A   PWD0     DATA     0
     7259   03 015C2    00000000 A   BC1      DATA     0                 BC OF FIRST IOCD
     7260   03 015C3    00000000 A   BC2      DATA     0                 BC OF SECOND IOCD
     7261   03 015C4    00000000 A   BD1      DATA     0                 MBA OF FIRST IOCD
     7262   03 015C5    00000000 A   BD2      DATA     0                 MBA OF SECOND IOCD
     7263                            INSTRLIST ;                         INSTRUCTION LIST ADDR
     7264   03 015C6    00000000 A            DATA     0
     7265                                     BOUND    8
     7266   03 015C8    00000000 A   TP:RTNP  DATA     0                 RETURN TO COMPARE ROUTINE
     7267   03 015C9    00000000 A   TP:RTN   DATA     0                 RETURN TO CALLING ROUTINE OF COMPARE
     7268   03 015CA    00000000 A   TRAPEXP  DATA     0
     7269   03 015CB    00000000 A            DATA     0
     7270   03 015CC    8001FFF5 A   MOXXDATA DATA     X'8001FFF5'
     7271   03 015CD    FFFFFFFF A            DATA     -1
     7272   03 015CE    00000000 A   DIODATA  DATA     0
     7273   03 015CF    00000000 A            DATA     0
     7274   03 015D0    00000000 A   DASIZE   DATA     0                 DOUBLE WORD SIZE
     7275   03 015D1    00000000 A            DATA     0
     7276   03 015D2    040056FC     #MSENSE  GEN,8,24 4,BA(#MSNSEFT)
     7277   03 015D3    00000004 A            GEN,8,24 0,4
     7278   03 015D4    0000C260     STOPIT   GEN,8,24 0,BA(BUF1LO)
     7279   03 015D5    00000000 A            GEN,8,24 0,0
     7280   03 015D6    00000000 A   DUMMY    DATA     0
     7281   03 015D7    00000000 A            DATA     0
     7282   03 015D8    00000000 A   IOCBYTE  DATA     0
     7283   03 015D9    00000000 A            DATA     0
     7284                                     BOUND    8
     7285   03 015DA    0000C260     P300IOCD GEN,8,24 0,BA(BUF1LO)
     7286   03 015DB    00000001 A            GEN,8,24 0,1
     7287   03 015DC    0000C260     P410IOCD GEN,8,24 0,BA(BUF1LO)
     7288   03 015DD    00000000 A            GEN,8,24 0,0
     7289   03 015DE    08000AF0     P430IOCD GEN,8,24 8,DA(%+2)
     7290   03 015DF    00000000 A            GEN,8,24 0,0
     7291   03 015E0    0000C260              GEN,8,24 0,BA(BUF1LO)
     7292   03 015E1    00000001 A            GEN,8,24 0,1
     7293   03 015E2    0000C260     P460IOCD GEN,8,24 0,BA(BUF1LO)
     7294   03 015E3    04000001 A            GEN,8,24 4,1
     7295   03 015E4    0000C260     P470IOCD GEN,8,24 0,BA(BUF1LO)
     7296   03 015E5    10000001 A            GEN,8,24 X'10',1
     7297   03 015E6    08000AF4     P440IOCD GEN,8,24 8,DA(%+2)
     7298   03 015E7    00000000 A            GEN,8,24 0,0
     7299   03 015E8    08000AF3              GEN,8,24 8,DA(P440IOCD)
     7300   03 015E9    00000000 A            GEN,8,24 0,0
     7301   03 015EA    0000C260              GEN,8,24 0,BA(BUF1LO)
     7302   03 015EB    00000001 A            GEN,8,24 0,1
     7303   03 015EC    0100C270     STATIOCD GEN,8,24 1,BA(BUF1LO+4)
     7304   03 015ED    1C00FFFC A            GEN,8,24 X'1C',X'FFFC'
     7305   03 015EE    0100C260     IOCDN036 GEN,8,24 X'01',BA(BUF1LO)
     7306   03 015EF    1C000800 A            GEN,8,24 X'1C',2048
     7307                                     BOUND    8
     7308   03 015F0    00000002 A   TST3PAT  DATA     2
     7309   03 015F1    5469B43A A            DATA     1416213562
     7310   03 015F2    00000000 A            DATA     0
     7311   03 015F3    00000000 A            DATA     0
     7312                                     BOUND    8
     7313   03 015F4    030056FA     SEEKIOCD GEN,8,24 3,BA(SEEKRAD)+2
     7314   03 015F5    1C000002 A            GEN,8,24 X'1C',2
     7315   03 015F6    00000000 A   OPERIOCD GEN,8,24 0,0
     7316   03 015F7    1C000000 A            GEN,8,24 X'1C',0
     7317                                     BOUND    8
     7318   03 015F8    00000000 A   IOCD00   GEN,8,24 0,0
     7319   03 015F9    1C000003 A            GEN,8,24 X'1C',3
     7320   03 015FA    01000000 A   IOCD01   GEN,8,24 1,0
     7321   03 015FB    1C000000 A            GEN,8,24 X'1C',0
     7322   03 015FC    030056FA     IOCD10   GEN,8,24 3,BA(SEEKRAD)+2
     7323   03 015FD    2C000002 A            GEN,8,24 X'2C',2
     7324   03 015FE    12000000 A   IOCD02   GEN,8,24 X'12',0
     7325   03 015FF    1C000000 A            GEN,8,24 X'1C',0
     7326   03 01600    04000000 A   IOCD03   GEN,8,24 4,0
     7327   03 01601    1C000003 A            GEN,8,24 X'1C',3
     7328   03 01602    12000000 A   IOCD04   GEN,8,24 X'12',0
     7329   03 01603    1C000000 A            GEN,8,24 X'1C',0
     7330   03 01604    02000000 A   IOCD05   GEN,8,24 2,0
     7331   03 01605    1C000000 A            GEN,8,24 X'1C',0
     7332   03 01606    01000000 A   IOCD06   GEN,8,24 1,0
     7333   03 01607    1C000000 A            GEN,8,24 X'1C',0
     7334   03 01608    12000000 A   IOCD07   GEN,8,24 X'12',0
     7335   03 01609    1C000000 A            GEN,8,24 X'1C',0
     7336   03 0160A    0200C660     N041IOCD GEN,8,24 2,BA(BUF1LO)+1024
     7337   03 0160B    9C0003FC A            GEN,8,24 X'9C',1020
     7338   03 0160C    0000CA70              GEN,8,24 0,BA(BUF1LO)+2048+16
     7339   03 0160D    1C000000 A            GEN,8,24 X'1C',0
     7340   03 0160E    0100C260              GEN,8,24 1,BA(BUF1LO)
     7341   03 0160F    1C000400 A            GEN,8,24 X'1C',1024
     7342   03 01610    030056FA     N042IOCD GEN,8,24 3,BA(SEEKRAD)+2
     7343   03 01611    2C000002 A            GEN,8,24 X'2C',2
     7344   03 01612    0100C260              GEN,8,24 1,BA(BUF1LO)
     7345   03 01613    2C000400 A            GEN,8,24 X'2C',1024
     7346   03 01614    030056FA              GEN,8,24 3,BA(SEEKRAD)+2
     7347   03 01615    2C000002 A            GEN,8,24 X'2C',2
     7348   03 01616    0200C260              GEN,8,24 2,BA(BUF1LO)
     7349   03 01617    2C000400 A            GEN,8,24 X'2C',1024
     7350   03 01618    04000618 A   N042IOCX GEN,8,24 4,BA(SENSEWD)
     7351   03 01619    1C000004 A            GEN,8,24 X'1C',4
     7352                                     BOUND    8
     7353   03 0161A    0000C260     N044IOCD GEN,8,24 0,BA(BUF1LO)
     7354   03 0161B    9C000400 A            GEN,8,24 X'9C',1024
     7355   03 0161C    08000B0D              GEN,8,24 8,DA(N044IOCD)
     7356   03 0161D    00000000 A            DATA     0
     7357   03 0161E    01000000 A   FIOCD01  GEN,8,24 1,0               BC=4,MBA=0
     7358   03 0161F    00000004 A            GEN,8,24 0,4
     7359   03 01620    01000000 A   FIOCD02  GEN,8,24 1,0               BC=5,MBA=0
     7360   03 01621    00000005 A            GEN,8,24 0,5
     7361   03 01622    01000000 A   FIOCD03  GEN,8,24 1,0               BC=6,MBA=0
     7362   03 01623    00000006 A            GEN,8,24 0,6
     7363   03 01624    01000000 A   FIOCD04  GEN,8,24 1,0               BC=7,MBA=0
     7364   03 01625    00000007 A            GEN,8,24 0,7
     7365   03 01626    01000001 A   FIOCD05  GEN,8,24 1,1               BC=4,MBA=1
     7366   03 01627    00000004 A            GEN,8,24 0,4
     7367   03 01628    01000001 A   FIOCD06  GEN,8,24 1,1               BC=5,MBA=1
     7368   03 01629    00000005 A            GEN,8,24 0,5
     7369   03 0162A    01000001 A   FIOCD07  GEN,8,24 1,1               BC=6,MBA=1
     7370   03 0162B    00000006 A            GEN,8,24 0,6
     7371   03 0162C    01000001 A   FIOCD08  GEN,8,24 1,1               BC=7,MBA=1
     7372   03 0162D    00000007 A            GEN,8,24 0,7
     7373   03 0162E    01000002 A   FIOCD09  GEN,8,24 1,2               BC=4,MBA=2
     7374   03 0162F    00000004 A            GEN,8,24 0,4
     7375   03 01630    01000002 A   FIOCD10  GEN,8,24 1,2               BC=5,MBA=2
     7376   03 01631    00000005 A            GEN,8,24 0,5
     7377   03 01632    01000002 A   FIOCD11  GEN,8,24 1,2               BC=C,MBA=2
     7378   03 01633    00000006 A            GEN,8,24 0,6
     7379   03 01634    01000002 A   FIOCD12  GEN,8,24 1,2               BC=7,MBA=2
     7380   03 01635    00000007 A            GEN,8,24 0,7
     7381   03 01636    01000003 A   FIOCD13  GEN,8,24 1,3               BC=4,MBA=3
     7382   03 01637    00000004 A            GEN,8,24 0,4
     7383   03 01638    01000003 A   FIOCD14  GEN,8,24 1,3               BC=5,MBA=3
     7384   03 01639    00000005 A            GEN,8,24 0,5
     7385   03 0163A    01000003 A   FIOCD15  GEN,8,24 1,3               BC=6,MBA=3
     7386   03 0163B    00000006 A            GEN,8,24 0,6
     7387   03 0163C    01000003 A   FIOCD16  GEN,8,24 1,3               BC=7,MBA=3
     7388   03 0163D    00000007 A            GEN,8,24 0,7
     7389                                     BOUND    8
     7390   03 0163E    01003098     DATAZERO GEN,8,24 1,BUF1LO
     7391   03 0163F    1C000040 A            GEN,8,24 X'1C',64
     7392                                     BOUND    8
     7393   03 01640    00000000 A   SETREALX DATA     0,0
            03 01641    00000000 A
     7394   03 01642    00001202              GEN,8,24 0,SIZETRA2
     7395   03 01643    07800000 A            GEN,9,23 X'F',0
     7396   03 01644    00000002 A   TST2DATA DATA     2                 RANDOM DATA
     7397   03 01645    544B2FBA A            DATA     1414213562        PSEUDO RANDOM NO.
     7398   03 01646    00000000 A            DATA     0                 ZERO
     7399   03 01647    00000000 A            DATA     0                 ZERO
     7400   03 01648    00000BC3     :CLRPDF  GEN,8,24 0,:REC
     7401   03 01649    00000000 A            DATA     0
     7402   03 0164A    00000000 A   XPSDPAT  GEN,8,24 0,0
     7403   03 0164B    00000000 A            GEN,8,24 0,0
     7404   03 0164C    00002478              GEN,8,24 0,REALXTNP
     7405   03 0164D    07800000 A            GEN,9,23 X'F',0
     7406   03 0164E    00000000 A   XPSDCOMP GEN,8,24 0,0
     7407   03 0164F    00000000 A            GEN,8,24 0,0
     7408   03 01650    0000247B              GEN,8,24 0,REALXTNC
     7409   03 01651    07800000 A            GEN,9,23 X'F',0
     7410                            *                 NON-OVERLAYABLE PATTERN
     7411         03 01652           PATTDISP SET      %
     7412   03 01652    171B1D1E A            DATA     X'171B1D1E'       1
     7413   03 01653    E8E4E2E1 A            DATA     X'E8E4E2E1'       2
     7414   03 01654    272B2D2E A            DATA     X'272B2D2E'       3
     7415   03 01655    D8D4D2D1 A            DATA     X'D8D4D2D1'       4
     7416   03 01656    33353639 A            DATA     X'33353639'       5
     7417   03 01657    CCCAC9C6 A            DATA     X'CCCAC9C6'       6
     7418   03 01658    3A3C474B A            DATA     X'3A3C474B'       7
     7419   03 01659    C5C3B8B4 A            DATA     X'C5C3B8B4'       8
     7420   03 0165A    4D4E5355 A            DATA     X'4D4E5355'       9
     7421   03 0165B    B2B1ACAA A            DATA     X'B2B1ACAA'       10
     7422   03 0165C    56595A5C A            DATA     X'56595A5C'       11
     7423   03 0165D    A9A6A5A3 A            DATA     X'A9A6A5A3'       12
     7424   03 0165E    63656669 A            DATA     X'63656669'       13
     7425   03 0165F    9C9A9996 A            DATA     X'9C9A9996'       14
     7426   03 01660    6A6C7172 A            DATA     X'6A6C7172'       15
     7427   03 01661    95938E8D A            DATA     X'95938E8D'       16
     7428         03 01662           PATTDIS1 SET      %
     7429                            DASHS    TEXTC    ;
     7430   03 01662    20606060 A    '--------------------------------'                                 *A02
            03 01663    60606060 A
            03 01664    60606060 A
            03 01665    60606060 A
            03 01666    60606060 A
            03 01667    60606060 A
            03 01668    60606060 A
            03 01669    60606060 A
            03 0166A    60404040 A
     7431                            PHMSGHDR TEXTC    ;
     7432   03 0166B    36404040 A    '     00 01 02 03 04 05 10 11 12 20 30 M:DATA M:IN BUSY'
            03 0166C    4040F0F0 A
            03 0166D    40F0F140 A
            03 0166E    F0F240F0 A
            03 0166F    F340F0F4 A
            03 01670    40F0F540 A
            03 01671    F1F040F1 A
            03 01672    F140F1F2 A
            03 01673    40F2F040 A
            03 01674    F3F040D4 A
            03 01675    7AC4C1E3 A
            03 01676    C140D47A A
            03 01677    C9D540C2 A
            03 01678    E4E2E840 A
     7433                            FNMSGHDR TEXTC    ;
     7434   03 01679    1E404040 A    '          PBFNC0 PBFNC1 PBFNC2'
            03 0167A    40404040 A
            03 0167B    404040D7 A
            03 0167C    C2C6D5C3 A
            03 0167D    F040D7C2 A
            03 0167E    C6D5C3F1 A
            03 0167F    40D7C2C6 A
            03 01680    D5C3F240 A
     7435                            MRMSGHDR TEXTC    ;
     7436   03 01681    2EC2C9E3 A    'BITS   0123 4567 8901 2345 6789 0123 4567 8901'
            03 01682    E2404040 A
            03 01683    F0F1F2F3 A
            03 01684    40F4F5F6 A
            03 01685    F740F8F9 A
            03 01686    F0F140F2 A
            03 01687    F3F4F540 A
            03 01688    F6F7F8F9 A
            03 01689    40F0F1F2 A
            03 0168A    F340F4F5 A
            03 0168B    F6F740F8 A
            03 0168C    F9F0F140 A
     7437                            PSMSGHDR TEXTC    ;
     7438   03 0168D    2E404040 A    '     00 01 02 03 04 05 10 10 11 12 DA TS TI TR'
            03 0168E    4040F0F0 A
            03 0168F    40F0F140 A
            03 01690    F0F240F0 A
            03 01691    F340F0F4 A
            03 01692    40F0F540 A
            03 01693    F1F040F1 A
            03 01694    F040F1F1 A
            03 01695    40F1F240 A
            03 01696    C4C140E3 A
            03 01697    E240E3C9 A
            03 01698    40E3D940 A
     7439                            MEMSGHDR TEXTC    ;
     7440   03 01699    39404040 A    '     MAR   MDR   MAE  MQ:D  MPE:R  MPE MSTART MBUSY M:32D'
            03 0169A    4040D4C1 A
            03 0169B    D9404040 A
            03 0169C    D4C4D940 A
            03 0169D    4040D4C1 A
            03 0169E    C54040D4 A
            03 0169F    D87AC440 A
            03 016A0    40D4D7C5 A
            03 016A1    7AD94040 A
            03 016A2    D4D7C540 A
            03 016A3    D4E2E3C1 A
            03 016A4    D9E340D4 A
            03 016A5    C2E4E2E8 A
            03 016A6    40D47AF3 A
            03 016A7    F2C44040 A
     7441                            ORMSGHDR TEXTC    ;
     7442   03 016A8    31404040 A    '     READ WRITE  SEEK SENSE CHWRT RELEASE 3     7'
            03 016A9    4040D9C5 A
            03 016AA    C1C440E6 A
            03 016AB    D9C9E3C5 A
            03 016AC    4040E2C5 A
            03 016AD    C5D240E2 A
            03 016AE    C5D5E2C5 A
            03 016AF    40C3C8E6 A
            03 016B0    D9E340D9 A
            03 016B1    C5D3C5C1 A
            03 016B2    E2C540F3 A
            03 016B3    40404040 A
            03 016B4    40F74040 A
     7443                            FSMSGHDR TEXTC    ;
     7444   03 016B5    14404040 A    '     0 1 2 3 4 5 6 7'
            03 016B6    4040F040 A
            03 016B7    F140F240 A
            03 016B8    F340F440 A
            03 016B9    F540F640 A
            03 016BA    F7404040 A
     7445                            LRMSGHDR TEXTC    ;
     7446                             'BIT 32 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29',;
     7447   03 016BB    48C2C9E3 A    ' 30 31'
            03 016BC    40F3F240 A
            03 016BD    F1F040F1 A
            03 016BE    F140F1F2 A
            03 016BF    40F1F340 A
            03 016C0    F1F440F1 A
            03 016C1    F540F1F6 A
            03 016C2    40F1F740 A
            03 016C3    F1F840F1 A
            03 016C4    F940F2F0 A
            03 016C5    40F2F140 A
            03 016C6    F2F240F2 A
            03 016C7    F340F2F4 A
            03 016C8    40F2F540 A
            03 016C9    F2F640F2 A
            03 016CA    F740F2F8 A
            03 016CB    40F2F940 A
            03 016CC    F3F040F3 A
            03 016CD    F1404040 A
     7448                            FAMSGHDR TEXTC    ;
     7449                             'R:    L0  L1  L2  L3 LW0 LW1 LW2 LW3 LR0 LR1 LR2 LR3',;
     7450   03 016CE    48D97A40 A    '  K0  K1  K2  K3  K4'
            03 016CF    404040D3 A
            03 016D0    F04040D3 A
            03 016D1    F14040D3 A
            03 016D2    F24040D3 A
            03 016D3    F340D3E6 A
            03 016D4    F040D3E6 A
            03 016D5    F140D3E6 A
            03 016D6    F240D3E6 A
            03 016D7    F340D3D9 A
            03 016D8    F040D3D9 A
            03 016D9    F140D3D9 A
            03 016DA    F240D3D9 A
            03 016DB    F34040D2 A
            03 016DC    F04040D2 A
            03 016DD    F14040D2 A
            03 016DE    F24040D2 A
            03 016DF    F34040D2 A
            03 016E0    F4404040 A
     7451                            FUMSGHDR TEXTC    ;
     7452   03 016E1    21404040 A    '    MFULL HFULL IFULL JFULL KFULL'
            03 016E2    40D4C6E4 A
            03 016E3    D3D340C8 A
            03 016E4    C6E4D3D3 A
            03 016E5    40C9C6E4 A
            03 016E6    D3D340D1 A
            03 016E7    C6E4D3D3 A
            03 016E8    40D2C6E4 A
            03 016E9    D3D34040 A
     7453                            BIMSGHDR TEXTC    ;
     7454   03 016EA    1F404040 A    '      BPA BPB BPC BPD BCZ BC=>4'
            03 016EB    404040C2 A
            03 016EC    D7C140C2 A
            03 016ED    D7C240C2 A
            03 016EE    D7C340C2 A
            03 016EF    D7C440C2 A
            03 016F0    C3E940C2 A
            03 016F1    C37E6EF4 A
     7455                            RBMSGHDR TEXTC    ;
     7456   03 016F2    40404040 A    '     MBPA MBPB MBPC MBPD HBPA HBPB HBPC HBPD IBPA IBPB IBPC IBPD'
            03 016F3    4040D4C2 A
            03 016F4    D7C140D4 A
            03 016F5    C2D7C240 A
            03 016F6    D4C2D7C3 A
            03 016F7    40D4C2D7 A
            03 016F8    C440C8C2 A
            03 016F9    D7C140C8 A
            03 016FA    C2D7C240 A
            03 016FB    C8C2D7C3 A
            03 016FC    40C8C2D7 A
            03 016FD    C440C9C2 A
            03 016FE    D7C140C9 A
            03 016FF    C2D7C240 A
            03 01700    C9C2D7C3 A
            03 01701    40C9C2D7 A
            03 01702    C4404040 A
     7457                            JKMSGHDR TEXTC    ;
     7458   03 01703    24404040 A    '     JA8 JB8 JC8 JD8 KA8 KB8 KC8 KD8'
            03 01704    4040D1C1 A
            03 01705    F840D1C2 A
            03 01706    F840D1C3 A
            03 01707    F840D1C4 A
            03 01708    F840D2C1 A
            03 01709    F840D2C2 A
            03 0170A    F840D2C3 A
            03 0170B    F840D2C4 A
            03 0170C    F8404040 A
     7459                            FBMSGHDR TEXTC    ;
     7460   03 0170D    20404040 A    '     RE8 RF8 RG8 RA8 RB8 RC8 RD8'
            03 0170E    4040D9C5 A
            03 0170F    F840D9C6 A
            03 01710    F840D9C7 A
            03 01711    F840D9C1 A
            03 01712    F840D9C2 A
            03 01713    F840D9C3 A
            03 01714    F840D9C4 A
            03 01715    F8404040 A
     7461                            KRMSGHDR TEXTC    'BITS',;
     7462   03 01716    3EC2C9E3 A    '   KA0123 KA4567 KB0123 KB4576 KC0123 KC4567 KD0123 KD4567'
            03 01717    E2404040 A
            03 01718    D2C1F0F1 A
            03 01719    F2F340D2 A
            03 0171A    C1F4F5F6 A
            03 0171B    F740D2C2 A
            03 0171C    F0F1F2F3 A
            03 0171D    40D2C2F4 A
            03 0171E    F5F7F640 A
            03 0171F    D2C3F0F1 A
            03 01720    F2F340D2 A
            03 01721    C3F4F5F6 A
            03 01722    F740D2C4 A
            03 01723    F0F1F2F3 A
            03 01724    40D2C4F4 A
            03 01725    F5F6F740 A
     7463                            NUMMSG   TEXTC    '01234567 ',;
     7464   03 01726    48F0F1F2 A    '89012345 67890123 45678901  01234567 89012345 67890123 45678901'
            03 01727    F3F4F5F6 A
            03 01728    F740F8F9 A
            03 01729    F0F1F2F3 A
            03 0172A    F4F540F6 A
            03 0172B    F7F8F9F0 A
            03 0172C    F1F2F340 A
            03 0172D    F4F5F6F7 A
            03 0172E    F8F9F0F1 A
            03 0172F    4040F0F1 A
            03 01730    F2F3F4F5 A
            03 01731    F6F740F8 A
            03 01732    F9F0F1F2 A
            03 01733    F3F4F540 A
            03 01734    F6F7F8F9 A
            03 01735    F0F1F2F3 A
            03 01736    40F4F5F6 A
            03 01737    F7F8F9F0 A
            03 01738    F1404040 A
     7465                                     PAGE
     7466                            *                 M I  ADDRESS RECOGNITION TEST
     7467                            *
     7468                            *                 THIS TEST VERIFY DIO UNIT RECOGNITION OF THE
     7469                            *                 ADDRESS SENT VIE DIO ADDRESS BUSS.
     7470         00000000           TNONE    SET      0
     7471                            *
     7472         00000001                    TESTNO
     7473                            M010 ;
     7474   03 01739    6AF00E9D              BAL,15   T:EXEC            GO TO THE TEST EXECUTION ROUTINE
     7475   03 0173A    00001741              DATA     PLM010            ADDR OF PRE-LIST
     7476   03 0173B    00000000 A            DATA     0                 I/O INSTRUCTION
     7477   03 0173C    00000000 A            DATA     0                 ADDR OF POST-LIST
     7478   03 0173D    00002223              DATA     MSM010            ADDR OF ADDR MSG'S
     7479   03 0173E    00000000 A            DATA     0                 ADDR OF COMPARE-LIST OF COMPARES
     7480   03 0173F    68001739              B        M010              LOOP ON ERROR
     7481   03 01740    68000CD1              B        RIOPEXIT          NORMAL EXIT
     7482   03 01741    22800001 A   PLM010   LI,8     1
     7483   03 01742    ED801561              WD,8     *DIOAD3           DO DIO OPERATION
     7484   03 01743    6AF00FD1              BAL,15   CCXX              SAVE CONDITION CODES
     7485   03 01744    680010C1              B        XIT               EXIT
     7486                            *
     7487                            *
     7488                            *
     7489         03 00888 3         MSM010   EQU      BA(MSG0100)
     7490                                     PAGE
     7491                            *
     7492                            *                 MI INITIAL RESET TEST
     7493         00000002                    TESTNO
     7494   03 01745    6AF00E9D     M040     BAL,15   T:EXEC            GO TO THE TEST EXECUTION ROUTINE
     7495   03 01746    0000174D              DATA     PLM040
     7496   03 01747    00000000 A            DATA     0
     7497   03 01748    00000000 A            DATA     0
     7498   03 01749    00002236              DATA     MSM040
     7499   03 0174A    00000000 A            DATA     0
     7500   03 0174B    68001745              B        M040              LOOP ON ERROR
     7501   03 0174C    68000CD1              B        RIOPEXIT          NORMAL EXIT
     7502                            *
     7503                            *
     7504                            *
     7505   03 0174D    22800005 A   PLM040   LI,8     5                 LOAD RESET AND SYNC BITS
     7506   03 0174E    ED801561              WD,8     *DIOAD3           GO RESET UNIT
     7507   03 0174F    6AF00FDB              BAL,15   CC00              SAVE CONDITION CODES
     7508   03 01750    680010C1              B        XIT
     7509                            *
     7510                            *
     7511         03 0088D 2         MSM040   EQU      BA(MSG0400)
     7512                                     PAGE
     7513                            *
     7514                            *                 MI DATA AND ADDRESS LINE TEST(WD GROUP 0 RD GROUP 1)
     7515         00000003                    TESTNO
     7516   03 01751    32E03058     M050     LW,14    =X'FFC00000'      SET UP MASK
     7517   03 01752    22700000 A            LI,7     0                 SET UP GROUP NO.
     7518   03 01753    6AF0175A              BAL,15   M0XX              GO TEST WD 0
     7519                            *
     7520                            *                 MI DATA AND ADDRESS LINE TEST (WD GROUP 2 RD GROUP 1)
     7521         00000004                    TESTNO
     7522                            M0510  ;
     7523   03 01754    32E03059              LW,14    =X'003FC000'      SET UP MASK
     7524   03 01755    22700002 A            LI,7     2                 SET UP GROUP NO.
     7525   03 01756    6AF0175A              BAL,15   M0XX              GO TEST WD 2
     7526                            *
     7527                            *                 MI DATA AND ADDRESS LINE TEST (WD GROUP 1 RD GROUP 1)
     7528         00000005                    TESTNO
     7529                            M0520  ;
     7530   03 01757    22E03FFF A            LI,14    X'3FFF'           SET UP MASK
     7531   03 01758    22700001 A            LI,7     1                 SET UP GROUP NO.
     7532   03 01759    6AF0175A              BAL,15   M0XX              GO TEST WD 1
     7533                            *
     7534                            M0XX  ;
     7535   03 0175A    351001C7 A            STW,1    PSAVE1            SET UP INDEX
     7536   03 0175B    21700002 A            CI,7     2
     7537   03 0175C    6930175E              BNE      %+2
     7538   03 0175D    352001C7 A            STW,2    PSAVE1
     7539   03 0175E    35E001A6 A            STW,14   DIOMASK+1         SAVE MASK
     7540   03 0175F    357006BE              STW,7    VDEC1A            SAVE WD GROUP NO.
     7541   03 01760    3070155E              AW,7     DIOAD0            CREATE DIO
     7542   03 01761    35701569              STW,7    DIOADNOW
     7543                            M0XX3 ;
     7544   03 01762    12E015CC              LD,14    MOXXDATA           LOAD INITIAL PATTERN
     7545   03 01763    15E015CE              STD,14   DIODATA           SAVE INITIAL PATTERN
     7546   03 01764    3510019E A            STW,1    DIODATA1+1        FAKE PATTERN
     7547   03 01765    12E015CE     M0XX2    LD,14    DIODATA           LOAD DATA PATTERN
     7548   03 01766    25E0017F A            SLD,14   -1                SHIFT
     7549   03 01767    15E015CE              STD,14   DIODATA           SAVE DATA PATTERN
     7550   03 01768    4BF001A6 A            AND,15   DIOMASK+1         LEAVE SET ONLY THOUGHT BIT TO BE TST
     7551   03 01769    46F0019E A            XW,15    DIODATA1+1        SAVE WORD IN WD WORD
     7552   03 0176A    6930176F              BNEZ     M0XX4             IF END QUIT
     7553   03 0176B    661001C7 A            AWM,1    PSAVE1            UPDATE INDEX
     7554   03 0176C    313001C7 A            CW,3     PSAVE1            IF
     7555   03 0176D    68200CD1              BLE      RIOPEXIT             END EXIT
     7556   03 0176E    68001762              B        M0XX3             OTHERWISE CONTINUE
     7557                            M0XX4 ;
     7558   03 0176F    31F0019E A            CW,15    DIODATA1+1        TEST FOR PATTERN JUST DONE
     7559   03 01770    68301765              BE       M0XX2                 IF SO SKIP I/O
     7560   03 01771    6AF00E98     M0XX1    BAL,15   T:EXECRS          GO TO THE TEST EXECUTION ROUTINE
     7561   03 01772    00001779              DATA     PL0MXX
     7562   03 01773    00000000 A            DATA     0
     7563   03 01774    00000000 A            DATA     0
     7564   03 01775    00002242              DATA     MSGMXX
     7565   03 01776    00000000 A            DATA     0
     7566   03 01777    68001771              B        M0XX1             LOOP ON ERROR
     7567   03 01778    68001765              B        M0XX2             NORMAL EXIT
     7568                            PL0MXX ;
     7569   03 01779    351015A4              STW,1    XPANDFLG
     7570   03 0177A    312001C7 A            CW,2     PSAVE1
     7571   03 0177B    6830177F              BE       PL0MX
     7572   03 0177C    228FFFFF A            LI,8     -1                SET ALL LATCHES
     7573   03 0177D    ED801569              WD,8     *DIOADNOW
     7574   03 0177E    6AF00FD1              BAL,15   CCXX              SAVE OPERATION
     7575                            PL0MX ;
     7576   03 0177F    22000000 A            LI,0     0
     7577   03 01780    35000187 A            STW,0    STEPSTAT
     7578   03 01781    3280019E A            LW,8     DIODATA1+1        LOAD DATA PATTERN
     7579   03 01782    ED801569              WD,8     *DIOADNOW         SET UP RIOP
     7580   03 01783    6AF00FD1              BAL,15   CCXX              SAVE OPERATION
     7581   03 01784    22800000 A   AL0MXX   LI,8     0                 ZERO DATA REGISTER
     7582   03 01785    EC80155F              RD,8     *DIOAD1           FETCH GROUP 1
     7583   03 01786    6AF00FD1              BAL,15   CCXX              SAVE OPERATION
     7584   03 01787    4B8001A6 A            AND,8    DIOMASK+1
     7585   03 01788    3180019E A            CW,8     DIODATA1+1        ARE THEY = TO WRITTEN PATTERN
     7586   03 01789    683010C1              BE       XIT                   IF SO TAKE= NORMAL EXIT
     7587   03 0178A    680010C3              B        XITERR                ERROR EXIT
     7588                            *
     7589                            *
     7590                            *
     7591         03 00890 2         MSGMXX   EQU      BA(MSG0500)
     7592                                     PAGE
     7593                            *
     7594                            *                 MI RESET LATCH AND ADDRESSING TEST
     7595         00000006                    TESTNO
     7596   03 0178B    6AF00E98     M080     BAL,15   T:EXECRS          GO TO THE TEST EXECUTION ROUTINE
     7597   03 0178C    00001793              DATA     PLM080
     7598   03 0178D    00000000 A            DATA     0
     7599   03 0178E    00000000 A            DATA     0
     7600   03 0178F    00002283              DATA     MSM080
     7601   03 01790    00000000 A            DATA     0
     7602   03 01791    6800178B              B        M080              LOOP ON ERROR
     7603   03 01792    68000CD1              B        RIOPEXIT          EXIT
     7604                            PLM080 ;
     7605   03 01793    351015A4              STW,1    XPANDFLG          SET EXPAND RD MSG FLAG
     7606   03 01794    228FFFFF A            LI,8     -1                SET UP
     7607   03 01795    ED80155E              WD,8     *DIOAD0           SET UP
     7608   03 01796    6AF00FDB              BAL,15   CC00              SAVE OPERATION
     7609   03 01797    ED80155F              WD,8     *DIOAD1           SET UP
     7610   03 01798    6AF00FD1              BAL,15   CCXX              SAVE OPERATION
     7611   03 01799    ED801560              WD,8     *DIOAD2
     7612   03 0179A    6AF00FD1              BAL,15   CCXX              SAVE OPERATION
     7613   03 0179B    22800001 A            LI,8     1                 CLEAR
     7614   03 0179C    ED801561              WD,8     *DIOAD3               RIOP
     7615   03 0179D    6AF00FDB              BAL,15   CC00              SAVE OPERATION
     7616   03 0179E    6AF00EF1              BAL,15   COLLECT           SAVE ALL
     7617   03 0179F    68000FDB              B        CC00                  RD'S
     7618   03 017A0    22400000 A            LI,4     0                 LOAD COUNT
     7619   03 017A1    328801BB A   PLM0801  LW,8     GROUP0,4          SET UP
     7620   03 017A2    4B8801A5 A            AND,8    DIOMASK,4            TO SEE
     7621   03 017A3    3188019D A            CW,8     DIODATA1,4            IF THERE
     7622   03 017A4    693010C3              BNE      XITERR                WAS AN
     7623   03 017A5    21400006 A            CI,4     6                     ERROR IN
     7624   03 017A6    683010C1              BE       XIT                   RD INFORMATION
     7625   03 017A7    20400001 A            AI,4     1
     7626   03 017A8    680017A1              B        PLM0801
     7627         03 008A0 3         MSM080   EQU      BA(MSG0800)
     7628                                     PAGE
     7629                            *
     7630                            *                 MI STOP LATCH TEST
     7631         00000007                    TESTNO
     7632   03 017A9    22E03FF8 A   M060     LI,14    X'3FF8'           SET UP MASK
     7633   03 017AA    6AF017BF              BAL,15   M0ZZ              GO BUILD DATA PATTERN
     7634   03 017AB    6AF017C5     M06001   BAL,15   M0YY              GO UPDATE DATA PATTERN
     7635   03 017AC    6AF00E98     M06002   BAL,15   T:EXECRS
     7636   03 017AD    000017B4              DATA     PLM060
     7637   03 017AE    00000000 A            DATA     0
     7638   03 017AF    00000000 A            DATA     0
     7639   03 017B0    0000225B              DATA     MSM060
     7640   03 017B1    00000000 A            DATA     0
     7641   03 017B2    680017AC              B        M06002            LOOP ON ERROR
     7642   03 017B3    680017AB              B        M06001            GO TO NEXT TEST
     7643                            *
     7644                            *
     7645   03 017B4    22800005 A   PLM060   LI,8     5                 SET SNYC & RESET
     7646   03 017B5    351015A4              STW,1    XPANDFLG
     7647   03 017B6    ED801561              WD,8     *DIOAD3
     7648   03 017B7    6AF00FDB              BAL,15   CC00
     7649   03 017B8    3280019E A            LW,8     DIODATA1+1        LOAD DATA PATTERN
     7650   03 017B9    683017E8              BEZ      PLM0701           GO EXPECT NO LATCH SET
     7651   03 017BA    ED80155F              WD,8     *DIOAD1
     7652   03 017BB    6AF00FDF              BAL,15   CC10              SAVE OPERATION
     7653   03 017BC    EC80155F              RD,8    *DIOAD1            FETCH GROUP 1
     7654   03 017BD    6AF00FDF              BAL,15   CC10              SAVE OPERATION
     7655   03 017BE    680017E4              B        PLM0702
     7656                            *
     7657                            *
     7658                            *
     7659         03 00896 3         MSM060   EQU      BA(MSG0600)
     7660   03 017BF    351015A4     M0ZZ     STW,1    XPANDFLG          SET EXPAND RD MSG
     7661   03 017C0    35E001A6 A            STW,14   DIOMASK+1         SAVE MASK
     7662   03 017C1    12A015CC              LD,10    MOXXDATA          LOAD INITIAL PATTERN
     7663   03 017C2    15A015CE              STD,10   DIODATA           SAVE INITIAL PATTERN
     7664   03 017C3    3510019E A            STW,1    DIODATA1+1        FAKE PATTERN
     7665   03 017C4    E800000F A            B        *15               RETURN
     7666                            *
     7667                            *
     7668                            *
     7669   03 017C5    12A015CE     M0YY     LD,10    DIODATA           LOAD DATA PATTERN
     7670   03 017C6    25A0017F A            SLD,10   -1                SHIFT
     7671   03 017C7    15A015CE              STD,10   DIODATA           SAVE DATA PATTERN
     7672   03 017C8    4BB001A6 A            AND,11   DIOMASK+1         LEAVE SET ONLY THOUGHS BIT -TESTED
     7673   03 017C9    46B0019E A            XW,11    DIODATA1+1        SAVE WORD IN WD WORD
     7674   03 017CA    330015CF              MTW,0    DIODATA+1         TEST FOR END
     7675   03 017CB    68300CD1              BEZ      RIOPEXIT              IF SO EXIT
     7676   03 017CC    31B0019E A            CW,11    DIODATA1+1        OTHERWISE TEST FOR PATTERN JUST DONE
     7677   03 017CD    683017C5              BE       M0YY                  IF SO SKIP I/O
     7678   03 017CE    E800000F A            B        *15               GO DO I/O
     7679                                     PAGE
     7680                            *
     7681                            *                 MI STEP LATCH TEST
     7682         00000008                    TESTNO
     7683   03 017CF    22E00007 A   M070     LI,14    7                 SET UP MASK
     7684   03 017D0    6AF017BF              BAL,15   M0ZZ              GO BUILD DATA PATTERN
     7685   03 017D1    6AF017C5     M07001   BAL,15   M0YY              GO UPDATE DATA PATTERN
     7686   03 017D2    6AF00E98     M07002   BAL,15   T:EXECRS
     7687   03 017D3    000017DA              DATA     PLM070
     7688   03 017D4    00000000 A            DATA     0
     7689   03 017D5    00000000 A            DATA     0
     7690   03 017D6    0000226F              DATA     MSM070
     7691   03 017D7    00000000 A            DATA     0
     7692   03 017D8    680017D2              B        M07002            LOOP ON ERROR
     7693   03 017D9    680017D1              B        M07001            GO TO NEXT TEST
     7694   03 017DA    22800005 A   PLM070   LI,8     5                 SET SYNC AND RESET
     7695   03 017DB    351015A4              STW,1    XPANDFLG
     7696   03 017DC    ED801561              WD,8     *DIOAD3
     7697   03 017DD    6AF00FDB              BAL,15   CC00              SAVE OPERATION
     7698   03 017DE    3280019E A            LW,8     DIODATA1+1        LOAD DATA PATTERN
     7699   03 017DF    683017E8              BEZ      PLM0701           GO EXPECT NO LATCH SET
     7700   03 017E0    ED80155F              WD,8     *DIOAD1
     7701   03 017E1    6AF00FDD              BAL,15   CC01              SAVE OPERATION
     7702   03 017E2    EC80155F              RD,8     *DIOAD1           FETCH GROUP 1
     7703   03 017E3    6AF00FDD              BAL,15   CC01              SAVE OPERATION
     7704   03 017E4    22800000 A   PLM0702  LI,8     0                 RESET ALL
     7705   03 017E5    ED80155F              WD,8     *DIOAD1               LATCHES
     7706   03 017E6    6AF00FD7              BAL,15   CC0X
     7707   03 017E7    680010C1              B        XIT               EXIT
     7708                            *
     7709                            *
     7710   03 017E8    ED80155F     PLM0701  WD,8     *DIOAD1           GO RESET ALL LATCHES
     7711   03 017E9    6AF00FDB              BAL,15   CC00                  EXPECT CC'S TO REFLECT THIS
     7712   03 017EA    EC80155F              RD,8     *DIOAD1           READ LATCHES EXPECT 0
     7713   03 017EB    6AF00FDB              BAL,15   CC00
     7714   03 017EC    680017E4              B        PLM0702           EXIT
     7715                            *
     7716         03 0089B 3         MSM070   EQU      BA(MSG0700)
     7717                                     PAGE
     7718                            *
     7719                            *                 INTERRUPT NOT PENDING TEST
     7720         00000009                    TESTNO
     7721   03 017ED    6AF00E98     P000     BAL,15   T:EXECRS
     7722   03 017EE    0000181D              DATA     PLP0X0
     7723   03 017EF    00000000 A            DATA     0
     7724   03 017F0    00001BD8              DATA     PLP460
     7725   03 017F1    0000229F              DATA     MSP000
     7726   03 017F2    000017F5              DATA     CLP000
     7727   03 017F3    680017ED              B        P000
     7728   03 017F4    68000CD1              B        RIOPEXIT
     7729                            *
     7730                            *
     7731   03 017F5    328015AB     CLP000   LW,8     GOTINTR
     7732   03 017F6    6AF011E7              BAL,15   IRCOMP1
     7733   03 017F7    680010C1              B        XIT
     7734                            *
     7735                            *
     7736         03 008A7 3         MSP000   EQU      BA(MSGP000)
     7737                                     PAGE
     7738                            *
     7739                            *                 INTERRUPT PENDING TEST
     7740         00000010                    TESTNO
     7741   03 017F8    6AF00E98     P0001    BAL,15   T:EXECRS
     7742   03 017F9    00001800              DATA     PLP0001
     7743   03 017FA    00000000 A            DATA     0
     7744   03 017FB    00001BD8              DATA     PLP460
     7745   03 017FC    000022B0              DATA     MSP0001
     7746   03 017FD    00001BE4              DATA     CLP460
     7747   03 017FE    680017F8              B        P0001
     7748   03 017FF    68000CD1              B        RIOPEXIT
     7749                            *
     7750   03 01800    6AF011C9     PLP0001  BAL,15   WDGP0
     7751   03 01801    3280305A              WD2      ZBCI
     7752   03 01802    ED801560              WD,8     *DIOAD2
     7753   03 01803    6AF00FDB              BAL,15   CC00
     7754   03 01804    680010C1              B        XIT
     7755                            *
     7756         03 008AC           MSP0001  EQU      BA(MSGP001)
     7757                                     PAGE
     7758                            *                 SIO INSTRUCTION DECODE TEST
     7759         00000011                    TESTNO
     7760   03 01805    22600000 A   P010     LI,6     0
     7761   03 01806    6800180D              B        P0X0
     7762                            *
     7763                            *                 TIO INSTRUCTION DECODE TEST
     7764         00000012                    TESTNO
     7765   03 01807    22600001 A   P020     LI,6     1
     7766   03 01808    6800180D              B        P0X0
     7767                            *
     7768                            *                 TDV INSTRUCTION DECODE TEST
     7769         00000013                    TESTNO
     7770   03 01809    22600002 A   P030     LI,6     2
     7771   03 0180A    6800180D              B        P0X0
     7772                            *                 HIO INSTRUCTION DECODE TEST
     7773         00000014                    TESTNO
     7774   03 0180B    22600003 A   P040     LI,6     3
     7775   03 0180C    6800180D              B        P0X0
     7776   03 0180D    356001C3 A   P0X0     STW,6    PINDEX
     7777   03 0180E    328C1144              LW,8     INSTRTAB,6        LOAD AND SAVE
     7778   03 0180F    35801817              STW,8    P0X02                 I/O INSTR
     7779   03 01810    351006C9              STW,1    VDEC2B            SAVE PHASE NO.
     7780                                     WD1      PH00,PH01,PH02,PH03,PH04,PH05,PH10,;
     7781   03 01811    22803FF8 A                     PH102,PH11,PH12,DATA
     7782   03 01812    358001C4 A            STW,8    PWD1
     7783   03 01813    6AF011D4     P0X01    BAL,15   T:WDT
     7784   03 01814    22000AEB              LI,0     DA(DUMMY)
     7785   03 01815    6AF00E98              BAL,15   T:EXECRS
     7786   03 01816    0000181D              DATA     PLP0X0
     7787   03 01817    00000000 A   P0X02    DATA     0
     7788   03 01818    00001822              DATA     ALP0X0
     7789   03 01819    000022BD              DATA     MSP0X0
     7790   03 0181A    00001825              DATA     CLP0X0
     7791   03 0181B    68001813              B        P0X01
     7792   03 0181C    68000CD1              B        RIOPEXIT
     7793   03 0181D    6AF011C9     PLP0X0   BAL,15   WDGP0             GO SET UP THE RIOP
     7794                            PLP0X01  WD1      PH00,PH01,PH02,PH03,PH04,PH05,PH10,;
     7795   03 0181E    22803FF8 A                     PH102,PH11,PH12,DATA
     7796   03 0181F    ED80155F              WD,8     *DIOAD1
     7797   03 01820    6AF00FDF              BAL,15   CC10
     7798   03 01821    680010C1              B        XIT
     7799   03 01822    6AF00EF1     ALP0X0   BAL,15   COLLECT           COLLECT ALL RIOP
     7800   03 01823    68000FDB              B        CC00                  STATUS
     7801   03 01824    680010C1              B        XIT
     7802   03 01825    22801002 A   CLP0X0   PHPROC   PH01,IN
     7803   03 01826    6AF0114C              BAL,15   PHCOMP
     7804   03 01827    328001C4 A            LW,8     PWD1              LOAD PHASE STOPS
     7805   03 01828    6AF011BC              BAL,15   PHSTCOMP
     7806   03 01829    328001C3 A            LW,8     PINDEX            LOAD EXPECTED FNC
     7807   03 0182A    6AF010E8              BAL,15   FNCOMP            TEST FOR FNC
     7808   03 0182B    680010C1              B        XIT               EXIT
     7809         03 008AF 1         MSP0X0   EQU      BA(MSGPX00)
     7810                                     PAGE
     7811                            *
     7812                            *                 AIO INSTRUCTION DECODE TEST
     7813         00000015                    TESTNO
     7814   03 0182C    6AF011D4     P0401    BAL,15   T:WDT
     7815   03 0182D    353006C9              STW,3    VDEC2B
     7816   03 0182E    6AF00E98              BAL,15   T:EXECRS
     7817   03 0182F    00001836              DATA     PLP401
     7818   03 01830    6E000000 A            AIO,0    0
     7819   03 01831    00001822              DATA     ALP0X0
     7820   03 01832    000022BD              DATA     MSP0X0
     7821   03 01833    0000183E              DATA     CLP041
     7822   03 01834    6800182C              B        P0401
     7823   03 01835    68000CD1              B        RIOPEXIT
     7824                            *
     7825                            *
     7826   03 01836    6AF011C9     PLP401   BAL,15   WDGP0
     7827                                     WD1      PH00,PH01,PH02,PH03,PH04,PH05,PH10,;
     7828   03 01837    22803FF8 A                     PH102,PH11,PH12,DATA
     7829   03 01838    ED80155F              WD,8     *DIOAD1
     7830   03 01839    6AF00FDF              BAL,15   CC10
     7831   03 0183A    3280305A              WD2      ZBCI
     7832   03 0183B    ED801560              WD,8     *DIOAD2
     7833   03 0183C    6AF00FDF              BAL,15   CC10
     7834   03 0183D    680010C1              B        XIT
     7835                            *
     7836                            *
     7837   03 0183E    22800402 A   CLP041   PHPROC   PH03,IN
     7838   03 0183F    6AF0114C              BAL,15   PHCOMP
     7839                                     WD1      PH00,PH01,PH02,PH03,PH04,PH05,PH10,;
     7840   03 01840    22803FF8 A                     PH102,PH11,PH12,DATA
     7841   03 01841    6AF011BC              BAL,15   PHSTCOMP
     7842   03 01842    22800006 A            LI,8     6
     7843   03 01843    6AF010E8              BAL,15   FNCOMP
     7844   03 01844    680010C1              B        XIT
     7845                            *
     7846                            *                 RIO INSTRUCTION (FREE RUN) TEST
     7847                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     7848         00000016                    TESTNO
     7849   03 01845    22600004 A   P050     LI,6     4
     7850   03 01846    22701822              LI,7     ALP0X0
     7851   03 01847    22800000 A            LI,8     0
     7852   03 01848    68001851              B        P0Y01
     7853                            *
     7854                            *                 POLP INSTRUCTION (FREE RUN) TEST
     7855                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     7856         00000017                    TESTNO
     7857   03 01849    22600005 A   P060     LI,6     5
     7858   03 0184A    6800184F              B        P0Y0
     7859                            *
     7860                            *                 AIO INSTRUCTION  (FREE RUN) TEST
     7861         00000018                    TESTNO
     7862   03 0184B    22600006 A   P070     LI,6     6
     7863   03 0184C    680018FE              B        P0B0
     7864                            *
     7865                            *                 POLR INSTRUCTION  (FREE RUN) TEST
     7866                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     7867         00000019                    TESTNO
     7868   03 0184D    22600007 A   P080     LI,6     7
     7869   03 0184E    6800184F              B        P0Y0
     7870                            P0Y0 ;
     7871                                     WD1      PH00,PH01,PH02,PH03,PH04,PH05,PH10,;
     7872   03 0184F    22803FF8 A                     PH102,PH11,PH12,DATA
     7873   03 01850    2270185F              LI,7     ALP0Y0
     7874   03 01851    358001C4 A   P0Y01    STW,8    PWD1              SAVE EXPECTED STOPS
     7875   03 01852    3570185A              STW,7    P0Y04
     7876   03 01853    328C1144              LW,8     INSTRTAB,6        LOAD AND SAVE
     7877   03 01854    35801859              STW,8    P0Y02                 I/O INSTRUCTION
     7878   03 01855    22A00000 A            LI,10    0
     7879   03 01856    35A0186A              STW,10   CLP0Y02           SAVE EXPECTED CC'S
     7880   03 01857    6AF00E98     P0Y03    BAL,15   T:EXECRS          GO DO TEST
     7881   03 01858    0000181D              DATA     PLP0X0
     7882   03 01859    00000000 A   P0Y02    DATA     0
     7883   03 0185A    00000000 A   P0Y04    DATA     0
     7884   03 0185B    000022CF              DATA     MSP0Y0
     7885   03 0185C    00001862              DATA     CLP0Y0
     7886   03 0185D    68001857              B        P0Y03
     7887   03 0185E    68000CD1              B        RIOPEXIT          EXIT TEST
     7888   03 0185F    6AF00EF1     ALP0Y0   BAL,15   COLLECT           COLLECT ALL RIOP
     7889   03 01860    68000FDF              B        CC10                  STATUS
     7890   03 01861    680010C1              B        XIT
     7891   03 01862    22802000 A   CLP0Y0   PHPROC   PH00              LOAD CURRENT PHASE
     7892   03 01863    6AF0114C              BAL,15   PHCOMP            TEST PHASES
     7893   03 01864    328001C4 A   CLP0Y01  LW,8     PWD1              TEST STOP
     7894   03 01865    6AF011BC              BAL,15   PHSTCOMP              BITS
     7895   03 01866    22800000 A            LI,8     0                 TEST
     7896   03 01867    6AF010E8              BAL,15   FNCOMP                FNC
     7897   03 01868    6AF01110              BAL,15   IOCOMP            TEST CC'S
     7898   03 01869    0000E000 A            DATA     X'0000E000'
     7899   03 0186A    00000000 A   CLP0Y02  DATA     0
     7900   03 0186B    680010C1              B        XIT               EXIT
     7901                            *
     7902                            *
     7903                            *
     7904         03 008B3 3         MSP0Y0   EQU      BA(MSGP0Y0)
     7905                                     PAGE
     7906                            *
     7907                            *                 CELL X'20' MEMORY CONTROL TEST
     7908         00000020                    TESTNO
     7909                            P0801    ;
     7910   03 0186C    6AF011D4              BAL,15   T:WDT
     7911   03 0186D    22000AEB     P08011   LI,0     DA(DUMMY)
     7912   03 0186E    6AF00E98              BAL,15   T:EXECRS
     7913   03 0186F    0000181D              DATA     PLP0X0
     7914   03 01870    4C000000 A            SIO,0    0
     7915   03 01871    00001876              DATA     ALP0801
     7916   03 01872    000022E1              DATA     MSP0801
     7917   03 01873    0000187A              DATA     CLP0801
     7918   03 01874    6800186C              B        P0801
     7919   03 01875    68000CD1              B        RIOPEXIT
     7920                            *
     7921   03 01876    22800002 A   ALP0801  LI,8     2
     7922   03 01877    ED801561              WD,8     *DIOAD3
     7923   03 01878    6AF00FDF              BAL,15   CC10
     7924   03 01879    68001822              B        ALP0X0
     7925                            *
     7926                            *
     7927                            *
     7928   03 0187A    22800802 A   CLP0801  PHPROC   PH02,IN
     7929   03 0187B    6AF0114C              BAL,15   PHCOMP
     7930   03 0187C    22800180 A            MEPROC   MAR,MDR
     7931   03 0187D    6AF011A3              BAL,15   MECOMP
     7932   03 0187E    22800020 A            LI,8     X'20'
     7933   03 0187F    6AF011AD              BAL,15   LREG
     7934   03 01880    680010C1              B        XIT
     7935         03 008B8 1         MSP0801  EQU      BA(MSGP800)
     7936                                     PAGE
     7937                            *
     7938                            *                 M REGISTER TEST
     7939         00000021                    TESTNO
     7940                            P090     ;
     7941   03 01881    6AF011D4              BAL,15   T:WDT             GO INITIALIZE
     7942   03 01882    12A015CC              LD,10    MOXXDATA
     7943   03 01883    15A015CE              STD,10   DIODATA               SAVE DATA PATTERN
     7944   03 01884    12A015CE     P0902    LD,10    DIODATA           LOAD DATA PATTERN
     7945   03 01885    68300CD1              BEZ      RIOPEXIT          IF ZERO EXIT
     7946   03 01886    25A0017F A            SLD,10   -1                UPDATE PATTERN
     7947   03 01887    15A015CE              STD,10   DIODATA               THEN SAVE IT
     7948   03 01888    22000AEB     P0901    LI,0     DA(DUMMY)
     7949   03 01889    6AF00E98              BAL,15   T:EXECRS
     7950   03 0188A    0000181D              DATA     PLP0X0
     7951   03 0188B    4C000000 A            SIO,0    0
     7952   03 0188C    00001891              DATA     ALP090
     7953   03 0188D    000022FF              DATA     MSP090
     7954   03 0188E    00001894              DATA     CLP090
     7955   03 0188F    68001888              B        P0901
     7956   03 01890    68001884              B        P0902
     7957   03 01891    32B015CF     ALP090   LW,11    DIODATA+1         LOAD DATA PATTERN
     7958   03 01892    35B00020 A            STW,11   X'20'                 SET UP CELL X'20'
     7959   03 01893    68001876              B        ALP0801
     7960                            *
     7961                            *
     7962                            *
     7963   03 01894    328015CF     CLP090   LW,8     DIODATA+1         LOAD DATA PATTERN
     7964   03 01895    6AF01107              BAL,15   MREG              GO CHECK M-REG
     7965   03 01896    6800187A              B        CLP0801
     7966                            *
     7967                            *
     7968                            *
     7969         03 008BF 3         MSP090   EQU      BA(MSGP900)
     7970                                     PAGE
     7971                            *
     7972                            *                 M8 & M9 DECODE TEST  (PHASE 05)
     7973         00000022                    TESTNO
     7974                            P100 ;
     7975   03 01897    22700000 A            LI,7     0                 REG FIELD
     7976   03 01898    22800102 A            PHPROC   PH05,IN           EXP PHASE
     7977   03 01899    680018A0              B        P0Z0
     7978                            *
     7979                            *                 M8 & M9 DECODE TEST  (PHASE 04)
     7980         00000023                    TESTNO
     7981   03 0189A    227000D0 A   P110     LI,7     X'D0'
     7982   03 0189B    22800202 A            PHPROC   PH04,IN
     7983   03 0189C    680018A0              B        P0Z0
     7984                            *
     7985                            *                 M8 & M9 DECODE TEST  (PHASE 03)
     7986         00000024                    TESTNO
     7987   03 0189D    227000C0 A   P120     LI,7     X'C0'
     7988   03 0189E    22800402 A            PHPROC   PH03,IN
     7989   03 0189F    680018A0              B        P0Z0
     7990                            P0Z0 ;
     7991   03 018A0    25700010 A            SLS,7    16                POSITION TO NORMAL
     7992   03 018A1    357001C7 A            STW,7    PSAVE1                REG LOC
     7993   03 018A2    358001C4 A            STW,8    PWD1              SAVE EXP PHASE
     7994   03 018A3    6AF011D4              BAL,15   T:WDT             GO SET UP FOR WDT
     7995   03 018A4    22600000 A            LI,6     0                 LOAD AND
     7996   03 018A5    356001C3 A   P0Z01    STW,6    PINDEX                SAVE INSTR INDEX
     7997   03 018A6    328C1144              LW,8     INSTRTAB,6        LOAD I/O INSTR- SIO-TIO-TDV-HIO
     7998   03 018A7    498001C7 A            OR,8     PSAVE1            ADD REG FIELD
     7999   03 018A8    358018AC              STW,8    P0Z02             SAVE AS I/O INSTR
     8000   03 018A9    22000AEB     P0Z03    LI,0     DA(DUMMY)
     8001   03 018AA    6AF00E98              BAL,15   T:EXECRS
     8002   03 018AB    000018B6              DATA     PL0Z0
     8003   03 018AC    00000000 A   P0Z02    DATA     0
     8004   03 018AD    00001822              DATA     ALP0X0
     8005   03 018AE    00002319              DATA     MSP0Z0
     8006   03 018AF    000018BB              DATA     CLP0Z0
     8007   03 018B0    680018A9              B        P0Z03
     8008   03 018B1    326001C3 A            LW,6     PINDEX            LOAD INSTRUCTION INDEX
     8009   03 018B2    21600003 A            CI,6     3                 IS THIS THE END
     8010   03 018B3    68100CD1              BGE      RIOPEXIT              IF SO EXIT
     8011   03 018B4    20600001 A            AI,6     1
     8012   03 018B5    680018A5              B        P0Z01
     8013                            *
     8014                            *
     8015                            *
     8016   03 018B6    6AF011C9     PL0Z0    BAL,15   WDGP0             SET VP RIOP
     8017   03 018B7    22800FB0 A            WD1      PH02,PH03,PH04,PH05,PH10,PH11,PH12
     8018   03 018B8    ED80155F              WD,8     *DIOAD1           SET PHASE STOPS
     8019   03 018B9    6AF00FDF              BAL,15   CC10              CHECK CC'S
     8020   03 018BA    680010C1              B        XIT               RTN
     8021                            *
     8022                            *
     8023                            *
     8024   03 018BB    328001C4 A   CLP0Z0   LW,8     PWD1              LOAD EXP PHASE
     8025   03 018BC    6AF0114C              BAL,15   PHCOMP            TEST EXP PHASE
     8026   03 018BD    680010C1              B        XIT
     8027                            *
     8028                            *
     8029         03 008C6 1         MSP0Z0   EQU      BA(MSGPZ00)
     8030                                     PAGE
     8031                            *
     8032                            *                 TIO INSTRUCTION (FREE RUN) TEST
     8033         00000025                    TESTNO
     8034   03 018BE    22600001 A   P130     LI,6     1
     8035   03 018BF    680018CA              B        P0A0
     8036                            *
     8037                            *                 TDV INSTRUCTION (FREE RUN) TEST
     8038         00000026                    TESTNO
     8039   03 018C0    22600002 A   P140     LI,6     2
     8040   03 018C1    228006F8 A            WD1      PH03,PH04,PH10,PH102,PH11,PH12,DATA
     8041   03 018C2    358001C4 A            STW,8    PWD1
     8042   03 018C3    328C1144              LW,8     INSTRTAB,6
     8043   03 018C4    358018D2              STW,8    P0A01
     8044   03 018C5    22804000 A            LI,8     X'4000'
     8045   03 018C6    3580186A              STW,8    CLP0Y02
     8046   03 018C7    680018D0              B        P0A011
     8047                            *
     8048                            *                 HIO INSTRUCTION (FREE RUN) TEST
     8049         00000027                    TESTNO
     8050   03 018C8    22600003 A   P150     LI,6     3
     8051   03 018C9    680018CA              B        P0A0
     8052   03 018CA    228006F8 A   P0A0     WD1      PH03,PH04,PH10,PH102,PH11,PH12,DATA
     8053   03 018CB    358001C4 A            STW,8    PWD1
     8054   03 018CC    328C1144              LW,8     INSTRTAB,6
     8055   03 018CD    358018D2              STW,8    P0A01
     8056   03 018CE    22800000 A            LI,8     0
     8057   03 018CF    3580186A              STW,8    CLP0Y02
     8058                            P0A011 ;
     8059   03 018D0    6AF00E98              BAL,15   T:EXECRS
     8060   03 018D1    000018D8              DATA     PLP0A01
     8061   03 018D2    00000000 A   P0A01    DATA     0
     8062   03 018D3    0000185F              DATA     ALP0Y0
     8063   03 018D4    000022CF              DATA     MSP0Y0
     8064   03 018D5    00001862              DATA     CLP0Y0
     8065   03 018D6    680018D0              B        P0A011
     8066   03 018D7    68000CD1              B        RIOPEXIT
     8067   03 018D8    6AF011C9     PLP0A01  BAL,15   WDGP0
     8068   03 018D9    328001C4 A            LW,8     PWD1
     8069   03 018DA    ED80155F              WD,8     *DIOAD1
     8070   03 018DB    6AF00FDF              BAL,15   CC10
     8071   03 018DC    680010C1              B        XIT
     8072                            *
     8073                            *
     8074                            *
     8075                                     PAGE
     8076                            *
     8077                            *                 NO IOP ADDRESS RECOGNITION TEST
     8078         00000028                    TESTNO
     8079   03 018DD    32F002BF A   P160     LW,15    :DEVADDR          LOAD CURRENT I/O ADDR
     8080   03 018DE    35F001C7 A            STW,15   PSAVE1            SAVE IN TEMPORARY LOC
     8081   03 018DF    4BF0303D              AND,15   =X'FF'            REMOVE IOP ADDR
     8082   03 018E0    35F002BF A            STW,15   :DEVADDR          SAVE AS FIRST ADDR TO BE TRIED
     8083   03 018E1    31F001C7 A   P1601    CW,15    PSAVE1
     8084   03 018E2    683018EA              BE       P1602             GO TEST I/O ADDRESS
     8085   03 018E3    6AF00E98              BAL,15   T:EXECRS
     8086   03 018E4    0000181D              DATA     PLP0X0
     8087   03 018E5    4F004000 A            RIO,0    0
     8088   03 018E6    0000185F              DATA     ALP0Y0
     8089   03 018E7    00002328              DATA     MSP160
     8090   03 018E8    000018F1              DATA     CLP160
     8091   03 018E9    680018EB              B        P1603
     8092   03 018EA    731402BF A   P1602    MTB,1    :DEVADDR,2        UPDATE IOP ADDR
     8093   03 018EB    32F002BF A   P1603    LW,15    :DEVADDR          FETCH CURRENT I/O ADDR
     8094   03 018EC    31F00196 A            CW,15    IOFIELD           IF NOT
     8095   03 018ED    684018E1              BCR,4    P1601                 END GO DO NEXT ADDRESS
     8096   03 018EE    22F01D4C A            LI,15    7500              *****  REMOVE WHEN TY  ****
     8097   03 018EF    64F018EF              BDR,15   %                 *****  1S FIXED        ****
     8098   03 018F0    68000CD1              B        RIOPEXIT          RETURN
     8099                            *
     8100                            *
     8101   03 018F1    22802000 A   CLP160   PHPROC   PH00
     8102   03 018F2    6AF0114C              BAL,15   PHCOMP
     8103                                     WD1      PH00,PH01,PH02,PH03,PH04,PH05,PH10,PH102,;
     8104   03 018F3    22803FF8 A                     PH11,PH12,DATA
     8105   03 018F4    6AF011BC              BAL,15   PHSTCOMP
     8106   03 018F5    680010C1              B        XIT
     8107         03 008CA           MSP160   EQU      BA(MSGP160)
     8108                                     PAGE
     8109                            *
     8110                            *                 SIO INSTRUCTION (NO DEVICE RECOGNITION) TEST
     8111         00000029                    TESTNO
     8112   03 018F6    22600000 A   P170     LI,6     0
     8113   03 018F7    680018FE              B        P0B0
     8114                            *
     8115                            *                 TIO INSTRUCTION (NO DEVICE RECOGNITION) TEST
     8116         00000030                    TESTNO
     8117   03 018F8    22600001 A   P180     LI,6     1
     8118   03 018F9    680018FE              B        P0B0
     8119                            *
     8120                            *                 TDV INSTRUCTION (NO DEVICE RECOGNITION) TEST
     8121         00000031                    TESTNO
     8122   03 018FA    22600002 A   P190     LI,6     2
     8123   03 018FB    680018FE              B        P0B0
     8124                            *
     8125                            *                 HIO INSTRUCTION (NO DEVICE RECOGNITION) TEST
     8126         00000032                    TESTNO
     8127   03 018FC    22600003 A   P200     LI,6     3
     8128   03 018FD    680018FE              B        P0B0
     8129                            *
     8130                            *
     8131   03 018FE    328C1144     P0B0     LW,8     INSTRTAB,6
     8132   03 018FF    3580190C              STW,8    P0B02
     8133                                     WD1      PH03,PH04,PH10,PH102,PH11,PH12,;
     8134   03 01900    228006F8 A                     DATA
     8135   03 01901    358001C4 A            STW,8    PWD1
     8136   03 01902    2280C000 A            LI,8     X'C000'
     8137   03 01903    3580186A              STW,8    CLP0Y02
     8138   03 01904    32C002BF A   P0B04    LW,12    :DEVADDR
     8139   03 01905    20C00004 A            AI,12    4
     8140   03 01906    35C002BF A            STW,12   :DEVADDR
     8141   03 01907    21C0000C A            CI,12    X'C'
     8142   03 01908    68400CD1              BCR,4    RIOPEXIT
     8143   03 01909    22000AEB     P0B03    LI,0     DA(DUMMY)
     8144   03 0190A    6AF00E98              BAL,15   T:EXECRS
     8145   03 0190B    00001912              DATA     PLP0B0
     8146   03 0190C    00000000 A   P0B02    DATA     0
     8147   03 0190D    0000185F              DATA     ALP0Y0
     8148   03 0190E    0000233C              DATA     MSP0B0
     8149   03 0190F    00001862              DATA     CLP0Y0
     8150   03 01910    68001909              B        P0B03
     8151   03 01911    68001904              B        P0B04
     8152                            *
     8153                            *
     8154   03 01912    6AF011C9     PLP0B0   BAL,15   WDGP0
     8155   03 01913    328001C4 A            LW,8     PWD1
     8156   03 01914    ED80155F              WD,8     *DIOAD1
     8157   03 01915    6AF00FDF              BAL,15   CC10
     8158   03 01916    680010C1              B        XIT
     8159                            *
     8160                            *
     8161         03 008CF           MSP0B0   EQU      BA(MSGPB00)
     8162                                     PAGE
     8163                            *
     8164                            *                 PH10 DECODE TEST
     8165                            *
     8166         00000033                    TESTNO
     8167                            P210 ;
     8168   03 01917    22A0000A A            LI,10    10                SAVE
     8169   03 01918    35A006C9              STW,10   VDEC2B                PHASE 10
     8170   03 01919    22000AEB              LI,0     DA(DUMMY)
     8171   03 0191A    6AF00E98              BAL,15   T:EXECRS          GO TEST
     8172   03 0191B    00001922              DATA     PLP210
     8173   03 0191C    4C000000 A            SIO,0    0
     8174   03 0191D    00001822              DATA     ALP0X0
     8175   03 0191E    00002351              DATA     MSP210
     8176   03 0191F    00001927              DATA     CLP210
     8177   03 01920    68001917              B        P210
     8178   03 01921    68000CD1              B        RIOPEXIT
     8179                            *
     8180                            *
     8181   03 01922    6AF011C9     PLP210   BAL,15   WDGP0
     8182   03 01923    228001F8 A            WD1      PH05,PH10,PH102,PH11,PH12,DATA
     8183   03 01924    ED80155F              WD,8     *DIOAD1
     8184   03 01925    6AF00FDF              BAL,15   CC10
     8185   03 01926    680010C1              B        XIT
     8186                            *
     8187                            *
     8188   03 01927    22800081 A   CLP210   PHPROC   PH10,BUSY
     8189   03 01928    6AF0114C              BAL,15   PHCOMP
     8190   03 01929    6AF01110              BAL,15   IOCOMP
     8191   03 0192A    0000E000 A            DATA     X'0000E000'
     8192   03 0192B    00000000 A            DATA     X'00000000'
     8193   03 0192C    680010C1              B        XIT
     8194                            *
     8195                            *
     8196                            *
     8197         03 008D4 1         MSP210   EQU      BA(MSGP210)
     8198                                     PAGE
     8199                            *
     8200                            *                 ADDRESS ERROR TEST
     8201         00000034                    TESTNO
     8202                            P220 ;
     8203   03 0192D    6AF011D4              BAL,15   T:WDT
     8204   03 0192E    6AF00E98              BAL,15   T:EXECRS
     8205   03 0192F    00001936              DATA     PLP220
     8206   03 01930    4D000000 A            TIO,0    0
     8207   03 01931    0000185F              DATA     ALP0Y0
     8208   03 01932    00002360              DATA     MSP220
     8209   03 01933    0000193E              DATA     CLP220
     8210   03 01934    6800192D              B        P220
     8211   03 01935    68000CD1              B        RIOPEXIT
     8212                            *
     8213                            *
     8214   03 01936    6AF011C9     PLP220   BAL,15   WDGP0
     8215   03 01937    228006F8 A            WD1      PH03,PH04,PH10,PH102,PH11,PH12,DATA
     8216   03 01938    ED80155F              WD,8     *DIOAD1
     8217   03 01939    6AF00FDF              BAL,15   CC10
     8218   03 0193A    3280303C              WD2      MAE
     8219   03 0193B    ED801560              WD,8     *DIOAD2
     8220   03 0193C    6AF00FDF              BAL,15   CC10
     8221   03 0193D    680010C1              B        XIT
     8222                            *
     8223                            *
     8224                            *
     8225   03 0193E    22800802 A   CLP220   PHPROC   PH02,IN
     8226   03 0193F    6AF0114C              BAL,15   PHCOMP
     8227   03 01940    680010C1              B        XIT
     8228                            *
     8229                            *
     8230         03 008D8           MSP220   EQU      BA(MSGP220)
     8231                                     PAGE
     8232                            *
     8233                            *                 BUS CHECK FAULT TEST
     8234                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     8235         00000035                    TESTNO
     8236   03 01941    22800800 A   P230     LI,8     X'800'
     8237   03 01942    6D801100 A            WD,8     X'1100'               PFIINTERRUPT
     8238   03 01943    3280305B              WD2      MPE
     8239   03 01944    358001C6 A            STW,8    WDG2
     8240   03 01945    6AF00E98              BAL,15   T:EXECRS
     8241   03 01946    00001969              DATA     PLP230
     8242   03 01947    4D000000 A            TIO,0    0
     8243   03 01948    0000185F              DATA     ALP0Y0
     8244   03 01949    0000236E              DATA     MSP230
     8245   03 0194A    00001971              DATA     CLP230
     8246   03 0194B    68001941              B        P230
     8247                            *
     8248                            *                 TEST FOR BCF BIT REPORTED FOR A PLOP
     8249                            *
     8250                            P230A ;
     8251   03 0194C    6AF00E9D              BAL,15   T:EXEC
     8252   03 0194D    00000000 A            DATA     0
     8253   03 0194E    4FC08000 A            PLOP,12  0
     8254   03 0194F    00000000 A            DATA     0
     8255   03 01950    0100236E              GEN,8,24 1,MSP230A
     8256   03 01951    00001979              DATA     CLP230A
     8257   03 01952    68001941              B        P230
     8258                            *                 TEST FOR BCF BIT REPORTED FOR A PLOR
     8259                            *
     8260   03 01953    6AF00E9D     P230B    BAL,15   T:EXEC
     8261   03 01954    00000000 A            DATA     0
     8262   03 01955    4FC0C000 A            PLOR,12  0
     8263   03 01956    00000000 A            DATA     0
     8264   03 01957    0200236E              GEN,8,24 2,MSP230A
     8265   03 01958    00001979              DATA     CLP230A
     8266   03 01959    68001941              B        P230
     8267                            *
     8268                            *
     8269                            *                 TEST FOR BCF BIT RESET BY THE PLOR
     8270   03 0195A    6AF00E9D     P230C    BAL,15   T:EXEC
     8271   03 0195B    00000000 A            DATA     0
     8272   03 0195C    4FC08000 A            PLOP,12  0
     8273   03 0195D    00000000 A            DATA     0
     8274   03 0195E    0300236E              GEN,8,24 3,MSP230C
     8275   03 0195F    0000197F              DATA     CLP230C
     8276   03 01960    68001941              B        P230
     8277                            *
     8278                            *                 TEST FOR NO PFI PENDING
     8279                            *
     8280   03 01961    6AF00E9D     P230D    BAL,15   T:EXEC
     8281   03 01962    00001987              DATA     PLP230D
     8282   03 01963    00000000 A            DATA     0
     8283   03 01964    00000000 A            DATA     0
     8284   03 01965    0400236E              GEN,8,24 4,MSP230C
     8285   03 01966    00000000 A            DATA     0
     8286   03 01967    68001941              B        P230
     8287   03 01968    68000CD1              B        RIOPEXIT
     8288                            *
     8289                            *
     8290                            *
     8291   03 01969    6AF011C9     PLP230   BAL,15   WDGP0
     8292   03 0196A    228006F8 A            WD1      PH03,PH04,PH10,PH102,PH11,PH12,DATA
     8293                            PLP230X ;
     8294   03 0196B    ED80155F              WD,8     *DIOAD1
     8295   03 0196C    6AF00FDF              BAL,15   CC10
     8296   03 0196D    328001C6 A            LW,8     WDG2
     8297                            PLP230Y ;
     8298   03 0196E    ED801560              WD,8     *DIOAD2
     8299   03 0196F    6AF00FDF              BAL,15   CC10
     8300   03 01970    680010C1              B        XIT
     8301                            *
     8302                            *
     8303   03 01971    22802000 A   CLP230   PHPROC   PH00
     8304   03 01972    6AF0114C              BAL,15   PHCOMP
     8305   03 01973    22800188 A            MEPROC   MAR,MDR,MPE
     8306   03 01974    6AF011A3              BAL,15   MECOMP
     8307   03 01975    6AF01110              BAL,15   IOCOMP
     8308   03 01976    0000E000 A            DATA     X'0000E000'
     8309   03 01977    0000E000 A            DATA     X'0000E000'
     8310   03 01978    680010C1              B        XIT
     8311   03 01979    6AF01110     CLP230A  BAL,15   IOCOMP
     8312   03 0197A    0000E000 A            DATA     X'0000E000'
     8313   03 0197B    00004000 A            DATA     X'00004000'
     8314   03 0197C    22800040 A            LI,8     X'40'
     8315   03 0197D    6AF01229              BAL,15   SUBCHAN
     8316   03 0197E    680010C1              B        XIT
     8317                            *
     8318                            *
     8319                            *
     8320   03 0197F    22800188 A   CLP230C  MEPROC   MAR,MDR,MPE
     8321   03 01980    6AF011A3              BAL,15   MECOMP
     8322   03 01981    6AF01110              BAL,15   IOCOMP
     8323   03 01982    0000E000 A            DATA     X'0000E000'
     8324   03 01983    00000000 A            DATA     0
     8325   03 01984    22800000 A            LI,8     0
     8326   03 01985    6AF01229              BAL,15   SUBCHAN
     8327   03 01986    680010C1              B        XIT
     8328                            *
     8329                            *
     8330                            *
     8331   03 01987    22800800 A   PLP230D  LI,8     X'800'
     8332   03 01988    6D801200 A            WD,8     X'1200'
     8333   03 01989    680010C1              B        XIT
     8334                            *
     8335         03 008DB 2         MSP230   EQU      BA(MSGP2300)
     8336         03 008DB 2         MSP230A  EQU      BA(MSGP2300)
     8337         03 008DB 2         MSP230C  EQU      BA(MSGP2300)
     8338                                     PAGE
     8339                            *
     8340                            *                 PFI (MPE =1) TEST
     8341                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     8342         00000036                    TESTNO
     8343   03 0198A    3280305B     P240     WD2      MPE
     8344   03 0198B    6800198E              B        P240X
     8345                            *
     8346                            *                 PFI (PE:D =1) TEST
     8347                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     8348         00000037                    TESTNO
     8349   03 0198C    32803053     P250X    WD2      PE:D
     8350   03 0198D    6800198E              B        P240X
     8351                            *
     8352                            *
     8353                            *
     8354   03 0198E    358001C6 A   P240X    STW,8    WDG2
     8355   03 0198F    22600056 A            LI,6     X'56'
     8356   03 01990    3270305C              LW,7     L(X'40000000'+EXPTRAP)
     8357   03 01991    156015CA              STD,6    TRAPEXP
     8358   03 01992    6AF00E98              BAL,15   T:EXECRS
     8359   03 01993    00001969              DATA     PLP230
     8360   03 01994    4D000000 A            TIO,0    0
     8361   03 01995    0000185F              DATA     ALP0Y0
     8362   03 01996    0000237D              DATA     MSP240
     8363   03 01997    0000199A              DATA     ALP240
     8364   03 01998    6800198F              B        P240X+1
     8365   03 01999    68000CD1              B        RIOPEXIT
     8366                            *
     8367   03 0199A    33001588     ALP240   MTW,0    E:ERROR
     8368   03 0199B    693010C1              BNEZ     XIT
     8369   03 0199C    22800001 A            LI,8     1
     8370   03 0199D    ED801561              WD,8     *DIOAD3
     8371   03 0199E    6AF00FDB              BAL,15   CC00
     8372   03 0199F    680010C1              B        XIT
     8373                            *
     8374                            *
     8375         03 008DF 1         MSP240   EQU      BA(MSGP2400)
     8376                                     PAGE
     8377                            *
     8378                            *                 ADDRESS AVAILABLE MEMORY TEST
     8379                            *
     8380         00000038                    TESTNO
     8381   03 019A0    6AF011F4     P250     BAL,15   SIZEMEM           GO FIND SIZE OF MEMORY
     8382   03 019A1    351015B6              STW,1    NOIOCD
     8383   03 019A2    22000008 A            LI,0     8                 LOAD INITIAL DW ADDR
     8384   03 019A3    680019A5              B        P2502
     8385                            P2501 ;
     8386   03 019A4    320001D0 A            LW,0     IODWADR           FETCH CURRENT DA(IOCD)
     8387   03 019A5    6AF00E98     P2502    BAL,15   T:EXECRS
     8388   03 019A6    000019B1              DATA     PLP250
     8389   03 019A7    4C000000 A            SIO,0    0
     8390   03 019A8    00001822              DATA     ALP0X0
     8391   03 019A9    0000238C              DATA     MSP250
     8392   03 019AA    000019B6              DATA     CLP250
     8393   03 019AB    680019A4              B        P2501
     8394   03 019AC    320001D0 A            LW,0     IODWADR           FETCH CURRENT DA(IOCD)
     8395   03 019AD    25000001 A            SLS,0    1                 SET UP TO TEST NEXT ADDR LINE
     8396   03 019AE    310015D0              CW,0     DASIZE            IS UPPER LIMIT REACHED
     8397   03 019AF    691019A5              BL       P2502             IF NO LOOP
     8398   03 019B0    68000CD1              B        RIOPEXIT          OTHERWISE EXIT
     8399                            *
     8400                            *
     8401                            *
     8402   03 019B1    6AF011C9     PLP250   BAL,15   WDGP0
     8403   03 019B2    228006B8 A            WD1      PH03,PH04,PH10,PH11,PH12,DATA
     8404   03 019B3    ED80155F              WD,8     *DIOAD1
     8405   03 019B4    6AF00FDF              BAL,15   CC10
     8406   03 019B5    680010C1              B        XIT
     8407                            *
     8408                            *
     8409   03 019B6    22800041 A   CLP250   PHPROC   PH11,BUSY
     8410   03 019B7    6AF0114C              BAL,15   PHCOMP
     8411   03 019B8    22800180 A            MEPROC   MAR,MDR
     8412   03 019B9    6AF011A3              BAL,15   MECOMP
     8413   03 019BA    328001D0 A            LW,8     IODWADR
     8414   03 019BB    25800001 A            SLS,8    1
     8415   03 019BC    6AF011AD              BAL,15   LREG
     8416   03 019BD    328001D0 A            LW,8     IODWADR
     8417   03 019BE    25800001 A            SLS,8    1
     8418   03 019BF    6D000047 A            WD,0     X'47'                                             *A04
     8419   03 019C0    B2800008 A            LW,8     *8
     8420   03 019C1    6D000046 A            WD,0     X'46'                                             *A04
     8421   03 019C2    6AF01107              BAL,15   MREG
     8422   03 019C3    680010C1              B        XIT
     8423                            *
     8424         03 008E3           MSP250   EQU      BA(MSGP2500)
     8425                                     PAGE
     8426                            *
     8427                            *                 ADDRESS AVAILABLE MEMORY TEST
     8428         00000039                    TESTNO
     8429   03 019C4    22001855     P260     LI,0     DA(BUF1LO+18)     SET UP FAKE DW ADR
     8430   03 019C5    351015B6              STW,1    NOIOCD
     8431   03 019C6    4B00305D              AND,0   =X'FFFFFFF8'       ZERO LOWER BITS
     8432   03 019C7    350001D0 A            STW,0    IODWADR           SAVE DW ADDR
     8433   03 019C8    20000008 A            AI,0     8                 CREATE UPPER LIMIT
     8434   03 019C9    350001C7 A            STW,0    PSAVE1            SAVE LIMIT
     8435   03 019CA    680019D2              B        P2601
     8436   03 019CB    6AF00E98     P2602    BAL,15   T:EXECRS
     8437   03 019CC    000019B1              DATA     PLP250
     8438   03 019CD    4C000000 A            SIO,0    0
     8439   03 019CE    00001822              DATA     ALP0X0
     8440   03 019CF    0000238C              DATA     MSP250
     8441   03 019D0    000019B6              DATA     CLP250
     8442   03 019D1    33F001D0 A            MTW,-1   IODWADR
     8443   03 019D2    320001D0 A   P2601    LW,0     IODWADR           LOAD DW ADDR
     8444   03 019D3    20000001 A            AI,0     1                 UPDATE ADDR
     8445   03 019D4    310001C7 A            CW,0     PSAVE1
     8446   03 019D5    691019CB              BL       P2602             LOOP
     8447   03 019D6    68000CD1              B        RIOPEXIT
     8448                                     PAGE
     8449                            *
     8450                            *                 ADDRESS NOT AVAILABLE MEMORY TEST
     8451         00000040                    TESTNO
     8452   03 019D7    6AF011F4     P270     BAL,15   SIZEMEM           GO FIND SIZE OF MEMORY
     8453   03 019D8    351015B6              STW,1    NOIOCD
     8454   03 019D9    320015D0              LW,0     DASIZE
     8455   03 019DA    680019DC              B        P2702
     8456                            P2701 ;
     8457   03 019DB    320001D0 A            LW,0     IODWADR           FETCH CURRENT DA(IOCD)
     8458                            P2702 ;
     8459   03 019DC    31000195 A            CW,0     CDW
     8460   03 019DD    68100CD1              BGE      RIOPEXIT
     8461   03 019DE    6AF00E98              BAL,15   T:EXECRS
     8462   03 019DF    000019B1              DATA     PLP250
     8463   03 019E0    4C000000 A            SIO,0    0
     8464   03 019E1    00001822              DATA     ALP0X0
     8465   03 019E2    000023A9              DATA     MSP270
     8466   03 019E3    000019E8              DATA     CLP270
     8467   03 019E4    680019DB              B        P2701
     8468   03 019E5    320001D0 A            LW,0     IODWADR           FETCH CURRENT DA(IOCD)
     8469   03 019E6    25000001 A            SLS,0    1                 SET UP TO TEST NEXT ADDR LINE
     8470   03 019E7    680019DC              B        P2702
     8471                            *
     8472                            *
     8473                            *
     8474   03 019E8    22800041 A   CLP270   PHPROC   PH11,BUSY
     8475   03 019E9    6AF0114C              BAL,15   PHCOMP
     8476   03 019EA    228001C0 A            MEPROC   MAR,MDR,MAE
     8477   03 019EB    6AF011A3              BAL,15   MECOMP
     8478   03 019EC    328001D0 A            LW,8     IODWADR
     8479   03 019ED    25800001 A            SLS,8    1
     8480   03 019EE    6AF011AD              BAL,15   LREG
     8481   03 019EF    680010C1              B        XIT
     8482                            *
     8483                            *
     8484         03 008EA 1         MSP270   EQU      BA(MSGP2700)
     8485                                     PAGE
     8486                            *
     8487                            *                 ORDER DECODE TEST
     8488         00000041                    TESTNO
     8489   03 019F0    22800000 A   P280     LI,8     0                 SET UP
     8490   03 019F1    75801A0C              STB,8    P280IOCD              ORDER
     8491   03 019F2    6AF01A0E     P2802    BAL,15   SETORDER          SETUP EXPECTED ORDER
     8492   03 019F3    2280000C A            LI,8     12                SET UP
     8493   03 019F4    358006C9              STW,8    VDEC2B                PHASE
     8494   03 019F5    22000D06     P2801    LI,0     DA(P280IOCD)
     8495   03 019F6    6AF00E98              BAL,15   T:EXECRS
     8496   03 019F7    00001A00              DATA     PLP280
     8497   03 019F8    4C000000 A            SIO,0    0
     8498   03 019F9    00001822              DATA     ALP0X0
     8499   03 019FA    000023BA              DATA     MSP280
     8500   03 019FB    00001A05              DATA     CLP280
     8501   03 019FC    680019F5              B        P2801
     8502   03 019FD    73101A0C              MTB,1    P280IOCD          UPDATE ORDER
     8503   03 019FE    68300CD1              BEZ      RIOPEXIT
     8504   03 019FF    680019F2              B        P2802
     8505                            *
     8506                            *
     8507   03 01A00    6AF011C9     PLP280   BAL,15   WDGP0
     8508   03 01A01    22800678 A            WD1      PH03,PH04,PH102,PH11,PH12,DATA
     8509   03 01A02    ED80155F              WD,8     *DIOAD1
     8510   03 01A03    6AF00FDF              BAL,15   CC10
     8511   03 01A04    680010C1              B        XIT
     8512                            *
     8513                            *
     8514                            *
     8515   03 01A05    22800021 A   CLP280   PHPROC   PH12,BUSY
     8516   03 01A06    6AF0114C              BAL,15   PHCOMP
     8517   03 01A07    22801A0D              LI,8     P280IOCD+1
     8518   03 01A08    6AF011AD              BAL,15   LREG
     8519   03 01A09    328001C7 A            LW,8     PSAVE1
     8520   03 01A0A    6AF01217              BAL,15   ORDEREG
     8521   03 01A0B    680010C1              B        XIT
     8522         03 008EE 2         MSP280   EQU      BA(MSGP2800)
     8523                                     BOUND    8
     8524   03 01A0C    0000C260     P280IOCD GEN,8,24 X'00',BA(BUF1LO)
     8525   03 01A0D    00000001 A            GEN,8,24 X'00',1
     8526   03 01A0E    72801A0C     SETORDER LB,8     P280IOCD          LOAD ORDER
     8527   03 01A0F    22A00000 A            LI,10    0                 LOAD EXPECTED DECODED ORDER
     8528   03 01A10    21800020 A            CI,8     X'20'
     8529   03 01A11    68101A2E              BGE      ORDEREND
     8530   03 01A12    21800001 A            CI,8     1                 TEST BIT 7
     8531   03 01A13    68401A15              BCR,4    %+2
     8532   03 01A14    20A00001 A            AI,10    X'01'
     8533   03 01A15    21800010 A            CI,8     X'10'             TEST BIT 3
     8534   03 01A16    68401A18              BCR,4    %+2
     8535   03 01A17    20A00002 A            AI,10    X'02'
     8536   03 01A18    21800001 A            CI,8     1                 TEST FOR WRITE
     8537   03 01A19    69301A1B              BNE      %+2
     8538   03 01A1A    20A00040 A            AI,10    X'40'
     8539   03 01A1B    21800002 A            CI,8     2                 TEST FOR READ
     8540   03 01A1C    69301A1E              BNE      %+2
     8541   03 01A1D    20A00080 A            AI,10    X'80'
     8542   03 01A1E    21800003 A            CI,8     3                 TEST FOR SEEK
     8543   03 01A1F    69301A21              BNE      %+2
     8544   03 01A20    20A00020 A            AI,10    X'20'
     8545   03 01A21    21800004 A            CI,8     4                 TEST FOR SENSE
     8546   03 01A22    69301A24              BNE      %+2
     8547   03 01A23    20A00010 A            AI,10    X'10'
     8548   03 01A24    21800005 A            CI,8     5                 TEST FOR CHECKWRITE
     8549   03 01A25    69301A27              BNE      %+2
     8550   03 01A26    20A00008 A            AI,10    X'08'
     8551   03 01A27    21800012 A            CI,8     X'12'             TEST FOR READ
     8552   03 01A28    69301A2A              BNE      %+2
     8553   03 01A29    20A00080 A            AI,10    X'80'
     8554   03 01A2A    21800008 A            CI,8     X'08'             TEST FOR TRANSFER IN CHANNEL
     8555   03 01A2B    69301A2E              BNE      %+3
     8556   03 01A2C    73101A0C              MTB,1    P280IOCD
     8557   03 01A2D    68001A0E              B        SETORDER
     8558                            *
     8559                            *
     8560                            ORDEREND ;
     8561   03 01A2E    35A001C7 A            STW,10   PSAVE1            SAVE EXP ORDER
     8562   03 01A2F    E800000F A            B        *15
     8563                                     PAGE
     8564                            *
     8565                            *                 TRANSFER IN CHANNEL DECODE TEST
     8566         00000042                    TESTNO
     8567   03 01A30    22000AEF     P290     LI,0     DA(P430IOCD)
     8568   03 01A31    6AF00E98              BAL,15   T:EXECRS
     8569   03 01A32    00001A00              DATA     PLP280
     8570   03 01A33    4C000000 A            SIO,0    0
     8571   03 01A34    00001822              DATA     ALP0X0
     8572   03 01A35    000023CE              DATA     MSP290
     8573   03 01A36    00001A39              DATA     CLP290
     8574   03 01A37    68001A30              B        P290
     8575   03 01A38    68000CD1              B        RIOPEXIT
     8576                            *
     8577                            *
     8578                            *
     8579   03 01A39    22800081 A   CLP290   PHPROC   PH10,BUSY
     8580   03 01A3A    6AF0114C              BAL,15   PHCOMP
     8581   03 01A3B    680010C1              B        XIT
     8582                            *
     8583                            *
     8584                            *
     8585         03 008F3 2         MSP290   EQU      BA(MSGP2900)
     8586                            *
     8587                            *
     8588                                     PAGE
     8589                            *
     8590                            *                 SIO FREE RUN TEST
     8591         00000043                    TESTNO
     8592   03 01A3C    22000AED     P300     LI,0     DA(P300IOCD)
     8593   03 01A3D    6AF00E98              BAL,15   T:EXECRS
     8594   03 01A3E    00001A45              DATA     PLP300
     8595   03 01A3F    4C000000 A            SIO,0    0
     8596   03 01A40    00001A4A              DATA     ALP300
     8597   03 01A41    000022CF              DATA     MSP0Y0
     8598   03 01A42    00001A4D              DATA     CLP300
     8599   03 01A43    68001A3C              B        P300
     8600   03 01A44    68000CD1              B        RIOPEXIT
     8601   03 01A45    6AF011C9     PLP300   BAL,15   WDGP0
     8602   03 01A46    2280004C A   PLP301   WD1      PH102,DATA,TS
     8603   03 01A47    ED80155F              WD,8     *DIOAD1
     8604   03 01A48    6AF00FE1              BAL,15   CC11
     8605   03 01A49    680010C1              B        XIT
     8606                            *
     8607                            *
     8608   03 01A4A    6AF00EF1     ALP300   BAL,15   COLLECT
     8609   03 01A4B    68000FE1              B        CC11
     8610   03 01A4C    680010C1              B        XIT
     8611                            *
     8612                            *
     8613                            *
     8614   03 01A4D    22802000 A   CLP300   PHPROC   PH00
     8615   03 01A4E    6AF0114C              BAL,15   PHCOMP
     8616   03 01A4F    22800000 A            LI,8     0
     8617   03 01A50    6AF01217              BAL,15   ORDEREG
     8618   03 01A51    6AF01110              BAL,15   IOCOMP
     8619   03 01A52    0000E000 A            DATA     X'0000E000'
     8620   03 01A53    00000000 A            DATA     0
     8621   03 01A54    680010C1              B        XIT
     8622                            *
     8623                                     PAGE
     8624                            *
     8625                            *                 WRITE CELL X'21' CONTROL TEST
     8626         00000044                    TESTNO
     8627   03 01A55    22800015 A   P320     LI,8     21
     8628   03 01A56    358006C9              STW,8    VDEC2B
     8629   03 01A57    6AF00E98              BAL,15   T:EXECRS
     8630   03 01A58    00001A5F              DATA     PLP320
     8631   03 01A59    4DD00000 A            TIO,13   0
     8632   03 01A5A    0000185F              DATA     ALP0Y0
     8633   03 01A5B    000023DD              DATA     MSP320
     8634   03 01A5C    00001A64              DATA     CLP320
     8635   03 01A5D    68001A55              B        P320
     8636   03 01A5E    68000CD1              B        RIOPEXIT
     8637                            *
     8638                            *
     8639                            *
     8640   03 01A5F    6AF011C9     PLP320   BAL,15   WDGP0
     8641   03 01A60    22800480 A            WD1      PH03,PH10
     8642   03 01A61    ED80155F              WD,8     *DIOAD1
     8643   03 01A62    6AF00FDF              BAL,15   CC10
     8644   03 01A63    680010C1              B        XIT
     8645                            *
     8646                            *
     8647   03 01A64    22802000 A   CLP320   PHPROC   PH00
     8648   03 01A65    6AF0114C              BAL,15   PHCOMP
     8649   03 01A66    22800180 A            MEPROC   MAR,MDR
     8650   03 01A67    6AF011A3              BAL,15   MECOMP
     8651   03 01A68    22800021 A            LI,8     X'21'
     8652   03 01A69    6AF011AD              BAL,15   LREG
     8653   03 01A6A    680010C1              B        XIT
     8654                            *
     8655                            *
     8656         03 008F7 1         MSP320   EQU      BA(MSGP3200)
     8657                                     PAGE
     8658                            *
     8659                            *                 WRITE CELL X'20' CONTROL TEST 1
     8660         00000045                    TESTNO
     8661   03 01A6B    22800014 A   P330     LI,8     20
     8662   03 01A6C    358006C9              STW,8    VDEC2B
     8663   03 01A6D    6AF011D4              BAL,15   T:WDT
     8664   03 01A6E    6AF00E98              BAL,15   T:EXECRS
     8665   03 01A6F    00001A5F              DATA     PLP320
     8666   03 01A70    4DC00000 A            TIO,12   0
     8667   03 01A71    00001822              DATA     ALP0X0
     8668   03 01A72    000023DD              DATA     MSP320
     8669   03 01A73    00001A76              DATA     CLP330
     8670   03 01A74    68001A6B              B        P330
     8671   03 01A75    68000CD1              B        RIOPEXIT
     8672                            *
     8673                            *
     8674   03 01A76    22800202 A   CLP330   PHPROC   PH04,IN
     8675   03 01A77    6AF0114C              BAL,15   PHCOMP
     8676   03 01A78    22800180 A            MEPROC   MAR,MDR
     8677   03 01A79    6AF011A3              BAL,15   MECOMP
     8678   03 01A7A    22800020 A            LI,8     X'20'
     8679   03 01A7B    6AF011AD              BAL,15   LREG
     8680   03 01A7C    680010C1              B        XIT
     8681                                     PAGE
     8682                            *
     8683                            *                 WRITE CELL X'20' CONTROL TEST 2
     8684         00000046                    TESTNO
     8685   03 01A7D    22800014 A   P340     LI,8     20
     8686   03 01A7E    358006C9              STW,8    VDEC2B
     8687   03 01A7F    6AF00E98              BAL,15   T:EXECRS
     8688   03 01A80    00001A45              DATA     PLP300
     8689   03 01A81    4DC00000 A            TIO,12   0
     8690   03 01A82    00001A4A              DATA     ALP300
     8691   03 01A83    000023DD              DATA     MSP320
     8692   03 01A84    00001A64              DATA     CLP320
     8693   03 01A85    68001A7D              B        P340
     8694   03 01A86    68000CD1              B        RIOPEXIT
     8695                                     PAGE
     8696                            *
     8697                            *                 AIO INSTRUCTION CONTROL TEST
     8698         00000047                    TESTNO
     8699   03 01A87    6AF011D4     P3401    BAL,15   T:WDT
     8700   03 01A88    32F002BF A            LW,15    :DEVADDR
     8701   03 01A89    4BF03051              AND,15   =X'FFFFFFFC'
     8702   03 01A8A    35F002BF A            STW,15   :DEVADDR
     8703   03 01A8B    6AF00E98              BAL,15   T:EXECRS
     8704   03 01A8C    00001A93              DATA     PLP3401
     8705   03 01A8D    6E000000 A            AIO,0    0
     8706   03 01A8E    00001822              DATA     ALP0X0
     8707   03 01A8F    000023EB              DATA     MSP3401
     8708   03 01A90    00001A9B              DATA     CLP3401
     8709   03 01A91    68001A87              B        P3401
     8710   03 01A92    68000CD1              B        RIOPEXIT
     8711   03 01A93    6AF011C9     PLP3401  BAL,15   WDGP0
     8712   03 01A94    228007A0 A            WD1      PH03,PH04,PH05,PH10,PH11
     8713   03 01A95    ED80155F              WD,8     *DIOAD1
     8714   03 01A96    6AF00FDF              BAL,15   CC10
     8715   03 01A97    3280305A              WD2      ZBCI
     8716   03 01A98    ED801560              WD,8     *DIOAD2
     8717   03 01A99    6AF00FDF              BAL,15   CC10
     8718   03 01A9A    680010C1              B        XIT
     8719                            *
     8720   03 01A9B    22800102 A   CLP3401  PHPROC   PH05,IN
     8721   03 01A9C    6AF0114C              BAL,15   PHCOMP
     8722   03 01A9D    22800006 A            LI,8     6
     8723   03 01A9E    6AF010E8              BAL,15   FNCOMP
     8724   03 01A9F    680010C1              B        XIT
     8725                            *
     8726         03 008FA 3         MSP3401  EQU      BA(MSGP3401)
     8727                                     PAGE
     8728                            *
     8729                            *                 AIO INSTRUCTION (FREE RUN)TEST
     8730         00000048                    TESTNO
     8731   03 01AA0    3280305E     P3402    LW,8     =X'00004000'
     8732   03 01AA1    3580186A              STW,8    CLP0Y02
     8733   03 01AA2    32F002BF A            LW,15    :DEVADDR
     8734   03 01AA3    4BF03051              AND,15   =X'FFFFFFFC'
     8735   03 01AA4    35F002BF A            STW,15   :DEVADDR
     8736   03 01AA5    6AF00E98              BAL,15   T:EXECRS
     8737   03 01AA6    00001AAD              DATA     PLP3402
     8738   03 01AA7    6ED00000 A            AIO,13   0
     8739   03 01AA8    0000185F              DATA     ALP0Y0
     8740   03 01AA9    000022CF              DATA     MSP0Y0
     8741   03 01AAA    00001862              DATA     CLP0Y0
     8742   03 01AAB    68001AA0              B        P3402
     8743   03 01AAC    68000CD1              B        RIOPEXIT
     8744                            *
     8745                            *
     8746   03 01AAD    6AF011C9     PLP3402  BAL,15   WDGP0
     8747   03 01AAE    228000E0 A            WD1      PH10,PH102,PH11
     8748   03 01AAF    358001C4 A            STW,8    PWD1
     8749   03 01AB0    ED80155F              WD,8     *DIOAD1
     8750   03 01AB1    6AF00FDF              BAL,15   CC10
     8751   03 01AB2    3280305A              WD2      ZBCI
     8752   03 01AB3    ED801560              WD,8     *DIOAD2
     8753   03 01AB4    6AF00FDF              BAL,15   CC10
     8754   03 01AB5    680010C1              B        XIT
     8755                                     PAGE
     8756                            *
     8757                            *                 PARITY ERROR DURING WRITTING OF CELL X'20' TEST
     8758         00000049                    TESTNO
     8759   03 01AB6    22800014 A   P3403    LI,8     20
     8760   03 01AB7    358006C9              STW,8    VDEC2B
     8761   03 01AB8    32F002BF A            LW,15    :DEVADDR          REMOVE
     8762   03 01AB9    4BF03051              AND,15   =X'FFFFFFFC'          DEVICE
     8763   03 01ABA    35F002BF A            STW,15   :DEVADDR              ADDRESS
     8764   03 01ABB    6AF00E98              BAL,15   T:EXECRS
     8765   03 01ABC    00001AC3              DATA     PLP3403
     8766   03 01ABD    6ED00000 A            AIO,13   0
     8767   03 01ABE    00000000 A            DATA     0
     8768   03 01ABF    000023F9              DATA     MSP3403
     8769   03 01AC0    00001AC8              DATA     CLP3403
     8770   03 01AC1    68001AB6              B        P3403
     8771   03 01AC2    68000CD1              B        RIOPEXIT
     8772                            *
     8773   03 01AC3    6AF011C9     PLP3403  BAL,15   WDGP0
     8774   03 01AC4    3280305F              WD2      ZBCI,PE:D
     8775   03 01AC5    ED801560              WD,8     *DIOAD2
     8776   03 01AC6    6AF00FDB              BAL,15   CC00
     8777   03 01AC7    680010C1              B        XIT
     8778                            *
     8779                            *
     8780                            CLP3403 ;
     8781   03 01AC8    6AF01110              BAL,15   IOCOMP
     8782   03 01AC9    0000E000 A            DATA     X'0000E000'
     8783   03 01ACA    00006000 A            DATA     X'00006000'
     8784   03 01ACB    680010C1              B        XIT
     8785                            *
     8786                            *
     8787         03 008FE 1         MSP3403  EQU      BA(MSGP3403)
     8788                                     PAGE
     8789                            *
     8790                            *                 SIO NORMAL STATUS RETURN TEST
     8791         00000050                    TESTNO
     8792   03 01ACC    22000AED     P350     LI,0     DA(P300IOCD)
     8793   03 01ACD    22600000 A   P3501    LI,6     0
     8794   03 01ACE    68001AE4              B        PSTAT
     8795                            *
     8796                            *                 TIO NORMAL STATUS RETURN TEST
     8797         00000051                    TESTNO
     8798   03 01ACF    22600001 A   P360     LI,6     1
     8799   03 01AD0    68001AE4              B        PSTAT
     8800                            *
     8801                            *                 HIO NORMAL STATUS RETURN TEST
     8802         00000052                    TESTNO
     8803   03 01AD1    22600003 A   P370     LI,6     3
     8804   03 01AD2    68001AE4              B        PSTAT
     8805                            *
     8806                            *                 TDV NORMAL STATUS RETURN TEST
     8807         00000053                    TESTNO
     8808   03 01AD3    22600002 A   P380     LI,6     2
     8809   03 01AD4    32F002BF A            LW,15    :DEVADDR
     8810   03 01AD5    4BF03051              AND,15   =X'FFFFFFFC'
     8811   03 01AD6    35F002BF A            STW,15   :DEVADDR
     8812   03 01AD7    3280305E              LW,8     =X'00004000'
     8813   03 01AD8    68001AE5              B        PSTAT1
     8814                            *
     8815                            *                 AIO NORMAL STATUS RETURN TEST
     8816         00000054                    TESTNO
     8817   03 01AD9    22600006 A   P3801    LI,6     6
     8818   03 01ADA    32F002BF A            LW,15    :DEVADDR          REMOVE
     8819   03 01ADB    4BF03051              AND,15   =X'FFFFFFFC'          DEVICE
     8820   03 01ADC    35F002BF A            STW,15   :DEVADDR              ADDRESS
     8821   03 01ADD    32803060              LW,8     =X'00204000'
     8822   03 01ADE    3290305A              LW,9     =X'02000000'      SET ZBCI
     8823   03 01ADF    35801AFF              STW,8    PSTAT3
     8824   03 01AE0    359001C5 A            STW,9    PWD2
     8825   03 01AE1    328C1144              LW,8     INSTRTAB,6
     8826   03 01AE2    30803061              AW,8     =X'00D00000'
     8827   03 01AE3    68001AEA              B        PSTAT7
     8828                            PSTAT ;
     8829   03 01AE4    32803062              LW,8     =X'10000000'
     8830   03 01AE5    22900000 A   PSTAT1   LI,9     0
     8831                            *
     8832   03 01AE6    35801AFF     PSTAT2   STW,8    PSTAT3
     8833   03 01AE7    359001C5 A            STW,9    PWD2
     8834   03 01AE8    328C1144              LW,8     INSTRTAB,6
     8835   03 01AE9    30803052              AW,8     =X'00C00000'
     8836                            PSTAT7 ;
     8837   03 01AEA    35801AEF              STW,8    PSTAT4
     8838   03 01AEB    350001CB A            STW,0    PSAVE5
     8839   03 01AEC    320001CB A   PSTAT5   LW,0     PSAVE5
     8840   03 01AED    6AF00E98              BAL,15   T:EXECRS
     8841   03 01AEE    00001AF5              DATA     PLPSTATZ
     8842   03 01AEF    00000000 A   PSTAT4   DATA     0
     8843   03 01AF0    00000000 A            DATA     0
     8844   03 01AF1    00002412     PSTAT6   DATA     MSPSTAT
     8845   03 01AF2    00001AFD              DATA     CLPSTAT
     8846   03 01AF3    68001AEC              B        PSTAT5
     8847   03 01AF4    68000CD1              B        RIOPEXIT
     8848                            *
     8849                            *
     8850   03 01AF5    6AF011C9     PLPSTATZ BAL,15   WDGP0
     8851   03 01AF6    22800058 A            WD1      PH102,PH12,DATA
     8852   03 01AF7    ED80155F              WD,8     *DIOAD1
     8853   03 01AF8    6AF00FDF              BAL,15   CC10
     8854   03 01AF9    328001C5 A            LW,8     PWD2
     8855   03 01AFA    ED801560              WD,8     *DIOAD2
     8856   03 01AFB    6AF00FDF              BAL,15   CC10
     8857   03 01AFC    680010C1              B        XIT
     8858                            *
     8859                            *
     8860   03 01AFD    6AF01110     CLPSTAT  BAL,15   IOCOMP
     8861   03 01AFE    FFFFE000 A            DATA     X'FFFFE000'
     8862   03 01AFF    00000000 A   PSTAT3   DATA     0
     8863   03 01B00    680010C1              B        XIT
     8864                            *
     8865                            *
     8866         03 00904 2         MSPSTAT  EQU      BA(MSGSTAT0)
     8867                                     PAGE
     8868                            *
     8869                            *                 SIO SUCCESSFUL TEST
     8870         00000055                    TESTNO
     8871   03 01B01    22000AED     P390     LI,0     DA(P300IOCD)
     8872   03 01B02    6AF00E98              BAL,15   T:EXECRS
     8873   03 01B03    00001B11              DATA     PLP3900
     8874   03 01B04    4CC00000 A            SIO,12   0
     8875   03 01B05    00000000 A            DATA     0
     8876   03 01B06    00002435              DATA     MSP390
     8877   03 01B07    00001B16              DATA     CLP3900
     8878   03 01B08    68001B01              B        P390
     8879   03 01B09    6AF00E9D              BAL,15   T:EXEC
     8880   03 01B0A    00000000 A            DATA     0
     8881   03 01B0B    4DC00000 A            TIO,12   0
     8882   03 01B0C    00000000 A            DATA     0
     8883   03 01B0D    01002435              GEN,8,24 1,MSP390
     8884   03 01B0E    00001B1A              DATA     CLP390
     8885   03 01B0F    68001B01              B        P390
     8886   03 01B10    68000CD1              B        RIOPEXIT
     8887                            *
     8888                            *
     8889   03 01B11    6AF011C9     PLP3900  BAL,15   WDGP0
     8890   03 01B12    2280004C A            WD1      PH102,DATA,TS
     8891   03 01B13    ED80155F              WD,8     *DIOAD1
     8892   03 01B14    6AF00FE1              BAL,15   CC11
     8893   03 01B15    680010C1              B        XIT
     8894                            *
     8895                            *
     8896   03 01B16    6AF01110     CLP3900  BAL,15   IOCOMP
     8897   03 01B17    FFFFE000 A            DATA     X'FFFFE000'
     8898   03 01B18    10000000 A            DATA     X'10000000'
     8899   03 01B19    680010C1              B        XIT
     8900                            *
     8901                            *
     8902                            *
     8903   03 01B1A    6AF01110     CLP390   BAL,15   IOCOMP
     8904   03 01B1B    FFFFE000 A            DATA     X'FFFFE000'
     8905   03 01B1C    18000000 A            DATA     X'18000000'       ***
     8906   03 01B1D    680010C1              B        XIT
     8907                            *
     8908                            *
     8909         03 0090D 1         MSP390   EQU      BA(MSGP3900)
     8910                                     PAGE
     8911                            *
     8912                            *                 SIO NOT ACCEPTED OR NOT POSSIBLE.TEST
     8913         00000056                    TESTNO
     8914   03 01B1E    3280305A     P3901    WD2      ZBCI
     8915   03 01B1F    358001C5 A            STW,8    PWD2
     8916   03 01B20    22000AF1              LI,0     DA(P460IOCD)
     8917   03 01B21    6AF00E98              BAL,15   T:EXECRS
     8918   03 01B22    00001AF5              DATA     PLPSTATZ
     8919   03 01B23    4CC00000 A            SIO,12   0
     8920   03 01B24    0000185F              DATA     ALP0Y0
     8921   03 01B25    0000244B              DATA     MSP3901
     8922   03 01B26    00001B34              DATA     CLP3901
     8923   03 01B27    68001B1E              B        P3901
     8924   03 01B28    68000CD1              B        RIOPEXIT
     8925                            *
     8926                            *                 I/O ADDRESS RECOGNIZED BUT ACCEPTABLE SIO IS NOT
     8927         00000057                    TESTNO                     CURRENT POSSIBLE
     8928   03 01B29    3280305A     P3902    WD2      ZBCI
     8929   03 01B2A    358001C5 A            STW,8    PWD2
     8930   03 01B2B    22000AF1              LI,0     DA(P460IOCD)
     8931   03 01B2C    6AF00E98              BAL,15   T:EXECRS
     8932   03 01B2D    00001AF5              DATA     PLPSTATZ
     8933   03 01B2E    4DC00000 A            TIO,12   0
     8934   03 01B2F    0000185F              DATA     ALP0Y0
     8935   03 01B30    0000244B              DATA     MSP3901
     8936   03 01B31    00001B3A              DATA     CLP3902
     8937   03 01B32    68001B29              B        P3902
     8938   03 01B33    68000CD1              B        RIOPEXIT
     8939                            *
     8940                            *
     8941   03 01B34    22802000 A   CLP3901  PHPROC   PH00
     8942   03 01B35    6AF0114C              BAL,15   PHCOMP
     8943   03 01B36    6AF01110              BAL,15   IOCOMP
     8944   03 01B37    0000E000 A            DATA     X'0000E000'
     8945   03 01B38    00008000 A            DATA     X'00008000'
     8946   03 01B39    680010C1              B        XIT
     8947   03 01B3A    22802000 A   CLP3902  PHPROC   PH00
     8948   03 01B3B    6AF0114C              BAL,15   PHCOMP
     8949   03 01B3C    6AF01110              BAL,15   IOCOMP
     8950   03 01B3D    FFFFE000 A            DATA     X'FFFFE000'
     8951   03 01B3E    90004000 A            DATA     X'90004000'
     8952   03 01B3F    680010C1              B        XIT
     8953                            *
     8954                            *
     8955         03 00912 3         MSP3901  EQU      BA(MSGP3902)
     8956                                     PAGE
     8957                            *
     8958                            *                 FAULT STATUS RETURN TEST
     8959                            *                 THIS TEST IS SKIPPED, IF COMPUTER IS NOT A SIGMA 9
     8960         00000058                    TESTNO
     8961   03 01B40    6AF00E98     P400     BAL,15   T:EXECRS
     8962   03 01B41    00001E9F              DATA     PLFYYY1
     8963   03 01B42    4DC00000 A            TIO,12   0
     8964   03 01B43    00000000 A            DATA     0
     8965   03 01B44    00002468              DATA     MSP400
     8966   03 01B45    00001B64              DATA     CLP400
     8967   03 01B46    68001B40              B        P400
     8968   03 01B47    3280305B              WD2      MPE
     8969   03 01B48    358001C6 A            STW,8    WDG2
     8970   03 01B49    22800800 A            LI,8     X'800'
     8971   03 01B4A    6D801100 A            WD,8     X'1100'
     8972                            *
     8973   03 01B4B    6AF00E98              BAL,15   T:EXECRS
     8974   03 01B4C    00001B61              DATA     PLP400
     8975   03 01B4D    4DC00000 A            TIO,12   0
     8976   03 01B4E    0000185F              DATA     ALP0Y0
     8977   03 01B4F    01002468              GEN,8,24 1,MSP400
     8978   03 01B50    00001971              DATA     CLP230
     8979   03 01B51    68001B40              B        P400
     8980                            *
     8981                            *
     8982   03 01B52    6AF00E9D              BAL,15   T:EXEC
     8983   03 01B53    00001B6D              DATA     PLP402
     8984   03 01B54    4DC00000 A            TIO,12   0
     8985   03 01B55    00000000 A            DATA     0
     8986   03 01B56    02002468              GEN,8,24 2,MSP400
     8987   03 01B57    00001B67              DATA     CLP401
     8988   03 01B58    351015A8              STW,1    TESTCONT
     8989   03 01B59    6AF00E9B              BAL,15   T:CONTRS
     8990   03 01B5A    00001987              DATA     PLP230D
     8991   03 01B5B    00000000 A            DATA     0
     8992   03 01B5C    00000000 A            DATA     0
     8993   03 01B5D    03002468              GEN,8,24 3,MSP400
     8994   03 01B5E    00000000 A            DATA     0
     8995   03 01B5F    68001B40              B        P400
     8996   03 01B60    68000CD1              B        RIOPEXIT
     8997                            *
     8998   03 01B61    6AF011C9     PLP400   BAL,15   WDGP0
     8999   03 01B62    228000F8 A            WD1      PH10,PH102,PH11,PH12,DATA
     9000   03 01B63    6800196B              B        PLP230X
     9001                            *
     9002   03 01B64    22800000 A   CLP400   LI,8     0
     9003   03 01B65    6AF01220              BAL,15   FSCOMP
     9004   03 01B66    680010C1              B        XIT
     9005                            *
     9006                            *
     9007   03 01B67    6AF01110     CLP401   BAL,15   IOCOMP
     9008   03 01B68    FFFFE000 A            DATA     X'FFFFE000'
     9009   03 01B69    10000000 A            DATA     X'10000000'
     9010   03 01B6A    22800040 A            LI,8     X'40'
     9011   03 01B6B    6AF01220              BAL,15   FSCOMP
     9012   03 01B6C    680010C1              B        XIT
     9013                            *
     9014   03 01B6D    22800000 A   PLP402   LI,8     0
     9015   03 01B6E    6800196E              B        PLP230Y
     9016                            *
     9017         03 0091A           MSP400   EQU      BA(MSGP4000)
     9018                                     PAGE
     9019                            *
     9020                            *                 BYTE COUNT REGISTER TEST
     9021         00000059                    TESTNO
     9022                            P410 ;
     9023   03 01B6F    22E0FFFF A            LI,14    X'FFFF'           SET UP BYTE MASK
     9024   03 01B70    6AF017BF              BAL,15   M0ZZ              GO SET UP BYTE PATTERN
     9025   03 01B71    6AF017C5     P4101    BAL,15   M0YY              GO UPDATE PATTERN
     9026   03 01B72    3280019E A            LW,8     DIODATA1+1        SET UP
     9027   03 01B73    358015DD              STW,8    P410IOCD+1            BYTE COUNT
     9028   03 01B74    22000AEE     P4102    LI,0     DA(P410IOCD)
     9029   03 01B75    6AF00E98              BAL,15   T:EXECRS
     9030   03 01B76    00001B11              DATA     PLP3900
     9031   03 01B77    4CC00000 A            SIO,12   0
     9032   03 01B78    00000000 A            DATA     0
     9033   03 01B79    00002479              DATA     MSP410
     9034   03 01B7A    00001B16              DATA     CLP3900
     9035   03 01B7B    68001B74              B        P4102
     9036   03 01B7C    6AF00E9D              BAL,15   T:EXEC
     9037   03 01B7D    00001A46              DATA     PLP301
     9038   03 01B7E    4DC00000 A            TIO,12   0
     9039   03 01B7F    00000000 A            DATA     0
     9040   03 01B80    01002479              GEN,8,24 1,MSP410
     9041   03 01B81    00001B84              DATA     CLP410
     9042   03 01B82    68001B74              B        P4102
     9043   03 01B83    68001B71              B        P4101
     9044                            *
     9045                            *
     9046   03 01B84    6AF01110     CLP410   BAL,15   IOCOMP
     9047   03 01B85    FFFFE000 A            DATA     X'FFFFE000'
     9048   03 01B86    18000000 A            DATA     X'18000000'
     9049   03 01B87    328015DD              LW,8     P410IOCD+1
     9050   03 01B88    6AF0118D              BAL,15   BCCOMP
     9051   03 01B89    680010C1              B        XIT
     9052                            *
     9053                            *
     9054         03 0091E 1         MSP410   EQU      BA(MSGP4100)
     9055                                     PAGE
     9056                            *
     9057                            *                 COMMAND DOUBLEWORD RETURN PATH TEST
     9058         00000060                    TESTNO
     9059                            P420 ;
     9060   03 01B8A    351015B6              STW,1    NOIOCD
     9061   03 01B8B    32E03063              LW,14   =X'1FFFFF'
     9062   03 01B8C    6AF017BF              BAL,15   M0ZZ
     9063   03 01B8D    6AF017C5     P4201    BAL,15   M0YY
     9064   03 01B8E    3200019E A   P4202    LW,0     DIODATA1+1
     9065   03 01B8F    6AF00E98              BAL,15   T:EXECRS
     9066   03 01B90    00001B9E              DATA     PLP420
     9067   03 01B91    4CC00000 A            SIO,12   0
     9068   03 01B92    00001822              DATA     ALP0X0
     9069   03 01B93    00002498              DATA     MSP420
     9070   03 01B94    00001B16              DATA     CLP3900
     9071   03 01B95    68001B8E              B        P4202
     9072   03 01B96    6AF00E98     P4203    BAL,15   T:EXECRS
     9073   03 01B97    00001A45              DATA     PLP300
     9074   03 01B98    4DC00000 A            TIO,12   0
     9075   03 01B99    00001BA3              DATA     ALP4201
     9076   03 01B9A    01002498              GEN,8,24 1,MSP420
     9077   03 01B9B    00001BA9              DATA     CLP4201
     9078   03 01B9C    68001B8E              B        P4202
     9079   03 01B9D    68001B8D              B        P4201
     9080                            *
     9081   03 01B9E    6AF011C9     PLP420   BAL,15   WDGP0
     9082   03 01B9F    22800180 A            WD1      PH05,PH10
     9083   03 01BA0    ED80155F              WD,8     *DIOAD1
     9084   03 01BA1    6AF00FDF              BAL,15   CC10
     9085   03 01BA2    680010C1              B        XIT
     9086                            *
     9087   03 01BA3    22800009 A   ALP4201  LI,8     9
     9088   03 01BA4    31800225 A            CW,8     :MACHINE
     9089   03 01BA5    683010C1              BE       XIT
     9090   03 01BA6    12800020 A            LD,8     X'20'
     9091   03 01BA7    158001D2 A            STD,8    DOIOSTAT
     9092   03 01BA8    680010C1              B        XIT
     9093                            *
     9094                            *
     9095                            *
     9096   03 01BA9    6AF01110     CLP4201  BAL,15   IOCOMP
     9097   03 01BAA    FFFFE000 A            DATA     X'FFFFE000'
     9098   03 01BAB    10000000 A            DATA     X'10000000'
     9099   03 01BAC    3280019E A            LW,8     DIODATA1+1
     9100   03 01BAD    6AF01196              BAL,15   CDCOMP
     9101   03 01BAE    680010C1              B        XIT
     9102                            *
     9103         03 00926           MSP420   EQU      BA(MSGP4200)
     9104                                     PAGE
     9105                            *
     9106                            *                 NORMAL TRANSFER IN CHANNEL TEST
     9107         00000061                    TESTNO
     9108   03 01BAF    22000AEF     P430     LI,0     DA(P430IOCD)
     9109   03 01BB0    6AF00E98              BAL,15   T:EXECRS
     9110   03 01BB1    00001BBF              DATA     PLP430
     9111   03 01BB2    4CC00000 A            SIO,12   0
     9112   03 01BB3    00001822              DATA     ALP0X0
     9113   03 01BB4    000024B8              DATA     MSP430
     9114   03 01BB5    00001BC1              DATA     CLP430
     9115   03 01BB6    68001BAF              B        P430
     9116   03 01BB7    6AF00E9D     P4301    BAL,15   T:EXEC
     9117   03 01BB8    00001BBF              DATA     PLP430
     9118   03 01BB9    4DC00000 A            TIO,12   0
     9119   03 01BBA    00001BA3              DATA     ALP4201
     9120   03 01BBB    010024B8              GEN,8,24 1,MSP430
     9121   03 01BBC    00001BC4              DATA     CLP4301
     9122   03 01BBD    68001BAF              B        P430
     9123   03 01BBE    68000CD1              B        RIOPEXIT
     9124                            *
     9125                            *
     9126   03 01BBF    6AF011C9     PLP430   BAL,15   WDGP0
     9127   03 01BC0    680010C1              B        XIT
     9128                            *
     9129                            *
     9130   03 01BC1    22802000 A   CLP430   PHPROC   PH00
     9131   03 01BC2    6AF0114C              BAL,15   PHCOMP
     9132   03 01BC3    680010C1              B        XIT
     9133                            *
     9134                            *
     9135   03 01BC4    6AF01110     CLP4301  BAL,15   IOCOMP
     9136   03 01BC5    FFFFE000 A            DATA     X'FFFFE000'
     9137   03 01BC6    18000000 A            DATA     X'18000000'
     9138   03 01BC7    22800AF0              LI,8     DA(P430IOCD+2)
     9139   03 01BC8    6AF01196              BAL,15   CDCOMP
     9140   03 01BC9    680010C1              B        XIT
     9141                            *
     9142                            *
     9143         03 0092E           MSP430   EQU      BA(MSGP4300)
     9144                                     PAGE
     9145                            *
     9146                            *                 I/O INTERRUPT GENERATION (FLAG:  UE =1) TEST
     9147         00000062                    TESTNO
     9148   03 01BCA    22000AF1     P460     LI,0     DA(P460IOCD)
     9149   03 01BCB    68001BCE              B        P4601
     9150                            *
     9151                            *                 I/O INTERRUPT GENERATION (FLAG:  ICE=1) TEST
     9152         00000063                    TESTNO
     9153   03 01BCC    22000AF2     P470X    LI,0     DA(P470IOCD)
     9154   03 01BCD    68001BCE              B        P4601
     9155   03 01BCE    350001C8 A   P4601    STW,0    PSAVE2
     9156   03 01BCF    320001C8 A   P4602    LW,0     PSAVE2
     9157   03 01BD0    6AF00E98              BAL,15   T:EXECRS
     9158   03 01BD1    00001BBF              DATA     PLP430
     9159   03 01BD2    4CC00000 A            SIO,12   0
     9160   03 01BD3    00001BD8              DATA     PLP460
     9161   03 01BD4    000024CA              DATA     MSG460
     9162   03 01BD5    00001BE4              DATA     CLP460
     9163   03 01BD6    68001BCF              B        P4602
     9164   03 01BD7    68000CD1              B        RIOPEXIT
     9165                            *
     9166                            PLP460 ;
     9167   03 01BD8    328015A9              LW,8     XPSDINT
     9168   03 01BD9    3580005C A            STW,8    X'5C'
     9169   03 01BDA    22800000 A            LI,8     0
     9170   03 01BDB    358015AB              STW,8    GOTINTR
     9171   03 01BDC    22800020 A            LI,8     X'20'
     9172   03 01BDD    6D000032 A            WD,0     X'32'             INHIBILT INTERRUPTS
     9173   03 01BDE    6D801200 A            WD,8     X'1200'           ARM AND ENABLE I/O INTERRUPTS
     9174   03 01BDF    6D000022 A            WD,0     X'22'             RESET I/O INTERRUPTS INHIBITS
     9175   03 01BE0    6D801100 A            WD,8     X'1100'           DISARM I/O INTERRUPTS
     9176   03 01BE1    22800001 A            LI,8     1
     9177   03 01BE2    ED801561              WD,8     *DIOAD3
     9178   03 01BE3    680010C1              B        XIT
     9179                            *
     9180                            *
     9181   03 01BE4    328015AB     CLP460   LW,8     GOTINTR
     9182   03 01BE5    6AF011DC              BAL,15   IRCOMP
     9183   03 01BE6    680010C1              B        XIT
     9184                            *
     9185                            *
     9186         03 00932 2         MSG460   EQU      BA(MSGP4600)
     9187                                     PAGE
     9188                            *                 INTERRUPT RECOGNIZED AND RESET (FLAG UE=1) TEST
     9189         00000064                    TESTNO
     9190   03 01BE7    22000AF1     P470     LI,0     DA(P460IOCD)
     9191   03 01BE8    6AF01BEB              BAL,15   P4701
     9192                            *
     9193                            *                 INTERRUPT RECOGNIZED AND RESET (FLAG ICE=1) TEST
     9194         00000065                    TESTNO
     9195   03 01BE9    22000AF2     P480     LI,0     DA(P470IOCD)
     9196   03 01BEA    6AF01BEB              BAL,15   P4701
     9197                            *
     9198                            *
     9199   03 01BEB    350001C8 A   P4701    STW,0    PSAVE2
     9200   03 01BEC    320001C8 A   P4702    LW,0     PSAVE2
     9201   03 01BED    6AF00E98              BAL,15   T:EXECRS
     9202   03 01BEE    00001BBF              DATA     PLP430
     9203   03 01BEF    4CC00000 A            SIO,12   0
     9204   03 01BF0    00001BF5              DATA     ALP470
     9205   03 01BF1    000024D9              DATA     MSG470
     9206   03 01BF2    00001BF7              DATA     CLP470
     9207   03 01BF3    68001BEC              B        P4702
     9208   03 01BF4    68000CD1              B        RIOPEXIT
     9209                            *
     9210                            ALP470 ;
     9211   03 01BF5    6AF012F6              BAL,15   ALFUNCT
     9212   03 01BF6    00001BF9              DATA     CLPT470
     9213                            *
     9214                            *
     9215                            CLP470 ;
     9216   03 01BF7    6AF01345              BAL,15   CLISTI
     9217   03 01BF8    680010C1              B        XIT
     9218                            *
     9219   03 01BF9    98004001 A   CLPT470  CHCKTIO  X'98004000'
     9220   03 01BFA    00004002 A            CHCKTDV  X'00004000'
     9221   03 01BFB    98000003 A            CHCKHIO  X'98000000'
     9222   03 01BFC    10000089 A            CHCKTIO1 *X'10000000'
     9223         03 00936 1         MSG470   EQU      BA(MSGP4700)
     9224                                     PAGE
     9225                            *
     9226                            *                 AIO INSTRUCTION (INTERRUPT ON UE) TEST
     9227         00000066                    TESTNO
     9228   03 01BFD    22000AF1     P550     LI,0     DA(P460IOCD)
     9229   03 01BFE    32801C16              LW,8     P550AIO
     9230   03 01BFF    68001C03              B        P55X
     9231                            *
     9232                            *                 AIO INSTRUCTION (INTERRUPT ON CE) TEST
     9233         00000067                    TESTNO
     9234   03 01C00    22000AF2     P560     LI,0     DA(P470IOCD)
     9235   03 01C01    32801C17              LW,8     P560AIO
     9236   03 01C02    68001C03              B        P55X
     9237   03 01C03    350001C7 A   P55X     STW,0    PSAVE1
     9238   03 01C04    35801C14              STW,8    CLP551
     9239   03 01C05    320001C7 A   P55XX    LW,0     PSAVE1
     9240   03 01C06    6AF00E98              BAL,15   T:EXECRS
     9241   03 01C07    00001BBF              DATA     PLP430
     9242   03 01C08    4CC00000 A            SIO,12   0
     9243   03 01C09    00001C0E              DATA     ALP550
     9244   03 01C0A    000024E8              DATA     MSP550
     9245   03 01C0B    00001C10              DATA     CLP550
     9246   03 01C0C    68001C05              B        P55XX
     9247   03 01C0D    68000CD1              B        RIOPEXIT
     9248                            *
     9249                            ALP550 ;
     9250   03 01C0E    6AF012F6              BAL,15   ALFUNCT
     9251   03 01C0F    00001C12              DATA     CLPT550
     9252                            *
     9253   03 01C10    6AF01345     CLP550   BAL,15   CLISTI
     9254   03 01C11    680010C1              B        XIT
     9255                            *
     9256                            *
     9257   03 01C12    98004001 A   CLPT550  CHCKTIO  X'98004000'
     9258   03 01C13    00004002 A            CHCKTDV  X'00004000'
     9259   03 01C14    00000006 A   CLP551   CHCKAIO  0
     9260   03 01C15    18000089 A            CHCKTIO1 *X'18000000'
     9261   03 01C16    00084006 A   P550AIO  CHCKAIO  X'00084000'
     9262   03 01C17    00104006 A   P560AIO  CHCKAIO  X'00104000'
     9263                            *
     9264                            *
     9265         03 0093A           MSP550   EQU      BA(MSGP5500)
     9266                                     PAGE
     9267                            *
     9268                            *                 INITIAL DATA STATE TEST
     9269         00000068                    TESTNO
     9270   03 01C18    6AF01178     P570     BAL,15   BOUND16
     9271   03 01C19    6AF01183              BAL,15   IUEBYTE4
     9272   03 01C1A    22000179 A            LI,0     DA(IOCDGEN)
     9273   03 01C1B    6AF00E98              BAL,15   T:EXECRS
     9274   03 01C1C    00001C26              DATA     PLP570
     9275   03 01C1D    4CC00000 A            SIO,12   0
     9276   03 01C1E    00001C23              DATA     ALP570
     9277   03 01C1F    000024F8              DATA     MSP570
     9278   03 01C20    00001C2B              DATA     CLP570
     9279   03 01C21    68001C18              B        P570
     9280   03 01C22    68000CD1              B        RIOPEXIT
     9281   03 01C23    6AF00EF1     ALP570   BAL,15   COLLECT
     9282   03 01C24    68000FDD              B        CC01
     9283   03 01C25    680010C1              B        XIT
     9284                            *
     9285   03 01C26    6AF011C9     PLP570   BAL,15   WDGP0
     9286   03 01C27    22800004 A            WD1      TS
     9287   03 01C28    ED80155F              WD,8     *DIOAD1
     9288   03 01C29    6AF00FDD              BAL,15   CC01
     9289   03 01C2A    680010C1              B        XIT
     9290                            *
     9291   03 01C2B    22802015 A   CLP570   PHPROC   PH00,PH20,DATA,BUSY
     9292   03 01C2C    6AF0114C              BAL,15   PHCOMP
     9293   03 01C2D    680010C1              B        XIT
     9294                            *
     9295         03 0093E           MSP570   EQU      BA(MSGP5700)
     9296                                     PAGE
     9297                            *
     9298                            *                 INITIAL DATA IN TEST
     9299                            *
     9300         00000069                    TESTNO
     9301   03 01C2E    6AF01178     F017     BAL,15   BOUND16
     9302   03 01C2F    752002F2 A            STB,2    IOCDGEN
     9303   03 01C30    32F03064              LW,15    =X'00000040'
     9304   03 01C31    35F002F3 A            STW,15   IOCDGEN+1
     9305   03 01C32    22000179 A   F017X    LI,0     DA(IOCDGEN)
     9306   03 01C33    6AF00E98              BAL,15   T:EXECRS
     9307   03 01C34    00001D8A              DATA     PLF002
     9308   03 01C35    4CC00000 A            SIO,12   0
     9309   03 01C36    00001D2D              DATA     ALF000
     9310   03 01C37    00002683              DATA     MSF017
     9311   03 01C38    00001C3B              DATA     CLF017
     9312   03 01C39    68001C32              B        F017X
     9313   03 01C3A    68000CD1              B        RIOPEXIT
     9314   03 01C3B    2280200F A   CLF017   PHPROC   PH00,PH30,DATA,IN,BUSY
     9315   03 01C3C    6AF0114C              BAL,15   PHCOMP
     9316   03 01C3D    68001D30              B        CLF000
     9317         03 009A0 3         MSF017   EQU      BA(MSGF0170)
     9318                                     PAGE
     9319                            *
     9320                            *                 ERROR STATUS (IOPH) TEST
     9321         00000070                    TESTNO
     9322                            P580 ;
     9323   03 01C3E    22000AF6              LI,0     DA(STATIOCD)
     9324   03 01C3F    3280305E              WD2      IOPH
     9325   03 01C40    22E02510              LI,14    MSGP5800
     9326   03 01C41    6AF014FA              BAL,15   MODE1INT
     9327   03 01C42    98024001 A            CHCKTIO  X'98024000'
     9328   03 01C43    00024002 A            CHCKTDV  X'00024000'
     9329   03 01C44    00184006 A            CHCKAIO  X'00184000'
     9330   03 01C45    18020009 A            CHCKTIO1 X'18020000'
     9331   03 01C46    18020083 A            CHCKHIO  *X'18020000'
     9332                                     PAGE
     9333                            *
     9334                            *                 ERROR STATUS (RATER) TEST
     9335         00000071                    TESTNO
     9336   03 01C47    22000AF6     P590     LI,0     DA(STATIOCD)
     9337   03 01C48    32803065              WD2      RATER
     9338   03 01C49    22E02516              LI,14    MSGP5900
     9339   03 01C4A    6AF014FA              BAL,15   MODE1INT
     9340   03 01C4B    98424001 A            CHCKTIO  X'98424000'
     9341   03 01C4C    80424002 A            CHCKTDV  X'80424000'
     9342   03 01C4D    80584006 A            CHCKAIO  X'80584000'
     9343   03 01C4E    18420003 A            CHCKHIO  X'18420000'
     9344   03 01C4F    10420089 A            CHCKTIO1 *X'10420000'
     9345                                     PAGE
     9346                            *
     9347                            *                 ERROR STATUS (SUN) TEST
     9348         00000072                    TESTNO
     9349   03 01C50    22000AF6     P600     LI,0     DA(STATIOCD)
     9350   03 01C51    32803066              WD2      SUN
     9351   03 01C52    22E0251C              LI,14    MSGP6000
     9352   03 01C53    6AF014FA              BAL,15   MODE1INT
     9353   03 01C54    98004001 A            CHCKTIO  X'98004000'
     9354   03 01C55    20004002 A            CHCKTDV  X'20004000'
     9355   03 01C56    20184006 A            CHCKAIO  X'20184000'
     9356   03 01C57    18000089 A            CHCKTIO1 *X'18000000'
     9357                                     PAGE
     9358                            *
     9359                            *                 ERROR STATUS (WPV) TEST
     9360         00000073                    TESTNO
     9361                            P610 ;
     9362   03 01C58    22000AF6              LI,0     DA(STATIOCD)
     9363   03 01C59    32803067              WD2      WPV
     9364   03 01C5A    22E02522              LI,14    MSGP6100
     9365   03 01C5B    6AF014FA              BAL,15   MODE1INT
     9366   03 01C5C    98004001 A            CHCKTIO  X'98004000'
     9367   03 01C5D    10004002 A            CHCKTDV  X'10004000'
     9368   03 01C5E    10184006 A            CHCKAIO  X'10184000'
     9369   03 01C5F    18000089 A            CHCKTIO1 *X'18000000'
     9370                                     PAGE
     9371                            *
     9372                            *                 ERROR STATUS (SPM) TEST
     9373         00000074                    TESTNO
     9374                            P620 ;
     9375   03 01C60    22000AF6              LI,0     DA(STATIOCD)
     9376   03 01C61    32803068              WD2      SPM
     9377   03 01C62    22E0252B              LI,14    MSGP6200
     9378   03 01C63    6AF014FA              BAL,15   MODE1INT
     9379   03 01C64    98004001 A            CHCKTIO  X'98004000'
     9380   03 01C65    08004002 A            CHCKTDV  X'08004000'
     9381   03 01C66    08184006 A            CHCKAIO  X'08184000'
     9382   03 01C67    18000089 A            CHCKTIO1 *X'18000000'
     9383                                     PAGE
     9384                            *
     9385                            *                 ERROR STATUS (INL) TEST
     9386         00000075                    TESTNO
     9387                            P630 ;
     9388   03 01C68    22000AF6              LI,0     DA(STATIOCD)
     9389   03 01C69    32803045              WD2      INL
     9390   03 01C6A    22E02534              LI,14    MSGP6300
     9391   03 01C6B    6AF014FA              BAL,15   MODE1INT
     9392   03 01C6C    98824001 A            CHCKTIO  X'98824000'
     9393   03 01C6D    00824002 A            CHCKTDV  X'00824000'
     9394   03 01C6E    00984006 A            CHCKAIO  X'00984000'
     9395   03 01C6F    18820089 A            CHCKTIO1 *X'18820000'
     9396                                     PAGE
     9397                            *
     9398                            *                 ERROR STATUS (BTE) TEST
     9399         00000076                    TESTNO
     9400                            P640 ;
     9401   03 01C70    22000AF6              LI,0     DA(STATIOCD)
     9402   03 01C71    32803069              WD2      BTE
     9403   03 01C72    22E0253A              LI,14    MSGP6400
     9404   03 01C73    6AF014FA              BAL,15   MODE1INT
     9405   03 01C74    98004001 A            CHCKTIO  X'98004000'
     9406   03 01C75    04004002 A            CHCKTDV  X'04004000'
     9407   03 01C76    04184006 A            CHCKAIO  X'04184000'
     9408   03 01C77    18000089 A            CHCKTIO1 *X'18000000'
     9409                                     PAGE
     9410                            *
     9411                            *                 ERROR STATUS (HCE)TEST
     9412         00000077                    TESTNO
     9413                            P650 ;
     9414   03 01C78    22000AF6              LI,0     DA(STATIOCD)
     9415   03 01C79    3280306A              WD2      HCE
     9416   03 01C7A    22E02540              LI,14    MSGP6500
     9417   03 01C7B    6AF014FA              BAL,15   MODE1INT
     9418   03 01C7C    98004001 A            CHCKTIO  X'98004000'
     9419   03 01C7D    02004002 A            CHCKTDV  X'02004000'
     9420   03 01C7E    02184006 A            CHCKAIO  X'02184000'
     9421   03 01C7F    18000089 A            CHCKTIO1 *X'18000000'
     9422                                     PAGE
     9423                            *
     9424                            *                 ERROR STATUS (TME) TEST
     9425         00000078                    TESTNO
     9426                            P660 ;
     9427   03 01C80    22000AF6              LI,0     DA(STATIOCD)
     9428   03 01C81    6AF00E98              BAL,15   T:EXECRS
     9429   03 01C82    00001C26              DATA     PLP570
     9430   03 01C83    4CC00000 A            SIO,12   0
     9431   03 01C84    00001C89              DATA     ALP660
     9432   03 01C85    80001C94              GEN,1,31 1,MSP660
     9433   03 01C86    00002023              DATA     CLF016
     9434   03 01C87    68001C80              B        P660
     9435   03 01C88    68000CD1              B        RIOPEXIT
     9436                            *
     9437   03 01C89    32803053     ALP660   WD2      PE:D
     9438   03 01C8A    ED801560              WD,8    *DIOAD2
     9439   03 01C8B    6AF00FDB              BAL,15   CC00
     9440   03 01C8C    22800000 A            LI,8     0
     9441   03 01C8D    ED801560              WD,8     *DIOAD2
     9442   03 01C8E    6AF00FDB              BAL,15   CC00
     9443   03 01C8F    EC801566              RD,8     *DIOAD0TS
     9444   03 01C90    6AF00FDD              BAL,15   CC01
     9445   03 01C91    6AF012F6              BAL,15   ALFUNCT
     9446   03 01C92    00001C96              DATA     ALPL660
     9447   03 01C93    680010C1              B        XIT
     9448   03 01C94    80002546     MSP660   HEADR    1,0,MSGP660
     9449   03 01C95    0000254C              HEADR    0,0,MSGTEST2
     9450                            ALPL660 ;
     9451   03 01C96    98224001 A            CHCKTIO  X'98224000'
     9452   03 01C97    00224002 A            CHCKTDV  X'00224000'
     9453   03 01C98    00184006 A            CHCKAIO  X'00184000'
     9454   03 01C99    18220089 A            CHCKTIO1 *X'18220000'
     9455   03 01C9A    80000000 A   MSPTEST  HEADR    1,0,0
     9456   03 01C9B    8000254C              HEADR    1,0,MSGTEST2
     9457                                     PAGE
     9458                            *
     9459                            *                 2 TRANSFER IN CHANNEL IN A ROW CONTROL TEST
     9460         00000079                    TESTNO
     9461   03 01C9C    22000AF3     P700     LI,0     DA(P440IOCD)
     9462   03 01C9D    6AF00E98              BAL,15   T:EXECRS
     9463   03 01C9E    00001CAC              DATA     PLP700
     9464   03 01C9F    4C000000 A            SIO,0    0
     9465   03 01CA0    00001822              DATA     ALP0X0
     9466   03 01CA1    00002573              DATA     MSP700
     9467   03 01CA2    00001CB1              DATA     CLP700
     9468   03 01CA3    68001C9C              B        P700
     9469   03 01CA4    6AF00E9D     P7001    BAL,15   T:EXEC
     9470   03 01CA5    00001CB4              DATA     PLP7001
     9471   03 01CA6    00000000 A            DATA     0
     9472   03 01CA7    00001822              DATA     ALP0X0
     9473   03 01CA8    01002573              GEN,8,24 1,MSP700
     9474   03 01CA9    00001CB8              DATA     CLP7001
     9475   03 01CAA    68001C9C              B        P700
     9476   03 01CAB    68000CD1              B        RIOPEXIT
     9477                            *
     9478                            *
     9479   03 01CAC    6AF011C9     PLP700   BAL,15   WDGP0
     9480   03 01CAD    22800030 A            WD1      PH11,PH12
     9481   03 01CAE    ED80155F              WD,8     *DIOAD1
     9482   03 01CAF    6AF00FDF              BAL,15   CC10
     9483   03 01CB0    680010C1              B        XIT
     9484                            *
     9485                            *
     9486   03 01CB1    22800081 A   CLP700   PHPROC   PH10,BUSY
     9487   03 01CB2    6AF0114C              BAL,15   PHCOMP
     9488   03 01CB3    680010C1              B        XIT
     9489                            *
     9490                            *
     9491   03 01CB4    22800002 A   PLP7001  LI,8     2
     9492   03 01CB5    ED801561              WD,8     *DIOAD3
     9493   03 01CB6    6AF00FDF              BAL,15   CC10
     9494   03 01CB7    680010C1              B        XIT
     9495                            *
     9496                            *
     9497   03 01CB8    22802001 A   CLP7001  PHPROC   PH00,BUSY
     9498   03 01CB9    6AF0114C              BAL,15   PHCOMP
     9499   03 01CBA    680010C1              B        XIT
     9500                            *
     9501         03 0095C 3         MSP700   EQU      BA(MSGP7000)
     9502                                     PAGE
     9503                            *
     9504                            *                 2 TRANSFER IN CHANNEL IN A ROW FREE RUN TEST
     9505                            *
     9506         00000080                    TESTNO
     9507   03 01CBB    22000AF3     P701     LI,0     DA(P440IOCD)
     9508   03 01CBC    352006C5              STW,2    VHEX2A
     9509   03 01CBD    22E02573              LI,14    MSGP7000
     9510   03 01CBE    6AF014EE              BAL,15   MODE1
     9511   03 01CBF    18060001 A            CHCKTIO  X'18060000'
     9512   03 01CC0    00064002 A            CHCKTDV  X'00064000'
     9513   03 01CC1    18060083 A            CHCKHIO  *X'18060000'
     9514                                     PAGE
     9515                            *
     9516                            *                 PARTIAL EXECUTION OF A TIO INSTRUCTION TEST
     9517         00000081                    TESTNO
     9518   03 01CC2    3280306B     P710     LW,8     =X'4DC00000'
     9519   03 01CC3    35801CC8     P7113    STW,8    P7111
     9520   03 01CC4    6AF01CD6     P7114    BAL,15   SIOPART
     9521   03 01CC5    0000258E              DATA     MSP710
     9522   03 01CC6    6AF00E9D     P7112    BAL,15   T:EXEC
     9523   03 01CC7    00000000 A            DATA     0
     9524   03 01CC8    4DC00000 A   P7111    TIO,12   0
     9525   03 01CC9    00001C23              DATA     ALP570
     9526   03 01CCA    0100258E              GEN,8,24 1,MSP710
     9527   03 01CCB    00001CCE              DATA     CLP710
     9528   03 01CCC    68001CC4              B        P7114
     9529   03 01CCD    68000CD1              B        RIOPEXIT
     9530                            *
     9531                            *
     9532   03 01CCE    6AF01110     CLP710   BAL,15   IOCOMP
     9533   03 01CCF    FFFFE000 A            DATA     X'FFFFE000'
     9534   03 01CD0    00008000 A            DATA     X'00008000'
     9535   03 01CD1    68001CEA              B        CLPSIOZ
     9536                            *
     9537         03 00963 2         MSP710   EQU      BA(MSGP7100)
     9538                                     PAGE
     9539                            *
     9540                            *                 PARTIAL EXECUTION OF A TDV INSTRUCTION TEST
     9541         00000082                    TESTNO
     9542   03 01CD2    3280306C     P720     LW,8     =X'4EC00000'
     9543   03 01CD3    68001CC3              B        P7113
     9544                            *
     9545                            *                 PARTIAL EXECUTION OF A SIO INSTRUCTION TEST
     9546         00000083                    TESTNO
     9547   03 01CD4    3280306D     P730     LW,8     =X'4CC00000'
     9548   03 01CD5    68001CC3              B        P7113
     9549                            *
     9550                            *
     9551   03 01CD6    35F001C7 A   SIOPART  STW,15   PSAVE1
     9552   03 01CD7    6AF01178              BAL,15   BOUND16
     9553   03 01CD8    752002F2 A            STB,2    IOCDGEN
     9554   03 01CD9    22F00010 A            LI,15    16
     9555   03 01CDA    35F002F3 A            STW,15   IOCDGEN+1
     9556   03 01CDB    B2F001C7 A            LW,15    *PSAVE1
     9557   03 01CDC    35F01CE6              STW,15   SIOPART2
     9558   03 01CDD    22800001 A            WD1      TR
     9559   03 01CDE    358001C4 A            STW,8    PWD1
     9560   03 01CDF    228011C9              LI,8     WDGP0
     9561   03 01CE0    358015C1              STW,8    PWD0
     9562   03 01CE1    22000179 A   SIOPART1 LI,0     DA(IOCDGEN)
     9563   03 01CE2    6AF00E98              BAL,15   T:EXECRS
     9564   03 01CE3    00001513              DATA     PLPSIO
     9565   03 01CE4    4CC00000 A            SIO,12   0
     9566   03 01CE5    00001C23              DATA     ALP570
     9567   03 01CE6    00000000 A   SIOPART2 DATA     0
     9568   03 01CE7    00001CEA              DATA     CLPSIOZ
     9569   03 01CE8    68001CE1              B        SIOPART1
     9570   03 01CE9    E80201C7 A            B        *PSAVE1,1
     9571                            *
     9572   03 01CEA    2280200F A   CLPSIOZ  PHPROC   PH00,PH30,DATA,IN,BUSY
     9573   03 01CEB    6AF0114C              BAL,15   PHCOMP
     9574   03 01CEC    680010C1              B        XIT
     9575                                     PAGE
     9576                            *
     9577                            *
     9578                            *                 AIO EXECUTION IF RIOP IS BUSY TEST
     9579                            *                 (NO INTERRUPT PENDING)
     9580         00000084                    TESTNO
     9581   03 01CED    2280C000 A   P7401    LI,8     X'C000'
     9582   03 01CEE    351006BE              STW,1    VDEC1A
     9583   03 01CEF    22901C23              LI,9     ALP570
     9584   03 01CF0    68001CF4              B        P740X
     9585                            *                 AIO EXECUTION IF RIOP IS BUSY TEST
     9586         00000085                    TESTNO
     9587   03 01CF1    32803060     P740     LW,8     =X'00204000'
     9588   03 01CF2    352006BE              STW,2    VDEC1A
     9589   03 01CF3    22901822              LI,9     ALP0X0
     9590                            *
     9591   03 01CF4    35801D0A     P740X    STW,8    CLP740X
     9592   03 01CF5    35901CFB              STW,9    P740XXX
     9593   03 01CF6    6AF01CD6     P740XX   BAL,15   SIOPART
     9594   03 01CF7    000025A2              DATA     MSP740
     9595   03 01CF8    6AF00E9D              BAL,15   T:EXEC
     9596   03 01CF9    00001D00              DATA     PLP740
     9597   03 01CFA    6ED00000 A            AIO,13   0
     9598   03 01CFB    00000000 A   P740XXX  DATA     0
     9599   03 01CFC    010025A2              GEN,8,24 1,MSP740
     9600   03 01CFD    00001D06              DATA     CLP740
     9601   03 01CFE    68001CF6              B        P740XX
     9602   03 01CFF    68000CD1              B        RIOPEXIT
     9603                            *
     9604   03 01D00    53001D0A     PLP740   MTH,0    CLP740X
     9605   03 01D01    683010C1              BEZ      XIT
     9606   03 01D02    3280305A              WD2      ZBCI
     9607   03 01D03    ED801560              WD,8     *DIOAD2
     9608   03 01D04    6AF00FDD              BAL,15   CC01
     9609   03 01D05    680010C1              B        XIT
     9610                            *
     9611                            *
     9612   03 01D06    2280200F A   CLP740   PHPROC   PH00,PH30,DATA,IN,BUSY
     9613   03 01D07    6AF0114C              BAL,15   PHCOMP
     9614   03 01D08    6AF01110              BAL,15   IOCOMP
     9615   03 01D09    FFFFE000 A            DATA     X'FFFFE000'
     9616   03 01D0A    00000000 A   CLP740X  DATA     0
     9617   03 01D0B    680010C1              B        XIT
     9618                            *
     9619         03 00968 2         MSP740   EQU      BA(MSGP7400)
     9620                                     PAGE
     9621                            *
     9622                            *                 HIO RESET OF A BUSY RIOP TEST
     9623         00000086                    TESTNO
     9624   03 01D0C    6AF01CD6     P750     BAL,15   SIOPART
     9625   03 01D0D    000025A2              DATA     MSP740
     9626   03 01D0E    6AF00E9D              BAL,15   T:EXEC
     9627   03 01D0F    00000000 A            DATA     0
     9628   03 01D10    4FC00000 A            HIO,12   0
     9629   03 01D11    00001C23              DATA     ALP570
     9630   03 01D12    010025A2              GEN,8,24 1,MSP740
     9631   03 01D13    00001D16              DATA     CLP750
     9632   03 01D14    68001D0C              B        P750
     9633   03 01D15    68000CD1              B        RIOPEXIT
     9634                            *
     9635                            *
     9636   03 01D16    22802000 A   CLP750   PHPROC   PH00
     9637   03 01D17    6AF0114C              BAL,15   PHCOMP
     9638   03 01D18    6AF01110              BAL,15   IOCOMP
     9639   03 01D19    FFFFE000 A            DATA     X'FFFFE000'
     9640   03 01D1A    76014000 A            DATA     X'76014000'
     9641   03 01D1B    680010C1              B        XIT
     9642                                     PAGE
     9643                            *
     9644                            *                 INITIAL WRITE MEMORY REQUEST TEST
     9645         00000087                    TESTNO
     9646   03 01D1C    6AF01178     F000     BAL,15   BOUND16
     9647   03 01D1D    32F0306E              LW,15    =X'00000020'
     9648   03 01D1E    35F002F3 A            STW,15   IOCDGEN+1
     9649   03 01D1F    22000179 A            LI,0     DA(IOCDGEN)
     9650   03 01D20    6AF00E98              BAL,15   T:EXECRS
     9651   03 01D21    00001D28              DATA     PLF000
     9652   03 01D22    4CC00000 A            SIO,12   0
     9653   03 01D23    00001D2D              DATA     ALF000
     9654   03 01D24    000025B7              DATA     MSF000
     9655   03 01D25    00001D30              DATA     CLF000
     9656   03 01D26    68001D1C              B        F000
     9657   03 01D27    68000CD1              B        RIOPEXIT
     9658                            *
     9659   03 01D28    6AF011C9     PLF000   BAL,15   WD0GP0
     9660   03 01D29    22800006 A            WD1      TS,TI
     9661   03 01D2A    ED80155F              WD,8     *DIOAD1
     9662   03 01D2B    6AF00FDD              BAL,15   CC01
     9663   03 01D2C    680010C1              B        XIT
     9664                            *
     9665                            *
     9666   03 01D2D    6AF00EF1     ALF000   BAL,15   COLLECT
     9667   03 01D2E    68000FDD              B        CC01
     9668   03 01D2F    680010C1              B        XIT
     9669                            *
     9670                            *
     9671   03 01D30    22800000 A   CLF000   LI,8     0
     9672   03 01D31    6AF01245              BAL,15   FULLCOMP
     9673   03 01D32    22800003 A            LI,8     3
     9674   03 01D33    358001B5 A            STW,8    BYCNTMSK
     9675   03 01D34    22800001 A            BYPROC   BC4
     9676   03 01D35    6AF0124F              BAL,15   BYCOUNT
     9677   03 01D36    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9678   03 01D37    358001B3 A            STW,8    COUNTMSK
     9679   03 01D38    22800000 A            LI,8     0
     9680   03 01D39    6AF0123B              BAL,15   FACOUNT
     9681   03 01D3A    680010C1              B        XIT
     9682                            *
     9683                            *
     9684         03 0096D 3         MSF000   EQU      BA(MSGF000)
     9685         03 011C9           WD0GP0   EQU      WDGP0
     9686                                     PAGE
     9687                            *
     9688                            *                 MEMORY WORD ADDRESSING TEST 1
     9689         00000088                    TESTNO
     9690   03 01D3B    22F0FFF0 A   F001     LI,15    X'FFF0'
     9691   03 01D3C    22E00002 A            LI,14    2
     9692   03 01D3D    15E002F2 A            STD,14   IOCDGEN
     9693   03 01D3E    351006BE              STW,1    VDEC1A
     9694   03 01D3F    6AF011F4              BAL,15   SIZEMEM
     9695   03 01D40    32E002F2 A   F0012    LW,14    IOCDGEN
     9696   03 01D41    4BE03029              AND,14   =X'00FFFFFF'
     9697   03 01D42    32F015D0              LW,15    DASIZE
     9698   03 01D43    25F00002 A            SLS,15   2
     9699   03 01D44    31E0000F A            CW,14    15
     9700   03 01D45    68100CD1              BGE      RIOPEXIT
     9701   03 01D46    25E00001 A            SLS,14   1
     9702   03 01D47    7510000E A            STB,1    14
     9703   03 01D48    35E002F2 A            STW,14   IOCDGEN
     9704   03 01D49    22000179 A   F0011    LI,0     DA(IOCDGEN)
     9705   03 01D4A    6AF00E98              BAL,15   T:EXECRS
     9706   03 01D4B    00001D52              DATA     PLF001
     9707   03 01D4C    4CC00000 A            SIO,12   0
     9708   03 01D4D    00001D57              DATA     ALF001
     9709   03 01D4E    000025C8              DATA     MSF001
     9710   03 01D4F    00001D5A              DATA     CLF001
     9711   03 01D50    68001D49              B        F0011
     9712   03 01D51    68001D40              B        F0012
     9713   03 01D52    6AF011C9     PLF001   BAL,15   WD0GP0
     9714   03 01D53    22800007 A            WD1      TS,TI,TR
     9715   03 01D54    ED80155F              WD,8     *DIOAD1
     9716   03 01D55    6AF00FDD              BAL,15   CC01
     9717   03 01D56    680010C1              B        XIT
     9718                            *
     9719   03 01D57    EC801566     ALF001   RD,8     *DIOAD0TS
     9720   03 01D58    6AF00FDD              BAL,15   CC01
     9721   03 01D59    68001822              B        ALP0X0
     9722                            *
     9723   03 01D5A    22800010 A   CLF001   FULLPROC MFULL
     9724   03 01D5B    6AF01245              BAL,15   FULLCOMP
     9725   03 01D5C    328002F2 A            LW,8     IOCDGEN
     9726   03 01D5D    2580007E A            SLS,8    -2
     9727   03 01D5E    6AF011AD              BAL,15   LREG
     9728   03 01D5F    680010C1              B        XIT
     9729                            *
     9730         03 00972           MSF001   EQU      BA(MSGF0010)
     9731                                     PAGE
     9732                            *
     9733                            *                 MEMORY WORD ADDRESSING TEST 2
     9734                            *
     9735         00000089                    TESTNO
     9736   03 01D60    352006BE     F001X    STW,2    VDEC1A
     9737   03 01D61    6AF011F4              BAL,15   SIZEMEM
     9738   03 01D62    22F0FFF0 A            LI,15    X'FFF0'
     9739   03 01D63    32E015D0              LW,14    DASIZE
     9740   03 01D64    25E00002 A            SLS,14   2
     9741   03 01D65    15E002F2 A            STD,14   IOCDGEN
     9742   03 01D66    32E002F2 A   F0012X   LW,14    IOCDGEN
     9743   03 01D67    4BE03029              AND,14   =X'00FFFFFF'
     9744   03 01D68    25E00001 A            SLS,14   1
     9745   03 01D69    32F00195 A            LW,15    CDW
     9746   03 01D6A    25F00003 A            SLS,15   3
     9747   03 01D6B    31E0000F A            CW,14    15
     9748   03 01D6C    68100CD1              BGE      RIOPEXIT
     9749   03 01D6D    7510000E A            STB,1    14
     9750   03 01D6E    35E002F2 A            STW,14   IOCDGEN
     9751   03 01D6F    22000179 A   F0011X   LI,0     DA(IOCDGEN)
     9752   03 01D70    6AF00E98              BAL,15   T:EXECRS
     9753   03 01D71    00001D52              DATA     PLF001
     9754   03 01D72    4CC00000 A            SIO,12   0
     9755   03 01D73    00001D78              DATA     ALF001X
     9756   03 01D74    000025C8              DATA     MSF001
     9757   03 01D75    00001D7B              DATA     CLF001X
     9758   03 01D76    68001D6F              B        F0011X
     9759   03 01D77    68001D66              B        F0012X
     9760                            *
     9761   03 01D78    EC801566     ALF001X  RD,8     *DIOAD0TS
     9762   03 01D79    6AF00FDD              BAL,15   CC01
     9763   03 01D7A    68001822              B        ALP0X0
     9764                            *
     9765   03 01D7B    22800000 A   CLF001X  LI,8     0
     9766   03 01D7C    68001D5B              B        CLF001+1
     9767                                     PAGE
     9768                            *
     9769                            *                 MEMORY REQUEST AND REGISTER TRANSFER CONTROL TEST 1
     9770         00000090                    TESTNO
     9771   03 01D7D    351006BE     F002     STW,1    VDEC1A
     9772   03 01D7E    6AF01178              BAL,15   BOUND16
     9773   03 01D7F    32F0306F              LW,15    =X'5C00FFF0'
     9774   03 01D80    35F002F3 A            STW,15   IOCDGEN+1
     9775   03 01D81    22000179 A            LI,0     DA(IOCDGEN)
     9776   03 01D82    6AF00E98              BAL,15   T:EXECRS
     9777   03 01D83    00001D8A              DATA     PLF002
     9778   03 01D84    4CC00000 A            SIO,12   0
     9779   03 01D85    00001D8F              DATA     ALF002
     9780   03 01D86    000025E3              DATA     MSF002
     9781   03 01D87    00001DB7              DATA     CLF002
     9782   03 01D88    68001D7D              B        F002
     9783   03 01D89    68000CD1              B        RIOPEXIT
     9784                            *
     9785   03 01D8A    6AF011C9     PLF002   BAL,15   WD0GP0
     9786   03 01D8B    22800007 A            WD1      TS,TI,TR
     9787   03 01D8C    ED80155F              WD,8     *DIOAD1
     9788   03 01D8D    6AF00FDD              BAL,15   CC01
     9789   03 01D8E    680010C1              B        XIT
     9790                            ALF002  ;
     9791   03 01D8F    32F01DB4              LW,15    ALFC01                                            *A03
     9792   03 01D90    35F01DB2              STW,15   ALFXX1                                            *A03
     9793   03 01D91    EC801566              RD,8     *DIOAD0TS         1
     9794   03 01D92    6AF01DA8              BAL,15   ALFXXX
     9795   03 01D93    EC801567              RD,8     *DIOAD0TI         2
     9796   03 01D94    6AF01DA8              BAL,15   ALFXXX
     9797   03 01D95    EC801567              RD,8     *DIOAD0TI         3
     9798   03 01D96    6AF01DA8              BAL,15   ALFXXX
     9799   03 01D97    EC801566              RD,8     *DIOAD0TS         4
     9800   03 01D98    6AF01DA8              BAL,15   ALFXXX
     9801   03 01D99    EC801567              RD,8     *DIOAD0TI         5
     9802   03 01D9A    6AF01DA8              BAL,15   ALFXXX
     9803   03 01D9B    EC801567              RD,8     *DIOAD0TI         6
     9804   03 01D9C    6AF01DA8              BAL,15   ALFXXX
     9805   03 01D9D    EC801566              RD,8     *DIOAD0TS         7
     9806   03 01D9E    6AF01DA8              BAL,15   ALFXXX
     9807   03 01D9F    EC801567              RD,8     *DIOAD0TI         8
     9808   03 01DA0    6AF01DA8              BAL,15   ALFXXX
     9809   03 01DA1    32F01DB5              LW,15    ALFC02                                            *A03
     9810   03 01DA2    35F01DB2              STW,15   ALFXX1                                            *A03
     9811   03 01DA3    EC801566              RD,8     *DIOAD0TS         9
     9812   03 01DA4    6AF01DA8              BAL,15   ALFXXX
     9813   03 01DA5    32F01DB4              LW,15    ALFC01                                             *A03
     9814   03 01DA6    35F01DB2              STW,15   ALFXX1                                             *A03
     9815   03 01DA7    680010C1              B        XIT
     9816   03 01DA8    35F001C7 A   ALFXXX   STW,15   PSAVE1
     9817   03 01DA9    74001DB6              STCF     ALFC03                                            *A03
     9818   03 01DAA    20FFFFFE A            AI,15    -2                BACK UP POINTER TO RD INSTR
     9819   03 01DAB    B2F0000F A            LW,15    *15               LOAD RD INSTR
     9820   03 01DAC    35F01DAE              STW,15   %+2               SAVE RD INSTR
     9821   03 01DAD    68001DAF              B        %+2               SKIP INSTR
     9822   03 01DAE    00000000 A            DATA     0                 RD
     9823   03 01DAF    70301DB6              LCF      ALFC03                                            *A03
     9824   03 01DB0    6AF00FDD              BAL,15   CC01
     9825   03 01DB1    6AF00EF1              BAL,15   COLLECT
     9826   03 01DB2    68000FDB     ALFXX1   B        CC00                                              *A03
     9827   03 01DB3    E80001C7 A            B        *PSAVE1
     9828   03 01DB4    68000FDB     ALFC01   B        CC00                                              *A03
     9829   03 01DB5    68000FDD     ALFC02   B        CC01                                              *A03
     9830   03 01DB6    00000000 A   ALFC03   DATA     0  1                                              *A03
     9831   03 01DB7    224FFFF7 A   CLF002   LI,4     -9
     9832   03 01DB8    22601DBC              LI,6     FO2STEP1
     9833         03 01DB9           CLF002IN EQU      %
     9834   03 01DB9    6AF012DB     CLF002X  BAL,15   RECOMP
     9835   03 01DBA    65401DB9              BIR,4    CLF002X
     9836   03 01DBB    680010C1              B        XIT
     9837                            *
     9838                            *
     9839         03 00978 3         MSF002   EQU      BA(MSGF0020)
     9840   03 01DBC    22800186 A   FO2STEP1 MEPROC   MAR,MDR,MSTART,MBUSY
     9841   03 01DBD    22800010 A            FULLPROC MFULL
     9842   03 01DBE    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9843   03 01DBF    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
     9844   03 01DC0    22800000 A            LI,8     0                 JK -BP'S
     9845   03 01DC1    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9846   03 01DC2    22800000 A            LI,8     0                 FAM COUNT
     9847                            *
     9848   03 01DC3    22800186 A   FO2STEP2 MEPROC   MAR,MDR,MSTART,MBUSY
     9849   03 01DC4    22800008 A            FULLPROC HFULL
     9850   03 01DC5    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9851   03 01DC6    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
     9852   03 01DC7    22800000 A            LI,8     0
     9853   03 01DC8    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9854   03 01DC9    22800000 A            LI,8     0
     9855                            *
     9856   03 01DCA    22800186 A   FO2STEP3 MEPROC   MAR,MDR,MSTART,MBUSY
     9857   03 01DCB    22800002 A            FULLPROC JFULL
     9858   03 01DCC    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9859   03 01DCD    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
     9860   03 01DCE    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9861   03 01DCF    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9862   03 01DD0    22800000 A            LI,8     0
     9863                            *
     9864   03 01DD1    22800186 A   FO2STEP4 MEPROC   MAR,MDR,MSTART,MBUSY
     9865   03 01DD2    22800012 A            FULLPROC MFULL,JFULL
     9866   03 01DD3    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9867   03 01DD4    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
     9868   03 01DD5    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9869   03 01DD6    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9870   03 01DD7    22800000 A            LI,8     0
     9871                            *
     9872   03 01DD8    22800186 A   FO2STEP5 MEPROC   MAR,MDR,MSTART,MBUSY
     9873   03 01DD9    2280000A A            FULLPROC HFULL,JFULL
     9874   03 01DDA    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9875   03 01DDB    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
     9876   03 01DDC    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9877   03 01DDD    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9878   03 01DDE    22800000 A            LI,8     0
     9879                            *
     9880   03 01DDF    22800186 A   FO2STEP6 MEPROC   MAR,MDR,MSTART,MBUSY
     9881   03 01DE0    22800006 A            FULLPROC IFULL,JFULL
     9882   03 01DE1    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9883   03 01DE2    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
     9884   03 01DE3    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9885   03 01DE4    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9886   03 01DE5    22800000 A            LI,8     0
     9887                            *
     9888   03 01DE6    22800180 A   FO2STEP7 MEPROC   MAR,MDR                                           *A03
     9889   03 01DE7    22800016 A            FULLPROC MFULL,IFULL,JFULL
     9890   03 01DE8    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9891   03 01DE9    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
     9892   03 01DEA    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9893   03 01DEB    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9894   03 01DEC    22800000 A            LI,8     0
     9895                            *
     9896   03 01DED    22800180 A   FO2STEP8 MEPROC   MAR,MDR                                           *A03
     9897   03 01DEE    2280000E A            FULLPROC HFULL,IFULL,JFULL
     9898   03 01DEF    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9899                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
     9900   03 01DF0    22800FFF A                     IBPA,IBPB,IBPC,IBPD
     9901   03 01DF1    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9902   03 01DF2    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9903   03 01DF3    22800000 A            LI,8     0
     9904                            *
     9905   03 01DF4    22800180 A   FO2STEP9 MEPROC   MAR,MDR
     9906   03 01DF5    2280000E A            FULLPROC HFULL,IFULL,JFULL                                 *A03
     9907   03 01DF6    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9908                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
     9909   03 01DF7    22800FFF A                     IBPA,IBPB,IBPC,IBPD
     9910   03 01DF8    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9911   03 01DF9    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9912   03 01DFA    22800000 A            LI,8     0
     9913                                     PAGE
     9914                            *
     9915                            *                 MEMORY REQUEST AND REGISTER TRANSFER CONTROL TEST 2
     9916         00000091                    TESTNO
     9917   03 01DFB    352006BE     F003     STW,2    VDEC1A
     9918   03 01DFC    6AF01178              BAL,15   BOUND16
     9919   03 01DFD    32F0306F              LW,15    =X'5C00FFF0'
     9920   03 01DFE    35F002F3 A            STW,15   IOCDGEN+1
     9921   03 01DFF    22000179 A            LI,0     DA(IOCDGEN)
     9922   03 01E00    6AF00E98              BAL,15   T:EXECRS
     9923   03 01E01    00001D8A              DATA     PLF002
     9924   03 01E02    4CC00000 A            SIO,12   0
     9925   03 01E03    00001E08              DATA     ALF003
     9926   03 01E04    000025E3              DATA     MSF002
     9927   03 01E05    00001E11              DATA     CLF003
     9928   03 01E06    68001DFB              B        F003
     9929   03 01E07    68000CD1              B        RIOPEXIT
     9930                            *
     9931                            ALF003  ;
     9932   03 01E08    EC801566              RD,8     *DIOAD0TS         1
     9933   03 01E09    6AF01DA8              BAL,15   ALFXXX
     9934   03 01E0A    EC801567              RD,8     *DIOAD0TI         2
     9935   03 01E0B    6AF01DA8              BAL,15   ALFXXX
     9936   03 01E0C    EC801566              RD,8     *DIOAD0TS         3
     9937   03 01E0D    6AF01DA8              BAL,15   ALFXXX
     9938   03 01E0E    EC801567              RD,8     *DIOAD0TI         4
     9939   03 01E0F    6AF01DA8              BAL,15   ALFXXX
     9940   03 01E10    680010C1              B        XIT
     9941                            *
     9942                            *
     9943   03 01E11    224FFFFC A   CLF003   LI,4     -4
     9944   03 01E12    22601E14              LI,6     FO3STEP1
     9945   03 01E13    68001DB9              B        CLF002IN
     9946   03 01E14    22800186 A   FO3STEP1 MEPROC   MAR,MDR,MSTART,MBUSY
     9947   03 01E15    22800010 A            FULLPROC MFULL
     9948   03 01E16    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9949   03 01E17    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
     9950   03 01E18    22800000 A            LI,8     0                 JK-BP'S
     9951   03 01E19    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9952   03 01E1A    22800000 A            LI,8     0
     9953                            *
     9954   03 01E1B    22800186 A   FO3STEP2 MEPROC   MAR,MDR,MSTART,MBUSY
     9955   03 01E1C    22800008 A            FULLPROC HFULL
     9956   03 01E1D    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9957   03 01E1E    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
     9958   03 01E1F    22800000 A            LI,8     0
     9959   03 01E20    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9960   03 01E21    22800000 A            LI,8     0
     9961                            *
     9962   03 01E22    22800186 A   FO3STEP3 MEPROC   MAR,MDR,MSTART,MBUSY
     9963   03 01E23    22800018 A            FULLPROC MFULL,HFULL
     9964   03 01E24    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9965   03 01E25    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
     9966   03 01E26    22800000 A            LI,8     0
     9967   03 01E27    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9968   03 01E28    22800000 A            LI,8     0
     9969                            *
     9970   03 01E29    22800186 A   FO3STEP4 MEPROC   MAR,MDR,MSTART,MBUSY
     9971   03 01E2A    22800012 A            FULLPROC MFULL,JFULL
     9972   03 01E2B    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
     9973   03 01E2C    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
     9974   03 01E2D    228000F0 A            BYJK     JA8,JB8,JC8,JD8
     9975   03 01E2E    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
     9976   03 01E2F    22800000 A            LI,8     0
     9977                                     PAGE
     9978                            *
     9979                            *                 MEMORY REQUEST AND REGISTER TRANSFER CONTROL TEST 3
     9980         00000092                    TESTNO
     9981   03 01E30    22400003 A   F004     LI,4     3                 LOAD TEST NO.
     9982   03 01E31    2250000C A            LI,5     12                 &   BYTE ADDR BIAS
     9983   03 01E32    22601E61              LI,6     FO4STEP1          LOAD COMPARE TABLE ADDR
     9984   03 01E33    22700004 A            LI,7     4                 LOAD NO OF MEMORY REQUESTS EXP  *A03
     9985   03 01E34    68001E44              B        F00ZZZ
     9986                            *                 MEMORY REQUESTAND REGISTER TRANSFER CONTROL TEST 4
     9987         00000093                    TESTNO
     9988   03 01E35    22400004 A   F005     LI,4     4
     9989   03 01E36    22500008 A            LI,5     8
     9990   03 01E37    22601E68              LI,6     FO5STEP1
     9991   03 01E38    22700004 A            LI,7     4                 LOAD NO OF MEMORY REQUESTS EXP  *A03
     9992   03 01E39    68001E44              B        F00ZZZ
     9993                            *
     9994                            *                 MEMORY REQUEST AND REGISTER TRANSFER CONTROL TEST 5
     9995         00000094                    TESTNO
     9996   03 01E3A    22400005 A   F006     LI,4     5
     9997   03 01E3B    22500004 A            LI,5     4
     9998   03 01E3C    22601E6F              LI,6     FO6STEP1
     9999   03 01E3D    22700004 A            LI,7     4                 LOAD NO OF MEMORY REQUESTS EXP  *A03
    10000   03 01E3E    68001E44              B        F00ZZZ
    10001                            *
    10002                            *                 MEMORY REQUEST AND REGISTER TRANSFER CONTROL TEST 6
    10003         00000095                    TESTNO
    10004   03 01E3F    22400006 A   F007     LI,4     6
    10005   03 01E40    22500000 A            LI,5     0
    10006   03 01E41    22601E76              LI,6     FO7STEP1
    10007   03 01E42    22700004 A            LI,7     4
    10008   03 01E43    68001E44              B        F00ZZZ
    10009                            *
    10010                            *
    10011   03 01E44    354006BE     F00ZZZ   STW,4    VDEC1A
    10012   03 01E45    357006C9              STW,7    VDEC2B
    10013   03 01E46    6AF01178              BAL,15   BOUND16
    10014   03 01E47    665002F2 A            AWM,5    IOCDGEN
    10015   03 01E48    32F0306F              LW,15    =X'5C00FFF0'
    10016   03 01E49    35F002F3 A            STW,15   IOCDGEN+1
    10017   03 01E4A    356001CA A            STW,6    PSAVE4
    10018   03 01E4B    22000179 A   F00ZZZ1  LI,0     DA(IOCDGEN)
    10019   03 01E4C    6AF00E98              BAL,15   T:EXECRS
    10020   03 01E4D    00001E54              DATA     PLFZZZ
    10021   03 01E4E    4CC00000 A            SIO,12   0
    10022   03 01E4F    00001E59              DATA     ALFZZZ
    10023   03 01E50    0000260D              DATA     MSFZZZ
    10024   03 01E51    00001E5E              DATA     CLFZZZ
    10025   03 01E52    68001E4B              B        F00ZZZ1
    10026   03 01E53    68000CD1              B        RIOPEXIT
    10027                            *
    10028   03 01E54    6AF011C9     PLFZZZ   BAL,15   WD0GP0
    10029   03 01E55    22800001 A            WD1      TR
    10030   03 01E56    ED80155F              WD,8     *DIOAD1
    10031   03 01E57    6AF00FDD              BAL,15   CC01
    10032   03 01E58    680010C1              B        XIT
    10033                            ALFZZZ  ;
    10034   03 01E59    EC80155E              RD,8     *DIOAD0
    10035   03 01E5A    6AF00FDD              BAL,15   CC01
    10036   03 01E5B    6AF00EF1              BAL,15   COLLECT
    10037   03 01E5C    68000FDD              B        CC01
    10038   03 01E5D    680010C1              B        XIT
    10039                            *
    10040   03 01E5E    224FFFFF A   CLFZZZ   LI,4     -1
    10041   03 01E5F    326001CA A            LW,6     PSAVE4
    10042   03 01E60    68001DB9              B        CLF002IN
    10043                            *
    10044         03 00983 1         MSFZZZ   EQU      BA(MSGFZZZ)
    10045   03 01E61    22800180 A   FO4STEP1 MEPROC   MAR,MDR
    10046   03 01E62    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL                           *A03
    10047   03 01E63    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10048   03 01E64    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10049   03 01E65    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10050   03 01E66    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10051   03 01E67    22800000 A            LI,8     0
    10052                            *
    10053   03 01E68    22800180 A   FO5STEP1 MEPROC   MAR,MDR
    10054   03 01E69    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL                           *A03
    10055   03 01E6A    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10056   03 01E6B    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10057   03 01E6C    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10058   03 01E6D    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10059   03 01E6E    22800000 A            LI,8     0
    10060                            *
    10061   03 01E6F    22800180 A   FO6STEP1 MEPROC   MAR,MDR
    10062   03 01E70    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL                           *A03
    10063   03 01E71    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10064                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10065   03 01E72    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10066   03 01E73    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10067   03 01E74    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10068   03 01E75    22800000 A            LI,8     0
    10069                            *
    10070   03 01E76    22800180 A   FO7STEP1 MEPROC   MAR,MDR
    10071   03 01E77    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL
    10072   03 01E78    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10073                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10074   03 01E79    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10075   03 01E7A    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10076   03 01E7B    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10077   03 01E7C    22800000 A            LI,8     0
    10078                                     PAGE
    10079                            *
    10080                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    10081                            *                 TEST 1
    10082                            *
    10083         00000096                    TESTNO
    10084   03 01E7D    22400001 A   F008     LI,4     1                 LOAD TEST NO.
    10085   03 01E7E    22500004 A            LI,5     4                 LOAD BC
    10086   03 01E7F    68001E89              B        F00YYY
    10087                            *
    10088                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    10089                            *                 TEST 2
    10090         00000097                    TESTNO
    10091   03 01E80    22400002 A   F009     LI,4     2
    10092   03 01E81    22500008 A            LI,5     8
    10093   03 01E82    68001E89              B        F00YYY
    10094                            *
    10095                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    10096                            *                 TEST 3
    10097         00000098                    TESTNO
    10098   03 01E83    22400003 A   F010     LI,4     3
    10099   03 01E84    2250000C A            LI,5     12
    10100   03 01E85    68001E89              B        F00YYY
    10101                            *
    10102                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    10103                            *                 TEST 4
    10104         00000099                    TESTNO
    10105   03 01E86    22400004 A   F011     LI,4     4
    10106   03 01E87    22500010 A            LI,5     16
    10107   03 01E88    68001E89              B        F00YYY
    10108                            *
    10109                            *
    10110   03 01E89    354006BE     F00YYY   STW,4    VDEC1A
    10111   03 01E8A    32F03070              LW,15    =X'48000000'
    10112   03 01E8B    30F00005 A            AW,15    5
    10113   03 01E8C    355006CE              STW,5    VHEX4C
    10114   03 01E8D    32E0303C              LW,14    =X'01000000'
    10115   03 01E8E    15E002F2 A            STD,14   IOCDGEN
    10116   03 01E8F    22000179 A   F00YYY1  LI,0     DA(IOCDGEN)
    10117   03 01E90    6AF00E98              BAL,15   T:EXECRS
    10118   03 01E91    00001E54              DATA     PLFZZZ
    10119   03 01E92    4CC00000 A            SIO,12   0
    10120   03 01E93    00001EA1              DATA     ALFYYY
    10121   03 01E94    0000262F              DATA     MSFYYY
    10122   03 01E95    00001EA6              DATA     CLFYYY
    10123   03 01E96    351015A8              STW,1    TESTCONT
    10124   03 01E97    6AF00E9B     F00YYY2  BAL,15   T:CONTRS
    10125   03 01E98    00001E9F              DATA     PLFYYY1
    10126   03 01E99    4DC00000 A            TIO,12   0
    10127   03 01E9A    00000000 A            DATA     0
    10128   03 01E9B    0100262F              GEN,8,24 1,MSFYYY
    10129   03 01E9C    00001EB0              DATA     CLFYYY1
    10130   03 01E9D    68001E8F              B        F00YYY1
    10131   03 01E9E    68000CD1              B        RIOPEXIT
    10132                            *
    10133   03 01E9F    6AF011C9     PLFYYY1  BAL,15   WDGP0
    10134   03 01EA0    680010C1              B        XIT
    10135                            *
    10136   03 01EA1    EC80155E     ALFYYY   RD,8     *DIOAD0
    10137   03 01EA2    6AF00FDD              BAL,15   CC01
    10138   03 01EA3    6AF00EF1              BAL,15   COLLECT
    10139   03 01EA4    68000FDD              B        CC01
    10140   03 01EA5    680010C1              B        XIT
    10141                            *
    10142   03 01EA6    22802015 A   CLFYYY   PHPROC   PH00,PH20,DATA,BUSY
    10143   03 01EA7    6AF0114C              BAL,15   PHCOMP
    10144   03 01EA8    728602F2 A            LB,8     IOCDGEN,3
    10145   03 01EA9    508202F3 A            AH,8     IOCDGEN+1,1
    10146   03 01EAA    208FFFFC A            AI,8     -4
    10147   03 01EAB    2580007E A            SLS,8    -2
    10148   03 01EAC    6AF011AD              BAL,15   LREG
    10149   03 01EAD    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10150   03 01EAE    6AF0124F              BAL,15   BYCOUNT
    10151   03 01EAF    680010C1              B        XIT
    10152   03 01EB0    6AF01110     CLFYYY1  BAL,15   IOCOMP
    10153   03 01EB1    FFFFE000 A            DATA     X'FFFFE000'
    10154   03 01EB2    10000000 A            DATA     X'10000000'
    10155   03 01EB3    22800000 A            LI,8     0
    10156   03 01EB4    6AF0118D              BAL,15   BCCOMP
    10157   03 01EB5    680010C1              B        XIT
    10158         03 0098B 3         MSFYYY   EQU      BA(MSGFYYY0)
    10159                                     PAGE
    10160                            *
    10161                            *                 FAM COUNTERS INCREMENT TEST
    10162         00000100                    TESTNO
    10163                            F012 ;
    10164   03 01EB6    32E0303C              LW,14    =X'01000000'
    10165   03 01EB7    22F00040 A            LI,15    X'40'
    10166   03 01EB8    15E002F2 A            STD,14   IOCDGEN
    10167   03 01EB9    22000179 A            LI,0     DA(IOCDGEN)
    10168   03 01EBA    6AF00E98              BAL,15   T:EXECRS
    10169   03 01EBB    00001E54              DATA     PLFZZZ
    10170   03 01EBC    4CC00000 A            SIO,12   0
    10171   03 01EBD    00001EC2              DATA     ALF012
    10172   03 01EBE    0000264E              DATA     MSF012
    10173   03 01EBF    00001ECD              DATA     CLF012
    10174   03 01EC0    68001EB6              B        F012
    10175   03 01EC1    68000CD1              B        RIOPEXIT
    10176                            *
    10177                            *
    10178   03 01EC2    22EFFFF0 A   ALF012   LI,14    -16
    10179   03 01EC3    35E001C8 A            STW,14   PSAVE2
    10180   03 01EC4    EC80155E              RD,8     *DIOAD0
    10181   03 01EC5    6AF00FDD              BAL,15   CC01
    10182   03 01EC6    6AF00EF1              BAL,15   COLLECT
    10183   03 01EC7    68000FDD              B        CC01
    10184   03 01EC8    EC801568     ALF012X  RD,8     *DIOAD0TR
    10185   03 01EC9    6AF01DA8              BAL,15   ALFXXX
    10186   03 01ECA    331001C8 A            MTW,1    PSAVE2
    10187   03 01ECB    69301EC8              BNEZ     ALF012X
    10188   03 01ECC    680010C1              B        XIT
    10189                            *
    10190                            *
    10191   03 01ECD    224FFFEF A   CLF012   LI,4     -17
    10192   03 01ECE    22601ED0              LI,6     F12STP00
    10193   03 01ECF    68001DB9              B        CLF002IN
    10194                            *
    10195                            *
    10196         03 00993 2         MSF012   EQU      BA(MSGF0120)
    10197   03 01ED0    22800180 A   F12STP00 MEPROC   MAR,MDR
    10198   03 01ED1    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL
    10199   03 01ED2    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10200                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10201   03 01ED3    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10202   03 01ED4    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10203   03 01ED5    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10204   03 01ED6    22800000 A            LI,8     0
    10205                            *
    10206   03 01ED7    22800180 A   F12STP01 MEPROC   MAR,MDR
    10207   03 01ED8    2280000E A            FULLPROC HFULL,IFULL,JFULL
    10208   03 01ED9    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10209                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10210   03 01EDA    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10211   03 01EDB    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10212   03 01EDC    228FFFFF A            LI,8     -1
    10213   03 01EDD    22800201 A            FAMCNT   LW3,K4
    10214                            *
    10215   03 01EDE    22800180 A   F12STP02 MEPROC   MAR,MDR
    10216   03 01EDF    22800006 A            FULLPROC IFULL,JFULL
    10217   03 01EE0    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10218   03 01EE1    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10219   03 01EE2    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10220   03 01EE3    228FFFFF A            LI,8     -1
    10221   03 01EE4    22802402 A            FAMCNT   L3,LW2,K3
    10222                            *
    10223   03 01EE5    22800180 A   F12STP03 MEPROC   MAR,MDR
    10224   03 01EE6    22800002 A            FULLPROC JFULL
    10225   03 01EE7    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10226   03 01EE8    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10227   03 01EE9    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10228   03 01EEA    228FFFFF A            LI,8     -1
    10229   03 01EEB    22804603 A            FAMCNT   L2,LW2,LW3,K3,K4
    10230                            *
    10231   03 01EEC    22800180 A   F12STP04 MEPROC   MAR,MDR
    10232   03 01EED    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL
    10233   03 01EEE    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10234                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10235   03 01EEF    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10236   03 01EF0    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10237   03 01EF1    228FFFFF A            LI,8     -1
    10238   03 01EF2    22806804 A            FAMCNT   L2,L3,LW1,K2
    10239                            *
    10240   03 01EF3    22800180 A   F12STP05 MEPROC   MAR,MDR
    10241   03 01EF4    2280000E A            FULLPROC HFULL,IFULL,JFULL
    10242   03 01EF5    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10243                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10244   03 01EF6    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10245   03 01EF7    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10246   03 01EF8    228FFFFF A            LI,8     -1
    10247   03 01EF9    22808A05 A            FAMCNT   L1,LW1,LW3,K2,K4
    10248                            *
    10249   03 01EFA    22800180 A   F12STP06 MEPROC   MAR,MDR
    10250   03 01EFB    22800006 A            FULLPROC IFULL,JFULL
    10251   03 01EFC    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10252   03 01EFD    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10253   03 01EFE    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10254   03 01EFF    228FFFFF A            LI,8     -1
    10255   03 01F00    2280AC06 A            FAMCNT   L1,L3,LW1,LW2,K2,K3
    10256                            *
    10257   03 01F01    22800180 A   F12STP07 MEPROC   MAR,MDR
    10258   03 01F02    22800002 A            FULLPROC JFULL
    10259   03 01F03    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10260   03 01F04    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10261   03 01F05    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10262   03 01F06    228FFFFF A            LI,8     -1
    10263   03 01F07    2280CE07 A            FAMCNT   L1,L2,LW1,LW2,LW3,K2,K3,K4
    10264                            *
    10265   03 01F08    22800180 A   F12STP08 MEPROC   MAR,MDR
    10266   03 01F09    2280001E A            FULLPROC MFULL,HFULL,IFULL,JFULL
    10267   03 01F0A    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10268                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10269   03 01F0B    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10270   03 01F0C    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10271   03 01F0D    228FFFFF A            LI,8     -1
    10272   03 01F0E    2280F008 A            FAMCNT   L1,L2,L3,LW0,K1
    10273                            *
    10274   03 01F0F    22800180 A   F12STP09 MEPROC   MAR,MDR
    10275   03 01F10    2280000E A            FULLPROC HFULL,IFULL,JFULL
    10276   03 01F11    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10277                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10278   03 01F12    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10279   03 01F13    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10280   03 01F14    228FFFFF A            LI,8     -1
    10281   03 01F15    22811209 A            FAMCNT   L0,LW0,LW3,K1,K4
    10282                            *
    10283   03 01F16    22800180 A   F12STP10 MEPROC   MAR,MDR
    10284   03 01F17    22800006 A            FULLPROC IFULL,JFULL
    10285   03 01F18    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10286   03 01F19    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10287   03 01F1A    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10288   03 01F1B    228FFFFF A            LI,8     -1
    10289   03 01F1C    2281340A A            FAMCNT   L0,L3,LW0,LW2,K1,K3
    10290                            *
    10291   03 01F1D    22800180 A   F12STP11 MEPROC   MAR,MDR
    10292   03 01F1E    22800002 A            FULLPROC JFULL
    10293   03 01F1F    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10294   03 01F20    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10295   03 01F21    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10296   03 01F22    228FFFFF A            LI,8     -1
    10297   03 01F23    2281560B A            FAMCNT   L0,L2,LW0,LW2,LW3,K1,K3,K4
    10298                            *
    10299   03 01F24    22800180 A   F12STP12 MEPROC   MAR,MDR
    10300   03 01F25    22800002 A            FULLPROC JFULL
    10301   03 01F26    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10302                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10303   03 01F27    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10304   03 01F28    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10305   03 01F29    228FFFFF A            LI,8     -1
    10306   03 01F2A    2281780C A            FAMCNT   L0,L2,L3,LW0,LW1,K1,K2
    10307                            *
    10308   03 01F2B    22800180 A   F12STP13 MEPROC   MAR,MDR
    10309   03 01F2C    22800002 A            FULLPROC JFULL
    10310   03 01F2D    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10311                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10312   03 01F2E    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10313   03 01F2F    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10314   03 01F30    228FFFFF A            LI,8     -1
    10315   03 01F31    22819A0D A            FAMCNT   L0,L1,LW0,LW1,LW3,K1,K2,K4
    10316                            *
    10317   03 01F32    22800180 A   F12STP14 MEPROC   MAR,MDR
    10318   03 01F33    22800002 A            FULLPROC JFULL
    10319   03 01F34    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10320   03 01F35    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10321   03 01F36    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10322   03 01F37    228FFFFF A            LI,8     -1
    10323   03 01F38    2281BC0E A            FAMCNT   L0,L1,L3,LW0,LW1,LW2,K1,K2,K3
    10324                            *
    10325   03 01F39    22800180 A   F12STP15 MEPROC   MAR,MDR
    10326   03 01F3A    22800002 A            FULLPROC JFULL
    10327   03 01F3B    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10328   03 01F3C    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10329   03 01F3D    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10330   03 01F3E    228FFFFF A            LI,8     -1
    10331   03 01F3F    2281DE0F A            FAMCNT   L0,L1,L2,LW0,LW1,LW2,LW3,K1,K2,K3,K4
    10332                            *
    10333   03 01F40    22800180 A   F12STP16 MEPROC   MAR,MDR
    10334   03 01F41    22800000 A            LI,8     0
    10335   03 01F42    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10336   03 01F43    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10337   03 01F44    22800000 A            LI,8     0
    10338   03 01F45    228FFFFF A            LI,8     -1
    10339   03 01F46    2281E010 A            FAMCNT   L0,L1,L2,L3,K0
    10340                                     PAGE
    10341                            *
    10342                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    10343                            *                 TEST 5  (64=<BC=<64K, 0=<MBA=<64K)
    10344         00000101                    TESTNO
    10345   03 01F47    22400005 A   F013     LI,4     5
    10346   03 01F48    354006BE              STW,4    VDEC1A
    10347   03 01F49    32E03071              LW,14    =X'01000004'
    10348   03 01F4A    32F03072              LW,15    =X'40000040'      IZC,BC=64
    10349   03 01F4B    68001F4F              B        F013X
    10350   03 01F4C    12E002F2 A   F013XX   LD,14    IOCDGEN
    10351   03 01F4D    4BF03029              AND,15   =X'00FFFFFF'
    10352   03 01F4E    30F002F3 A            AW,15    IOCDGEN+1
    10353   03 01F4F    15E002F2 A   F013X    STD,14   IOCDGEN
    10354   03 01F50    4BF03029              AND,15   =X'00FFFFFF'
    10355   03 01F51    35F0158F              STW,15   MBADDR
    10356   03 01F52    21F10000 A            CI,15    1**16
    10357   03 01F53    68100CD1              BGE      RIOPEXIT
    10358   03 01F54    35F006CE              STW,15   VHEX4C
    10359   03 01F55    6AF01F57              BAL,15   F013Y
    10360   03 01F56    68001F4C              B        F013XX
    10361   03 01F57    35F01F68     F013Y    STW,15   PTESTRTN
    10362   03 01F58    22000179 A   F013YY   LI,0     DA(IOCDGEN)
    10363   03 01F59    6AF00E98              BAL,15   T:EXECRS
    10364   03 01F5A    00001E9F              DATA     PLFYYY1
    10365   03 01F5B    4CC00000 A            SIO,12   0
    10366   03 01F5C    00001F69              DATA     ALF013
    10367   03 01F5D    0000262F              DATA     MSFYYY
    10368   03 01F5E    00001F6F              DATA     CLF013
    10369   03 01F5F    68001F58              B        F013YY
    10370   03 01F60    6AF00E98              BAL,15   T:EXECRS
    10371   03 01F61    00001E9F              DATA     PLFYYY1
    10372   03 01F62    4DC00000 A            TIO,12   0
    10373   03 01F63    00000000 A            DATA     0
    10374   03 01F64    0100262F              GEN,8,24 1,MSFYYY
    10375   03 01F65    00001EB0              DATA     CLFYYY1
    10376   03 01F66    68001F58              B        F013YY
    10377   03 01F67    E8001F68              B        *PTESTRTN
    10378   03 01F68    00000000 A   PTESTRTN DATA     0
    10379   03 01F69    52E202F3 A   ALF013   LH,14    IOCDGEN+1,1       LOAD BYTE COUNT
    10380   03 01F6A    69201F6C              BGZ      %+2
    10381   03 01F6B    22E10000 A            LI,14    X'10000'          IF NEGATIVE OR ZERO FORCE POSITIVE
    10382   03 01F6C    25E00340 A            SCD,14   64                KILL
    10383   03 01F6D    64E01F6C              BDR,14   %-1                  SOME TIME
    10384   03 01F6E    68001822              B        ALP0X0
    10385                            *
    10386                            *
    10387   03 01F6F    22802000 A   CLF013   PHPROC   PH00
    10388   03 01F70    6AF0114C              BAL,15   PHCOMP
    10389   03 01F71    22800180 A            MEPROC   MAR,MDR
    10390   03 01F72    6AF011A3              BAL,15   MECOMP
    10391   03 01F73    3280158F              LW,8     MBADDR
    10392   03 01F74    2580007E A            SLS,8    -2
    10393   03 01F75    6AF011AD              BAL,15   LREG
    10394   03 01F76    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10395   03 01F77    6AF0124F              BAL,15   BYCOUNT
    10396   03 01F78    680010C1              B        XIT
    10397                                     PAGE
    10398                            *
    10399                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    10400                            *                 TEST 6 (1=<BC=<7, 0=<MBA=<3)
    10401         00000102                    TESTNO
    10402   03 01F79    22400006 A   F015     LI,4     6
    10403   03 01F7A    354006BE              STW,4    VDEC1A                TEST
    10404   03 01F7B    224FFFFF A            LI,4     -1
    10405   03 01F7C    354001C3 A            STW,4    PINDEX
    10406   03 01F7D    331001C3 A   F015X    MTW,1    PINDEX
    10407   03 01F7E    35101592              STW,1    PARTING
    10408   03 01F7F    324001C3 A            LW,4     PINDEX
    10409   03 01F80    21400010 A            CI,4     16
    10410   03 01F81    68100CD1              BGE      RIOPEXIT
    10411   03 01F82    12E8161E              LD,14    FIOCD01,4
    10412   03 01F83    15E002F2 A            STD,14   IOCDGEN
    10413   03 01F84    751002F2 A            STB,1    IOCDGEN           SET WRITE
    10414   03 01F85    35F006CE              STW,15   VHEX4C
    10415   03 01F86    22000179 A   F015Y    LI,0     DA(IOCDGEN)
    10416   03 01F87    6AF00E98              BAL,15   T:EXECRS
    10417   03 01F88    00001E54              DATA     PLFZZZ
    10418   03 01F89    4CC00000 A            SIO,12   0
    10419   03 01F8A    00001E59              DATA     ALFZZZ
    10420   03 01F8B    0000260D              DATA     MSFZZZ
    10421   03 01F8C    00001F96              DATA     CLF015
    10422   03 01F8D    68001F86              B        F015Y
    10423   03 01F8E    6AF00E98              BAL,15   T:EXECRS
    10424   03 01F8F    00001E9F              DATA     PLFYYY1
    10425   03 01F90    4DC00000 A            TIO,12   0
    10426   03 01F91    00000000 A            DATA     0
    10427   03 01F92    0100260D              GEN,8,24 1,MSFZZZ
    10428   03 01F93    00001EB0              DATA     CLFYYY1
    10429   03 01F94    68001F86              B        F015Y
    10430   03 01F95    68001F7D              B        F015X
    10431                            *
    10432   03 01F96    325001C3 A   CLF015   LW,5     PINDEX
    10433   03 01F97    22400000 A            LI,4     0
    10434   03 01F98    23400007 A            MI,4     7
    10435   03 01F99    20501F9D              AI,5     F14STP01
    10436   03 01F9A    32600005 A            LW,6     5
    10437   03 01F9B    6AF012DB              BAL,15   RECOMP
    10438   03 01F9C    680010C1              B        XIT
    10439                            *
    10440                            *
    10441   03 01F9D    22800180 A   F14STP01 MEPROC   MAR,MDR
    10442   03 01F9E    22800002 A            FULLPROC JFULL
    10443   03 01F9F    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10444                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10445   03 01FA0    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10446   03 01FA1    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10447   03 01FA2    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10448   03 01FA3    22800000 A            LI,8     0
    10449                            *
    10450   03 01FA4    22800180 A   F14STP02 MEPROC   MAR,MDR
    10451   03 01FA5    22800006 A            FULLPROC IFULL,JFULL
    10452   03 01FA6    22800022 A            BYPROC   BPA,BCZ
    10453   03 01FA7    22800888 A            BYMHI    MBPA,HBPA,IBPA
    10454   03 01FA8    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10455   03 01FA9    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10456   03 01FAA    22800000 A            LI,8     0
    10457                            *
    10458   03 01FAB    22800180 A   F14STP03 MEPROC   MAR,MDR
    10459   03 01FAC    22800006 A            FULLPROC IFULL,JFULL
    10460   03 01FAD    22800032 A            BYPROC   BPA,BPB,BCZ
    10461   03 01FAE    22800CCC A            BYMHI    MBPA,MBPB,HBPA,HBPB,IBPA,IBPB
    10462   03 01FAF    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10463   03 01FB0    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10464   03 01FB1    22800000 A            LI,8     0
    10465                            *
    10466   03 01FB2    22800180 A   F14STP04 MEPROC   MAR,MDR
    10467   03 01FB3    22800006 A            FULLPROC IFULL,JFULL
    10468   03 01FB4    2280003A A            BYPROC   BPA,BPB,BPC,BCZ
    10469   03 01FB5    22800EEE A            BYMHI    MBPA,MBPB,MBPC,HBPA,HBPB,HBPC,IBPA,IBPB,IBPC
    10470   03 01FB6    228000F0 A            BYJK     JA8,JB8,JC8,JD8
    10471   03 01FB7    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10472   03 01FB8    22800000 A            LI,8     0
    10473                            *
    10474   03 01FB9    22800180 A   F14STP05 MEPROC   MAR,MDR
    10475   03 01FBA    22800006 A            FULLPROC IFULL,JFULL
    10476   03 01FBB    22800022 A            BYPROC   BPA,BCZ
    10477   03 01FBC    22800888 A            BYMHI    MBPA,HBPA,IBPA
    10478   03 01FBD    22800070 A            BYJK     JB8,JC8,JD8
    10479   03 01FBE    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10480   03 01FBF    22800000 A            LI,8     0
    10481                            *
    10482   03 01FC0    22800180 A   F14STP06 MEPROC   MAR,MDR
    10483   03 01FC1    22800006 A            FULLPROC IFULL,JFULL
    10484   03 01FC2    22800032 A            BYPROC   BPA,BPB,BCZ
    10485   03 01FC3    22800CCC A            BYMHI    MBPA,MBPB,HBPA,HBPB,IBPA,IBPB
    10486   03 01FC4    22800070 A            BYJK     JB8,JC8,JD8
    10487   03 01FC5    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10488   03 01FC6    22800000 A            LI,8     0
    10489                            *
    10490   03 01FC7    22800180 A   F14STP07 MEPROC   MAR,MDR
    10491   03 01FC8    22800006 A            FULLPROC IFULL,JFULL
    10492   03 01FC9    2280003A A            BYPROC   BPA,BPB,BPC,BCZ
    10493   03 01FCA    22800EEE A            BYMHI    MBPA,MBPB,MBPC,HBPA,HBPB,HBPC,IBPA,IBPB,IBPC
    10494   03 01FCB    22800070 A            BYJK     JB8,JC8,JD8
    10495   03 01FCC    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10496   03 01FCD    22800000 A            LI,8     0
    10497                            *
    10498   03 01FCE    22800180 A   F14STP08 MEPROC   MAR,MDR
    10499   03 01FCF    22800006 A            FULLPROC IFULL,JFULL
    10500   03 01FD0    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10501                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10502   03 01FD1    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10503   03 01FD2    22800070 A            BYJK     JB8,JC8,JD8
    10504   03 01FD3    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10505   03 01FD4    22800000 A            LI,8     0
    10506                            *
    10507   03 01FD5    22800180 A   F14STP09 MEPROC   MAR,MDR
    10508   03 01FD6    22800006 A            FULLPROC IFULL,JFULL
    10509   03 01FD7    22800032 A            BYPROC   BPA,BPB,BCZ
    10510   03 01FD8    22800CCC A            BYMHI    MBPA,MBPB,HBPA,HBPB,IBPA,IBPB
    10511   03 01FD9    22800030 A            BYJK     JC8,JD8
    10512   03 01FDA    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10513   03 01FDB    22800000 A            LI,8     0
    10514                            *
    10515   03 01FDC    22800180 A   F14STP10 MEPROC   MAR,MDR
    10516   03 01FDD    22800006 A            FULLPROC IFULL,JFULL
    10517   03 01FDE    2280003A A            BYPROC   BPA,BPB,BPC,BCZ
    10518   03 01FDF    22800EEE A            BYMHI    MBPA,MBPB,MBPC,HBPA,HBPB,HBPC,IBPA,IBPB,IBPC
    10519   03 01FE0    22800030 A            BYJK     JC8,JD8
    10520   03 01FE1    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10521   03 01FE2    22800000 A            LI,8     0
    10522                            *
    10523   03 01FE3    22800180 A   F14STP11 MEPROC   MAR,MDR
    10524   03 01FE4    22800006 A            FULLPROC IFULL,JFULL
    10525   03 01FE5    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10526                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10527   03 01FE6    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10528   03 01FE7    22800030 A            BYJK     JC8,JD8
    10529   03 01FE8    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10530   03 01FE9    22800000 A            LI,8     0
    10531                            *
    10532   03 01FEA    22800180 A   F14STP12 MEPROC   MAR,MDR
    10533   03 01FEB    2280000E A            FULLPROC HFULL,IFULL,JFULL
    10534   03 01FEC    22800022 A            BYPROC   BPA,BCZ
    10535   03 01FED    2280088F A            BYMHI    MBPA,HBPA,IBPA,IBPB,IBPC,IBPD
    10536   03 01FEE    22800030 A            BYJK     JC8,JD8
    10537   03 01FEF    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10538   03 01FF0    22800000 A            LI,8     0
    10539                            *
    10540   03 01FF1    22800180 A   F14STP13 MEPROC   MAR,MDR
    10541   03 01FF2    22800006 A            FULLPROC IFULL,JFULL
    10542   03 01FF3    2280003A A            BYPROC   BPA,BPB,BPC,BCZ
    10543   03 01FF4    22800EEE A            BYMHI    MBPA,MBPB,MBPC,HBPA,HBPB,HBPC,IBPA,IBPB,IBPC
    10544   03 01FF5    22800010 A            BYJK     JD8
    10545   03 01FF6    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10546   03 01FF7    22800000 A            LI,8     0
    10547                            *
    10548   03 01FF8    22800180 A   F14STP14 MEPROC   MAR,MDR
    10549   03 01FF9    22800006 A            FULLPROC IFULL,JFULL
    10550   03 01FFA    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    10551                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10552   03 01FFB    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10553   03 01FFC    22800010 A            BYJK     JD8
    10554   03 01FFD    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10555   03 01FFE    22800000 A            LI,8     0
    10556                            *
    10557   03 01FFF    22800180 A   F14STP15 MEPROC   MAR,MDR
    10558   03 02000    2280000E A            FULLPROC HFULL,IFULL,JFULL
    10559   03 02001    22800022 A            BYPROC   BPA,BCZ
    10560   03 02002    2280088F A            BYMHI    MBPA,HBPA,IBPA,IBPB,IBPC,IBPD
    10561   03 02003    22800010 A            BYJK     JD8
    10562   03 02004    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10563   03 02005    22800000 A            LI,8     0
    10564                            *
    10565   03 02006    22800180 A   F14STP16 MEPROC   MAR,MDR
    10566   03 02007    2280000E A            FULLPROC HFULL,IFULL,JFULL
    10567   03 02008    22800032 A            BYPROC   BPA,BPB,BCZ
    10568   03 02009    22800CCF A            BYMHI    MBPA,MBPB,HBPA,HBPB,IBPA,IBPB,IBPC,IBPD
    10569   03 0200A    22800010 A            BYJK     JD8
    10570   03 0200B    22801FE0 A            FAMCNT   LW0,LW1,LW2,LW3,LR0,LR1,LR2,LR3
    10571   03 0200C    22800000 A            LI,8     0
    10572                            *
    10573                                     PAGE
    10574                            *                 FREE RUNNING WRITE TEST
    10575                            *
    10576         00000103                    TESTNO
    10577   03 0200D    6AF012AD     F016     BAL,15   SETREAD
    10578   03 0200E    00002671              DATA     MSF016
    10579   03 0200F    68000CD1              B        RIOPEXIT
    10580                            *
    10581                            *
    10582   03 02010    35F015AC     SETWRITE STW,15   PSAVERTN
    10583   03 02011    32E002CB A            LW,14    :PATBFR
    10584   03 02012    32F002CC A            LW,15    :PATWC
    10585   03 02013    25E00102 A            SLD,14   2
    10586   03 02014    7510000E A            STB,1    14
    10587   03 02015    30F03073              AW,15    =X'5C000000'
    10588   03 02016    15E002F2 A            STD,14   IOCDGEN
    10589   03 02017    6AF02EEB              BAL,15   :PATTERN
    10590   03 02018    22000179 A   F016X    LI,0     DA(IOCDGEN)
    10591   03 02019    6AF00E98              BAL,15   T:EXECRS
    10592   03 0201A    00001E9F              DATA     PLFYYY1
    10593   03 0201B    4CC00000 A            SIO,12   0
    10594   03 0201C    00002021              DATA     ALF016
    10595   03 0201D    00000000 A   F016XMSG DATA     0
    10596   03 0201E    00002023              DATA     CLF016
    10597   03 0201F    68002018              B        F016X
    10598   03 02020    E80015AC              B        *PSAVERTN
    10599                            *
    10600   03 02021    6AF012F6     ALF016   BAL,15   ALFUNCT
    10601   03 02022    00002025              DATA     CLFT016
    10602                            *
    10603   03 02023    6AF01345     CLF016   BAL,15   CLISTI
    10604   03 02024    680010C1              B        XIT
    10605                            *
    10606   03 02025    90004001 A   CLFT016  CHCKTIO  X'90004000'
    10607   03 02026    00000020 A            CHCKBC   0                 BC
    10608   03 02027    00004002 A            CHCKTDV  X'00004000'
    10609   03 02028    00304086 A            CHCKAIO *X'00304000'
    10610         03 0099C 1         MSF016   EQU      BA(MSGF0160)
    10611                                     PAGE
    10612                            *
    10613                            *                 FAM REQUEST  AND REGISTER TRANSFER CONTROL TEST 1
    10614         00000104                    TESTNO
    10615   03 02029    351006BE     F018     STW,1    VDEC1A
    10616   03 0202A    6AF012AD              BAL,15   SETREAD
    10617   03 0202B    00002691              DATA     MSF018
    10618   03 0202C    22F00030 A            LI,15    48
    10619   03 0202D    66F002F3 A            AWM,15   IOCDGEN+1
    10620   03 0202E    6AF00E9D              BAL,15   T:EXEC
    10621   03 0202F    00001D8A              DATA     PLF002
    10622   03 02030    4CC00000 A            SIO,12   0
    10623   03 02031    00002036              DATA     ALF018
    10624   03 02032    01002691              GEN,8,24 1,MSF018
    10625   03 02033    00002049              DATA     CLF018
    10626   03 02034    68002029              B        F018
    10627   03 02035    68000CD1              B        RIOPEXIT
    10628                            *
    10629                            *
    10630                            ALF018   ;
    10631   03 02036    EC801568              RD,8     *DIOAD0TR         STEP 1 (TR)
    10632   03 02037    6AF01DA8              BAL,15   ALFXXX
    10633   03 02038    EC801567              RD,8     *DIOAD0TI         STEP 2 (TI)
    10634   03 02039    6AF01DA8              BAL,15   ALFXXX
    10635   03 0203A    EC801567              RD,8     *DIOAD0TI         STEP 3 (TI)
    10636   03 0203B    6AF01DA8              BAL,15   ALFXXX
    10637   03 0203C    EC801568              RD,8     *DIOAD0TR         STEP 4 (TR)
    10638   03 0203D    6AF01DA8              BAL,15   ALFXXX
    10639   03 0203E    EC801567              RD,8     *DIOAD0TI         STEP 5 (TI)
    10640   03 0203F    6AF01DA8              BAL,15   ALFXXX
    10641   03 02040    EC801567              RD,8     *DIOAD0TI         STEP 6 (TI)
    10642   03 02041    6AF01DA8              BAL,15   ALFXXX
    10643   03 02042    EC801568              RD,8     *DIOAD0TR         STEP 7 (TR)
    10644   03 02043    6AF01DA8              BAL,15   ALFXXX
    10645   03 02044    EC801567              RD,8     *DIOAD0TI         STEP 8 (TI)
    10646   03 02045    6AF01DA8              BAL,15   ALFXXX
    10647   03 02046    EC801568              RD,8     *DIOAD0TR         STEP 9 (TR)
    10648   03 02047    6AF01DA8              BAL,15   ALFXXX
    10649   03 02048    680010C1              B        XIT
    10650                            *
    10651   03 02049    224FFFF7 A   CLF018   LI,4     -9
    10652   03 0204A    22602050     CLF018A  LI,6     F18STP01
    10653         03 0204B           CLF018IN EQU      %
    10654   03 0204B    6AF012DB     CLF018X  BAL,15   RECOMP
    10655   03 0204C    2280000F A            BYR      RA8,RB8,RC8,RD8
    10656   03 0204D    6AF0126F              BAL,15   FAMPRES
    10657   03 0204E    6540204B              BIR,4    CLF018X
    10658   03 0204F    680010C1              B        XIT
    10659         03 009A4 1         MSF018   EQU      BA(MSGF0180)
    10660   03 02050    22800180 A   F18STP01 MEPROC   MAR,MDR
    10661   03 02051    22800001 A            FULLPROC KFULL
    10662   03 02052    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10663   03 02053    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10664   03 02054    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10665   03 02055    228FFFFF A            LI,8     -1
    10666   03 02056    2280003F A            FAMCNT   LR3,K0,K1,K2,K3,K4
    10667                            *
    10668   03 02057    22800180 A   F18STP02 MEPROC   MAR,MDR
    10669   03 02058    22800004 A            FULLPROC IFULL
    10670   03 02059    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10671   03 0205A    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10672   03 0205B    22800000 A            LI,8     0
    10673   03 0205C    228FFFFF A            LI,8     -1
    10674   03 0205D    2280003F A            FAMCNT   LR3,K0,K1,K2,K3,K4
    10675                            *
    10676   03 0205E    22800180 A   F18STP03 MEPROC   MAR,MDR
    10677   03 0205F    22800010 A            FULLPROC MFULL
    10678   03 02060    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10679   03 02061    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10680   03 02062    22800000 A            LI,8     0
    10681   03 02063    228FFFFF A            LI,8     -1
    10682   03 02064    2280003F A            FAMCNT   LR3,K0,K1,K2,K3,K4
    10683                            *
    10684   03 02065    22800180 A   F18STP04 MEPROC   MAR,MDR
    10685   03 02066    22800011 A            FULLPROC MFULL,KFULL
    10686   03 02067    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10687   03 02068    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10688   03 02069    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10689   03 0206A    228FFFFF A            LI,8     -1
    10690   03 0206B    2280205E A            FAMCNT   L3,LR2,K0,K1,K2,K3
    10691                            *
    10692   03 0206C    22800180 A   F18STP05 MEPROC   MAR,MDR
    10693   03 0206D    22800014 A            FULLPROC MFULL,IFULL
    10694   03 0206E    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10695   03 0206F    22800F0F A            BYMHI    MBPA,MBPB,MBPC,MBPD,IBPA,IBPB,IBPC,IBPD
    10696   03 02070    22800000 A            LI,8     0
    10697   03 02071    228FFFFF A            LI,8     -1
    10698   03 02072    2280205E A            FAMCNT   L3,LR2,K0,K1,K2,K3
    10699                            *
    10700   03 02073    22800180 A   F18STP06 MEPROC   MAR,MDR
    10701   03 02074    22800018 A            FULLPROC MFULL,HFULL
    10702   03 02075    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10703   03 02076    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
    10704   03 02077    22800000 A            LI,8     0
    10705   03 02078    228FFFFF A            LI,8     -1
    10706   03 02079    2280205E A            FAMCNT   L3,LR2,K0,K1,K2,K3
    10707                            *
    10708   03 0207A    22800180 A   F18STP07 MEPROC   MAR,MDR
    10709   03 0207B    22800019 A            FULLPROC MFULL,HFULL,KFULL
    10710   03 0207C    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10711   03 0207D    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
    10712   03 0207E    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10713   03 0207F    228FFFFF A            LI,8     -1
    10714   03 02080    2280407D A            FAMCNT   L2,LR2,LR3,K0,K1,K2,K4
    10715                            *
    10716   03 02081    22800180 A   F18STP08 MEPROC   MAR,MDR
    10717   03 02082    2280001C A            FULLPROC MFULL,HFULL,IFULL
    10718   03 02083    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10719                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10720   03 02084    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10721   03 02085    22800000 A            LI,8     0
    10722   03 02086    228FFFFF A            LI,8     -1
    10723   03 02087    2280407D A            FAMCNT   L2,LR2,LR3,K0,K1,K2,K4
    10724                            *
    10725   03 02088    22800184 A   F18STP09 MEPROC   MAR,MDR,MSTART
    10726   03 02089    2280001D A            FULLPROC MFULL,HFULL,IFULL,KFULL
    10727   03 0208A    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10728                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10729   03 0208B    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10730   03 0208C    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10731   03 0208D    228FFFFF A            LI,8     -1
    10732   03 0208E    2280609C A            FAMCNT   L2,L3,LR1,K0,K1,K2
    10733                            *
    10734                                     PAGE
    10735                            *                 FAM REQUEST AND REGISTER TRANSFER CONTROL TEST 2
    10736                            *
    10737         00000105                    TESTNO
    10738   03 0208F    352006BE     F019     STW,2    VDEC1A
    10739   03 02090    6AF012AD              BAL,15   SETREAD
    10740   03 02091    00002691              DATA     MSF018
    10741   03 02092    6AF00E9D              BAL,15   T:EXEC
    10742   03 02093    00001D8A              DATA     PLF002
    10743   03 02094    4CC00000 A            SIO,12   0
    10744   03 02095    0000209A              DATA     ALF019
    10745   03 02096    01002691              GEN,8,24 1,MSF018
    10746   03 02097    000020A3              DATA     CLF019
    10747   03 02098    6800208F              B        F019
    10748   03 02099    68000CD1              B        RIOPEXIT
    10749                            *
    10750                            *
    10751                            ALF019  ;
    10752   03 0209A    EC801568              RD,8     *DIOAD0TR         STEP 1 (TR)
    10753   03 0209B    6AF01DA8              BAL,15   ALFXXX
    10754   03 0209C    EC801567              RD,8     *DIOAD0TI         STEP 2 (TI)
    10755   03 0209D    6AF01DA8              BAL,15   ALFXXX
    10756   03 0209E    EC801568              RD,8     *DIOAD0TR         STEP 3 (TR)
    10757   03 0209F    6AF01DA8              BAL,15   ALFXXX
    10758   03 020A0    EC801567              RD,8     *DIOAD0TI         STEP 4 (TI)
    10759   03 020A1    6AF01DA8              BAL,15   ALFXXX
    10760   03 020A2    680010C1              B        XIT
    10761                            *
    10762   03 020A3    224FFFFC A   CLF019   LI,4     -4
    10763   03 020A4    226020A6              LI,6     F19STP01
    10764   03 020A5    6800204B              B        CLF018IN
    10765                            *
    10766   03 020A6    22800180 A   F19STP01 MEPROC   MAR,MDR
    10767   03 020A7    22800001 A            FULLPROC KFULL
    10768   03 020A8    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10769   03 020A9    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10770   03 020AA    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10771   03 020AB    228FFFFF A            LI,8     -1
    10772   03 020AC    2280003F A            FAMCNT   LR3,K0,K1,K2,K3,K4
    10773                            *
    10774   03 020AD    22800180 A   F19STP02 MEPROC   MAR,MDR
    10775   03 020AE    22800004 A            FULLPROC IFULL
    10776   03 020AF    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10777   03 020B0    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10778   03 020B1    22800000 A            LI,8     0
    10779   03 020B2    228FFFFF A            LI,8     -1
    10780   03 020B3    2280003F A            FAMCNT   LR3,K0,K1,K2,K3,K4
    10781                            *
    10782   03 020B4    22800180 A   F19STP03 MEPROC   MAR,MDR
    10783   03 020B5    22800005 A            FULLPROC KFULL,IFULL
    10784   03 020B6    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10785   03 020B7    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10786   03 020B8    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10787   03 020B9    228FFFFF A            LI,8     -1
    10788   03 020BA    2280205E A            FAMCNT   L3,LR2,K0,K1,K2,K3
    10789                            *
    10790   03 020BB    22800180 A   F19STP04 MEPROC   MAR,MDR
    10791   03 020BC    22800011 A            FULLPROC MFULL,KFULL
    10792   03 020BD    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10793   03 020BE    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10794   03 020BF    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10795   03 020C0    228FFFFF A            LI,8     -1
    10796   03 020C1    2280205E A            FAMCNT   L3,LR2,K0,K1,K2,K3
    10797                                     PAGE
    10798                            *
    10799                            *                 DATA IN MEMORY ACCESS TEST 1
    10800         00000106                    TESTNO
    10801   03 020C2    351006BE     F020     STW,1    VDEC1A
    10802   03 020C3    6AF012AD              BAL,15   SETREAD
    10803   03 020C4    000026C1              DATA     MSF020
    10804   03 020C5    22F00030 A            LI,15    48
    10805   03 020C6    66F002F3 A            AWM,15   IOCDGEN+1
    10806   03 020C7    6AF00E9D              BAL,15   T:EXEC
    10807   03 020C8    00001D52              DATA     PLF001
    10808   03 020C9    4CC00000 A            SIO,12   0
    10809   03 020CA    00002036              DATA     ALF018
    10810   03 020CB    010026C1              GEN,8,24 1,MSF020
    10811   03 020CC    000020CF              DATA     CLF020
    10812   03 020CD    680020C2              B        F020
    10813   03 020CE    68000CD1              B        RIOPEXIT
    10814                            *
    10815   03 020CF    224FFFF7 A   CLF020   LI,4     -9
    10816   03 020D0    22602050              LI,6     F18STP01
    10817   03 020D1    680020D4     CLF020IN B        %+3
    10818   03 020D2    2280000F A   CLF020X  BYR      RA8,RB8,RC8,RD8
    10819   03 020D3    6AF0126F              BAL,15   FAMPRES
    10820   03 020D4    654020D6              BIR,4    CLF020Y
    10821   03 020D5    226020DA              LI,6     F20STP09
    10822   03 020D6    6AF012DB     CLF020Y  BAL,15   RECOMP
    10823   03 020D7    20400000 A            AI,4     0
    10824   03 020D8    683010C1              BEZ      XIT
    10825   03 020D9    680020D2              B        CLF020X
    10826                            *
    10827         03 009B0 1         MSF020   EQU      BA(MSGF0200)
    10828                            *
    10829   03 020DA    22800184 A   F20STP09 MEPROC   MAR,MDR,MSTART
    10830   03 020DB    2280001D A            FULLPROC MFULL,HFULL,IFULL,KFULL
    10831   03 020DC    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10832   03 020DD    22800000 A            LI,8     0
    10833   03 020DE    2280000F A            BYJK     KA8,KB8,KC8,KD8
    10834   03 020DF    228FFFFF A            LI,8     -1
    10835   03 020E0    2280609C A            FAMCNT   L2,L3,LR1,K0,K1,K2
    10836                                     PAGE
    10837                            *
    10838                            *                 FAM COUNTERS DECREMENT AND FAM BYTE PRESENCE TEST
    10839         00000107                    TESTNO
    10840                            F022 ;
    10841   03 020E1    6AF012AD              BAL,15   SETREAD
    10842   03 020E2    000026D7              DATA     MSF022
    10843   03 020E3    6AF00E9D              BAL,15   T:EXEC
    10844   03 020E4    000020EB              DATA     PLF022
    10845   03 020E5    4CC00000 A            SIO,12   0
    10846   03 020E6    00001EC2              DATA     ALF012
    10847   03 020E7    010026D7              GEN,8,24 1,MSF022
    10848   03 020E8    000020F0              DATA     CLF022
    10849   03 020E9    680020E1              B        F022
    10850   03 020EA    68000CD1              B        RIOPEXIT
    10851                            *
    10852   03 020EB    6AF011C9     PLF022   BAL,15   WD0GP0
    10853   03 020EC    22800001 A            WD1      TR
    10854   03 020ED    ED80155F              WD,8     *DIOAD1
    10855   03 020EE    6AF00FDD              BAL,15   CC01
    10856   03 020EF    680010C1              B        XIT
    10857                            *
    10858                            *
    10859   03 020F0    224FFFEF A   CLF022   LI,4     -17
    10860   03 020F1    226020F3              LI,6     F22STP00
    10861   03 020F2    6800204B              B        CLF018IN
    10862                            *
    10863         03 009B5 3         MSF022   EQU      BA(MSGF0220)
    10864                            *
    10865   03 020F3    22800180 A   F22STP00 MEPROC   MAR,MDR
    10866   03 020F4    22800000 A            LI,8     0
    10867   03 020F5    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10868   03 020F6    22800000 A            LI,8     0
    10869   03 020F7    22800000 A            LI,8     0
    10870   03 020F8    22800000 A            LI,8     0
    10871   03 020F9    22800000 A            LI,8     0
    10872                            *
    10873   03 020FA    22800180 A   F22STP01 MEPROC   MAR,MDR
    10874   03 020FB    22800010 A            FULLPROC MFULL
    10875   03 020FC    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10876   03 020FD    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10877   03 020FE    22800000 A            LI,8     0
    10878   03 020FF    228FFFFF A            LI,8     -1
    10879   03 02100    2280003F A            FAMCNT   LR3,K0,K1,K2,K3,K4
    10880                            *
    10881   03 02101    22800180 A   F22STP02 MEPROC   MAR,MDR
    10882   03 02102    22800018 A            FULLPROC MFULL,HFULL
    10883   03 02103    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10884   03 02104    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
    10885   03 02105    22800000 A            LI,8     0
    10886   03 02106    228FFFFF A            LI,8     -1
    10887   03 02107    2280205E A            FAMCNT   L3,LR2,K0,K1,K2,K3
    10888                            *
    10889   03 02108    22800180 A   F22STP03 MEPROC   MAR,MDR
    10890   03 02109    2280001C A            FULLPROC MFULL,HFULL,IFULL
    10891   03 0210A    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10892                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10893   03 0210B    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10894   03 0210C    22800000 A            LI,8     0
    10895   03 0210D    228FFFFF A            LI,8     -1
    10896   03 0210E    2280407D A            FAMCNT   L2,LR2,LR3,K0,K1,K2,K4
    10897                            *
    10898   03 0210F    22800180 A   F22STP04 MEPROC   MAR,MDR
    10899   03 02110    22800000 A            LI,8     0
    10900   03 02111    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10901   03 02112    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10902   03 02113    22800000 A            LI,8     0
    10903   03 02114    228FFFFF A            LI,8     -1
    10904   03 02115    2280609C A            FAMCNT   L2,L3,LR1,K0,K1,K2
    10905                            *
    10906   03 02116    22800180 A   F22STP05 MEPROC   MAR,MDR
    10907   03 02117    22800010 A            FULLPROC MFULL
    10908   03 02118    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10909   03 02119    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10910   03 0211A    22800000 A            LI,8     0
    10911   03 0211B    228FFFFF A            LI,8     -1
    10912   03 0211C    228080BB A            FAMCNT   L1,LR1,LR3,K0,K1,K3,K4
    10913                            *
    10914   03 0211D    22800180 A   F22STP06 MEPROC   MAR,MDR
    10915   03 0211E    22800018 A            FULLPROC MFULL,HFULL
    10916   03 0211F    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10917   03 02120    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
    10918   03 02121    22800000 A            LI,8     0
    10919   03 02122    228FFFFF A            LI,8     -1
    10920   03 02123    2280A0DA A            FAMCNT   L1,L3,LR1,LR2,K0,K1,K3
    10921                            *
    10922   03 02124    22800180 A   F22STP07 MEPROC   MAR,MDR
    10923   03 02125    2280001C A            FULLPROC MFULL,HFULL,IFULL
    10924   03 02126    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10925                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10926   03 02127    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10927   03 02128    22800000 A            LI,8     0
    10928   03 02129    228FFFFF A            LI,8     -1
    10929   03 0212A    2280C0F9 A            FAMCNT   L1,L2,LR1,LR2,LR3,K0,K1,K4
    10930                            *
    10931   03 0212B    22800180 A   F22STP08 MEPROC   MAR,MDR
    10932   03 0212C    22800000 A            LI,8     0
    10933   03 0212D    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10934   03 0212E    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10935   03 0212F    22800000 A            LI,8     0
    10936   03 02130    228FFFFF A            LI,8     -1
    10937   03 02131    2280E118 A            FAMCNT   L1,L2,L3,LR0,K0,K1
    10938                            *
    10939   03 02132    22800180 A   F22STP09 MEPROC   MAR,MDR
    10940   03 02133    22800010 A            FULLPROC MFULL
    10941   03 02134    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10942   03 02135    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10943   03 02136    22800000 A            LI,8     0
    10944   03 02137    228FFFFF A            LI,8     -1
    10945   03 02138    22810137 A            FAMCNT   L0,LR0,LR3,K0,K2,K3,K4
    10946                            *
    10947   03 02139    22800180 A   F22STP10 MEPROC   MAR,MDR
    10948   03 0213A    22800018 A            FULLPROC MFULL,HFULL
    10949   03 0213B    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10950   03 0213C    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
    10951   03 0213D    22800000 A            LI,8     0
    10952   03 0213E    228FFFFF A            LI,8     -1
    10953   03 0213F    22812156 A            FAMCNT   L0,L3,LR0,LR2,K0,K2,K3
    10954                            *
    10955   03 02140    22800180 A   F22STP11 MEPROC   MAR,MDR
    10956   03 02141    2280001C A            FULLPROC MFULL,HFULL,IFULL
    10957   03 02142    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10958                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10959   03 02143    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10960   03 02144    22800000 A            LI,8     0
    10961   03 02145    228FFFFF A            LI,8     -1
    10962   03 02146    22814175 A            FAMCNT   L0,L2,LR0,LR2,LR3,K0,K2,K4
    10963                            *
    10964   03 02147    22800180 A   F22STP12 MEPROC   MAR,MDR
    10965   03 02148    22800000 A            LI,8     0
    10966   03 02149    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10967   03 0214A    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10968   03 0214B    22800000 A            LI,8     0
    10969   03 0214C    228FFFFF A            LI,8     -1
    10970   03 0214D    22816194 A            FAMCNT   L0,L2,L3,LR0,LR1,K0,K2
    10971                            *
    10972   03 0214E    22800180 A   F22STP13 MEPROC   MAR,MDR
    10973   03 0214F    22800010 A            FULLPROC MFULL
    10974   03 02150    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10975   03 02151    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    10976   03 02152    22800000 A            LI,8     0
    10977   03 02153    228FFFFF A            LI,8     -1
    10978   03 02154    228181B3 A            FAMCNT   L0,L1,LR0,LR1,LR3,K0,K3,K4
    10979                            *
    10980   03 02155    22800180 A   F22STP14 MEPROC   MAR,MDR
    10981   03 02156    22800018 A            FULLPROC MFULL,HFULL
    10982   03 02157    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10983   03 02158    22800FF0 A            BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD
    10984   03 02159    22800000 A            LI,8     0
    10985   03 0215A    228FFFFF A            LI,8     -1
    10986   03 0215B    2281A1D2 A            FAMCNT   L0,L1,L3,LR0,LR1,LR2,K0,K3
    10987                            *
    10988   03 0215C    22800180 A   F22STP15 MEPROC   MAR,MDR
    10989   03 0215D    2280001C A            FULLPROC MFULL,HFULL,IFULL
    10990   03 0215E    2280003D A            BYPROC   BPA,BPB,BPC,BPD,BC4
    10991                                     BYMHI    MBPA,MBPB,MBPC,MBPD,HBPA,HBPB,HBPC,HBPD,;
    10992   03 0215F    22800FFF A                     IBPA,IBPB,IBPC,IBPD
    10993   03 02160    22800000 A            LI,8     0
    10994   03 02161    228FFFFF A            LI,8     -1
    10995   03 02162    2281C1F1 A            FAMCNT   L0,L1,L2,LR0,LR1,LR2,LR3,K0,K4
    10996                            *
    10997   03 02163    22800180 A   F22STP16 MEPROC   MAR,MDR
    10998   03 02164    22800000 A            LI,8     0
    10999   03 02165    2280003E A            BYPROC   BPA,BPB,BPC,BPD,BCZ
    11000   03 02166    22800F00 A            BYMHI    MBPA,MBPB,MBPC,MBPD
    11001   03 02167    22800000 A            LI,8     0
    11002   03 02168    228FFFFF A            LI,8     -1
    11003   03 02169    2281E010 A            FAMCNT   L0,L1,L2,L3,K0
    11004                                     PAGE
    11005                            *
    11006                            *                 FAM CONTROLLED DATA TEST 1 (FIXED PATTERN)
    11007         00000108                    TESTNO
    11008   03 0216A    351006BE     F023     STW,1    VDEC1A            TEST NO
    11009   03 0216B    22C00000 A            LI,12    0                 PATTERN TYPE
    11010   03 0216C    22E00000 A            LI,14    0                 SHIFT CONSTANT
    11011   03 0216D    68002176              B        F023DATA
    11012                            *
    11013                            *                 FAM CONTROLLED DATA TEST 2 (SHIFTING PATTERN)
    11014         00000109                    TESTNO
    11015   03 0216E    352006BE     F024     STW,2    VDEC1A
    11016   03 0216F    22C00005 A            LI,12    5
    11017   03 02170    22E00201 A            LI,14    X'201'
    11018   03 02171    68002176              B        F023DATA
    11019                            *
    11020                            *                 FAM CONTROLLED DATA TEST 3 (RANDOM PATTERN)
    11021         00000110                    TESTNO
    11022   03 02172    353006BE     F025     STW,3    VDEC1A
    11023   03 02173    22C00002 A            LI,12    2
    11024   03 02174    22E00000 A            LI,14    0
    11025   03 02175    68002176              B        F023DATA
    11026   03 02176    35C002EE A   F023DATA STW,12   :PATID
    11027   03 02177    35E002F0 A            STW,14   :PATID+2
    11028   03 02178    22EFFFFF A            LI,14    -1
    11029   03 02179    6AF017C0              BAL,15   M0ZZ+1
    11030   03 0217A    6AF017C5     F023X    BAL,15   M0YY
    11031   03 0217B    32F015CF              LW,15    DIODATA+1
    11032   03 0217C    35F002EF A            STW,15  :PATID+1
    11033   03 0217D    6AF012AD     F023Y    BAL,15   SETREAD
    11034   03 0217E    000026FC              DATA     MSF023
    11035   03 0217F    12E002F2 A            LD,14    IOCDGEN
    11036   03 02180    15E001EC A            STD,14   UNCHAIN
    11037   03 02181    22F00040 A            LI,15    64
    11038   03 02182    55F202F3 A            STH,15   IOCDGEN+1,1
    11039   03 02183    66F002F2 A            AWM,15   IOCDGEN
    11040   03 02184    6AF00E9D              BAL,15   T:EXEC
    11041   03 02185    0000218C              DATA     PLF023
    11042   03 02186    4CC00000 A            SIO,12   0
    11043   03 02187    00002191              DATA     ALF023
    11044   03 02188    010026FC              GEN,8,24 1,MSF023
    11045   03 02189    0000219C              DATA     CLF023
    11046   03 0218A    6800217D              B        F023Y
    11047   03 0218B    6800217A              B        F023X
    11048                            *
    11049   03 0218C    6AF011C9     PLF023   BAL,15   WDGP0
    11050   03 0218D    22800003 A            WD1      TI,TR
    11051   03 0218E    ED80155F              WD,8     *DIOAD1
    11052   03 0218F    6AF00FDD              BAL,15   CC01
    11053   03 02190    680010C1              B        XIT
    11054                            *
    11055                            ALF023 ;
    11056   03 02191    225FFFF0 A            LI,5     -16
    11057   03 02192    EC801568     ALF023X  RD,8     *DIOAD0TR
    11058   03 02193    6AF00FDD              BAL,15   CC01
    11059   03 02194    6AF00EF1              BAL,15   COLLECT
    11060   03 02195    68000FDB              B        CC00
    11061   03 02196    EC801567              RD,8     *DIOAD0TI
    11062   03 02197    6AF00FDD              BAL,15   CC01
    11063   03 02198    EC801567              RD,8     *DIOAD0TI
    11064   03 02199    6AF00FDD              BAL,15   CC01
    11065   03 0219A    65502192              BIR,5    ALF023X
    11066   03 0219B    680010C1              B        XIT
    11067                            *
    11068   03 0219C    224FFFF0 A   CLF023   LI,4     -16
    11069   03 0219D    32B002F2 A            LW,11    IOCDGEN
    11070   03 0219E    4BB03029              AND,11   =X'00FFFFFF'
    11071   03 0219F    20BFFFC0 A            AI,11    -64
    11072   03 021A0    25B0007E A            SLS,11   -2
    11073   03 021A1    22F0003F A            LI,15    X'3F'
    11074   03 021A2    35F015AE              STW,15   K:KOUNTR
    11075   03 021A3    35B001C3 A            STW,11   PINDEX
    11076   03 021A4    6AF012B7     CLF023X  BAL,15   REGDIS
    11077   03 021A5    328015AE              LW,8     K:KOUNTR
    11078   03 021A6    6AF0123B              BAL,15   FACOUNT
    11079   03 021A7    2280000F A            BYJK     KA8,KB8,KC8,KD8
    11080   03 021A8    6AF01266              BAL,15   JKPRES
    11081   03 021A9    B28001C3 A            LW,8     *PINDEX
    11082   03 021AA    6AF01232              BAL,15   KREG
    11083   03 021AB    331001C3 A            MTW,1    PINDEX
    11084   03 021AC    328015AE              LW,8     K:KOUNTR
    11085   03 021AD    2080001F A            AI,8     X'1F'
    11086   03 021AE    4B803074              AND,8    =X'1FF'
    11087   03 021AF    468015AE              XW,8     K:KOUNTR
    11088   03 021B0    4B803075              AND,8    =X'1E000'
    11089   03 021B1    20802000 A            AI,8     X'2000'
    11090   03 021B2    668015AE              AWM,8    K:KOUNTR
    11091   03 021B3    654021A4              BIR,4    CLF023X
    11092   03 021B4    224000F6 A            LI,4     DA(UNCHAIN)
    11093   03 021B5    22500179 A            LI,5     DA(IOCDGEN)
    11094   03 021B6    6AF013FA              BAL,15   BYTEPATN
    11095   03 021B7    680010C1              B        XIT
    11096                            *
    11097                            *
    11098         03 009BF           MSF023   EQU      BA(MSGF0230)
    11099                                     PAGE
    11100                            *
    11101                            *                 FAM DATA FREE RUNNING TEST 1 (FIXED PATTERN)
    11102         00000111                    TESTNO
    11103   03 021B8    351006BE     F026     STW,1    VDEC1A
    11104   03 021B9    22C00000 A            LI,12    0
    11105   03 021BA    22E00000 A            LI,14    0
    11106   03 021BB    680021C4              B        F026DATA
    11107                            *
    11108                            *                 FAM DATA FREE RUNNING TEST 2 (SHIFTING PATTERN)
    11109         00000112                    TESTNO
    11110   03 021BC    352006BE     F027     STW,2    VDEC1A
    11111   03 021BD    22C00005 A            LI,12    5
    11112   03 021BE    22E00201 A            LI,14    X'201'
    11113   03 021BF    680021C4              B        F026DATA
    11114                            *
    11115                            *                 FAM DATA FREE RUNNING TEST 3 (RANDOM PATTERN)
    11116         00000113                    TESTNO
    11117   03 021C0    353006BE     F028     STW,3    VDEC1A
    11118   03 021C1    22C00002 A            LI,12    2
    11119   03 021C2    22E00000 A            LI,14    0
    11120   03 021C3    680021C4              B        F026DATA
    11121   03 021C4    35C002EE A   F026DATA STW,12   :PATID
    11122   03 021C5    35E002F0 A            STW,14   :PATID+2
    11123   03 021C6    22EFFFFF A            LI,14    -1
    11124   03 021C7    6AF017C0              BAL,15   M0ZZ+1
    11125                            *
    11126   03 021C8    6AF017C5     F026X    BAL,15   M0YY
    11127   03 021C9    32F015CF              LW,15    DIODATA+1
    11128   03 021CA    35F002EF A            STW,15   :PATID+1
    11129                            *
    11130   03 021CB    6AF012AD     F026Y    BAL,15   SETREAD
    11131   03 021CC    00002721              DATA     MSF026
    11132   03 021CD    12E002F2 A            LD,14    IOCDGEN
    11133   03 021CE    15E001EC A            STD,14   UNCHAIN
    11134   03 021CF    22F00040 A            LI,15    64
    11135   03 021D0    55F202F3 A            STH,15   IOCDGEN+1,1
    11136   03 021D1    66F002F2 A            AWM,15   IOCDGEN
    11137   03 021D2    6AF00E98              BAL,15   T:EXECRS
    11138   03 021D3    00001E9F              DATA     PLFYYY1
    11139   03 021D4    4CC00000 A            SIO,12   0
    11140   03 021D5    00002021              DATA     ALF016
    11141   03 021D6    01002721              GEN,8,24 1,MSF026
    11142   03 021D7    000021DA              DATA     CLF026
    11143   03 021D8    680021CB              B        F026Y
    11144   03 021D9    680021C8              B        F026X
    11145                            *
    11146   03 021DA    6AF01345     CLF026   BAL,15   CLISTI
    11147   03 021DB    224000F6 A            LI,4     DA(UNCHAIN)
    11148   03 021DC    22500179 A            LI,5     DA(IOCDGEN)
    11149   03 021DD    6AF013FA              BAL,15   BYTEPATN
    11150   03 021DE    680010C1              B        XIT
    11151                            *
    11152         03 009C8 1         MSF026   EQU      BA(MSGF0260)
    11153                                     PAGE
    11154                            *
    11155                            *                 SKIP FLAG WRITE TEST
    11156         00000114                    TESTNO
    11157   03 021DF    32B03076     F029     LW,11    =X'5D000040'
    11158   03 021E0    6AF021F9              BAL,15   F029SET
    11159                            *
    11160   03 021E1    6AF00E98              BAL,15   T:EXECRS
    11161   03 021E2    00001E9F              DATA     PLFYYY1
    11162   03 021E3    4CC00000 A            SIO,12   0
    11163   03 021E4    00002021              DATA     ALF016
    11164   03 021E5    00002744              DATA     MSF029
    11165   03 021E6    00002023              DATA     CLF016
    11166   03 021E7    680021DF              B        F029
    11167   03 021E8    32A03077     F029A    LW,10    =X'AAAAAAAA'
    11168   03 021E9    35A002EF A            STW,10   :PATID+1
    11169   03 021EA    6AF02EEB              BAL,15   :PATTERN
    11170   03 021EB    22A00000 A            LI,10    0
    11171   03 021EC    35A002EF A            STW,10   :PATID+1
    11172   03 021ED    22001104              LI,0     DA(IOCDF29R)
    11173   03 021EE    6AF00E9D              BAL,15   T:EXEC
    11174   03 021EF    00001E9F              DATA     PLFYYY1
    11175   03 021F0    4CC00000 A            SIO,12   0
    11176   03 021F1    00002021              DATA     ALF016
    11177   03 021F2    01002744              GEN,8,24 1,MSF029
    11178   03 021F3    000021F6              DATA     CLF029
    11179   03 021F4    680021DF              B        F029
    11180   03 021F5    68000CD1              B        RIOPEXIT
    11181                            *
    11182   03 021F6    6AF01345     CLF029   BAL,15   CLISTI
    11183   03 021F7    6AF010F1              BAL,15   DATACOMP
    11184   03 021F8    680010C1              B        XIT
    11185                            *
    11186                            *
    11187         03 009D1           MSF029   EQU      BA(MSGF0290)
    11188   03 021F9    22700000 A   F029SET  LI,7     0
    11189   03 021FA    3280304E              LW,8     =X'55555555'
    11190   03 021FB    22900000 A            LI,9     0
    11191   03 021FC    02200030 A            LCI      3
    11192   03 021FD    2B7002EE A            STM,7    :PATID
    11193   03 021FE    35B02207              STW,11   IOCDF29W+1
    11194   03 021FF    22A00010 A            LI,10    16
    11195   03 02200    35A002CC A            STW,10   :PATWC
    11196   03 02201    22001103              LI,0     DA(IOCDF29W)
    11197   03 02202    68002EEB              B        :PATTERN
    11198                                     BOUND    8
    11199   03 02204    0200C260     IOCDF30R GEN,8,24 X'02',BA(BUF1LO)
    11200   03 02205    5D000040 A            GEN,8,24 X'5D',64
    11201   03 02206    0100C260     IOCDF29W GEN,8,24 X'01',BA(BUF1LO)
    11202   03 02207    5D000040 A            GEN,8,24 X'5D',64
    11203   03 02208    0200C260     IOCDF29R GEN,8,24 X'02',BA(BUF1LO)
    11204   03 02209    5C000040 A            GEN,8,24 X'5C',64
    11205                                     PAGE
    11206                            *
    11207                            *                 SKIP FLAG READ TEST
    11208         00000115                    TESTNO
    11209   03 0220A    32B03078     F030     LW,11    =X'5C000040'
    11210   03 0220B    6AF021F9              BAL,15   F029SET
    11211                            *
    11212   03 0220C    6AF00E98              BAL,15   T:EXECRS
    11213   03 0220D    00001E9F              DATA     PLFYYY1
    11214   03 0220E    4CC00000 A            SIO,12   0
    11215   03 0220F    00002021              DATA     ALF016
    11216   03 02210    00002751              DATA     MSF030
    11217   03 02211    00002023              DATA     CLF016
    11218   03 02212    6800220A              B        F030
    11219   03 02213    32A03077     F030A    LW,10    =X'AAAAAAAA'
    11220   03 02214    35A002EF A            STW,10   :PATID+1
    11221   03 02215    6AF02EEB              BAL,15   :PATTERN
    11222   03 02216    22001102              LI,0     DA(IOCDF30R)
    11223   03 02217    6AF00E9D              BAL,15   T:EXEC
    11224   03 02218    00001E9F              DATA     PLFYYY1
    11225   03 02219    4CC00000 A            SIO,12   0
    11226   03 0221A    00002021              DATA     ALF016
    11227   03 0221B    01002751              GEN,8,24 1,MSF030
    11228   03 0221C    000021F6              DATA     CLF029
    11229   03 0221D    6800220A              B        F030
    11230   03 0221E    68000CD1              B        RIOPEXIT
    11231                            *
    11232                            *
    11233         03 009D4 1         MSF030   EQU      BA(MSGF0300)
    11234                                     PAGE
    11235                            *
    11236                            *                 BYTE COUNT DECREMENT-MEMORY BYTE ADDRESS INCREMENT
    11237                            *                 TEST 6 (BC=8 , 64K=<MBA=<16M)
    11238         00000116                    TESTNO
    11239   03 0221F    22600006 A   F0301    LI,6     6
    11240   03 02220    356006BE              STW,6    VDEC1A
    11241   03 02221    32E03079              LW,14    L(X'01000010'-4)
    11242   03 02222    32F0307A              LW,15    =X'41000008'
    11243   03 02223    68002228              B        F0301X
    11244                            *
    11245   03 02224    12E002F2 A   F0301XX  LD,14    IOCDGEN
    11246   03 02225    4BE03029              AND,14   =X'00FFFFFF'
    11247   03 02226    30E002F2 A            AW,14    IOCDGEN
    11248   03 02227    20E00004 A            AI,14    4
    11249                            *
    11250   03 02228    15E002F2 A   F0301X   STD,14   IOCDGEN
    11251   03 02229    20E00004 A            AI,14    4
    11252   03 0222A    4BE03029              AND,14   =X'00FFFFFF'
    11253   03 0222B    35E0158F              STW,14   MBADDR
    11254   03 0222C    35E006C6              STW,14   VHEX4A
    11255   03 0222D    68300CD1              BEZ      RIOPEXIT
    11256   03 0222E    6AF01F57              BAL,15   F013Y
    11257   03 0222F    68002224              B        F0301XX
    11258                                     PAGE
    11259                            *
    11260                            *                 PARTIAL WRITE TO CORE WHEN BYTE COUNTS ARE LESS THAN 4
    11261                            *                 TEST 1  (MBA=BA(BUF1LO)+1 , BC=3)
    11262         00000117                    TESTNO
    11263   03 02230    3260307B     F031     LW,6     =X'00555555'      K REGISTER EXP
    11264   03 02231    3270307C              LW,7     =X'AA555555'      EXPECTED PATTERN IN CORE
    11265   03 02232    2280001E A            BYPROC   BPB,BPC,BPD,BCZ   BYTE PRESENCE INDICATORS
    11266   03 02233    22900007 A            LI,9     7                 R BYTE PRESENCE INDICATORS
    11267   03 02234    22A00001 A            LI,10    1                 MBA BIAS
    11268   03 02235    22B00003 A            LI,11    3                 BC  BIAS
    11269   03 02236    22C00001 A            LI,12    1                 TEST NO.
    11270   03 02237    22E02230              LI,14    F031              LOOP RTN
    11271   03 02238    6AF0228A              BAL,15   PARTWRT
    11272   03 02239    6800226E              B        PARTWRT1
    11273                                     PAGE
    11274                            *
    11275                            *                 PARTIAL WRITE TO CORE WHEN BYTE COUNTS ARE LESS THAN 4
    11276                            *                 TEST 2 (MBA=BA(BUF1LO)+2 , BC=2)
    11277         00000118                    TESTNO
    11278   03 0223A    3260307D     F032     LW,6     =X'00005555'      K REGISTER EXP
    11279   03 0223B    3270307E              LW,7     =X'AAAA5555'      EXPECTED PATTERN IN CORE
    11280   03 0223C    2280000E A            BYPROC   BPC,BPD,BCZ       BYTE PRESENCE INDICATORS
    11281   03 0223D    22900003 A            LI,9     3                 R BYTE PRESENCE INDICATORS
    11282   03 0223E    22A00002 A            LI,10    2                 MBA BIAS
    11283   03 0223F    22B00002 A            LI,11    2                 BC BIAS
    11284   03 02240    22C00002 A            LI,12    2                 TEST NO
    11285   03 02241    22E0223A              LI,14    F032              LOOP RTN
    11286   03 02242    6AF0228A              BAL,15   PARTWRT
    11287   03 02243    6800226E              B        PARTWRT1
    11288                                     PAGE
    11289                            *
    11290                            *                 PARTIAL WRITE TO CORE WHEN BYTE COUNTS ARE LESS THAN 4
    11291                            *                 TEST 3 (MBA=BA(BUF1LO)+3 , BC=1)
    11292         00000119                    TESTNO
    11293   03 02244    3260307F     F033     LW,6     =X'00000055'      K REGISTER EXP
    11294   03 02245    32703080              LW,7     =X'AAAAAA55'      EXPECTED PATTERN IN CORE
    11295   03 02246    22800006 A            BYPROC   BPD,BCZ
    11296   03 02247    22900001 A            LI,9     1                 R BYTE PRESENCE INDICATORS
    11297   03 02248    22A00003 A            LI,10    3                 MBA BIAS
    11298   03 02249    22B00001 A            LI,11    1                 BC BIAS
    11299   03 0224A    22C00003 A            LI,12    3                 TEST NO
    11300   03 0224B    22E02244              LI,14    F033              LOOP RTN
    11301   03 0224C    6AF0228A              BAL,15   PARTWRT
    11302   03 0224D    6800226E              B        PARTWRT1
    11303                                     PAGE
    11304                            *
    11305                            *                 PARTIAL WRITE TO CORE WHEN BYTE COUNTS ARE LESS THAN 4
    11306                            *                 TEST 4 (MBA=BA(BUF1LO)+0 , BC=3)
    11307         00000120                    TESTNO
    11308   03 0224E    3260304E     F034     LW,6     =X'55555555'      K REGISTER EXPECTED
    11309   03 0224F    32703081              LW,7     =X'555555AA'      EXPECTED PATTERN IN CORE
    11310   03 02250    2280003A A            BYPROC   BPA,BPB,BPC,BCZ   BYTE PRESENCE INDICATORS
    11311   03 02251    2290000F A            LI,9     X'F'              R BYTE PRESENCE INDICATORS
    11312   03 02252    22A00000 A            LI,10    0                 MBA BIAS
    11313   03 02253    22B00003 A            LI,11    3                 BC BIAS
    11314   03 02254    22C00004 A            LI,12    4                 TEST NO
    11315   03 02255    22E0224E              LI,14    F034              LOOP RTN
    11316   03 02256    6AF0228A              BAL,15   PARTWRT
    11317   03 02257    22B00000 A            LI,11    0                 BC BIAS
    11318   03 02258    6800226E              B        PARTWRT1
    11319                                     PAGE
    11320                            *
    11321                            *                 PARTIAL WRITE TO CORE WHEN BYTE COUNTS ARE LESS THAN 4
    11322                            *                 TEST 5 (MBA=BA(BUF1LO)+0 , BC=2)
    11323         00000121                    TESTNO
    11324   03 02259    3260304E     F035     LW,6     =X'55555555'      K REGISTER EXPECTED
    11325   03 0225A    32703082              LW,7     =X'5555AAAA'      EXPECTED PATTERN IN CORE
    11326   03 0225B    22800032 A            BYPROC   BPA,BPB,BCZ       BYTE PRESENCE INDICATORS
    11327   03 0225C    2290000F A            LI,9     X'F'              R BYTE PRESENCE INDICATORS
    11328   03 0225D    22A00000 A            LI,10    0                 MBA BIAS
    11329   03 0225E    22B00002 A            LI,11    2                 BC BIAS
    11330   03 0225F    22C00005 A            LI,12    5                 TEST NO
    11331   03 02260    22E02259              LI,14    F035              LOOP RTN
    11332   03 02261    6AF0228A              BAL,15   PARTWRT
    11333   03 02262    22B00000 A            LI,11    0                 BC BIAS
    11334   03 02263    6800226E              B        PARTWRT1
    11335                                     PAGE
    11336                            *
    11337                            *                 PARTIAL WRITE TO CORE WHEN BYTE COUNTS ARE LESS THAN 4
    11338                            *                 TEST 6 (MBA=BA(BUF1LO)+0 , BC=1)
    11339         00000122                    TESTNO
    11340   03 02264    3260304E     F036     LW,6     =X'55555555'      K REGISTER EXPECTED
    11341   03 02265    32703083              LW,7     =X'55AAAAAA'      EXPECTED PATTERN IN CORE
    11342   03 02266    22800022 A            BYPROC   BPA,BCZ           BYTE PRESENCE INDICATORS
    11343   03 02267    2290000F A            LI,9     X'F'              R BYTE PRESENCE INDICATORS
    11344   03 02268    22A00000 A            LI,10    0                 MBA BIAS
    11345   03 02269    22B00001 A            LI,11    1                 BC BIAS
    11346   03 0226A    22C00006 A            LI,12    6                 TEST NO
    11347   03 0226B    22E02264              LI,14    F036              LOOP RTN
    11348   03 0226C    6AF0228A              BAL,15   PARTWRT
    11349   03 0226D    22B00000 A            LI,11    0                 BC BIAS
    11350                            *
    11351                            *
    11352                            *
    11353   03 0226E    6AF0227E     PARTWRT1 BAL,15   DOWRITE           GO DO A WRITE
    11354   03 0226F    32703077              LW,7     =X'AAAAAAAA'      LOAD AND SAVE
    11355   03 02270    357002EF A            STW,7    :PATID+1              NEW PATTERN
    11356   03 02271    6AF02EEB              BAL,15   :PATTERN          GO BUILD PATTERN
    11357   03 02272    351002CC A            STW,1    :PATWC            SAVE PATTERN LENGTH
    11358   03 02273    327015AF              LW,7     F0EXPDAT          LOAD AND SAVE
    11359   03 02274    357002EF A            STW,7    :PATID+1              EXPECTED DATA PATTERN
    11360   03 02275    22000AEC              LI,0     DA(IOCBYTE)       LOAD DWA OF IOCD
    11361   03 02276    6AF00E98              BAL,15   T:EXECRS
    11362   03 02277    0000229A              DATA     PLFBYT
    11363   03 02278    4CC00000 A            SIO,12   0
    11364   03 02279    0000229F              DATA     ALFBYT
    11365   03 0227A    0100275E              GEN,8,24 1,MSFBYT
    11366   03 0227B    000022AA              DATA     CLFBYT
    11367   03 0227C    E80015B0              B        *PARTLOOP
    11368   03 0227D    68000CD1              B        RIOPEXIT
    11369                            *
    11370   03 0227E    35F015AC     DOWRITE  STW,15   PSAVERTN          SAVE RTN
    11371   03 0227F    6AF01178              BAL,15   BOUND16           GO GET A WRITE BOUND 16
    11372   03 02280    22F00010 A            LI,15    16                LOAD AND SAVE
    11373   03 02281    35F002CC A            STW,15   :PATWC                PATTERN WC
    11374   03 02282    32F03084              LW,15    =X'5C00003C'      LOAD FLAGS AND BASIC BC
    11375   03 02283    10E0000A A            AD,14    10                ADD MBA BIAS AND BC BIAS
    11376   03 02284    15E002F2 A            STD,14   IOCDGEN           SAVE AS IOCD
    11377   03 02285    4BE03057              AND,14   =X'00FFFFFC'      REMOVE ORDER AND BA BYTES
    11378   03 02286    25E0007E A            SLS,14   -2                CREATE WORD ADDR
    11379   03 02287    35E002CB A            STW,14   :PATBFR           SAVE AS WORD ADDR
    11380   03 02288    6AF02EEB              BAL,15   :PATTERN          GO BUILD PATTERN
    11381   03 02289    68002018              B        F016X             GO WRITE PATTERN
    11382                            *
    11383                            *
    11384                            *
    11385   03 0228A    35F001C7 A   PARTWRT  STW,15   PSAVE1            SAVE RTN
    11386   03 0228B    356015B5              STW,6    KEXP              SAVE EXP VALUE FOR K
    11387   03 0228C    357015AF              STW,7    F0EXPDAT          EXP DATA IN CORE
    11388   03 0228D    35E015B0              STW,14   PARTLOOP
    11389   03 0228E    358015B1              STW,8    F0BYPROC          BYTE PRESENCE INDICATORS BPA-BPD,BC
    11390   03 0228F    359015B3              STW,9    RPRESIND          R BYTE PRESENCE INDICATORS
    11391   03 02290    35C006BE              STW,12   VDEC1A            SAVE TEST NO.
    11392   03 02291    6AF01178              BAL,15   BOUND16           LOAD ORDER AND MBA
    11393   03 02292    32F03073              LW,15    =X'5C000000'
    11394   03 02293    75F602EE A            STB,15   :PATID,3          SET FIXED PATTERN
    11395   03 02294    10E0000A A            AD,14    10                ADD MBA BIAS AND BC BIAS
    11396   03 02295    7520000E A            STB,2    14                SET READ ORDER
    11397   03 02296    15E015D8              STD,14   IOCBYTE           SAVE IOCD
    11398   03 02297    32F0304E              LW,15    =X'55555555'      LOAD AND SAVE
    11399   03 02298    35F002EF A            STW,15   :PATID+1              PATTERN
    11400   03 02299    E80001C7 A            B        *PSAVE1
    11401                            *
    11402                            *
    11403   03 0229A    6AF011C9     PLFBYT   BAL,15   WD0GP0
    11404   03 0229B    22800006 A            WD1      TI,TS
    11405   03 0229C    ED80155F              WD,8     *DIOAD1
    11406   03 0229D    6AF00FDD              BAL,15   CC01
    11407   03 0229E    680010C1              B        XIT
    11408                            *
    11409                            ALFBYT  ;
    11410   03 0229F    EC80155E              RD,8     *DIOAD0
    11411   03 022A0    6AF00FDD              BAL,15   CC01
    11412   03 022A1    6AF00EF1              BAL,15   COLLECT
    11413   03 022A2    68000FDD              B        CC01
    11414   03 022A3    EC801567              RD,8     *DIOAD0TI
    11415   03 022A4    6AF01DA8              BAL,15   ALFXXX
    11416   03 022A5    EC801567              RD,8     *DIOAD0TI
    11417   03 022A6    6AF01DA8              BAL,15   ALFXXX
    11418   03 022A7    EC801566              RD,8     *DIOAD0TS
    11419   03 022A8    6AF01DA8              BAL,15   ALFXXX
    11420   03 022A9    680010C1              B        XIT
    11421                            *
    11422                            CLFBYT ;
    11423   03 022AA    22800000 A            LI,8     0
    11424   03 022AB    35801592              STW,8    PARTING
    11425   03 022AC    328015B1              LW,8     F0BYPROC
    11426   03 022AD    2580007E A            SLS,8    -2
    11427   03 022AE    358015B4              STW,8    F0BYIND
    11428   03 022AF    226022C8              LI,6     F31ST00
    11429   03 022B0    6AF012B7              BAL,15   REGDIS
    11430   03 022B1    328015B3              LW,8     RPRESIND
    11431   03 022B2    6AF0126F              BAL,15   FAMPRES
    11432   03 022B3    328015B5              LW,8     KEXP
    11433   03 022B4    6AF01232              BAL,15   KREG
    11434   03 022B5    22F022B8              LI,15    %+3
    11435   03 022B6    35F001C8 A            STW,15   PSAVE2
    11436   03 022B7    680012DD              B        RECOMP1
    11437   03 022B8    224FFFFD A            LI,4     -3
    11438   03 022B9    35101592              STW,1    PARTING
    11439   03 022BA    2280000F A            LI,8     X'F'
    11440   03 022BB    358001B6 A            STW,8    BYPRMASK
    11441                            CLFBYT1 ;
    11442   03 022BC    6AF012DB              BAL,15   RECOMP
    11443   03 022BD    328001B6 A            LW,8     BYPRMASK
    11444   03 022BE    25800004 A            SLS,8    4
    11445   03 022BF    498001B6 A            OR,8     BYPRMASK
    11446   03 022C0    358001B6 A            STW,8    BYPRMASK
    11447   03 022C1    328015B4              LW,8     F0BYIND
    11448   03 022C2    25800004 A            SLS,8    4
    11449   03 022C3    498015B4              OR,8     F0BYIND
    11450   03 022C4    358015B4              STW,8    F0BYIND
    11451   03 022C5    654022BC              BIR,4    CLFBYT1
    11452   03 022C6    6AF010F1              BAL,15   DATACOMP
    11453   03 022C7    680010C1              B        XIT
    11454                            *
    11455         03 009D7 2         MSFBYT   EQU      BA(MSGYT00)
    11456   03 022C8    22800180 A   F31ST00  MEPROC   MAR,MDR
    11457   03 022C9    22800001 A            FULLPROC KFULL
    11458   03 022CA    328015B1              LW,8     F0BYPROC
    11459   03 022CB    22800000 A            LI,8     0
    11460   03 022CC    2280000F A            BYJK     KA8,KB8,KC8,KD8
    11461   03 022CD    22800000 A            LI,8     0
    11462   03 022CE    22800000 A            LI,8     0
    11463   03 022CF    22800180 A   F31ST01  MEPROC   MAR,MDR
    11464   03 022D0    22800004 A            FULLPROC IFULL
    11465   03 022D1    328015B1              LW,8     F0BYPROC
    11466   03 022D2    328015B4              LW,8     F0BYIND
    11467   03 022D3    22800000 A            LI,8     0
    11468   03 022D4    228FFFFF A            LI,8     -1
    11469   03 022D5    22800000 A            LI,8     0
    11470   03 022D6    22800184 A   F31ST02  MEPROC   MAR,MDR,MSTART
    11471   03 022D7    22800010 A            FULLPROC MFULL
    11472   03 022D8    328015B1              LW,8     F0BYPROC
    11473   03 022D9    328015B4              LW,8     F0BYIND
    11474   03 022DA    22800000 A            LI,8     0
    11475   03 022DB    228FFFFF A            LI,8     -1
    11476   03 022DC    22800000 A            LI,8     0
    11477   03 022DD    22800180 A   F31ST03  MEPROC   MAR,MDR
    11478   03 022DE    22800000 A            LI,8     0
    11479   03 022DF    328015B1              LW,8     F0BYPROC
    11480   03 022E0    328015B4              LW,8     F0BYIND
    11481   03 022E1    22800000 A            LI,8     0
    11482   03 022E2    228FFFFF A            LI,8     -1
    11483   03 022E3    22800000 A            LI,8     0
    11484                                     PAGE
    11485                            *
    11486                            *                 COMMAND CHAINING CONTROL TEST 1 (WRITE)
    11487         00000123                    TESTNO
    11488   03 022E4    2200117D     F037     LI,0     DA(F370IOCD)
    11489   03 022E5    351006BE              STW,1    VDEC1A
    11490   03 022E6    22800000 A            LI,8     0
    11491                            F037X ;
    11492   03 022E7    22D0278E              LI,13    MSGF0371
    11493   03 022E8    68002318              B        CHAINOUT
    11494                            *
    11495                            *
    11496                            *                 COMMAND CHAINING CONTROL TEST 2 (READ)
    11497         00000124                    TESTNO
    11498   03 022E9    22001180     F038     LI,0     DA(F380IOCD)
    11499   03 022EA    352006BE              STW,2    VDEC1A
    11500   03 022EB    22800000 A            LI,8     0
    11501   03 022EC    680022E7              B        F037X
    11502                            *
    11503                            *
    11504                            *                 COMMAND CHAINING CONTROL TEST 3 (WRITE)
    11505                            *
    11506         00000125                    TESTNO
    11507   03 022ED    22001183     F038X    LI,0     DA(F381IOCD)
    11508   03 022EE    353006BE              STW,3    VDEC1A
    11509   03 022EF    22800000 A            LI,8     0
    11510   03 022F0    680022E7              B        F037X
    11511                            *                 DATA CHAINING CONTROL TEST 1 (WRITE)
    11512         00000126                    TESTNO
    11513   03 022F1    22001186     F039     LI,0     DA(F390IOCD)
    11514   03 022F2    351006BE              STW,1    VDEC1A
    11515   03 022F3    22800010 A            PHPROC   PH20
    11516                            F039X ;
    11517   03 022F4    22D027A7              LI,13    MSGF0391
    11518   03 022F5    68002318              B        CHAINOUT
    11519                            *
    11520                            *                 DATA CHAINING CONTROL TEST 2 (READ)
    11521         00000127                    TESTNO
    11522   03 022F6    22001189     F040     LI,0     DA(F400IOCD)
    11523   03 022F7    352006BE              STW,2    VDEC1A
    11524   03 022F8    22800008 A            PHPROC   PH30
    11525   03 022F9    680022F4              B        F039X
    11526                                     BOUND    8
    11527   03 022FA    0100C280     F370IOCD GEN,8,24 1,BA(BUF1LO)+32
    11528   03 022FB    2C000020 A            GEN,8,24 X'2C',32
    11529   03 022FC    0000C260              GEN,8,24 0,BA(BUF1LO)
    11530   03 022FD    0C000020 A            GEN,8,24 X'0C',32
    11531   03 022FE    0800117F              GEN,8,24 8,DA(%)
    11532   03 022FF    00000000 A            DATA     0
    11533   03 02300    0200C280     F380IOCD GEN,8,24 2,BA(BUF1LO)+32
    11534   03 02301    2C000020 A            GEN,8,24 X'2C',32
    11535   03 02302    0000C260              GEN,8,24 0,BA(BUF1LO)
    11536   03 02303    0C000020 A            GEN,8,24 X'0C',32
    11537   03 02304    08001182              GEN,8,24 8,DA(%)
    11538   03 02305    00000000 A            DATA     0
    11539   03 02306    0100C280     F381IOCD GEN,8,24 1,BA(BUF1LO)+32
    11540   03 02307    2C000020 A            GEN,8,24 X'2C',32
    11541   03 02308    0000C260              GEN,8,24 0,BA(BUF1LO)
    11542   03 02309    2C000020 A            GEN,8,24 X'2C',32
    11543   03 0230A    08001185              GEN,8,24 8,DA(%)
    11544   03 0230B    00000000 A            DATA     0
    11545   03 0230C    0100C280     F390IOCD GEN,8,24 1,BA(BUF1LO)+32
    11546   03 0230D    8C000020 A            GEN,8,24 X'8C',32
    11547   03 0230E    0000C260              GEN,8,24 0,BA(BUF1LO)
    11548   03 0230F    0C000020 A            GEN,8,24 X'0C',32
    11549   03 02310    08001188              GEN,8,24 8,DA(%)
    11550   03 02311    00000000 A            DATA     0
    11551   03 02312    0200C280     F400IOCD GEN,8,24 2,BA(BUF1LO)+32
    11552   03 02313    8C000020 A            GEN,8,24 X'8C',32
    11553   03 02314    0000C260              GEN,8,24 0,BA(BUF1LO)
    11554   03 02315    0C000020 A            GEN,8,24 X'0C',32
    11555   03 02316    0800118B              GEN,8,24 8,DA(%)
    11556   03 02317    00000000 A            DATA     0
    11557                            *
    11558   03 02318    350001C8 A   CHAINOUT STW,0    PSAVE2
    11559   03 02319    35D02327              STW,13   CHMSG0
    11560   03 0231A    7310000D A            MTB,1    13
    11561   03 0231B    35D0232E              STW,13   CHMSG1
    11562   03 0231C    7310000D A            MTB,1    13
    11563   03 0231D    35D02335              STW,13   CHMSG2
    11564   03 0231E    358001CA A            STW,8    PSAVE4
    11565   03 0231F    22E00008 A   CHAIN1   LI,14    8
    11566   03 02320    6AF01541              BAL,15   DOPATTN
    11567   03 02321    F1E2D3C4 A            DATA     X'F1E2D3C4'
    11568   03 02322    320001C8 A            LW,0     PSAVE2
    11569   03 02323    6AF00E98              BAL,15   T:EXECRS
    11570   03 02324    00002339              DATA     PLFCH1
    11571   03 02325    4CC00000 A            SIO,12   0
    11572   03 02326    00001822              DATA     ALP0X0
    11573   03 02327    00000000 A   CHMSG0   GEN,8,24 0,0
    11574   03 02328    00002342              DATA     CLFCH1
    11575   03 02329    351015A8              STW,1    TESTCONT
    11576   03 0232A    6AF00EA0              BAL,15   T:CONT
    11577   03 0232B    0000233E              DATA     PLFCH2
    11578   03 0232C    00000000 A            DATA     0
    11579   03 0232D    00001822              DATA     ALP0X0
    11580   03 0232E    01000000 A   CHMSG1   GEN,8,24 1,0
    11581   03 0232F    00002353              DATA     CLFCH3
    11582   03 02330    351015A8              STW,1    TESTCONT
    11583   03 02331    6AF00EA0              BAL,15   T:CONT
    11584   03 02332    0000233E              DATA     PLFCH2
    11585   03 02333    00000000 A            DATA     0
    11586   03 02334    0000185F              DATA     ALP0Y0
    11587   03 02335    02000000 A   CHMSG2   GEN,8,24 2,0
    11588   03 02336    00002366              DATA     CLFCH4
    11589   03 02337    6800231F              B        CHAIN1
    11590   03 02338    68000CD1              B        RIOPEXIT
    11591         03 009E3 2         MSGF0371 EQU      BA(MSGF0370)
    11592         03 009E9 3         MSGF0391 EQU      BA(MSGF0390)
    11593                            *
    11594                            *
    11595   03 02339    6AF011C9     PLFCH1   BAL,15   WDGP0
    11596   03 0233A    22800020 A            WD1      PH11
    11597   03 0233B    ED80155F              WD,8     *DIOAD1
    11598   03 0233C    6AF00FDF              BAL,15   CC10
    11599   03 0233D    680010C1              B        XIT
    11600                            *
    11601   03 0233E    22800002 A   PLFCH2   LI,8     2
    11602   03 0233F    ED801561              WD,8     *DIOAD3
    11603   03 02340    6AF00FDF              BAL,15   CC10
    11604   03 02341    680010C1              B        XIT
    11605                            *
    11606   03 02342    22800021 A   CLFCH1   PHPROC   PH12,BUSY
    11607   03 02343    6AF0114C              BAL,15   PHCOMP
    11608   03 02344    32F001C8 A   CLFCHX   LW,15    PSAVE2
    11609   03 02345    25F00001 A            SLS,15   1
    11610   03 02346    F280000F A            LB,8     *15
    11611   03 02347    6AF01A0F              BAL,15   SETORDER+1
    11612   03 02348    328001C7 A            LW,8     PSAVE1
    11613   03 02349    6AF01217              BAL,15   ORDEREG
    11614   03 0234A    328001C8 A            LW,8     PSAVE2
    11615   03 0234B    25800001 A            SLS,8    1
    11616   03 0234C    20800001 A            AI,8     1
    11617   03 0234D    6AF011AD              BAL,15   LREG
    11618   03 0234E    680010C1              B        XIT
    11619                            *
    11620                            CLFCH2X  ;
    11621   03 0234F    6AF0114C              BAL,15   PHCOMP
    11622   03 02350    22800000 A            LI,8     0
    11623   03 02351    6AF01245              BAL,15   FULLCOMP
    11624   03 02352    680010C1              B        XIT
    11625                            *
    11626                            *
    11627   03 02353    22800021 A   CLFCH3   PHPROC   PH12,BUSY
    11628   03 02354    498001CA A            OR,8     PSAVE4
    11629   03 02355    6AF0114C              BAL,15   PHCOMP
    11630   03 02356    32F001C8 A            LW,15    PSAVE2
    11631   03 02357    25F00001 A            SLS,15   1
    11632   03 02358    F280000F A            LB,8     *15
    11633   03 02359    D294000F A            LH,9     *15,2
    11634   03 0235A    21902000 A            CI,9     X'2000'
    11635   03 0235B    6840235E              BCR,4    %+3
    11636   03 0235C    20F00002 A            AI,15    2
    11637   03 0235D    F280000F A            LB,8     *15
    11638   03 0235E    6AF01A0F              BAL,15   SETORDER+1
    11639   03 0235F    328001C7 A            LW,8     PSAVE1
    11640   03 02360    6AF01217              BAL,15   ORDEREG
    11641   03 02361    328001C8 A            LW,8     PSAVE2
    11642   03 02362    25800001 A            SLS,8    1
    11643   03 02363    20800003 A            AI,8     3
    11644   03 02364    6AF011AD              BAL,15   LREG
    11645   03 02365    680010C1              B        XIT
    11646                            *
    11647   03 02366    22802000 A   CLFCH4   PHPROC   PH00
    11648   03 02367    6800234F              B        CLFCH2X
    11649                                     PAGE
    11650                            *
    11651                            *                 COMMAND CHAINING WRITE READ FREE RUNNING TEST
    11652         00000128                    TESTNO
    11653   03 02368    22E00008 A   F041     LI,14    8
    11654   03 02369    6AF01541              BAL,15   DOPATTN
    11655   03 0236A    1E2D3C4B A            DATA     X'1E2D3C4B'
    11656   03 0236B    220011BA              LI,0     DA(F410IOCD)
    11657   03 0236C    6AF00E98              BAL,15   T:EXECRS
    11658   03 0236D    00001E9F              DATA     PLFYYY1
    11659   03 0236E    4CC00000 A            SIO,12   0
    11660   03 0236F    0000237A              DATA     ALF041
    11661   03 02370    000027C1              DATA     MSF410
    11662   03 02371    0000237C              DATA     CLF041
    11663   03 02372    68002368              B        F041
    11664   03 02373    68000CD1              B        RIOPEXIT
    11665                            *
    11666                                     BOUND    8
    11667   03 02374    0100C280     F410IOCD GEN,8,24 X'01',BA(BUF1LO)+32
    11668   03 02375    2C000020 A            GEN,8,24 X'2C',32
    11669   03 02376    0200C260              GEN,8,24 X'02',BA(BUF1LO)
    11670   03 02377    1C000020 A            GEN,8,24 X'1C',32
    11671   03 02378    080011BC              GEN,8,24 8,DA(%)
    11672   03 02379    00000000 A            DATA     0
    11673                            *
    11674                            *
    11675   03 0237A    6AF012F6     ALF041   BAL,15   ALFUNCT
    11676   03 0237B    000024B2              DATA     CLFT041
    11677                            *
    11678   03 0237C    6AF01345     CLF041   BAL,15   CLISTI
    11679   03 0237D    6AF010F1              BAL,15   DATACOMP
    11680   03 0237E    680010C1              B        XIT
    11681                            *
    11682         03 009F0 1         MSF410   EQU      BA(MSGF0410)
    11683                                     PAGE
    11684                            *
    11685                            *                 WRITE  BYTE ALIGNMENT TEST
    11686                            *
    11687         00000129                    TESTNO
    11688                            F042 ;
    11689   03 0237F    6AF013E5              BAL,15   DATAINIT
    11690                            *
    11691   03 02380    6AF03017     F0421    BAL,15   :CLEAR
    11692   03 02381    22000B1F              LI,0     DA(DATAZERO)
    11693   03 02382    6AF02399              BAL,15   DATAWRT
    11694   03 02383    000027D4              DATA     MSF042
    11695                            *
    11696   03 02384    6AF013F0              BAL,15   DATAUP
    11697   03 02385    000023F6              DATA     F042IOCD
    11698                            *
    11699   03 02386    220000F4 A   F0422    LI,0     DA(CHAIN)
    11700   03 02387    6AF02399              BAL,15   DATAWRT
    11701   03 02388    010027D4              GEN,8,24 1,MSF042
    11702                            *
    11703   03 02389    220000F6 A            LI,0     DA(UNCHAIN)
    11704   03 0238A    6AF00EA0              BAL,15   T:CONT
    11705   03 0238B    000023A6              DATA     ALFDATA
    11706   03 0238C    4CC00000 A            SIO,12   0
    11707   03 0238D    000023A6              DATA     ALFDATA
    11708   03 0238E    020027D4              GEN,8,24 2,MSF042
    11709   03 0238F    00002394              DATA     CLF042
    11710   03 02390    68002380              B        F0421
    11711   03 02391    6AF013D2              BAL,15   UPDATA
    11712   03 02392    68002380              B        F0421
    11713   03 02393    68000CD1              B        RIOPEXIT
    11714   03 02394    6AF01345     CLF042   BAL,15   CLISTI
    11715   03 02395    224000F4 A            LI,4     DA(CHAIN)
    11716   03 02396    225000F6 A            LI,5     DA(UNCHAIN)
    11717   03 02397    6AF013FA              BAL,15   BYTEPATN
    11718   03 02398    680010C1              B        XIT
    11719                            *
    11720                            *
    11721         03 009F5           MSF042   EQU      BA(MSGF0420)
    11722                            *
    11723                            *
    11724   03 02399    35F001CB A   DATAWRT  STW,15   PSAVE5
    11725   03 0239A    B2F0000F A            LW,15    *15
    11726   03 0239B    35F023A2              STW,15   DATAWRT2
    11727   03 0239C    350001C7 A            STW,0    PSAVE1
    11728   03 0239D    320001C7 A   DATAWRT1 LW,0     PSAVE1
    11729   03 0239E    6AF00E98              BAL,15   T:EXECRS
    11730   03 0239F    00001E9F              DATA     PLFYYY1
    11731   03 023A0    4CC00000 A            SIO,12   0
    11732   03 023A1    000023A6              DATA     ALFDATA
    11733   03 023A2    00000000 A   DATAWRT2 DATA     0
    11734   03 023A3    000023A8              DATA     CLFDATA
    11735   03 023A4    6800239D              B        DATAWRT1
    11736   03 023A5    EAF201CB A            BAL,15   *PSAVE5,1
    11737   03 023A6    6AF012F6     ALFDATA  BAL,15   ALFUNCT
    11738   03 023A7    000024B2              DATA     CLFTDATA
    11739                            *
    11740                            *
    11741   03 023A8    6AF01345     CLFDATA  BAL,15   CLISTI
    11742   03 023A9    680010C1              B        XIT
    11743                            *
    11744                                     PAGE
    11745                            *
    11746                            *                 READ BYTE ALIGNMENT TEST
    11747                            *
    11748         00000130                    TESTNO
    11749                            F043 ;
    11750   03 023AA    6AF013E5              BAL,15   DATAINIT
    11751                            *
    11752   03 023AB    6AF03017     F0431    BAL,15   :CLEAR
    11753                            *
    11754   03 023AC    6AF013F0              BAL,15   DATAUP
    11755   03 023AD    000023FC              DATA     F043IOCD
    11756                            *
    11757   03 023AE    220000F6 A   F0432    LI,0     DA(UNCHAIN)
    11758   03 023AF    6AF02399              BAL,15   DATAWRT
    11759   03 023B0    000027E6              DATA     MSF043
    11760                            *
    11761   03 023B1    220000F4 A            LI,0     DA(CHAIN)
    11762   03 023B2    6AF00EA0              BAL,15   T:CONT
    11763   03 023B3    00000000 A            DATA     0
    11764   03 023B4    4CC00000 A            SIO,12   0
    11765   03 023B5    000023A6              DATA     ALFDATA
    11766   03 023B6    010027E6              GEN,8,24 1,MSF043
    11767   03 023B7    000023BC              DATA     CLF043
    11768   03 023B8    680023AB              B        F0431
    11769   03 023B9    6AF013D2              BAL,15   UPDATA
    11770   03 023BA    680023AB              B        F0431
    11771   03 023BB    68000CD1              B        RIOPEXIT
    11772                            *
    11773                            *
    11774   03 023BC    6AF01345     CLF043   BAL,15   CLISTI
    11775   03 023BD    224000F6 A            LI,4     DA(UNCHAIN)
    11776   03 023BE    225000F4 A            LI,5     DA(CHAIN)
    11777   03 023BF    6AF013FA              BAL,15   BYTEPATN
    11778   03 023C0    680010C1              B        XIT
    11779                            *
    11780                            *
    11781         03 009F9 2         MSF043   EQU      BA(MSGF0430)
    11782                                     PAGE
    11783                            *
    11784                            *                 FAM BYTE PRESENCE TEST 1
    11785                            *
    11786         00000131                    TESTNO
    11787                            F044 ;
    11788   03 023C1    351006BE              STW,1    VDEC1A
    11789   03 023C2    6AF013E5              BAL,15   DATAINIT
    11790   03 023C3    661015C4     F0442    AWM,1    BD1
    11791   03 023C4    324015C4              LW,4     BD1
    11792   03 023C5    2140003C A            CI,4     60
    11793   03 023C6    68100CD1              BGE      RIOPEXIT
    11794   03 023C7    02200060 A            LCI      6
    11795   03 023C8    2A602402              LM,6      F044IOCD
    11796   03 023C9    2B6001E8 A            STM,6    CHAIN
    11797   03 023CA    664001E9 A            AWM,4    CHAIN+1
    11798   03 023CB    4B403085              AND,4    =X'FFFC'
    11799   03 023CC    664001EA A            AWM,4    CHAIN+2
    11800   03 023CD    6AF03017     F0441    BAL,15   :CLEAR
    11801   03 023CE    22000B1F              LI,0     DA(DATAZERO)
    11802   03 023CF    6AF02399              BAL,15   DATAWRT
    11803   03 023D0    000027F8              DATA     MSF440
    11804   03 023D1    220000F4 A            LI,0     DA(CHAIN)
    11805   03 023D2    6AF02399              BAL,15   DATAWRT
    11806   03 023D3    010027F8              GEN,8,24 1,MSF440
    11807                            *
    11808   03 023D4    220000F6 A            LI,0     DA(UNCHAIN)
    11809   03 023D5    6AF00EA0              BAL,15   T:CONT
    11810   03 023D6    00000000 A            DATA     0
    11811   03 023D7    4CC00000 A            SIO,12   0
    11812   03 023D8    000023A6              DATA     ALFDATA
    11813   03 023D9    020027F8              GEN,8,24 2,MSF440
    11814   03 023DA    00002394              DATA     CLF042
    11815   03 023DB    680023CD              B        F0441
    11816   03 023DC    680023C3              B        F0442
    11817                            *
    11818                            *
    11819         03 009FE           MSF440   EQU      BA(MSGF0440)
    11820                                     PAGE
    11821                            *
    11822                            *                 FAM BYTE PRESENCE TEST 2
    11823                            *
    11824         00000132                    TESTNO
    11825                            F045 ;
    11826   03 023DD    352006BE              STW,2    VDEC1A
    11827   03 023DE    6AF013E5              BAL,15   DATAINIT
    11828                            *
    11829   03 023DF    22400004 A   F0452    LI,4     4
    11830   03 023E0    664015C4              AWM,4    BD1
    11831   03 023E1    02200060 A            LCI      6
    11832   03 023E2    2A602408              LM,6     F045IOCD
    11833   03 023E3    2B6001E8 A            STM,6    CHAIN
    11834   03 023E4    324015C4              LW,4     BD1
    11835   03 023E5    664001E9 A            AWM,4    CHAIN+1
    11836   03 023E6    664001EA A            AWM,4    CHAIN+2
    11837   03 023E7    2140003C A            CI,4     60
    11838   03 023E8    69200CD1              BG       RIOPEXIT
    11839   03 023E9    6AF03017     F0451    BAL,15   :CLEAR
    11840   03 023EA    220000F4 A            LI,0     DA(CHAIN)
    11841   03 023EB    6AF02399              BAL,15   DATAWRT
    11842   03 023EC    000027F8              DATA     MSF440
    11843   03 023ED    220000F6 A            LI,0     DA(UNCHAIN)
    11844   03 023EE    6AF00EA0              BAL,15   T:CONT
    11845   03 023EF    00000000 A            DATA     0
    11846   03 023F0    4CC00000 A            SIO,12   0
    11847   03 023F1    000023A6              DATA     ALFDATA
    11848   03 023F2    010027F8              GEN,8,24 1,MSF440
    11849   03 023F3    00002394              DATA     CLF042
    11850   03 023F4    680023E9              B        F0451
    11851   03 023F5    680023DF              B        F0452
    11852                            *
    11853                            *
    11854                                     BOUND    8
    11855   03 023F6    01005948     F042IOCD GEN,8,24 X'01',BA(PATTDISP)
    11856   03 023F7    9C000001 A            GEN,8,24 X'9C',1
    11857   03 023F8    00005950              GEN,8,24 0,BA(PATTDISP)+8
    11858   03 023F9    1C000001 A            GEN,8,24 X'1C',1
    11859   03 023FA    0200C260              GEN,8,24 X'02',BA(BUF1LO)
    11860   03 023FB    1C000040 A            GEN,8,24 X'1C',X'40'
    11861                                     BOUND    8
    11862   03 023FC    0200C260     F043IOCD GEN,8,24 2,BA(BUF1LO)
    11863   03 023FD    9C000001 A            GEN,8,24 X'9C',1
    11864   03 023FE    0000C270              GEN,8,24 0,BA(BUF1LO)+16
    11865   03 023FF    1C000001 A            GEN,8,24 X'1C',1
    11866   03 02400    01005948              GEN,8,24 1,BA(PATTDISP)
    11867   03 02401    1C000040 A            GEN,8,24 X'1C',64
    11868   03 02402    01005948     F044IOCD GEN,8,24 1,BA(PATTDISP)
    11869   03 02403    9C000000 A            GEN,8,24 X'9C',0
    11870   03 02404    0000594C              GEN,8,24 0,BA(PATTDISP)+4
    11871   03 02405    1C000004 A            GEN,8,24 X'1C',4
    11872   03 02406    0200C260              GEN,8,24 2,BA(BUF1LO)
    11873   03 02407    1C000040 A            GEN,8,24 X'1C',64
    11874   03 02408    01005948     F045IOCD GEN,8,24 1,BA(PATTDISP)
    11875   03 02409    9C000000 A            GEN,8,24 X'9C',0
    11876   03 0240A    00005949              GEN,8,24 0,BA(PATTDISP)+1
    11877   03 0240B    1C000003 A            GEN,8,24 X'1C',3
    11878   03 0240C    0200C260              GEN,8,24 X'02',BA(BUF1LO)
    11879   03 0240D    1C000040 A            GEN,8,24 X'1C',64
    11880                                     PAGE
    11881                            *
    11882                            *                 MEMORY ADDRESS ERROR TEST
    11883                            *
    11884         00000133                    TESTNO
    11885         03 0240E           F045A    SET      %
    11886   03 0240E    6AF011F2              BAL,15   SIZEACT           GO CALCULATE SIZE OF MEMORY
    11887   03 0240F    32E015D0              LW,14    DASIZE            LOAD DW SIZE OF MEMORY
    11888   03 02410    31E00195 A            CW,14    CDW               TEST AGAINST MAX MEMORY
    11889   03 02411    68100CD1              BGE      RIOPEXIT          IF = TO OR GREATER EXIT
    11890   03 02412    25E00003 A            SLS,14   3                 CONVERT TO BA
    11891   03 02413    7510000E A            STB,1    14                ADD WRITE ORDER
    11892   03 02414    32F03086              LW,15    =X'1C00AAAA'      LOAD FLAGS AND BC
    11893   03 02415    15E002F2 A            STD,14   IOCDGEN           SAVE IOCD
    11894   03 02416    22000179 A            LI,0     DA(IOCDGEN)       LOAD DA OF IOCD
    11895   03 02417    22E0280C              LI,14    MSF045A           LOAD ADDR OF MSG
    11896   03 02418    6AF014EC              BAL,15   MODE1I            GO TEST FOR MEMORY ADDR ERROR
    11897   03 02419    98124001 A            CHCKTIO  X'98124000'
    11898   03 0241A    00124002 A            CHCKTDV  X'00124000'
    11899   03 0241B    00184006 A            CHCKAIO  X'00184000'
    11900   03 0241C    18120083 A            CHCKHIO  *X'18120000'
    11901         03 00A03           MSF045A  SET      BA(MSGF045A)
    11902                                     PAGE
    11903                            *
    11904                            *                 MEMORY PORT TEST (WRITE TO RIOP FROM ALL OF MEMORY)
    11905                            *
    11906         00000134                    TESTNO
    11907         03 0241D           F046     EQU      %
    11908   03 0241D    2250003C A            LI,5     60                BIAS VALUE (WRITE)
    11909   03 0241E    22700000 A            LI,7     0                 BIAS VALUE (READ)
    11910   03 0241F    68002422              B        F046X
    11911                            *
    11912                            *                 MEMORY PORT TEST (READ FROM RIOP TO ALL OF MEMORY)
    11913                            *
    11914         00000135                    TESTNO
    11915   03 02420    22500000 A   F047     LI,5     0                 BIAS VALUE (WRITE)
    11916   03 02421    2270003C A            LI,7     60                BIAS VALUE (READ)
    11917                            *
    11918   03 02422    2240C2E0     F046X    LI,4     BA(BUF1LO+32)
    11919   03 02423    354001E8 A            STW,4    CHAIN                 BASE ADDR
    11920   03 02424    354001EA A            STW,4    CHAIN+2               BASE ADDR
    11921   03 02425    355001CA A            STW,5    PSAVE4            SAVE WRITE BIAS
    11922   03 02426    357001CB A            STW,7    PSAVE5            SAVE READ BIAS
    11923   03 02427    6AF013E5              BAL,15   DATAINIT          INITIALIZE BYTE BIAS
    11924                            *
    11925                            *
    11926                            *
    11927   03 02428    22500005 A            LI,5     5                 SET UP
    11928   03 02429    32603087              LW,6     =X'F0A5C396'          PATTERN
    11929   03 0242A    22700203 A            LI,7     X'203'                TYPE
    11930   03 0242B    02200030 A            LCI      3
    11931   03 0242C    2B5002EE A            STM,5    :PATID
    11932                            *
    11933                            *
    11934   03 0242D    22500010 A            LI,5     16                LOAD WORD
    11935   03 0242E    355002CE A            STW,5    :CLRSIZE          SAVE SIZE OF CLEAR BUFFER
    11936   03 0242F    355002CC A            STW,5    :COMWCNT              COUNT
    11937                            *
    11938   03 02430    3250022F A            LW,5     :MEMLAST          LOAD AND SAVE
    11939   03 02431    355001C9 A            STW,5    PSAVE3                START OF DPM
    11940   03 02432    6AF011F2              BAL,15   SIZEACT           GO FIND ACTUAL SIZE OF MEMORY
    11941                            *
    11942   03 02433    324001E8 A   F046XX   LW,4     CHAIN             LOAD MBA OF WRITE
    11943   03 02434    4B403029              AND,4    =X'00FFFFFF'      REMOVE ORDER
    11944   03 02435    304001CA A            AW,4     PSAVE4            ADD BYTE BIAS
    11945   03 02436    2540007E A            SLS,4    -2                CONVERT TO WORD ADDR
    11946   03 02437    354002CB A            STW,4    :COMBFRB          SAVE AS POINTER TO PATTERN BUFFER
    11947   03 02438    20400064 A            AI,4     100               ADD 100
    11948   03 02439    314001C9 A            CW,4     PSAVE3            IF LARGE THEN
    11949   03 0243A    6810248A              BGE      F046XXX               LIMIT GO TO NEXT STAGE
    11950                            *
    11951                            *
    11952   03 0243B    326001EA A            LW,6     CHAIN+2           LOAD MBA OF READ
    11953   03 0243C    4B603029              AND,6    =X'00FFFFFF'      REMOVE ORDER
    11954   03 0243D    306001CB A            AW,6     PSAVE5            ADD BYTE BIAS
    11955   03 0243E    2560007E A            SLS,6    -2                CONVERT TO WORD ADDR
    11956   03 0243F    356002CD A            STW,6    :CLRADDR          SAVE AS STARTING ADDR OF CLEAR AREA
    11957   03 02440    20600064 A            AI,6     100               ADD 100
    11958   03 02441    316001C9 A            CW,6     PSAVE3            IF LARGE THEN LIMIT EXIT
    11959   03 02442    6810248A              BGE      F046XXX               GO TO NEXT STAGE
    11960   03 02443    324002CB A            LW,4     :COMBFRB
    11961   03 02444    326002CD A            LW,6     :CLRADDR
    11962   03 02445    25400002 A            SLS,4    2                 POSITION WRITE MBA
    11963   03 02446    25600002 A            SLS,6    2                 POSITION READ MBA
    11964   03 02447    75100004 A            STB,1    4                 ADD WRITE ORDER
    11965   03 02448    75200006 A            STB,2    6                 ADD READ ORDER
    11966   03 02449    32503088              LW,5     =X'2C000038'      LOAD FLAGS-CC,HTE,VE; BC=56
    11967   03 0244A    32703089              LW,7     =X'1C000038'      LOAD FLAGS-ICE,HTE,VE; BC=56
    11968   03 0244B    6AF013F3              BAL,15   DATAUP1
    11969   03 0244C    00000004 A            DATA     4                     IOCD
    11970   03 0244D    71560007 A            CB,5     7,3               IF THE WRITE BC IS GREATER
    11971   03 0244E    68102450              BGE      %+2                   THAN THE READ BC BRANCH
    11972   03 0244F    755601EB A            STB,5    CHAIN+3,3         OTHERWISE FORCE READ BC = WRITE BC
    11973   03 02450    325002EF A            LW,5     :PATID+1
    11974   03 02451    25500207 A            SCS,5    7
    11975   03 02452    355002EF A            STW,5    :PATID+1
    11976                            *                                                                   *A02
    11977                            *        DO PATTERN OPERATION                                       *A02
    11978                            *                                                                   *A02
    11979         03 02453           F0462    EQU      %                                                 *A02
    11980   03 02453    6AF00E98              BAL,15   T:EXECRS                                          *A02
    11981   03 02454    00001E9F              DATA     PLFYYY1                                           *A02
    11982   03 02455    00000000 A            DATA     0                                                 *A02
    11983   03 02456    00002476              DATA     ALFREAL                                           *A02
    11984   03 02457    0000281A              DATA     MSF046                                            *A02
    11985   03 02458    00000000 A            DATA     0                                                 *A02
    11986   03 02459    68002453              B        F0462                                             *A02
    11987                            *                                                                   *A02
    11988                            *                                                                   *A02
    11989   03 0245A    220000F4 A   F0461    LI,0     DA(CHAIN)         LOAD DA(IOCD)
    11990   03 0245B    6AF00E98              BAL,15   T:EXECRS
    11991   03 0245C    00001E9F              DATA     PLFYYY1
    11992   03 0245D    4CC00000 A            SIO,12   0
    11993   03 0245E    00002473              DATA     ALF046
    11994   03 0245F    0100281A              GEN,8,24 1,MSF046                                          *A02
    11995   03 02460    00002465              DATA     CLFN046
    11996   03 02461    6800245A              B        F0461
    11997   03 02462    6AF013D2              BAL,15   UPDATA            GO UPDATE BC AND MBA
    11998   03 02463    68002464              B        %+1
    11999   03 02464    68002433              B        F046XX            GO LOOP
    12000                            *
    12001                            *
    12002         03 02465           CLFN046  EQU      %
    12003   03 02465    0F00164E              XPSD,0   XPSDCOMP
    12004   03 02466    02200040 A            LCI      4                 LOAD IOCD'S
    12005   03 02467    2A4001E8 A            LM,4     CHAIN
    12006   03 02468    4B400003 A            AND,4    3                 REMOVE ALL BUT BYTES
    12007   03 02469    4B600003 A            AND,6    3                 REMOVE ALL BUT BYTES
    12008   03 0246A    2040C260              AI,4     BA(BUF1LO)        ADD NEW BYTE ADDR
    12009   03 0246B    2060C2A0              AI,6     BA(BUF1LO+16)     ADD NEW BYTE ADDR
    12010   03 0246C    02200040 A            LCI      4                 RELOCATE IOCD'S
    12011   03 0246D    2B4001EC A            STM,4    UNCHAIN           SAVE IOCD'S
    12012   03 0246E    6AF01345              BAL,15   CLISTI            TEST I/O STATUS
    12013   03 0246F    224000F7 A            LI,4     DA(UNCHAIN+2)     LOAD DA OF IOCD TO WRITE PATTERN
    12014   03 02470    225000F6 A            LI,5     DA(UNCHAIN)       LOAD DA OF IOCD TO READ PATTERN
    12015   03 02471    6AF013FA              BAL,15   BYTEPATN          TEST BYTE PATTERN
    12016   03 02472    680010C1              B        XIT
    12017   03 02473    6AF012F6     ALF046   BAL,15   ALFUNCT           GO COLLECT I/O STATUS
    12018   03 02474    000024B2              DATA     CLNL021
    12019   03 02475    680010C1              B        XIT
    12020                            *                                                                   *A02
    12021                            *                                                                   *A02
    12022         03 02476           ALFREAL  EQU      %                                                 *A02
    12023   03 02476    0F00164A              XPSD,0   XPSDPAT                                           *A02
    12024   03 02477    680010C1              B        XIT                                               *A02
    12025                            *                                                                   *A02
    12026                            *                                                                   *A02
    12027         03 02478           REALXTNP EQU      %
    12028   03 02478    6AF03017              BAL,15   :CLEAR            GO CLEAR INPUT PATTERN AREA
    12029   03 02479    6AF02EEB              BAL,15   :PATTERN          GO BUILD PATTERN
    12030   03 0247A    0E00164A              LPSD,0   XPSDPAT
    12031   03 0247B    3A4002CC A   REALXTNC LCW,4    :COMWCNT          LOAD WORD COUNT
    12032   03 0247C    326002CD A            LW,6     :CLRADDR          LOAD ADDR OF INPUT BUFFER
    12033   03 0247D    306002CC A            AW,6     :COMWCNT          ADD WORD COUNT
    12034   03 0247E    227030B8              LI,7     BUF1LO+32         LOAD TOP OF BUFFER
    12035   03 0247F    B2880006 A            LW,8     *6,4              LOAD WORD
    12036   03 02480    B5880007 A            STW,8    *7,4                  AND MOVE IT
    12037   03 02481    6540247F              BIR,4    %-2               LOOP UNTIL DONE
    12038   03 02482    3A4002CC A            LCW,4    :COMWCNT
    12039   03 02483    326002CB A            LW,6     :COMBFRB
    12040   03 02484    306002CC A            AW,6     :COMWCNT
    12041   03 02485    227030A8              LI,7     BUF1LO+16         LOAD TOP OF BUFFER
    12042   03 02486    B2880006 A            LW,8     *6,4
    12043   03 02487    B5880007 A            STW,8    *7,4
    12044   03 02488    65402486              BIR,4    %-2
    12045   03 02489    0E00164E              LPSD,0   XPSDCOMP          RETURN
    12046         03 00A06 2         MSF046   EQU      BA(MSGF046)
    12047                            *
    12048                            *
    12049                            *
    12050   03 0248A    22600000 A   F046XXX LI,6      0                 LOAD ZERO
    12051   03 0248B    466015D0              XW,6     DASIZE                LOAD ACTUAL SIZE OF MEMORY
    12052   03 0248C    68300CD1              BEZ      RIOPEXIT          IF =0 EXIT
    12053   03 0248D    25600001 A            SLS,6    1                 CONVERT TO WORD ADDR
    12054   03 0248E    356001C9 A            STW,6    PSAVE3            SAVE UPPER LIMIT
    12055                            *
    12056                            *
    12057   03 0248F    32500227 A            LW,5     :RLOADER          LOAD ADDR OF LOAD
    12058   03 02490    20500200 A            AI,5     X'200'                ADD X'200'TO GET TO TOP OF LOADR
    12059   03 02491    25500002 A            SLS,5    2                 CONVERT TO BA
    12060   03 02492    330001CA A            MTW,0    PSAVE4            TEST SIZE OF BIAS
    12061   03 02493    69302496              BNEZ     %+3                  IF NOT ZERO
    12062   03 02494    355001EA A            STW,5    CHAIN+2           SAVE READ BA
    12063   03 02495    68002497              B        %+2
    12064   03 02496    355001E8 A            STW,5    CHAIN             SAVE WRITE BA
    12065   03 02497    68002433              B        F046XX            GO LOOP BACK
    12066                                     PAGE
    12067                            *
    12068                            *                 NORMAL SEEK TEST 1 (MBA=X+2, HTE, BC=2)
    12069                            *
    12070         00000136                    TESTNO
    12071   03 02498    351006BE     N000     STW,1    VDEC1A
    12072   03 02499    220012B3              LI,0     DA(IOCDN00)
    12073   03 0249A    22E0282D     N000X    LI,14    MSN000
    12074   03 0249B    6AF014D7              BAL,15   MODE2
    12075   03 0249C    10000001 A            CHCKTIO  X'10000000'
    12076   03 0249D    00000020 A            CHCKBC   0
    12077   03 0249E    00004002 A            CHCKTDV  X'00004000'
    12078   03 0249F    00004006 A            CHCKAIO  X'00004000'
    12079   03 024A0    10000083 A            CHCKHIO  *X'10000000'
    12080                            *
    12081                            *                 NORMAL SEEK TEST 2
    12082                            *                 (MBA=X+2, UE, BC=2)
    12083                            *
    12084         00000137                    TESTNO
    12085   03 024A1    352006BE     N001     STW,2    VDEC1A
    12086   03 024A2    220012B4              LI,0     DA(IOCDN01)
    12087   03 024A3    6800249A              B        N000X
    12088                            *
    12089                            *                 NORMAL SEEK TEST 3  (MBA=X+2, IZC, BC=2)
    12090                            *
    12091         00000138                    TESTNO
    12092   03 024A4    353006BE     N002     STW,3    VDEC1A
    12093   03 024A5    220012B5              LI,0     DA(IOCDN02)
    12094   03 024A6    22E0282D              LI,14    MSN000
    12095   03 024A7    6AF014D5              BAL,15   MODE2I
    12096   03 024A8    90004001 A            CHCKTIO  X'90004000'
    12097   03 024A9    00000020 A            CHCKBC   0
    12098   03 024AA    00004002 A            CHCKTDV  X'00004000'
    12099   03 024AB    00204006 A            CHCKAIO  X'00204000'
    12100   03 024AC    10000083 A            CHCKHIO  *X'10000000'
    12101                            *
    12102                            *                 NORMAL SEEK TEST 4 (MBA=X+2, ICE, BC=2)
    12103                            *
    12104         00000139                    TESTNO
    12105   03 024AD    22400004 A   N003     LI,4     4
    12106   03 024AE    354006BE              STW,4    VDEC1A
    12107   03 024AF    220012B6              LI,0     DA(IOCDN03)
    12108   03 024B0    22E0282D     N003X    LI,14    MSN000
    12109   03 024B1    6AF014D5     N003XX   BAL,15   MODE2I
    12110         03 024B2           CLFTDATA EQU      %
    12111         03 024B2           CLPLIST  EQU      %
    12112         03 024B2           N003XXX  EQU      %
    12113         03 024B2           CLFT041  EQU      %
    12114   03 024B2    90004001 A            CHCKTIO  X'90004000'
    12115   03 024B3    00000020 A            CHCKBC   0
    12116   03 024B4    00004002 A            CHCKTDV  X'00004000'
    12117   03 024B5    00104006 A            CHCKAIO  X'00104000'
    12118   03 024B6    10000083 A            CHCKHIO  *X'10000000'
    12119                            *
    12120                            *                 NORMAL SEEK TEST 5 (MBA= X+0, ICE,HTE,UE  BC=2)
    12121                            *
    12122         00000140                    TESTNO
    12123   03 024B7    326002C5 A   N004     LW,6     TSSTARTC
    12124   03 024B8    25600010 A            SLS,6    16
    12125   03 024B9    2280C260              LI,8     BA(BUF1LO)
    12126   03 024BA    22400005 A            LI,4     5
    12127   03 024BB    680024C7              B        N004X
    12128                            *
    12129                            *                 NORMAL SEEK TEST 6 (MBA= X+1, ICE,HTE,UE  BC=2)
    12130                            *
    12131         00000141                    TESTNO
    12132   03 024BC    326002C5 A   N005     LW,6     TSSTARTC
    12133   03 024BD    25600008 A            SLS,6    8
    12134   03 024BE    2280C261              LI,8     BA(BUF1LO)+1
    12135   03 024BF    22400006 A            LI,4     6
    12136   03 024C0    680024C7              B        N004X
    12137                            *
    12138                            *                 NORMAL SEEK TEST 7 (MBA= X+3, ICE,HTE,UE BC=2)
    12139                            *
    12140         00000142                    TESTNO
    12141   03 024C1    326002C5 A   N006     LW,6     TSSTARTC
    12142   03 024C2    22700000 A            LI,7     0
    12143   03 024C3    25600178 A            SLD,6    -8
    12144   03 024C4    2280C263              LI,8     BA(BUF1LO)+3
    12145   03 024C5    22400007 A            LI,4     7
    12146   03 024C6    680024C7              B        N004X
    12147                            *
    12148                            *
    12149                            *
    12150   03 024C7    35603098     N004X    STW,6    BUF1LO
    12151   03 024C8    35703099              STW,7    BUF1LO+1
    12152   03 024C9    354006BE              STW,4    VDEC1A
    12153   03 024CA    75300008 A            STB,3    8
    12154   03 024CB    3580256E              STW,8    IOCDN04
    12155   03 024CC    220012B7              LI,0     DA(IOCDN04)
    12156   03 024CD    680024B0              B        N003X
    12157                                     PAGE
    12158                            *
    12159                            *                 SEEK WITH INCORRECT BYTE COUNT TEST 1
    12160                            *                 (MBA=X+2, HTE,IUE,ICE BC=1)
    12161         00000143                    TESTNO
    12162   03 024CE    351006BE     N007     STW,1    VDEC1A
    12163   03 024CF    220012B8              LI,0     DA(IOCDN07)
    12164   03 024D0    22E0283F              LI,14    MSN0070
    12165   03 024D1    6AF014D5     N0070X   BAL,15   MODE2I
    12166   03 024D2    98824001 A            CHCKTIO  X'98824000'
    12167   03 024D3    00000020 A            CHCKBC   0
    12168   03 024D4    00824002 A            CHCKTDV  X'00824000'
    12169   03 024D5    00984006 A            CHCKAIO  X'00984000'
    12170   03 024D6    18820083 A            CHCKHIO  *X'18820000'
    12171                                     PAGE
    12172                            *
    12173                            *                 SEEK WITH INCORRECT BYTE COUNT TEST 2
    12174                            *                 (MBA=X+2,HTE,IUE,ICE BC=3)
    12175         00000144                    TESTNO
    12176   03 024D7    352006BE     N008     STW,2    VDEC1A
    12177   03 024D8    22A00000 A            LI,10    0
    12178   03 024D9    35A03098              STW,10   BUF1LO
    12179   03 024DA    35103098              STW,1    BUF1LO
    12180   03 024DB    35A03099              STW,10   BUF1LO+1
    12181   03 024DC    22D0283F              LI,13    MSN0070
    12182   03 024DD    22800080 A            LI,8     128
    12183   03 024DE    12602572              LD,6     IOCDN08
    12184   03 024DF    680024FB              B        N013X
    12185                                     PAGE
    12186                            *
    12187                            *                 SUPPRESS INCORRECT LENGTH TEST
    12188                            *                 (MBA=X+2,HTE,IUE,ICE,SIL, BC=1)
    12189         00000145                    TESTNO
    12190   03 024E0    22E02854     N009     LI,14    MSN009
    12191   03 024E1    220012BA              LI,0     DA(IOCDN009)
    12192   03 024E2    6AF014D5              BAL,15   MODE2I
    12193   03 024E3    90804001 A            CHCKTIO  X'90804000'
    12194   03 024E4    00000020 A            CHCKBC   0
    12195   03 024E5    00804002 A            CHCKTDV  X'00804000'
    12196   03 024E6    00904006 A            CHCKAIO  X'00904000'
    12197   03 024E7    10800083 A            CHCKHIO  *X'10800000'
    12198                            *
    12199                            *
    12200         03 00A15           MSN009   EQU      BA(MSN0090)
    12201                                     PAGE
    12202                            *
    12203                            *                 NORMAL SENSE TEST 1 (MBA=X, HTE,IUE,ICE, BC=4)
    12204                            *
    12205         00000146                    TESTNO
    12206   03 024E8    351006BE     N010     STW,1    VDEC1A
    12207   03 024E9    22D0282D              LI,13    MSN010
    12208   03 024EA    12A02576              LD,10    IOCDN010
    12209   03 024EB    68002520              B        N014X
    12210                            *
    12211                            *                 SENSE WITH INCORRECT BYTE COUNT TEST
    12212                            *                 (MBA=X, HTE,IUE,ICE BC=3)
    12213         00000147                    TESTNO
    12214   03 024EC    351006BE     N011     STW,1    VDEC1A
    12215   03 024ED    22E0283F              LI,14    MSN011
    12216   03 024EE    220012BC              LI,0     DA(IOCDN011)
    12217   03 024EF    680024D1              B        N0070X
    12218                            *
    12219                            *                 SENSE WITH INCORRECT BYTE COUNT TEST
    12220                            *                 (MBA=X, HTE,IUE,ICE BC=5)
    12221         00000148                    TESTNO
    12222   03 024F0    352006BE     N012     STW,2    VDEC1A
    12223   03 024F1    22D0283F              LI,13    MSN011
    12224   03 024F2    22800080 A            LI,8     128
    12225   03 024F3    12602576              LD,6     IOCDN010
    12226   03 024F4    680024FB              B        N013X
    12227                                     PAGE
    12228                            *
    12229                            *                 WRITE CONTROL FOR INCORRECT LENGTH TEST 1
    12230                            *                 (X+0<MBA<X+4, HTE, IUE, ICE 0<BC<1024)
    12231         00000149                    TESTNO
    12232   03 024F5    351006BE     N013     STW,1    VDEC1A
    12233   03 024F6    22D0283F              LI,13    MSN011
    12234   03 024F7    22800400 A            LI,8     1024
    12235   03 024F8    2260C260              LI,6     BA(BUF1LO)
    12236   03 024F9    75100006 A            STB,1    6
    12237   03 024FA    3270308A              LW,7     =X'1C000000'
    12238                            *
    12239   03 024FB    22500001 A   N013X    LI,5     1
    12240   03 024FC    355001CA A   N013XY   STW,5    PSAVE4
    12241   03 024FD    35701593              STW,7    N013SAVE
    12242   03 024FE    156002F2 A            STD,6    IOCDGEN
    12243   03 024FF    358001C3 A            STW,8    PINDEX
    12244   03 02500    2580007E A            SLS,8    -2
    12245   03 02501    558202CC A            STH,8    :PATWC,1
    12246   03 02502    661002CC A            AWM,1    :PATWC
    12247   03 02503    35D01594              STW,13   MSN013X
    12248                            N013XYY ;
    12249   03 02504    22C02504              LI,12    %
    12250   03 02505    713002F2 A            CB,3     IOCDGEN
    12251   03 02506    68302508              BE       %+2
    12252   03 02507    6AF02536              BAL,15   PATUPIT
    12253   03 02508    325001CA A            LW,5     PSAVE4
    12254   03 02509    665002F3 A            AWM,5    IOCDGEN+1
    12255   03 0250A    527202F3 A            LH,7     IOCDGEN+1,1
    12256   03 0250B    317001C3 A            CW,7     PINDEX
    12257   03 0250C    69102515              BL       N013Y
    12258   03 0250D    32701593              LW,7     N013SAVE
    12259   03 0250E    357002F3 A            STW,7    IOCDGEN+1
    12260   03 0250F    326002F2 A            LW,6     IOCDGEN
    12261   03 02510    4B603029              AND,6    =X'FFFFFF'
    12262   03 02511    2160C263              CI,6     BA(BUF1LO)+3
    12263   03 02512    68100CD1              BGE      RIOPEXIT
    12264   03 02513    331002F2 A            MTW,1    IOCDGEN
    12265   03 02514    68002504              B        N013XYY
    12266   03 02515    22000179 A   N013Y    LI,0     DA(IOCDGEN)
    12267   03 02516    32E01594              LW,14    MSN013X
    12268   03 02517    6AF014DC              BAL,15   MODE2IFT
    12269   03 02518    98824001 A            CHCKTIO  X'98824000'
    12270   03 02519    00000020 A            CHCKBC   0
    12271   03 0251A    00824002 A            CHCKTDV  X'00824000'
    12272   03 0251B    00984006 A            CHCKAIO  X'00984000'
    12273   03 0251C    18820083 A            CHCKHIO  *X'18820000'
    12274                                     PAGE
    12275                            *
    12276                            *                 NORMAL WRITE CONTROL TEST 1
    12277                            *                 (X-1<MBA<X+4, HTE,IUE, ICE BC=1024)
    12278         00000150                    TESTNO
    12279   03 0251D    351006BE     N014     STW,1    VDEC1A
    12280   03 0251E    22D0282D              LI,13    MSN014
    12281   03 0251F    12A0257A              LD,10    IOCD014
    12282   03 02520    15A002F2 A   N014X    STD,10   IOCDGEN
    12283   03 02521    2260001C A            LI,6     X'1C'                                             *A02
    12284   03 02522    756002F3 A            STB,6    IOCDGEN+1                                         *A02
    12285   03 02523    25B0007E A            SLS,11   -2
    12286   03 02524    55B202CC A            STH,11   :PATWC,1
    12287   03 02525    661002CC A            AWM,1    :PATWC
    12288   03 02526    35D00190 A            STW,13   MSN013
    12289         03 02527           N014Z    EQU      %                                                 *A02
    12290   03 02527    22C02527              LI,12    %
    12291   03 02528    331002F2 A            MTW,1    IOCDGEN
    12292   03 02529    6AF02536              BAL,15   PATUPIT
    12293   03 0252A    32A002F2 A            LW,10    IOCDGEN
    12294   03 0252B    4BA03029              AND,10   =X'FFFFFF'
    12295   03 0252C    21A0C264              CI,10    BA(BUF1LO)+4
    12296   03 0252D    6810253C              BGE      N014Y                                             *A02
    12297   03 0252E    22000179 A            LI,0     DA(IOCDGEN)
    12298   03 0252F    32E01594              LW,14    MSN013X
    12299   03 02530    6AF014DC              BAL,15   MODE2IFT
    12300   03 02531    90004001 A            CHCKTIO  X'90004000'
    12301   03 02532    00000020 A            CHCKBC   0
    12302   03 02533    00004002 A            CHCKTDV  X'00004000'
    12303   03 02534    00104006 A            CHCKAIO  X'00104000'
    12304   03 02535    10000083 A            CHCKHIO  *X'10000000'
    12305                            *
    12306                            *
    12307   03 02536    326002F2 A   PATUPIT  LW,6     IOCDGEN
    12308   03 02537    4B60304F              AND,6    =3
    12309   03 02538    327C25B4              LW,7     PAT26INDEX,6
    12310   03 02539    22600006 A            LI,6     6
    12311   03 0253A    156002EE A            STD,6    :PATID
    12312   03 0253B    68002EEB              B        :PATTERN
    12313                            *                                                                   *A02
    12314                            *                                                                   *A02
    12315         03 0253C           N014Y    EQU      %                                                 *A02
    12316   03 0253C    72F002F3 A            LB,15    IOCDGEN+1                                         *A02
    12317   03 0253D    21F0001D A            CI,15    X'1D'                                             *A02
    12318   03 0253E    68300CD1              BE       RIOPEXIT                                          *A02
    12319   03 0253F    711002F2 A            CB,1     IOCDGEN                                           *A02
    12320   03 02540    69300CD1              BNE      RIOPEXIT          IF NOT WRITE ORDER BRANCH       *A02
    12321   03 02541    731002F3 A            MTB,1    IOCDGEN+1                                         *A02
    12322   03 02542    33B002F2 A            MTW,-5   IOCDGEN                                           *A02
    12323   03 02543    68002527              B        N014Z                                             *A02
    12324                                     PAGE
    12325                            *
    12326                            *                 WRITE CONTROL FOR INCORRECT LENGTH TEST 2
    12327                            *                 (MBA=X HTE,IUE,ICE 1024<BC<2048)
    12328         00000151                    TESTNO
    12329   03 02544    352006BE     N015     STW,2    VDEC1A            TEST NO.
    12330   03 02545    22D0283F              LI,13    MSN011
    12331   03 02546    22800800 A            LI,8     2048              MAX BYTE COUNT
    12332   03 02547    2260C260              LI,6     BA(BUF1LO)        IOCD
    12333   03 02548    75100006 A            STB,1    6                     TO
    12334   03 02549    3270308B              LW,7     =X'1C000400'
    12335   03 0254A    680024FB              B        N013X
    12336                                     PAGE
    12337                            *
    12338                            *                 NORMAL WRITE CONTROL TEST 2
    12339                            *                 (MBA=X, HTE,IUE,ICE BC=2048)
    12340         00000152                    TESTNO
    12341   03 0254B    352006BE     N016     STW,2    VDEC1A
    12342   03 0254C    22D0282D              LI,13    MSN014
    12343   03 0254D    12A0257C              LD,10    IOCD016
    12344   03 0254E    68002520              B        N014X
    12345                                     PAGE
    12346                            *
    12347                            *                 READ CONTROL FOR INCORRECT LENGTH TEST 1
    12348                            *                 (X+0<MBA<X+4, HTE,IUE,ICE 0<BC<1024)
    12349         00000153                    TESTNO
    12350   03 0254F    351006BE     N017     STW,1    VDEC1A
    12351   03 02550    22D0283F              LI,13    MSN017
    12352   03 02551    22800400 A            LI,8     1024
    12353   03 02552    2260C260              LI,6     BA(BUF1LO)
    12354   03 02553    75200006 A            STB,2    6
    12355   03 02554    3270308A              LW,7     =X'1C000000'
    12356   03 02555    680024FB              B        N013X
    12357                                     PAGE
    12358                            *
    12359                            *                 NORMAL READ CONTROL TEST 1
    12360                            *                 (X-1<MBA<X+4, HTE,IUE,ICE BC=1024)
    12361         00000154                    TESTNO
    12362   03 02556    351006BE     N018     STW,1    VDEC1A
    12363   03 02557    12A0257E              LD,10    IOCD018
    12364   03 02558    22D0282D              LI,13    MSN018
    12365   03 02559    68002520              B        N014X
    12366                                     PAGE
    12367                            *
    12368                            *                 READ CONTROL FOR INCORRECT LENGTH TEST 2
    12369                            *                 (X+0<MBA<X+4, HTE,IUE,ICE 1024<BC<2048)
    12370         00000155                    TESTNO
    12371   03 0255A    352006BE     N019     STW,2    VDEC1A
    12372   03 0255B    22D0283F              LI,13    MSN017
    12373   03 0255C    22800800 A            LI,8     2048
    12374   03 0255D    2260C260              LI,6     BA(BUF1LO)
    12375   03 0255E    75200006 A            STB,2    6
    12376   03 0255F    3270308B              LW,7     =X'1C000400'
    12377   03 02560    680024FB              B        N013X
    12378                            *        NORMAL READ CONTRO TEST 2
    12379                            *                 (X-1<MBA<X+4, HTE,IUE,ICE BC=2048)
    12380         00000156                    TESTNO
    12381   03 02561    352006BE     N020     STW,2    VDEC1A
    12382   03 02562    22D0282D              LI,13    MSN018
    12383   03 02563    12A02580              LD,10    IOCD020
    12384   03 02564    68002520              B        N014X
    12385                            *
    12386                                     BOUND    8
    12387   03 02566    03000B16 A   IOCDN00  GEN,8,24 X'03',BA(TSSTARTC)+2
    12388   03 02567    08000002 A            GEN,8,24 X'08',2
    12389   03 02568    03000B16 A   IOCDN01  GEN,8,24 X'03',BA(TSSTARTC)+2
    12390   03 02569    04000002 A            GEN,8,24 X'04',2
    12391   03 0256A    03000B16 A   IOCDN02  GEN,8,24 X'03',BA(TSSTARTC)+2
    12392   03 0256B    40000002 A            GEN,8,24 X'40',2
    12393   03 0256C    03000B16 A   IOCDN03  GEN,8,24 X'03',BA(TSSTARTC)+2
    12394   03 0256D    10000002 A            GEN,8,24 X'10',2
    12395   03 0256E    03000000 A   IOCDN04  GEN,8,24 X'03',0
    12396   03 0256F    1C000002 A            GEN,8,24 X'1C',2
    12397   03 02570    03000B16 A   IOCDN07  GEN,8,24 X'03',BA(TSSTARTC)+2
    12398   03 02571    1C000001 A            GEN,8,24 X'1C',1
    12399   03 02572    0300C260     IOCDN08  GEN,8,24 3,BA(BUF1LO)
    12400   03 02573    1C000002 A            GEN,8,24 X'1C',2
    12401   03 02574    03000B16 A   IOCDN009 GEN,8,24 X'03',BA(TSSTARTC)+2
    12402   03 02575    1E000001 A            GEN,8,24 X'1E',1
    12403   03 02576    0400C260     IOCDN010 GEN,8,24 X'04',BA(BUF1LO)
    12404   03 02577    1C000004 A            GEN,8,24 X'1C',4
    12405   03 02578    0400C260     IOCDN011 GEN,8,24 X'04',BA(BUF1LO)
    12406   03 02579    1C000003 A            GEN,8,24 X'1C',3
    12407   03 0257A    0100C25F     IOCD014  GEN,8,24 X'01',BA(BUF1LO)-1
    12408   03 0257B    1C000400 A            GEN,8,24 X'1C',1024
    12409   03 0257C    0100C25F     IOCD016  GEN,8,24 X'01',BA(BUF1LO)-1
    12410   03 0257D    1C000800 A            GEN,8,24 X'1C',2048
    12411   03 0257E    0200C25F     IOCD018  GEN,8,24 X'02',BA(BUF1LO)-1
    12412   03 0257F    1C000400 A            GEN,8,24 X'1C',1024
    12413   03 02580    0200C25F     IOCD020  GEN,8,24 X'02',BA(BUF1LO)-1
    12414   03 02581    1C000800 A            GEN,8,24 X'1C',2048
    12415   03 02582    0200C260     IOCDN021 GEN,8,24 X'02',BA(BUF1LO)
    12416   03 02583    1C000400 A            GEN,8,24 X'1C',1024
    12417   03 02584    0000C260     IOCD025  GEN,8,24 0,BA(BUF1LO)
    12418   03 02585    1C000800 A            GEN,8,24 X'1C',2048
    12419   03 02586    0500C25F     IOCD026  GEN,8,24 X'05',BA(BUF1LO)-1
    12420   03 02587    1C000400 A            GEN,8,24 X'1C',1024
    12421   03 02588    0500C25F     IOCD027  GEN,8,24 X'05',BA(BUF1LO)-1
    12422   03 02589    1C000800 A            GEN,8,24 X'1C',2048
    12423   03 0258A    0500C260     IOCD028  GEN,8,24 X'05',BA(BUF1LO)
    12424   03 0258B    1C000000 A            GEN,8,24 X'1C',0
    12425   03 0258C    0500C260     IOCD029  GEN,8,24 X'05',BA(BUF1LO)
    12426   03 0258D    1C000400 A            GEN,8,24 X'1C',1024
    12427   03 0258E    0000C260     IOCDN000 GEN,8,24 0,BA(BUF1LO)
    12428   03 0258F    1C000400 A            GEN,8,24 X'1C',1024
    12429                            *
    12430         03 00A24 1         MSN025   EQU      BA(MSGN2500)
    12431                                     PAGE
    12432                            *
    12433                            *                 READ DESKEW DATA PATH TEST 1
    12434                            *                 DATA PATTERN GENERATED BY RIOP 0,-1,0,1,ETC
    12435                            *
    12436         00000157                    TESTNO
    12437   03 02590    351006BE     N021     STW,1    VDEC1A
    12438   03 02591    22B025B8              LI,11    N021PAT
    12439   03 02592    229024B2              LI,9     CLNL021
    12440   03 02593    228011CD              LI,8     WDGPTM2
    12441   03 02594    6800259A              B        N021X
    12442                            *
    12443                            *                 READ DESKEW DATA PATH TEST 2
    12444                            *                 DATA PATTERN GENEATED BY RIOP 0,0,-1,-1,0,0,-1,-1,ETC
    12445         00000158                    TESTNO
    12446   03 02595    352006BE     N022     STW,2    VDEC1A
    12447   03 02596    22B025C8              LI,11    N022PAT
    12448   03 02597    229025AF              LI,9     CLNL022
    12449   03 02598    228011CB              LI,8     WDGPTM24
    12450   03 02599    6800259A              B        N021X
    12451                            *
    12452                            *
    12453                            N021X ;
    12454   03 0259A    358025A0              STW,8    N021XXX
    12455   03 0259B    359025AA              STW,9    ALN021X
    12456   03 0259C    22A00006 A            LI,10    6
    12457   03 0259D    15A002EE A            STD,10   :PATID
    12458   03 0259E    220012C1     N021XX   LI,0     DA(IOCDN021)
    12459   03 0259F    6AF00E98              BAL,15   T:EXECRS
    12460   03 025A0    00000000 A   N021XXX  DATA     0
    12461   03 025A1    4CC00000 A            SIO,12   0
    12462   03 025A2    000025A7              DATA     ALN021
    12463   03 025A3    00002861              DATA     MSN021
    12464   03 025A4    000025AC              DATA     CLN021
    12465   03 025A5    6800259E              B        N021XX
    12466   03 025A6    68000CD1              B        RIOPEXIT
    12467                            *
    12468                            *
    12469   03 025A7    6AF00EF1     ALN021   BAL,15   COLLECT
    12470   03 025A8    68000FDB              B        CC00
    12471   03 025A9    6AF012F6              BAL,15   ALFUNCT
    12472   03 025AA    00000000 A   ALN021X  DATA     0
    12473   03 025AB    680010C1              B        XIT
    12474                            *
    12475                            *
    12476                            *
    12477   03 025AC    6AF01345     CLN021   BAL,15   CLISTI
    12478   03 025AD    6AF010F1              BAL,15   DATACOMP
    12479   03 025AE    680010C1              B        XIT
    12480                            *
    12481         03 024B2           CLNL021  EQU      N003XXX
    12482                            *
    12483   03 025AF    98424001 A   CLNL022  CHCKTIO  X'98424000'
    12484   03 025B0    00000020 A            CHCKBC   0
    12485   03 025B1    00424002 A            CHCKTDV  X'00424000'
    12486   03 025B2    00584006 A            CHCKAIO  X'00584000'
    12487   03 025B3    18420083 A            CHCKHIO  *X'18420000'
    12488                            *
    12489                            *
    12490                            *
    12491         03 00A18 1         MSN021   EQU      BA(MSGN0210)
    12492                            *
    12493                            PAT26INDEX ;
    12494   03 025B4    000025B8              DATA     N021PAT
    12495   03 025B5    000025BC              DATA     N0211PAT
    12496   03 025B6    000025C0              DATA     N0212PAT
    12497   03 025B7    000025C4              DATA     N0213PAT
    12498                            *
    12499   03 025B8    FFFFFFFF A   N021PAT  DATA     -1
    12500   03 025B9    00000000 A            DATA     0
    12501   03 025BA    FFFFFFFF A            DATA     -1
    12502   03 025BB    00000000 A            DATA     0
    12503                            *
    12504   03 025BC    00FFFFFF A   N0211PAT DATA     X'00FFFFFF'
    12505   03 025BD    FF000000 A            DATA     X'FF000000'
    12506   03 025BE    00FFFFFF A            DATA     X'00FFFFFF'
    12507   03 025BF    FF000000 A            DATA     X'FF000000'
    12508                            *
    12509   03 025C0    0000FFFF A   N0212PAT DATA     X'0000FFFF'
    12510   03 025C1    FFFF0000 A            DATA     X'FFFF0000'
    12511   03 025C2    0000FFFF A            DATA     X'0000FFFF'
    12512   03 025C3    FFFF0000 A            DATA     X'FFFF0000'
    12513                            *
    12514   03 025C4    000000FF A   N0213PAT DATA     X'000000FF'
    12515   03 025C5    FFFFFF00 A            DATA     X'FFFFFF00'
    12516   03 025C6    000000FF A            DATA     X'000000FF'
    12517   03 025C7    FFFFFF00 A            DATA     X'FFFFFF00'
    12518   03 025C8    00000000 A   N022PAT  DATA     0
    12519   03 025C9    00000000 A            DATA     0
    12520   03 025CA    FFFFFFFF A            DATA     -1
    12521   03 025CB    FFFFFFFF A            DATA     -1
    12522                                     PAGE
    12523                            *
    12524                            *                 FAILING TRACK STATUS FROM SENSE BYTE 4 TEST 1
    12525         00000159                    TESTNO
    12526   03 025CC    351006BE     N023     STW,1    VDEC1A
    12527   03 025CD    22700000 A            LI,7     0
    12528   03 025CE    228011CD              LI,8     WDGPTM2
    12529   03 025CF    229024B2              LI,9     CLNL021
    12530   03 025D0    680025D5              B        N023X
    12531                            *
    12532                            *                 FAILING TRACK STATUS FROM SENSE BYTE 4 TEST 2
    12533         00000160                    TESTNO
    12534   03 025D1    352006BE     N024     STW,2    VDEC1A
    12535   03 025D2    227000FF A            LI,7     X'FF'
    12536   03 025D3    228011CB              LI,8     WDGPTM24
    12537   03 025D4    229025AF              LI,9     CLNL022
    12538                            *
    12539                            *
    12540   03 025D5    357001C7 A   N023X    STW,7    PSAVE1
    12541   03 025D6    358001C8 A            STW,8    PSAVE2
    12542   03 025D7    359025AA              STW,9    ALN021X
    12543                            *
    12544   03 025D8    328001C8 A   N023XX   LW,8     PSAVE2
    12545   03 025D9    6AF0139B              BAL,15   RESETMOD
    12546   03 025DA    0000287C              DATA     MSN023
    12547   03 025DB    680025D8              B        N023XX
    12548                            *
    12549                            *
    12550   03 025DC    220009E8              LI,0     DA(IOCDREAD)
    12551   03 025DD    6AF00E9D              BAL,15   T:EXEC
    12552   03 025DE    00000000 A            DATA     0
    12553   03 025DF    4CC00000 A            SIO,12   0
    12554   03 025E0    000025A7              DATA     ALN021
    12555   03 025E1    0100287C              GEN,8,24 1,MSN023
    12556   03 025E2    000013C8              DATA     CLPMOD
    12557   03 025E3    680025D8              B        N023XX
    12558                            *
    12559   03 025E4    220009E6              LI,0     DA(IOCDSNS)
    12560   03 025E5    6AF00E9D              BAL,15   T:EXEC
    12561   03 025E6    00000000 A            DATA     0
    12562   03 025E7    4CC00000 A            SIO,12   0
    12563   03 025E8    000013C5              DATA     ALPMOD
    12564   03 025E9    0200287C              GEN,8,24 2,MSN023
    12565   03 025EA    000025ED              DATA     CLN023
    12566   03 025EB    680025D8              B        N023XX
    12567   03 025EC    68000CD1              B        RIOPEXIT
    12568                            *
    12569                            *
    12570   03 025ED    6AF01345     CLN023   BAL,15   CLISTI
    12571   03 025EE    328001C7 A            LW,8     PSAVE1
    12572   03 025EF    6AF01278              BAL,15   FAILTCK
    12573   03 025F0    680010C1              B        XIT
    12574                            *
    12575                            *
    12576         03 00A1F           MSN023   EQU      BA(MSGN230)
    12577                                     PAGE
    12578                            *
    12579                            *                 READ X'02' REPORT TRANSMISSION ERROR AT COUNT DONE  TEST
    12580         00000161                    TESTNO
    12581   03 025F1    351006BE     N025     STW,1    VDEC1A
    12582   03 025F2    22800002 A            LI,8     X'02'
    12583   03 025F3    22700000 A            LI,7     0
    12584   03 025F4    680025F8              B        N025X
    12585                            *
    12586                            *                 READ X'12' REPORT TRANSMISSION ERROR AT END OF SECTOR TEST
    12587                            *
    12588         00000162                    TESTNO
    12589   03 025F5    352006BE     N026     STW,2    VDEC1A
    12590   03 025F6    22800012 A            LI,8     X'12'
    12591   03 025F7    22700400 A            LI,7     X'400'
    12592                            *
    12593                            *
    12594                            *
    12595   03 025F8    75802584     N025X    STB,8    IOCD025
    12596   03 025F9    55702611              STH,7    N025BC
    12597   03 025FA    228000FF A            LI,8     X'FF'
    12598   03 025FB    358001C7 A            STW,8    PSAVE1
    12599                            *
    12600                            *
    12601   03 025FC    220012C2     N025XX   LI,0     DA(IOCD025)
    12602   03 025FD    6AF00E98              BAL,15   T:EXECRS
    12603   03 025FE    000011CB              DATA     WDGPTM24
    12604   03 025FF    4CC00000 A            SIO,12   0
    12605   03 02600    0000260D              DATA     ALP025
    12606   03 02601    00002891              DATA     MSN025
    12607   03 02602    000013C8              DATA     CLPMOD
    12608   03 02603    680025FC              B        N025XX
    12609                            *
    12610                            *
    12611   03 02604    220009E6              LI,0     DA(IOCDSNS)
    12612   03 02605    6AF00E9D              BAL,15   T:EXEC
    12613   03 02606    00000000 A            DATA     0
    12614   03 02607    4CC00000 A            SIO,12   0
    12615   03 02608    000013C5              DATA     ALPMOD
    12616   03 02609    01002891              GEN,8,24 1,MSN025
    12617   03 0260A    000025ED              DATA     CLN023
    12618   03 0260B    680025FC              B        N025XX
    12619   03 0260C    68000CD1              B        RIOPEXIT
    12620                            *
    12621                            *
    12622   03 0260D    6AF012F6     ALP025   BAL,15   ALFUNCT
    12623   03 0260E    00002610              DATA     ALPT025
    12624   03 0260F    680010C1              B        XIT
    12625                            *
    12626                            *
    12627   03 02610    98424001 A   ALPT025  CHCKTIO  X'98424000'
    12628   03 02611    00000020 A   N025BC   CHCKBC   0
    12629   03 02612    00424002 A            CHCKTDV  X'00424000'
    12630   03 02613    00584006 A            CHCKAIO  X'00584000'
    12631   03 02614    18420083 A            CHCKHIO  *X'18420000'
    12632                                     PAGE
    12633                            *
    12634                            *                 NORMAL CHECKWRITE CONTROL TEST 1
    12635                            *                 (X-1<MBA<X+4,HTE,IUE,ICE BC=1024)
    12636         00000163                    TESTNO
    12637   03 02615    351006BE     N0261    STW,1    VDEC1A
    12638   03 02616    22D0282D              LI,13    MSN026
    12639   03 02617    12A02586              LD,10    IOCD026
    12640   03 02618    68002520              B        N014X
    12641                            *
    12642                            *                 NORMAL CHECKWRITE CONTROL TEST 2
    12643                            *                 (X-1<MBA<X+4, HTE,IUE,ICE BC=2048)
    12644         00000164                    TESTNO
    12645   03 02619    352006BE     N027     STW,2    VDEC1A
    12646   03 0261A    22D0282D              LI,13    MSN026
    12647   03 0261B    12A02588              LD,10    IOCD027
    12648   03 0261C    68002520              B        N014X
    12649                                     PAGE
    12650                            *
    12651                            *                 CHECKWRITE CONTROL FOR INCORRECT LENGTH TEST 1
    12652                            *                 (X+0<MBA<X+4, HTE,IUE 0<BC<1024)
    12653         00000165                    TESTNO
    12654   03 0261D    351006BE     N028     STW,1    VDEC1A
    12655   03 0261E    22D0283F              LI,13    MSN028
    12656   03 0261F    22800400 A            LI,8     1024
    12657   03 02620    1260258A              LD,6     IOCD028
    12658   03 02621    22500001 A   N028XY   LI,5     1
    12659   03 02622    680024FC              B        N013XY
    12660                            *
    12661                            *                 CHECKWRITE CONTROL FOR INCORRECT LENGTH TEST 2
    12662                            *                 (X-1<MBA<X+4, HTE,IUE,ICE, 1024<BC<2048)
    12663                            *
    12664         00000166                    TESTNO
    12665   03 02623    352006BE     N029     STW,2    VDEC1A
    12666   03 02624    22D0283F              LI,13    MSN028
    12667   03 02625    22800800 A            LI,8     2048
    12668   03 02626    1260258C              LD,6     IOCD029
    12669   03 02627    68002621              B        N028XY
    12670                                     PAGE
    12671                            *
    12672                            *                 CHECKWRITE TO VERIFY DETECTION OF BIT DIFFERENCE TEST1
    12673                            *                 (CHECKWRITE DATA EXP 1 OBS 0)
    12674                            *
    12675         00000167                    TESTNO
    12676   03 02628    351006BE     N030     STW,1    VDEC1A
    12677   03 02629    224FFFFE A            LI,4     -2
    12678   03 0262A    22500000 A            LI,5     0
    12679   03 0262B    22600100 A            LI,6     X'100'            EXP =1,OBS=0
    12680   03 0262C    68002631              B        N030X
    12681                            *
    12682                            *                 CHECKWRITE TO VERIFY DETECTION OF BIT DIFFERENCE TEST 2
    12683                            *                 (CHECKWRITE DATA EXP 0 OBS 1)
    12684                            *
    12685         00000168                    TESTNO
    12686   03 0262D    352006BE     N031     STW,2    VDEC1A
    12687   03 0262E    224FFFFF A            LI,4     -1
    12688   03 0262F    22500001 A            LI,5     1
    12689   03 02630    22600001 A            LI,6     X'001'            EXP =0, OBS=1
    12690                            *
    12691                            *
    12692                            N030X ;
    12693   03 02631    22C00006 A            LI,12    6
    12694   03 02632    22D025B8              LI,13    N021PAT
    12695   03 02633    15C002EE A            STD,12   :PATID
    12696                            *
    12697   03 02634    22C00080 A            LI,12    X'80'
    12698   03 02635    35C001C7 A            STW,12   PSAVE1            SET UP FAILING TRACK BIT
    12699                            *
    12700   03 02636    22600004 A   N030XX   LI,6     4
    12701   03 02637    356001C8 A            STW,6    PSAVE2            SET UP SHIFT COUNT
    12702                            *
    12703   03 02638    6AF02EEB              BAL,15   :PATTERN
    12704   03 02639    2540027F A   N030ZZ   SCS,4    -1
    12705   03 0263A    2550027F A            SCS,5    -1
    12706   03 0263B    35403098              STW,4    BUF1LO
    12707   03 0263C    35503099              STW,5    BUF1LO+1
    12708   03 0263D    220012C6     N030XXX  LI,0     DA(IOCD029)
    12709   03 0263E    6AF00E98              BAL,15   T:EXECRS
    12710   03 0263F    000011CD              DATA     WDGPTM2
    12711   03 02640    4CC00000 A            SIO,12   0
    12712   03 02641    00002658              DATA     ALN030
    12713   03 02642    000028B0              DATA     MSN030
    12714   03 02643    000013C8              DATA     CLPMOD
    12715   03 02644    68002646              B        %+2
    12716   03 02645    68002646              B        %+1
    12717   03 02646    220009E6              LI,0     DA(IOCDSNS)
    12718   03 02647    6AF00E9D              BAL,15   T:EXEC
    12719   03 02648    00000000 A            DATA     0
    12720   03 02649    4CC00000 A            SIO,12   0
    12721   03 0264A    000013C5              DATA     ALPMOD
    12722   03 0264B    010028B0              GEN,8,24  1,MSN030
    12723   03 0264C    000025ED              DATA     CLN023
    12724   03 0264D    6800263D              B        N030XXX
    12725   03 0264E    32403098              LW,4     BUF1LO
    12726   03 0264F    32503099              LW,5     BUF1LO+1
    12727   03 02650    33F001C8 A            MTW,-1   PSAVE2
    12728   03 02651    69302639              BNEZ     N030ZZ
    12729   03 02652    32C001C7 A            LW,12    PSAVE1
    12730   03 02653    25C0007F A            SLS,12   -1
    12731   03 02654    35C001C7 A            STW,12   PSAVE1
    12732   03 02655    330001C7 A            MTW,0    PSAVE1
    12733   03 02656    68300CD1              BEZ      RIOPEXIT
    12734   03 02657    68002636              B        N030XX
    12735                            *
    12736                            *
    12737   03 02658    6AF012F6     ALN030   BAL,15   ALFUNCT
    12738   03 02659    000025AF              DATA     CLNL022
    12739   03 0265A    680010C1              B        XIT
    12740                            *
    12741                            *
    12742         03 00A2C           MSN030   EQU      BA(MSGN0300)
    12743                                     PAGE
    12744                            *
    12745                            *
    12746                            *                 SEEK-SENSE FOR SECTORS TEST
    12747                            *
    12748                            *                 THIS SUBTEST VERIFIES THAT ALL SECTORS AND
    12749                            *                 TRACKS (BANDS) CAN BE SEEKED THEN SENSED.
    12750                            *                 IF ANY ERRORS ARE DETECTED A TABLE WILL BE
    12751                            *                 OUTPUT SHOWING THE NUMBER OF TIMES EACH
    12752                            *                 SECTOR OR TRACK (BAND) WAS OBSERVED.
    12753                            *                 EACH SECTOR OR TRACK (BAND) SHOULD HAVE BEEN
    12754                            *                 OBSERVED ONLY ONCE.
    12755                            *
    12756         00000169                    TESTNO
    12757                            N032 ;
    12758   03 0265B    228020AE              LI,8     BA(SECTAB)
    12759   03 0265C    35800DA8              STW,8    TABHEAD
    12760   03 0265D    22000000 A            LI,0     0
    12761   03 0265E    350001C9 A            STW,0    TABPASS           RESET PRINT INHIBIT FLAG
    12762   03 0265F    350001C7 A            STW,0    PSAVE1
    12763   03 02660    228011CD              LI,8     WDGPTM2
    12764   03 02661    6AF0139B              BAL,15   RESETMOD
    12765   03 02662    000028C9              DATA     MSN032
    12766   03 02663    6800265B              B        N032
    12767                            *                 THIS TEST IS DESIGNED TO SENSE THE SEEKED SECTOR.
    12768                            *                 IT WILL ATTEMPT TO SEEK THEN SENSE ALL SECTORS
    12769                            *                 OF A TRACK (BAND).  IF A SECTOR IS NOT FOUND
    12770                            *                 OR IS FOUND MORE THAN ONCE PER TRACK (BAND),
    12771                            *                 A TABLE WILL BE OUTPUT SHOWING THE NUMBER
    12772                            *                 OF TIMES EACH SECTOR WAS SENSED.
    12773                            *
    12774                            *
    12775   03 02664    326002C0 A   T1ST2010 LW,6     SECTCURR          LOAD NO. OF SECTORS
    12776   03 02665    3560018F A            STW,6    T1ST34SV          SAVE NORMAL LENGHT OF TABLE
    12777   03 02666    6AF02CFB              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
    12778   03 02667    68000CD1              B        FUCTEXIT          IF NOT ENOUGH MEMORY SKIP TEST
    12779   03 02668    325001C7 A   T1ST2011 LW,5     PSAVE1
    12780   03 02669    6AC02CEE              BAL,12   BUILDSK
    12781   03 0266A    6AF013AF              BAL,15   :SEEKMOD
    12782   03 0266B    010028C9              GEN,8,24 1,MSN032
    12783   03 0266C    68002668              B        T1ST2011
    12784   03 0266D    661001C7 A            AWM,1    PSAVE1
    12785   03 0266E    6AF013B1              BAL,15   :SNSMOD
    12786   03 0266F    020028C9              GEN,8,24 2,MSN032
    12787   03 02670    6800265B              B        N032
    12788   03 02671    727215BF              LB,7     :SNSWORD,1        LOAD SEEK SECTOR SENSE STATUS
    12789   03 02672    22400020 A            LI,4     32                LOAD BIT WORD LENGTH
    12790   03 02673    384002C6 A            SW,4     TCKCURR           SUBTRACT SHIFT CONSTANT
    12791   03 02674    A5700004 A            SLS,7    *4                SHIFT TO LEFT TO REMOVE TRACK
    12792                            *                                                      (B) INF
    12793   03 02675    324002C6 A            LW,4     TCKCURR
    12794   03 02676    20400200 A            AI,4     X'200'
    12795   03 02677    A5700004 A            SCS,7    *4
    12796   03 02678    6AF00D7F              BAL,15   TABUILD           GO TO BUILD TABLE ROUTINE
    12797   03 02679    68002668              B        T1ST2011
    12798   03 0267A    6AF00D65              BAL,15   TABIT
    12799   03 0267B    030028C9              GEN,8,24 3,MSN032
    12800   03 0267C    6800265B              B        N032
    12801   03 0267D    68000CD1              B        RIOPEXIT
    12802                            *
    12803                            *                 SEEK-SENSE FOR BANDS TEST
    12804                            *
    12805                            *                 THIS TEST IS DESIGNED TO SENSE THE SEEKED TRACK
    12806                            *                 (BAND) IT WILL ATTEMPT TO SEEK THEN SENSE ALL
    12807                            *                 TRACKS (BANDS) SPECIFIED BY THE 'SYST' AND
    12808                            *                 'SEEK' DIRECTIVES.  IF A TRACK (BAND) IS NOT
    12809                            *                 FOUND OR IS FOUND MORE THAN ONCE A TABLE WILL
    12810                            *                 BE OUTPUT SHOWING THE NUMBER OF TIMES EACH
    12811                            *                 TRACK (BAND) WAS SENSED.
    12812                            *
    12813         00000170                    TESTNO
    12814                            N033 ;
    12815   03 0267E    228020B2              LI,8     BA(BANDTAB)
    12816   03 0267F    35800DA8              STW,8    TABHEAD
    12817   03 02680    228011CD              LI,8     WDGPTM2
    12818   03 02681    6AF0139B              BAL,15   RESETMOD
    12819   03 02682    000028D8              DATA     MSN033
    12820   03 02683    6800267E              B        N033
    12821   03 02684    22400000 A            LI,4     0
    12822   03 02685    354001C9 A            STW,4    TABPASS
    12823   03 02686    354001C7 A            STW,4    PSAVE1
    12824   03 02687    325002C7 A            LW,5     MAXCAP
    12825   03 02688    364002C0 A            DW,4     SECTCURR
    12826   03 02689    32600005 A            LW,6     5
    12827   03 0268A    3560018F A            STW,6    T1ST34SV
    12828   03 0268B    6AF02CFB              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
    12829   03 0268C    68000CD1              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
    12830   03 0268D    325001C7 A   T1ST2021 LW,5     PSAVE1
    12831   03 0268E    6AC02CEE              BAL,12   BUILDSK           GO TO BUILDSK SUBR.
    12832   03 0268F    6AF013AF              BAL,15   :SEEKMOD
    12833   03 02690    010028D8              GEN,8,24 1,MSN033
    12834   03 02691    6800268D              B        T1ST2021
    12835   03 02692    326002C0 A            LW,6     SECTCURR
    12836   03 02693    666001C7 A            AWM,6    PSAVE1
    12837   03 02694    6AF013B1              BAL,15   :SNSMOD
    12838   03 02695    020028D8              GEN,8,24 2,MSN033
    12839   03 02696    68002694              B        %-2
    12840   03 02697    527015BF              LH,7     :SNSWORD          LOAD SEEKED TRACK (BAND)
    12841   03 02698    4B70302D              AND,7   =X'7FFF'           REMOVE WRITE PROTECT BIT
    12842   03 02699    3A4002C6 A            LCW,4    TCKCURR           LOAD CURRENT SHIFT COUNT
    12843   03 0269A    4B403032              AND,4    =X'7F'            REMOVE ALL BUT SHIFT INFORMATION
    12844   03 0269B    A5700004 A            SLS,7    *4                POSITION TO REMOVE SECTOR
    12845   03 0269C    6AF00D7F              BAL,15   TABUILD           GO UPDATE TABLE
    12846   03 0269D    6800268D              B        T1ST2021
    12847   03 0269E    6AF00D65              BAL,15   TABIT
    12848   03 0269F    030028D8              GEN,8,24 3,MSN033
    12849   03 026A0    6800267E              B        N033
    12850   03 026A1    68000CD1              B        RIOPEXIT
    12851                            *
    12852                            *
    12853         00 0018F           T1ST34SV EQU      SSAVE
    12854         00 001C9           TABPASS  EQU      PSAVE3
    12855                                     PAGE
    12856                            *
    12857                            *                 SECTOR INCREMENT FOR SECTORS TEST
    12858                            *
    12859                            *                 THIS SUBTEST VERIFIES THAT RAD CAN INCREMENT
    12860                            *                 THE SEEK ADDRESS REGISTER.  IF ANY ERRORS
    12861                            *                 ARE DETECTED A TABLE WILL BE OUTPUT SHOWING
    12862                            *                 THE NUMBER OF TIMES A PARTICULAR SECTOR OR
    12863                            *                 TRACK (BAND) WAS OBSERVED.  EACH SECTOR OR
    12864                            *                 TRACK (BAND) SHOULD HAVE BEEN OBSERVED
    12865                            *                 ONLY ONCE.
    12866                            *
    12867         00000171                    TESTNO
    12868                            N034 ;
    12869   03 026A2    228020AE              LI,8     BA(SECTAB)
    12870   03 026A3    35800DA8              STW,8    TABHEAD
    12871   03 026A4    228011CB              LI,8     WDGPTM24
    12872   03 026A5    6AF0139B              BAL,15   RESETMOD
    12873   03 026A6    000028E7              DATA     MSN034
    12874   03 026A7    680026A2              B        N034
    12875   03 026A8    326002C0 A            LW,6     SECTCURR
    12876   03 026A9    6AF02CFB              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
    12877   03 026AA    68000CD1              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
    12878                            *                                       LENGTH OF THE TABLE
    12879   03 026AB    3560018F A   T1ST3414 STW,6    T1ST34SV          SAVE TABLE SPAN
    12880   03 026AC    6AF02CFB              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
    12881   03 026AD    68000CD1              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
    12882   03 026AE    325002C2 A            LW,5     CURRSEEK          RESTORE ABSOLUTE LOWER SEEK LIMIT
    12883   03 026AF    22500000 A            LI,5     0
    12884   03 026B0    6AC02CEE              BAL,12   BUILDSK           GO CONVERT TO DEVICE SEEK
    12885   03 026B1    3260018F A   T1ST3411 LW,6     T1ST34SV          RESTORE TABLE SPAN
    12886   03 026B2    6AF013B3              BAL,15   :WRTMOD
    12887   03 026B3    010028E7              GEN,8,24 1,MSN034
    12888   03 026B4    680026A2              B        N034
    12889   03 026B5    6AF013B1              BAL,15   :SNSMOD
    12890   03 026B6    020028E7              GEN,8,24 2,MSN034
    12891   03 026B7    680026A2              B        N034
    12892   03 026B8    727215BF              LB,7     :SNSWORD,1        LOAD SEEK BYTE
    12893   03 026B9    22400020 A            LI,4     32                REMOVE
    12894   03 026BA    384002C6 A            SW,4     TCKCURR               TRACK (BAND)
    12895   03 026BB    A5700004 A            SLS,7    *4                    INFORMATION
    12896   03 026BC    324002C6 A            LW,4     TCKCURR           LOAD SHIFT COUNT
    12897   03 026BD    20400200 A            AI,4     X'200'
    12898   03 026BE    A5700004 A            SCS,7    *4                POSITION SECTOR ADDR
    12899   03 026BF    6AF00D7F              BAL,15   TABUILD           GO PVT ENTIRE INTO TABLE
    12900   03 026C0    680026B1              B        T1ST3411
    12901   03 026C1    6AF00D65              BAL,15   TABIT
    12902   03 026C2    030028E7              GEN,8,24 3,MSN034
    12903   03 026C3    680026A2              B        N034
    12904   03 026C4    68000CD1              B        RIOPEXIT
    12905                            *
    12906                            *                 SECTOR INCREMENT FOR BANDS TEST
    12907                            *
    12908                            *                 THIS TEST IS DESIGNED TO WRITE A SECTOR, SENSE
    12909                            *                 THE INCREMENTING TO THE NEXT HIGHER TRACK (BAND)
    12910                            *                 AND CONTINUE TO DO THIS UNTIL ALL TRACKS (BANDS)
    12911                            *                 THAT ARE SPECIFIED BY THE 'SYST' AND 'SEEK'
    12912                            *                 DIRECTIVES HAVE BEEN TRIED.  IF A TRACK (BAND)
    12913                            *                 IS NOT FOUND OR IS FOUND MORE THAN ONCE, A
    12914                            *                 TABLE WILL BE OUTPUT SHOWING THE NUMBER
    12915                            *                 OF TIMES EACH TRACK (BAND) WAS SENSED.
    12916                            *
    12917         00000172                    TESTNO
    12918                            N035 ;
    12919   03 026C5    228020B2              LI,8     BA(BANDTAB)
    12920   03 026C6    35800DA8              STW,8    TABHEAD
    12921   03 026C7    228011CB              LI,8     WDGPTM24
    12922   03 026C8    6AF0139B              BAL,15   RESETMOD
    12923   03 026C9    000028F8              DATA     MSN035
    12924   03 026CA    680026C5              B        N035
    12925   03 026CB    22400000 A            LI,4     0
    12926   03 026CC    354001C9 A            STW,4    TABPASS
    12927   03 026CD    354015BF              STW,4    :SNSWORD
    12928   03 026CE    325002C7 A            LW,5     MAXCAP
    12929   03 026CF    364002C0 A            DW,4     SECTCURR
    12930   03 026D0    32600005 A            LW,6     5
    12931   03 026D1    3560018F A            STW,6    T1ST34SV
    12932   03 026D2    6AF02CFB              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
    12933   03 026D3    68000CD1              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
    12934   03 026D4    225FFFFF A            LI,5     -1
    12935   03 026D5    35500193 A            STW,5    CURRSKAD
    12936   03 026D6    680026E4              B        T1ST3426
    12937                            T1ST3423 ;
    12938   03 026D7    3260018F A            LW,6     T1ST34SV          RESTORE NO.OF TRACK (BAND) TO BE TST
    12939   03 026D8    32500193 A            LW,5     CURRSKAD
    12940   03 026D9    6AC02CEE              BAL,12   BUILDSK           GO BUILD DEV SEEK ADDR
    12941   03 026DA    6AF013AF     T1ST3427 BAL,15   :SEEKMOD
    12942   03 026DB    010028F8              GEN,8,24 1,MSN035
    12943   03 026DC    680026DA              B        %-2
    12944   03 026DD    3260018F A   T1ST3421 LW,6     T1ST34SV          RESTORE NO.OF TRACK (BAND) TO BE TST
    12945   03 026DE    6AF013B3              BAL,15   :WRTMOD
    12946   03 026DF    020028F8              GEN,8,24 2,MSN035
    12947   03 026E0    680026DA              B        T1ST3427
    12948   03 026E1    6AF013B1              BAL,15   :SNSMOD
    12949   03 026E2    030028F8              GEN,8,24 3,MSN035
    12950   03 026E3    680026DA              B        T1ST3427
    12951                            T1ST3426 ;
    12952   03 026E4    527015BF              LH,7     :SNSWORD          LOAD TRACK (BAND) ADDR
    12953   03 026E5    3A4002C6 A            LCW,4    TCKCURR           LOAD SHIFT COUNT
    12954   03 026E6    4B403032              AND,4    =X'7F'
    12955   03 026E7    4B70302D              AND,7    =X'7FFF'          REMOVE WRITE PROTECT BIT
    12956   03 026E8    A5700004 A            SLS,7    *4                REMOVE SECTOR ADDR
    12957   03 026E9    324002C0 A            LW,4     SECTCURR          UPDATE TRACK (BAND)
    12958   03 026EA    66400193 A            AWM,4    CURRSKAD
    12959   03 026EB    6AF00D7F              BAL,15   TABUILD           GO INSERT INTO TABLE
    12960   03 026EC    680026D7              B        T1ST3423
    12961   03 026ED    6AF00D65              BAL,15   TABIT
    12962   03 026EE    040028F8              GEN,8,24 4,MSN035
    12963   03 026EF    680026C5              B        N035
    12964   03 026F0    68000CD1              B        RIOPEXIT
    12965                            *
    12966                            *                 SEEK UNAVAILABLE SECTOR
    12967                            *
    12968         00000173                    TESTNO
    12969   03 026F1    32F00288 A   N036A    LW,15    SECTORS
    12970   03 026F2    35F015BE              STW,15   SEEKRAD
    12971   03 026F3    680026F6              B        N036A02
    12972   03 026F4    331015BE     N036A01  MTW,1    SEEKRAD
    12973   03 026F5    32F015BE              LW,15    SEEKRAD
    12974   03 026F6    35F006C9     N036A02  STW,15   VDEC2B
    12975   03 026F7    22000000 A            LI,0     0
    12976   03 026F8    350006C0              STW,0    VDEC3A
    12977   03 026F9    21F00080 A            CI,15    128
    12978   03 026FA    68100CD1              BGE      RIOPEXIT
    12979   03 026FB    220009E5     N036A03  LI,0     DA(IOCDSEEK)
    12980   03 026FC    6AF00E98              BAL,15   T:EXECRS
    12981   03 026FD    000011CD              DATA     WDGPTM2
    12982   03 026FE    4CC00000 A            SIO,12   0
    12983   03 026FF    00002722              DATA     ALTN036
    12984   03 02700    00002909              DATA     BA(MSGT360A)
    12985   03 02701    000013C8              DATA     CLPMOD
    12986   03 02702    680026FB              B        N036A03
    12987   03 02703    680026F4              B        N036A01
    12988                                     PAGE
    12989                            *
    12990                            *                 SECTOR UNAVAILABLE TEST 1
    12991                            *
    12992                            *                 THIS VERIFIES A RAD WILL REPORT SECTOR UNAVAILABLE
    12993                            *                 BY INCREMENTING PAST THE END OF THE LOGICAL SURFACE,
    12994                            *                 THE TEST WILL ONLY BE PERFORMED IF THE END OF THE
    12995                            *                 LOGICAL SURFACE IS AVAILABLE, THE PROGRAM HAS NOT
    12996                            *                 LIMITED IT WITH THE 'SYST' OR 'SEEK' DIRECTIVES.
    12997                            *
    12998         00000174                    TESTNO
    12999   03 02704    220009E7     N036     LI,0     DA(IOCDWRT)
    13000   03 02705    351006BE              STW,1    VDEC1A
    13001   03 02706    22CFFFFF A            LI,12    -1
    13002   03 02707    6800270B              B        T1ST3430
    13003                            *
    13004                            *                 SECTOR UNAVAILABLE TEST 2
    13005                            *
    13006                            *
    13007         00000175                    TESTNO
    13008   03 02708    22000AF7     N036XX   LI,0     DA(IOCDN036)
    13009   03 02709    352006BE              STW,2    VDEC1A
    13010   03 0270A    22CFFFFE A            LI,12    -2
    13011   03 0270B    325002C7 A   T1ST3430 LW,5     MAXCAP
    13012   03 0270C    350001C7 A            STW,0    PSAVE1
    13013   03 0270D    3050000C A            AW,5     12
    13014   03 0270E    6AC02CEE              BAL,12   BUILDSK           GO BUILD SEEK ADDR
    13015   03 0270F    228011CB     N036X    LI,8     WDGPTM24
    13016   03 02710    6AF0139B              BAL,15   RESETMOD
    13017   03 02711    00002917              DATA     MSN036
    13018   03 02712    6800270F              B        N036X
    13019                            *
    13020   03 02713    6AF013AF              BAL,15   :SEEKMOD
    13021   03 02714    01002917              GEN,8,24 1,MSN036
    13022   03 02715    6800270F              B        N036X
    13023                            *
    13024   03 02716    6AF013B3              BAL,15   :WRTMOD
    13025   03 02717    02002917              GEN,8,24 2,MSN036
    13026   03 02718    6800270F              B        N036X
    13027                            *
    13028   03 02719    320001C7 A            LW,0     PSAVE1
    13029   03 0271A    6AF00E9D              BAL,15   T:EXEC
    13030   03 0271B    00000000 A            DATA     0
    13031   03 0271C    4CC00000 A            SIO,12   0
    13032   03 0271D    00002722              DATA     ALTN036
    13033   03 0271E    03002917              GEN,8,24 3,MSN036
    13034   03 0271F    000013C8              DATA     CLPMOD
    13035   03 02720    6800270F              B        N036X
    13036   03 02721    68000CD1              B        RIOPEXIT
    13037                            *
    13038                            *
    13039   03 02722    6AF012F6     ALTN036  BAL,15   ALFUNCT
    13040   03 02723    00002725              DATA     ALTN036X
    13041   03 02724    680010C1              B        XIT
    13042                            *
    13043                            ALTN036X ;
    13044   03 02725    98004001 A            CHCKTIO  X'98004000'
    13045   03 02726    20004002 A            CHCKTDV  X'20004000'
    13046   03 02727    20184006 A            CHCKAIO  X'20184000'
    13047   03 02728    18000083 A            CHCKHIO  *X'18000000'
    13048   03 02729    00000000 A   SAVEBIAS DATA     0
    13049                                     PAGE
    13050                            *
    13051                            *
    13052                            *
    13053                            *                 DATA OVERRUN TEST 1
    13054                            *                 )WRITE(
    13055                            *
    13056                            *                 THIS TEST FORCES A DATA OVER RUN TO OCCUR
    13057                            *                 BY EXECUTING MANY 1 OR 4 BYTE DATA CHAINED
    13058                            *                 IOCD'S.
    13059                            *
    13060                            *
    13061                            *
    13062                            *
    13063                            *                 THIS TEST VERIFIES THAT A RAD WILL REPORT
    13064                            *                 DATA OVER RUN FOR A SERIES OF SHORT
    13065                            *                 DATA CHAINED IOCD'S.
    13066                            *
    13067                            *
    13068                            *
    13069         00000176                    TESTNO
    13070   03 0272A    22600001 A   N037     LI,6     1
    13071   03 0272B    351006BE              STW,1    VDEC1A
    13072   03 0272C    6800272F              B        T1ST48
    13073                            *
    13074                            *                 DATA OVERRUN TEST 2
    13075                            *                 )READ(
    13076                            *
    13077         00000177                    TESTNO
    13078   03 0272D    22600012 A   N038     LI,6     X'12'
    13079   03 0272E    352006BE              STW,2    VDEC1A
    13080                            *
    13081                            *
    13082   03 0272F    6AF02736     T1ST48   BAL,15   T1ST48ID
    13083                            T1ST48XX ;
    13084   03 02730    22E0292F              LI,14    MSGT48
    13085   03 02731    6AF014D5              BAL,15   MODE2I
    13086   03 02732    98424001 A            CHCKTIO  X'98424000'
    13087   03 02733    80424002 A            CHCKTDV  X'80424000'
    13088   03 02734    80484006 A            CHCKAIO  X'80484000'
    13089   03 02735    18420083 A            CHCKHIO  *X'18420000'
    13090                            *
    13091                            *
    13092   03 02736    22800CD1     T1ST48ID LI,8     FUCTEXIT          SET UP EXIT
    13093   03 02737    3580024A A            STW,8    MEMORY2              TO FTM IF NOT ENOUGH MEMORY
    13094   03 02738    3290308C              LW,9     =X'8C000004'      LOAD FLAGS AND BC
    13095   03 02739    2280184C              LI,8     DA(BUF1LO+1)
    13096   03 0273A    25800003 A            SLS,8    3
    13097   03 0273B    75600008 A            STB,6    8                 LOAD ORDER
    13098   03 0273C    327002C1 A            LW,7     BYTCURR           LOAD NO. OF BYTES/SECTOR
    13099   03 0273D    2570007E A            SLS,7    -2                IF NOT SET UP FOR OTHER TYPES
    13100   03 0273E    32500008 A            LW,5     8                 LOAD ORDER BYTE ADDR
    13101   03 0273F    4B503029              AND,5    =X'00FFFFFF'      REMOVE ORDER
    13102   03 02740    305002C1 A            AW,5     BYTCURR           ADD LENGTH OF BUFFER AREA
    13103   03 02741    20500040 A            AI,5     64                ADD FUDGE FACTOR
    13104   03 02742    2550007E A            SLS,5    -2                CONVERT TO WORD ADDR.
    13105   03 02743    3550000B A            STW,5    11                STORE AS STARTING ADDR OF IOCD
    13106   03 02744    3550000C A            STW,5    12
    13107   03 02745    25C0007F A            SLS,12    -1
    13108   03 02746    30C0308D              AW,12    =X'08000000'      ADD TRANFER IN CHANNEL ORDER
    13109   03 02747    22D00000 A            LI,13    0                 ZERO FLAG AND BYTE COUNT
    13110   03 02748    25700001 A            SLS,7    1                 DOUBLE IOCD COUNT
    13111   03 02749    30500007 A            AW,5     7                 ADD NUMBER OF IOCDS
    13112   03 0274A    30500007 A            AW,5     7                 ADD NUMBER OF IOCDS
    13113   03 0274B    3150022F A            CW,5     :MEMLAST          TEST FOR SIZE OF MEMORY
    13114   03 0274C    68102D3A              BGE      MEMORY7           IF GREATER, EXIT TEST
    13115   03 0274D    22600000 A            LI,6     0                 ZERO IOCD COUNTER
    13116   03 0274E    68002750              B        %+2               SKIP UPDATE
    13117   03 0274F    20600001 A   T1ST48IC AI,6     1                 UPDATE IOCD COUNT
    13118   03 02750    958C000B A            STD,8    *11,6             ADD BYTE COUNT TO MEMORY BYTE ADDR.
    13119   03 02751    20C00002 A            AI,12    2                 UPDATE DOUBLE WORD ADDR
    13120   03 02752    20600001 A            AI,6     1                 UPDATE IOCD POINTER
    13121   03 02753    95CC000B A            STD,12   *11,6             SAVE TRANSFER IN CHANNEL IOCD
    13122   03 02754    50820009 A            AH,8     9,1
    13123   03 02755    31600007 A            CW,6     7                 TEST FOR COMPETION
    13124   03 02756    6820274F              BLE      T1ST48IC          IF NOT GO BACK FOR NEXT IOCD.
    13125   03 02757    206FFFFF A            AI,6     -1                BACK UP POINTER
    13126   03 02758    30600006 A            AW,6     6                 FIND
    13127   03 02759    3060000B A            AW,6     11                    LAST IOCD
    13128   03 0275A    22A01C00 A            LI,10    X'1C00'           LOAD CE, HTE, UE FLAGS
    13129   03 0275B    D5A40006 A            STH,10   *6,2              SAVE IN LAST IOCD
    13130   03 0275C    3200000B A            LW,0     11
    13131   03 0275D    2500007F A            SLS,0    -1
    13132   03 0275E    E800000F A            B        *15               RETURN TO CALLING ROUTINE
    13133                                     PAGE
    13134                            *
    13135                            *                 CHECK DEVICE ADDRESS RECOGNITION OF I/O INSTRUCTIONS
    13136                            *                 TEST
    13137         00000178                    TESTNO
    13138   03 0275F    220012C7     TN000    LI,0     DA(IOCDN000)
    13139   03 02760    22E0293E              LI,14    MST000
    13140   03 02761    6AF014F3              BAL,15   MODE0I
    13141   03 02762    98004001 A            CHCKTIO  X'98004000'
    13142   03 02763    00000002 A            CHCKTDV  0
    13143   03 02764    00184006 A            CHCKAIO  X'00184000'
    13144   03 02765    18000003 A            CHCKHIO  X'18000000'
    13145   03 02766    10000089 A            CHCKTIO1 *X'10000000'
    13146                                     PAGE
    13147                            *
    13148                            *                 SURFACE WRITE - READ TEST
    13149                            *
    13150         00000179                    TESTNO
    13151   03 02767    228011C5     TN001    LI,8     WDGPNONE
    13152   03 02768    6AF0139B              BAL,15   RESETMOD
    13153   03 02769    0000294F              DATA     MST001
    13154   03 0276A    68002767              B        TN001
    13155   03 0276B    6AF02EEB              BAL,15   :PATTERN
    13156   03 0276C    6AF013AB              BAL,15   :WRTMODZ
    13157   03 0276D    0100294F              GEN,8,24 1,MST001
    13158   03 0276E    68002767              B        TN001
    13159   03 0276F    220009E8              LI,0     DA(IOCDREAD)
    13160   03 02770    6AF00E98              BAL,15   T:EXECRS
    13161   03 02771    00000000 A            DATA     0
    13162   03 02772    4CC00000 A            SIO,12   0
    13163   03 02773    00002778              DATA     ALN001
    13164   03 02774    0200294F              GEN,8,24 2,MST001
    13165   03 02775    000025AC              DATA     CLN021
    13166   03 02776    68002767              B        TN001
    13167   03 02777    68000CD1              B        RIOPEXIT
    13168                            *
    13169   03 02778    6AF012F6     ALN001   BAL,15   ALFUNCT
    13170   03 02779    0000277B              DATA     ALNL001
    13171   03 0277A    680010C1              B        XIT
    13172   03 0277B    90004001 A   ALNL001  CHCKTIO  X'90004000'
    13173   03 0277C    00000020 A            CHCKBC   X'0'
    13174   03 0277D    00000002 A            CHCKTDV  X'0'
    13175   03 0277E    00100006 A            CHCKAIO  X'00100000'
    13176   03 0277F    10000083 A            CHCKHIO  *X'10000000'
    13177                            *
    13178         03 00A0B 1         MSN000   EQU      BA(MSGNOTIL)
    13179         03 00A0B 1         MSN010   EQU      BA(MSGNOTIL)
    13180         03 00A0B 1         MSN014   EQU      BA(MSGNOTIL)
    13181         03 00A0B 1         MSN018   EQU      BA(MSGNOTIL)
    13182         03 00A0B 1         MSN026   EQU      BA(MSGNOTIL)
    13183         03 00A0F 3         MSN0070  EQU      BA(MSGIL)
    13184         03 00A0F 3         MSN011   EQU      BA(MSGIL)
    13185         03 00A0F 3         MSN017   EQU      BA(MSGIL)
    13186         03 00A0F 3         MSN028   EQU      BA(MSGIL)
    13187         03 00A4F 2         MST000   EQU      BA(MSGT000)
    13188         03 00A53 3         MST001   EQU      BA(MSGT001)
    13189                            *
    13190                            *
    13191                            *                 *** C U R R E N T  S E C T O R  T E S T ***
    13192                            *
    13193                            *                 THIS SUBTEST VERIFIES THAT ALL SECTORS CAN BE
    13194                            *                 SENSED FROM THE RAD.  IF ANY ERRORS ARE
    13195                            *                 DETECTED A TABLE WILL BE OUTPUT SHOWING THE
    13196                            *                 NUMBER OF TIMES EACH CURRENT SECTOR WAS OBSERVED.
    13197                            *                 EACH CURRENT SECTOR SHOULD HAVE BEEN OBSERVED
    13198                            *                 ONLY ONCE.
    13199                            *
    13200         00000180                    TESTNO
    13201                            TN002 ;
    13202   03 02780    228020AE              LI,8     BA(SECTAB)
    13203   03 02781    35800DA8              STW,8    TABHEAD
    13204   03 02782    126013CC     TN002X   LD,6     IOCDSNS
    13205   03 02783    156002F2 A            STD,6    IOCDGEN
    13206                            TN002XX ;
    13207   03 02784    22000000 A            LI,0     0
    13208   03 02785    350002E3 A            STW,0    TABBIAS
    13209   03 02786    350001C9 A            STW,0    TABPASS
    13210   03 02787    325027BD              LW,5     T1ST19XP          FETCH WORD
    13211   03 02788    3550005C A            STW,5    X'5C'             STORE WORD
    13212   03 02789    326002C0 A   T1ST1910 LW,6     SECTCURR          LOAD NORMAL LENGTH OF THE TABLE
    13213   03 0278A    3560018F A            STW,6    T1ST34SV          STORE NORMAL LENGTH OF TABLE
    13214   03 0278B    6AF02CFB              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
    13215   03 0278C    68000CD1              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
    13216   03 0278D    228011C5              LI,8     WDGPNONE
    13217   03 0278E    6AF0139B              BAL,15   RESETMOD
    13218   03 0278F    00002961              DATA     MST002
    13219   03 02790    68002780              B        TN002
    13220                            *
    13221                            *
    13222                            *
    13223                            *
    13224                            *                 THIS TEST IS DESIGNED TO SENSE FOR CURRENT
    13225                            *                 SECTORS. IT WILL ATTEMPT TO FIND ALL CURRENT
    13226                            *                 SECTORS, IF A CURRENT SECTOR IS NOT FOUND OR IS
    13227                            *                 FOUND MORE THAN ONCE FOR A REVOLUTION OF
    13228                            *                 THE DISC,A TABLE WILL BE OUTPUT SHOWING THE
    13229                            *                 NUMBER OF TIMES EACH SECTOR WAS SENSED. IF
    13230                            *                 FOR SOME REASON MORE THAN THE EXPECTED NUMBER
    13231                            *                 OF SECTORS ARE OBSERVED FOR A REVOLUTION
    13232                            *                 THE TABLE WILL BE ADJUSTED UP TO DISPLAY
    13233                            *                 THE ADDITIONAL SECTORS.
    13234                            *
    13235                            T1ST1911 ;
    13236   03 02791    22600D8F              LI,6     TABUILD2
    13237   03 02792    35602799              STW,6    CLT002X
    13238   03 02793    22000179 A            LI,0     DA(IOCDGEN)
    13239   03 02794    6AF00E98              BAL,15   T:EXECRS
    13240   03 02795    00000000 A            DATA     0
    13241   03 02796    00000000 A            DATA     0
    13242   03 02797    000027A0              DATA     ALT002
    13243   03 02798    01002961              GEN,8,24 1,MST002
    13244   03 02799    00000000 A   CLT002X  DATA     0
    13245   03 0279A    68002784              B        TN002XX
    13246   03 0279B    661002F2 A            AWM,1    IOCDGEN
    13247   03 0279C    326002F2 A            LW,6     IOCDGEN
    13248   03 0279D    4B60304F              AND,6    =3
    13249   03 0279E    68300CD1              BEZ      RIOPEXIT
    13250   03 0279F    68002784              B        TN002XX
    13251                            *
    13252                            ALT002 ;
    13253   03 027A0    22C00020 A            LI,12    X'20'             ARM AND ENABLE
    13254   03 027A1    6DC01200 A            WD,12    X'1200'           I/O INTERRUPTS
    13255   03 027A2    6D000022 A            WD,0     X'22'             RESET INHIBITS
    13256   03 027A3    32C027A7              LW,12    ALTSIO
    13257   03 027A4    35C00199 A            STW,12   IOINSTR
    13258   03 027A5    22C00000 A            LI,12    0
    13259   03 027A6    35C015AB              STW,12   GOTINTR
    13260                            ALTSIO   ;
    13261   03 027A7    CCC002BF A            SIO,12   *:DEVADDR         SIO
    13262   03 027A8    22600FA0 A            LI,6     4000
    13263   03 027A9    646027AD     ALT0021  BDR,6    ALT0022
    13264   03 027AA    22601BE4              LI,6     CLP460
    13265   03 027AB    3560019C A            STW,6    CLADR
    13266   03 027AC    680010C1              B        XIT
    13267   03 027AD    330015AB     ALT0022  MTW,0    GOTINTR
    13268   03 027AE    683027A9              BEZ      ALT0021
    13269   03 027AF    326002F2 A            LW,6     IOCDGEN
    13270   03 027B0    4B60304F              AND,6    =3
    13271   03 027B1    20600002 A            AI,6     2
    13272   03 027B2    727C15BF              LB,7     :SNSWORD,6
    13273   03 027B3    6AF00D70              BAL,15   TABUILDS          GO TO BUILD TABLE ROUTINE
    13274   03 027B4    680010C1              B        XIT
    13275   03 027B5    680027A0              B        ALT002
    13276                            *
    13277                            *
    13278                                     BOUND    8
    13279                            *
    13280                            *
    13281   03 027B6    00000000 A   T1ST19IT DATA     0,0               DATA FORMAT
            03 027B7    00000000 A
    13282   03 027B8    000027BA              DATA     T1ST19IP
    13283   03 027B9    07000000 A            DATA     7**24
    13284                            *
    13285                            *
    13286                            *
    13287                            *
    13288   03 027BA    6ED00000 A   T1ST19IP AIO,13   0                 AIO
    13289   03 027BB    331015AB              MTW,1    GOTINTR
    13290   03 027BC    0E3027B6              LPSD,3   T1ST19IT
    13291                            *
    13292                            *
    13293                            *
    13294   03 027BD    0F3027B6     T1ST19XP XPSD,3   T1ST19IT
    13295                                     PAGE
    13296                            *
    13297                            *                 BAND AND SURFACE TEST 1
    13298                            *
    13299                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
    13300                            *                 TO WRITE AND READ ALL TRACKS (BANDS)/SECTORS.
    13301                            *                 THE TEST WRITES A RANDOM PATTERN STARTING AT THE LOWES
    13302                            *                 AVAILABLE TRACK (BAND) TO THE HIGHEST AVAILABLE
    13303                            *                 TRACK (BAND). THEN THE PATTERN IS READ BACK IN THE
    13304                            *                 SAME MANNER.
    13305                            *
    13306                            *
    13307         00000181                    TESTNO
    13308         03 027BE           TN003    EQU      %
    13309         03 027BE           T1ST41   EQU      %
    13310                            *
    13311                            *
    13312                            *                 THIS TEST WRITES A FIXED PATTERN OF ZEROS STARTING
    13313                            *                 AT THE LOWEST AVAILABLE BAND.
    13314                            *
    13315   03 027BE    22800000 A   T1ST4110 LI,8     0                 ZERO
    13316   03 027BF    35800274 A            STW,8    MAXERR                MAXIMUM ERROR COUNT
    13317   03 027C0    358002C9 A            STW,8    #MSGLEVL          ALLOW ALL ERROR IMMEDIATE
    13318   03 027C1    358002E1 A            STW,8    #MSGER41              ERRORS FOR THIS TEST
    13319   03 027C2    358002DC A            STW,8    DONTREAD          RESET THE DON'T READ FLAG
    13320   03 027C3    358015F0              STW,8    TST3PAT           SET UP TYPE OF PATTERN
    13321   03 027C4    358015F1              STW,8    TST3PAT+1         SET UP PATTERN SEED
    13322   03 027C5    6AF02D59              BAL,15   MOVEDDT           MOVE IN NEW COPY OF DDT
    13323   03 027C6    228027D1              LI,8     T1ST411X          LOAD AND SAVE
    13324   03 027C7    35800255 A            STW,8    SURRTN                ERROR RTN
    13325   03 027C8    228011C5              LI,8     WDGPNONE
    13326   03 027C9    6AF0139B              BAL,15   RESETMOD
    13327   03 027CA    0000296B              DATA     MSGT41
    13328   03 027CB    680027BE              B        T1ST41
    13329   03 027CC    7510019B A            STB,1    MSGADR
    13330   03 027CD    6AF02B2E              BAL,15   WRTONLY           GO DO A WRITE
    13331   03 027CE    680027CF              B        %+1
    13332   03 027CF    330002E1 A            MTW,0    #MSGER41          TEST FOR ERRORS
    13333   03 027D0    683027D4              BEZ      T1ST4111          IF NONE, NEXT TEST
    13334                            T1ST411X ;
    13335   03 027D1    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    13336   03 027D2    2E0027D2              WAIT     %                 HALT
    13337   03 027D3    680027BE              B        T1ST4110          LOOP ON TEST
    13338                            *
    13339                            *
    13340                            *                 THIS TEST READS A FIXED PATTERN OF ZEROS FROM THE RAD
    13341                            *                 STARTING AT THE LOWEST AVAILABLE TRACK (BAND).
    13342                            *
    13343                            *
    13344   03 027D4    22800000 A   T1ST4111 LI,8     0                 ZERO MSG ERROR FLAG
    13345   03 027D5    358002E1 A            STW,8    #MSGER41
    13346   03 027D6    7520019B A            STB,2    MSGADR
    13347   03 027D7    352002C9 A            STW,2    #MSGLEVL          ALLOW ONLY CERTAIN ERRORS
    13348   03 027D8    6AF02D59              BAL,15   MOVEDDT           MOVE IN NEW COPY OF DDT
    13349   03 027D9    2280280B              LI,8     T1ST411Y          LOAD AND SAVE
    13350   03 027DA    35800255 A            STW,8    SURRTN                ERROR RTN.
    13351   03 027DB    358002F5 A            STW,8    TST3EXIT
    13352   03 027DC    6AF02B32              BAL,15   REDONLY           GO READ PATTERN
    13353   03 027DD    680027DE              B        %+1
    13354   03 027DE    6AF00E9D              BAL,15   T:EXEC
    13355   03 027DF    00000000 A            DATA     0
    13356   03 027E0    00000000 A            DATA     0
    13357   03 027E1    00000000 A            DATA     0
    13358   03 027E2    0300296B              GEN,8,24 3,MSGT41
    13359   03 027E3    00002809              DATA     CLT41
    13360   03 027E4    680027BE              B        T1ST4110
    13361                            *
    13362                            *                 THIS TEST WRITES A RANDOM PATTERN STARTING
    13363                            *                 AT THE LOWEST AVAILABLE BAND.
    13364                            *
    13365   03 027E5    02200040 A            LCI      4                 SET UP
    13366   03 027E6    2A401644              LM,4     TST2DATA              RANDOM
    13367   03 027E7    2B4015F0              STM,4    TST3PAT               PATTERN
    13368   03 027E8    358002C9 A            STW,8    #MSGLEVL          ZERO MSG LEVEL
    13369   03 027E9    358002E1 A            STW,8    #MSGER41               ERROR THIS TEST
    13370   03 027EA    358002DC A            STW,8    DONTREAD              DON'T READ FLAG
    13371   03 027EB    6AF02D59              BAL,15   MOVEDDT           MOVE IN A NEW DDT TABLE
    13372   03 027EC    229027F4              LI,9     T1ST411A          LOAD AND SAVE
    13373   03 027ED    35900255 A            STW,9    SURRTN                ERROR RTN
    13374   03 027EE    22400004 A            LI,4     4                 LOAD AND SAVE
    13375   03 027EF    7540019B A            STB,4    MSGADR                DASH NO.
    13376   03 027F0    6AF02B2E              BAL,15   WRTONLY           GO SPREAD RANDOM PATTERN
    13377   03 027F1    680027F2              B        %+1
    13378   03 027F2    330002E1 A            MTW,0    #MSGER41          TEST FOR ERRORS
    13379   03 027F3    683027F7              BEZ      T1ST41B               IF ANY NEXT TEST
    13380         03 027F4           T1ST411A EQU      %
    13381   03 027F4    EAF0021D A            BAL,15   *:SENSE
    13382   03 027F5    2E0027F5              WAIT     %
    13383   03 027F6    680027BE              B        T1ST4110
    13384                            *
    13385                            *                 THIS TEST READS A FIXED PATTERN FROM THE RAD
    13386                            *                 STARTING AT THE LOWEST AVAILABLE BAND.
    13387                            *
    13388         03 027F7           T1ST41B  EQU      %
    13389   03 027F7    22800000 A            LI,8     0                 ZERO ERROR
    13390   03 027F8    358002E1 A            STW,8    #MSGER41              THIS TEST FLAG
    13391   03 027F9    22900005 A            LI,9     5                 LOAD AND SAVE
    13392   03 027FA    7590019B A            STB,9    MSGADR                DASH NO.
    13393   03 027FB    352002C9 A            STW,2    #MSGLEVL          SET MSG LEVEL = 2
    13394   03 027FC    6AF02D59              BAL,15   MOVEDDT           MOVE IN NEW COPY OF DDT
    13395   03 027FD    2280280B              LI,8     T1ST411Y          LOAD A SAVE
    13396   03 027FE    35800255 A            STW,8    SURRTN                ERROR RETURN
    13397   03 027FF    6AF02B32              BAL,15   REDONLY           GO CHECK RANDOM PATTERN
    13398   03 02800    68002801              B        %+1
    13399   03 02801    6AF00E9D              BAL,15   T:EXEC            GO TEST FOR ERROR
    13400   03 02802    00000000 A            DATA     0
    13401   03 02803    00000000 A            DATA     0
    13402   03 02804    00000000 A            DATA     0
    13403   03 02805    0600296B              GEN,8,24 6,MSGT41
    13404   03 02806    00002809              DATA     CLT41
    13405   03 02807    680027BE              B        T1ST4110
    13406   03 02808    68000CD1              B        RIOPEXIT
    13407                            *
    13408                            *
    13409   03 02809    6AF00DDF     CLT41    BAL,15   SELCTOUT
    13410   03 0280A    680010C1              B        XIT
    13411                            *
    13412                            *
    13413         03 00A5A 3         MSGT41   EQU      BA(MSGT410)
    13414                            T1ST411Y ;
    13415   03 0280B    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    13416   03 0280C    2E00280C              WAIT     %                 HALT
    13417   03 0280D    680027D4              B        T1ST4111          LOOP ON TEST
    13418   03 0280E    68000CD1              B        FUCTEXIT          RETURN TO FTM
    13419                                     PAGE
    13420                            *
    13421                            *
    13422                            *                 BAND AND SURFACE TEST 2
    13423                            *
    13424                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
    13425                            *                 TO WRITE A RANDOM PATTERN STARTING AT THE
    13426                            *                 HIGHEST AVAILABLE TRACK (BAND) TO THE LOWEST
    13427                            *                 AVAILABLE TRACK (BAND). THEN THE PATTERN IS READ
    13428                            *                 BACK STARTING AT THE LOWEST AVAILABLE TRACK (BAND)
    13429                            *                 TO THE HIGHEST AVAILABLE TRACK (BAND).
    13430                            *
    13431         00000182                    TESTNO
    13432         03 0280F           TN004    EQU      %
    13433   03 0280F    22800000 A   T1ST42   LI,8     0                 ZERO MSG ERROR FLAG
    13434   03 02810    358002E1 A            STW,8    #MSGER41
    13435   03 02811    358002C9 A            STW,8    #MSGLEVL          ALLOW ALL ERROR IMMEDIATE
    13436   03 02812    358002DC A            STW,8    DONTREAD          RESET THE DON'T READ FLAG
    13437   03 02813    35800274 A            STW,8    MAXERR            ZERO MAXIMUM EROR COUNT
    13438   03 02814    02200040 A           LCI      4
    13439   03 02815    2A801644              LM,8     TST2DATA
    13440   03 02816    2B8015F0              STM,8    TST3PAT
    13441   03 02817    2280282D              LI,8     T1ST421Z          LOAD AND SZVE
    13442   03 02818    35800255 A            STW,8    SURRTN                ERROR RTN
    13443                            T1ST4213 ;
    13444   03 02819    228011C5              LI,8     WDGPNONE
    13445   03 0281A    6AF0139B              BAL,15   RESETMOD
    13446   03 0281B    000029C7              DATA     MSGT42
    13447   03 0281C    6800280F              B        T1ST42
    13448   03 0281D    6AF02D59              BAL,15   MOVEDDT           MOVE IN NEW COPY OF DDT
    13449   03 0281E    32500285 A            LW,5     #DDTBIAS
    13450                            *
    13451                            *
    13452                            *                 THIS TEST WRITES A RANDOM PATTERN STARTING AT THE
    13453                            *                 HIGHEST AVAILABLE TRACK (BAND) TO THE LOWEST
    13454                            *                 AVAILABLE TRACK (BAND).
    13455                            *
    13456                            *
    13457                            *
    13458   03 0281F    22A00000 A            LI,10    0                 LOAD ZERO
    13459   03 02820    32BA028B A            LW,11    SUPPER,5          LOAD ABSOLUTE UPPER LIMIT
    13460   03 02821    36A002C0 A            DW,10    SECTCURR          DIVIDE BY SECTORS/TRACK(BAND)
    13461   03 02822    22A00000 A            LI,10    0                 LOAD ZERO
    13462   03 02823    37A002C0 A            MW,10    SECTCURR          CALCULATE NEW LOWER ABSOLUTE LIMIT
    13463   03 02824    35B002E2 A            STW,11   LSEEKTEP          SAVE SECTOR LOWER LIMIT
    13464   03 02825    31BA028B A            CW,11    SUPPER,5
    13465   03 02826    6930282D              BNE      T1ST421Z          GO SET UP TO WRITE
    13466   03 02827    32500285 A   T1ST4214 LW,5     #DDTBIAS          LOAD DDT BIAS POINTER
    13467   03 02828    32B002E2 A            LW,11    LSEEKTEP          LOAD LOAD SECTOR LIMIT
    13468   03 02829    35B002C3 A            STW,11   SURFCEND          SAVE AS UPPER SECTOR LIMIT
    13469   03 0282A    31BA028A A            CW,11    SLOWER,5          COMPARE WITH ABSOLUTE LOWER LIMIT
    13470   03 0282B    6820283D              BLE      T1ST4211          IF LESS OR EQUAL TO NEXT TEST
    13471   03 0282C    38B002C0 A            SW,11    SECTCURR          SUBTRACT 1 TRACK
    13472   03 0282D    31BA028A A   T1ST421Z CW,11    SLOWER,5          COMPARE NEW LOWER LIMIT TO
    13473   03 0282E    69202830              BG       %+2                   ABSOLUTE LOWER LIMIT IF LESS
    13474   03 0282F    32BA028A A            LW,11    SLOWER,5          LOAD ABSOLUTE LOWER LIMIT AS LIMIT
    13475   03 02830    35B002E2 A            STW,11   LSEEKTEP          SAVE IN LOWER SEEK LIMIT
    13476   03 02831    35B002C2 A            STW,11   CURRSEEK          SAVE AS CURRENT SEEK LIMIT
    13477   03 02832    7510019B A            STB,1    MSGADR
    13478   03 02833    6AF02B2E              BAL,15   WRTONLY           GO WRITE 1 TRACK
    13479   03 02834    68002835              B        %+1
    13480   03 02835    330002E1 A            MTW,0    #MSGER41          TEST FOR AN ERROR
    13481   03 02836    68302827              BEZ      T1ST4214          IF NO ERRORS WRITE NEXT TRACK
    13482   03 02837    32500285 A            LW,5     #DDTBIAS          LOAD DDT BIAS POINTER
    13483   03 02838    32B002E2 A            LW,11    LSEEKTEP          LOAD LOWER SEEK LIMIT
    13484   03 02839    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    13485   03 0283A    2E00283A              WAIT     %
    13486   03 0283B    6800282D              B        T1ST421Z          LOOP ON ERROR
    13487   03 0283C    68002827              B        T1ST4214          GO WRITE NEXT TRACK (BAND)
    13488                            *
    13489                            *
    13490                            *                 THIS TEST READS A RANDOM PATTERN FROM THE RAD
    13491                            *                 STARTING AT THE LOWEST AVAILABLE TRACK (BAND).
    13492                            *
    13493                            *
    13494   03 0283D    22800000 A   T1ST4211 LI,8     0                 ZERO
    13495   03 0283E    358002E1 A            STW,8    #MSGER41              ERRORS FOR THIS TEST COUNT
    13496   03 0283F    7520019B A            STB,2    MSGADR
    13497   03 02840    22802851              LI,8     T1ST421W          LOAD AND SAVE ERROR
    13498   03 02841    35800255 A            STW,8    SURRTN                RETURN
    13499   03 02842    358002F5 A            STW,8    TST3EXIT          SET UP RTN IF NOT ENOUGH MEMORY
    13500   03 02843    352002C9 A            STW,2    #MSGLEVL          ALLOW ONLY CERTAIN ERRORS
    13501   03 02844    33F00283 A            MTW,-1   #DDTP             BACK UP POINTER
    13502   03 02845    6AF02D46              BAL,15   #DDTICMT          GO BRING IN NEW DDT
    13503   03 02846    68002847              B        %+1
    13504   03 02847    6AF02B32              BAL,15   REDONLY           GO READ RAD
    13505   03 02848    68002849              B        %+1
    13506   03 02849    6AF00E9D              BAL,15   T:EXEC
    13507   03 0284A    00000000 A            DATA     0
    13508   03 0284B    00000000 A            DATA     0
    13509   03 0284C    00000000 A            DATA     0
    13510   03 0284D    030029C7              GEN,8,24 3,MSGT42
    13511   03 0284E    00002809              DATA     CLT41
    13512   03 0284F    6800283D              B        T1ST4211
    13513   03 02850    68000CD1              B        RIOPEXIT
    13514                            *
    13515                            *
    13516         03 00A71 3         MSGT42   EQU      BA(MSGT420)
    13517         03 00A58 1         MST002   EQU      BA(MSGT002)
    13518         03 00A32 1         MSN032   EQU      BA(MSGT320)
    13519         03 00A36           MSN033   EQU      BA(MSGT330)
    13520         03 00A39 3         MSN034   EQU      BA(MSGT340)
    13521         03 00A3E           MSN035   EQU      BA(MSGT350)
    13522         03 00A45 3         MSN036   EQU      BA(MSGT360)
    13523         03 00A4B 3         MSGT48   EQU      BA(MSGT480)
    13524         03 00A9D 1         MSN049   EQU      BA(MSGT049)
    13525                            *
    13526                            *
    13527   03 02851    EAF0021D A   T1ST421W BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    13528   03 02852    2E002852              WAIT     %                 WAIT
    13529   03 02853    6800283D              B        T1ST4211          LOOP ON TEST
    13530   03 02854    68000CD1              B        FUCTEXIT          RETURN TO FTM
    13531                                     PAGE
    13532                            *
    13533                            *                 DATA ALIGNMENT AT THE END OF A SECTOR TEST
    13534                            *
    13535         00000183                    TESTNO
    13536   03 02855    6AF013E5     TN0041   BAL,15   DATAINIT
    13537                            *
    13538   03 02856    6AF02EEB              BAL,15   :PATTERN
    13539   03 02857    6AF013F0     TN0041X  BAL,15   DATAUP
    13540   03 02858    0000160A              DATA     N041IOCD
    13541   03 02859    4B50304F              AND,5    =3
    13542   03 0285A    3AA00005 A            LCW,10   5
    13543   03 0285B    20A00004 A            AI,10    4
    13544   03 0285C    55A201EB A            STH,10   CHAIN+3,1
    13545   03 0285D    353015C3              STW,3    BC2
    13546   03 0285E    228011C5     TN0041XX LI,8     WDGPNONE
    13547   03 0285F    6AF0139B              BAL,15   RESETMOD
    13548   03 02860    00002A00              DATA     MSN0041
    13549   03 02861    6800285E              B        TN0041XX
    13550                            *
    13551                            *
    13552   03 02862    6AF013A7              BAL,15   :SEEKMODZ
    13553   03 02863    01002A00              GEN,8,24 1,MSN0041
    13554   03 02864    6800285E              B        TN0041XX
    13555                            *
    13556                            *
    13557   03 02865    6AF013AB              BAL,15   :WRTMODZ
    13558   03 02866    02002A00              GEN,8,24 2,MSN0041
    13559   03 02867    6800285E              B        TN0041XX
    13560                            *
    13561                            *
    13562   03 02868    6AF013A7              BAL,15   :SEEKMODZ
    13563   03 02869    03002A00              GEN,8,24 3,MSN0041
    13564   03 0286A    6800285E              B        TN0041XX
    13565                            *
    13566                            *
    13567   03 0286B    220000F4 A            LI,0     DA(CHAIN)
    13568   03 0286C    6AF00E9D              BAL,15   T:EXEC
    13569   03 0286D    00000000 A            DATA     0
    13570   03 0286E    4CC00000 A            SIO,12   0
    13571   03 0286F    00002778              DATA     ALN001
    13572   03 02870    04002A00              GEN,8,24 4,MSN0041
    13573   03 02871    000023BC              DATA     CLF043
    13574   03 02872    6800285E              B        TN0041XX
    13575   03 02873    6AF013D2              BAL,15   UPDATA
    13576   03 02874    68002857              B        TN0041X
    13577   03 02875    68000CD1              B        RIOPEXIT
    13578         03 00A80           MSN0041  EQU      BA(MSGN0041)
    13579                                     PAGE
    13580                            *
    13581                            *                 COMMAND CHAINING  SEQUENCE TEST
    13582                            *
    13583         00000184                    TESTNO
    13584   03 02876    6AF02EEB     TN0042   BAL,15   :PATTERN
    13585   03 02877    22A1FBD0 A            LI,10    130000
    13586   03 02878    35A002DD A            STW,10   SECTDLAY
    13587   03 02879    22000B08              LI,0     DA(N042IOCD)
    13588   03 0287A    6AF00E98              BAL,15   T:EXECRS
    13589   03 0287B    000011C5              DATA     WDGPNONE
    13590   03 0287C    4CC00000 A            SIO,12   0
    13591   03 0287D    00002778              DATA     ALN001
    13592   03 0287E    00002A20              DATA     MSN0042
    13593   03 0287F    00002882              DATA     CLN0042
    13594   03 02880    68002876              B        TN0042
    13595   03 02881    68000CD1              B        RIOPEXIT
    13596                            *
    13597                            *
    13598   03 02882    6AF01345     CLN0042  BAL,15   CLISTI
    13599   03 02883    22800B0C              LI,8     DA(N042IOCX)
    13600   03 02884    6AF010F1              BAL,15   DATACOMP
    13601   03 02885    325002C2 A            LW,5     CURRSEEK
    13602   03 02886    20500001 A            AI,5     1
    13603   03 02887    6AC02CEE              BAL,12   BUILDSK
    13604   03 02888    328015BE              LW,8     SEEKRAD
    13605   03 02889    6AF0128E              BAL,15   SENSCOMP
    13606   03 0288A    680010C1              B        XIT
    13607         03 00A88           MSN0042  EQU      BA(MSNG042)
    13608                                     PAGE
    13609                            *
    13610                            *                 WRITE SURFACE FROM A DATA CHAIN SEQUENCE TEST
    13611                            *
    13612         00000185                    TESTNO
    13613   03 0288B    22A00001 A   TN0043   LI,10    1
    13614   03 0288C    6800288E              B        TN0044X
    13615                            *
    13616                            *                 READ SURFACE FROM A DATA CHAIN SEQUENCE TEST
    13617                            *
    13618         00000186                    TESTNO
    13619   03 0288D    22A00002 A   TN0044   LI,10    2
    13620   03 0288E    32B0308E     TN0044X  LW,11    =5000000
    13621   03 0288F    35B00191 A            STW,11   DLAYSAVE
    13622   03 02890    75A0161A              STB,10   N044IOCD
    13623   03 02891    22000B0D     TN0044XX LI,0     DA(N044IOCD)
    13624   03 02892    6AF00E98              BAL,15   T:EXECRS
    13625   03 02893    000011C5              DATA     WDGPNONE
    13626   03 02894    4CC00000 A            SIO,12
    13627   03 02895    00002722              DATA     ALTN036
    13628   03 02896    00002A33              DATA     MSN0043
    13629   03 02897    000013C8              DATA     CLPMOD
    13630   03 02898    68002891              B        TN0044XX
    13631   03 02899    68000CD1              B        RIOPEXIT
    13632         03 00A8C 3         MSN0043  EQU      BA(MSGN0043)
    13633                                     PAGE
    13634                            *
    13635                            *                 HALT WRITE OF THE SURFACE FROM A COMMAND CHAINING
    13636                            *                 SEQUENCE WITH A HIO INSTRUCTION TEST
    13637                            *
    13638         00000187                    TESTNO
    13639   03 0289A    22A00001 A   TN0045   LI,10    1
    13640   03 0289B    6800289D              B        TN0046X
    13641                            *
    13642                            *                 HALT READ OF THE SURFACE FROM A COMMAND CHAINING
    13643                            *                 SEQUENCE WITH A HIO INSTRUCTION TEST
    13644                            *
    13645         00000188                    TESTNO
    13646   03 0289C    22A00002 A   TN0046   LI,10    2
    13647                            *
    13648   03 0289D    328028C6     TN0046X  LW,8     ALN46HIO
    13649                            *
    13650   03 0289E    358028C4     TN0046XZ STW,8    ALN0046X
    13651   03 0289F    35A001C7 A            STW,10   PSAVE1
    13652   03 028A0    32B0308E              LW,11    =5000000
    13653   03 028A1    35B00191 A            STW,11   DLAYSAVE
    13654   03 028A2    7510161A     TN0046ZZ STB,1    N044IOCD
    13655   03 028A3    22000B0D              LI,0     DA(N044IOCD)
    13656   03 028A4    6AF00E98              BAL,15   T:EXECRS
    13657   03 028A5    000011C5              DATA     WDGPNONE
    13658   03 028A6    4CC00000 A            SIO,12   0
    13659   03 028A7    00002722              DATA     ALTN036
    13660   03 028A8    00002A5A              DATA     MSN0044
    13661   03 028A9    000013C8              DATA     CLPMOD
    13662   03 028AA    680028A2              B        TN0046ZZ
    13663   03 028AB    32A001C7 A            LW,10    PSAVE1
    13664   03 028AC    75A0161A              STB,10   N044IOCD
    13665   03 028AD    22B032C8 A            LI,11    13000
    13666   03 028AE    35B00191 A            STW,11   DLAYSAVE
    13667   03 028AF    22000B0D     TN0046XX LI,0     DA(N044IOCD)
    13668   03 028B0    6AF00E98              BAL,15   T:EXECRS
    13669   03 028B1    000011C5              DATA     WDGPNONE
    13670   03 028B2    4CC00000 A            SIO,12   0
    13671   03 028B3    000028BF              DATA     ALN0046
    13672   03 028B4    01002A5A              GEN,8,24 1,MSN0044
    13673   03 028B5    000028B8              DATA     CLN046
    13674   03 028B6    680028AF              B        TN0046XX
    13675   03 028B7    68000CD1              B        RIOPEXIT
    13676                            *
    13677                            *
    13678   03 028B8    6AF01346     CLN046   BAL,15   CLIST
    13679   03 028B9    680010C1              B        XIT
    13680                                     PAGE
    13681                            *
    13682                            *                 HALT WRITE OF THE SURFACE FROM A COMMAND CHAINING
    13683                            *                 SEQUENCE WITH A RIO INSTRUCTION TEST
    13684                            *
    13685         00000189                    TESTNO
    13686   03 028BA    22A00001 A   TN0047   LI,10    1
    13687   03 028BB    680028BD              B        TN0048X
    13688                            *
    13689                            *                 HALT WRITE OF THE SURFACE FROM A COMMAND CHAINING
    13690                            *                 SEQUENCE WITH A RIO INSTRUCTION TEST
    13691                            *
    13692         00000190                    TESTNO
    13693   03 028BC    22A00002 A   TN0048   LI,10    2
    13694   03 028BD    328028C7     TN0048X  LW,8     ALN46RIO
    13695   03 028BE    6800289E              B        TN0046XZ
    13696   03 028BF    6AF012F6     ALN0046  BAL,15   ALFUNCT
    13697   03 028C0    000028C2              DATA     ALN0046Z
    13698   03 028C1    680010C1              B        XIT
    13699   03 028C2    00008001 A   ALN0046Z CHCKTIO  X'00008000'
    13700   03 028C3    00008002 A            CHCKTDV  X'00008000'
    13701   03 028C4    76014003 A   ALN0046X CHCKHIO  X'76014000'
    13702   03 028C5    10000089 A            CHCKTIO1 *X'10000000'
    13703         03 00A96 2         MSN0044  EQU      BA(MSGN044)
    13704   03 028C6    76014003 A   ALN46HIO CHCKHIO  X'76014000'
    13705   03 028C7    00000004 A   ALN46RIO CHCKRIO  0
    13706                                     PAGE
    13707                            *
    13708                            *
    13709                            *                 *** W R I T E  P R O T E C T  T E S T ***
    13710                            *
    13711                            *                 THIS SUBTEST VERIFIES THAT ALL TRACKS (BANDS)
    13712                            *                 CAN REPORT WRITE PROTECTED, BOTH FROM SENSE INFORATION
    13713                            *                 AND STATUS RETURN FROM A WRITE OPERATION.
    13714                            *
    13715                            *                   TO CHECK WRITE PROTECTION:
    13716                            *
    13717                            *                        SET DESIRED WRITE PROTECT SWITCHES IF THEY
    13718                            *                        DETECTED THE TRACKS (BANDS) WILL BE REPORTED
    13719                            *                        ON THE OUTPUT MESSAGE DEVICE.
    13720                            *
    13721                            *                        (NOTE: REMEMBER THAT THE TRACKS (BANDS) THAT
    13722                            *                        WILL BE TESTED ARE LIMITED BY BOTH THE
    13723                            *                        'SYST', AND 'SEEK' DIRECTIVES.
    13724                            *
    13725         00000191                    TESTNO
    13726                            TN005 ;
    13727   03 028C8    228011C5              LI,8     WDGPNONE
    13728   03 028C9    6AF0139B              BAL,15   RESETMOD
    13729   03 028CA    00002A75              DATA     MSN049
    13730   03 028CB    680028C8              B        TN005
    13731   03 028CC    22400000 A            LI,4     0
    13732   03 028CD    354002E8 A            STW,4    TCKWPVL1               TRACK (BAND) WRT PROTECT ADDR
    13733   03 028CE    354002EA A            STW,4    TCKWPVL                TRACK (BAND) WRT PROTECT ADDR
    13734   03 028CF    22400000 A   T1ST4908 LI,4     0
    13735   03 028D0    325015BE              LW,5     SEEKRAD           LOAD DEV SEEK ADDR.
    13736                            T1ST4909 ;
    13737   03 028D1    3A4002C6 A            LCW,4    TCKCURR           LOAD WORD COMPLEMENT
    13738   03 028D2    4B403032              AND,4    =X'7F'            AND
    13739   03 028D3    A5500004 A            SLS,5    *4                SHIFT
    13740   03 028D4    22400000 A            LI,4     0                 LOAD ZERO
    13741   03 028D5    354001C8 A            STW,4    T1ST21XF          ZERO TEST EXIT FLAG
    13742   03 028D6    354015B6              STW,4    NOIOCD
    13743   03 028D7    35500006 A            STW,5    6                 LOAD TRACK (BAN: ADDR
    13744   03 028D8    3060308F              AW,6     =X'80000000'      SET UP REGISTER SO IT'S NOT ZERO
    13745   03 028D9    374002C0 A            MW,4     SECTCURR          CALCULATE NEW DEVICE SEEK ADDR
    13746   03 028DA    355015BE              STW,5    SEEKRAD           SAVE IN SEEK RAD LOCATION
    13747                            *
    13748                            *
    13749                            *                 THIS TEST VERIFIES THAT, SET WRITE PROTECT SWITCHES
    13750                            *                 WILL BE DETECTED AND REPORTED AS PART OF THE
    13751                            *                 STATUS RETURN AFTER A WRITE. (NOTE: ERR 4910 DOESN'T
    13752                            *                 NECESSARY INFER THERE WAS AN ERROR DETECTED
    13753                            *                 BY THIS TEST, BUT RATHER, THAT WRITE PROTECTION
    13754                            *                 WAS DETECTED AS PART OF THE STATUS RETURNED
    13755                            *                 AFTER A WRITE OPERATION.
    13756                            *
    13757   03 028DB    356001C7 A            STW,6    PSAVE1
    13758   03 028DC    3550018F A            STW,5    SSAVE
    13759   03 028DD    3250018F A   T1ST4910 LW,5     SSAVE
    13760   03 028DE    6AC02CEE              BAL,12   BUILDSK
    13761                            T1ST499 ;
    13762   03 028DF    6AF013A7              BAL,15   :SEEKMODZ
    13763   03 028E0    01002A75              GEN,8,24 1,MSN049
    13764   03 028E1    680028DF              B        %-2
    13765   03 028E2    220009E7              LI,0     DA(IOCDWRT)
    13766   03 028E3    6AF00E9D              BAL,15   T:EXEC
    13767   03 028E4    00000000 A            DATA     0
    13768   03 028E5    4CC00000 A            SIO,12   0
    13769   03 028E6    000013C5              DATA     ALPMOD
    13770   03 028E7    02002A75              GEN,8,24 2,MSN049
    13771   03 028E8    00000000 A            DATA     0
    13772   03 028E9    680028DF              B        T1ST499
    13773                            T1ST4912 ;
    13774   03 028EA    72F001D9 A            LB,15    TDVSTAT+1         LOAD TDV DEV STATUS BYTE        *A02
    13775   03 028EB    21F00010 A            CI,15    X'10'                                             *A02
    13776   03 028EC    684028F3              BCR,4    T1ST4911          IF NOT WPV BRANCH               *A02
    13777   03 028ED    326001C7 A            LW,6     PSAVE1
    13778   03 028EE    356002E9 A            STW,6    TCKWPVH1          IF WRITE PROTECT STORE UPPER LIMIT
    13779   03 028EF    330002E8 A            MTW,0    TCKWPVL1          TEST FOR LOWER LIMIT
    13780   03 028F0    693028F2              BNEZ     %+2               IF NONE
    13781   03 028F1    356002E8 A            STW,6    TCKWPVL1              STORE ALSO AS LOWER LIMIT TOO
    13782   03 028F2    680028FD              B        T1ST4920          GO TO NEXT TEST
    13783   03 028F3    330002E8 A   T1ST4911 MTW,0    TCKWPVL1          TEST LOWER LIMIT
    13784   03 028F4    683028FD              BEZ      T1ST4920          IF ZERO NEXT TEST
    13785   03 028F5    6AF00D40              BAL,15   T1ST19RP
    13786   03 028F6    000002E8 A            DATA     TCKWPVL1
    13787   03 028F7    03002A75              GEN,8,24 3,MSN049
    13788   03 028F8    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
    13789   03 028F9    2E0028F9              WAIT     %
    13790   03 028FA    680028D1              B        T1ST4909          LOOP ON ERROR
    13791   03 028FB    330001C8 A            MTW,0    T1ST21XF
    13792   03 028FC    683028CF              BEZ      T1ST4908
    13793                            *
    13794                            *
    13795                            *
    13796                            *                 THIS TEST VERIFIES THAT, SET WRITE PROTECT SWITCHES
    13797                            *                 WILL BE DETECTED AND REPORTED AS PART OF THE
    13798                            *                 SENSE WORD RETURN BY A DEVICE SENSE OPERATION.
    13799                            *                 (NOTE: ERR 4920 DOESN'T NECESSARY INFER THERE
    13800                            *                 WAS AN ERROR DETECTED BY THIS TEST, BUT RATHER,
    13801                            *                 THAT WRITE PROTECTION WAS DETECTED AS PART OF
    13802                            *                 THE SENSE WORD RETURNED FROM A SENSE OF THE DEVICE.
    13803                            *
    13804                            T1ST4920 ;
    13805   03 028FD    330001C8 A            MTW,0    T1ST21XF          IF EXIT FLAG SET
    13806   03 028FE    69302902              BNEZ     %+4
    13807   03 028FF    6AF013A9              BAL,15   :SNSMODZ
    13808   03 02900    04002A75              GEN,8,24 4,MSN049
    13809   03 02901    680028C8              B        TN005
    13810                            *
    13811   03 02902    326001C7 A            LW,6     PSAVE1
    13812   03 02903    330015BF              MTW,0    :SNSWORD          TEST FOR WRITE PROTECT
    13813   03 02904    6810290A              BGEZ     T1ST4921          IF NOT BRANCH
    13814   03 02905    356002EB A            STW,6    TCKWPVH           IF NOT STORE AS UPPER LIMIT
    13815   03 02906    330002EA A            MTW,0    TCKWPVL           TEST LOWER LIMIT FOR ZERO
    13816   03 02907    69302909              BNEZ     %+2               IF NOT BRANCH
    13817   03 02908    356002EA A            STW,6    TCKWPVL           STORE AS LOWER LIMIT TOO
    13818   03 02909    68002914              B        T1ST4930          GO TO UPDATE
    13819   03 0290A    330002EA A   T1ST4921 MTW,0    TCKWPVL           TEST LOWER LIMIT
    13820   03 0290B    68302914              BEZ      T1ST4930          IF ZERO NEXT TEST
    13821   03 0290C    6AF00D40              BAL,15   T1ST19RP          FO REPORT WRITE PROTECTED TRACKS
    13822   03 0290D    000002EA A            DATA     TCKWPVL
    13823   03 0290E    05002A75              GEN,8,24 5,MSN049
    13824   03 0290F    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
    13825   03 02910    2E002910              WAIT     %
    13826   03 02911    680028D1              B        T1ST4909          LOOP ON ERROR
    13827   03 02912    330001C8 A            MTW,0    T1ST21XF
    13828   03 02913    683028CF              BEZ      T1ST4908
    13829                            *
    13830                            *
    13831   03 02914    330001C8 A   T1ST4930 MTW,0    T1ST21XF          REST EXIT FLAG
    13832   03 02915    69300CD1              BNEZ     FUCTEXIT              IF SET RETURN TO FUNCTIONAL MONT
    13833   03 02916    661001C7 A            AWM,1    PSAVE1
    13834   03 02917    3250018F A            LW,5     SSAVE
    13835   03 02918    305002C0 A            AW,5     SECTCURR          ADD TO TRACK (BAND) ADDR
    13836   03 02919    3550018F A            STW,5    SSAVE
    13837   03 0291A    315002C3 A            CW,5     SURFCEND          IF NOT
    13838   03 0291B    691028DD              BL       T1ST4910              PASS END, GO TRY NEXT TCK (BAND)
    13839   03 0291C    351001C8 A            STW,1    T1ST21XF          SET TEST EXIT FLAG
    13840   03 0291D    22000000 A            LI,0     0                 ZERO
    13841   03 0291E    350002D2 A            STW,0    :STATUSCC             CONDITIONS  STATUS
    13842   03 0291F    350015BF              STW,0    :SNSWORD
    13843   03 02920    680028F3              B        T1ST4911          GO BACK FOR LAST PASS
    13844         00 001C8           T1ST21XF EQU      PSAVE2
    13845                                     PAGE
    13846                            *
    13847                            *
    13848                            *                 *** D A T A ***
    13849                            *
    13850                            *
    13851                            *                 THIS DIRECTIVE WILL ENABLE THE USER TO DEFINE THE
    13852                            *                 DATA PATTERN. IF NOT EXECUTED A PRE-SET DATA PATTERN
    13853                            *                 WILL BE USED BY THE SURFACE TEST.
    13854                            *
    13855                            *                 PARAMETERS:
    13856                            *
    13857                            *                 D1  =  0   FIXED PATTERN; THE PATTERN IS DEFINED BY H2
    13858                            *
    13859                            *                 D1  =  1   INCREMENTAL PATTERN 1; THE SEED FOR THE
    13860                            *                            PATTERN IS DEFINED BY H2, AND THE
    13861                            *                            INCREMENTING CONSTANT IS DEFINED BY D3.
    13862                            *
    13863                            *                 D1  =  2   RANDOM PATTERN; THE SEED FOR THE PATTERN
    13864                            *                            IS DEFINED BY H2.
    13865                            *
    13866                            *                 D1  =  3  SPREAD CURRENT SEEK ADDRESS. THIS OPTION
    13867                            *                            WILL ALLOW THE USER TO SPREAD THE CURRENT
    13868                            *                            RAD ADDRESS AS A DATA PATTERN.
    13869                            *
    13870                            *                 H2  =      THE PATTERN SEED. (D1 = 0,1,2)
    13871                            *                 H3  =       THE INCREMENTING CONSTANT. (D1 =1 ONLY)
    13872                            *                 D4  =      (UNUSED)
    13873                            *
    13874                            *
    13875                            :DATA  ;
    13876   03 02921    351002DC A            STW,1    DONTREAD          SET THE DON'T READ FLAG
    13877   03 02922    3510030A A            STW,1    :ERPARNO          SET NO OF BAD PARMETER
    13878   03 02923    22600000 A            LI,6     0                 LOAD LOWER LIMIT
    13879   03 02924    22700003 A            LI,7     3                 LOAD UPPER LIMIT
    13880   03 02925    39600201 A            CLR,6    :P1                TEST TYPE OF PATTERN PARAMETER
    13881   03 02926    6960292D              BCS,6    DATAPERR          IF WITHIN LIMITS CONTINUE
    13882   03 02927    3560030A A            STW,6    :ERPARNO          ZERO BAD PARAMETER LOCATION
    13883   03 02928    02200040 A            LCI      4                 LOAD PARAMETERS
    13884   03 02929    2A400201 A            LM,4     :P1                   P1, P2, P3, P4
    13885   03 0292A    02200040 A            LCI      4                 SAVE PARAMETERS
    13886   03 0292B    2B402930              STM,4    DATAP1                P1, P2, P3,  P4
    13887   03 0292C    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
    13888                            *
    13889   03 0292D    EAF00229 A   DATAPERR BAL,15   *:ERRPARM         GO TO MONITOR TO REPORT BAD PARMETER
    13890   03 0292E    00000328              DATA     :DATADIR
    13891   03 0292F    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
    13892                            *
    13893   03 02930    00000002 A   DATAP1   DATA     2
    13894   03 02931    544B2FBA A   DATAP2   DATA     1414213562
    13895   03 02932    00000000 A   DATAP3   DATA     0
    13896   03 02933    00000000 A   DATAP4   DATA     0
    13897                                     PAGE
    13898                            *
    13899                            *                 *** S E E K ***
    13900                            *
    13901                            *                 THIS DIRECTIVE DEFINES THE STARTING TRACK AND
    13902                            *                 SECTOR ADDRESS, THE ENDING TRACK AND SECTOR
    13903                            *                 ADDRESS AND THE NUMBER OF SECTORS TO BE TESTED.
    13904                            *
    13905                            *                 THIS DIRECTIVE WILL NOT RESULT IN I/O OPERATION.
    13906                            *                 IT MERELY DEFINES THE RECORDING MEDIA SIZE USED
    13907                            *                 IN THE RANDOM AND SURFACE TEST.
    13908                            *
    13909                            *                 PARAMETERS:
    13910                            *
    13911                            *                   D1 - THE STARTING TRACK ADDRESS
    13912                            *                   D2 - THE STARTING SECTOR ADDRESS
    13913                            *                   D3 - THE ENDING TRACK ADDRESS
    13914                            *                   D4 - THE ENDING SECTOR ADDRESS
    13915                            *
    13916                            *
    13917                            *
    13918                            *
    13919                            *
    13920                            *
    13921                            *
    13922                            *
    13923                            SEEK ;
    13924   03 02934    224FFFFF A            LI,4     -1                INITIALIZE DDT
    13925   03 02935    35400283 A            STW,4    #DDTP                 POINTER TO -1
    13926   03 02936    6AF02D46     SEEK1    BAL,15   #DDTICMT          UPDATE DDT POINTER
    13927   03 02937    6800295E              B        SEEKSAVE          IF ALL TABLES UPDATED NEXT PHASE
    13928   03 02938    32400285 A            LW,4     #DDTBIAS          LOAD BIAS POINTER
    13929   03 02939    3520030A A            STW,2    SKDIRNO
    13930   03 0293A    32680288 A            LW,6     SECTORS,4         LOAAD NO. OF SECTORS/TRACK
    13931   03 0293B    31600202 A            CW,6     :P2
    13932   03 0293C    6910296A              BL       SEEKERR
    13933   03 0293D    6620030A A            AWM,2    SKDIRNO
    13934   03 0293E    31600204 A            CW,6     :P4
    13935   03 0293F    6910296A              BL       SEEKERR
    13936   03 02940    32900201 A            LW,9     :P1               FETCH 'STARTING TRACK ADDRESS'
    13937   03 02941    32B00203 A            LW,11    :P3               FETCH 'ENDING TRACK ADDRESS'
    13938   03 02942    22800000 A            LI,8     0                 ZERO REG 8
    13939   03 02943    22A00000 A            LI,10    0                 ZERO REG 10
    13940   03 02944    32680290 A            LW,6     SWPROT12,4        LOAD EXISTING LOWER SECTOR LIMIT
    13941   03 02945    37880288 A            MW,8     SECTORS,4         CALCULATE A TEMPORARY LOWER SECOTR =
    13942   03 02946    30900202 A            AW,9     :P2                   (P1 * SECTORS) + P2
    13943   03 02947    32600009 A            LW,6     9                    DON'T TRANSFER CALC. TEMP
    13944                            *                                       LOWER SECTOR TO TEMP. LOWER SECT
    13945   03 02948    31680290 A            CW,6     SWPROT12,4        IF TEMP. LOWER SECTOR
    13946   03 02949    6810294C              BGE      SEEK2                 IS > EXISTING LOWER SECTOR LIMIT
    13947   03 0294A    3510030A A            STW,1    SKDIRNO              SET P1 IN ERROR
    13948   03 0294B    6800296A              B        SEEKERR               AND GO REPORT PARAMETER ERROR
    13949   03 0294C    32780291 A   SEEK2    LW,7     SWPROT34,4        LOAD EXISTING UPPER SECTOR LIMIT
    13950   03 0294D    37A80288 A            MW,10    SECTORS,4         CALCULATE A TEMPORARY UPPER SECTOR =
    13951   03 0294E    30B00204 A            AW,11    :P4                   (P3 * SECTORS)
    13952   03 0294F    3270000B A            LW,7     11                    OTHERWISE USED CALCULATE TEMP
    13953   03 02950    20700001 A            AI,7     1                     UPPER SECTOR + 1
    13954   03 02951    31780291 A            CW,7     SWPROT34,4        IF TEMP. UPPER SECTOR IS
    13955   03 02952    68202955              BLE      SEEK3                 > EXISTING UPPER SECTOR LIMIT
    13956   03 02953    3530030A A            STW,3    SKDIRNO              SET P3 IN ERROR
    13957   03 02954    6800296A              B        SEEKERR               AND GO REPORT PARAMETER ERROR
    13958   03 02955    35680292 A   SEEK3    STW,6    TEMPSEK1,4      SAVE TEMP LOW SECTOR LIMIT
    13959   03 02956    35780293 A            STW,7    TEMPSEK2,4     SAVE TEMP UPPER SECTOR LIMIT
    13960   03 02957    31600007 A            CW,6     7                 IF UPPER LIMIT
    13961   03 02958    69102936              BL       SEEK1                 IS < LOWER LIMIT
    13962   03 02959    3510030A A            STW,1    SKDIRNO              SET P3 IN ERROR
    13963   03 0295A    33000009 A            MTW,0    9                     CALC LOWER LIMIT WAS = 0
    13964   03 0295B    6830296A              BEZ      SEEKERR               OTHERWISE
    13965   03 0295C    3530030A A            STW,3    SKDIRNO              SET P3 IN ERROR
    13966   03 0295D    6800296A              B        SEEKERR               ERROR
    13967   03 0295E    224FFFFF A   SEEKSAVE LI,4     -1                INITIALIZE DDT
    13968   03 0295F    35400283 A            STW,4    #DDTP                 POINTER TO -1
    13969   03 02960    351002DC A            STW,1    DONTREAD          SET DON'T READ FLAG
    13970   03 02961    6AF02D46     SEEK4    BAL,15   #DDTICMT          UPDATE DDT POINTER
    13971   03 02962    E8000214 A            B        *:MONITOR         IF ALL TABLES UPDATED RETURN TO DPM
    13972   03 02963    22E02960              LI,14    SEEK4-1           LOAD A RETURN FOR 'TSSTART'
    13973   03 02964    32400285 A            LW,4     #DDTBIAS          LOAD BIAS POINTER
    13974                            *                                       AND 'SSIZE' CALCULATIONS
    13975   03 02965    32980293 A            LW,9     TEMPSEK2,4        LOAD TEMP UPPER SECTOR ADDRESS
    13976   03 02966    32B80292 A            LW,11    TEMPSEK1,4        LOAD TEMP LOWER SECTOR ADDRESS
    13977   03 02967    3598028B A            STW,9    SUPPER,4          SAVE AS SECTOR UPPER LIMIT
    13978   03 02968    35B8028A A            STW,11   SLOWER,4          SAVE AS SECTOR LOWER LIMIT
    13979   03 02969    68000C3C              B        INITSIZE          GO CALC 'SSIZE' AND 'TSSTART'
    13980                            *
    13981                            *
    13982                            *
    13983   03 0296A    EAF00229 A   SEEKERR  BAL,15   *:ERRPARM         GO REPORT BAD PARAMETER
    13984   03 0296B    0000032A              DATA     :SEEKDIR
    13985   03 0296C    E8000214 A            B        *:MONITOR
    13986                            *
    13987         00 0030A           SKDIRNO  EQU      :ERPARNO
    13988                            *
    13989                            *
    13990                            *                 *** M E M O R Y ***
    13991                            *
    13992                            *                 THIS DIRECTIVE WILL ENABLE THE USER TO DEFINE A
    13993                            *                 MEMORY AREA THAT WILL BE USED BY THE 'TST2'
    13994                            *                 AND 'TST3' DIRECTIVES AS AN I/O BUFFER AREA.
    13995                            *                 IF THIS DIRECTIVE IS NOT EXECUTED OR IS EXECUTED
    13996                            *                 INCORRECTLY, THE PROGRAM WILL ASSUME ALL
    13997                            *                 THE MEMORY FROM THE TOP OF THE DIAGNOSTIC
    13998                            *                 TO THE DPM OR TO 16K (WHICHEVER IS SMALLER)
    13999                            *                 IS TO BE USED AS AN I/O BUFFER.
    14000                            *                 IF THE MEMORY AREA DESCRIBED BY H1 AND H2 IS NOT
    14001                            *                 BIG ENOUGH (AT LEAST 2 FULL SECTORS OF DATA) OR
    14002                            *                 NOT AVAILABLE, THE DIRECTIVE WILL REPORT:
    14003                            *                 'SPECIFIED I/O AREA NOT AVAILABLE'.  THEN IT WILL
    14004                            *                 REPORT WHAT MEMORY AREA IS AVAILABLE AS AN I/O
    14005                            *                 BUFFER.
    14006                            *
    14007                            *                 H1 - FIRST LOCATION OF I/O BUFFER AREA
    14008                            *                 H2 - LAST LOCATION OF I/O BUFFER AREA
    14009                            *
    14010                            *
    14011                            *
    14012   03 0296D    229FFFFF A   :MEM     LI,9     -1                INITIALIZE DDT
    14013   03 0296E    35900283 A            STW,9    #DDTP                 POINT TO -1
    14014   03 0296F    6AF011F2              BAL,15   SIZEACT
    14015   03 02970    327015D0              LW,7     DASIZE
    14016   03 02971    25700001 A            SLS,7    1
    14017   03 02972    207FFFFF A            AI,7     -1
    14018   03 02973    2171FFFF A            CI,7     X'1FFFF'
    14019   03 02974    68202976              BLE      %+2
    14020   03 02975    2271FFFF A            LI,7     X'1FFFF'
    14021   03 02976    357006D1              STW,7    VHEX6D
    14022   03 02977    32400227 A            LW,4     :RLOADER
    14023   03 02978    20400200 A            AI,4     X'200'            ADD BIAS
    14024   03 02979    32D0022F A            LW,13    :MEMLAST
    14025   03 0297A    20DFFD00 A            AI,13    -768
    14026   03 0297B    22C029A7              LI,12    IOTOP             ADDR OF ADDR OF TOP OF MEMORY
    14027   03 0297C    6AF02D46     MEM2     BAL,15   #DDTICMT          UPDATE DDT POINTER
    14028   03 0297D    68002984              B        MEM1              IF ALL TABLE TESTED, NEXT STEP
    14029   03 0297E    329002C1 A            LW,9     BYTCURR           LOAD CURRENT BYTE COUNT
    14030   03 0297F    2590007F A            SLS,9    -1                CALC NO. OF WORDS 'N 2 BUFFERS
    14031   03 02980    30900201 A            AW,9     :P1               ADD 1ST LOC OF BUFFER AREA
    14032   03 02981    31900202 A            CW,9     :P2               IS THIS GREATER THAN UPPER LIMIT
    14033   03 02982    69202992              BG       MEMERROR             IF NOT 2 BUFFER: ERROR
    14034   03 02983    6800297C              B        MEM2              GO TEST NEXT DDT
    14035                            *
    14036                            *
    14037                            *
    14038   03 02984    32A00201 A   MEM1     LW,10    :P1               LOAD 1ST LOC OF BUFFER AREA
    14039   03 02985    32B00202 A            LW,11    :P2               LOAD LAST LOC OF BUFFER AREA
    14040   03 02986    31400201 A            CW,4     :P1               IS IT NORMAL  MEMORY
    14041   03 02987    6920298C              BG       MENORMAL              IF  SO BRANCH
    14042                            *
    14043                            *
    14044                            *
    14045   03 02988    31B006D1              CW,11    VHEX6D
    14046   03 02989    69202992              BG       MEMERROR            THE SIZE OF MEMORY: IF NO-ERR
    14047   03 0298A    22900000 A            LI,9     0                 SET MEMORY FLAG = 0
    14048   03 0298B    68002995              B        MEMOK             GO SET UP MEMORY LIMITS
    14049                            *
    14050   03 0298C    31A029A9     MENORMAL CW,10    FIRSTLOC          IS P1 GREATER THAN
    14051   03 0298D    69102992              BL       MEMERROR            THE END OF DIAG: IF NOT ERROR
    14052   03 0298E    31B0000D A            CW,11    13                IS P2 LESS THAN
    14053   03 0298F    69202992              BG       MEMERROR            THE START OF DMP: IF NOT ERR
    14054   03 02990    22900001 A            LI,9     1                 SET MEMORY FLAG = 1
    14055   03 02991    68002995              B        MEMOK             GO SET UP MEMORY LIMITS
    14056                            *
    14057                            *
    14058                            *
    14059   03 02992    32A029A9     MEMERROR LW,10    FIRSTLOC          LOAD MEMORY LOWER LIMIT
    14060   03 02993    32B0022F A            LW,11    :MEMLAST          LOAD MEMORY UPPER LIMIT
    14061   03 02994    22900002 A            LI,9     2                 SET MEMORY FLAG = 2
    14062   03 02995    02200040 A   MEMOK    LCI      4                 SAVE MEMORY LIMITS
    14063   03 02996    2B9029A5              STM,9    MEMFLAG              AND FLAGS
    14064   03 02997    21900002 A            CI,9     2                 IF INITIAL LIMIT WHERE
    14065   03 02998    E9300214 A            BNE      *:MONITOR             GOOD: EXIT
    14066                            *
    14067   03 02999    32C029A9              LW,12    FIRSTLOC          LOAD ADDR OF FIRST AVAILABLE LOC
    14068   03 0299A    35C006C7              STW,12   VHEX6A
    14069   03 0299B    35D006CF              STW,13   VHEX6B
    14070   03 0299C    354006D0              STW,4    VHEX6C
    14071   03 0299D    22F0219D              LI,15    BA(MEM)
    14072   03 0299E    314006D1              CW,4     VHEX6D
    14073   03 0299F    691029A1              BL       %+2               IF DPM NOT AT TOP OF MEMORY BRANCH
    14074   03 029A0    22F021B5              LI,15    BA(MEMNORM)
    14075   03 029A1    35F029A3              STW,15   %+2
    14076   03 029A2    6AF00AA5              BAL,15   MSGOUT
    14077   03 029A3    0000219D              DATA     BA(MEM)
    14078   03 029A4    E8000214 A            B        *:MONITOR
    14079   03 029A5    00000001 A   MEMFLAG  DATA     1                 0=ADDITIONAL,1=NORMAL,2=ERROR
    14080   03 029A6    00003098     IOBOTTOM DATA     BUF1LO            FIRST AVAIL I/O LOCATION
    14081   03 029A7    00000000 A   IOTOP    DATA     0                 LAST AVAIL I/O LOC. FOR ADDIT
    14082   03 029A8    0000022F A   IOTOPNT  DATA     :MEMLAST          ADDR OF LAST AVAIL MEM LOC
    14083   03 029A9    00003098     FIRSTLOC DATA     BUF1LO            FIRST AVAILABLE MEM LOC
    14084   03 029AA    0000022F A   :MEMLST  DATA     :MEMLAST          LAST AVAILABLE MEM LOC
    14085                            *                 *** L I M I T ***
    14086                            *
    14087                            *                 THIS DIRECTIVE ALLOWS THE USER TO LIMIT THE
    14088                            *                 PROGRAM PRINTOUTS AS SPECIFIED BY D1 AND D2.
    14089                            *
    14090                            *                 D1 = 1  LIMIT COMPARE ERROR PRINTOUTS/SECTOR TO
    14091                            *                         THE VALUE EXPRESSED BY D2.
    14092                            *                 D1 = 1  SET MESSAGE LEVEL AS SPECIFIED BY D2.
    14093                            *
    14094                            *                 D2 = 0  PRINT OUT WILL NOT BE LIMITED.
    14095                            *                 D2 =>   VALUE PRINTOUT WILL BE LIMITED TO.
    14096                            *
    14097                            *                 IF D1 = 3
    14098                            *                 D2 = 0  PRINT ONLY THE COMPARES THAT ARE FAILING.
    14099                            *
    14100                            *                 D2 = 1  PRINT ALL COMPARES, EXECPT DIO COMPARES,
    14101                            *                         IF DIO FAILURES, PRINT IT ALSO.
    14102                            *                 D2 = 2  PRINT ALL COMPARES, IF ANY ERROR OCCURS.
    14103                            *
    14104                            *                 D2 = 3  PRINT ALL COMPARES, REGARDLESS IF THERE
    14105                            *                         WAS A FAILURE OR NOT.
    14106                            *                 D2 = 4  PRINT ALL COMPARES THAT CAN BE DONE WITHOUT
    14107                            *                         I/O OR DIO EXECUTION.
    14108                            *
    14109                            *
    14110                            *
    14111                            LIMT ;
    14112   03 029AB    3510030A A            STW,1    :ERPARNO          SET PARAMETER ERROR NO.
    14113   03 029AC    31100201 A            CW,1     :P1               IF = 1
    14114   03 029AD    683029B5              BE       :LIM1                 CONTINUE
    14115   03 029AE    31200201 A            CW,2     :P1
    14116   03 029AF    683029C0              BE       :LIM3
    14117   03 029B0    31300201 A            CW,3     :P1               1F = 3
    14118   03 029B1    683029BA              BE       :LIM2                 CONTINUE
    14119   03 029B2    EAF00229 A   :L1M0    BAL,15   *:ERRPARM         REPORT P1
    14120   03 029B3    0000032E              DATA     :LIMTDIR              BAD
    14121   03 029B4    E8000214 A            B        *:MONITOR         EXIT
    14122   03 029B5    32C00202 A   :LIM1    LW,12    :P2               LOAD LIMIT COUNT
    14123   03 029B6    692029B8              BGZ      %+2                   IF GREATER THAN ZERO: BRANCH
    14124   03 029B7    32C03090              LW,12    =X'7FFFFFFF'          OTHERWISE FORCE TO LARGE NO.
    14125   03 029B8    35C03000              STW,12   :COMPLIM          SAVE AS COMPARE LIMIT
    14126   03 029B9    E8000214 A            B        *:MONITOR         EXIT
    14127                            *
    14128   03 029BA    3520030A A   :LIM2    STW,2    :ERPARNO          SET PARAMETER ERROR NO.
    14129   03 029BB    32C00202 A            LW,R12   :P2               LOAD M&G LEVEL
    14130   03 029BC    21C00005 A            CI,12    5                     IF = 5 OR GREATER ERROR
    14131   03 029BD    681029B2              BGE      :L1M0
    14132   03 029BE    35C01586              STW,12   E:PRINT           SET UP MSG LEVEL
    14133   03 029BF    E8000214 A            B        *:MONITOR         EXIT
    14134   03 029C0    32C00202 A   :LIM3    LW,12    :P2               LOAD PRINT FLAG
    14135   03 029C1    35C029DD              STW,12   :PASSPFL
    14136   03 029C2    32C00203 A            LW,12    :P3               LOAD PASS COUNT
    14137   03 029C3    35C029DE              STW,12   :PASSCNT
    14138   03 029C4    E8000214 A            B        *:MONITOR
    14139                            *
    14140                            *                 PASS CONTROL HANDLER
    14141                            *
    14142   03 029C5    35F001CB A   :PASSC   STW,15   PSAVE5            SAVE EXIT ADR
    14143   03 029C6    330029DD              MTW,0    :PASSPFL          TEST PRINT FLAG
    14144   03 029C7    682029D8              BLEZ     :PASSC1           B: BYPASS PRINTING
    14145   03 029C8    22C00000 A            LI,12    0
    14146   03 029C9    32D002DA A            LW,13    :PASSCUR          IS CURRENT PASS A MULTIPLE
    14147   03 029CA    35D006C3              STW,13   VDEC8A
    14148   03 029CB    36C029DD              DW,12    :PASSPFL              OF PRINT REQUEST
    14149   03 029CC    21C00000 A            CI,12    0                 CHECK REMAINDER
    14150   03 029CD    693029D8              BCS,3    :PASSC1           B: BYPASS PRINTING
    14151   03 029CE    22F021C3              LI,15    BA(:PASS0)        MESSAGE TST0
    14152   03 029CF    32C002D5 A            LW,12    ITHTEST
    14153   03 029D0    683029D5              BEZ      :PASSC2
    14154   03 029D1    22F021CA              LI,15    BA(:PASS2)        MESSAGE TST2
    14155   03 029D2    21C00001 A            CI,12    1
    14156   03 029D3    683029D5              BE       :PASSC2
    14157   03 029D4    22F021D1              LI,15    BA(:PASS3)        MESSAGE TST3
    14158   03 029D5    35F029D7     :PASSC2  STW,15   %+2
    14159   03 029D6    6AF00AA5              BAL,15   MSGOUT
    14160   03 029D7    00000000 A            DATA     0
    14161   03 029D8    32C002DA A   :PASSC1  LW,12    :PASSCUR          FETCH PASS COUNT
    14162   03 029D9    31C029DE              CW,12    :PASSCNT          TEST FOR LAST
    14163   03 029DA    E81201CB A            BGE      *PSAVE5,1         END OF PASSES
    14164   03 029DB    331002DA A            MTW,1    :PASSCUR          INCREMENT PASS CNT
    14165   03 029DC    E80001CB A            B        *PSAVE5
    14166   03 029DD    00000000 A   :PASSPFL DATA     0                 PRINT FLAG
    14167   03 029DE    00000000 A   :PASSCNT DATA     0                 NO. OF REQD PASSES
    14168                                     PAGE
    14169                            *
    14170                            *                 UNEXPECTED TRAP OR FAULT INTERRUPT HANDLER
    14171                            *
    14172   03 029DF    ED101561     UNEXPTI  WD,1     *DIOAD3            REST RIOP
    14173                            *
    14174   03 029E0    351015B6              STW,1    NOIOCD
    14175   03 029E1    35101587              STW,1    E:MARKER
    14176   03 029E2    35201588              STW,2    E:ERROR
    14177   03 029E3    6AF00EFC              BAL,15   TP:HEAD
    14178   03 029E4    22000000 A            LI,0     0
    14179   03 029E5    350015B6              STW,0    NOIOCD
    14180                            *
    14181   03 029E6    6AF0100C              BAL,15   TP:TRAP
    14182   03 029E7    680029E8              B        %+1
    14183   03 029E8    6AC02CEE              BAL,12   BUILDSK
    14184   03 029E9    32C00000 A            LW,12    0
    14185   03 029EA    6AF00B47              BAL,15   IOCDP
    14186   03 029EB    12C002FE A            LD,12    BUILDSK1
    14187   03 029EC    35C006BF              STW,12   VDEC2A
    14188   03 029ED    35D006C0              STW,13   VDEC3A
    14189   03 029EE    6AF00AA5              BAL,15   MSGOUT
    14190   03 029EF    00002167              DATA     BA(#MSGERR1)
    14191   03 029F0    33100192 A            MTW,1    IOTRAP
    14192   03 029F1    32F00192 A            LW,15    IOTRAP
    14193   03 029F2    31F00274 A            CW,15    MAXERR
    14194   03 029F3    68202B6D              BLE      IOCONT1
    14195   03 029F4    E800026F A            B        *WRITTEN
    14196                                     PAGE
    14197                            *
    14198                            *
    14199                            *                 *** R A N D O M  E X E R C I S E R ***
    14200                            *
    14201                            *                 *** T S T 2 , D 1 , D 2 ***
    14202                            *
    14203                            *                 THIS DIRECTIVE PROVIDES A MEANS OF OPERATING A
    14204                            *                 RAD STORAGE SYSTEM WITH PSEUDO RANDOM, STORAGE
    14205                            *                 UNIT SELECTION, ORDER SEQUENCE, DATA PATTERN, AND
    14206                            *                 I/O BUFFER AREA, FOR THE PURPOSE OF DETECTING
    14207                            *                 INTERMITTENT FAILURES.  THE RECORDING MEDIA WILL
    14208                            *                 BE INITIALIZED WITH A PSEUDO RANDOM PATTERN BEFORE
    14209                            *                 THE EXERCISER PORTION OF THE TEST IS ENTERED.
    14210                            *                 ONCE STARTED, THE EXERCISER WILL RUN FOR (D1)
    14211                            *                 CYCLES OR UNTIL TERMINATED BY THE OPERATOR.
    14212                            *                 THE RANDOM EXERCISER WILL REPORT ERRORS AS THEY
    14213                            *                 OCCUR, BUT ONLY AS TO THE FUNCTION THAT FAILED.
    14214                            *                 THE RANDOM EXERCISER PROVIDES NO LOOP ON ERROR
    14215                            *                 CAPABILITY.  THIS DIRECTIVE WILL BE EXECUTED FOR
    14216                            *                 ALL STORAGE UNITS SPECIFIED BY THE 'SYST' DIRECTIVE.
    14217                            *
    14218                            *                 TEST VARIATIONS:
    14219                            *                 THE 'DATA' DIRECTIVE NOT BE EFFECTIVE FOR THE
    14220                            *                 RANDOM EXERCISER.  THE SURFACE AREA TO BE TESTED
    14221                            *                 CAN BE LIMITED WITH THE 'SEEK' DIRECTIVE.
    14222                            *
    14223                            *                 PARAMETERS:
    14224                            *
    14225                            *                 D1 - NUMBER OF CYCLES TO BE PERFORMED.
    14226                            *
    14227                            *                 D2 - NUMBER OF RETRIES ON AN ERROR, BEFORE
    14228                            *                       GOING ON TO NEXT PASS.
    14229                            *
    14230                            *
    14231                            *
    14232   03 029F5    351002DA A   TST2     STW,1    :PASSCUR          INIT. PASS COUNT
    14233   03 029F6    32600201 A            LW,6     :P1
    14234   03 029F7    693029F9              BNEZ     %+2               SET PREDEFINE CYCLE
    14235   03 029F8    22601388 A            LI,6     5000                  COUNT = 5000
    14236   03 029F9    35600241 A            STW,6    CYCLE                 NO. OF PASSES
    14237   03 029FA    32600202 A            LW,6     :P2               FETCH AND SAVE
    14238   03 029FB    35602AED              STW,6    TST2PAR+2
    14239   03 029FC    6AF02A04              BAL,15   TST2LEV2          GO TO LEVEL 2
    14240   03 029FD    6AF029C5              BAL,15   :PASSC            TEST PASS AND PRINT
    14241   03 029FE    680029F6              B        TST2+1
    14242   03 029FF    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    14243   03 02A00    2E002A00              WAIT     %                 SS3 - OFF SS1 - UNK (HLT AFTER TEST)
    14244   03 02A01    680029F5              B        TST2              SS3 - ON  SS1 - ON  (LOOP ON TEST)
    14245   03 02A02    351002DC A            STW,1    DONTREAD
    14246   03 02A03    E8000214 A            B        *:MONITOR         SS3 - ON  SS1 - OFF (RTN TO MONITOR)
    14247                            *
    14248                            *                 COMPREHENSIVE TEST ENTRY (LEVEL 2)
    14249                            *
    14250   03 02A04    35F00242 A   TST2LEV2 STW,15   TST2RTN1          SAVE RTN TO LEVEL 1
    14251   03 02A05    352002D5 A            STW,2    ITHTEST           TST2 ID
    14252   03 02A06    35102AEC              STW,1    TST2PAR+1
    14253   03 02A07    02200040 A            LCI      4                     AND
    14254   03 02A08    2A801644              LM,8     TST2DATA          FETCH
    14255   03 02A09    2B8015F0              STM,8    TST3PAT               SAVE TYPE OF
    14256   03 02A0A    35900282 A            STW,9    RADSEED           STORE A RANDOM NO,
    14257   03 02A0B    22E02AEB              LI,14    TST2PAR               DATA PATTERN
    14258   03 02A0C    6AF02B08              BAL,15   TST3RAND          GO DO SURFACE TEST
    14259   03 02A0D    33100241 A            MTW,1    CYCLE             ADD 1 TO NO OF CYCLES TO DO
    14260   03 02A0E    351002DC A            STW,1    DONTREAD          SET DON'T READ FLAG
    14261   03 02A0F    6AF02A16              BAL,15   TST2LEV3          GO TO LEVEL 3
    14262   03 02A10    22000000 A            LI,0     0
    14263   03 02A11    350002DC A            STW,0    DONTREAD
    14264   03 02A12    35202AEC              STW,2    TST2PAR+1
    14265   03 02A13    22E02AEB              LI,14    TST2PAR
    14266   03 02A14    6AF02B08              BAL,15   TST3RAND
    14267   03 02A15    E8000242 A            B        *TST2RTN1         GO TO LEVEL 1
    14268                            *
    14269                            *                 RANDOM TESTING  (LEVEL 3)
    14270                            *
    14271   03 02A16    35F00243 A   TST2LEV3 STW,15   TST2RTN2          SAVE RTN ADDR TO LEVEL 2
    14272                            *
    14273                            *
    14274   03 02A17    33F00241 A   TST2LOOP MTW,-1   CYCLE              DECREMENT NO OF PASSES
    14275   03 02A18    E8300243 A            BEZ      *TST2RTN2         IF ZERO RTN TO LEVEL 2
    14276                            *
    14277                            *
    14278                            *
    14279   03 02A19    6AF02A1C              BAL,15   TST2LEV4          GO BUILD RANDOM I/O CONTROL TABLES
    14280   03 02A1A    6AF02B6A              BAL,15   IOCONT            GO DO I/O
    14281   03 02A1B    68002A17              B        TST2LOOP          GO TO TOP OF LOOP
    14282                            *
    14283                            *
    14284                            *
    14285   03 02A1C    35F00244 A   TST2LEV4 STW,15   TST2RTN3          SAVE RETURN ADDRESS
    14286   03 02A1D    6AF02D3E              BAL,15   #DDTRADM          GO FIND A RANDOM DEVICE
    14287   03 02A1E    68002A1F              B        %+1
    14288   03 02A1F    6AF02A2B              BAL,15   TST2LEV5          FIND SECTORS AND BYTE COUNT
    14289   03 02A20    6AF02B54              BAL,15   BUILDIOC          GO BUILD IOCD WORD
    14290   03 02A21    22000000 A            LI,0     0                 LOAD ZERO
    14291   03 02A22    35100277 A            STW,1    READVERY          SET READ VERIFICATION FLAG
    14292   03 02A23    352002EE A            STW,2    :PATID            SET RANDOM PATTERN
    14293                            *
    14294                            *
    14295                            *
    14296                            *
    14297                            *
    14298   03 02A24    32702EE4              LW,7     :SEED             FETCH RANDOM WORD
    14299   03 02A25    22600000 A            LI,6     0                 ZERO
    14300   03 02A26    22900008 A            LI,9     IOCDS1-IOCDS       LOAD TABLE LENGTH
    14301   03 02A27    36600009 A            DW,6     9                 FIND RANDOM ROUTINE
    14302   03 02A28    35600248 A            STW,6    PASSTYPE          SAVE TYPE OF RANDOM PASS
    14303   03 02A29    670C2A69              EXU      IOCDS,6           GO DO A RANDOM FURNCTION
    14304                            *
    14305   03 02A2A    E8000244 A            B        *TST2RTN3         RETURN TO CALLING ROUTINE
    14306                            *
    14307                            *
    14308                            *         LEVEL 5
    14309                            *
    14310                            *
    14311   03 02A2B    35F00245 A   TST2LEV5 STW,15   TST2RTN4          SAVE RETURN ADDRESS
    14312   03 02A2C    32E00282 A            LW,14    RADSEED           FETCH THE RANDOM NO.
    14313   03 02A2D    6AF02ED6              BAL,15   :RANDOM           GENERATE A NEW RANDOM NO.
    14314   03 02A2E    35E00282 A            STW,14   RADSEED           SAVE THE NEW RANDOM NO.
    14315   03 02A2F    32F0000E A            LW,15    14                LOAD RANDOM ON. INTO LSB'>
    14316   03 02A30    68302A2D              BEZ      %-3               IF ZERO GET ANOTHER RANDOM NO.
    14317   03 02A31    22E00000 A            LI,14    0                 ZERO MSB'S OF BOUBLEWORD
    14318   03 02A32    32A002C4 A            LW,10    SSIZEC
    14319   03 02A33    20A00001 A            AI,10    1                 INCREMENT BY 1
    14320   03 02A34    36E0000A A            DW,14    10                DIVIDE TO OBTAIN REMAINDER
    14321   03 02A35    3300000E A            MTW,0    14                TEST FOR A ZERO
    14322   03 02A36    68302A2C              BEZ      TST2LEV5+1        SECTOR SIZE
    14323   03 02A37    6AF02D0D              BAL,15   MEMORY            GO CALC MEMORY SIZE
    14324   03 02A38    E8000242 A            B        *TST2RTN1         RTN HERE IF NO MEMORY IS AVAILABLE
    14325   03 02A39    32B0025B A            LW,11    BUFAVAIL          LOAD NO. OF BUFFERS AVAILABLE
    14326   03 02A3A    31B0000E A            CW,11    14                TEST AGAINST RANDOM SECTOR COUNT
    14327   03 02A3B    69102A3D              BL       %+2               IF LESS BRANCH
    14328   03 02A3C    32B0000E A            LW,11    14                 IF NOT LOAD NEW SECTOR COUNT
    14329   03 02A3D    35B00247 A            STW,11   MAXSECT           SAVE AS THE MAXIMUM NO. OF SECTORS
    14330   03 02A3E    22A00000 A            LI,10    0                 ZERO THE MSB'S OF DOUBLEWORD
    14331   03 02A3F    37A002C1 A            MW,10    BYTCURR
    14332   03 02A40    21B10000 A            CI,11    X'10000'          TEST FOR BYTE COUNT > 64K
    14333   03 02A41    68202A47              BLE      %+6               IF LESS THAN 64K BYTES, BRANCH
    14334   03 02A42    22A00000 A            LI,10    0                 IF GREATER
    14335   03 02A43    22B10000 A            LI,11    X'10000'             FORCE
    14336   03 02A44    36A002C1 A            DW,10    BYTCURR              TO SOME VALUE
    14337   03 02A45    22A00000 A            LI,10    0                    LESS THAN
    14338   03 02A46    37A002C1 A            MW,10    BYTCURR              64K BYTES
    14339   03 02A47    30B0025E A            AW,11    BUF1LOBA          ADD MEMORY LOWER LIMIT
    14340   03 02A48    35B0025D A            STW,11   MEMLSTBA          SAVE AS ADDR OF LAST BYTE
    14341   03 02A49    38B0025E A            SW,11    BUF1LOBA          SUB MEMORY LOWER LIMIT
    14342   03 02A4A    32F00282 A            LW,15     RADSEED          FETCH RANDOM NO.
    14343   03 02A4B    22E00000 A            LI,14    0                 ZERO MSB'S OF DOUBLE WORD
    14344   03 02A4C    36E0000B A            DW,14    11                R = NO. OF BYTES IN PATTERN
    14345                            *
    14346                            *
    14347                            *
    14348   03 02A4D    32F0000E A            LW,15    14
    14349   03 02A4E    68302A2C              BEZ      TST2LEV5+1
    14350   03 02A4F    22E00000 A            LI,14    0
    14351   03 02A50    36E002C1 A            DW,14    BYTCURR
    14352   03 02A51    3300000F A            MTW,0    15
    14353   03 02A52    69302A54              BNEZ     %+2               IF SECTOR COUNT = 0
    14354   03 02A53    22F00001 A            LI,15    1                 LOAD SECTOR COUNT OF ONE
    14355   03 02A54    35F0025B A            STW,15   BUFAVAIL          SAVE NO. OF BUFFERS AVAIL
    14356   03 02A55    35F00246 A            STW,15   TSPREAD
    14357                            *
    14358                            *
    14359   03 02A56    22E00000 A            LI,14    0
    14360   03 02A57    37E002C1 A            MW,14    BYTCURR
    14361   03 02A58    35F00258 A            STW,15    BUFLENGT
    14362   03 02A59    32A0025D A            LW,10    MEMLSTBA          FETCH ENDING BYTE ADDRESS
    14363   03 02A5A    38A0000F A            SW,10    15
    14364   03 02A5B    35A0025E A            STW,10   BUF1LOBA          SAVE LOWER LIMIT BYTE ADDR
    14365   03 02A5C    35A00259 A            STW,10   BUFINAD           SAVE BUFFERS STARTING ADDR
    14366   03 02A5D    32A002C3 A            LW,10    SURFCEND
    14367   03 02A5E    38A00247 A            SW,10    MAXSECT
    14368   03 02A5F    22E00000 A            LI,14    0                 LOAD ZERO
    14369   03 02A60    38A002C2 A            SW,10    CURRSEEK          SUBTRACT WORDS
    14370   03 02A61    68302A64              BEZ      %+3               IF ZERO SKIP CALCULATION
    14371   03 02A62    32F00282 A            LW,15    RADSEED           LOAD RANDOM SEED
    14372   03 02A63    36E0000A A            DW,14    10                FIND THE NO. OF AVAILABLE SECTORS
    14373   03 02A64    30E002C2 A            AW,14    CURRSEEK
    14374   03 02A65    35E002C2 A            STW,14   CURRSEEK          SET UP SEEK ADDRESS
    14375   03 02A66    30E00246 A            AW,14    TSPREAD
    14376   03 02A67    35E002C3 A            STW,14   SURFCEND          **  SECTOR ENDING ADDRESS
    14377   03 02A68    E8000245 A            B        *TST2RTN4         RETURN TO CALLING ROUTINE
    14378                            *
    14379                            *
    14380         03 02A69           IOCDS    SET      %
    14381   03 02A69    6AF02A71              BAL,15   STOP
    14382                            *
    14383   03 02A6A    6AF02A7E              BAL,15   SKCCWRT
    14384                            *
    14385   03 02A6B    6AF02A8D              BAL,15   SKCRD02
    14386                            *
    14387   03 02A6C    6AF02A9C              BAL,15   SENSE
    14388                            *
    14389   03 02A6D    6AF02AB7              BAL,15   READ12
    14390                            *
    14391   03 02A6E    6AF02AC3              BAL,15   READ02
    14392                            *
    14393   03 02A6F    6AF02ACE              BAL,15   WRTDWRT
    14394                            *
    14395   03 02A70    6AF02AE8              BAL,15   REDDRED
    14396         03 02A71           IOCDS1   SET      %
    14397                                     PAGE
    14398                            *
    14399                            *
    14400                            *        S T O P  O R D E R
    14401   03 02A71    128015F8     STOP     LD,8     IOCD00            FETCH IOCD
    14402   03 02A72    35100257 A            STW,1    SURORDER          LOAD TYPE OF OPERATION
    14403   03 02A73    30800259 A            AW,8     BUFINAD           LOAD BUFFER ADDRESS IOCD
    14404   03 02A74    158002F8 A            STD,8    IOCDATA           SAVE IOCD
    14405   03 02A75    3280025B A            LW,8     BUFAVAIL           LOAD THE NO. OF AVAILABLE BUFFER
    14406   03 02A76    55822C2B              STH,8    SECINCMT,1        SET UP COUNT
    14407   03 02A77    55822C2A              STH,8    BUFINCMT,1        SET UP COUNT
    14408   03 02A78    32602A7D              LW,6     STOPAIO            LOAD EXPECTED AIO STATUS
    14409   03 02A79    35600261 A            STW,6    EXDATAIO          SAVED EXPECTED AIO STATUS
    14410   03 02A7A    32603091              LW,6     L(X'FFEFC001')
    14411   03 02A7B    3560025F A            STW,6    MASK              SET UP MASK STORAGE
    14412   03 02A7C    E800000F A            B        *15               RETURN TO CALLING ROUTINE
    14413                            *
    14414                            *
    14415   03 02A7D    00084000 A   STOPAIO  DATA     X'00084000'
    14416                                     PAGE
    14417                            *
    14418                            *
    14419                            *                 S E E K - C C - W R I T E
    14420                            *
    14421                            SKCCWRT ;
    14422   03 02A7E    35100257 A            STW,1    SURORDER          LOAD TYPE OF OPERATION
    14423   03 02A7F    128015FA              LD,8     IOCD01            FETCH THE WRITE IOCD
    14424   03 02A80    30800259 A            AW,8     BUFINAD           ADD TO IF THE STARTING ADDRESS
    14425   03 02A81    30900258 A            AW,9     BUFLENGT          ADD IN THE BYTE COUNT
    14426   03 02A82    158002F8 A            STD,8    IOCDATA           SAVE DOUBLE WORD
    14427   03 02A83    128015FC              LD,8     IOCD10            LOAD COMMAND CHAINING SEEK
    14428   03 02A84    158002F6 A            STD,8    IOCSEEK1          STORE THIS DOUBLEWORD
    14429   03 02A85    3280025B A            LW,8     BUFAVAIL          LOAD NO. OF BUFFERS AVAILABLE
    14430   03 02A86    55822C2B              STH,8    SECINCMT,1        SET UP COUNTERS
    14431   03 02A87    55822C2A              STH,8    BUFINCMT,1        SET UP COUNTERS
    14432   03 02A88    35000249 A            STW,0    RDMPATTM          STORE RANDOM PATTERN
    14433   03 02A89    3500027A A            STW,0    IOCDPNT           SET UP ONLY 1 IOCD OPERATION
    14434   03 02A8A    32802B69              LW,8     EXDTAIO           LOAD AND SAVE
    14435   03 02A8B    35800260 A            STW,8    EXSEKAIO          SET UP EXPECTED AIO STATUS
    14436   03 02A8C    E800000F A            B        *15               GO BACK TO RANDOM ROUTINE
    14437                            *
    14438                            *
    14439                                     PAGE
    14440                            *
    14441                            *                 S E E K  -  C C  -  R E A D  1 2
    14442                            *
    14443                            *
    14444                            SKCRD02 ;
    14445   03 02A8D    35200257 A            STW,2    SURORDER          SET READ TEST FLAG
    14446   03 02A8E    128015FE              LD,8     IOCD02            FETCH THE READ 02 IOCD
    14447   03 02A8F    30800259 A            AW,8     BUFINAD           ADD TO IT, THE STARTING BYTE ADDR
    14448   03 02A90    30900258 A            AW,9     BUFLENGT          ADD NO. OF BYTES
    14449   03 02A91    158002F8 A            STD,8    IOCDATA           SET UP IOCD
    14450   03 02A92    128015FC              LD,8     IOCD10            LOAD COMMAND CHAINING SEEK
    14451   03 02A93    158002F6 A            STD,8    IOCSEEK1          STORE THIS DOUBLEWORD
    14452   03 02A94    3500027A A            STW,0    IOCDPNT           SET UP A ONLY 1 IOCD OPERATION
    14453   03 02A95    32802B69              LW,8     EXDTAIO           LOAD AND SAVE
    14454   03 02A96    35800260 A            STW,8    EXSEKAIO              EXPECTED AIO STATUS
    14455   03 02A97    3280025B A            LW,8     BUFAVAIL          SET UP COUNTERS
    14456   03 02A98    55822C2A              STH,8    BUFINCMT,1        SET UP COUNTERS
    14457   03 02A99    55822C2B              STH,8    SECINCMT,1        SET UP COUNTERS
    14458   03 02A9A    33000000 A            MTW,0    0
    14459   03 02A9B    E800000F A            B        *15               GO BACK TO RAMDOM ROUTINE
    14460                                     PAGE
    14461                            *
    14462                            *                 S E N S E
    14463                            *
    14464                            *
    14465                            SENSE ;
    14466   03 02A9C    22800004 A            LI,8     4                 LOAD AND SAVE
    14467   03 02A9D    35800257 A            STW,8    SURORDER          TYPE OF OPERATION
    14468   03 02A9E    12801600              LD,8     IOCD03            FETCH THE SENSE IOCD
    14469   03 02A9F    30800259 A            AW,8     BUFINAD           ADD TO IT, THE STARTING BYTE ADDR
    14470   03 02AA0    20800002 A            AI,8     2                 NOW ADJUST TO A HALF WORD BOUND
    14471   03 02AA1    22707212 A            LI,7     X'7212'           LOAD THE MODEL NO. OF HIGH SPEED RAD
    14472   03 02AA2    75360009 A            STB,3    9,3
    14473   03 02AA3    317002BE A            CW,7     MODELC            TEST MODEL NO.
    14474   03 02AA4    69302AA7              BNE      %+3
    14475   03 02AA5    22700004 A            LI,7     4
    14476   03 02AA6    75760009 A            STB,7    9,3
    14477   03 02AA7    158002F8 A            STD,8    IOCDATA           SET UP IOCD
    14478   03 02AA8    4B803029              AND,8    =X'00FFFFFF'      REMOVE ORDER
    14479   03 02AA9    3580025E A            STW,8    BUF1LOBA          SET LOWER BYTE ADDRESS
    14480   03 02AAA    35800259 A            STW,8    BUFINAD           SET UP BUFFER IN ADDRESS
    14481   03 02AAB    2580007E A            SLS,8   -2                 FIND WORD ADDRESS
    14482   03 02AAC    B5000008 A            STW,0    *8                ZERO SENSE LOCATION
    14483   03 02AAD    B5020008 A            STW,0    *8,1              ZERO SENSE LOCATION
    14484   03 02AAE    327002BF A            LW,7     :DEVADDR          LOAD DEVICE ADDR
    14485   03 02AAF    D5700008 A            STH,7    *8                SET UP BYTE ADDR
    14486   03 02AB0    3280025B A            LW,8     BUFAVAIL          SET UP COUNTERS
    14487   03 02AB1    55822C2B              STH,8    SECINCMT,1        SET UP COUNTERS
    14488   03 02AB2    32802B69              LW,8     EXDTAIO           LOAD AND SAVE
    14489   03 02AB3    35800261 A            STW,8    EXDATAIO          EXPECTED AIO STATUS
    14490   03 02AB4    351002CC A            STW,1    :COMWCNT          SAVE NO. OF WORDS TO BE COMPARED
    14491   03 02AB5    353002EE A            STW,3    :PATID
    14492   03 02AB6    E800000F A            B        *15               GO BACK TO RAMDOM ROUTINE
    14493                                     PAGE
    14494                            *
    14495                            *                 R E A D  1 2
    14496                            *
    14497                            *
    14498                            READ12 ;
    14499   03 02AB7    22800012 A            LI,8     X'12'             LOAD AND SAVE
    14500   03 02AB8    35800257 A            STW,8    SURORDER          TYPE OF ORDER
    14501   03 02AB9    12801602              LD,8     IOCD04            FETCH THE READ 12 IOCD
    14502   03 02ABA    30800259 A            AW,8     BUFINAD           ADD TO, THE STARTING BYTE ADDR
    14503   03 02ABB    30900258 A            AW,9     BUFLENGT          ADD NO. OF BYTES
    14504   03 02ABC    158002F8 A            STD,8    IOCDATA           SET UP IOCD
    14505   03 02ABD    3280025B A            LW,8     BUFAVAIL          SET UP COUNTERS
    14506   03 02ABE    55822C2A              STH,8    BUFINCMT,1        SET UP COUNTERS
    14507   03 02ABF    55822C2B              STH,8    SECINCMT,1        SET UP COUNTERS
    14508   03 02AC0    32802B69              LW,8     EXDTAIO           LOAD AND SAVE
    14509   03 02AC1    35800261 A            STW,8    EXDATAIO              EXPECTED AIO STATUS
    14510   03 02AC2    E800000F A            B        *15               GO BACK TO RANDOM ROUTINE
    14511                                     PAGE
    14512                            *
    14513                            *                 R E A D  0 2
    14514                            *
    14515                            *
    14516                            READ02 ;
    14517   03 02AC3    35200257 A            STW,2    SURORDER          LOAD AND SAVE TYPE OF ORDER
    14518   03 02AC4    12801604              LD,8     IOCD05            FETCH THE READ 02 IOCD
    14519   03 02AC5    30800259 A            AW,8     BUFINAD           ADD TO, THE STARTING BYTE ADDR
    14520   03 02AC6    30900258 A            AW,9     BUFLENGT          ADD NO. OF BYTES
    14521   03 02AC7    158002F8 A            STD,8    IOCDATA           SET UP IOCD
    14522   03 02AC8    3280025B A            LW,8     BUFAVAIL          SET UP COUNTERS
    14523   03 02AC9    55822C2B              STH,8    SECINCMT,1         SET UP COUNTERS
    14524   03 02ACA    55822C2A              STH,8    BUFINCMT,1        SET UP COUNTERS
    14525   03 02ACB    32802B69              LW,8     EXDTAIO           LOAD AND SAVE
    14526   03 02ACC    35800261 A            STW,8    EXDATAIO              EXPECTED AIO STATUS
    14527   03 02ACD    E800000F A            B        *15
    14528                                     PAGE
    14529                            *
    14530                            *                 W R I T E - D C - W R I T E
    14531                            *
    14532                            *
    14533                            WRTDWRT ;
    14534   03 02ACE    35000249 A            STW,0    RDMPATTM          STORE RANDOM PATTERN
    14535   03 02ACF    35100257 A            STW,1    SURORDER          LOAD AND SAVE TYPE OF ORDER
    14536   03 02AD0    12801606              LD,8     IOCD06            FETCH THE WRITE IOCD
    14537   03 02AD1    30800259 A   WRTDWRT1 AW,8     BUFINAD           ADD TO IT, THE STARTING BYTE ADDR
    14538   03 02AD2    158002F8 A            STD,8    IOCDATA           SET UP IOCD'S
    14539   03 02AD3    158002FA A            STD,8    IOCDATA+2         SET UP IOCD'S
    14540   03 02AD4    3260025B A            LW,6     BUFAVAIL          FETCH NO. OF BUFFER AREAS AVAILABLE
    14541   03 02AD5    2560027F A            SCS,6    -1                DIVIDE BY 2
    14542   03 02AD6    32900006 A            LW,9     6                 SAVE BYTE COUNT IN REG 9
    14543   03 02AD7    4B903090              AND,9    L(X'7FFFFFFF')
    14544   03 02AD8    22800000 A            LI,8     0                 ZERO 8
    14545   03 02AD9    378002C1 A            MW,8     BYTCURR           MULTPLY BY NO. OF BYTES/SECTORS
    14546   03 02ADA    669002FB A            AWM,9    IOCDATA+3         SAVE RESULTS IN IOCD DATA 2
    14547   03 02ADB    33000006 A            MTW,0    6                 TEST FOR REMAINDER
    14548   03 02ADC    68102ADE              BGEZ     %+2               IF NONE BRANCH
    14549   03 02ADD    309002C1 A            AW,9     BYTCURR           ADD IN 1 MORE BUFFER
    14550   03 02ADE    669002F9 A            AWM,9    IOCDATA+1         SAVE IN IOCD DATA 1
    14551   03 02ADF    669002FA A            AWM,9    IOCDATA+2         UPDATE BYTE ADDRESS STARTING ADDR
    14552   03 02AE0    32B0308F              LW,11    L(X'80000000')    LOAD DATA CHAINING FLAG
    14553   03 02AE1    53020006 A            MTH,0    6,1               IF MORE THAN 1 BUFFER
    14554   03 02AE2    68302AE4              BEZ      %+2
    14555   03 02AE3    66B002F9 A            AWM,11   IOCDATA+1         SET DATA CHAINING FLAG
    14556   03 02AE4    3280025B A            LW,8     BUFAVAIL          SET UP COUNTERS
    14557   03 02AE5    55822C2B              STH,8    SECINCMT,1        SET UP COUNTERS
    14558   03 02AE6    55822C2A              STH,8    BUFINCMT,1        SET UP COUNTERS
    14559   03 02AE7    E800000F A            B        *15
    14560                                     PAGE
    14561                            *
    14562                            *                 R E A D - D C - R E A D
    14563                            *
    14564                            *
    14565                            REDDRED ;
    14566   03 02AE8    12801608              LD,8     IOCD07            FETCH THE READ IOCD
    14567   03 02AE9    35200257 A            STW,2    SURORDER          SET READ FLAG
    14568   03 02AEA    68002AD1              B        WRTDWRT1
    14569                                     PAGE
    14570   03 02AEB    00000001 A   TST2PAR  DATA     1                 SURFACE TEST
    14571   03 02AEC    00000001 A            DATA     1                 WRITE/READ COMMAND
    14572   03 02AED    00000000 A            DATA     0                 NO. OF RETRIES ON ERROR
    14573                                     PAGE
    14574                            *
    14575                            *                 *** U T I L I T Y  T E S T ***
    14576                            *
    14577                            *                 *** T S T 3 , D 1 , D 2 , D 3 ***
    14578                            *
    14579                            *                 THIS DIRECTIVE ALLOWS THE USER TO SELECT THE UTILITY
    14580                            *                 TESTS BY SPECIFYING IN PARAMETER 1 THE DESIRED TEST.
    14581                            *                 PARAMETER 2,3, AND 4 APPLY TO THE SPECIFIC UTILITY
    14582                            *                 TESTS.
    14583                            *
    14584                            *                 TEST VARIATIONS CAN BE SPECIFIED WITH THE 'D A T A'
    14585                            *                 AND 'S E E K' DIRECTIVES TO SELECT THE DATA PATTERN
    14586                            *                 AND THE SURFACE AREA RESPECTIVELY.
    14587                            *
    14588                            *                 THE UTILITY TEST ROUTINES ARE DESCRIBED BELOW
    14589                            *                 ALONG WITH THE PARAMETER VALUE OF (D1).
    14590                            *                 UNLESS SPECIFICALLY INDICATED IN THE DESCRIPTION
    14591                            *                 OF THE SUBTESTS, PARAMETERS (D2), (D3), AND (D4)
    14592                            *                 ARE NOT APPLICABLE.
    14593                            *
    14594                            *                    PARAMETER D1 (DI =1)
    14595                            *                    D1 = 1  SURFACE
    14596                            *
    14597                            *                    THIS TEST DIRECTIVE WILL PERFORM A SURFACE TEST
    14598                            *                    OF THE RECORDING SURFACE OF THE RAD STORAGE UNIT.
    14599                            *                    THIS TEST WILL BE EXECUTED FOR ALL STORAGE UNITS
    14600                            *                    SPECIFIED BY THE 'SYST' DIRECTIVE.
    14601                            *
    14602                            *                    TEST VARIATION
    14603                            *
    14604                            *                    THE 'DATA' AND 'SEEK' DIRECTIVE CAN BE SELECTED
    14605                            *                    TO ALTER THE PREDEFINED PATTERN AND SURFACE AREA.
    14606                            *
    14607                            *                    ANYTIME A 'SYST','SEEK' OR A 'DATA' DIRECTIVE
    14608                            *                    IS EXECUTED A 'WRITE AND READ' (D2=0) OR A
    14609                            *                    'WRITE'(D2=1), MUST BE EXECUTED BEFORE A
    14610                            *                    'READ' (D2=2), OR A 'CHECKWRITE' (D2=4) MAY
    14611                            *                    BE EXECUTED.
    14612                            *
    14613                            *                    PARAMETER D2    (0=<D2=<4)
    14614                            *
    14615                            *                    D2 = 0  WRITE AND READ (VERIFY DATA)
    14616                            *
    14617                            *                    D2 = 1  WRITE ONLY
    14618                            *
    14619                            *                    D2 = 2  READ ONLY (VERIFY DATA)
    14620                            *
    14621                            *                    D2 = 3  READ ONLY (NO DATA VERIFICATION)
    14622                            *
    14623                            *                    D2 = 4  CHECKWRITE
    14624                            *
    14625                            *
    14626                            *                    PARAMETER D3   (0=<D2 NO UPPER LIMIT)
    14627                            *
    14628                            *                    D3 =    NUMBER OF RETRIES ON AN ERROR BEFORE
    14629                            *                            GOING ON TO NEXT PASS.
    14630                            *
    14631                            *                    PARAMETER D4   (0=<D4 NO UPPER LIMIT)
    14632                            *
    14633                            *                    D4 = NO. OF READS AFTER A WRITE (D2 = 0 ONLY)
    14634                            *
    14635                            *
    14636                            *
    14637                            *
    14638         03 02AEE           TST3P2T1 SET      %
    14639   03 02AEE    6AF02B3B              BAL,15   WRTRED            D2 = WRITE AND READ TEST
    14640   03 02AEF    6AF02B2E              BAL,15   WRTONLY           D2 = 1 WRITE ONLY
    14641   03 02AF0    6AF02B32              BAL,15   REDONLY            D2 = 2 READ ONLY (VERIFY DATA)
    14642   03 02AF1    6AF02B35              BAL,15   READONLY          D2=3 READ ONLY (NO VERIFY DATA)
    14643   03 02AF2    6AF02B38              BAL,15   CHKWRITE          D2 = 4 CHECKWRITE
    14644         03 02AF2           TST3P2T2 SET      %-1
    14645         03 02AF3           TST3P3T1 SET      %
    14646                            *                                   INSERT PARAMETER 3 INFORMATION
    14647         03 02AF3           TST3P3T2 SET      %
    14648                            *
    14649                            *
    14650         03 02AF3           TST3P4T1 SET      %
    14651                            *                                   INSERT PARAMETER 4 INFORMATION
    14652                            *
    14653         03 02AF3           TST3P4T2 SET      %
    14654                            *
    14655                            *
    14656                            TST3 ;
    14657   03 02AF3    22E00201 A            LI,14    :P1               LOAD ADDRESS OF PARAMETERS
    14658   03 02AF4    02200040 A            LCI      4                     LOAD
    14659   03 02AF5    2A802930              LM,8     DATAP1                AND
    14660   03 02AF6    31100202 A            CW,1     :P2               CHECK FOR A WRITE
    14661   03 02AF7    69102AFA              BL       %+3               IF NOT SKIP UPDATING DATA AREA
    14662   03 02AF8    02200040 A            LCI      4                     SAVE
    14663   03 02AF9    2B8015F0              STM,8    TST3PAT               PATTERN TYPE
    14664   03 02AFA    353002D5 A            STW,3    ITHTEST           TST3 ID
    14665                            TST32 ;
    14666   03 02AFB    351002DA A            STW,1    :PASSCUR          INIT. PASS COUNT
    14667   03 02AFC    312015F0              CW,2     TST3PAT           TEST FOR RANDOM PATTERN
    14668   03 02AFD    69302B01              BNE      %+4               IF NOT RANDOM SKIP
    14669   03 02AFE    31100202 A            CW,1     :P2               CHECK FOR WRITE
    14670   03 02AFF    69102B01              BL       %+2               IF NOT SKIP
    14671   03 02B00    337015F1              MTW,7    TST3PAT+1         CHANGE RANDOM PATTER
    14672   03 02B01    6AF02B08              BAL,15   TST3RAND          GO TO DO ULITITY TEST
    14673   03 02B02    6AF029C5              BAL,15   :PASSC            TEST PASS AND PRINT
    14674   03 02B03    68002AFC              B        TST32+1
    14675   03 02B04    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    14676   03 02B05    2E002B05              WAIT     %                 SS3 - OFF SS1 - UNK (HALT AFTER TEST
    14677   03 02B06    68002AFB              B        TST32
    14678   03 02B07    E8000214 A            B        *:MONITOR         SS3 - ON  SS1 - OFF (RTN TO MONITOR)
    14679                            *
    14680                            *
    14681                            *
    14682   03 02B08    15E002F4 A   TST3RAND STD,14   TST3PARM          SAVE PARAMETER POINTER & RTN ADDR
    14683   03 02B09    22000000 A            LI,0     0
    14684   03 02B0A    3500158B              STW,0    CCDIOERR          ZERO DIO ERROR FLAG
    14685   03 02B0B    3500019B A            STW,0    MSGADR
    14686   03 02B0C    350002C9 A            STW,0    #MSGLEVL
    14687   03 02B0D    3510030A A            STW,1    :ERPARNO          SET P1 IS IN ERROR
    14688   03 02B0E    B11002F4 A            CW,1     *TST3PARM
    14689   03 02B0F    69302B1E              BNE      SURPERR
    14690                            *
    14691                            *
    14692   03 02B10    3520030A A            STW,2    :ERPARNO          SET P2 IN ERROR
    14693   03 02B11    22600000 A            LI,6     0                 LOAD LOWER LIMIT OF P2
    14694   03 02B12    22700004 A            LI,7     TST3P2T2-TST3P2T1 LOAD UPPER LIMIT OF P2
    14695   03 02B13    B96202F4 A            CLR,6    *TST3PARM,1       TEST TO SEE LIMITS AREN'T EXCEEDED
    14696   03 02B14    69602B1E              BCS,6    SURPERR           IF THEY ARE BAD RTN
    14697   03 02B15    3560030A A            STW,6    :ERPARNO
    14698   03 02B16    3240022F A            LW,4     :MEMLAST
    14699   03 02B17    354001CE A            STW,4    DIOLIST
    14700   03 02B18    22800001 A            LI,8     1
    14701   03 02B19    ED801561              WD,8     *DIOAD3
    14702   03 02B1A    6AF00FDB              BAL,15   CC00
    14703   03 02B1B    6AF02B21              BAL,15   SURFACE
    14704   03 02B1C    12E002F4 A            LD,14    TST3PARM          RESTORE REG 14 & 15
    14705   03 02B1D    E80002F5 A            B        *TST3EXIT         RETURN TO CALLING ROUTINE
    14706                            *
    14707                            *
    14708                            *
    14709   03 02B1E    EAF00229 A   SURPERR  BAL,15   *:ERRPARM         GO AND REPORT BAD PARAMETER
    14710   03 02B1F    00000326              DATA     :TST3DIR
    14711   03 02B20    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
    14712                            *
    14713                            *                 S U R F A C E  T E S T  ( P 1 = 1 )
    14714                            *
    14715   03 02B21    35F00255 A   SURFACE  STW,15   SURRTN            SAVE RETURN ADDRESS
    14716   03 02B22    224FFFFF A            LI,4     -1                INITIALIZE DDT
    14717   03 02B23    35400283 A            STW,4    #DDTP                 POINTER TO -1
    14718   03 02B24    B26402F4 A            LW,6     *TST3PARM,2       LOAD AND SAVE
    14719   03 02B25    35600274 A            STW,6    MAXERR                MAXIMUM NO. OF RETRIES ON ERROR
    14720   03 02B26    6AF02D46     SURFACE2 BAL,15   #DDTICMT          UPDATE DDT POINTER
    14721   03 02B27    E8000255 A            B        *SURRTN           IF ALL DEVICES TEST RETURN
    14722   03 02B28    B25202F4 A            LW,5     *TST3PARM,1       LOAD CONTENTS OF P2 INTO REG 5
    14723   03 02B29    670A2AEE              EXU      TST3P2T1,5        BRANCH TO REQUESTED TEST
    14724   03 02B2A    68002B26              B        SURFACE2          GO TEST NEXT DEVICE
    14725                            *
    14726   03 02B2B    6AF00AA5     NOPAT    BAL,15   MSGOUT
    14727   03 02B2C    0000220D              DATA     BA(NOPATTN)
    14728   03 02B2D    E8000255 A            B        *SURRTN           EXIT FROM THE SURFACE TEST
    14729                            *
    14730                            *
    14731                            *
    14732                            *
    14733                            *
    14734                            *                 W R I T E  O N L Y
    14735                            *
    14736   03 02B2E    22D00000 A   WRTONLY  LI,13    0                 NO READ VERIFICATION
    14737   03 02B2F    22E00001 A            LI,14    X'01'             WRITE ORDER
    14738   03 02B30    351002DC A            STW,1    DONTREAD          SET DON'T READ FLAG
    14739   03 02B31    68002B44              B        SURPAT            GO TO SURFACE TEST
    14740                            *
    14741                            *                 R E A D  O N L Y  ( V E R I F Y  D A T A )
    14742                            *
    14743   03 02B32    22D00001 A   REDONLY  LI,13    1                 READ VERIFICATION OF DATA
    14744   03 02B33    22E00002 A            LI,14    X'02'             READ ORDER
    14745   03 02B34    68002B44              B        SURPAT            GO TO SURFACE TEST
    14746                            *
    14747                            *                 R E A D  O N L Y   ( N O  D A T A  V E R I F I C A T )
    14748                            *
    14749   03 02B35    22D00000 A   READONLY LI,13    0                 NO READ VERIFICATION
    14750   03 02B36    22E00002 A            LI,14    X'02'             READ ORDER
    14751   03 02B37    68002B44              B        SURPAT            GO TO SURFACE TEST
    14752                            *
    14753                            *                 C H E C K W R I T E
    14754                            *
    14755   03 02B38    22D00001 A   CHKWRITE LI,13    1                 READ VERIFICATION OF DATA
    14756   03 02B39    22E00005 A            LI,14    X'05'             CHECKWRITE ORDER
    14757   03 02B3A    68002B44              B        SURPAT            GO TO SURFACE TEST
    14758                            *
    14759                            *                 W R I T E / R E A D  T E S T
    14760                            *
    14761                            WRTRED ;
    14762   03 02B3B    6AF02B2E              BAL,15   WRTONLY           GO DO A WRITE
    14763   03 02B3C    32E00204 A            LW,14    :P4               LOAD READ LOOP COUNT
    14764   03 02B3D    35E0025A A            STW,14   READLOOP          SAVE READ LOOP COUNT
    14765                            WRTRED1 ;
    14766   03 02B3E    6AF02B32              BAL,15   REDONLY           GO DO A READ
    14767   03 02B3F    68002B41              B        %+2
    14768   03 02B40    68002B2B              B        NOPAT
    14769   03 02B41    33F0025A A            MTW,-1   READLOOP          UPDATE READ LOOP COUNTER
    14770   03 02B42    68202B26              BLEZ     SURFACE2          EXIT
    14771   03 02B43    68002B3E              B        WRTRED1           LOOP
    14772                                     PAGE
    14773                            *
    14774                            *
    14775                            *                 S U R F A C E  T E S T I N G
    14776                            *
    14777                            *
    14778                            *
    14779                            *                 THIS ROUTINE HANDLES ALL I/O OPERATIONS TO AND
    14780                            *                 FROM THE DEVICE DURING THE SURFACE TEST.
    14781   03 02B44    35F00279 A   SURPAT   STW,15   SURTN1            SAVE RETURN ADDRESS
    14782   03 02B45    35E00257 A            STW,14   SURORDER          SAVE ORDER IN BYTE 3
    14783   03 02B46    75E015F6              STB,14   OPERIOCD          SAVE BYTE IN IOCD
    14784   03 02B47    35D00277 A            STW,13   READVERY          SAVE READ VERIFY FLAG VER =1
    14785   03 02B48    33000277 A            MTW,0    READVERY          GO TEST THE READ VERIFY FLAG
    14786   03 02B49    68302B4C              BEZ      SURPAT01          IF NO READ VERIFICATION OR WRITE BNH
    14787   03 02B4A    330002DC A            MTW,0    DONTREAD          IF WRITE NOT DONE
    14788   03 02B4B    E9320279 A            BNEZ     *SURTN1,1            RETURN IN ERROR
    14789                            *
    14790                            *
    14791   03 02B4C    02200040 A   SURPAT01 LCI      4
    14792   03 02B4D    2A6015F0              LM,6     TST3PAT
    14793   03 02B4E    2B6002EE A            STM,6    :PATID
    14794                            *
    14795                            *
    14796                            *
    14797                            *
    14798                            *
    14799                            *
    14800   03 02B4F    6AF02D0D              BAL,15   MEMORY            GO CALC MEMORY SIZE
    14801   03 02B50    E80002F5 A            B        *TST3EXIT         RTN HERE IF NO MEMORY IS AVAILABLE
    14802   03 02B51    6AF02B54              BAL,15   BUILDIOC          GO SET UP PARAMETERS
    14803   03 02B52    6AF02B6A              BAL,15   IOCONT            GO DO I/O
    14804   03 02B53    E8000279 A            B        *SURTN1           GOOD RETURN
    14805                            *
    14806                            *
    14807                            *
    14808                            BUILDIOC ;
    14809   03 02B54    326002C1 A            LW,6     BYTCURR           FETCH CURRENT NO. OF BYTES
    14810   03 02B55    2560007E A            SLS,6    -2                FIND NO OF WORDS/SECTOR
    14811   03 02B56    356002CC A            STW,6    :COMWCNT          SAVE PATTERN LENGTH
    14812   03 02B57    32602B68              LW,6     EXSKAIO           LOAD EXPECTED SEEK STATUS
    14813   03 02B58    35600260 A            STW,6    EXSEKAIO          EXPECTED STATUS
    14814   03 02B59    32602B69              LW,6     EXDTAIO           LOAD AND SAVE
    14815   03 02B5A    35600261 A            STW,6    EXDATAIO               EXPECTED DATA AIO STATUS
    14816   03 02B5B    32603092              LW,6     L(X'FFFFC001')    LOAD RECEIVED STATUS MASK
    14817   03 02B5C    3560025F A            STW,6    MASK              SET UP MASK STORAGE
    14818   03 02B5D    126015F4              LD,6     SEEKIOCD          LOAD SEEK IOCD
    14819   03 02B5E    156002F6 A            STD,6    IOCSEEK1             SEEK IOCD
    14820   03 02B5F    126015F6              LD,6     OPERIOCD          LOAD DATA IOCD
    14821   03 02B60    30600259 A            AW,6     BUFINAD           ADD BUFFER STARTING BYTE ADDR
    14822   03 02B61    307002C1 A            AW,7     BYTCURR           ADD BYTE COUNT
    14823   03 02B62    156002F8 A            STD,6    IOCDATA           SAVE DATA IOCD
    14824   03 02B63    55122C2A              STH,1    BUFINCMT,1        LOAD BUFFER INCREMENTING COUNT
    14825   03 02B64    55122C2B              STH,1    SECINCMT,1        LOAD SECTOR INCREMENT COUNT
    14826   03 02B65    3510027A A            STW,1    IOCDPNT           SET AS A TWO IOCD OPERATION
    14827   03 02B66    35100249 A            STW,1    RDMPATTM          STORE WORD
    14828   03 02B67    E800000F A            B        *15
    14829                            *
    14830                            *
    14831   03 02B68    00100000 A   EXSKAIO  DATA     X'00100000'
    14832   03 02B69    00100000 A   EXDTAIO  DATA     X'00100000'
    14833                                     PAGE
    14834                            *
    14835                            *
    14836                            *
    14837   03 02B6A    35F0026F A   IOCONT   STW,15   WRITTEN           SAVE RETURN ADDRESS
    14838   03 02B6B    22B00000 A            LI,11    0
    14839   03 02B6C    35B00192 A            STW,11   IOTRAP
    14840                            IOCONT1 ;
    14841   03 02B6D    22C00000 A            LI,12    0
    14842   03 02B6E    22D029DF              LI,13    UNEXPTI
    14843   03 02B6F    15C015CA              STD,12   TRAPEXP
    14844   03 02B70    35D015A0              STW,13   T:HANEXIT
    14845   03 02B71    6AF00FFC              BAL,15   T:SETUP
    14846   03 02B72    32F002C2 A            LW,15    CURRSEEK
    14847   03 02B73    35F00193 A            STW,15   CURRSKAD
    14848   03 02B74    22B00000 A            LI,11    0                 INITIALIZE THE FOLLOWING:
    14849   03 02B75    35B0027B A            STW,11   IOERAIO1
    14850   03 02B76    35B0027C A            STW,11   IOERAIO2
    14851   03 02B77    35B0027D A            STW,11   IOERSIO1
    14852   03 02B78    35B0027E A            STW,11   IOERSIO2
    14853   03 02B79    35B0159C              STW,11   T:OCCUR           RESET  TRAP OCCURRED FLAG
    14854   03 02B7A    35B00275 A            STW,11   COMPERR
    14855   03 02B7B    351002CA A            STW,1    :COMFLAG          SET THE DON'T PRINT ON COMPARE FLAG
    14856   03 02B7C    35100273 A            STW,1    ENDOPER           INTIIALIZE END OF OPERATION FLAG
    14857   03 02B7D    32802CDF              LW,8     XPSDSEEK          LOAD AND
    14858   03 02B7E    3580005C A            STW,8    X'5C'                 STORE XPSD FOR I/O INTERRUPT
    14859   03 02B7F    32802CE1              LW,8     XPSDCAL1          LOAD AND SAVE XPXD FOR
    14860   03 02B80    35800048 A            STW,8    X'48'             CALL 1 INTERRUPT
    14861   03 02B81    32802CE2              LW,8     XPSDCAL2          LOAD AND SAVE XPSD FOR
    14862   03 02B82    35800049 A            STW,8    X'49'             FOR CALL 2 INTERRUPT
    14863   03 02B83    32802CE3              LW,8     XPSDCAL3          LOAD A XPSD FOR THE CALL 3
    14864   03 02B84    3580004A A            STW,8    X'4A'             SET UP THE LOCATION
    14865   03 02B85    3280025F A            LW,8     MASK              LOAD RECEIVED STATUS MASK
    14866   03 02B86    35802C5C              STW,8    SURMASK-1         SET UP RECEIVED STATUS MASK
    14867   03 02B87    32800260 A            LW,8     EXSEKAIO          SET UP THE SEEK AIO STATUS
    14868   03 02B88    35802C5D              STW,8    SURMASK
    14869   03 02B89    4B803055              AND,8    =X'FFFFE000'
    14870   03 02B8A    20800006 A            AI,8     6
    14871   03 02B8B    35802DB9              STW,8    TST3LST2
    14872   03 02B8C    351015AB              STW,1    GOTINTR
    14873   03 02B8D    328002BF A            LW,8     :DEVADDR          SET UP THE SIO WITH A DEV ADDR
    14874   03 02B8E    55822C28              STH,8    SURSTART,1
    14875                            *
    14876   03 02B8F    325002C2 A            LW,5     CURRSEEK          LOAD CURRENT SEEK ADDR
    14877   03 02B90    6D000032 A            WD,0     X'32'             INHIBIT INTERRUPTS
    14878   03 02B91    35100270 A            STW,1    FAKEINTR          STORE A 1 IN FAKE AN INTERRUPT
    14879                            *
    14880   03 02B92    6E000000 A            AIO,0    0                 CLEAR ANY PENDING INTERRUPT
    14881   03 02B93    6E000000 A            AIO,0    0                 IN CASE OF A SECOND INTERRUPT PENDING
    14882   03 02B94    22A00020 A            LI,10    X'20'             LOAD I/O INTERRUPT BIT
    14883   03 02B95    6DA01500 A            WD,10    X'1500'           DISABLE I/O INTERRUPTS
    14884   03 02B96    6DA01100 A            WD,10    X'1100'           DISARM I/O INTERRUPTS
    14885   03 02B97    6DA01200 A            WD,10    X'1200'           ARM AND ENAABLE I/O INTERRUPTS
    14886                            *
    14887   03 02B98    3270025B A            LW,7     BUFAVAIL          LOAD NO. OF BUFFERS AVAILABLE
    14888   03 02B99    58722C2A              SH,7     BUFCOUNT,1        SUBTRACT BUFFER COUNT
    14889   03 02B9A    3570025C A            STW,7    BUFM1AVL          SAVE AS BUFFERS AVAILABLE MIMUS 1
    14890   03 02B9B    327002C3 A            LW,7     SURFCEND          LOAD END ADDRESS OF SECTORS
    14891   03 02B9C    58722C2B              SH,7     SECTCOUT,1        SUBTRACT SECTOR COUNT
    14892   03 02B9D    35700263 A            STW,7     SURM1END         SAVE AS END ADDRESS MIMUS 1
    14893   03 02B9E    3240025B A            LW,4     BUFAVAIL
    14894   03 02B9F    31100257 A            CW,1     SURORDER          IS THIS A WRITE
    14895   03 02BA0    69402BB1              BCS,4    SURPAT23
    14896   03 02BA1    22400000 A            LI,4     0                 ZERO 'BUFWORK'
    14897                            *
    14898                            *
    14899                            *
    14900                            *
    14901                            SURPAT07 ;
    14902   03 02BA2    22EC0000 A            LI,14    X'C0000'          LOAD DELAY COUNT
    14903   03 02BA3    35E00278 A            STW,14   SURDELAY          SAVE DELAY COUNT
    14904                            *
    14905                            *
    14906   03 02BA4    6D000022 A   SURPAT12 WD,0     X'22'             RESET INHIBIT INTERRUPTS
    14907                            *
    14908   03 02BA5    33000273 A            MTW,0    ENDOPER           TEST FOR END OF OPERATION
    14909   03 02BA6    68302BAA              BEZ      SURPAT25             IF END OF IO OPER SKIP CALL
    14910                            *
    14911   03 02BA7    33000270 A            MTW,0    FAKEINTR          TEST FAKE A INTERRUPT FLAG
    14912   03 02BA8    68302BAA              BEZ      SURPAT25                IF ZERO SKIP CALL
    14913                            *
    14914   03 02BA9    06800000 A            CAL3,SURINTC2-SURINT 0       GO START IO
    14915                            *
    14916   03 02BAA    20400000 A   SURPAT25 AI,4     0                 TEST 'BUFWORK' FOR ZERO
    14917   03 02BAB    69202BB1              BGZ      SURPAT23          IF NOT ZERO GO BUILD OR COMPARE BUF
    14918                            *
    14919   03 02BAC    33000273 A            MTW,0    ENDOPER           TEST FOR END OF OPERATION
    14920   03 02BAD    68302BD0              BEZ      SURPAT24          IF END OF I/O OPER EXIT
    14921                            *
    14922   03 02BAE    33100278 A            MTW,1    SURDELAY          TEST FOR END OF DELAY
    14923   03 02BAF    68302BD2              BEZ      SURPAT20          IF DELAY UP EXIT
    14924   03 02BB0    68002BA4              B        SURPAT12
    14925                            *
    14926                            *
    14927                            SURPAT23 ;
    14928   03 02BB1    351002CA A            STW,1    :COMFLAG          SET PRINT INHIBIT FLAG
    14929   03 02BB2    32F00259 A            LW,15    BUFINAD           LOAD ADDR PNT TO IOCD DATA PAT
    14930   03 02BB3    25F0007E A            SLS,15   -2                CONVERT TO WORD ADDRESS
    14931   03 02BB4    35F002CB A            STW,15   :COMBFRB          SAVE BEGINNING ADDR OF PATTERN
    14932   03 02BB5    31100257 A            CW,1     SURORDER          TEST FOR A WRITE
    14933   03 02BB6    69402BBE              BCS,4    PATTWRT           IF A WRITE DO A WRITE THING
    14934                            *
    14935                            *
    14936                            *
    14937                            *
    14938                            PATREAD1   ;
    14939   03 02BB7    33000277 A            MTW,0    READVERY          IF NO READ VERF BRANCH
    14940   03 02BB8    68302BC3              BEZ      PATSETUP          SET UP FOR NEXT PAT
    14941   03 02BB9    6AF02EE6              BAL,15   :COMPARE          GO DO THE COMPARE THING
    14942   03 02BBA    68002BC3              B        PATSETUP          GOOD RETURN
    14943   03 02BBB    05002CB9              CAL2,0   CPERROR
    14944   03 02BBC    68002BA2              B        SURPAT07          RTN TO LOOP
    14945   03 02BBD    68002BA2              B        SURPAT07          RTN TO LOOP
    14946                            *
    14947                            *
    14948   03 02BBE    33000273 A   PATTWRT  MTW,0    ENDOPER           TEST END OPER FLAG
    14949   03 02BBF    68302BD2              BEZ      SURPAT20               IF ZERO EXIT
    14950   03 02BC0    6AF02EEB              BAL,15   :PATTERN          BUILD A PATTERN
    14951   03 02BC1    22F00000 A            LI,15    0
    14952   03 02BC2    35F00275 A            STW,15   COMPERR
    14953                            *
    14954                            PATSETUP ;
    14955   03 02BC3    204FFFFF A            AI,4     -1                DECREMENT NO. OF AVAILABLE BUFFERS
    14956   03 02BC4    32F00259 A            LW,15    BUFINAD           LOAD ADDR PNT TO IOCD DATA PAT BE BT
    14957   03 02BC5    30F002C1 A            AW,15    BYTCURR           UPDATE DATA PATTERN POINTER
    14958   03 02BC6    31F0025D A            CW,15    MEMLSTBA          IF END OF DATA
    14959   03 02BC7    69102BC9              BL       %+2                   PATTERN AREA
    14960   03 02BC8    32F0025E A            LW,15    BUF1LOBA          LOAD BEGAINNING ADDR OF DATA PATS
    14961   03 02BC9    35F00259 A            STW,15   BUFINAD               SAVE AS BYTE ADDRESS
    14962   03 02BCA    33100193 A            MTW,1    CURRSKAD          UPDATE SECTOR ADDR
    14963   03 02BCB    33000249 A            MTW,0    RDMPATTM
    14964   03 02BCC    69302BA2              BNEZ     SURPAT07          BR. NOT EQUAL ZERO
    14965   03 02BCD    20400000 A            AI,4     0
    14966   03 02BCE    69202BB1              BGZ      SURPAT23          BR. GREATER THAN ZERO
    14967   03 02BCF    68002BA2              B        SURPAT07
    14968                            *
    14969                            *
    14970                            *
    14971                            *
    14972                            *
    14973   03 02BD0    20400000 A   SURPAT24 AI,4     0                 FOR LAST EECTOR IF ERROR WAS
    14974   03 02BD1    69202BB1              BGZ       SURPAT23             DETECTED
    14975   03 02BD2    22A00020 A   SURPAT20 LI,10    X'20'             LOAD I/O INTERRUPT BIT
    14976   03 02BD3    6DA01500 A            WD,10    X'1500'           DISABLE
    14977   03 02BD4    6DA01100 A            WD,10    X'1100'               AND DISARM I/O INTERRUPTS
    14978   03 02BD5    6D000022 A            WD,0     X'22'                 RESET INHIBIT INTERRUPTS
    14979   03 02BD6    32600273 A            LW,6     ENDOPER           FETCH END OF OPERATION FLAG
    14980   03 02BD7    69302BDC              BNEZ     SURPAT27          IF NOT ZERO ERROR
    14981   03 02BD8    31100257 A            CW,1     SURORDER          IS IT A WRITE
    14982   03 02BD9    E930026F A            BNE      *WRITTEN          RETURN TO CALLING CODE
    14983   03 02BDA    356002DC A            STW,6    DONTREAD          RESET THE DON'T READ FLAG
    14984   03 02BDB    E800026F A            B        *WRITTEN          RETURN TO CALLING CODE
    14985                            *
    14986                            *
    14987                            SURPAT27 ;
    14988   03 02BDC    22A00000 A            LI,10    0
    14989   03 02BDD    35A002CA A            STW,10   :COMFLAG          RESET COMPARE PRINT INHIBIT FLAG
    14990   03 02BDE    32AC2BE8              LW,10    ERRWORD,6         LOAD ADDRESS OF MSG TO BE PRINTED
    14991   03 02BDF    6AF02D5E              BAL,15   #MSGNOSP          OUTPUT MESSAGE WITHOUT UP SPACING
    14992   03 02BE0    E800026F A            B        *WRITTEN          RETURN IF NOT TEST LEVEL ZERO
    14993   03 02BE1    35A02BE3              STW,10   %+2
    14994   03 02BE2    6AF00AA5              BAL,15   MSGOUT
    14995   03 02BE3    00000000 A            DATA     0
    14996   03 02BE4    6AF02E2E              BAL,15   :TIO
    14997   03 02BE5    FFFFC000 A            DATA     X'FFFFC000'
    14998   03 02BE6    10000000 A            DATA     X'10000000'
    14999   03 02BE7    E800026F A            B        *WRITTEN
    15000   03 02BE8    E800026F A            B        *WRITTEN
    15001         03 02BE8           ERRWORD  SET      %-1
    15002   03 02BE9    000021D7              DATA     BA(ERRNOINT)
    15003   03 02BEA    000021DD              DATA     BA(ERRCBR)
    15004                                     PAGE
    15005                            *
    15006                            *
    15007                                     BOUND    8
    15008   03 02BEC    00000000 A   SURINT00 DATA     0,0
            03 02BED    00000000 A
    15009   03 02BEE    00002BF0              DATA     SURINT60,7**24
            03 02BEF    07000000 A
    15010   03 02BF0    12C02BEC     SURINT60 LD,12    SURINT00          FETCH SYSTEM ENVIORNMENT
    15011   03 02BF1    15C02C16              STD,12   SURINT01          SO THAT RETURN IS POSSIBLE
    15012   03 02BF2    6ED00000 A            AIO,13   0                 ACKNOWLEDGE IOCD 1 INTERRUPT
    15013   03 02BF3    05002C51              CAL2,0   SURINT04          GO TEST AIO STATUS
    15014                            *
    15015   03 02BF4    68002BF9              B        SURINT62          STATUS WAS OK
    15016   03 02BF5    0400027B A            CAL1,0   IOERAIO1          EROR, GO ATTEMPT RECOVERY
    15017   03 02BF6    05002C62              CAL2,0   SURINT09
    15018   03 02BF7    68002C04              B        SURINT65          STATUS WAS OK
    15019   03 02BF8    6AF00D5B              BAL,15   TILT              SHOULD NEVER GET HERE
    15020                            *
    15021                            *
    15022                            *
    15023                            *
    15024   03 02BF9    33000270 A   SURINT62 MTW,0    FAKEINTR          IF FAKE INTERRUPT IS SET
    15025   03 02BFA    69302C04              BNEZ     SURINT65          GO SEEK AGAIN
    15026   03 02BFB    2200017C A   SURINT63 LI,0     DA(IOCDATA)       LOAD DW ADDR OF SECOND IOCD
    15027   03 02BFC    22C00000 A            LI,12    0                 LOAD A ZERO
    15028   03 02BFD    35C0027B A            STW,12   IOERAIO1          ZERO I/O AIO 1 ERROR COUNT
    15029   03 02BFE    22D02C26              LI,13    SURINT02          SET UP
    15030   03 02BFF    55D22C1B              STH,13   SWITCH,1          BRANCH INSTRUCHTION
    15031   03 02C00    3530027F A            STW,3    IOCPASS2          SET UP IOCD 2 PASS COUNT
    15032   03 02C01    32C02CE0              LW,12    XPSDATA           LOAD XPSD FOR SECOND IOCD
    15033   03 02C02    32D00261 A            LW,13    EXDATAIO          LOAD EXPECTED AIO STATUS
    15034   03 02C03    68002C0C              B        SURINT64          GO SAVE RESULTS
    15035                            *
    15036   03 02C04    32C02CE0     SURINT65 LW,12    XPSDATA           LOAD XPSD FOR SECOND IOCD
    15037   03 02C05    3300027A A            MTW,0    IOCDPNT           TEST TO SEE HOW MANY IOCD THERE ARE
    15038   03 02C06    68302C08              BEZ      %+2               IF MORE THAN 1 DON'T BRANCH
    15039   03 02C07    32C02CDF              LW,12    XPSDSEEK          LOAD XPSD FOR IOCD 1
    15040   03 02C08    22D02C29              LI,13    SURSTART+1        BRANCH INSTRUCTION
    15041   03 02C09    55D22C1B              STH,13   SWITCH,1          BRANCH INSTRUCTION
    15042   03 02C0A    32D00260 A            LW,13    EXSEKAIO          LOAD STATUS FOR AIO
    15043   03 02C0B    2200017B A            LI,0     DA(IOCSEEK1)      LOAD DW ADDRESS OF FIRST IOCD
    15044                            *
    15045                            *
    15046   03 02C0C    35C0005C A   SURINT64 STW,12   X'5C'             SAVE XPSD
    15047   03 02C0D    35D02C5D              STW,13   SURMASK           SAVE THE EXPECTED AIO STATUS
    15048   03 02C0E    6AC02CEE              BAL,12   BUILDSK            BUILD NEW SEEK ADDR
    15049   03 02C0F    CCC002BF A            SIO,12   *:DEVADDR         DO I/O TO GET THINGS STARTED
    15050   03 02C10    74062C43              STCF     SURINT31,3        SAVE CONDITION CODES
    15051   03 02C11    22C00000 A   SURINT25 LI,12    0                 LOAD ZERO
    15052   03 02C12    35C00271 A            STW,12   BUFM1FLG          ZERO THE BUFFER AVAILABLE  -1 FLAG
    15053   03 02C13    35C00270 A            STW,12   FAKEINTR          SET FAKE AN INTERRUPT FLAG
    15054   03 02C14    68002C2C              B        SECTCOUT+1        GO CHECK I/O
    15055                                     PAGE
    15056                            *
    15057                            *
    15058                            *
    15059                                     BOUND    8
    15060   03 02C16    00000000 A   SURINT01 DATA     0,0
            03 02C17    00000000 A
    15061   03 02C18    00002C1A              DATA     %+2,7**24
            03 02C19    07000000 A
    15062                            *
    15063                            *
    15064                            SURINT ;
    15065   03 02C1A    6ED00000 A            AIO,13   0                 ACKNOWLEDGE I/O INTERRUPT
    15066   03 02C1B    68C00000 A   SWITCH   BCR,12   0                 BRANCH IF NORMAL INTERRUPT
    15067   03 02C1C    05022C51              CAL2,0   SURINT04,1        GO TEST AIO STATUS
    15068                            *
    15069   03 02C1D    68002C2A              B        BUFCOUNT          RTN HERE IF NO ERROR
    15070                            *
    15071   03 02C1E    0410027C A            CAL1,1   IOERAIO2          GO ATTEMPT ERROR RECOVERY
    15072   03 02C1F    05002C62              CAL2,0   SURINT09
    15073   03 02C20    68002C04              B        SURINT65          GO DO IOCD 1
    15074   03 02C21    6AF00D5B              BAL,15   TILT              SHOULD NEVER GET HERE
    15075                            *
    15076   03 02C22    33102C16     SURINTC2 MTW,1    SURINT01          CALLED HERE TO GET I/O STARTED
    15077                            *                                   UPDATE RETURN LOCATION TO CALL + 1
    15078   03 02C23    05002C62              CAL2,0   SURINT09          GO SAVE REGISTERS AND INHIBIT INTR
    15079   03 02C24    68002BF9              B        SURINT62          GO RETURN
    15080   03 02C25    6AF00D5B              BAL,15   TILT              SHOULD NEVER GET HERE
    15081                            *
    15082                            *
    15083                            *
    15084   03 02C26    32D0026E A   SURINT02 LW,13    SURINT03          LOAD NEW BYTE COUNT
    15085   03 02C27    35D002F8 A            STW,13   IOCDATA           SAVE BYTE COUNT
    15086                            *                                   OTHER CODE
    15087   03 02C28    4C000000 A   SURSTART SIO,0    0                 START IT ALL GOING
    15088   03 02C29    74062C43              STCF     SURINT31,3        SAVE THE CONDITION CODES
    15089   03 02C2A    20400000 A   BUFCOUNT AI,4     0                 THIS INSTRUCTION IS MODIFIED BY
    15090                            *                                   OTHER CODE
    15091   03 02C2B    20500000 A   SECTCOUT AI,5     0                 THIS INSTRUCTION IS MODIFY BY OTHER
    15092   03 02C2C    31500263 A            CW,5     SURM1END          TEST FOR UPPER SECTOR LIMIT -1
    15093   03 02C2D    69102C35              BL       SURINT06          IF NO GREATER CONTINUE
    15094   03 02C2E    22D02C29              LI,13    SURSTART+1        BRANCH INSTRUCTION
    15095   03 02C2F    55D22C1B              STH,13   SWITCH,1          BRANCH INSTRUCTION
    15096   03 02C30    315002C3 A            CW,5     SURFCEND          TEST FOR UPPER SECTOR LIMIT
    15097   03 02C31    69102C35              BL       SURINT06          IF NO GREATER CONTINUE
    15098                            SURINT11 ;
    15099   03 02C32    22C00000 A            LI,12    0                 ZERO FOR THE
    15100   03 02C33    35C00273 A            STW,12   ENDOPER           THE END OF OPERATION FLAG
    15101   03 02C34    0E302C16              LPSD,3   SURINT01          GO BACK TO WHERE INTERRUPTED
    15102   03 02C35    33000271 A   SURINT06 MTW,0    BUFM1FLG          TEST BUFFER AVAILABLE -1 FLAG
    15103   03 02C36    68302C3C              BEZ      SURINT07          IF NOT SET CONTINUE
    15104   03 02C37    35100270 A            STW,1    FAKEINTR          SET FAKE INTERRUPT
    15105   03 02C38    6AC02CE4              BAL,12   IOCDP1            BUILD A NEW IOCD BYTE ADDRESS
    15106   03 02C39    67002C26              EXU      SURINT02          UPDATE BYTE ADDR
    15107   03 02C3A    67002C27              EXU      SURINT02+1        UPDATE BYTE ADDR
    15108   03 02C3B    0E302C16              LPSD,3   SURINT01          RETURN TO POINT OF INTERRUPT
    15109                            *
    15110                            *
    15111                            *
    15112   03 02C3C    3140025C A   SURINT07 CW,4     BUFM1AVL          IF BUFFERS ARE AVAILABLE
    15113   03 02C3D    69102C43              BL       SURINT31          KEPT I/O GOING
    15114   03 02C3E    22D02C29              LI,13    SURSTART+1        SETUP
    15115   03 02C3F    55D22C1B              STH,13   SWITCH,1          BRANCH INSTRUCTION
    15116   03 02C40    35100271 A            STW,1    BUFM1FLG          SET BUFFER FULL MIMUS -1
    15117   03 02C41    6AC02CE4              BAL,12   IOCDP1            BUILD A NEW IOCD BYTE ADDRESS
    15118   03 02C42    0E302C16              LPSD,3   SURINT01          RETURN TO POINT OF INTERRUPT
    15119                            *
    15120                            *
    15121   03 02C43    02200000 A   SURINT31 LCI      0                 RESTORE CONDITION CODES
    15122   03 02C44    68C02C48              BCR,12   SURINT29          IF NOT BUSY CONTINUE
    15123   03 02C45    05002CD0              CAL2,0   NOTACCPT          CALL: IF SIO NOT ACCEPTED
    15124   03 02C46    68002C47              B        %+1               GO RETURN
    15125   03 02C47    68002C04              B        SURINT65          SHOULD NOT HAVE GOT HERE: BAD RTN
    15126                            *
    15127                            *
    15128   03 02C48    22C00000 A   SURINT29 LI,12    0                 ZERO NOT ACCEPTED COUNT FOR IOCD1
    15129   03 02C49    35C0027D A            STW,12   IOERSIO1          ZERO NOT ACCEPTED COUNT FOR IOCD1
    15130   03 02C4A    33F0027F A            MTW,-1   IOCPASS2          HAVE IOCD 2 BEEN EXECUTED
    15131   03 02C4B    69302C4E              BNEZ     SURINT30          IF SO THIS COUNT WILL GO THRU ZERO
    15132   03 02C4C    35C0027C A            STW,12   IOERAIO2          THEN ZERO AIO-IOCD 2 COUNT
    15133   03 02C4D    35C0027E A            STW,12   IOERSIO2          AND NOT ACCEPTED COUNT FOR IOCD 2
    15134                            *
    15135                            *
    15136   03 02C4E    35C00270 A   SURINT30 STW,12   FAKEINTR          RESET FAKE INTERRUPT FLAG
    15137   03 02C4F    6AC02CE4              BAL,12   IOCDP1            BUILD A NEW IOCD BYTE ADDRESS
    15138   03 02C50    0E302C16              LPSD,3   SURINT01          RETURN
    15139                            *
    15140                            *
    15141                            *
    15142                            *
    15143   03 02C51    74020140 A   SURINT04 STCF     AIOSAVE,1
    15144   03 02C52    35D00141 A            STW,13   AIOSAVE+1
    15145   03 02C53    6AF02E3E              BAL,15   :AIO+1
    15146   03 02C54    00008002 A            DATA     X'00008002'       MASK, PRINT ERROR
    15147   03 02C55    00000000 A   SURINTXX DATA     X'00000000'       EXPECTED CONDITION CODES DEVICE ADDR
    15148                            *
    15149                            *
    15150   03 02C56    68002C5B              B        SURINT05          DEVICE ADDRESS COMPARE
    15151   03 02C57    22602C5A              LI,6     %+3
    15152   03 02C58    35602C70              STW,6    IOTEST
    15153   03 02C59    68002C7E              B        FALSEINT
    15154   03 02C5A    0E302C16              LPSD,3   SURINT01
    15155                            *
    15156                            *
    15157                            *
    15158   03 02C5B    6AF02E40     SURINT05 BAL,15   :AIO+3            GO AND TEST AIO
    15159   03 02C5C    FFFFC001 A            DATA     X'FFFFC001'       MASK, PRINT ERROR
    15160   03 02C5D    00100000 A   SURMASK  DATA     X'00100000'       TEST FOR CHANNEL END
    15161   03 02C5E    68002C7D              B        IOGOOD            TAKE STATUS GOOD EXIT BACK
    15162   03 02C5F    6AF02D5E              BAL,15   #MSGERR
    15163   03 02C60    68002C61              B        %+1
    15164   03 02C61    68002C7C              B        IOBAD
    15165                            *
    15166                            *
    15167                            SURINT09 ;
    15168   03 02C62    6AF02E2E              BAL,15   :TIO              TEST FOR DEVICE IN GOOD CONDITION
    15169   03 02C63    FF00C001 A            DATA     X'FF00C001'
    15170   03 02C64    10000000 A            DATA     X'10000000'
    15171   03 02C65    68002C7D              B        IOGOOD            RTN HERE IF DEVICE IN GOOD CONDITION
    15172   03 02C66    6AF02E33              BAL,15   :HIO              TRY TO RESET DEVICE
    15173   03 02C67    FF00C001 A            DATA     X'FF00C001'
    15174   03 02C68    10000000 A            DATA     X'10000000'
    15175   03 02C69    68002C7D              B        IOGOOD            RTN HERE IF DEVICE IN GOOD CONDITION
    15176   03 02C6A    6AF02E2E              BAL,15   :TIO              ARE THINGS GOOD YET
    15177   03 02C6B    F700C001 A            DATA     X'F700C001'
    15178   03 02C6C    10000000 A            DATA     X'10000000'
    15179   03 02C6D    68002C7D              B        IOGOOD            RTN HERE IF DEVICE IN GOOD CONDITION
    15180   03 02C6E    35200273 A            STW,2    ENDOPER           SET NO TEST POSSIBLE
    15181   03 02C6F    68002BD2              B        SURPAT20
    15182                            *
    15183                            *
    15184                            *
    15185                                     PAGE
    15186                            *                 ERROR RECOVERY
    15187                            *
    15188                            *                 THIS ROUTINE TAKES CARE OF INHIBITING INTERRUPTS
    15189                            *                 AND IT HANDLES ERROR NUMBERS DURING ERROR REPORTING
    15190                            *                 THIS IS A CALL 2
    15191                                     BOUND    8
    15192   03 02C70    00000000 A   IOTEST   DATA     0,0
            03 02C71    00000000 A
    15193   03 02C72    00002C74              DATA     %+2,7**24
            03 02C73    07000000 A
    15194                            *
    15195   03 02C74    022000A0 A   IOTEST1  LCI      10                SAVE REGISTERS
    15196   03 02C75    2B600264 A            STM,6    SUR0615              L THRU 15
    15197   03 02C76    22A00020 A            LI,10    X'20'             LOAD INTERRUPT BIT
    15198   03 02C77    6DA01100 A            WD,10    X'1100'           DISARM & DISABLE I/O INTERRUPTS
    15199   03 02C78    6D000022 A            WD,0     X'22'             ALLOW INTERRUPTS
    15200   03 02C79    B2C02C70              LW,12    *IOTEST           FETCH RTN ADDR
    15201   03 02C7A    70302C70              LCF      IOTEST            RESTORE CONDITION CODES
    15202   03 02C7B    E800000C A            B        *12               GO DO CALLED FOR TEST
    15203                            *
    15204                            *
    15205   03 02C7C    33102C70     IOBAD    MTW,1    IOTEST            MODIFY RTN ADDR FOR ERROR RTN
    15206   03 02C7D    33102C70     IOGOOD   MTW,1    IOTEST            UPDATE RTNADDR
    15207   03 02C7E    22A00020 A   FALSEINT LI,10    X'20'             LOAD INTERRUPT DIT
    15208   03 02C7F    6D000032 A            WD,0     X'32'             INHIBIT INTERRUPTS
    15209   03 02C80    6DA01200 A            WD,10    X'1200'           ARM & ENABLE I/O INTERRUPTS
    15210   03 02C81    022000A0 A            LCI      10                RESTORE
    15211   03 02C82    2A600264 A            LM,6     SUR0615           REGISTERS 6 THRU 15
    15212   03 02C83    0E002C70              LPSD,0   IOTEST            RETURN TO MAIN LINE CODE
    15213                                     PAGE
    15214                            *                 CALL 1
    15215                            *
    15216                            *                 THIS ROUTINE HANDLES UPDATING ERROR COUNTS BY
    15217                            *                 USING THE LABEL SUPPLIED IN THE ARGUMENT FIELD
    15218                            *                 OF THE CALL TO DEFINE THE ERROR COUNTER THAT IS
    15219                            *                 TO BE UPDATED.  THIS ROUTINE BRANCH LINKS TO A
    15220                            *                 STEPPING ROUTINE IF THE MAXIMUM NO. OF RETRIES
    15221                            *                 HAVE BEEN TRIED.
    15222                            *                 INPUT PARAMETERS:
    15223                            *                    THE ARGUMENT FIELD OF THE CALL, AS THE
    15224                            *                    ERROR COUNT TO BE UPDATED
    15225                            *
    15226                            *                    MAXERR -  THE NUMBER OF RETRIES PER INDIVIDUAL
    15227                            *                              ERROR
    15228                            *
    15229                            *                 REGISTERS DISTURBED:
    15230                            *
    15231                            *                    (NONE)
    15232                            *
    15233                            *                 OUTPUT PARAMETERS:
    15234                            *                    AN UPDATED ERROR COUNT
    15235                            *
    15236                            *
    15237                            *                 CALLING FORMAT:
    15238                            *
    15239                            *                    CAL1,0  (I/O ERROR COUNT TO BE UPDATED)
    15240                            *
    15241                            *
    15242                                     BOUND    8
    15243   03 02C84    00000000 A   SURCALL  DATA     0,0
            03 02C85    00000000 A
    15244   03 02C86    00002C88              DATA     %+2,7**24
            03 02C87    07000000 A
    15245                            *
    15246   03 02C88    B2C02C84              LW,12    *SURCALL          FETCH RTN ADDR
    15247   03 02C89    4BC03047              AND,12   =X'003FFFFF'      REMOVE ALL BUT THE ADDR BYTE
    15248   03 02C8A    35C00280 A            STW,12   SURTEMP1          SAVE THIS RTN ADDR
    15249   03 02C8B    B3100280 A            MTW,1    *SURTEMP1         UPDATE AIO ERROR COUNT
    15250   03 02C8C    32C00274 A            LW,12    MAXERR            FETCH MAXIMUM ERROR COUNT
    15251   03 02C8D    B1C00280 A            CW,12    *SURTEMP1         COMPARE WITH CURRENT ERROR COUNT
    15252   03 02C8E    68102C92              BGE      SURCALL1          IF GREATER OR EQUAL DON'T UPDATE
    15253   03 02C8F    6AC02C94              BAL,12   SURDATE           STEP PROGRAM COUNTS
    15254   03 02C90    22C00000 A            LI,12    0                 ZERO ERROR COUNT
    15255   03 02C91    B5C00280 A            STW,12   *SURTEMP1         STORE ZERO IN THE RIGHT PLACE
    15256   03 02C92    33102C84     SURCALL1 MTW,1    SURCALL           STEP RETURN ADDR
    15257   03 02C93    0E002C84              LPSD,0   SURCALL           RETURN
    15258                            *
    15259                            *                 SURFACE TEST UPDATE ROUTINE
    15260                            *
    15261                            *                 THIS ROUTINE IS USED IN STEPPING THE PROGRAM
    15262                            *                 ONE FUNCTION AHEAD AFTER ALL EFFORTS AT RETRYING
    15263                            *                 HAVE FAILED, IT DOES THIS BY EXECUTING ALL
    15264                            *                 PROGRAM LOGIC THAT WOULD NORMALLY BEEN EXECUTED IF
    15265                            *                 AN ERROR HAD NOT OCCURRED.
    15266                            *
    15267                            *                 INPUT PARAMETER:
    15268                            *
    15269                            *                    (NONE)
    15270                            *
    15271                            *                 REGISTER DISTRURBED:
    15272                            *
    15273                            *                    (NONE)
    15274                            *
    15275                            *                 OUTPUT PARAMETERS:
    15276                            *                    UPDATED:
    15277                            *                        TRACK-SECTOR ADDRESS
    15278                            *                        POINTER  TO THE ACTIVE BUFFER
    15279                            *                        MEMORY BYTE ADDRESS OF THE ACTIVE BUFFER
    15280                            *                        NO. OF AVAILABLE BUFFERS
    15281                            *
    15282                            *                 CALLING FORMAT:
    15283                            *
    15284                            *                    BAL,15   SURDATE
    15285                            *
    15286                            *
    15287                            *
    15288                            *
    15289                            *
    15290   03 02C94    35C00281 A   SURDATE  STW,12   SURDATE1          SAVE RTN ADDR
    15291   03 02C95    67002C2B              EXU      SECTCOUT          UPDATE SECTOR COUNT
    15292   03 02C96    67002C2A              EXU      BUFCOUNT          UPDATE AVAILABLE BUFFER COUNT
    15293   03 02C97    6AC02CE4              BAL,12   IOCDP1            UPDATE
    15294   03 02C98    67002C26              EXU      SURINT02              PATTERN
    15295   03 02C99    67002C27              EXU      SURINT02+1
    15296   03 02C9A    6AC02CEE              BAL,12   BUILDSK           CALCULATE SEEK ADDRESS
    15297   03 02C9B    B2C02C70              LW,12    *IOTEST           LOAD TEST THYE
    15298   03 02C9C    52C2000C A            LH,12    12,1              SAVE HALF WORD
    15299   03 02C9D    21C02CB9              CI,12    CPERROR           IF COMPARE ERROR SKIP IT
    15300   03 02C9E    68302CAB              BE       SURDATE2          IF SO SKIP
    15301   03 02C9F    32C001DA A            LW,12    HIOSTAT
    15302   03 02CA0    25C00001 A            SLS,12   1                 FIND IOCD ADDRESS
    15303   03 02CA1    F110000C A            CB,1     *12               TEST FOR A WITE ORDER
    15304   03 02CA2    69402CAB              BCS,4    SURDATE2          IF WRITE BRANCH
    15305   03 02CA3    B2D0000C A            LW,13    *12               LOAD BYTE ADDRESS OF PATTERN
    15306   03 02CA4    530201DB A            MTH,0    HIOSTAT+1,1
    15307   03 02CA5    68302CAB              BEZ      SURDATE2
    15308   03 02CA6    25D0007E A            SLS,13   -2                POSITION THE WORD ADDRESS OF PATTERN
    15309   03 02CA7    32C03001              LW,12    M1                LOAD M1
    15310   03 02CA8    B5C0000D A            STW,12   *13
    15311   03 02CA9    32C03002              LW,12    M2
    15312   03 02CAA    B5C2000D A            STW,12   *13,1
    15313                            SURDATE2 ;
    15314   03 02CAB    315002C3 A            CW,5     SURFCEND          IS THIS THE LAST SECTOR
    15315   03 02CAC    69102CB0              BL       %+4               IF NOT CONTINUE
    15316   03 02CAD    22C00000 A            LI,12    0                 LOAD ZERO
    15317   03 02CAE    35C00273 A            STW,12   ENDOPER           ZERO END OF OPERATION FLAG
    15318   03 02CAF    68002BD2              B        SURPAT20          QUIT RIGHT NOW
    15319   03 02CB0    3140025C A            CW,4     BUFM1AVL          BUFFER AVAILABLE  -1
    15320   03 02CB1    E9100281 A            BL       *SURDATE1         IF LESS RETURN TO CALLING ROUTINE
    15321   03 02CB2    35100270 A            STW,1    FAKEINTR          SET FAKE INTERRUPT FLAG
    15322   03 02CB3    22C00020 A            LI,12    X'20'             LOAD INTERRUPT BIT
    15323   03 02CB4    6D000032 A            WD,0     X'32'                 INHIBIT INTERRUPTS
    15324   03 02CB5    6DC01200 A            WD,12    X'1200'           ARM AND ENABLE I/O INTERRUPT
    15325   03 02CB6    022000A0 A            LCI      10                RESTORE
    15326   03 02CB7    2A600264 A            LM,6     SUR0615               REGISTERS
    15327   03 02CB8    0E302C16              LPSD,3   SURINT01          RETURN
    15328                                     PAGE
    15329                            *                 COMPARE ERROR RECOVERY
    15330                            *
    15331                            *                 THIS ROUTINE HANDLES ERROR RECOVERY IF A
    15332                            *                 DATA COMPARISON ERROR OCCURS. IT DOES THIS
    15333                            *                 BY RESETTING THE ACTIVE BUFFER POINTER AND
    15334                            *                 TRACK-SECTOR ADDRESS SO THAT THE FAILING SECTOR
    15335                            *                 CAN BE REREAD.
    15336                            *
    15337                            *                 INPUT PARAMETERS:
    15338                            *                     (NONE)
    15339                            *
    15340                            *                 REGISTERS DISTURBED:
    15341                            *
    15342                            *                     (NONE)
    15343                            *
    15344                            *                 OUTPUT PARAMETERS:
    15345                            *
    15346                            *                     TRACK-SECTOR ADDRESS
    15347                            *                     POINTER TO THE ACTIVE BUFFER
    15348                            *                     MEMORY BYTE ADDRESS OF THE ACTIVE BUFFER
    15349                            *                     NO. OF AVAILABLE BUFFERS
    15350                            *
    15351                            *
    15352                            *                 CALLING FORMAT:
    15353                            *
    15354                            *                    B     * 12   (THE ADDRESS IN REG 12 COMES FROM
    15355                            *                                  THE ARGUMENT FIELD OF THE CALL 2)
    15356                            *
    15357   03 02CB9    32500193 A   CPERROR  LW,5     CURRSKAD          SET UP CURRENT SEEK ADDR
    15358   03 02CBA    35100273 A            STW,1    ENDOPER           SET END OF OPERATION FLAG
    15359   03 02CBB    32800259 A            LW,8     BUFINAD           FETCH CURRENT BUFFER ADDR
    15360   03 02CBC    468002F8 A            XW,8     IOCDATA           SAVE THE BYTE COUNT
    15361   03 02CBD    4B803093              AND,8    L(X'FF000000')    SAVE THE ORDER
    15362   03 02CBE    668002F8 A            AWM,8    IOCDATA           UPDATA TO ADD ORDER
    15363   03 02CBF    22400000 A            LI,4     0                 ZERO
    15364   03 02CC0    354002CA A            STW,4    :COMFLAG          ALLOW COMPARE ERROR REPORTING
    15365                            *                                   WILL BE PRINTED
    15366   03 02CC1    6AF02D5E              BAL,15   #MSGERR
    15367   03 02CC2    68002CC4              B        %+2               RETURNS HERE IF NO MGS IS TO PRINTED
    15368                            *
    15369                            *
    15370   03 02CC3    6AF02EE6              BAL,15   :COMPARE          GO COMPARE THE PATTERN AGAIN
    15371   03 02CC4    68002CC5              B        %+1               FILLER
    15372   03 02CC5    351002CA A            STW,1    :COMFLAG          SET PRINT INHIBIT FLAG FOR COMPARE
    15373   03 02CC6    04000275 A            CAL1,0   COMPERR           GO CLEAN HOUSE
    15374   03 02CC7    35500193 A            STW,5    CURRSKAD          SET UP CURRENT SEEK WIRH UPDATE INFR
    15375   03 02CC8    35100270 A            STW,1    FAKEINTR          SET FAKE AN INTERRUPT
    15376   03 02CC9    22400000 A            LI,4     0                 ZERO BUFFERS AVAILABLE
    15377   03 02CCA    32802CDF              LW,8     XPSDSEEK          SET UP TO SEEK AGAIN
    15378   03 02CCB    3580005C A            STW,8    X'5C'             BY LOADING XPSD
    15379   03 02CCC    328002F8 A            LW,8     IOCDATA           FETCH PATTERN ADDRESS
    15380   03 02CCD    4B803029              AND,8    =X'00FFFFFF'      REMOVE ORDER
    15381   03 02CCE    35800259 A            STW,8    BUFINAD           SET UP BUFFER IN ADDRESS
    15382   03 02CCF    68002C7D              B        IOGOOD            JUST RTN EVERY THING HAS BEEN DONE
    15383                                     PAGE
    15384                            *
    15385                            *                 SIO NOT ACCEPTED RECOVERY
    15386                            *
    15387                            *                 THIS ROUTINE HANDLES ERROR RECOVERY IF A
    15388                            *                 SIO IS NOT ACCEPTED.
    15389                            *
    15390                            *                 INPUT PARAMETERS:
    15391                            *
    15392                            *                     (NONE)
    15393                            *
    15394                            *                 REGISTERS DISTURBED:
    15395                            *
    15396                            *                     (NONE)
    15397                            *
    15398                            *                 OUTPUT PARAMETERS:
    15399                            *
    15400                            *                     (NONE)
    15401                            *
    15402                            *                 CALLING FORMAT:
    15403                            *
    15404                            *                     B    *12   (THE ADDRESS IN REG 12 COMES FROM
    15405                            *                                 THE ARGUMENT FIELD OF THE CALL 2)
    15406                            *
    15407   03 02CD0    2290027E A   NOTACCPT LI,9     IOERSIO2          LOAD ADDR OF IOCD 2 ERROR COUNT
    15408   03 02CD1    2280017C A            LI,8     DA(IOCDATA)       LOAD DW ADDR OF IOCD 2
    15409   03 02CD2    31800000 A            CW,8     0                 TEST AGAINST 1 PRESENTLY IN USE
    15410   03 02CD3    68302CD5              BE       %+2                  IF NOT EQUAL
    15411   03 02CD4    2290027D A            LI,9     IOERSIO1          LOAD ADDR OF IOCD 1 ERROR COUNT
    15412   03 02CD5    55922CDD              STH,9    NTACCPT1,1        SAVE IN THE CALL INST TO ERR CNT UPD
    15413   03 02CD6    6AF02D5E              BAL,15   #MSGERR           GO TO MSG PRINT ROUTINE
    15414   03 02CD7    68002CDD              B        NTACCPT1          RTNS HERE IF NO MSG ARE TO BE PRINTD
    15415   03 02CD8    70302C70              LCF      IOTEST            LOAD CONDITION CODES
    15416   03 02CD9    6AF02E2A              BAL,15   :SIO+1            GO TO  EPORT SIO ERROR
    15417   03 02CDA    0000C000 A            DATA     X'0000C000'
    15418   03 02CDB    00000000 A            DATA     0
    15419   03 02CDC    6AF00D5B              BAL,15   TILT              SHOULD NEVER GET HERE
    15420   03 02CDD    04000000 A   NTACCPT1 CAL1,0   0                 GO UPDATE ERROR COUNT
    15421   03 02CDE    68002C62              B        SURINT09          GO RESET I/O
    15422   03 02CDF    0F002BEC     XPSDSEEK XPSD,0   SURINT00          LOAD XPSD FOR FIRST IOCD
    15423   03 02CE0    0F002C16     XPSDATA  XPSD,0   SURINT01          LOAD XPSD FOR SECOND IOCD
    15424   03 02CE1    0F002C84     XPSDCAL1 XPSD,0   SURCALL           XPSD FOR CALL 1 TRAP
    15425   03 02CE2    0F002C70     XPSDCAL2 XPSD,0   IOTEST            XPSD FOR THE CALL 2 TRAP
    15426   03 02CE3    0F402C16     XPSDCAL3 XPSD,4   SURINT01          LOAD XPSD FOR CALL3
    15427                                     PAGE
    15428                            *
    15429                            *
    15430                            *                 I O C D + 1   R O U T I N E
    15431                            *
    15432   03 02CE4    32D002F8 A   IOCDP1   LW,13    IOCDATA           LOAD FIRST WORD OF SECOND IOCD
    15433   03 02CE5    4BD03029              AND,13   =X'00FFFFFF'      REMOVE ORDER
    15434   03 02CE6    30D002C1 A            AW,13    BYTCURR           ADD THE COURRENT BYTE COUNT
    15435   03 02CE7    31D0025D A            CW,13    MEMLSTBA          COMPARE WITH THE BUF END ADDR
    15436   03 02CE8    69102CEA              BL       %+2               IF LESS BRANCH
    15437   03 02CE9    32D0025E A            LW,13    BUF1LOBA          FETCH THE BUFFER STARTING ADDRESS
    15438   03 02CEA    35D0026E A            STW,13   SURINT03          SAVE UP DATED BYTE COUNT
    15439   03 02CEB    72D002F8 A            LB,13    IOCDATA           SAVE ORDER
    15440   03 02CEC    75D0026E A            STB,13   SURINT03
    15441   03 02CED    E800000C A            B        *12               BRANCH BACK TO CALLING ROUTINE
    15442                                     PAGE
    15443                            *
    15444                            *                 THIS ROUTINE CONVERTS THE TRACK/SECTOR FROM AND
    15445                            *                 ABSOLUTE SECTOR COUNT TO A TRACK/SECTOR ADDRESS.
    15446                            *
    15447   03 02CEE    156002FE A   BUILDSK  STD,6    BUILDSK1
    15448   03 02CEF    3A6002C6 A            LCW,6    TCKCURR           LOAD COMPLEMENT SHIFT COUNT
    15449   03 02CF0    75662CF8              STB,6    BLDSHIFT,3        SHIFT COUNT
    15450   03 02CF1    22600000 A            LI,6     0
    15451   03 02CF2    32700005 A            LW,7     5                 FETCH SECTOR ADDR
    15452   03 02CF3    366002C0 A            DW,6     SECTCURR          DIVIDE BY SECTOR/TRACK
    15453   03 02CF4    A57002C6 A            SLS,7    *TCKCURR          POSITION TRACK (BAND) ADDR
    15454   03 02CF5    357015BE              STW,7    SEEKRAD           SAVE TRACK (BAND) ADDR
    15455   03 02CF6    666015BE              AWM,6    SEEKRAD           ADD IN SECTOR ADDR
    15456   03 02CF7    466002FE A            XW,6     BUILDSK1          SAVE SECTOR ADDR BY IT SELF
    15457   03 02CF8    25700000 A   BLDSHIFT SLS,7    0                 POSITION TRACK (BAND) ADDR
    15458   03 02CF9    467002FF A            XW,7     BUILDSK1+1        SAVE IT BY IT SELF
    15459   03 02CFA    E800000C A            B        *12               RETURN
    15460                                     PAGE
    15461                            *
    15462                            *                 M E M O R Y  A L L O C A T I O N  R O U T I N E
    15463                            *
    15464                            *
    15465                            *                 THIS ROUTINE ALLOCATES MEMORY FOR INPUT/OUTPUT
    15466                            *                 AND FOR       SNAP SHOTS OF TRACK AND SECTOR
    15467                            *                 RELATED ERRORS.
    15468                            *
    15469                            *                 INPUT PARAMETERS:
    15470                            *
    15471                            *                   :MEMLAST        LAST USUABLE MEMORY LOCATION
    15472                            *                   #MSGLEVL        IF =2 MEMORY IS ALLOCATED TO SNAP
    15473                            *                                   SHOT OF ERRORS
    15474                            *
    15475                            *                 REGISTERS DISTURBED:
    15476                            *
    15477                            *                   REGISTERS 4-7
    15478                            *
    15479                            *                 OUTPUT PARAMETERS:
    15480                            *
    15481                            *                   MEMLSTBA        LAST USUABLE MEMORY BYTE ADDRESS
    15482                            *
    15483                            *                                   MEMORY FOR I/O BUFFERS
    15484                            *                                   MEMORY FOR TRACK AND SECTOR SNAP
    15485                            *                                   SHOTS IF; #MSGLEVL=2
    15486                            *                 CALLING FORMAT:
    15487                            *
    15488                            *                   BAL,15  MEMORY  GO TO MEMORY ALLOCATION ROUTINE
    15489                            *                   %               (NO MEMORY AVAILABLE FOR THE TEST)
    15490                            *                   %+1             (MEMORY IS AVAILABLE FOR THE TEST)
    15491                            *
    15492                            *
    15493                            *
    15494                            MEMORY3 ;
    15495   03 02CFB    35F0024A A            STW,15   MEMORY2           SAVE RETURN ADDR
    15496   03 02CFC    325001CE A            LW,5     DIOLIST
    15497   03 02CFD    38500006 A            SW,5     6                 SUBTRACT LENGTH OF TABLE BUFFER
    15498   03 02CFE    35500251 A            STW,5    SSTABLE           SAVE IN SEEK/SENSE ADDR
    15499   03 02CFF    21503098              CI,5     BUF1LO
    15500   03 02D00    68202D3A              BLE      MEMORY7
    15501   03 02D01    35600252 A            STW,6    TABLEMAX          STORE WORD
    15502   03 02D02    35600254 A            STW,6    SECTLMT           STORE IN TO SECTLMT
    15503   03 02D03    22000000 A            LI,0     0                 LOAD ZERO
    15504   03 02D04    B50C0251 A            STW,0    *SSTABLE,6        ZERO SEEK/SENSE BUFFER
    15505   03 02D05    64602D04              BDR,6    %-1
    15506   03 02D06    B5000251 A            STW,0    *SSTABLE
    15507   03 02D07    350002E4 A            STW,0    TABINDEX          ZERO INDEX COUNT
    15508   03 02D08    350002E3 A            STW,0    TABBIAS           ZERO TABLE BIAS
    15509   03 02D09    35000253 A            STW,0    TABERROR
    15510   03 02D0A    32600252 A            LW,6     TABLEMAX
    15511   03 02D0B    66600252 A            AWM,6    TABLEMAX
    15512   03 02D0C    68002D24              B        MEMORY1
    15513                            *
    15514                            *
    15515                            *
    15516   03 02D0D    35F0024A A   MEMORY   STW,15   MEMORY2           SAVE RTN ADDR
    15517   03 02D0E    325001CE A            LW,5     DIOLIST
    15518   03 02D0F    312002C9 A            CW,2     #MSGLEVL          IS THIS A TRACK SNAP SHOT
    15519   03 02D10    69302D24              BNE      MEMORY1           IF NOT BRANCH
    15520   03 02D11    3550024E A            STW,5    ENDSHOT           SET UP ADDR END ADDR OF SNAP SHOT
    15521   03 02D12    205FFFF6 A            AI,5     -TOTALS           SUBTRACT TOTAL%
    15522   03 02D13    3550024D A            STW,5    TOTLSHOT          SAVE AS STARTING ADDR TOTALS SHOT
    15523   03 02D14    22600000 A            LI,6     0                 ZERO
    15524   03 02D15    327002C0 A            LW,7     SECTCURR          LOAD CURRENT SECTORS/TRACK
    15525   03 02D16    2570007F A            SLS,7    -1                DIVIDE BY 2
    15526   03 02D17    2360000A A            MI,6     TOTALS            CAL NO. LOCATIONS REQD FOR SECT SHOT
    15527   03 02D18    38500007 A            SW,5     7                 SUBTRACT LCTIONS REQD FOR SECT SHOT
    15528   03 02D19    3550024C A            STW,5    SECTSHOT          SAVE AS STARTING ADDR OF SECT SNAP S
    15529   03 02D1A    205FFF00 A            AI,5     -256              SUBTRACT TRACK TABLE LENGTH
    15530   03 02D1B    3550024B A            STW,5    TCKSHOT           SAVE AS STARTING ADDR OF TCK SNAP SH
    15531   03 02D1C    21503098              CI,5     BUF1LO            IF LIMIT HAS BEEN
    15532   03 02D1D    68202D3A              BLE      MEMORY7               EXCEED ERROR
    15533                            *
    15534                            *
    15535   03 02D1E    22700000 A            LI,7     0                 LOAD ZERO
    15536   03 02D1F    B570024B A            STW,7    *TCKSHOT          CLEAR FIRST LOCATION IN TABLE
    15537   03 02D20    3260024B A            LW,6     TCKSHOT           LOAD STARTING ADR OF TRACK SNAP SHOT
    15538   03 02D21    386001CE A            SW,6     DIOLIST
    15539   03 02D22    B57C01CE A            STW,7    *DIOLIST,6
    15540   03 02D23    65602D22              BIR,6    %-1               UNTIL ALL ZERO
    15541                            *
    15542                            *
    15543                            MEMORY1 ;
    15544   03 02D24    327029A6              LW,7     IOBOTTOM          LOAD BOTTOM ADDR
    15545   03 02D25    20700001 A            AI,7     1                 CREATE
    15546   03 02D26    2570007F A            SLS,7     -1                  DOUBLE WORD ADDR
    15547   03 02D27    25700003 A            SLS,7    3                    BYTE ADDR
    15548   03 02D28    3570025E A            STW,7    BUF1LOBA          SAVE AS BYTE ADDR LOWER LIMIT
    15549   03 02D29    35700259 A            STW,7    BUFINAD           SAVE AS BUFFER IN BYTE ADDR
    15550   03 02D2A    330029A5              MTW,0    MEMFLAG           IF ADDITIONAL MEMORY
    15551   03 02D2B    69302D2D              BNEZ     %+2                   USE IT ALL
    15552   03 02D2C    B25029A8     MEMORY10 LW,5     *IOTOPNT          LOAD TOP ADDR
    15553   03 02D2D    25500002 A            SLS,5    2                 CREATE BYTE ADDR
    15554   03 02D2E    3850025E A            SW,5     BUF1LOBA          SUBTRACT BYTE ADDR LOWER LIMIT
    15555   03 02D2F    22400000 A            LI,4     0                 ZERO
    15556   03 02D30    364002C1 A            DW,4     BYTCURR           DIVIDE BY BC PER SECTOR
    15557   03 02D31    21500002 A            CI,5     2                 IF LESS THAN 2 SECTORS
    15558   03 02D32    69102D3A              BL       MEMORY7               ERROR
    15559   03 02D33    3550025B A            STW,5    BUFAVAIL          SAVE NO. OF BUFFERS AVAILABLE
    15560   03 02D34    22400000 A            LI,4     0
    15561   03 02D35    374002C1 A            MW,4     BYTCURR           MULT BY NO. BYTES/SECTOR
    15562   03 02D36    35500258 A            STW,5     BUFLENGT         SAVE AS BUFFER LENGTH
    15563   03 02D37    3050025E A            AW,5     BUF1LOBA          ADD BUFFER LOWER LIMIT
    15564   03 02D38    3550025D A            STW,5    MEMLSTBA
    15565   03 02D39    E802000F A            B        *15,1             RETURN
    15566                            MEMORY7  ;
    15567   03 02D3A    6AF00AA5              BAL,15   MSGOUT
    15568   03 02D3B    000021E5              DATA     BA(NOMEMORY)
    15569   03 02D3C    E800024A A            B        *MEMORY2
    15570         0000000A           TOTALS   EQU      10
    15571                                     PAGE
    15572                            *
    15573                            *        C A L L I N G  P A R A M E T E R  T A B L E
    15574                            *
    15575                            *
    15576                                     BOUND    8
    15577         03 02C2A           BUFINCMT EQU      BUFCOUNT          BUFFER INCREMENT CONSTANT
    15578         03 02C2B           SECINCMT EQU      SECTCOUT          SEEK INCREMENT CONSTANT
    15579                                     PAGE
    15580                            *                *** DEVICE DESCRIPTION TABLE POINTER GENERATOR ***
    15581                            *
    15582                            *                 THIS SUBROUTINE GENERATES A BIAS POINTER TO THE
    15583                            *                 DEVICE DEXDRIPTION TABLE THAT DESCRIPTION THE DEVICE
    15584                            *                 TO BE TESTED.
    15585                            *
    15586                            *                 IF THE POINTER IS TO BE INITIALIZED A -1
    15587                            *                 MUST BE STORED INTO '#DDTP' BEFORE BRANCH LINK TO
    15588                            *                 THIS SUBROUTINE.
    15589                            *
    15590                            *                 INPUT PARAMETERS:
    15591                            *
    15592                            *                   :DDTLGTH-NUMBER OF DEVICES CURRENTLY IN TABLE.
    15593                            *
    15594                            *                 REGISTER DISTURBED:
    15595                            *
    15596                            *                    (NONE)
    15597                            *
    15598                            *                 OUTPUT PARAMETERS:
    15599                            *
    15600                            *                   #DDTBIAS-THE BIAS POINTER TO THE DEVICE DISCRIPTION
    15601                            *                            TABLE.
    15602                            *                   #DDTP   -THE POINTER TO THE DEVICE DISCRIPTION
    15603                            *                            TABLE  (0 DDTP 7).
    15604                            *
    15605                            *                 CALLING FORMAT:
    15606                            *
    15607                            *                    BAL,15    (#DDTRADM)    RANDOM POINTER UPDATING
    15608                            *                              (#DDTICMT)    INCREMENT POINTER UPDATING
    15609                            *
    15610                            *                   %       -THE LAST DEVICE DISCRIBED IN THE TABLES
    15611                            *                            HAS BEEN TESTED.
    15612                            *                   %+1     -THE LAST DEVICE DISCRIBED IN THE TABLES
    15613                            *                            HAS NOT BEEN TESTED.
    15614                            *
    15615   03 02D3E    02200000 A   #DDTRADM LCI      0
    15616   03 02D3F    2B000157 A            STM,0    #DDTSAVE
    15617   03 02D40    22E00000 A            LI,14    0                    ZERO REG 14
    15618   03 02D41    32F00282 A            LW,15    RADSEED           LOAD THE RANDOM SEED
    15619   03 02D42    68302D4A              BEZ      #DDT1             IF RANDOM NO. =0,USE AS IS.
    15620   03 02D43    36E00284 A            DW,14    #DDTLGTH          FIND A REMAINDER
    15621   03 02D44    32F0000E A            LW,15    14                   USE REMAINDER AS A RANDOM POINTER
    15622   03 02D45    68002D4A              B        #DDT1
    15623                            *
    15624                            *
    15625   03 02D46    02200000 A   #DDTICMT LCI      0
    15626   03 02D47    2B000157 A            STM,0    #DDTSAVE
    15627   03 02D48    32F00283 A            LW,15    #DDTP                FETCH OLD POINTER
    15628   03 02D49    20F00001 A            AI,15    1                    INCREMENT TO GENERATE NEW POINTER
    15629   03 02D4A    35F00283 A   #DDT1    STW,15   #DDTP                SAVE NEW POINTER
    15630   03 02D4B    31F00284 A            CW,15    #DDTLGTH             TEST POINTER TO SEE IF
    15631   03 02D4C    68102D56              BGE      #DDTEXIT             LIMITS HAVE BEEN EXCEEDED
    15632   03 02D4D    22E00000 A            LI,14    0                    ZERO REG 14
    15633   03 02D4E    23E0000E A            MI,14    #DDTADR2-#DDTADR1    MULTPLY SPAN BETWEEN DDT BY POINTER
    15634   03 02D4F    35F00285 A            STW,15   #DDTBIAS             SAVE AS NEW BIAS POINTER
    15635   03 02D50    32000285 A            LW,0     #DDTBIAS
    15636   03 02D51    20000286 A            AI,0     #DDTADR1
    15637   03 02D52    022000A0 A            LCI      #DDTADR3-#DDTADR1
    15638   03 02D53    AA100000 A            LM,1     *0
    15639   03 02D54    2B1002BE A            STM,1    TESTDEV
    15640   03 02D55    33100166 A            MTW,1    #DDTSAVE+15
    15641   03 02D56    02200000 A   #DDTEXIT LCI      0
    15642   03 02D57    2A000157 A            LM,0     #DDTSAVE
    15643   03 02D58    E800000F A            B        *15
    15644                                     PAGE
    15645                            *
    15646                            *                 MOVE DEVICE DESCRIPTION TABLE
    15647                            *
    15648         03 02D59           MOVEDDT  EQU      %
    15649   03 02D59    32400285 A            LW,4     #DDTBIAS          LOAD TABLE BIAS
    15650   03 02D5A    022000A0 A            LCI      #DDTADR3-#DDTADR1 LOAD LENGTH OF 1 TABLE
    15651   03 02D5B    2A580286 A            LM,5     MODEL,4           LOAD TABLE
    15652   03 02D5C    2B5002BE A            STM,5    MODELC            STORE TABLE
    15653   03 02D5D    E800000F A            B        *15
    15654                            *                 E R R O R  R E P O R T E R
    15655                            *
    15656                            *
    15657                            *
    15658         03 02D5E           #MSGNOSP EQU      %
    15659         03 02D5E           #MSGERR  EQU      %
    15660         03 02D5E           #MSGERR2 EQU      %
    15661   03 02D5E    02200000 A            LCI      0                 SAVE REGISTER 0
    15662   03 02D5F    2B000157 A            STM,0    #MSG00                THRU 15
    15663   03 02D60    22F02D63              LI,15    %+3
    15664   03 02D61    35F0018C A            STW,15   LISTEXIT
    15665   03 02D62    6AF012F6              BAL,15   ALFUNCT
    15666   03 02D63    00002DBA              DATA     TST3LST1
    15667   03 02D64    12800140 A            LD,8     AIOSAVE
    15668   03 02D65    158001E0 A            STD,8    AIOSTAT
    15669   03 02D66    31200273 A            CW,2     ENDOPER           IF END OF OPERATION FLAG
    15670   03 02D67    68302D90              BE       #MSGERR6              =2 STATUS IS NOT GOOD
    15671                            *
    15672                            *
    15673                            *
    15674   03 02D68    327001DA A            LW,7     HIOSTAT           LOAD CURRENT COMMAND ADDR
    15675   03 02D69    25700001 A            SLS,7    1                 CONVERT TO WORD ADDR
    15676   03 02D6A    92A00007 A            LD,10    *7                LOAD CURRENT IOCD
    15677   03 02D6B    312002D5 A            CW,2     ITHTEST
    15678   03 02D6C    69302D84              BNE      #MSGERR5              BRANCH
    15679   03 02D6D    330002CA A            MTW,0    :COMFLAG          TESTING
    15680   03 02D6E    68302D84              BEZ      #MSGERR4          BR. EQUAL ZERO
    15681   03 02D6F    72C0000A A            LB,12    10                LOAD ORDER
    15682   03 02D70    68302D84              BEZ      #MSGERR4          IF ORDER WAS 'STOP' BRANCH
    15683   03 02D71    21C00003 A            CI,12    3                 IF ORDER WAS
    15684   03 02D72    68302D84              BE       #MSGERR4              'SEEK' BRANCH
    15685   03 02D73    21C00004 A            CI,12    4                 IF ORDER WAS
    15686   03 02D74    68302D84              BE       #MSGERR4              'SENSE' BRANCH
    15687   03 02D75    32D0000B A            LW,13    11
    15688   03 02D76    4BD0302E              AND,13   =X'FFFF'
    15689   03 02D77    32C00009 A            LW,12    9
    15690   03 02D78    4BC0302E              AND,12   =X'FFFF'
    15691   03 02D79    38D0000C A            SW,13    12                SUBTRACT BYTE REMAINING
    15692   03 02D7A    217002F8 A            CI,7     IOCDATA           TEST CURRENT COMMAND ADDRESS
    15693   03 02D7B    68302D7F              BE       %+4
    15694   03 02D7C    32C002F9 A            LW,12    IOCDATA+1
    15695   03 02D7D    4BC0302E              AND,12   =X'FFFF'
    15696   03 02D7E    30D0000C A            AW,13    12                ADD BC FROM PREVIOUS IOCD
    15697   03 02D7F    22C00000 A            LI,12    0                 LOAD ZERO
    15698   03 02D80    3300000D A            MTW,0    13
    15699   03 02D81    68302D83              BEZ      %+2
    15700   03 02D82    36C002C1 A            DW,12    BYTCURR           CALCULATE NO. OF SECTOR WRITTEN
    15701   03 02D83    3050000D A            AW,5     13                BEFORE ERROR WAS DETECTED
    15702         03 02D84           #MSGERR4 EQU      %
    15703         03 02D84           #MSGERR5 EQU      %
    15704   03 02D84    330002CA A            MTW,0    :COMFLAG          TESTING ZERO
    15705   03 02D85    68302D90              BEZ      #MSGERR6
    15706   03 02D86    22000AE9              LI,0     DA(#MSENSE)       LOAD DW ADDR OF SENSE IOCD
    15707   03 02D87    CCC002BF A            SIO,12   *:DEVADDR
    15708   03 02D88    22F003E8 A            LI,15    1000              FETCH NO.
    15709   03 02D89    64F02D8B              BDR,15   %+2               BRANCH AND DEC. REG.
    15710   03 02D8A    68002D90              B        #MSGERR6
    15711   03 02D8B    CD0002BF A            TIO,0    *:DEVADDR         WAIT FOR SENSE TO COMPLETE
    15712   03 02D8C    69402D89              BCS,4    %-3               BRANCH CONDITIONALLT SET
    15713   03 02D8D    69802D89              BCS,8    %-4
    15714   03 02D8E    72C615BF              LB,12    #MSNSEFT,3        LOAD INFOR ABOUT FAILING TCK
    15715   03 02D8F    35C006D4              STW,12   VBIN8A
    15716                            #MSGERR6 ;
    15717   03 02D90    6AC02CEE              BAL,12   BUILDSK           CONVERT TO RAD TRACK(BAND)/SECTOR AD
    15718   03 02D91    312002C9 A            CW,2     #MSGLEVL          TEST MESSAGE LEVEL
    15719   03 02D92    69302D9B              BNE      #MSGERR8              IF NOT =2 NEXT STEP
    15720   03 02D93    3300159C              MTW,0    T:OCCUR
    15721   03 02D94    69302D9B              BNEZ     #MSGERR8
    15722   03 02D95    330002CA A            MTW,0    :COMFLAG          IF COMPARE ERROR
    15723   03 02D96    68302DBF              BEZ      SELECTER               GO DIRECTLY TO FORMAT ERROR
    15724   03 02D97    32F001DB A            LW,15    HIOSTAT+1
    15725   03 02D98    4BF03094              AND,15   =X'10BD0000'
    15726   03 02D99    31F03062              CW,15    =X'10000000'
    15727   03 02D9A    68302DBF              BEZ      SELECTER          GO INSERT INFORMATION INTO TABLE
    15728                            #MSGERR8 ;
    15729   03 02D9B    35101587              STW,1    E:MARKER          SET ERROR MARKER
    15730   03 02D9C    351015B6              STW,1    NOIOCD
    15731   03 02D9D    35201588              STW,2    E:ERROR
    15732   03 02D9E    6AF00EFC              BAL,15   TP:HEAD
    15733   03 02D9F    68002DA0              B        %+1
    15734   03 02DA0    126002FE A            LD,6     BUILDSK1
    15735   03 02DA1    356006BF              STW,6    VDEC2A            SAVE SECTOR
    15736   03 02DA2    357006C0              STW,7    VDEC3A            SAVE BAND
    15737   03 02DA3    6AF00AA5              BAL,15   MSGOUT
    15738   03 02DA4    00002167              DATA     BA(#MSGERR1)
    15739   03 02DA5    330002CA A            MTW,0    :COMFLAG
    15740   03 02DA6    68302DA9              BEZ      %+3
    15741   03 02DA7    6AF00AA5              BAL,15   MSGOUT
    15742   03 02DA8    00002198              DATA     BA(#MSGERRX)
    15743   03 02DA9    312002D5 A            CW,2     ITHTEST
    15744   03 02DAA    68302DAD              BE       %+3               BR. IF EQUAL
    15745   03 02DAB    330002CA A            MTW,0    :COMFLAG          TEST FOR A COMPARE TEST
    15746   03 02DAC    68302DB6              BEZ      #MSGEXIT            IF IT IS BRANCH
    15747   03 02DAD    31200273 A            CW,2     ENDOPER
    15748   03 02DAE    68302DB6              BE       #MSGEXIT          IF STATUS NOT GOOD SKIP REPORTING
    15749   03 02DAF    32C00157 A            LW,12    #MSG00
    15750   03 02DB0    6AF00B47              BAL,15   IOCDP
    15751   03 02DB1    330002CA A            MTW,0    :COMFLAG          IF COMPARE DATA
    15752   03 02DB2    68302DB6              BEZ      #MSGEXIT              EXIT
    15753   03 02DB3    22F02DBE              LI,15    TST3LST3
    15754   03 02DB4    35F015C6              STW,15   INSTRLIST
    15755   03 02DB5    6AF01345              BAL,15   CLISTI
    15756                            #MSGEXIT ;
    15757   03 02DB6    02200000 A            LCI      0
    15758   03 02DB7    2A000157 A            LM,0     #MSG00
    15759   03 02DB8    E802000F A            B        *15,1             GO PRINT MORE DATA
    15760                            *
    15761                            *
    15762   03 02DB9    00000006 A   TST3LST2 CHCKAIO  0
    15763   03 02DBA    00000002 A   TST3LST1 CHCKTDV  0
    15764   03 02DBB    10000003 A            CHCKHIO  X'10000000'
    15765   03 02DBC    10000001 A            CHCKTIO  X'10000000'
    15766   03 02DBD    000000A0 A            CHCKBC   *X'0'
    15767   03 02DBE    00002DB9     TST3LST3 DATA     TST3LST2
    15768                                     PAGE
    15769                            SELECTER ;
    15770   03 02DBF    228000FF A            LI,8     X'FF'
    15771   03 02DC0    730615BF              MTB,0    #MSNSEFT,3        TEST FOR FAILING TRACK
    15772   03 02DC1    69302DC3              BNEZ     %+2               IF 1 EXIST BRANCH
    15773   03 02DC2    758615BF              STB,8    #MSNSEFT,3            OTHERWISE SET ALL FAILING
    15774   03 02DC3    325002FE A            LW,5     BUILDSK1          LOAD SECTOR INDEX
    15775   03 02DC4    22400000 A            LI,4     0                 ZERO REG 4
    15776   03 02DC5    35400155 A            STW,4    SELPASS           ZERO PASS FLAG
    15777   03 02DC6    35400156 A            STW,4    SELMANY           ZERO FLAG
    15778   03 02DC7    2340000A A            MI,4     TOTALS            CREATE SECTOR INDEX POINTER
    15779   03 02DC8    35500154 A            STW,5    SELTEMP           SAVE AS PARTIAL INDEX
    15780                            *
    15781                            *
    15782   03 02DC9    52A001E1 A            LH,10    AIOSTAT+1
    15783   03 02DCA    52B001DB A            LH,11    HIOSTAT+1         LOAD HIO STATUS
    15784   03 02DCB    330002CA A            MTW,0    :COMFLAG          TEST FOR A COMPARE OPERATION
    15785   03 02DCC    69302DD4              BNEZ     SELECT01              IF NOT BRANCH
    15786   03 02DCD    3300014E A            MTW,0    :COMERRT          IF NO COMP ARE ERRORS
    15787   03 02DCE    68302DD4              BEZ      SELECT01              BRANCH
    15788   03 02DCF    22800002 A            LI,8     2
    15789   03 02DD0    468002CA A            XW,8     :COMFLAG
    15790   03 02DD1    6AF02EE6              BAL,15   :COMPARE
    15791   03 02DD2    68002DD3              B        %+1
    15792   03 02DD3    468002CA A            XW,8     :COMFLAG
    15793   03 02DD4    324002FF A   SELECT01 LW,4     BUILDSK1+1        TRACK INDEX -4
    15794   03 02DD5    25400203 A            SCS,4    3                 IF HIGH SPEED MULTPLY BY 8
    15795   03 02DD6    729615BF              LB,9     #MSNSEFT,3        LOAD FAILING TRACKS
    15796   03 02DD7    68002E18              B        SELECT12          GO TO FAILING TRACK
    15797   03 02DD8    D288024B A   SELECT02 LH,8     *TCKSHOT,4        LOAD ERROR DISCRIPTOR
    15798   03 02DD9    22500000 A            LI,5     0
    15799   03 02DDA    21A08000 A   SELECT03 CI,10    X'8000'           TEST FOR DATA OVERRUN
    15800   03 02DDB    68402DDE              BCR,4    SELECT04              IF NONE NEXT TEST
    15801   03 02DDC    6AF02E20              BAL,15   SELECTUP          GO SET UP DATA OVERRUN BIT
    15802   03 02DDD    00008000 A            DATA     X'8000'
    15803                            *
    15804                            *
    15805                            *
    15806   03 02DDE    20500001 A   SELECT04 AI,5     1                 INCREMENT SECTOR INDEX
    15807   03 02DDF    21A02000 A            CI,10    X'2000'           TEST FOR SECTOR UNAVAILABLE
    15808   03 02DE0    68402DE3              BCR,4    SELECT05              IF NOT NEXT TEST
    15809   03 02DE1    6AF02E20              BAL,15   SELECTUP          GO SET UP SECTOR UNAVAILABLE
    15810   03 02DE2    00004000 A            DATA     X'4000'
    15811                            *
    15812                            *
    15813                            *
    15814   03 02DE3    20500001 A   SELECT05 AI,5     1                 INCREMENT SECTOR INDEX
    15815   03 02DE4    72F001D9 A            LB,15    TDVSTAT+1
    15816   03 02DE5    21F00008 A            CI,15    X'08'             TEST FOR SYNC PATTERN MISSED
    15817   03 02DE6    68402DE9              BCR,4    SELECT61              IF NOT NEXT TEST
    15818   03 02DE7    6AF02E20              BAL,15   SELECTUP          GO SET UP SYNC PATTERN BIT
    15819   03 02DE8    00002000 A            DATA     X'2000'
    15820                            *
    15821   03 02DE9    20500001 A   SELECT61 AI,5     1
    15822   03 02DEA    72F001D9 A            LB,15    TDVSTAT+1
    15823   03 02DEB    21F00004 A            CI,15    X'04'             TEST FOR BAND TRANS ERROR
    15824   03 02DEC    68402DEF              BCR,4    SELECT62
    15825   03 02DED    6AF02E20              BAL,15   SELECTUP
    15826   03 02DEE    00000100 A            DATA     X'100'
    15827                            *
    15828   03 02DEF    20500001 A   SELECT62 AI,5     1
    15829   03 02DF0    72F001D9 A            LB,15    TDVSTAT+1
    15830   03 02DF1    21F00002 A            CI,15    X'02'
    15831   03 02DF2    68402DF5              BCR,4    SELECT06
    15832   03 02DF3    6AF02E20              BAL,15   SELECTUP
    15833   03 02DF4    00000080 A            DATA     X'080'
    15834                            *
    15835                            *
    15836   03 02DF5    20500001 A   SELECT06 AI,5     1                 INCREMENT SECTOR INDEX
    15837   03 02DF6    21A00040 A            CI,10    X'0040'           TEST FOR TRANSMISSION ERROR
    15838   03 02DF7    68402DFA              BCR,4    SELECT07              IF NONE NEXT TEST
    15839   03 02DF8    6AF02E20              BAL,15   SELECTUP          GO SET UP TRANSMISSION ERROR BIT
    15840   03 02DF9    00001000 A            DATA     X'1000'
    15841                            *
    15842                            *
    15843                            *
    15844   03 02DFA    20500001 A   SELECT07 AI,5     1                 INCREMENT SECTOR INDEX
    15845   03 02DFB    21B00800 A            CI,11    X'0800'           TEST FOR UNUSUAL END
    15846   03 02DFC    68402DFF              BCR,4    SELECT08              IF NOT NEXT TEST
    15847   03 02DFD    6AF02E20              BAL,15   SELECTUP          GO SET UP UNUSUAL END BIT
    15848   03 02DFE    00000800 A            DATA     X'0800'
    15849                            *
    15850                            *
    15851                            *
    15852   03 02DFF    20500001 A   SELECT08 AI,5     1                 INCREMENT SECTOR INDEX
    15853   03 02E00    330002CA A            MTW,0    :COMFLAG          IF NOT COMPARE
    15854   03 02E01    69302E06              BNEZ     SELECT09             BRANCH
    15855   03 02E02    3300014E A            MTW,0    :COMERRT          TEST FOR DATA COMPARE ERROR
    15856   03 02E03    68302E06              BEZ      SELECT09              IF NONE NEXT TEST
    15857   03 02E04    6AF02E20              BAL,15   SELECTUP          GO SET UP DATA COMPARE ERROR BIT
    15858   03 02E05    00000400 A            DATA     X'0400'
    15859   03 02E06    20500001 A   SELECT09 AI,5     1                 INCREMENT SECTOR INDEX
    15860   03 02E07    330002CA A            MTW,0    :COMFLAG          IF NOT COMPARE
    15861   03 02E08    69302E12              BNEZ     SELECT10             BRANCH
    15862   03 02E09    33000153 A            MTW,0    :COMADDR          TEST FOR COMPARE ADDRESSING ERROR
    15863   03 02E0A    68302E12              BEZ      SELECT10              IF NOT GO TEST EXIT
    15864   03 02E0B    6AF02E20              BAL,15   SELECTUP          GO SET UP COMPARE ADDRESSING ERROR
    15865   03 02E0C    00000200 A            DATA     X'200'
    15866   03 02E0D    4B803095              AND,8    =X'FF80'            REMOVE OLD ADDR
    15867   03 02E0E    52F20153 A            LH,15    :COMADDR,1        LOAD TRACK SECTOR ADDR
    15868   03 02E0F    25F00079 A            SLS,15   -7
    15869   03 02E10    4BF03032              AND,15   =X'7F'
    15870   03 02E11    3080000F A            AW,8     15                ADD TO MESSAGE
    15871   03 02E12    D588024B A   SELECT10 STH,8    *TCKSHOT,4        SAVE ERROR DISCRIPTOR
    15872   03 02E13    20400001 A            AI,4     1                 UPDATE TRACK POINTER
    15873   03 02E14    25900001 A            SLS,9    1                 POSITION FAILING TRACK BYTE
    15874   03 02E15    33000156 A            MTW,0    SELMANY           IF ERROR FOUND THIS PASS
    15875   03 02E16    68302E18              BEZ      %+2                   DON'T SKIP SET FLAG
    15876   03 02E17    35100155 A            STW,1    SELPASS
    15877   03 02E18    21900080 A   SELECT12 CI,9     X'80'             TEST FOR NEXT FAILING TRACK
    15878   03 02E19    69402DD8              BCS,4    SELECT02              IF IT EXISTS GO BUILD ERROR DISC
    15879   03 02E1A    73060009 A            MTB,0    9,3               TEST FOR MORE FAILING TRACKS
    15880   03 02E1B    69302E13              BNEZ     SELECT10+1            IF ANY GO LOOP.
    15881                            SELECT11 ;
    15882   03 02E1C    351002E1 A            STW,1    #MSGER41          SET ERROR FLAG
    15883   03 02E1D    02200000 A            LCI      0
    15884   03 02E1E    2A000157 A            LM,0     #MSG00                ALL REGISTERS
    15885   03 02E1F    E800000F A            B        *15               RETURN
    15886                            *
    15887                            *
    15888                            *
    15889   03 02E20    32600154 A   SELECTUP LW,6     SELTEMP           LOAD PARTIAL INDEX
    15890   03 02E21    30600005 A            AW,6     5                 ADD ADDITIONAL INDEX
    15891   03 02E22    C980000F A            OR,8     *15               SET ERROR BIT IN ERROR DISCRIPTOR
    15892   03 02E23    33000155 A            MTW,0    SELPASS
    15893   03 02E24    E932000F A            BNEZ     *15,1
    15894   03 02E25    35100156 A            STW,1    SELMANY
    15895   03 02E26    D31C024C A            MTH,1    *SECTSHOT,6       UPDATE TYPE OF ERROR FOR THIS SECTOR
    15896   03 02E27    D31A024D A            MTH,1    *TOTLSHOT,5       UPDATE TOTAL OF THIS ERROR
    15897   03 02E28    E802000F A            B        *15,1             RETURN
    15898                            *
    15899                            *
    15900                            *
    15901         03 015BF           #MSNSEFT EQU      :SNSWORD
    15902                                     PAGE
    15903                            *
    15904                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
    15905                            *
    15906                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
    15907                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
    15908                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
    15909                            *
    15910                            *       INPUT PARAMETERS:
    15911                            *
    15912                            *
    15913                            *
    15914                            *               <<CALLING SEQUENCE >>
    15915                            *
    15916                            *        BAL,15   (NAME OF SEQUENCE DESIRED; :SIO  :TIO  :HIO :TDV,:AIO)
    15917                            *        DATA     (MASK 0=MASK OUT BIT POSITION, 1=SAVE BIT POSITION
    15918                            *       *              FOR BIT POSITIONS 0-17
    15919                            *       *              BIT POSITION 30 = COMPARE DEV-ADDR <AIO ONLY>
    15920                            *       *              BIT POSITION 31 = IF 1 INHIBIT PRINTING)
    15921                            *        DATA     (EXPECTED STATUS BIT POSITIONS 0-15
    15922                            *       *         (EXPECTED CONDITION CODES 16,17)
    15923                            *        B        (RETURNS HERE IF NO ERROR)
    15924                            *                 (RETURNS HERE IF THERE WAS AN ERROR)
    15925                            *
    15926                            *
    15927                            *
    15928                            *       REGISTERS DISTURBED:
    15929                            *
    15930                            *                 14
    15931                            *
    15932                            *       OUTPUT PARAMETERS:
    15933                            *
    15934                            *         NORMAL EXIT-RETURN ADDRESS
    15935                            *
    15936                            *                 I S S U E  S I O
    15937                            *
    15938   03 02E29    CCC002BF A   :SIO     SIO,12   *:DEVADDR         ISSUE SIO
    15939   03 02E2A    35D002D2 A            STW,13   :STATUSCC         SAVE STATUS
    15940   03 02E2B    740402D2 A            STCF     :STATUSCC,2       SAVE CONDITION CODES
    15941   03 02E2C    22E00000 A   :SIO1    LI,14    0                 LOAD TYPE OF OPERATION
    15942   03 02E2D    68002E42              B        :STATEST          GO TEST STATUS & CONDITION CODES
    15943                            *
    15944                            *                 I S S U E  T I O
    15945                            *
    15946   03 02E2E    CDC002BF A   :TIO     TIO,12   *:DEVADDR         ISSUE TIO
    15947   03 02E2F    35D002D2 A            STW,13   :STATUSCC         SAVE STATUS
    15948   03 02E30    740402D2 A            STCF     :STATUSCC,2       SAVE CONDITION CODES
    15949   03 02E31    22E00001 A   :TIO1    LI,14    1                 LOAD TYPE OF OPERATION
    15950   03 02E32    68002E42              B        :STATEST          GO TEST STATUS & CONDITION CODES
    15951                            *
    15952                            *                 I S S U E  H I O
    15953                            *
    15954   03 02E33    CFC002BF A   :HIO     HIO,12   *:DEVADDR         ISSUE HIO
    15955   03 02E34    35D002D2 A            STW,13   :STATUSCC         SAVE STATUS
    15956   03 02E35    740402D2 A            STCF     :STATUSCC,2       SAVE CONDITION CODES
    15957   03 02E36    22E00003 A   :HIO1    LI,14    3                 LOAD TYPE OF OPERATION
    15958   03 02E37    68002E42              B        :STATEST          GO TEST STATUS & CONDITION CODES
    15959                            *
    15960                            *                 I S S U E  T D V
    15961                            *
    15962   03 02E38    CEC002BF A   :TDV     TDV,12   *:DEVADDR         ISSUE TDV
    15963   03 02E39    35D002D2 A            STW,13   :STATUSCC         SAVE STATUS
    15964   03 02E3A    740402D2 A            STCF     :STATUSCC,2       SAVE CONDITION CODES
    15965   03 02E3B    22E00002 A   :TDV1    LI,14    2                 LOAD TYPE OF OPERATION
    15966   03 02E3C    68002E42              B        :STATEST          GO TEST STATUS & CONDITION CODES
    15967                            *
    15968                            *                 I S S U E  A I O
    15969                            *
    15970   03 02E3D    6ED00000 A   :AIO     AIO,13   0                 ISSUE AIO
    15971   03 02E3E    35D002D2 A            STW,13   :STATUSCC         SAVE STATUS
    15972   03 02E3F    740402D2 A            STCF     :STATUSCC,2       SAVE CONDITION CODES
    15973   03 02E40    22E00006 A   :AIO1    LI,14    6                 LOAD TYPE OF OPERATION
    15974   03 02E41    68002E42              B        :STATEST          GO TEST STATUS & CONDITION CODES
    15975                            *
    15976                            *
    15977                            *                 T E S T  F O R  A N Y  E R R O R S
    15978                            *
    15979                            *
    15980   03 02E42    35E002D1 A   :STATEST STW,14   :TYPE             SAVE TYPE OF I/O OPERATION
    15981   03 02E43    35F002D0 A            STW,15   :IORTN
    15982   03 02E44    B2E002D0 A            LW,14    *:IORTN           FETCH MASK
    15983   03 02E45    B2F202D0 A            LW,15    *:IORTN,1         FETCH EXPECTED STATUS
    15984   03 02E46    21E00004 A            CI,14    4                 TEST:PRINT
    15985   03 02E47    69402E55              BCS,4    :CCTEST1              COMPARE MESSAGE FLAG
    15986   03 02E48    4BE03055              AND,14   L(X'FFFFE000')    MASKOUT; PRINT INHIBIT & DEV AD
    15987   03 02E49    4BF0000E A            AND,15   14                MASK EXPECTED STATUS
    15988   03 02E4A    4BE002D2 A            AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
    15989   03 02E4B    31E0000F A            CW,14    15                COMPARE RECEIVED AND EXPECTED STATUS
    15990   03 02E4C    69302E53              BNE      :CCTEST           IF ERROR GO TEST CONDITION CODES
    15991   03 02E4D    B12002D0 A            CW,2     *:IORTN           IS THIS A TEST OF DEV ADDR
    15992   03 02E4E    E84402D0 A            BAZ      *:IORTN,2         IF NOT RETURN
    15993   03 02E4F    32E0000D A            LW,14    13                LOAD RECEIVED STATUS
    15994   03 02E50    4BE03044              AND,14   =X'1FFF'          MASKOUT ALL BUT DEVICE ADDR BITS
    15995   03 02E51    31E002BF A            CW,14    :DEVADDR          COMPARE WITH EXPECTED DEV ADDR
    15996   03 02E52    E83402D0 A            BE       *:IORTN,2         IF EQUAL RETURN
    15997                            *
    15998                            *
    15999                            *
    16000   03 02E53    B11002D0 A   :CCTEST  CW,1     *:IORTN           TEST PRINT INHIBIT BIT
    16001   03 02E54    E94602D0 A            BANZ     *:IORTN,3         IF SET TAKE ERROR RETURN
    16002                            :CCTEST1 ;
    16003   03 02E55    15400142 A            STD,4    :REG0405          SAVE REGISTERS 4 & 5
    16004   03 02E56    15C00144 A            STD,12   :REG1213          SAVE REGISTERS 12 & 13
    16005   03 02E57    703402D2 A            LCF      :STATUSCC,2       LOAD CONDITION CODES
    16006   03 02E58    324002D1 A            LW,4     :TYPE             LOAD TYPE OF I/O OPERATION
    16007   03 02E59    22500000 A            LI,5     0                 ZERO CC3,4
    16008   03 02E5A    68C02E68              BCR,12   :DEVADER          CC1,2 = 0,0
    16009   03 02E5B    68802E5E              BCR,8    :CCERR1           CC1,2 = 0,1
    16010   03 02E5C    68402E63              BCR,4    :CCERR2           CC1,2 = 1,0
    16011   03 02E5D    68002E74              B        :CCERR3           CC1,2 = 1,1
    16012                            *
    16013                            *                 C C 1 , 2  =  0 , 1
    16014                            *
    16015   03 02E5E    32582E9C     :CCERR1  LW,5     :ERRADR1,4        LOAD ADDRESS OF MSG
    16016   03 02E5F    35502E61              STW,5    %+2               SAVE ADDRESS OF MSG
    16017   03 02E60    6AF00AA5              BAL,15   MSGOUT            PRINT: I/O CC = 0,1
    16018   03 02E61    00000000 A            DATA     0
    16019   03 02E62    68002E68              B        :DEVADER          GO TO TEST DEV ADDR
    16020                            *
    16021                            *                 C C 1 , 2  =  1 , 0
    16022                            *
    16023   03 02E63    32582EA4     :CCERR2  LW,5     :ERRADR2,4        LOAD ADDRESS OF MSG
    16024   03 02E64    35502E66              STW,5    %+2               SAVE ADDRESS OF MSG
    16025   03 02E65    6AF00AA5              BAL,15   MSGOUT            PRINT: I/O CC = 1,0
    16026   03 02E66    00000000 A            DATA     0
    16027   03 02E67    68002E78              B        :STATERR
    16028                            *
    16029                            *                 R E P O R T  D E V - A D D R  I F  I T  E X I S T S
    16030                            *
    16031   03 02E68    21400006 A   :DEVADER CI,4     6
    16032   03 02E69    69302E78              BNE      :STATERR              IF NOT,GO TEST STATUS
    16033   03 02E6A    32C0000D A            LW,12    13                LOAD DEVICE ADDRESS
    16034   03 02E6B    4BC03044              AND,12   =X'1FFF'          MASK OUT DEVICE ADDR BITS
    16035   03 02E6C    31C002BF A            CW,12    :DEVADDR          IS IT = TO EXPECTED ADDRESS
    16036   03 02E6D    68302E78              BE       :STATERR              GO TO TEST STATUS
    16037   03 02E6E    35C006C6              STW,12   VHEX4A            SET UP RECEIVED I/O ADDR
    16038   03 02E6F    6AF00AA5              BAL,15   MSGOUT            PRINT: 'AIO I/O ADDR ERROR----'
    16039   03 02E70    00001DD1              DATA     BA(:DAERM)
    16040   03 02E71    12400142 A   :DEVEXIT LD,4     :REG0405          RESTORE REG 4 & 5
    16041   03 02E72    12C00144 A            LD,12    :REG1213          RESTORE REG 12 & 13
    16042   03 02E73    E80602D0 A            B        *:IORTN,3         TAKE ERROR RETURN
    16043                            *
    16044                            *                 C C 1, 2  =  1 , 1
    16045                            *
    16046   03 02E74    32582EAC     :CCERR3  LW,5     :ERRADR3,4        LOAD ERROR MSG ADDRESS
    16047   03 02E75    35502E77              STW,5    :CCPRINT          SAVE ADDRESS OF MESSAGE TO BE PRINTED
    16048   03 02E76    6AF00AA5              BAL,15   MSGOUT            PRINT: NOT POSSIBLE
    16049   03 02E77    00000000 A   :CCPRINT DATA     0
    16050                            *
    16051                            *                 R E P O R T  S T A T U S  E R R O R  I F  P R E S E NT
    16052                            *
    16053   03 02E78    B2E002D0 A   :STATERR LW,14    *:IORTN           FETCH MASK
    16054   03 02E79    B2F202D0 A            LW,15    *:IORTN,1         FETCH EXPECTED STATUS
    16055   03 02E7A    21E00004 A            CI,14    4                 TEST: PRINT
    16056   03 02E7B    69402E81              BCS,4    :STATER3              COMPARE MESSAGE FLAG
    16057   03 02E7C    4BE03041              AND,14   L(X'FFFF0000')    SAVE ONLY STATUS
    16058   03 02E7D    4BF0000E A            AND,15   14                MASK TO EXPECTED CONDITIONS
    16059   03 02E7E    4BE002D2 A            AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
    16060   03 02E7F    31E0000F A            CW,14    15                ARE THEY EQUAL
    16061   03 02E80    68302E71              BE       :DEVEXIT              IF TAKE ERROR EXIT
    16062                            :STATER3 ;
    16063   03 02E81    12E82EB4              LD,14    :STATTYP,4        LOAD AND SAVE
    16064   03 02E82    15E02EC4              STD,14   :STATEM1              TYPE OF OPERATION
    16065   03 02E83    EAF0021C A            BAL,15   *:PRINT           PRINT STATUS ERROR HEADER MSG
    16066   03 02E84    00002EC4              DATA     :STATEM1
    16067   03 02E85    352002CF A            STW,2    :STATLOOP         SET UP LOOP
    16068   03 02E86    B2C202D0 A            LW,12    *:IORTN,1         LOAD EXP DATA
    16069   03 02E87    B2D002D0 A            LW,13    *:IORTN           LOAD MASK
    16070   03 02E88    68002E8D              B        :STATER2          GO PRINT EXPECTED CONDITIONS
    16071                            *
    16072                            *
    16073   03 02E89    32C002D2 A   :STATER1 LW,12    :STATUSCC         LOAD CC'S AND STATUS
    16074   03 02E8A    22DFFFFF A            LI,13    -1                SET VP MASK
    16075   03 02E8B    6AF00AA5              BAL,15   MSGOUT
    16076   03 02E8C    00001DD9              DATA     BA(:STATEM2)      PRINT: 'EXP  XXXX XXXX --- '
    16077   03 02E8D    25C00373 A   :STATER2 SCD,12   -13               POSITION OBS AND MASK
    16078   03 02E8E    75C62ED2              STB,12   :STATEM5+1,3      SET UP CC'S
    16079   03 02E8F    75D62ED3              STB,13   :STATEM5+2,3      SET UP CC'S
    16080   03 02E90    25C0037D A            SCD,12   -3                POSITION STATUS
    16081   03 02E91    55C22ECF              STH,12   :STATEM4+1,1      SAVE STATUS
    16082   03 02E92    55D22ED0              STH,13   :STATEM4+2,1      SAVE STATUS
    16083   03 02E93    22C02ECE              LI,12    :STATEM4          LOAD AND
    16084   03 02E94    35C006D5              STW,12   VBINFA                SAVE LINKAGE
    16085   03 02E95    22C02ED1              LI,12    :STATEM5          LOAD AND
    16086   03 02E96    35C006D6              STW,12   VBINFB                SAVE LINKAGE
    16087   03 02E97    33F002CF A            MTW,-1   :STATLOOP         UPDATE LOOP COUNT
    16088   03 02E98    69302E89              BNEZ     :STATER1          IF NOT ZERO LOOP
    16089   03 02E99    6AF00AA5              BAL,15   MSGOUT            PRINT: 'OBS XXXX XXXX ---- '
    16090   03 02E9A    00001DE0              DATA     BA(:STATEM3)
    16091   03 02E9B    68002E71              B        :DEVEXIT          GO TO EXIT
    16092   03 02E9C    00001DA7     :ERRADR1 DATA     BA(CCERM1)
    16093   03 02E9D    00001DAB              DATA     BA(CCERM2)
    16094   03 02E9E    00001DB6              DATA     BA(CCERM4)        TDV
    16095   03 02E9F    00001DB0              DATA     BA(CCERM3)        HIO
    16096   03 02EA0    00001DC9              DATA     BA(CCERM8)        RIO
    16097   03 02EA1    00001DC9              DATA     BA(CCERM8)        PLOP
    16098   03 02EA2    00001DBC              DATA     BA(CCERM5)        AIO
    16099   03 02EA3    00001DC9              DATA     BA(CCERM8)        PLOR
    16100                            *
    16101                            *
    16102   03 02EA4    00001DC1     :ERRADR2 DATA     BA(CCERM6)
    16103   03 02EA5    00001DC5              DATA     BA(CCERM7)
    16104   03 02EA6    00001DCB              DATA     BA(CCERM9)        TDV
    16105   03 02EA7    00001DC9              DATA     BA(CCERM8)        HIO
    16106   03 02EA8    00001DC9              DATA     BA(CCERM8)        AIO
    16107   03 02EA9    00001DC9              DATA     BA(CCERM8)        PLOP
    16108   03 02EAA    00001DC9              DATA     BA(CCERM8)        AIO
    16109   03 02EAB    00001DC9              DATA     BA(CCERM8)        PLOR
    16110                            *
    16111                            *
    16112   03 02EAC    00001D6C     :ERRADR3 DATA     BA(MX0001)
    16113   03 02EAD    00001D71              DATA     BA(MX0002)
    16114   03 02EAE    00001D80              DATA     BA(MX0005)
    16115   03 02EAF    00001D76              DATA     BA(MX0003)        HIO
    16116   03 02EB0    00001D85              DATA     BA(MX0006)        RIO
    16117   03 02EB1    00001D8A              DATA     BA(MX0007)        PLOP
    16118   03 02EB2    00001D7B              DATA     BA(MX0004)
    16119   03 02EB3    00001D8F              DATA     BA(MX0008)        PLOR
    16120                                     BOUND    8
    16121   03 02EB4    26E2C9D6 A   :STATTYP DATA     X'26E2C9D6'       SIO
    16122   03 02EB5    4040C9D5 A            DATA     X'4040C9D5'
    16123   03 02EB6    26E3C9D6 A            DATA     X'26E3C9D6'       TIO
    16124   03 02EB7    4040C9D5 A            DATA     X'4040C9D5'
    16125   03 02EB8    26E3C4E5 A            DATA     X'26E3C4E5'       TDV
    16126   03 02EB9    4040C9D5 A            DATA     X'4040C9D5'
    16127   03 02EBA    26C8C9D6 A            DATA     X'26C8C9D6'       HIO
    16128   03 02EBB    4040C9D5 A            DATA     X'4040C9D5'
    16129   03 02EBC    26D9C9D6 A            DATA     X'26D9C9D6'       RIO
    16130   03 02EBD    4040C9D5 A            DATA     X'4040C9D5'
    16131   03 02EBE    26D7D3D6 A            DATA     X'26D7D3D6'       PLOP
    16132   03 02EBF    D740C9D5 A            DATA     X'D740C9D5'
    16133   03 02EC0    26C1C9D6 A            DATA     X'26C1C9D6'       AIO
    16134   03 02EC1    4040C9D5 A            DATA     X'4040C9D5'
    16135   03 02EC2    26D7D3D6 A            DATA     X'26D7D3D6'       PLOR
    16136   03 02EC3    D940C9D5 A            DATA     X'D940C9D5'
    16137                            :STATEM1 TEXTC    ;
    16138   03 02EC4    26404040 A    '       STR 0123 4567 8901 2345 CC1,2,3'
            03 02EC5    40404040 A
            03 02EC6    E2E3D940 A
            03 02EC7    F0F1F2F3 A
            03 02EC8    40F4F5F6 A
            03 02EC9    F740F8F9 A
            03 02ECA    F0F140F2 A
            03 02ECB    F3F4F540 A
            03 02ECC    C3C3F16B A
            03 02ECD    F26BF340 A
    16139   03 02ECE    00100401 A   :STATEM4 DATA     X'00100401'
    16140   03 02ECF    00000000 A            DATA     0
    16141   03 02ED0    00000000 A            DATA     0
    16142   03 02ED1    02030101 A   :STATEM5 DATA     X'02030101'
    16143   03 02ED2    00000000 A            DATA     0
    16144   03 02ED3    00000000 A            DATA     0
    16145                                     PAGE
    16146                            *
    16147                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
    16148                            *
    16149                            *                 THE ALGORITHM
    16150                            *
    16151                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
    16152                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
    16153                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
    16154                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
    16155                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
    16156                            *
    16157                            *                 THE PROCEDURE
    16158                            *
    16159                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
    16160                            *
    16161                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
    16162                            *                 FOUND IN REGISTER-14.
    16163                            *
    16164                            *        OPTION-1 CALLING SEQUENCE
    16165                            *
    16166                            *        BAL,15   :RANDOMX
    16167                            *
    16168                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
    16169                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
    16170                            *
    16171                            *        OPTION-2 CALLING SEQUENCE
    16172                            *
    16173                            *        LW,14    :SEED             SEED IN REGISTER-14.
    16174                            *        BAL,15   :RANDOM
    16175                            *
    16176                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
    16177                            *
    16178                            *        OPTION-3 CALLING SEQUENCE
    16179                            *
    16180                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
    16181                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
    16182                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
    16183                            *        BAL,15   :RANDOMY
    16184                            *
    16185                            *
    16186   03 02ED4    35C02EE2     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
    16187   03 02ED5    35D02EE3              STW,13   :M2               SAVE PARAMETERS
    16188                            *
    16189   03 02ED6    35E02EE4     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
    16190                            *
    16191   03 02ED7    33102EE2     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
    16192   03 02ED8    68302EDA              BCR,3    %+2               TEST, M1 + 1 = 0
    16193   03 02ED9    33F02EE3              MTW,-1   :M2               NO, M2 = M2 - 1
    16194   03 02EDA    32E02EE4              LW,14    :SEED
    16195   03 02EDB    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
    16196   03 02EDC    30E02EE5              AW,14    :K                ADD CONSTANT :K
    16197   03 02EDD    48E02EE2              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
    16198   03 02EDE    48E02EE3              EOR,14   :M2               M(SEED) (+) M1 (+) M2
    16199   03 02EDF    35E02EE4              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
    16200   03 02EE0    E800000F A            B        *15
    16201                            *
    16202                            *
    16203                            *
    16204                            *
    16205                                     BOUND    8
    16206   03 02EE2    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
    16207   03 02EE3    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
    16208   03 02EE4    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
    16209   03 02EE5    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
    16210                                     PAGE
    16211                            *
    16212                            *                   *** C O M P A R E ***
    16213                            *
    16214                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
    16215                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
    16216                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
    16217                            *    UNEQUAL COMPARES SENSED.
    16218                            *
    16219                            *       INPUT PARAMETERS:
    16220                            *
    16221                            *           REG 15  -RETURN ADDRESS
    16222                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
    16223                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
    16224                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
    16225                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
    16226                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
    16227                            *
    16228                            *       REGISTERS DISTURBED:
    16229                            *
    16230                            *           (NONE)
    16231                            *
    16232                            *       OUTPUT PARAMETERS:
    16233                            *
    16234                            *           NORMAL EXIT-RETURN ADDRESS
    16235                            *           ERROR EXIT -RETURN ADDRESS +1
    16236                            *           :COMERRT   -COUNT OF COMPARE ERRORS
    16237                            *
    16238   03 02EE6    22700000 A   :COMPARE LI,7     0                 ZERO
    16239   03 02EE7    3570014E A            STW,7    :COMERRT             COMPARE ERROR COUNT
    16240   03 02EE8    35700153 A            STW,7    :COMADDR          ADDRESS IN ERROR
    16241   03 02EE9    357015BF              STW,7    #MSNSEFT          FAILING TRACK
    16242   03 02EEA    68002EEC              B        :PATTERN+1        GO SET UP
    16243                            *
    16244                            *
    16245                                     PAGE
    16246                            *                *** PATTERN SPREAD ***
    16247                            *
    16248                            * THE PATTERN SPREAD SUBROUTINE SPREADS A WORD PATTERN ACCORDING TO
    16249                            *  THE TYPE SPECIFIED.
    16250                            *
    16251                            *             TYPE 0 - SPREAD WORD PATTERN
    16252                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
    16253                            *             TYPE 2 - SPREAD RANDOM PATTERN
    16254                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
    16255                            *             TYPE 4 - SPREAD 3-WORD PATTERN
    16256                            *
    16257                            *       INPUT PARAMETERS:
    16258                            *
    16259                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
    16260                            *                     WORD 1 - TYPE (0-4)
    16261                            *                     WORD 2 - PATTERN (TYPE 0,1)
    16262                            *                              RANDOM GENERATOR SEED (TYPE 2)
    16263                            *                              WA(PATTERN) (TYPE 3,4)
    16264                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
    16265                            *                              INCREMENT (TYPE 1)
    16266                            *
    16267                            *           :PATWC  - PATTERN WORD COUNT
    16268                            *           :PATBFR - WA(BUFFER)
    16269                            *
    16270                            *       REGISTERS DISTURBED:
    16271                            *
    16272                            *           (NONE)
    16273                            *
    16274                            *       OUTPUT PARAMETERS:
    16275                            *
    16276                            *           (NONE)
    16277                            *
    16278   03 02EEB    22700007 A   :PATTERN LI,7     :COMEND-:COMROUT
    16279   03 02EEC    307002EE A            AW,7     :PATID            ADD NO. OF PAT. TO BE EXECUTED
    16280   03 02EED    2170001C A            CI,7     4*(:COMEND-:COMROUT)    IF TO BIG
    16281   03 02EEE    68202EF0              BLE      %+2
    16282   03 02EEF    6AF00D5B              BAL,15   TILT
    16283   03 02EF0    35F00152 A            STW,15   :COMPXT           SAVE RTN ADR
    16284   03 02EF1    3A6002CC A            LCW,6    :COMWCNT          LOAD NO. OF WORD IN PATTERN
    16285   03 02EF2    311002CB A            CW,1     :COMBFRB          TEST FOR DOUBLE WORD BOUNDARY
    16286   03 02EF3    69402EF8              BCS,4    %+5                  IF NOT BRANCH
    16287   03 02EF4    311002CC A            CW,1     :COMWCNT          TEST FOR DOUBLEWORD
    16288   03 02EF5    69402EF8              BCS,4    %+3
    16289   03 02EF6    2070000E A            AI,7     2*(:COMEND-:COMROUT)
    16290   03 02EF7    2560047F A            SAS,6    -1
    16291   03 02EF8    32F002CB A            LW,15    :COMBFRB          LOAD START ADDR OF PATTERN
    16292   03 02EF9    30F002CC A            AW,15    :COMWCNT          ADD LENGTH OF PATTERN
    16293   03 02EFA    35F0014F A            STW,15   :BUFTOP           SAVE AS TOP OF PATTERN
    16294   03 02EFB    32E002EF A            LW,14    :PATID+1          LOAD PATTERN SEED
    16295   03 02EFC    32F002EF A            LW,15    :PATID+1          LOAD PATTERN SEED
    16296   03 02EFD    327E2EFF              LW,7     :COMROUT,7
    16297   03 02EFE    E8000007 A            B        *7                GO DO TEST
    16298                            *
    16299                            *
    16300                            *
    16301         03 02EFF           :COMROUT SET      %
    16302   03 02EFF    00002F64              DATA     :COM00Y
    16303   03 02F00    00002F66              DATA     :COM01Z
    16304   03 02F01    00002F6E              DATA     :COM02
    16305   03 02F02    00002F62              DATA     :COM03W
    16306   03 02F03    00002FB7              DATA     :COM04
    16307   03 02F04    00002FB8              DATA     :COM05
    16308   03 02F05    00002F9F              DATA     :COM06            NO SUCH PATTERN
    16309         03 02F06           :COMEND  SET      %
    16310   03 02F06    00002F21              DATA     :PAT0W
    16311   03 02F07    00002F23              DATA     :PAT1W
    16312   03 02F08    00002F28              DATA     :PAT2
    16313   03 02F09    00002F20              DATA     :PAT3W
    16314   03 02F0A    00002F4E              DATA     :PAT4
    16315   03 02F0B    00002F4F              DATA     :PAT5
    16316   03 02F0C    00002F54              DATA     :PAT6
    16317   03 02F0D    00002FB2              DATA     :COM00            COMPARE FIXED PATTERN
    16318   03 02F0E    00002F66              DATA     :COM01Z           COMPARE INCREMENTING PATTERN
    16319   03 02F0F    00002F6E              DATA     :COM02            COMPARE RANDOM PATTERN
    16320   03 02F10    00002FB0              DATA     :COM03            COMPARE SEEK ADDRESS PATTERN
    16321   03 02F11    00002FB7              DATA     :COM04
    16322   03 02F12    00002FB8              DATA     :COM05            COMPARE SHIFTY PATTERN
    16323   03 02F13    00002F9F              DATA     :COM06
    16324   03 02F14    00002F4B              DATA     :PAT0             BUILD FIXED PATTERN
    16325   03 02F15    00002F23              DATA     :PAT1W            BUILD INCREMENTING PATTERN
    16326   03 02F16    00002F28              DATA     :PAT2             BUILD RANDOM PATTERN
    16327   03 02F17    00002F4A              DATA     :PAT3             BUILD SEEK ADDRESS PATTERN
    16328   03 02F18    00002F4E              DATA     :PAT4
    16329   03 02F19    00002F4F              DATA     :PAT5             BUILD SHIFTY PATTERN
    16330   03 02F1A    00002F54              DATA     :PAT6
    16331                            *
    16332                            *                 SPREAD INCREMENTING PATTERN
    16333                            *
    16334   03 02F1B    30F002F0 A   :PAT1    AW,15    :PATID+2          ADD INCREMENTAL CONSTANT
    16335   03 02F1C    95EC014F A            STD,14   *:BUFTOP,6        STORE VALUE
    16336   03 02F1D    30E002F0 A            AW,14    :PATID+2          ADD INCREMENTAL CONSTANT
    16337   03 02F1E    65602F1B              BIR,6    :PAT1             LOOP
    16338   03 02F1F    E8000152 A            B        *:COMPXT          RTN TO CALLING ROUTINE
    16339                            *
    16340                            *
    16341   03 02F20    6AF02FF6     :PAT3W   BAL,15   SEEKTRUE          GO GET SEEK ADDR
    16342   03 02F21    22F00000 A   :PAT0W   LI,15    0                 ZERO
    16343   03 02F22    35F002F0 A            STW,15   :PATID+2             INCREMENT COUNT
    16344   03 02F23    3A6002CC A   :PAT1W   LCW,6    :COMWCNT          SAVE RESULTS
    16345   03 02F24    B5EC014F A            STW,14   *:BUFTOP,6
    16346   03 02F25    30E002F0 A            AW,14    :PATID+2          UPDATE PATTERN
    16347   03 02F26    65602F24              BIR,6    %-2               COUNTINUE
    16348   03 02F27    E8000152 A            B        *:COMPXT          EXIT
    16349                            *
    16350                            *                 BUILD RANDOM PATTERN
    16351                            *
    16352                            :PAT2 ;
    16353   03 02F28    32703001              LW,7      M1               LOAD PI
    16354   03 02F29    157002EC A            STD,7    :PK               SET RANDOM CONSTANT
    16355   03 02F2A    327002CB A            LW,7     :COMBFRB          LOAD BUFFER STARTING ADDR
    16356   03 02F2B    38700006 A            SW,7     6                 FIND START OF 2ND HALF OF BUFF.
    16357   03 02F2C    35700150 A            STW,7    :COMIDPT          SET UP
    16358   03 02F2D    21600001 A            CI,6     1                 TEST OF LSB = 1
    16359   03 02F2E    68402F38              BCR,4    :PAT2HS           GO TO HIGH SPEED ROUTINE
    16360                            *
    16361   03 02F2F    B5EC0150 A   RDPAT1   STW,14   *:COMIDPT,6       SAVE RANDOM NO.
    16362   03 02F30    48E03096              EOR,14   =-1               TAKE ONES COMPLEMENT
    16363   03 02F31    B5EC014F A            STW,14   *:BUFTOP,6        SAVE ONES COMPLEMENT RANDOM NO.
    16364   03 02F32    25E00007 A            SLS,14   7                 CALCULATE
    16365   03 02F33    B8EC014F A            SW,14    *:BUFTOP,6            NEW
    16366   03 02F34    46E002EC A            XW,14    :PK                   RANDOM
    16367   03 02F35    30E002EC A            AW,14    :PK                   NO.
    16368   03 02F36    65602F2F              BIR,6    RDPAT1            LOOP
    16369   03 02F37    68002F44              B        RDPAT2            GO SET UP SEEK ADDR
    16370   03 02F38    2560047F A   :PAT2HS  SAS,6    -1                CALCULATE DOUBLEWORD INDEX
    16371   03 02F39    30F002EC A            AW,15    :PK               MAKE IT TRULY RANDOM
    16372   03 02F3A    95EC0150 A   :PAT2HS1 STD,14   *:COMIDPT,6       SAVE RANDOM DOUBLEWORD
    16373   03 02F3B    48E03096              EOR,14   =-1               TAKE ONES COMPLEMENT
    16374   03 02F3C    48F03096              EOR,15   =-1               TAKE ONES COMPLEMENT
    16375   03 02F3D    95EC014F A            STD,14   *:BUFTOP,6        SAVE RAND COMPLEMENT DOUBLEWORD
    16376   03 02F3E    25E00107 A            SLD,14   7                 POSITION NO.
    16377   03 02F3F    98EC014F A            SD,14    *:BUFTOP,6        CALCULATE
    16378   03 02F40    46E002EC A            XW,14    :PK                   NEW
    16379   03 02F41    46F002ED A            XW,15    :PK+1                 RANDOM
    16380   03 02F42    10E002EC A            AD,14    :PK                   NUMBER
    16381   03 02F43    65602F3A              BIR,6    :PAT2HS1          LOOP
    16382   03 02F44    35E002EF A   RDPAT2   STW,14   :PATID+1          SAVE RANDOM SEED
    16383   03 02F45    6AF02FF6              BAL,15   SEEKTRUE          GO CALCULATE TRUE SEEK ADDR
    16384   03 02F46    B5E402CB A            STW,14   *:COMBFRB,2       INSERT IT INTO THE PATTERN
    16385   03 02F47    48E03096              EOR,14   =-1               TAKE ONES COMPLEMENT
    16386   03 02F48    B5E40150 A            STW,14   *:COMIDPT,2       INSERT IT INTO THE PATTERN
    16387   03 02F49    E8000152 A            B        *:COMPXT          RTN TO CALLING ROUTINE
    16388                            *
    16389                            *                 BUILD SEEK ADDRESS PATTERN
    16390                            *
    16391   03 02F4A    6AF02FF6     :PAT3    BAL,15   SEEKTRUE          CONVERT TO TRUE SEEK ADDR
    16392   03 02F4B    95EC014F A   :PAT0    STD,14   *:BUFTOP,6        STORE VALUE IN PATTERN
    16393   03 02F4C    65602F4B              BIR,6    :PAT0             LOOP
    16394   03 02F4D    E8000152 A            B        *:COMPXT          RTN TO CALLING ROUTINE
    16395                            *
    16396                            *                 NON-ALLOWED PATTERN
    16397                            *
    16398   03 02F4E    6AF00D5B     :PAT4    BAL,15   TILT
    16399                            *
    16400                            *                 BUILD SHIFTY PATTERN
    16401                            *
    16402   03 02F4F    3A6002CC A   :PAT5    LCW,6    :COMWCNT
    16403   03 02F50    B5EC014F A            STW,14   *:BUFTOP,6        STORE VALUE IN PATTERN
    16404   03 02F51    A5E002F0 A            SCS,14   *:PATID+2         POSITION FOR NEW PATTERN
    16405   03 02F52    65602F50              BIR,6    %-2               LOOP
    16406   03 02F53    E8000152 A            B        *:COMPXT          RTN TO CALLING ROUTINE
    16407                            *
    16408                            *
    16409   03 02F54    3A6002CC A   :PAT6    LCW,6    :COMWCNT
    16410   03 02F55    02200040 A   :PAT62   LCI      4
    16411   03 02F56    AA8002EF A            LM,8     *:PATID+1         LOAD PATTERN
    16412   03 02F57    AB8C014F A            STM,8    *:BUFTOP,6
    16413   03 02F58    20600004 A            AI,6     4
    16414   03 02F59    68202F55              BLE      :PAT62
    16415   03 02F5A    E8000152 A            B        *:COMPXT
    16416                            *                 COMPARE INCREMENTING PATTERN
    16417                            *
    16418                            *
    16419                            *
    16420   03 02F5B    30F002F0 A   :COM01   AW,15    :PATID+2          ADD INCREMENTAL CONSTANT
    16421   03 02F5C    91EC014F A            CD,14    *:BUFTOP,6        COMPARE PATTERN
    16422   03 02F5D    68302F5F              BE       %+2               IF GOOD CONTINUE
    16423   03 02F5E    68002F66              B        :COM01Z              OTHERWISE ERROR EXIT
    16424   03 02F5F    30E002F0 A            AW,14    :PATID+2          ADD INCREMENTAL CONSTANT
    16425   03 02F60    65602F5B              BIR,6    :COM01            LOOP
    16426   03 02F61    68002F96              B        :COMRTN           GO CHECK FOR ERRORS
    16427                            *
    16428                            *
    16429   03 02F62    6AF02FF6     :COM03W  BAL,15   SEEKTRUE          GO GET SEEK ADDRESS
    16430   03 02F63    35E002EF A            STW,14   :PATID+1
    16431   03 02F64    22F00000 A   :COM00Y  LI,15    0                 ZERO
    16432   03 02F65    35F002F0 A            STW,15   :PATID+2             INCREMENTIAL CONSTANT
    16433   03 02F66    3A6002CC A   :COM01Z  LCW,6    :COMWCNT          LOAD WORD COUNT
    16434   03 02F67    32E002EF A            LW,14    :PATID+1          SET UP SEED AGAIN
    16435                            *
    16436                            *
    16437   03 02F68    B1EC014F A   :COM01X  CW,14    *:BUFTOP,6        COMPARE PATTERN
    16438   03 02F69    68302F6B              BE       %+2               IF GOOD CONTINUE
    16439   03 02F6A    6AF02FBF              BAL,15   :COM1             GO REPORT ERROR
    16440   03 02F6B    30E002F0 A            AW,14    :PATID+2          ADD INCREMENTING CONSTANT
    16441   03 02F6C    65602F68              BIR,6    :COM01X           LOOP
    16442   03 02F6D    68002F96              B        :COMRTN           GO CHECK FOR ERRORS
    16443                            *
    16444                            *                 COMPARE RANDOM PATTERN
    16445                            *
    16446   03 02F6E    3AF00006 A   :COM02   LCW,15   6                 LOAD PATTERN COUNT
    16447   03 02F6F    21F00001 A            CI,15    1
    16448   03 02F70    69402F88              BCS,4    :COM021
    16449   03 02F71    25F0007F A            SLS,15   -1
    16450   03 02F72    22E00000 A            LI,14    0                 ZERO UP PART OF DOUBLEWORD
    16451   03 02F73    90EC014F A            AD,14    *:BUFTOP,6        ADD FROM PATTERN
    16452   03 02F74    65602F73              BIR,6    %-1               LOOP
    16453   03 02F75    69302F88              BNEZ     :COM021           IF NOT ZERO,ERROR
    16454                            *
    16455                            *                 TEST SEEK ADDRESS FROM RANDOM PATTERN
    16456                            *
    16457   03 02F76    6AF02FF6     COM02ADR BAL,15   SEEKTRUE          CONVRT TO DEV. TRACK/SECTOR ADDR
    16458   03 02F77    B1E402CB A            CW,14    *:COMBFRB,2       COMPARE WITH T-S FROM PATTERN
    16459   03 02F78    E8300152 A            BE       *:COMPXT            IF = RTN TO CALLING ROUTINE
    16460   03 02F79    B2C402CB A            LW,12    *:COMBFRB,2       LOAD ADDRESS
    16461   03 02F7A    35C00153 A            STW,12   :COMADDR          SAVE THEM
    16462   03 02F7B    330002CA A            MTW,0    :COMFLAG          TEST PRINT INHIBIT FLAG
    16463   03 02F7C    E9320152 A            BNEZ     *:COMPXT,1            IF SET EXIT
    16464   03 02F7D    4BC03032              AND,12   =X'7F'             SET UP
    16465   03 02F7E    35C006BF              STW,12   VDEC2A               SECTOR
    16466   03 02F7F    32C00153 A            LW,12    :COMADDR          SET UP
    16467   03 02F80    25C00079 A            SLS,12   -7                   BAND
    16468   03 02F81    4BC0303D              AND,12   =X'FF'
    16469   03 02F82    35C006C0              STW,12   VDEC3A
    16470   03 02F83    52C00153 A            LH,12    :COMADDR          SET UP
    16471   03 02F84    35C006C6              STW,12   VHEX4A               DEVICE ADDRESS
    16472   03 02F85    6AF00AA5              BAL,15   MSGOUT            PRINT: I/O ADDRESS -----
    16473   03 02F86    000021F1              DATA     BA(:COMERM6)
    16474   03 02F87    E8020152 A            B        *:COMPXT,1
    16475                            *
    16476                            *
    16477                            *
    16478   03 02F88    3A6002CC A   :COM021  LCW,6    :COMWCNT          LOAD WORD COUNT
    16479   03 02F89    2560047F A            SAS,6    -1                DIVIDE BY 2
    16480   03 02F8A    32E0014F A            LW,14    :BUFTOP           LOAD STARTING ADDR OF PATTERN
    16481   03 02F8B    35E00150 A            STW,14   :COMIDPT          SAVE AS TOP OF BUFFER
    16482   03 02F8C    30E00006 A            AW,14    6                 ADD DOUBLE WORD COUNT
    16483   03 02F8D    35E0014F A            STW,14   :BUFTOP           SAVE 2ND HALF BUFFER ADDR
    16484   03 02F8E    B2EC0150 A   :COM02V  LW,14    *:COMIDPT,6       LOAD ONES COMPLEMENT WORD
    16485   03 02F8F    48E03096              EOR,14   =-1               TAKE ONES COMPLEMENT
    16486   03 02F90    B1EC014F A            CW,14    *:BUFTOP,6        TEST AGAINST FIRST HALF OF PATT.
    16487   03 02F91    68302F93              BE       %+2               IF EQUAL CONTINUE
    16488   03 02F92    6AF02FBF              BAL,15   :COM1             GO REPORT ERROR
    16489   03 02F93    65602F8E              BIR,6    :COM02V           LOOP
    16490   03 02F94    3300014E A            MTW,0    :COMERRT
    16491   03 02F95    68302F76              BEZ      COM02ADR
    16492                            :COMRTN  ;
    16493   03 02F96    330002CA A            MTW,0    :COMFLAG
    16494   03 02F97    E9300152 A            BNEZ     *:COMPXT
    16495   03 02F98    32C0014E A            LW,12    :COMERRT          LOAD TOTAL NO. OF COMPARE ERRORS
    16496   03 02F99    31C03000              CW,12    :COMPLIM          IF IT DOESN'T EXCEED
    16497   03 02F9A    E8200152 A            BLE      *:COMPXT              LIMIT: EXIT
    16498   03 02F9B    35C006CB              STW,12   VDEC4B
    16499   03 02F9C    6AF00AA5              BAL,15   MSGOUT
    16500   03 02F9D    00002200              DATA     BA(:COMERM7)
    16501   03 02F9E    E8000152 A            B        *:COMPXT          RETURN TO CALLING ROUTINE
    16502                            *
    16503                            *
    16504                            *
    16505   03 02F9F    3A6002CC A   :COM06   LCW,6    :COMWCNT          LOAD WORD COUNT
    16506   03 02FA0    B2E002EF A   :COM061  LW,14    *:PATID+1
    16507   03 02FA1    6AF02FA9              BAL,15   :COMUP            GO COMPARE
    16508   03 02FA2    B2E202EF A            LW,14    *:PATID+1,1
    16509   03 02FA3    6AF02FA9              BAL,15   :COMUP            GO COMPARE
    16510   03 02FA4    B2E402EF A            LW,14    *:PATID+1,2
    16511   03 02FA5    6AF02FA9              BAL,15   :COMUP            GO COMPARE
    16512   03 02FA6    B2E602EF A            LW,14    *:PATID+1,3
    16513   03 02FA7    6AF02FA9              BAL,15   :COMUP            GO COMPARE
    16514   03 02FA8    68002FA0              B        :COM061           LOOP
    16515                            *
    16516                            *
    16517   03 02FA9    35F02FAF     :COMUP   STW,15   :COMUP2           SAVE RTN
    16518   03 02FAA    B1EC014F A            CW,14    *:BUFTOP,6        TEST WORD
    16519   03 02FAB    68302FAD              BE       :COMUP1           IF EQUAL GOOD
    16520   03 02FAC    6AF02FBF              BAL,15   :COM1             GO TAKE CARE OF ERROR
    16521   03 02FAD    E5602FAF     :COMUP1  BIR,6    *:COMUP2          LOOP OUT IF MORE
    16522   03 02FAE    68002F96              B        :COMRTN           EXIT
    16523                            *
    16524                            *
    16525   03 02FAF    00000000 A   :COMUP2  DATA     0
    16526                            *
    16527                            *                 COMPARE SEEK ADDRESS PATTERN
    16528                            *
    16529   03 02FB0    6AF02FF6     :COM03   BAL,15   SEEKTRUE
    16530   03 02FB1    35E002EF A            STW,14   :PATID+1          SAVE PATTERN SEEK ADDR
    16531                            *
    16532                            *
    16533                            *                 COMPARE FIXED PATTERN
    16534                            *
    16535                            :COM00 ;
    16536   03 02FB2    91EC014F A            CD,14    *:BUFTOP,6        COMPARE PATTERN
    16537   03 02FB3    68302FB5              BE       %+2               IF GOOD BRANCH
    16538   03 02FB4    68002F64              B        :COM00Y           TAKE ERROR EXIT
    16539   03 02FB5    65602FB2              BIR,6    %-3               LOOP
    16540   03 02FB6    68002F96              B        :COMRTN           GO CHECK FOR ERRORS
    16541                            *
    16542                            *                 NON-ALLOWED COMPARE
    16543                            *
    16544   03 02FB7    6AF00D5B     :COM04   BAL,15   TILT
    16545                            *
    16546                            *                 COMPARE SHIFTY PATTERN
    16547   03 02FB8    3A6002CC A   :COM05   LCW,6    :COMWCNT          LOAD WORD COUNT
    16548   03 02FB9    B1EC014F A            CW,14    *:BUFTOP,6        TEST WORD
    16549   03 02FBA    68302FBC              BE       %+2                   IF EQUAL CONTINUE
    16550   03 02FBB    6AF02FBF              BAL,15   :COM1             GO REPORT ERROR
    16551   03 02FBC    A5E002F0 A            SCS,14   *:PATID+2         SHIFT PATTERN
    16552   03 02FBD    65602FB9              BIR,6    :COM05+1          LOOP
    16553   03 02FBE    68002F96              B        :COMRTN           GO CHECK FOR ERRORS
    16554   03 02FBF    15E0014A A   :COM1    STD,14   :COMSAVE          SAVE EXPECTED WORD & RTN
    16555   03 02FC0    92E002CB A            LD,14    *:COMBFRB         LOAD FIRST 2 WORDS FROM PATTERN
    16556   03 02FC1    11E03001              CD,14    M1                TEST AGAINST SKIP PATTERN DW
    16557   03 02FC2    E8300152 A            BE       *:COMPXT              IF = EXIT
    16558                            *
    16559                            *
    16560                            *
    16561   03 02FC3    3300014E A            MTW,0    :COMERRT          LOAD ERROR COUNT
    16562   03 02FC4    69302FC6              BNEZ     %+2               IF NOT=0 SKIP SETTING ERR EXIT
    16563   03 02FC5    33100152 A            MTW,1    :COMPXT           SET ERROR EXIT
    16564   03 02FC6    3310014E A            MTW,1    :COMERRT          UPDATE ERROR COUNT
    16565   03 02FC7    311002CA A            CW,1     :COMFLAG          TEST PRINT INHIBIT FLAG
    16566   03 02FC8    68302FE9              BE       :COM2EXT          IF =1 EXIT
    16567   03 02FC9    69102FEB              BL       :COM93            IF > GO CHECK BIT POSITION
    16568   03 02FCA    32C0014E A            LW,12    :COMERRT          LOAD TOTAL NO. OF COMPARE ERRORS
    16569   03 02FCB    31C03000              CW,12    :COMPLIM          IF IT DOES EXCEED
    16570   03 02FCC    69202FE9              BG       :COM2EXT              LIMIT: SKIP ERROR REPORTING
    16571   03 02FCD    32C002CB A            LW,12    :COMBFRB          LOAD BUFFER ADDR
    16572   03 02FCE    3110014E A            CW,1     :COMERRT          TEST ERROR COUNT
    16573   03 02FCF    69302FD9              BNE      :COM2             IF NOT =1, SKIP PRINTING HEADER
    16574   03 02FD0    EAF00218 A            BAL,15   *:HEXC            GO CONVERT BUFFER ADDR
    16575   03 02FD1    55F03013              STH,15   :COMERM3+16       SAVE PARTIAL BUFFER ADDR
    16576   03 02FD2    25F00070 A            SLS,15   -16
    16577   03 02FD3    55F23012              STH,15   :COMERM3+15,1
    16578   03 02FD4    EAF00218 A            BAL,15   *:HEXC
    16579   03 02FD5    55F03012              STH,15   :COMERM3+15
    16580   03 02FD6    EAF0021C A            BAL,15   *:PRINT           GO PRINT BUFFER ADDR
    16581   03 02FD7    00003003              DATA     :COMERM3
    16582   03 02FD8    68002FDB              B        :COM2+2           SKIP SPACE
    16583                            *
    16584                            *
    16585   03 02FD9    6AF00AA5     :COM2    BAL,15   MSGOUT            PRINT A SPACE
    16586   03 02FDA    00001DCF              DATA     BA(CCERMA)
    16587   03 02FDB    32C0014F A            LW,12    :BUFTOP           LOAD TOP OF A BUFFER
    16588   03 02FDC    38C002CB A            SW,12    :COMBFRB          FIND BUFFER LENGTH
    16589   03 02FDD    30C00006 A            AW,12    6                 FIND WORD COUNT
    16590   03 02FDE    35C006C6              STW,12   VHEX4A
    16591   03 02FDF    32C0014A A            LW,12    :COMSAVE
    16592   03 02FE0    35C03015              STW,12   :COMVIB+1
    16593   03 02FE1    22C03014              LI,12    :COMVIB
    16594   03 02FE2    35C006D5              STW,12   VBINFA
    16595   03 02FE3    6AF00AA5              BAL,15   MSGOUT
    16596   03 02FE4    0000221E              DATA     BA(:COMERM4)
    16597   03 02FE5    B2CC014F A            LW,12    *:BUFTOP,6
    16598   03 02FE6    35C03015              STW,12   :COMVIB+1
    16599   03 02FE7    6AF00AA5              BAL,15   MSGOUT
    16600   03 02FE8    00001EFF              DATA     BA(MSGOBS)
    16601                            :COM2EXT ;
    16602   03 02FE9    32E0014A A            LW,14    :COMSAVE          RESTORE
    16603   03 02FEA    E800014B A            B        *:COMSAVE+1       EXIT
    16604                            *
    16605                            *
    16606                            *
    16607                            *
    16608                            *
    16609                            *
    16610   03 02FEB    32E0014A A   :COM93   LW,14    :COMSAVE          LOAD EXP WORD
    16611   03 02FEC    22700080 A            LI,7     X'80'             LOAD BIT TEST
    16612   03 02FED    22F0000F A            LI,15    X'F'              LOAD MASK
    16613   03 02FEE    33000007 A   :COM92   MTW,0    7                 TEST FOR END
    16614   03 02FEF    68302FE9              BEZ      :COM2EXT              IF END EXIT
    16615   03 02FF0    25F0027C A            SCS,15   -4                POSITION BYTES
    16616   03 02FF1    C5EC014F A            CS,14    *:BUFTOP,6        TEST BYTES
    16617   03 02FF2    68302FF4              BE       %+2               IF SET BRANCH
    16618   03 02FF3    477015BF              STS,7    #MSNSEFT          SET BIT
    16619   03 02FF4    2570007F A            SLS,7    -1                POSITION BIT
    16620   03 02FF5    68002FEE              B        :COM92            LOOP
    16621                            *
    16622                            *
    16623                            *
    16624   03 02FF6    35F0014C A   SEEKTRUE STW,15   :COMSAVE+2        SAVE RTN ADDR
    16625   03 02FF7    22E00000 A            LI,14    0                 ZERO
    16626   03 02FF8    32F00193 A            LW,15    CURRSKAD
    16627   03 02FF9    36E002C0 A            DW,14    SECTCURR          DIVIDE
    16628   03 02FFA    A5F002C6 A            SLS,15   *TCKCURR          POSITION
    16629   03 02FFB    30E0000F A            AW,14    15
    16630   03 02FFC    32F002BF A            LW,15    :DEVADDR          FETCH DEV ADDR
    16631   03 02FFD    55F0000E A            STH,15   14
    16632   03 02FFE    35E0000F A            STW,14   15                PUT TRACK-SECTOR IN 15
    16633   03 02FFF    E800014C A            B        *:COMSAVE+2       EXIT
    16634   03 03000    00000001 A   :COMPLIM DATA     1                 LIMIT FOR MSG REPORT OF COMP ERR
    16635   03 03001    12B9B0A1 A   M1       DATA     314159265         PI
    16636   03 03002    1033C4D7 A   M2       DATA     271828183         E
    16637         00 002CC           :PATWC   EQU      :COMWCNT
    16638         00 002CB           :PATBFR  EQU      :COMBFRB
    16639                            :COMERM3 TEXTC     ;
    16640                             '     0123 4567 8901 2345 6789 0123 4567 8901 ',;
    16641   03 03003    41404040 A    'WD CNT BF ADR XXXXXX'
            03 03004    4040F0F1 A
            03 03005    F2F340F4 A
            03 03006    F5F6F740 A
            03 03007    F8F9F0F1 A
            03 03008    40F2F3F4 A
            03 03009    F540F6F7 A
            03 0300A    F8F940F0 A
            03 0300B    F1F2F340 A
            03 0300C    F4F5F6F7 A
            03 0300D    40F8F9F0 A
            03 0300E    F140E6C4 A
            03 0300F    40C3D5E3 A
            03 03010    40C2C640 A
            03 03011    C1C4D940 A
            03 03012    E7E7E7E7 A
            03 03013    E7E74040 A
    16642   03 03014    01200401 A   :COMVIB  DATA     X'01200401'
    16643   03 03015    00000000 A            DATA     0
    16644   03 03016    FFFFFFFF A            DATA     -1
    16645                                     PAGE
    16646                            *
    16647                            *                 *** CLEAR BUFFER ***
    16648                            *
    16649                            * THE CLEAR BUFFER SUBROUTINE CLEARS A SPECIFIED BUFFER AREA.
    16650                            *  BUFFER SIZE SPECIFIED IN NUMBER OF WORDS.
    16651                            *
    16652                            *       INPUT PARAMETERS:
    16653                            *
    16654                            *           REG 15  -RETURN ADDRESS
    16655                            *           :CLRADDR-WA(BUFFER)
    16656                            *           :CLRSIZE-BUFFER WORD SIZE
    16657                            *
    16658                            *       REGISTERS DISTURBED:
    16659                            *
    16660                            *           (NONE)
    16661                            *
    16662                            *       OUTPUT PARAMETERS:
    16663                            *
    16664                            *           (NONE)
    16665                            *
    16666   03 03017    15400146 A   :CLEAR   STD,R4   :CLRSAVE          SAVE REGISTERS 4-6
    16667   03 03018    35600148 A            STW,R6   :CLRSAVE+2
    16668   03 03019    325002CD A            LW,R5    :CLRADDR          BUFFER ADDRESS
    16669   03 0301A    305002CE A            AW,R5    :CLRSIZE          BUFFER ADDR + BUFFER SIZE
    16670   03 0301B    3A4002CE A            LCW,R4   :CLRSIZE          -(BUFFER SIZE)
    16671   03 0301C    22600000 A            LI,R6    0
    16672   03 0301D    B5680005 A            STW,R6   *R5,R4            0 TO BUFFER
    16673   03 0301E    6540301D              BIR,R4   %-1               COUNT NOT 0
    16674   03 0301F    12400146 A            LD,R4    :CLRSAVE          RESTORE REGISTERS 4-6
    16675   03 03020    32600148 A            LW,R6    :CLRSAVE+2
    16676   03 03021    E800000F A            B        *R15              EXIT
    16677                            *
    16678   03 03022    00003097              DATA    ='END'
    16679                            *
    16680   03 03023    12C5D9D9 A   WAITMSG1 TEXTC    'ERROR HAS OCCURRED'                              *A02
            03 03024    D6D940C8 A
            03 03025    C1E240D6 A
            03 03026    C3C3E4D9 A
            03 03027    D9C5C440 A
    16681                            BUFFEND  END                                                        *A01
            03 03028    00003101 02
            03 03029    00FFFFFF A
            03 0302A    0000000F A
            03 0302B    0000001F A
            03 0302C    0000E01F A
            03 0302D    00007FFF A
            03 0302E    0000FFFF A
            03 0302F    40404040 A
            03 03030    FFFFFFF0 A
            03 03031    FFFFFFFE A
            03 03032    0000007F A
            03 03033    4040FFFF A
            03 03034    2B404040 A
            03 03035    404040F0 A
            03 03036    404CF1D2 A
            03 03037    7F00C000 A
            03 03038    7FFFC000 A
            03 03039    00E00000 A
            03 0303A    0001FFFF A
            03 0303B    00000007 A
            03 0303C    01000000 A
            03 0303D    000000FF A
            03 0303E    01001008 N
            03 0303F    00007F00 A
            03 03040    00000018 A
            03 03041    FFFF0000 A
            03 03042    FFF00000 A
            03 03043    6ED00000 A
            03 03044    00001FFF A
            03 03045    00008000 A
            03 03046    0C000000 A
            03 03047    003FFFFF A
            03 03048    00400000 A
            03 03049    03000000 A
            03 0304A    83000000 A
            03 0304B    53000000 A
            03 0304C    43000000 A
            03 0304D    40000046 A
            03 0304E    55555555 A
            03 0304F    00000003 A
            03 03050    0000003C A
            03 03051    FFFFFFFC A
            03 03052    00C00000 A
            03 03053    00100000 A
            03 03054    FF1FFFFF A
            03 03055    FFFFE000 A
            03 03056    FF00E000 A
            03 03057    00FFFFFC A
            03 03058    FFC00000 A
            03 03059    003FC000 A
            03 0305A    02000000 A
            03 0305B    00200000 A
            03 0305C    40000EBD N
            03 0305D    FFFFFFF8 A
            03 0305E    00004000 A
            03 0305F    02100000 A
            03 03060    00204000 A
            03 03061    00D00000 A
            03 03062    10000000 A
            03 03063    001FFFFF A
            03 03064    00000040 A
            03 03065    00080000 A
            03 03066    00040000 A
            03 03067    00020000 A
            03 03068    00010000 A
            03 03069    00002000 A
            03 0306A    00001000 A
            03 0306B    4DC00000 A
            03 0306C    4EC00000 A
            03 0306D    4CC00000 A
            03 0306E    00000020 A
            03 0306F    5C00FFF0 A
            03 03070    48000000 A
            03 03071    01000004 A
            03 03072    40000040 A
            03 03073    5C000000 A
            03 03074    000001FF A
            03 03075    0001E000 A
            03 03076    5D000040 A
            03 03077    AAAAAAAA A
            03 03078    5C000040 A
            03 03079    0100000C A
            03 0307A    41000008 A
            03 0307B    00555555 A
            03 0307C    AA555555 A
            03 0307D    00005555 A
            03 0307E    AAAA5555 A
            03 0307F    00000055 A
            03 03080    AAAAAA55 A
            03 03081    555555AA A
            03 03082    5555AAAA A
            03 03083    55AAAAAA A
            03 03084    5C00003C A
            03 03085    0000FFFC A
            03 03086    1C00AAAA A
            03 03087    F0A5C396 A
            03 03088    2C000038 A
            03 03089    1C000038 A
            03 0308A    1C000000 A
            03 0308B    1C000400 A
            03 0308C    8C000004 A
            03 0308D    08000000 A
            03 0308E    004C4B40 A
            03 0308F    80000000 A
            03 03090    7FFFFFFF A
            03 03091    FFEFC001 A
            03 03092    FFFFC001 A
            03 03093    FF000000 A
            03 03094    10BD0000 A
            03 03095    0000FF80 A
            03 03096    FFFFFFFF A
            03 03097    00C5D5C4 A

  CONTROL SECTION SUMMARY: 01 00308   PT 0     02 0329F   PT 0     03 03098   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:32 JUN 20,'83    SIGMA 8-9 HIGH SPEED RAD IOP TEST 706200-11/51A04 02-19-73            PAGE    4
A  A               2249-DATA    2872/MSGX    2875/MSGX    2911/MSGX    2915/MSGX    2924/MSGX    2924/MSGX
      2927/MSGX    2927/MSGX    2943/MSGX    2962/MSGX    2964/MSGX    2966/MSGX    2980/MSGX    2986/MSGX
      2995/MSGX    2995/MSGX    2998/MSGX    3002/MSGX    3014/MSGX    3022/MSGX    3025/MSGX    3043/MSGX
      3043/MSGX    3043/MSGX    3070/MSGX    3075/MSGX    3080/MSGX    3080/MSGX    3083/MSGX    3096/MSGX
      3107/MSGX    3107/MSGX    3112/MSGX    3114/MSGX    3116/MSGX    3123/MSGX    3133/MSGX    3136/MSGX
      3139/MSGX    3142/MSGX    3156/MSGX    3162/MSGX    3162/MSGX    3166/MSGX    3197/MSGX    3197/MSGX
      3208/MSGX    3217/MSGX    3217/MSGX    3220/MSGX    3223/MSGX    3228/MSGX    3228/MSGX    3228/MSGX
   ABASETAB        1371-ASECT
   ABORTED         2250-DATA    2905/MSGX    2906/MSGX
   ACCEPTED        2251-DATA    2734/MSGX    2998/MSGX    2998/MSGX
   ACCESS          2566-DATA    3092/MSGX
   ACCESSED        2252-DATA    2875/MSGX    2947/MSGX
   ACCESSING       2567-DATA    2969/MSGX
   ADDITIONAL      2568-DATA    2897/MSGX
   ADDRESS         2253-DATA    2714/MSGX    2716/MSGX    2718/MSGX    2722/MSGX    2724/MSGX    2725/MSGX
      2726/MSGX    2728/MSGX    2744/MSGX    2762/MSGX    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX
      2779/MSGX    2799/MSGX    2801/MSGX    2875/MSGX    2875/MSGX    2890/MSGX    2891/MSGX    2908/MSGX
      2908/MSGX    2915/MSGX    2920/MSGX    2937/MSGX    2953/MSGX    2953/MSGX    2953/MSGX    2956/MSGX
      2956/MSGX    2956/MSGX    2962/MSGX    2962/MSGX    2969/MSGX    2973/MSGX    3070/MSGX    3070/MSGX
      3142/MSGX    3189/MSGX
   ADDRESSES       2569-DATA    3055/MSGX
   ADDRESSING      2254-DATA    2930/MSGX    2973/MSGX    3055/MSGX    3142/MSGX
   ADISPLAY        2255-DATA    2747/MSGX    2761/MSGX    2764/MSGX    2783/MSGX    2788/MSGX    2789/MSGX
      2793/MSGX    2795/MSGX    2798/MSGX    2801/MSGX    2803/MSGX    2805/MSGX    2807/MSGX    2809/MSGX
      2811/MSGX    2813/MSGX    2815/MSGX    2817/MSGX    2819/MSGX    2822/MSGX    2823/MSGX    2826/MSGX
      2838/MSGX    2840/MSGX    2851/MSGX    2854/MSGX    2863/MSGX    2888/MSGX    2892/MSGX
   ADVANCING       2570-DATA    2937/MSGX
   AERROR          2256-DATA    2732/MSGX    2748/MSGX    2760/MSGX    2765/MSGX    2782/MSGX    2787/MSGX
      2790/MSGX    2794/MSGX    2796/MSGX    2797/MSGX    2799/MSGX    2804/MSGX    2806/MSGX    2808/MSGX
      2810/MSGX    2812/MSGX    2814/MSGX    2816/MSGX    2818/MSGX    2820/MSGX    2821/MSGX    2824/MSGX
      2825/MSGX    2839/MSGX    2841/MSGX    2852/MSGX    2853/MSGX    2862/MSGX    2887/MSGX    2893/MSGX
   AFTER           2257-DATA    2933/MSGX    3101/MSGX
   AIOSAVE          981-DATA   15143/STCF   15144/STW    15667/LD
   AIOSTAT         1108-DATA   15668/STD    15782/LH
   ALADR           1041-DATA    5241/LW
   ALFBYT         11364/DATA   11409-RD
   ALFC01          9790/LW      9813/LW      9828-B
   ALFC02          9809/LW      9829-B
   ALFC03          9817/STCF    9823/LCF     9830-DATA
   ALFDATA        11705/DATA   11707/DATA   11732/DATA   11737-BAL    11765/DATA   11812/DATA   11847/DATA
   ALFPOINT        5199/LW      5239/STW     7203-DATA
   ALFREAL        11983/DATA   12022-EQU
   ALFSAVE         1095-DATA    6392/STW     6423/LW*     6454/LW*     6457/AWM     6495/STW     6498/LW*
      6504/LW*     6512/AWM     6518/LW*     6530/LW*     6535/LW*     6536/LW*     6556/AWM
   ALFSAVE1        1096-DATA    6473/STW     6561/B*
   ALFUNCT         6390-STW     6626/BAL     7082/BAL     9210/BAL     9249/BAL     9445/BAL    10600/BAL
     11675/BAL    11737/BAL    12017/BAL    12471/BAL    12622/BAL    12737/BAL    13039/BAL    13169/BAL
     13696/BAL    15665/BAL
   ALFUNCT1        6399/BEZ     6401/BE      6403/BE      6405-SLS
   ALFUNCT2        6423-LW      6460/B
   ALFUNCT3        6430/BCS     6434/BCR     6457-AWM
   ALFUNCT9        6444/STW     6445-DATA
   ALFXITFG        6415/STW     6428/STW     6458/MTW     6475/STW     6502/MTW     6507/STW     7235-DATA
   ALFXXX          9794/BAL     9796/BAL     9798/BAL     9800/BAL     9802/BAL     9804/BAL     9806/BAL
      9808/BAL     9812/BAL     9816-STW     9933/BAL     9935/BAL     9937/BAL     9939/BAL    10185/BAL
     10632/BAL    10634/BAL    10636/BAL    10638/BAL    10640/BAL    10642/BAL    10644/BAL    10646/BAL
     10648/BAL    10753/BAL    10755/BAL    10757/BAL    10759/BAL    11415/BAL    11417/BAL    11419/BAL
   ALFXX1          9792/STW     9810/STW     9814/STW     9826-B
   ALFYYY         10120/DATA   10136-RD
   ALFZZZ         10022/DATA   10033-RD     10419/DATA
   ALF000          9309/DATA    9653/DATA    9666-BAL
   ALF001          9708/DATA    9719-RD
   ALF001X         9755/DATA    9761-RD
   ALF002          9779/DATA    9790-LW
   ALF003          9925/DATA    9931-RD
   ALF012         10171/DATA   10178-LI     10846/DATA
   ALF012X        10184-RD     10187/BNEZ
   ALF013         10366/DATA   10379-LH
   ALF016         10594/DATA   10600-BAL    11140/DATA   11163/DATA   11176/DATA   11215/DATA   11226/DATA
   ALF018         10623/DATA   10630-RD     10809/DATA
   ALF019         10744/DATA   10751-RD
   ALF023         11043/DATA   11055-LI
   ALF023X        11057-RD     11065/BIR
   ALF041         11660/DATA   11675-BAL
   ALF046         11993/DATA   12017-BAL
   ALIGNED         2571-DATA    3217/MSGX
   ALIGNMENT       2258-DATA    3133/MSGX    3133/MSGX    3136/MSGX    3136/MSGX    3217/MSGX
   ALL             2259-DATA    2868/MSGX    2930/MSGX    2930/MSGX    3055/MSGX    3092/MSGX    3096/MSGX
      3133/MSGX    3136/MSGX    3170/MSGX    3172/MSGX    3174/MSGX    3177/MSGX    3189/MSGX    3195/MSGX
      3197/MSGX    3208/MSGX
   ALLIST          7042-DATA
   ALNL001        13170/DATA   13172-CHCKTIO
   ALN001          6592/LI     13163/DATA   13169-BAL    13571/DATA   13591/DATA
   ALN0046        13671/DATA   13696-BAL
   ALN0046X       13650/STW    13701-CHCKHIO
   ALN0046Z       13697/DATA   13699-CHCKTIO
   ALN021         12462/DATA   12469-BAL    12554/DATA
   ALN021X        12455/STW    12472-DATA   12542/STW
   ALN030         12712/DATA   12737-BAL
   ALN46HIO       13648/LW     13704-CHCKHIO
   ALN46RIO       13694/LW     13705-CHCKRIO
   ALPL660         9446/DATA    9450-CHCKTIO
   ALPMOD          6607/LI      6626-BAL    12563/DATA   12615/DATA   12721/DATA   13769/DATA
   ALPSIO          7042/DATA    7071-LW
   ALPSIOCC        7063/STW     7074-DATA
   ALPSIOC1        7064/STW     7078/STW     7081-DATA
   ALPSIO1         7072/BEZ     7080-BAL
   ALPSIO2         7033/STW     7083-DATA
   ALPT025        12623/DATA   12627-CHCKTIO
   ALP0X0          7788/DATA    7799-BAL     7819/DATA    7850/LI      7924/B       8004/DATA    8174/DATA
      8390/DATA    8439/DATA    8464/DATA    8498/DATA    8571/DATA    8667/DATA    8706/DATA    9068/DATA
      9112/DATA    9465/DATA    9472/DATA    9589/LI      9721/B       9763/B      10384/B      11572/DATA
     11579/DATA
   ALP0Y0          7873/LI      7888-BAL     8062/DATA    8088/DATA    8147/DATA    8207/DATA    8243/DATA
      8361/DATA    8632/DATA    8739/DATA    8920/DATA    8934/DATA    8976/DATA   11586/DATA
   ALP025         12605/DATA   12622-BAL
   ALP0801         7915/DATA    7921-LI      7959/B
   ALP090          7952/DATA    7957-LW
   ALP240          8363/DATA    8367-MTW
   ALP300          8596/DATA    8608-BAL     8690/DATA
   ALP4201         9075/DATA    9087-LI      9119/DATA
   ALP470          9204/DATA    9210-BAL
   ALP550          9243/DATA    9249-BAL
   ALP570          9276/DATA    9281-BAL     9525/DATA    9566/DATA    9583/LI      9629/DATA
   ALP660          9431/DATA    9437-WD2
   ALTN036        12983/DATA   13032/DATA   13039-BAL    13627/DATA   13659/DATA
   ALTN036X       13040/DATA   13043-CHCKTIO
   ALTSIO         13256/LW     13260-SIO
   ALT002         13242/DATA   13252-LI     13275/B
   ALT0021        13263-BDR    13268/BEZ
   ALT0022        13263/BDR    13267-MTW
   AL0MXX          7581-LI
   AN              2261-DATA    2935/MSGX    2953/MSGX    2956/MSGX    2984/MSGX    2998/MSGX    3017/MSGX
      3017/MSGX    3019/MSGX    3022/MSGX    3038/MSGX    3038/MSGX    3038/MSGX    3043/MSGX    3046/MSGX
      3049/MSGX
   AND             2266-DATA    2805/MSGX    2806/MSGX    2915/MSGX    2920/MSGX    2920/MSGX    2920/MSGX
      2930/MSGX    2930/MSGX    2930/MSGX    2937/MSGX    2940/MSGX    2943/MSGX    2947/MSGX    2947/MSGX
      2964/MSGX    2966/MSGX    2969/MSGX    2976/MSGX    2986/MSGX    2989/MSGX    2995/MSGX    3005/MSGX
      3019/MSGX    3019/MSGX    3025/MSGX    3038/MSGX    3055/MSGX    3059/MSGX    3059/MSGX    3065/MSGX
      3065/MSGX    3070/MSGX    3075/MSGX    3080/MSGX    3085/MSGX    3085/MSGX    3085/MSGX    3096/MSGX
      3096/MSGX    3101/MSGX    3101/MSGX    3107/MSGX    3116/MSGX    3123/MSGX    3126/MSGX    3130/MSGX
      3142/MSGX    3162/MSGX    3166/MSGX    3170/MSGX    3172/MSGX    3174/MSGX    3177/MSGX    3187/MSGX
      3189/MSGX    3192/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3208/MSGX    3208/MSGX
      3208/MSGX
   ANY             2572-DATA    3145/MSGX
   ARE             2263-DATA    2867/MSGX    2868/MSGX    2930/MSGX    3092/MSGX    3092/MSGX    3116/MSGX
      3139/MSGX    3217/MSGX
   AREA            2264-DATA    2897/MSGX    2897/MSGX    2897/MSGX    2900/MSGX    2900/MSGX
   AS              2262-DATA    2960/MSGX    2960/MSGX    2976/MSGX    2976/MSGX    3043/MSGX    3059/MSGX
      3085/MSGX    3180/MSGX
   ASECTMLT        1136-ASECT
   ASECTPIT        1385-ASECT
   ASSOCIATED      2573-DATA    2920/MSGX
   AT              2265-DATA    2736/MSGX    3101/MSGX    3107/MSGX    3162/MSGX    3162/MSGX    3197/MSGX
      3208/MSGX    3208/MSGX    3217/MSGX
   AVAILABLE       2267-DATA    2897/MSGX    2900/MSGX    2969/MSGX    2969/MSGX    2973/MSGX    2973/MSGX
   AXIS            2574-DATA    2868/MSGX
   B               2268-DATA    2872/MSGX    2875/MSGX
   BACK            2576-DATA    3107/MSGX
   BAND            2269-DATA    2865/MSGX    2868/MSGX    2875/MSGX    2875/MSGX    2889/MSGX    2894/MSGX
      2895/MSGX    2908/MSGX    3035/MSGX    3180/MSGX    3192/MSGX    3197/MSGX    3197/MSGX    3197/MSGX
      3197/MSGX    3208/MSGX    3208/MSGX    3208/MSGX    3208/MSGX    3231/MSGX
   BANDS           2270-DATA    2867/MSGX    3172/MSGX    3172/MSGX    3177/MSGX    3197/MSGX    3208/MSGX
   BANDTAB         2865-MSGX   12814/LI     12918/LI
   BASEADDR        1181-SET     1372/ORG
   BCCOMP          5918-LW      9050/BAL    10156/BAL
   BCMSGDLY        2795-MSGX    5923/DATA
   BCMSGERR        2796-MSGX    5924/DATA
   BCZ             1761/SET    10149/BYPROC 10327/BYPROC 10335/BYPROC 10394/BYPROC 10443/BYPROC
     10452/BYPROC 10460/BYPROC 10468/BYPROC 10476/BYPROC 10484/BYPROC 10492/BYPROC 10500/BYPROC
     10509/BYPROC 10517/BYPROC 10525/BYPROC 10534/BYPROC 10542/BYPROC 10550/BYPROC 10559/BYPROC
     10567/BYPROC 10999/BYPROC 11265/BYPROC 11280/BYPROC 11295/BYPROC 11310/BYPROC 11326/BYPROC
     11342/BYPROC
   BC1             6649/MTW     6650/CW      6652/STW     6679/STW     6692/AW      7259-DATA
   BC2             6653/MTW     6654/CW      6656/STW     6680/STW     6694/AW      7260-DATA   13545/STW
   BC4             1761/SET     9675/BYPROC  9842/BYPROC  9850/BYPROC  9858/BYPROC  9866/BYPROC
      9874/BYPROC  9882/BYPROC  9890/BYPROC  9898/BYPROC  9907/BYPROC  9948/BYPROC  9956/BYPROC
      9964/BYPROC  9972/BYPROC 10047/BYPROC 10055/BYPROC 10063/BYPROC 10072/BYPROC 10199/BYPROC
     10208/BYPROC 10217/BYPROC 10225/BYPROC 10233/BYPROC 10242/BYPROC 10251/BYPROC 10259/BYPROC
     10267/BYPROC 10276/BYPROC 10285/BYPROC 10293/BYPROC 10301/BYPROC 10310/BYPROC 10319/BYPROC
     10662/BYPROC 10670/BYPROC 10678/BYPROC 10686/BYPROC 10694/BYPROC 10702/BYPROC 10710/BYPROC
     10718/BYPROC 10727/BYPROC 10768/BYPROC 10776/BYPROC 10784/BYPROC 10792/BYPROC 10831/BYPROC
     10867/BYPROC 10875/BYPROC 10883/BYPROC 10891/BYPROC 10900/BYPROC 10908/BYPROC 10916/BYPROC
     10924/BYPROC 10933/BYPROC 10941/BYPROC 10949/BYPROC 10957/BYPROC 10966/BYPROC 10974/BYPROC
     10982/BYPROC 10990/BYPROC
   BD1             6657/MTW     6658/CW      6660/STW     6681/STW     6691/AW      7261-DATA   11790/AWM
     11791/LW     11830/AWM    11834/LW
   BD2             6661/MTW     6662/CW      6682/STW     6693/AW      7262-DATA
   BE              2271-DATA    2906/MSGX    2915/MSGX    2918/MSGX    2924/MSGX    2927/MSGX    2930/MSGX
      2930/MSGX    2935/MSGX    2940/MSGX    2940/MSGX    2947/MSGX    2947/MSGX    2964/MSGX    2966/MSGX
      2980/MSGX    2989/MSGX    2995/MSGX    2995/MSGX    3014/MSGX    3017/MSGX    3019/MSGX    3022/MSGX
      3038/MSGX    3055/MSGX    3059/MSGX    3059/MSGX    3065/MSGX    3075/MSGX    3075/MSGX    3085/MSGX
      3096/MSGX    3101/MSGX    3107/MSGX    3116/MSGX    3130/MSGX    3142/MSGX    3145/MSGX    3147/MSGX
      3150/MSGX    3166/MSGX    3170/MSGX    3172/MSGX    3174/MSGX    3177/MSGX    3183/MSGX    3187/MSGX
      3192/MSGX    3195/MSGX    3197/MSGX    3208/MSGX    3223/MSGX    3228/MSGX    3231/MSGX
   BECAUSE         2577-DATA    2998/MSGX
   BEEN            2578-DATA    2933/MSGX
   BEING           2579-DATA    2943/MSGX
   BF              2504-SET     2533/GENV    2534/GENV
   BIG             2580-DATA    2907/MSGX
   BIMSGDLY        2822-MSGX    6190/DATA
   BIMSGERR        2821-MSGX    6191/DATA
   BIMSGHDR        6192/DATA    7453-TEXTC
   BINFA           2533-GENV    2745/MSGX    2746/MSGX    2749/MSGX    2750/MSGX    2767/MSGX    2768/MSGX
      2791/MSGX    2792/MSGX    2843/MSGX    2914/MSGX
   BINFB           2534-GENV    2745/MSGX    2746/MSGX    2749/MSGX    2750/MSGX    2842/MSGX    2843/MSGX
   BIN4A           2531-GENV    2782/MSGX    2783/MSGX
   BIN8A           2532-GENV    2896/MSGX
   BIT             2272-DATA    3166/MSGX    3166/MSGX
   BITS            2581-DATA    2951/MSGX
   BLDSHIFT       15449/STB    15457-SLS
   BOUNDARY        2277-DATA    3107/MSGX    3107/MSGX
   BOUND16         5894-LI      6307/BAL     9270/BAL     9301/BAL     9552/BAL     9646/BAL     9772/BAL
      9918/BAL    10013/BAL    11371/BAL    11392/BAL
   BPA             1761/SET     9842/BYPROC  9850/BYPROC  9858/BYPROC  9866/BYPROC  9874/BYPROC
      9882/BYPROC  9890/BYPROC  9898/BYPROC  9907/BYPROC  9948/BYPROC  9956/BYPROC  9964/BYPROC
      9972/BYPROC 10047/BYPROC 10055/BYPROC 10063/BYPROC 10072/BYPROC 10149/BYPROC 10199/BYPROC
     10208/BYPROC 10217/BYPROC 10225/BYPROC 10233/BYPROC 10242/BYPROC 10251/BYPROC 10259/BYPROC
     10267/BYPROC 10276/BYPROC 10285/BYPROC 10293/BYPROC 10301/BYPROC 10310/BYPROC 10319/BYPROC
     10327/BYPROC 10335/BYPROC 10394/BYPROC 10443/BYPROC 10452/BYPROC 10460/BYPROC 10468/BYPROC
     10476/BYPROC 10484/BYPROC 10492/BYPROC 10500/BYPROC 10509/BYPROC 10517/BYPROC 10525/BYPROC
     10534/BYPROC 10542/BYPROC 10550/BYPROC 10559/BYPROC 10567/BYPROC 10662/BYPROC 10670/BYPROC
     10678/BYPROC 10686/BYPROC 10694/BYPROC 10702/BYPROC 10710/BYPROC 10718/BYPROC 10727/BYPROC
     10768/BYPROC 10776/BYPROC 10784/BYPROC 10792/BYPROC 10831/BYPROC 10867/BYPROC 10875/BYPROC
     10883/BYPROC 10891/BYPROC 10900/BYPROC 10908/BYPROC 10916/BYPROC 10924/BYPROC 10933/BYPROC
     10941/BYPROC 10949/BYPROC 10957/BYPROC 10966/BYPROC 10974/BYPROC 10982/BYPROC 10990/BYPROC
     10999/BYPROC 11310/BYPROC 11326/BYPROC 11342/BYPROC
   BPB             1761/SET     9842/BYPROC  9850/BYPROC  9858/BYPROC  9866/BYPROC  9874/BYPROC
      9882/BYPROC  9890/BYPROC  9898/BYPROC  9907/BYPROC  9948/BYPROC  9956/BYPROC  9964/BYPROC
      9972/BYPROC 10047/BYPROC 10055/BYPROC 10063/BYPROC 10072/BYPROC 10149/BYPROC 10199/BYPROC
     10208/BYPROC 10217/BYPROC 10225/BYPROC 10233/BYPROC 10242/BYPROC 10251/BYPROC 10259/BYPROC
     10267/BYPROC 10276/BYPROC 10285/BYPROC 10293/BYPROC 10301/BYPROC 10310/BYPROC 10319/BYPROC
     10327/BYPROC 10335/BYPROC 10394/BYPROC 10443/BYPROC 10460/BYPROC 10468/BYPROC 10484/BYPROC
     10492/BYPROC 10500/BYPROC 10509/BYPROC 10517/BYPROC 10525/BYPROC 10542/BYPROC 10550/BYPROC
     10567/BYPROC 10662/BYPROC 10670/BYPROC 10678/BYPROC 10686/BYPROC 10694/BYPROC 10702/BYPROC
     10710/BYPROC 10718/BYPROC 10727/BYPROC 10768/BYPROC 10776/BYPROC 10784/BYPROC 10792/BYPROC
     10831/BYPROC 10867/BYPROC 10875/BYPROC 10883/BYPROC 10891/BYPROC 10900/BYPROC 10908/BYPROC
     10916/BYPROC 10924/BYPROC 10933/BYPROC 10941/BYPROC 10949/BYPROC 10957/BYPROC 10966/BYPROC
     10974/BYPROC 10982/BYPROC 10990/BYPROC 10999/BYPROC 11265/BYPROC 11310/BYPROC 11326/BYPROC
   BPC             1761/SET     9842/BYPROC  9850/BYPROC  9858/BYPROC  9866/BYPROC  9874/BYPROC
      9882/BYPROC  9890/BYPROC  9898/BYPROC  9907/BYPROC  9948/BYPROC  9956/BYPROC  9964/BYPROC
      9972/BYPROC 10047/BYPROC 10055/BYPROC 10063/BYPROC 10072/BYPROC 10149/BYPROC 10199/BYPROC
     10208/BYPROC 10217/BYPROC 10225/BYPROC 10233/BYPROC 10242/BYPROC 10251/BYPROC 10259/BYPROC
     10267/BYPROC 10276/BYPROC 10285/BYPROC 10293/BYPROC 10301/BYPROC 10310/BYPROC 10319/BYPROC
     10327/BYPROC 10335/BYPROC 10394/BYPROC 10443/BYPROC 10468/BYPROC 10492/BYPROC 10500/BYPROC
     10517/BYPROC 10525/BYPROC 10542/BYPROC 10550/BYPROC 10662/BYPROC 10670/BYPROC 10678/BYPROC
     10686/BYPROC 10694/BYPROC 10702/BYPROC 10710/BYPROC 10718/BYPROC 10727/BYPROC 10768/BYPROC
     10776/BYPROC 10784/BYPROC 10792/BYPROC 10831/BYPROC 10867/BYPROC 10875/BYPROC 10883/BYPROC
     10891/BYPROC 10900/BYPROC 10908/BYPROC 10916/BYPROC 10924/BYPROC 10933/BYPROC 10941/BYPROC
     10949/BYPROC 10957/BYPROC 10966/BYPROC 10974/BYPROC 10982/BYPROC 10990/BYPROC 10999/BYPROC
     11265/BYPROC 11280/BYPROC 11310/BYPROC
   BPD             1761/SET     9842/BYPROC  9850/BYPROC  9858/BYPROC  9866/BYPROC  9874/BYPROC
      9882/BYPROC  9890/BYPROC  9898/BYPROC  9907/BYPROC  9948/BYPROC  9956/BYPROC  9964/BYPROC
      9972/BYPROC 10047/BYPROC 10055/BYPROC 10063/BYPROC 10072/BYPROC 10149/BYPROC 10199/BYPROC
     10208/BYPROC 10217/BYPROC 10225/BYPROC 10233/BYPROC 10242/BYPROC 10251/BYPROC 10259/BYPROC
     10267/BYPROC 10276/BYPROC 10285/BYPROC 10293/BYPROC 10301/BYPROC 10310/BYPROC 10319/BYPROC
     10327/BYPROC 10335/BYPROC 10394/BYPROC 10443/BYPROC 10500/BYPROC 10525/BYPROC 10550/BYPROC
     10662/BYPROC 10670/BYPROC 10678/BYPROC 10686/BYPROC 10694/BYPROC 10702/BYPROC 10710/BYPROC
     10718/BYPROC 10727/BYPROC 10768/BYPROC 10776/BYPROC 10784/BYPROC 10792/BYPROC 10831/BYPROC
     10867/BYPROC 10875/BYPROC 10883/BYPROC 10891/BYPROC 10900/BYPROC 10908/BYPROC 10916/BYPROC
     10924/BYPROC 10933/BYPROC 10941/BYPROC 10949/BYPROC 10957/BYPROC 10966/BYPROC 10974/BYPROC
     10982/BYPROC 10990/BYPROC 10999/BYPROC 11265/BYPROC 11280/BYPROC 11295/BYPROC
   BTE             1589/SET     9402/WD2
   BTMSGDLY        2838-MSGX
   BTMSGERR        2839-MSGX
   BUFAVAIL        1218-DATA   14325/LW     14355/STW    14405/LW     14429/LW     14455/LW     14486/LW
     14505/LW     14522/LW     14540/LW     14556/LW     14887/LW     14893/LW     15559/STW
   BUFCOUNT       14888/SH     15069/B      15089-AI     15292/EXU    15577/EQU
   BUFFEND            2/EQU    16681-END
   BUFINAD         1216-DATA   14365/STW    14403/AW     14424/AW     14447/AW     14469/AW     14480/STW
     14502/AW     14519/AW     14537/AW     14821/AW     14929/LW     14956/LW     14961/STW    15359/LW
     15381/STW    15549/STW
   BUFINCMT       14407/STH    14431/STH    14456/STH    14506/STH    14524/STH    14558/STH    14824/STH
     15577-EQU
   BUFLENGT        1215-DATA   14361/STW    14425/AW     14448/AW     14503/AW     14520/AW     15562/STW
   BUFM1AVL        1219-DATA   14889/STW    15112/CW     15319/CW
   BUFM1FLG        1232-DATA   15052/STW    15102/MTW    15116/STW
   BUF1LO             2-EQU     3998/LI      4438/STW     4461/STW     4476/STB     4480/STW     4483/DATA
      4503/LI      5894/LI      5899/LI      6298/LI      6642/GEN     6644/GEN     6674/LI      7115/LI
      7122/LI      7128/LI      7278/GEN     7285/GEN     7287/GEN     7291/GEN     7293/GEN     7295/GEN
      7301/GEN     7303/GEN     7305/GEN     7336/GEN     7338/GEN     7340/GEN     7344/GEN     7348/GEN
      7353/GEN     7390/GEN     8429/LI      8524/GEN    11199/GEN    11201/GEN    11203/GEN    11527/GEN
     11529/GEN    11533/GEN    11535/GEN    11539/GEN    11541/GEN    11545/GEN    11547/GEN    11551/GEN
     11553/GEN    11667/GEN    11669/GEN    11859/GEN    11862/GEN    11864/GEN    11872/GEN    11878/GEN
     11918/LI     12008/AI     12009/AI     12034/LI     12041/LI     12125/LI     12134/LI     12144/LI
     12150/STW    12151/STW    12178/STW    12179/STW    12180/STW    12235/LI     12262/CI     12295/CI
     12332/LI     12353/LI     12374/LI     12399/GEN    12403/GEN    12405/GEN    12407/GEN    12409/GEN
     12411/GEN    12413/GEN    12415/GEN    12417/GEN    12419/GEN    12421/GEN    12423/GEN    12425/GEN
     12427/GEN    12706/STW    12707/STW    12725/LW     12726/LW     13095/LI     14080/DATA   14083/DATA
     15499/CI     15531/CI
   BUF1LOBA        1221-DATA   14339/AW     14341/SW     14364/STW    14479/STW    14960/LW     15437/LW
     15548/STW    15554/SW     15563/AW
   BUILDIOC       14289/BAL    14802/BAL    14808-LW
   BUILDSK         3982/BAL    12780/BAL    12831/BAL    12884/BAL    12940/BAL    13014/BAL    13603/BAL
     13760/BAL    14183/BAL    15048/BAL    15296/BAL    15447-STD    15716/BAL
   BUILDSK1        1370-DATA   14186/LD     15447/STD    15456/XW     15458/XW     15734/LD     15774/LW
     15793/LW
   BUS             2278-DATA    2964/MSGX    2964/MSGX    3002/MSGX
   BUSY            1620/SET     2279-DATA    2736/MSGX    2739/MSGX    2740/MSGX    2742/MSGX    3046/MSGX
      3049/MSGX    3049/MSGX    8188/PHPROC  8409/PHPROC  8474/PHPROC  8515/PHPROC  8579/PHPROC
      9291/PHPROC  9314/PHPROC  9486/PHPROC  9497/PHPROC  9572/PHPROC  9612/PHPROC 10142/PHPROC
     11606/PHPROC 11627/PHPROC
   BY              2280-DATA    2953/MSGX    2956/MSGX    2995/MSGX    3014/MSGX    3017/MSGX    3038/MSGX
      3075/MSGX    3096/MSGX    3156/MSGX    3223/MSGX    3228/MSGX    3231/MSGX    3231/MSGX
   BYCNTMSK        1071-DATA    6186/LW      6366/STW     9674/STW
   BYCOUNT         6180-LW      6368/BAL     9676/BAL    10150/BAL    10395/BAL
   BYCTMSKS        7192-DATA
   BYJK            1736-CNAME
   BYMHI           1652-CNAME
   BYPRES          6199-LH      6373/BAL
   BYPRMASK        1072-DATA    6200/LW      6372/STW    11440/STW    11443/LW     11445/OR     11446/STW
   BYPRMSKS        7193-DATA
   BYPROC          1754-CNAME
   BYP1            6752/BLZ     6762-AWM
   BYP2            6750/BLZ     6768-AWM
   BYP3            6738/BLZ     6740/BLZ     6755-AND     6765/B       6771/B
   BYP4            6741/B       6753-STW
   BYR             1671-CNAME
   BYSET           6710/BAL     6743-LW      6851/BAL     6960/BAL
   BYSETINT        6705/BAL     6733-LW      6804/BAL
   BYTCURR         1282-DATA    3995/LW     13098/LW     13102/AW     14029/LW     14331/MW     14336/DW
     14338/MW     14351/DW     14360/MW     14545/MW     14549/AW     14808/LW     14822/AW     14957/AW
     15434/AW     15556/DW     15561/MW     15700/DW
   BYTE            2281-DATA    2795/MSGX    2796/MSGX    2797/MSGX    2798/MSGX    2821/MSGX    2822/MSGX
      2823/MSGX    2824/MSGX    2825/MSGX    2826/MSGX    2838/MSGX    2839/MSGX    2851/MSGX    2852/MSGX
      2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX
      3005/MSGX    3005/MSGX    3005/MSGX    3059/MSGX    3070/MSGX    3070/MSGX    3070/MSGX    3070/MSGX
      3075/MSGX    3085/MSGX    3096/MSGX    3096/MSGX    3116/MSGX    3133/MSGX    3133/MSGX    3136/MSGX
      3136/MSGX    3139/MSGX    3139/MSGX    3150/MSGX    3160/MSGX    3160/MSGX
   BYTEDONE        6714/BNEZ    6727-LI
   BYTEEND         6708/STW     6713/MTW     6753/STW     6800/STW     6854/MTW     6910/MTW     7248-DATA
   BYTEIOC         1117-DATA    6702/STD     6805/DATA    6809/LD      6852/DATA
   BYTEIOCD        1116-DATA    6703/STD     6706/DATA    6711/DATA    6810/STD     6961/DATA
   BYTEIT          6249-LW      6520/BAL
   BYTEITDY        2798-MSGX    6257/LI
   BYTEITER        2797-MSGX    6254/LI
   BYTEND          3584-SET     3693/LW
   BYTEOUT         6721-BAL     6729/B
   BYTEPATN        6702-STD    11094/BAL    11149/BAL    11717/BAL    11777/BAL    12015/BAL
   BYTEPAT1        6718-LI
   BYTEPAT2        6715-LB      6726/BDR
   BYTEPAT3        6717/BE      6724-AI
   BYTEPAT4        6710-BAL
   BYTEPRT2        6824/BEZ     6829-STW
   BYTEPRT3        6823/BGZ     6832-AND
   BYTEPRT4        6875/BEZ     6880-STW
   BYTEPRT5        6874/BGZ     6883-AND
   BYTEPRT6        6889-LI
   BYTEPRT7        6811-LI      6954/B
   BYTEPRT8        6890-LCI     6909/BIR
   BYTES           2282-DATA    3096/MSGX    3116/MSGX    3217/MSGX    3217/MSGX
   BYTESECT        1261-DATA    3694/STW
   BYTESTAT        3582-EQU
   BYTEXIT         6704/STW     6712/LW      7252-DATA
   BYTSAVE         1115-DATA    6744/STD     6748/LD
   BYTSET1         6749-LW
   BYUPIOC         6851-BAL
   BYUPIOC1        6850/BEZ     6855/BEZ     6860-LI
   BYUPIOC3        6912/BEZ     6917/BGEZ    6925-BAL
   BYUPIO11        6910-MTW
   BYUPIO20        6905-LCI     6963/B
   BYUPIO21        6904/BEZ     6959-STW
   BYUPIO22        6902/BEZ     6957-LI
   B16             2502-SET
   B2              2499-SET
   B32             2503-SET
   B4              2500-SET     2531/GENV
   B8              2501-SET     2532/GENV
   CA              2283-DATA    2969/MSGX    3009/MSGX
   CAN             2284-DATA    2906/MSGX    2918/MSGX    2930/MSGX    2935/MSGX    2940/MSGX    2940/MSGX
      2947/MSGX    2947/MSGX    2960/MSGX    2964/MSGX    2966/MSGX    2980/MSGX    2989/MSGX    2995/MSGX
      2995/MSGX    3014/MSGX    3017/MSGX    3019/MSGX    3022/MSGX    3025/MSGX    3038/MSGX    3055/MSGX
      3059/MSGX    3059/MSGX    3070/MSGX    3075/MSGX    3083/MSGX    3085/MSGX    3096/MSGX    3096/MSGX
      3101/MSGX    3107/MSGX    3130/MSGX    3142/MSGX    3145/MSGX    3147/MSGX    3150/MSGX    3170/MSGX
      3172/MSGX    3174/MSGX    3177/MSGX    3187/MSGX    3192/MSGX    3195/MSGX    3197/MSGX    3208/MSGX
      3223/MSGX    3228/MSGX    3231/MSGX
   CAPACITY        3578-SET
   CAPEND          3580-SET     3691/LW
   CASES           2285-DATA    3133/MSGX    3136/MSGX
   CAUSE           2286-DATA    2924/MSGX    2927/MSGX    2962/MSGX    3038/MSGX
   CAUSING         2582-DATA    3038/MSGX
   CCDIOERR        4742/STW     4780/STW     5298/STW     5505/LW      5608/MTW     7202-DATA   14684/STW
   CCERMA          2743-MSGX    4906/DATA   16586/DATA
   CCERM1          2734-MSGX   16092/DATA
   CCERM2          2735-MSGX   16093/DATA
   CCERM3          2736-MSGX   16095/DATA
   CCERM4          2737-MSGX   16094/DATA
   CCERM5          2738-MSGX   16098/DATA
   CCERM6          2739-MSGX   16102/DATA
   CCERM7          2740-MSGX   16103/DATA
   CCERM8          2741-MSGX    4435/DATA    4614/DATA    4680/DATA    6939/DATA   16096/DATA   16097/DATA
     16099/DATA   16105/DATA   16106/DATA   16107/DATA   16108/DATA   16109/DATA
   CCERM9          2742-MSGX   16104/DATA
   CCODE00         7052/LW      7077/LW      7104-BAL
   CCODE01         7055/LW      7106-BAL
   CCODE10         7058/LW      7105-BAL
   CCODE11         7061/LW      7107-BAL
   CCTEST          5251/BAL     5254/BAL     5257/BAL     5260/BAL     5263/BAL     5266/BAL     5269/BAL
      5272/BAL     5275/BAL     5279-STCF
   CCTEST1         5293-LB      5302/BNE     5305/B
   CCTEST2         5291/BCS     5301-CI
   CCXX            4788/BAL     5251-BAL     7484/BAL     7574/BAL     7580/BAL     7583/BAL     7610/BAL
      7612/BAL
   CCX0            5254-BAL
   CCX1            5257-BAL
   CC0X            5260-BAL     7706/BAL
   CC00            5266-BAL     6011/BAL     7104/BAL     7507/BAL     7608/BAL     7615/BAL     7617/B
      7648/BAL     7697/BAL     7711/BAL     7713/BAL     7753/BAL     7800/B       8371/BAL     8776/BAL
      9439/BAL     9442/BAL     9826/B       9828/B      11060/B      12470/B      14702/BAL
   CC01            5269-BAL     7076/BAL     7106/BAL     7701/BAL     7703/BAL     9282/B       9288/BAL
      9444/BAL     9608/BAL     9662/BAL     9667/B       9716/BAL     9720/BAL     9762/BAL     9788/BAL
      9824/BAL     9829/B      10031/BAL    10035/BAL    10037/B      10137/BAL    10139/B      10181/BAL
     10183/B      10855/BAL    11052/BAL    11058/BAL    11062/BAL    11064/BAL    11406/BAL    11411/BAL
     11413/B
   CC1X            5263-BAL
   CC10            5272-BAL     7105/BAL     7652/BAL     7654/BAL     7797/BAL     7830/BAL     7833/BAL
      7889/B       7923/BAL     8019/BAL     8070/BAL     8157/BAL     8184/BAL     8217/BAL     8220/BAL
      8295/BAL     8299/BAL     8405/BAL     8510/BAL     8643/BAL     8714/BAL     8717/BAL     8750/BAL
      8753/BAL     8853/BAL     8856/BAL     9084/BAL     9482/BAL     9493/BAL    11598/BAL    11603/BAL
   CC11            5275-BAL     7107/BAL     8604/BAL     8609/B       8892/BAL
   CDCOMP          5930-LW      6532/BAL     9100/BAL     9139/BAL
   CDMASK          1036-DATA
   CDMASK9         7151-DATA
   CDMSGDLY        2801-MSGX    5938/LI
   CDMSGERR        2799-MSGX    5935/LI
   CDW             1034-DATA    6074/CW      8458/CW      9745/LW     11888/CW
   CDWN9           7143-DATA
   CDW9            7149-DATA
   CELL            2287-DATA    2943/MSGX    2943/MSGX    2947/MSGX    2982/MSGX    2982/MSGX    2986/MSGX
      2986/MSGX
   CHAIN           1113-DATA    6696/STM    11699/LI     11715/LI     11761/LI     11776/LI     11796/STM
     11797/AWM    11799/AWM    11804/LI     11833/STM    11835/AWM    11836/AWM    11840/LI     11919/STW
     11920/STW    11942/LW     11952/LW     11972/STB    11989/LI     12005/LM     12062/STW    12064/STW
     13544/STH    13567/LI
   CHAINED         2288-DATA    2845/MSGX    2846/MSGX    3130/MSGX    3220/MSGX    3223/MSGX
   CHAINING        2289-DATA    3123/MSGX    3123/MSGX    3126/MSGX    3126/MSGX    3130/MSGX    3217/MSGX
      3220/MSGX
   CHAINOUT       11493/B      11518/B      11558-STW
   CHAIN1         11565-LI     11589/B
   CHANNEL         2290-DATA    2980/MSGX    2980/MSGX    3014/MSGX    3014/MSGX    3043/MSGX    3043/MSGX
      3223/MSGX
   CHCKAIO         1778-CNAME
   CHCKBC          1792-CNAME
   CHCKBC1         1793-CNAME
   CHCKCD          1800-CNAME
   CHCKHIO         1775-CNAME
   CHCKMASK        1783-CNAME
   CHCKPLP         1777-CNAME
   CHCKPLR         1779-CNAME
   CHCKRIO         1776-CNAME
   CHCKSIO         1772-CNAME
   CHCKSIO1        1780-CNAME
   CHCKTDV         1774-CNAME
   CHCKTIO         1773-CNAME
   CHCKTIO1        1781-CNAME
   CHECK           2291-DATA    2964/MSGX    2964/MSGX    3002/MSGX
   CHECKED         2583-DATA    3101/MSGX
   CHECKS          2292-DATA    3197/MSGX    3197/MSGX    3208/MSGX
   CHECKWRITE      2293-DATA    3166/MSGX    3166/MSGX
   CHKWRITE       14643/BAL    14755-LI
   CHMSG0         11559/STW    11573-GEN
   CHMSG1         11561/STW    11580-GEN
   CHMSG2         11563/STW    11587-GEN
   CLADR           1043-DATA    5201/MTW     5207/BAL*   13265/STW
   CLEAR           2584-DATA    3022/MSGX
   CLFBYT         11366/DATA   11422-LI
   CLFBYT1        11441-BAL    11451/BIR
   CLFCHX         11608-LW
   CLFCH1         11574/DATA   11606-PHPROC
   CLFCH2X        11620-BAL    11648/B
   CLFCH3         11581/DATA   11627-PHPROC
   CLFCH4         11588/DATA   11647-PHPROC
   CLFDATA        11734/DATA   11741-BAL
   CLFN046        11995/DATA   12002-EQU
   CLFTDATA       11738/DATA   12110-EQU
   CLFT016        10601/DATA   10606-CHCKTIO
   CLFT041        11676/DATA   12113-EQU
   CLFUNCT         6482/BNEZ    6486/B       6488/BEZ     6492-LW
   CLFUN01         6497-LW      6557/B
   CLFUN02         6502-MTW     6513/B
   CLFUN03         6509/BCR     6514-AND
   CLFUN04         6516/BNE     6523-CI
   CLFUN05         6512-AWM
   CLFUN06         6518-LW      6526/B
   CLFUN06X        6524/BNE     6527-CI
   CLFUN07         6528/BNE     6535-LW
   CLFUN08         6542/BNE     6545-LW
   CLFUN09         6552/STW     6554-DATA
   CLFUN10         6551/STW     6555-DATA
   CLFUN12         6478/LI      6494/BEZ     6503/BNEZ    6558-LW
   CLFUN20         6521/B       6533/B       6544/BEZ     6556-AWM
   CLFUN25         6550-STW
   CLFYYY         10122/DATA   10142-PHPROC
   CLFYYY1        10129/DATA   10152-BAL    10375/DATA   10428/DATA
   CLFZZZ         10024/DATA   10040-LI
   CLF000          9316/B       9655/DATA    9671-LI
   CLF001          9710/DATA    9723-FULLPROC             9766/B
   CLF001X         9757/DATA    9765-LI
   CLF002          9781/DATA    9831-LI
   CLF002IN        9833-EQU     9945/B      10042/B      10193/B
   CLF002X         9834-BAL     9835/BIR
   CLF003          9927/DATA    9943-LI
   CLF012         10173/DATA   10191-LI
   CLF013         10368/DATA   10387-PHPROC
   CLF015         10421/DATA   10432-LW
   CLF016          9433/DATA   10596/DATA   10603-BAL    11165/DATA   11217/DATA
   CLF017          9311/DATA    9314-PHPROC
   CLF018         10625/DATA   10651-LI
   CLF018A        10652-LI
   CLF018IN       10653-EQU    10764/B      10861/B
   CLF018X        10654-BAL    10657/BIR
   CLF019         10746/DATA   10762-LI
   CLF020         10811/DATA   10815-LI
   CLF020IN       10817-B
   CLF020X        10818-BYR    10825/B
   CLF020Y        10820/BIR    10822-BAL
   CLF022         10848/DATA   10859-LI
   CLF023         11045/DATA   11068-LI
   CLF023X        11076-BAL    11091/BIR
   CLF026         11142/DATA   11146-BAL
   CLF029         11178/DATA   11182-BAL    11228/DATA
   CLF041         11662/DATA   11678-BAL
   CLF042         11709/DATA   11714-BAL    11814/DATA   11849/DATA
   CLF043         11767/DATA   11774-BAL    13573/DATA
   CLIST           6473-STW     7099/BAL    13678/BAL
   CLISTI          6472-STW     6631/BAL     7088/BAL     7094/BAL     9215/BAL     9253/BAL    10603/BAL
     11146/BAL    11182/BAL    11678/BAL    11714/BAL    11741/BAL    11774/BAL    12012/BAL    12477/BAL
     12570/BAL    13598/BAL    15755/BAL
   CLIST01         6480/BEZ     6487-MTW
   CLLIST          7031/STW     7044-DATA
   CLNL021        12018/DATA   12439/LI     12481-EQU    12529/LI
   CLNL022        12448/LI     12483-CHCKTIO             12537/LI     12738/DATA
   CLN0042        13593/DATA   13598-BAL
   CLN021         12464/DATA   12477-BAL    13165/DATA
   CLN023         12565/DATA   12570-BAL    12617/DATA   12723/DATA
   CLN046         13673/DATA   13678-BAL
   CLOCKHI         1553/SET
   CLOCKLO         1553/SET
   CLPLIST         6627/DATA   12111-EQU
   CLPMOD          6621/DATA    6631-BAL    12556/DATA   12607/DATA   12714/DATA   12985/DATA   13034/DATA
     13629/DATA   13661/DATA
   CLPSIO          6970/LI      6983/LI      6993/LI      7003/LI      7013/LI      7044/DATA    7099-BAL
   CLPSIOFT        6978/LI      7087-EQU
   CLPSIOI         6968/LI      6981/LI      6991/LI      7001/LI      7011/LI      7021/LI      7094-BAL
   CLPSIOZ         9535/B       9568/DATA    9572-PHPROC
   CLPSTAT         8845/DATA    8860-BAL
   CLPT470         9212/DATA    9219-CHCKTIO
   CLPT550         9251/DATA    9257-CHCKTIO
   CLP0X0          7790/DATA    7802-PHPROC
   CLP0Y0          7885/DATA    7891-PHPROC  8064/DATA    8149/DATA    8741/DATA
   CLP0Y01         7893-LW
   CLP0Y02         7879/STW     7899-DATA    8045/STW     8057/STW     8137/STW     8732/STW
   CLP0Z0          8006/DATA    8024-LW
   CLP000          7726/DATA    7731-LW
   CLP041          7821/DATA    7837-PHPROC
   CLP0801         7917/DATA    7928-PHPROC  7965/B
   CLP090          7954/DATA    7963-LW
   CLP160          8090/DATA    8101-PHPROC
   CLP210          8176/DATA    8188-PHPROC
   CLP220          8209/DATA    8225-PHPROC
   CLP230          8245/DATA    8303-PHPROC  8978/DATA
   CLP230A         8256/DATA    8265/DATA    8311-BAL
   CLP230C         8275/DATA    8320-MEPROC
   CLP250          8392/DATA    8409-PHPROC  8441/DATA
   CLP270          8466/DATA    8474-PHPROC
   CLP280          8500/DATA    8515-PHPROC
   CLP290          8573/DATA    8579-PHPROC
   CLP300          8598/DATA    8614-PHPROC
   CLP320          8634/DATA    8647-PHPROC  8692/DATA
   CLP330          8669/DATA    8674-PHPROC
   CLP3401         8708/DATA    8720-PHPROC
   CLP3403         8769/DATA    8780-BAL
   CLP390          8884/DATA    8903-BAL
   CLP3900         8877/DATA    8896-BAL     9034/DATA    9070/DATA
   CLP3901         8922/DATA    8941-PHPROC
   CLP3902         8936/DATA    8947-PHPROC
   CLP400          8966/DATA    9002-LI
   CLP401          8987/DATA    9007-BAL
   CLP410          9041/DATA    9046-BAL
   CLP4201         9077/DATA    9096-BAL
   CLP430          9114/DATA    9130-PHPROC
   CLP4301         9121/DATA    9135-BAL
   CLP460          7746/DATA    9162/DATA    9181-LW     13264/LI
   CLP470          9206/DATA    9215-BAL
   CLP550          9245/DATA    9253-BAL
   CLP551          9238/STW     9259-CHCKAIO
   CLP570          9278/DATA    9291-PHPROC
   CLP700          9467/DATA    9486-PHPROC
   CLP7001         9474/DATA    9497-PHPROC
   CLP710          9527/DATA    9532-BAL
   CLP740          9600/DATA    9612-PHPROC
   CLP740X         9591/STW     9604/MTH     9616-DATA
   CLP750          9631/DATA    9636-PHPROC
   CLRTN           7231-DATA
   CLT002X        13237/STW    13244-DATA
   CLT41          13359/DATA   13404/DATA   13409-BAL    13511/DATA
   CMMSG           3492/DATA    3494-TEXTC
   CNTMASKS        7190-DATA
   CODE             904-CNAME   2294-DATA    2924/MSGX    2927/MSGX
   CODES           2295-DATA    2789/MSGX    2790/MSGX    2940/MSGX
   COLLECT         4862-STW     7080/BAL     7616/BAL     7799/BAL     7888/BAL     8608/BAL     9281/BAL
      9666/BAL     9825/BAL    10036/BAL    10138/BAL    10182/BAL    11059/BAL    11412/BAL    12469/BAL
   COLON           2585-DATA    2910/MSGX
   COLTRD          4863/LW      4874-RD
   COLTRTN         4862/STW     4868/EXU*    4872/B*      7200-DATA
   COLT1           4866-LI      4871/BIR
   COLT2           4866/LI      4869-AWM
   COLT3           4864/STW     4867-RD      4869/AWM
   COMMA           2297-DATA    2911/MSGX    2911/MSGX    3038/MSGX    3059/MSGX    3075/MSGX    3101/MSGX
      3174/MSGX    3177/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3208/MSGX    3208/MSGX    3223/MSGX
      3231/MSGX
   COMMAND         2296-DATA    2728/MSGX    2799/MSGX    2801/MSGX    3009/MSGX    3009/MSGX    3123/MSGX
      3123/MSGX    3130/MSGX    3130/MSGX    3220/MSGX    3220/MSGX
   COMPARE         2298-DATA    2732/MSGX    2733/MSGX    2803/MSGX    2804/MSGX    2875/MSGX    2875/MSGX
      2875/MSGX    2910/MSGX    3036/MSGX
   COMPERR         1236-DATA   14854/STW    14952/STW    15373/CAL1
   COM02ADR       16457-BAL    16491/BEZ
   CONC            2245-DATA    2762/MSGX    2762/MSGX    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX
      2779/MSGX    2849/MSGX    2849/MSGX    2855/MSGX    2855/MSGX    2862/MSGX    2862/MSGX    2863/MSGX
      2863/MSGX    2868/MSGX    2868/MSGX    2892/MSGX    2892/MSGX    2893/MSGX    2893/MSGX    2910/MSGX
      2911/MSGX    2911/MSGX    3038/MSGX    3162/MSGX    3174/MSGX    3177/MSGX    3197/MSGX    3208/MSGX
      3208/MSGX    3208/MSGX    3223/MSGX
   CONDITION       2299-DATA    2737/MSGX    2924/MSGX    2927/MSGX    2940/MSGX    3019/MSGX    3038/MSGX
      3052/MSGX    3160/MSGX
   CONDITIONS      2300-DATA    3147/MSGX    3150/MSGX
   CONTROL         2301-DATA    2807/MSGX    2808/MSGX    2821/MSGX    2822/MSGX    2937/MSGX    2943/MSGX
      2943/MSGX    2982/MSGX    2984/MSGX    2984/MSGX    3043/MSGX    3052/MSGX    3059/MSGX    3065/MSGX
      3085/MSGX    3101/MSGX    3123/MSGX    3126/MSGX    3147/MSGX    3150/MSGX
   CORE            2302-DATA    2855/MSGX    3116/MSGX
   CORRECTLY       2303-DATA    2943/MSGX    2984/MSGX    3002/MSGX    3130/MSGX    3156/MSGX
   COUNT           2304-DATA    2795/MSGX    2796/MSGX    2797/MSGX    2798/MSGX    2821/MSGX    2822/MSGX
      2902/MSGX    2903/MSGX    2904/MSGX    3005/MSGX    3005/MSGX    3005/MSGX    3070/MSGX    3070/MSGX
      3075/MSGX    3116/MSGX    3116/MSGX    3150/MSGX    3162/MSGX
   COUNTER         2305-DATA    3075/MSGX    3075/MSGX    3096/MSGX    3096/MSGX    3183/MSGX
   COUNTERS        2306-DATA    2817/MSGX    2818/MSGX
   COUNTMSK        1069-DATA    6155/LW      6378/STW     9678/STW
   COUNTS          2586-DATA    3075/MSGX
   CPERROR        14943/CAL2   15299/CI     15357-LW
   CSECTDIC        1441-CSECT
   CURRENT         2587-DATA    2799/MSGX    2801/MSGX    3195/MSGX
   CURRSECT        1225-DATA
   CURRSEEK        1283-DATA    3978/MTW     3980/MTW     3981/LW     12882/LW     13476/STW    13601/LW
     14369/SW     14373/AW     14374/STW    14846/LW     14876/LW
   CURRSKAD        1031-DATA   12935/STW    12939/LW     12958/AWM    14847/STW    14962/MTW    15357/LW
     15374/STW    16626/LW
   CYCLE           1185-DATA    3819/STW    14236/STW    14259/MTW    14274/MTW
   D               2308-DATA    2872/MSGX    2875/MSGX
   DAMSGDLY        2733-MSGX    5716/LI
   DAMSGERR        2732-MSGX    5719/LI
   DASH            2309-DATA    2733/MSGX    2744/MSGX    2751/MSGX    2752/MSGX    2753/MSGX    2754/MSGX
      2755/MSGX    2756/MSGX    2757/MSGX    2758/MSGX    2759/MSGX    2762/MSGX    2763/MSGX    2784/MSGX
      2786/MSGX    2809/MSGX    2810/MSGX    2815/MSGX    2816/MSGX    2849/MSGX    2855/MSGX    2862/MSGX
      2863/MSGX    2868/MSGX    2868/MSGX    2892/MSGX    2893/MSGX    2902/MSGX    2903/MSGX    2904/MSGX
      2947/MSGX    2969/MSGX    2969/MSGX    2969/MSGX    3005/MSGX    3005/MSGX    3009/MSGX    3009/MSGX
      3009/MSGX    3070/MSGX    3156/MSGX    3170/MSGX    3172/MSGX    3192/MSGX    3197/MSGX    3197/MSGX
      3197/MSGX    3208/MSGX    3223/MSGX    3231/MSGX    3231/MSGX
   DASHNOER        1076-DATA    4001/STW     4828/STW     5086/LW
   DASHS           4934/DATA    7429-TEXTC
   DASIZE          6078/STW     7274-DATA    8396/CW      8454/LW      9697/LW      9739/LW     11887/LW
     12051/XW     14015/LW
   DAT             1814/DO      1815/GEN     2243-EQU     3282/LW
   DATA            1571/SET     1620/SET     2310-DATA    2780/MSGX    2781/MSGX    2838/MSGX    2839/MSGX
      2840/MSGX    2841/MSGX    2845/MSGX    2846/MSGX    2855/MSGX    2875/MSGX    2875/MSGX    2920/MSGX
      2920/MSGX    2947/MSGX    3005/MSGX    3009/MSGX    3025/MSGX    3025/MSGX    3052/MSGX    3052/MSGX
      3059/MSGX    3065/MSGX    3083/MSGX    3083/MSGX    3085/MSGX    3085/MSGX    3092/MSGX    3092/MSGX
      3101/MSGX    3101/MSGX    3101/MSGX    3107/MSGX    3107/MSGX    3126/MSGX    3126/MSGX    3130/MSGX
      3145/MSGX    3156/MSGX    3156/MSGX    3187/MSGX    3187/MSGX    3197/MSGX    3208/MSGX    3217/MSGX
      3217/MSGX    3217/MSGX    3223/MSGX    7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      8040/WD1     8052/WD1     8103/WD1     8133/WD1     8182/WD1     8215/WD1     8292/WD1     8403/WD1
      8508/WD1     8602/WD1     8851/WD1     8890/WD1     8999/WD1     9291/PHPROC  9314/PHPROC
      9572/PHPROC  9612/PHPROC 10142/PHPROC
   DATAADDR         316-DATA
   DATACOMP        5705-STW    11183/BAL    11452/BAL    11679/BAL    12478/BAL    13600/BAL
   DATAINIT        6665/B       6673-LCI    11688/BAL    11749/BAL    11789/BAL    11827/BAL    11923/BAL
     13536/BAL
   DATAPERR       13881/BCS    13889-BAL
   DATAP1         13886/STM    13893-DATA   14659/LM
   DATAP2         13894-DATA
   DATAP3         13895-DATA
   DATAP4         13896-DATA
   DATARTN         5706/STW     5712/LW      5726-DATA
   DATAUP          6687-LW     11696/BAL    11754/BAL    13539/BAL
   DATAUP1         6690-EQU    11968/BAL
   DATAWRT        11693/BAL    11700/BAL    11724-STW    11758/BAL    11802/BAL    11805/BAL    11841/BAL
   DATAWRT1       11728-LW     11735/B
   DATAWRT2       11726/STW    11733-DATA
   DATAZERO        7390-GEN    11692/LI     11801/LI
   DATEXT          1817/GEN     2244-EQU     3276/LW
   DATLAST         2700-EQU
   DEC             2588-DATA    2872/MSGX
   DECIMAL         2312-DATA    2868/MSGX    2875/MSGX
   DECODE          2313-DATA    2811/MSGX    2812/MSGX    2937/MSGX    2951/MSGX    2960/MSGX    2976/MSGX
      2980/MSGX    3123/MSGX    3126/MSGX
   DECODED         2589-DATA    2980/MSGX
   DECODING        2314-DATA    2951/MSGX    2976/MSGX
   DECREMENT       2315-DATA    3070/MSGX    3070/MSGX    3096/MSGX
   DECREMENTED     2316-DATA    3075/MSGX    3096/MSGX
   DEC1A           2510-GENV    2920/MSGX    3055/MSGX    3059/MSGX    3065/MSGX    3070/MSGX    3085/MSGX
      3092/MSGX    3101/MSGX    3107/MSGX    3116/MSGX    3123/MSGX    3126/MSGX    3139/MSGX    3147/MSGX
      3150/MSGX    3156/MSGX    3166/MSGX    3183/MSGX    3187/MSGX
   DEC2A           2511-GENV    2751/MSGX    2752/MSGX    2753/MSGX    2754/MSGX    2755/MSGX    2756/MSGX
      2757/MSGX    2758/MSGX    2889/MSGX    2894/MSGX    2895/MSGX    2908/MSGX
   DEC2B           2521-GENV    2937/MSGX    2960/MSGX    2960/MSGX    2976/MSGX    2982/MSGX    2982/MSGX
      2986/MSGX    2986/MSGX    3065/MSGX    3180/MSGX
   DEC2C           2522-GENV    2762/MSGX    2849/MSGX
   DEC3A           2512-GENV    2889/MSGX    2894/MSGX    2895/MSGX    2908/MSGX    3180/MSGX
   DEC3B           2513-GENV    2766/MSGX
   DEC4A           2514-GENV    2762/MSGX    2849/MSGX    2867/MSGX
   DEC4B           2523-GENV    2842/MSGX    2844/MSGX    2867/MSGX    2910/MSGX
   DEC8A           2515-GENV    2902/MSGX    2903/MSGX    2904/MSGX
   DEPENDENT       2590-DATA    2737/MSGX
   DESKEW          2591-DATA    3156/MSGX
   DETECT          2592-DATA    2986/MSGX
   DETECTED        2317-DATA    2875/MSGX    2935/MSGX    2964/MSGX    2966/MSGX    3043/MSGX    3142/MSGX
      3166/MSGX    3187/MSGX    3223/MSGX    3231/MSGX
   DETECTION       2593-DATA    3166/MSGX
   DETECTS         2594-DATA    2973/MSGX
   DEVICE          2318-DATA    2736/MSGX    2737/MSGX    2956/MSGX    2956/MSGX    3156/MSGX    3189/MSGX
      3189/MSGX
   DID             2595-DATA    2836/MSGX
   DIFFERENCE      2596-DATA    3166/MSGX
   DIMSGDAT        2780-MSGX    5601/DATA    5602/DATA
   DIMSGDL         2781-MSGX    5590/DATA
   DIMSGDLY        2764-MSGX    5519/DATA
   DIMSGERR        2765-MSGX    5524/DATA
   DIMSGEXP        2767-MSGX    5574/DATA
   DIMSGNO         2766-MSGX    5535/DATA
   DIMSGOBS        2768-MSGX    5580/DATA
   DIMSGRD         2779-MSGX    5553/LI      5565/DATA
   DIMSGTI         2775-MSGX    5559/LI
   DIMSGTR         2777-MSGX    5562/LI
   DIMSGTS         2773-MSGX    5556/LI
   DIMSGWD         2772-MSGX    5548/LI
   DIO             2319-DATA    2764/MSGX    2765/MSGX    2766/MSGX    2772/MSGX    2773/MSGX    2775/MSGX
      2777/MSGX    2779/MSGX    2915/MSGX    2915/MSGX    2920/MSGX    2924/MSGX    2927/MSGX
   DIOADNOW        3615/STW     3653/LW      7165-DATA    7542/STW     7573/WD*     7579/WD*
   DIOAD0          4867/RD*     4874/RD*     6010/WD*     7154-DATA    7541/AW      7607/WD*    10033/RD*
     10136/RD*    10180/RD*    11409/RD*
   DIOAD0TI        7163-DATA    9795/RD*     9797/RD*     9801/RD*     9803/RD*     9807/RD*     9934/RD*
      9938/RD*    10633/RD*    10635/RD*    10639/RD*    10641/RD*    10645/RD*    10754/RD*    10758/RD*
     11061/RD*    11063/RD*    11414/RD*    11416/RD*
   DIOAD0TR        7164-DATA   10184/RD*    10630/RD*    10637/RD*    10643/RD*    10647/RD*    10751/RD*
     10756/RD*    11057/RD*
   DIOAD0TS        7075/RD*     7162-DATA    9443/RD*     9719/RD*     9761/RD*     9793/RD*     9799/RD*
      9805/RD*     9811/RD*     9931/RD*     9936/RD*    11418/RD*
   DIOAD1          7067/WD*     7155-DATA    7582/RD*     7609/WD*     7651/WD*     7653/RD*     7700/WD*
      7702/RD*     7705/WD*     7710/WD*     7712/RD*     7796/WD*     7829/WD*     8018/WD*     8069/WD*
      8156/WD*     8183/WD*     8216/WD*     8293/WD*     8404/WD*     8509/WD*     8603/WD*     8642/WD*
      8713/WD*     8749/WD*     8852/WD*     8891/WD*     9083/WD*     9287/WD*     9481/WD*     9661/WD*
      9715/WD*     9787/WD*    10030/WD*    10854/WD*    11051/WD*    11405/WD*    11597/WD*
   DIOAD2          7073/WD*     7156-DATA    7611/WD*     7752/WD*     7832/WD*     8219/WD*     8297/WD*
      8716/WD*     8752/WD*     8775/WD*     8855/WD*     9438/WD*     9441/WD*     9607/WD*
   DIOAD3          4787/WD*     7157-DATA    7483/WD*     7506/WD*     7614/WD*     7647/WD*     7696/WD*
      7922/WD*     8370/WD*     9177/WD*     9492/WD*    11602/WD*    14172/WD*    14701/WD*
   DIOAD4          7158-DATA
   DIOAD5          7159-DATA
   DIOAD6          7160-DATA
   DIOAD7          7161-DATA
   DIOCHECK        4769/BAL     5503-MTW
   DIODATA         7272-DATA    7545/STD     7547/LD      7549/STD     7663/STD     7669/LD      7671/STD
      7674/MTW     7943/STD     7944/LD      7947/STD     7957/LW      7963/LW     11031/LW     11127/LW
   DIODATA1        1047-DATA    5597/LW      7546/STW     7551/XW      7557/CW      7578/LW      7585/CW
      7621/CW      7649/LW      7664/STW     7673/XW      7676/CW      7698/LW      9026/LW      9064/LW
      9099/LW
   DIODATE         7168-DATA
   DIOEND          3657/LI      3658/LW      3661/STW     7166-SET
   DIOFORMT        5536/LI      5570/STB     5572/STB     5576/STB     5578/STB     5611-DATA
   DIOLIST         1097-DATA    3943/STW     3970/STW     4746/STW     5238/LW      5280/MTW     5285/STM*
      5532/CW     14699/STW    15496/LW     15517/LW     15538/SW     15539/STW*
   DIOMASK         1055-DATA    5598/LW      7539/STW     7550/AND     7584/AND     7620/AND     7661/STW
      7672/AND
   DIOMASKS        7176-DATA
   DIOPOINT        1026-DATA    5528/STW     5529/MTW     5531/LW      5538/LW*     5549/LH*     5568/LW*
      5581/LH*     5587/LW*
   DIOREPORT       5508-MTW
   DIORESET        4757/BAL     4784-CW
   DIORPT1         5510/BNEZ    5523-BAL
   DIORPT2         5520/B       5525-LI
   DIORPT3         5529-MTW     5591/B       5604/B
   DIORPT4         5552/BNE     5555/BEZ     5558/BE      5561/BE      5563-STW
   DIORPT5         5584/BNE     5587-LW
   DIORPT6         5533/BL      5592-B
   DIORP1          5512/BNEZ    5517-BAL
   DIOSTART        3657/LI      7153-SET
   DIRECT          2320-DATA    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX    2779/MSGX    2915/MSGX
      2920/MSGX    2920/MSGX    2930/MSGX
   DLAYSAVE        1029-DATA    3968/STW     6404/LW     13621/STW    13653/STW    13666/STW
   DO              2597-DATA    2911/MSGX
   DOAL            4763/BAL     5238-LW
   DOAL1           5236/B       5242-BEZ
   DOCOMP          4773/BAL     5198-STW
   DOCOMP1         5204/BEZ     5207-BAL
   DOCOMP2         5209-B
   DOES            2598-DATA    3065/MSGX
   DOIO            4761/BAL     5153-CW
   DOIOEXIT        7221-DATA
   DOIOSTAT        1101-DATA    5161/STD     5172/STD     5767/LW      5769/LB      5776/LCF     5778/LD
      5809/LD      5918/LW      5930/LW      6115/LB      6127/LB      6249/LW      6539/STD     9091/STD
   DONE            2599-DATA    3162/MSGX
   DONTREAD        1326-DATA    3524/STW     3599/STW     3827/STW    13319/STW    13370/STW    13436/STW
     13875/STW    13969/STW    14245/STW    14260/STW    14263/STW    14738/STW    14787/MTW    14983/STW
   DOPATTN         7112-STW    11566/BAL    11654/BAL
   DOPL            4758/BAL     5234-LI
   DOUBLEWORD      2321-DATA    2799/MSGX    2801/MSGX    3009/MSGX    3009/MSGX
   DOWRITE        11353/BAL    11370-STW
   DPM              819/GOTO     971-EQU
   DT              1850-LOC
   DUMMY           7280-DATA    7784/LI      7911/LI      7948/LI      8000/LI      8143/LI      8170/LI
   DURING          2322-DATA    2986/MSGX    2986/MSGX
   DVO             1553/SET     5992/WD0     5996/WD0     6000/WD0     6004/WD0
   DVT             1553/SET     5992/WD0     5996/WD0     6000/WD0     6004/WD0
   D1              2488-SET     2510/GENV
   D2              2489-SET     2511/GENV    2521/GENV    2522/GENV
   D3              2490-SET     2512/GENV    2513/GENV
   D4              2491-SET     2514/GENV    2523/GENV
   D8              2492-SET     2515/GENV
   E               2323-DATA    2872/MSGX    2875/MSGX
   E:DISPLY        5114/MTW     5125/STW     5336/STW     7230-DATA
   E:ERROR         4283/STW     4723/STW     4730/STW     4781/STW     4829/CW      4831/STW     4836/CW
      5023/CW      5042/CW      5090/MTW     5092/STW     5097/CW      5099/MTW     5112/STW     5122/STW
      5124/LW      5203/MTW     5338/STW     5420/CW      5422/STW     5423/CW      6333/CW      7199-DATA
      8367/MTW    14176/STW    15731/STW
   E:MARKER        4282/STW     4421/MTW     4495/MTW     4782/STW     4823/STW     4826/STW     4839/MTW
      4927/MTW     5096/STW     5121/STW     5401/STW     5419/STW     5425/MTW     5441/MTW     5470/MTW
      5508/MTW     5652/MTW     5717/MTW     5802/MTW     5854/MTW     5936/MTW     6026/MTW     6037/MTW
      6255/MTW     6269/MTW     6788/MTW     7198-DATA   14175/STW    15728/STW
   E:PRINT         4784/CW      4819/CW      4841/MTW     5101/CW      5153/CW      5246/CW      5397/CW
      5427/MTW     5513/MTW     5515/CW      6421/CW      7197-DATA   14132/STW
   EACH            2600-DATA    2866/MSGX
   END             2324-DATA    2738/MSGX    2832/MSGX    2834/MSGX    2849/MSGX    2875/MSGX    3038/MSGX
      3038/MSGX    3038/MSGX    3080/MSGX    3162/MSGX    3217/MSGX
   ENDFLAG         6801/STW     6829/STW     6849/MTW     6943/MTW     6952/STW     7249-DATA
   ENDFLAG1        6802/STW     6880/STW     6913/MTW     6947/MTW     6953/STW     7250-DATA
   ENDFLAG2        6803/STW     6856/STW     6915/STW     6941/MTW     7251-DATA
   ENDMSG          2849-MSGX    5046/DATA
   ENDOPER         1234-DATA    3526/STW    14856/STW    14908/MTW    14919/MTW    14948/MTW    14979/LW
     15100/STW    15180/STW    15317/STW    15358/STW    15669/CW     15747/CW
   ENDSHOT         1202-DATA   15520/STW
   ENOUGH          2601-DATA    2907/MSGX
   ENTRY           2602-DATA    2866/MSGX
   EQ              2325-DATA    2767/MSGX    2768/MSGX    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX
      2779/MSGX    2781/MSGX    2782/MSGX    2782/MSGX    2783/MSGX    2783/MSGX    2786/MSGX    2786/MSGX
      2787/MSGX    2788/MSGX    2797/MSGX    2797/MSGX    2798/MSGX    2798/MSGX    2875/MSGX    2875/MSGX
      2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2889/MSGX
      2889/MSGX    2894/MSGX    2894/MSGX    2895/MSGX    2895/MSGX    2908/MSGX    2908/MSGX    2908/MSGX
      3180/MSGX    3180/MSGX
   ERRCBR          2906-MSGX   15003/DATA
   ERRCNT          7216-DATA
   ERRNOINT        2905-MSGX   15002/DATA
   ERROR           2326-DATA    2733/MSGX    2744/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX
      2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2886/MSGX    2962/MSGX    2962/MSGX
      2986/MSGX    3029/MSGX    3030/MSGX    3031/MSGX    3032/MSGX    3033/MSGX    3034/MSGX    3035/MSGX
      3036/MSGX    3037/MSGX    3038/MSGX    3043/MSGX    3142/MSGX    3142/MSGX    3162/MSGX    3162/MSGX
      3166/MSGX
   ERRORS          2603-DATA    2910/MSGX
   ERRWORD        14990/LW     15001-SET
   EXAIODST        1237-DATA
   EXDATAIO        1224-DATA   14409/STW    14489/STW    14509/STW    14526/STW    14815/STW    15033/LW
   EXDTAIO        14434/LW     14453/LW     14488/LW     14508/LW     14525/LW     14814/LW     14832-DATA
   EXECUTE         2327-DATA    3046/MSGX    3049/MSGX
   EXECUTED        2328-DATA    2995/MSGX    3022/MSGX    3147/MSGX    3150/MSGX
   EXECUTION       2329-DATA    2940/MSGX    3046/MSGX    3049/MSGX
   EXERCISER       2604-DATA    2833/MSGX    2834/MSGX
   EXP             2330-DATA    2745/MSGX    2749/MSGX    2767/MSGX    2782/MSGX    2783/MSGX    2787/MSGX
      2788/MSGX    2791/MSGX    2797/MSGX    2798/MSGX    2799/MSGX    2801/MSGX    2844/MSGX    2914/MSGX
   EXPATMSG        2855-MSGX    6795/DATA
   EXPCORE         6777-DATA    6885/STW     6895/STB     6921/STW     6930/LI
   EXPECTED        2331-DATA    2836/MSGX    2847/MSGX    2855/MSGX    2855/MSGX    2894/MSGX
   EXPINT          2836-MSGX    6028/LI      6491/DATA
   EXPSECT         2894-MSGX    6281/DATA
   EXPTRAP         3987/LI      4763-BAL     5234/LI      6019/LI      6080/LI      8356/LW
   EXPWDMSG        2844-MSGX    6927/DATA
   EXSEKAIO        1223-DATA   14435/STW    14454/STW    14813/STW    14867/LW     15042/LW
   EXSKAIO        14812/LW     14831-DATA
   FACOUNT         6153-LW      6380/BAL     9680/BAL    11078/BAL
   FAILDLY         2851-MSGX    6242/DATA
   FAILED          2605-DATA    3139/MSGX
   FAILERR         2852-MSGX    6243/DATA
   FAILING         2332-DATA    2851/MSGX    2852/MSGX    2896/MSGX    3160/MSGX
   FAILTCK         6237-LB      7091/BAL    12572/BAL
   FAKEINTR        1231-DATA   14878/STW    14911/MTW    15024/MTW    15053/STW    15104/STW    15136/STW
     15321/STW    15375/STW
   FALSEINT       15153/B      15207-LI
   FAM             2333-DATA    2817/MSGX    2818/MSGX    2825/MSGX    2826/MSGX    2855/MSGX    3075/MSGX
      3075/MSGX    3075/MSGX    3085/MSGX    3085/MSGX    3085/MSGX    3096/MSGX    3096/MSGX    3096/MSGX
      3096/MSGX    3101/MSGX    3101/MSGX    3107/MSGX    3107/MSGX    3107/MSGX    3139/MSGX    3139/MSGX
   FAMCNT          1689-CNAME
   FAMPRES         6224-LB     10656/BAL    10819/BAL    11431/BAL
   FAMPRMSK        1074-DATA    6225/LW
   FAMSGDLY        2817-MSGX    6159/DATA
   FAMSGERR        2818-MSGX    6160/DATA
   FAMSGHDR        6161/DATA    7448-TEXTC
   FAMWORD         6774-DATA    6833/STW     6839/STW     6928/LI
   FAR             2334-DATA    2960/MSGX    2976/MSGX
   FAULT           2335-DATA    2786/MSGX    2813/MSGX    2814/MSGX    2964/MSGX    2964/MSGX    2966/MSGX
      2966/MSGX    3002/MSGX
   FBMSGDLY        2826-MSGX    6229/DATA
   FBMSGERR        2825-MSGX    6230/DATA
   FBMSGHDR        6231/DATA    7459-TEXTC
   FIOCD01         7357-GEN    10411/LD
   FIOCD02         7359-GEN
   FIOCD03         7361-GEN
   FIOCD04         7363-GEN
   FIOCD05         7365-GEN
   FIOCD06         7367-GEN
   FIOCD07         7369-GEN
   FIOCD08         7371-GEN
   FIOCD09         7373-GEN
   FIOCD10         7375-GEN
   FIOCD11         7377-GEN
   FIOCD12         7379-GEN
   FIOCD13         7381-GEN
   FIOCD14         7383-GEN
   FIOCD15         7385-GEN
   FIOCD16         7387-GEN
   FIRST           2336-DATA    3197/MSGX    3208/MSGX
   FIRSTLOC       14050/CW     14059/LW     14067/LW     14083-DATA
   FIVE            2606-DATA    3231/MSGX
   FIXED           2607-DATA    3197/MSGX
   FLAG            2337-DATA    3112/MSGX    3114/MSGX
   FMPRMSKS        7195-DATA
   FNCOMP          5673-LH      7807/BAL     7843/BAL     7896/BAL     8723/BAL
   FNMASK          1067-DATA    5674/LW
   FNMASKS         7188-DATA
   FNMSGDPY        2789-MSGX    5678/DATA
   FNMSGERR        2790-MSGX    5679/DATA
   FNMSGHDR        5680/DATA    7433-TEXTC
   FOLLOWED        2608-DATA    2995/MSGX
   FOR             2338-DATA    2907/MSGX    2920/MSGX    2982/MSGX    2984/MSGX    3009/MSGX    3052/MSGX
      3085/MSGX    3112/MSGX    3114/MSGX    3133/MSGX    3136/MSGX    3150/MSGX    3162/MSGX    3162/MSGX
      3170/MSGX    3172/MSGX    3174/MSGX    3177/MSGX
   FORMAT          2564/DATA    2565/DATA    5642/STW     5646/STW     5647/STW     5648/LI      5664/STW
      5665/STW     5669-DATA
   FORMEXP         5662-DATA
   FORMHD1D        5643/STW     5655-DATA
   FORMHD1E        5644/STW     5658-DATA
   FORMHD2         5645/STW     5660-DATA
   FORMOBS         5667-DATA
   FORMRTN         5651/STW     5668/B*      5672-DATA
   FORMSG          5599/BAL     5639-LCI     5676/BAL     5730/BAL     5921/BAL     5949/BAL     5967/BAL
      5978/BAL     6103/BAL     6118/BAL     6130/BAL     6143/BAL     6157/BAL     6170/BAL     6188/BAL
      6202/BAL     6214/BAL     6227/BAL     6240/BAL
   FORM1           5653/BNEZ    5657-BAL
   FORM2           5656/B       5659-BAL
   FORM3           5661-BAL
   FORM4           5666-BAL
   FOUR            2339-DATA    3116/MSGX    3116/MSGX    3160/MSGX    3160/MSGX    3197/MSGX    3217/MSGX
   FO2STEP1        9832/LI      9840-MEPROC
   FO2STEP2        9848-MEPROC
   FO2STEP3        9856-MEPROC
   FO2STEP4        9864-MEPROC
   FO2STEP5        9872-MEPROC
   FO2STEP6        9880-MEPROC
   FO2STEP7        9888-MEPROC
   FO2STEP8        9896-MEPROC
   FO2STEP9        9905-MEPROC
   FO3STEP1        9944/LI      9946-MEPROC
   FO3STEP2        9954-MEPROC
   FO3STEP3        9962-MEPROC
   FO3STEP4        9970-MEPROC
   FO4STEP1        9983/LI     10045-MEPROC
   FO5STEP1        9990/LI     10053-MEPROC
   FO6STEP1        9998/LI     10061-MEPROC
   FO7STEP1       10006/LI     10070-MEPROC
   FREE            2340-DATA    2940/MSGX    2976/MSGX    3080/MSGX    3107/MSGX    3130/MSGX    3228/MSGX
   FROM            2341-DATA    2838/MSGX    2839/MSGX    2908/MSGX    2943/MSGX    2947/MSGX    2982/MSGX
      2989/MSGX    3005/MSGX    3009/MSGX    3059/MSGX    3070/MSGX    3085/MSGX    3096/MSGX    3101/MSGX
      3107/MSGX    3107/MSGX    3130/MSGX    3145/MSGX    3156/MSGX    3160/MSGX    3192/MSGX
   FSCOMP          6115-LB      9003/BAL     9011/BAL
   FSMSGDLY        2813-MSGX    6120/DATA
   FSMSGERR        2814-MSGX    6121/DATA
   FSMSGHDR        6122/DATA    6134/DATA    6244/DATA    7443-TEXTC
   FUCTEXIT        4017-B       4039/EQU    12778/B      12829/B      12877/B      12881/B      12933/B
     13092/LI     13215/B      13418/B      13530/B      13832/BNEZ
   FULL            2342-DATA    2819/MSGX    2820/MSGX    3065/MSGX    3092/MSGX
   FULLCOMP        6166-LW      6361/BAL     9672/BAL     9724/BAL    11623/BAL
   FULLMASK        1070-DATA    6168/LW
   FULLPROC        1709-CNAME
   FULMASKS        7191-DATA
   FUMSGDLY        2819-MSGX    6172/DATA
   FUMSGERR        2820-MSGX    6173/DATA
   FUMSGHDR        6174/DATA    7451-TEXTC
   FUNCTION        2343-DATA    2789/MSGX    2790/MSGX    3220/MSGX
   FUNCTIONAL      2609-DATA    2831/MSGX    2832/MSGX
   FUNCTIONING     2344-DATA    2943/MSGX    2984/MSGX    3005/MSGX
   FUNCTIONS       2345-DATA    2989/MSGX    3025/MSGX    3116/MSGX    3133/MSGX    3136/MSGX    3154/MSGX
      3156/MSGX
   FUNINTR         6463-DATA    6467/LPSD    7234/XPSD
   FUNINTR1        6464/DATA    6465-LI
   F0BYIND         7245-DATA   11427/STW    11447/LW     11449/OR     11450/STW    11466/LW     11473/LW
     11480/LW
   F0BYPROC        7242-DATA   11389/STW    11425/LW     11458/LW     11465/LW     11472/LW     11479/LW
   F0BYPR01        7243-DATA
   F0EXPDAT        7240-DATA   11358/LW     11387/STW
   F00YYY         10086/B      10093/B      10100/B      10107/B      10110-STW
   F00YYY1        10116-LI     10130/B
   F00YYY2        10124-BAL
   F00ZZZ          9985/B       9992/B      10000/B      10008/B      10011-STW
   F00ZZZ1        10018-LI     10025/B
   F000            4132/TEST    9646-BAL     9656/B
   F001            4133/TEST    9690-LI
   F001X           4134/TEST    9736-STW
   F0011           9704-LI      9711/B
   F0011X          9751-LI      9758/B
   F0012           9695-LW      9712/B
   F0012X          9742-LW      9759/B
   F002            4135/TEST    9771-STW     9782/B
   F003            4136/TEST    9917-STW     9928/B
   F004            4137/TEST    9981-LI
   F005            4138/TEST    9988-LI
   F006            4139/TEST    9996-LI
   F007            4140/TEST   10004-LI
   F008            4141/TEST   10084-LI
   F009            4142/TEST   10091-LI
   F010            4143/TEST   10098-LI
   F011            4144/TEST   10105-LI
   F012            4145/TEST   10163-LW     10174/B
   F013            4146/TEST   10345-LI
   F013X          10349/B      10353-STD
   F013XX         10350-LD     10360/B
   F013Y          10359/BAL    10361-STW    11256/BAL
   F013YY         10362-LI     10369/B      10376/B
   F015            4147/TEST   10402-LI
   F015X          10406-MTW    10430/B
   F015Y          10415-LI     10422/B      10429/B
   F016            4148/TEST   10577-BAL
   F016X          10590-LI     10597/B      11381/B
   F016XMSG        6305/STW    10595-DATA
   F017            4114/TEST    9301-BAL
   F017X           9305-LI      9312/B
   F018            4149/TEST   10615-STW    10626/B
   F019            4150/TEST   10738-STW    10747/B
   F020            4151/TEST   10801-STW    10812/B
   F022            4152/TEST   10840-BAL    10849/B
   F023            4153/TEST   11008-STW
   F023DATA       11011/B      11018/B      11025/B      11026-STW
   F023X          11030-BAL    11047/B
   F023Y          11033-BAL    11046/B
   F024            4154/TEST   11015-STW
   F025            4155/TEST   11022-STW
   F026            4156/TEST   11103-STW
   F026DATA       11106/B      11113/B      11120/B      11121-STW
   F026X          11126-BAL    11144/B
   F026Y          11130-BAL    11143/B
   F027            4157/TEST   11110-STW
   F028            4158/TEST   11117-STW
   F029            4159/TEST   11157-LW     11166/B      11179/B
   F029A          11167-LW
   F029SET        11158/BAL    11188-LI     11210/BAL
   F030            4160/TEST   11209-LW     11218/B      11229/B
   F030A          11219-LW
   F0301           4161/TEST   11239-LI
   F0301X         11243/B      11250-STD
   F0301XX        11245-LD     11257/B
   F031            4162/TEST   11263-LW     11270/LI
   F032            4163/TEST   11278-LW     11285/LI
   F033            4164/TEST   11293-LW     11300/LI
   F034            4165/TEST   11308-LW     11315/LI
   F035            4166/TEST   11324-LW     11331/LI
   F036            4167/TEST   11340-LW     11347/LI
   F037            4168/TEST   11488-LI
   F037X          11491-LI     11501/B      11510/B
   F038            4169/TEST   11498-LI
   F038X           4170/TEST   11507-LI
   F039            4171/TEST   11513-LI
   F039X          11516-LI     11525/B
   F040            4172/TEST   11522-LI
   F041            4173/TEST   11653-LI     11663/B
   F042            4174/TEST   11688-BAL
   F042IOCD       11697/DATA   11855-GEN
   F0421          11691-BAL    11710/B      11712/B
   F0422          11699-LI
   F043            4175/TEST   11749-BAL
   F043IOCD       11755/DATA   11862-GEN
   F0431          11752-BAL    11768/B      11770/B
   F0432          11757-LI
   F044            4176/TEST   11787-STW
   F044IOCD       11795/LM     11868-GEN
   F0441          11800-BAL    11815/B
   F0442          11790-AWM    11816/B
   F045            4177/TEST   11825-STW
   F045A           4178/TEST   11885-SET
   F045IOCD       11832/LM     11874-GEN
   F0451          11839-BAL    11850/B
   F0452          11829-LI     11851/B
   F046            4179/TEST   11907-EQU
   F046X          11910/B      11918-LI
   F046XX         11942-LW     11999/B      12065/B
   F046XXX        11949/BGE    11959/BGE    12050-LI
   F0461          11989-LI     11996/B
   F0462          11979-EQU    11986/B
   F047            4180/TEST   11915-LI
   F12STP00       10192/LI     10197-MEPROC
   F12STP01       10206-MEPROC
   F12STP02       10215-MEPROC
   F12STP03       10223-MEPROC
   F12STP04       10231-MEPROC
   F12STP05       10240-MEPROC
   F12STP06       10249-MEPROC
   F12STP07       10257-MEPROC
   F12STP08       10265-MEPROC
   F12STP09       10274-MEPROC
   F12STP10       10283-MEPROC
   F12STP11       10291-MEPROC
   F12STP12       10299-MEPROC
   F12STP13       10308-MEPROC
   F12STP14       10317-MEPROC
   F12STP15       10325-MEPROC
   F12STP16       10333-MEPROC
   F14STP01       10435/AI     10441-MEPROC
   F14STP02       10450-MEPROC
   F14STP03       10458-MEPROC
   F14STP04       10466-MEPROC
   F14STP05       10474-MEPROC
   F14STP06       10482-MEPROC
   F14STP07       10490-MEPROC
   F14STP08       10498-MEPROC
   F14STP09       10507-MEPROC
   F14STP10       10515-MEPROC
   F14STP11       10523-MEPROC
   F14STP12       10532-MEPROC
   F14STP13       10540-MEPROC
   F14STP14       10548-MEPROC
   F14STP15       10557-MEPROC
   F14STP16       10565-MEPROC
   F18STP01       10652/LI     10660-MEPROC 10816/LI
   F18STP02       10668-MEPROC
   F18STP03       10676-MEPROC
   F18STP04       10684-MEPROC
   F18STP05       10692-MEPROC
   F18STP06       10700-MEPROC
   F18STP07       10708-MEPROC
   F18STP08       10716-MEPROC
   F18STP09       10725-MEPROC
   F19STP01       10763/LI     10766-MEPROC
   F19STP02       10774-MEPROC
   F19STP03       10782-MEPROC
   F19STP04       10790-MEPROC
   F20STP09       10821/LI     10829-MEPROC
   F22STP00       10860/LI     10865-MEPROC
   F22STP01       10873-MEPROC
   F22STP02       10881-MEPROC
   F22STP03       10889-MEPROC
   F22STP04       10898-MEPROC
   F22STP05       10906-MEPROC
   F22STP06       10914-MEPROC
   F22STP07       10922-MEPROC
   F22STP08       10931-MEPROC
   F22STP09       10939-MEPROC
   F22STP10       10947-MEPROC
   F22STP11       10955-MEPROC
   F22STP12       10964-MEPROC
   F22STP13       10972-MEPROC
   F22STP14       10980-MEPROC
   F22STP15       10988-MEPROC
   F22STP16       10997-MEPROC
   F31ST00        11428/LI     11456-MEPROC
   F31ST01        11463-MEPROC
   F31ST02        11470-MEPROC
   F31ST03        11477-MEPROC
   F370IOCD       11488/LI     11527-GEN
   F380IOCD       11498/LI     11533-GEN
   F381IOCD       11507/LI     11539-GEN
   F390IOCD       11513/LI     11545-GEN
   F400IOCD       11522/LI     11551-GEN
   F410IOCD       11656/LI     11667-GEN
   GENERATED       2346-DATA    2964/MSGX    2966/MSGX    3017/MSGX    3019/MSGX    3038/MSGX    3156/MSGX
   GENERATION      2347-DATA    2966/MSGX    3017/MSGX
   GENV            1833-CNAME
   GO              2348-DATA    3025/MSGX    3038/MSGX    3080/MSGX    3083/MSGX
   GOTINTR         4740/STW     6466/STW     6479/MTW     6543/MTW     7236-DATA    7731/LW      9170/STW
      9181/LW     13259/STW    13267/MTW    13289/MTW    14872/STW
   GROUP           2349-DATA    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX    2779/MSGX    2920/MSGX
      2920/MSGX
   GROUPS          2610-DATA    2930/MSGX
   GROUP0          1078-DATA    5292/STW     5596/LW      5673/LH      5843/LW      5847/LW      6100/LB
      7619/LW
   GROUP1          1079-DATA    5975/LW
   GROUP2          1080-DATA    5945/LW      5959/EOR
   GROUP3          1081-DATA    6166/LW      6180/LW      6182/LW      6199/LH      7090/LB
   GROUP4          1082-DATA    6153/LW      6211/LB      6224/LB
   GROUP5          1083-DATA    6140/LW
   GROUP6          1084-DATA    5727/LW      6347/STW
   GROUP7          1085-DATA
   H               2350-DATA    2872/MSGX    2875/MSGX    2989/MSGX    3009/MSGX    3059/MSGX    3085/MSGX
   HALT            2351-DATA    2736/MSGX    3029/MSGX    3228/MSGX
   HALTED          2611-DATA    3228/MSGX
   HAS             2612-DATA    2933/MSGX
   HBPA            1659/SET     9851/BYMHI   9875/BYMHI   9899/BYMHI   9908/BYMHI   9957/BYMHI   9965/BYMHI
     10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10234/BYMHI  10243/BYMHI  10268/BYMHI  10277/BYMHI
     10302/BYMHI  10311/BYMHI  10444/BYMHI  10453/BYMHI  10461/BYMHI  10469/BYMHI  10477/BYMHI  10485/BYMHI
     10493/BYMHI  10501/BYMHI  10510/BYMHI  10518/BYMHI  10526/BYMHI  10535/BYMHI  10543/BYMHI  10551/BYMHI
     10560/BYMHI  10568/BYMHI  10703/BYMHI  10711/BYMHI  10719/BYMHI  10728/BYMHI  10884/BYMHI  10892/BYMHI
     10917/BYMHI  10925/BYMHI  10950/BYMHI  10958/BYMHI  10983/BYMHI  10991/BYMHI
   HBPB            1659/SET     9851/BYMHI   9875/BYMHI   9899/BYMHI   9908/BYMHI   9957/BYMHI   9965/BYMHI
     10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10234/BYMHI  10243/BYMHI  10268/BYMHI  10277/BYMHI
     10302/BYMHI  10311/BYMHI  10444/BYMHI  10461/BYMHI  10469/BYMHI  10485/BYMHI  10493/BYMHI  10501/BYMHI
     10510/BYMHI  10518/BYMHI  10526/BYMHI  10543/BYMHI  10551/BYMHI  10568/BYMHI  10703/BYMHI  10711/BYMHI
     10719/BYMHI  10728/BYMHI  10884/BYMHI  10892/BYMHI  10917/BYMHI  10925/BYMHI  10950/BYMHI  10958/BYMHI
     10983/BYMHI  10991/BYMHI
   HBPC            1659/SET     9851/BYMHI   9875/BYMHI   9899/BYMHI   9908/BYMHI   9957/BYMHI   9965/BYMHI
     10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10234/BYMHI  10243/BYMHI  10268/BYMHI  10277/BYMHI
     10302/BYMHI  10311/BYMHI  10444/BYMHI  10469/BYMHI  10493/BYMHI  10501/BYMHI  10518/BYMHI  10526/BYMHI
     10543/BYMHI  10551/BYMHI  10703/BYMHI  10711/BYMHI  10719/BYMHI  10728/BYMHI  10884/BYMHI  10892/BYMHI
     10917/BYMHI  10925/BYMHI  10950/BYMHI  10958/BYMHI  10983/BYMHI  10991/BYMHI
   HBPD            1659/SET     9851/BYMHI   9875/BYMHI   9899/BYMHI   9908/BYMHI   9957/BYMHI   9965/BYMHI
     10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10234/BYMHI  10243/BYMHI  10268/BYMHI  10277/BYMHI
     10302/BYMHI  10311/BYMHI  10444/BYMHI  10501/BYMHI  10526/BYMHI  10551/BYMHI  10703/BYMHI  10711/BYMHI
     10719/BYMHI  10728/BYMHI  10884/BYMHI  10892/BYMHI  10917/BYMHI  10925/BYMHI  10950/BYMHI  10958/BYMHI
     10983/BYMHI  10991/BYMHI
   HCE             1589/SET     9415/WD2
   HEAD            2352-DATA    2887/MSGX    2888/MSGX
   HEADER          2353-DATA    2875/MSGX    3036/MSGX
   HEADR           1525-CNAME
   HEX1A           2516-GENV    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX    2779/MSGX
   HEX2A           2517-GENV    2767/MSGX    2768/MSGX    2772/MSGX    2773/MSGX    2775/MSGX    2777/MSGX
      2779/MSGX    2782/MSGX    2783/MSGX    2786/MSGX
   HEX2B           2524-GENV    2786/MSGX
   HEX4A           2518-GENV    2744/MSGX    2762/MSGX    2797/MSGX    2798/MSGX    2890/MSGX    2891/MSGX
      2908/MSGX    2914/MSGX
   HEX4B           2525-GENV    2797/MSGX    2798/MSGX
   HEX4C           2526-GENV    3070/MSGX
   HEX6A           2519-GENV    2728/MSGX    2897/MSGX    2900/MSGX
   HEX6B           2527-GENV    2897/MSGX    2900/MSGX
   HEX6C           2528-GENV    2799/MSGX    2801/MSGX    2897/MSGX
   HEX6D           2529-GENV    2799/MSGX    2801/MSGX    2897/MSGX
   HEX8A           2520-GENV    2730/MSGX    2781/MSGX
   HEX8B           2530-GENV    2730/MSGX
   HFULL           1716/SET     9849/FULLPROC             9873/FULLPROC             9897/FULLPROC
      9906/FULLPROC             9955/FULLPROC             9963/FULLPROC            10046/FULLPROC
     10054/FULLPROC            10062/FULLPROC            10071/FULLPROC            10198/FULLPROC
     10207/FULLPROC            10232/FULLPROC            10241/FULLPROC            10266/FULLPROC
     10275/FULLPROC            10533/FULLPROC            10558/FULLPROC            10566/FULLPROC
     10701/FULLPROC            10709/FULLPROC            10717/FULLPROC            10726/FULLPROC
     10830/FULLPROC            10882/FULLPROC            10890/FULLPROC            10915/FULLPROC
     10923/FULLPROC            10948/FULLPROC            10956/FULLPROC            10981/FULLPROC
     10989/FULLPROC
   HF8             2498-SET
   HIOSTAT         1105-DATA    6517/LW      6529/LW     15301/LW     15306/MTH    15674/LW     15724/LW
     15783/LH
   HSB             5960/OR      7213-DATA
   H1              2493-SET     2516/GENV
   H2              2494-SET     2517/GENV    2524/GENV
   H4              2495-SET     2518/GENV    2525/GENV    2526/GENV
   H6              2496-SET     2519/GENV    2527/GENV    2528/GENV    2529/GENV
   H8              2497-SET     2520/GENV    2530/GENV
   I                807-SET      809/GEN      809/GEN      809/GEN      809/GEN      810-SET      810/SET
      1813-DO      1814/DO      1815/GEN     1817/GEN     1826-SET     1827/GEN     1828/GEN
   IBPA            1659/SET     9883/BYMHI   9891/BYMHI   9899/BYMHI   9908/BYMHI  10056/BYMHI  10064/BYMHI
     10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10234/BYMHI  10243/BYMHI  10252/BYMHI  10268/BYMHI
     10277/BYMHI  10286/BYMHI  10302/BYMHI  10311/BYMHI  10320/BYMHI  10444/BYMHI  10453/BYMHI  10461/BYMHI
     10469/BYMHI  10477/BYMHI  10485/BYMHI  10493/BYMHI  10501/BYMHI  10510/BYMHI  10518/BYMHI  10526/BYMHI
     10535/BYMHI  10543/BYMHI  10551/BYMHI  10560/BYMHI  10568/BYMHI  10671/BYMHI  10695/BYMHI  10719/BYMHI
     10728/BYMHI  10892/BYMHI  10925/BYMHI  10958/BYMHI  10991/BYMHI
   IBPB            1659/SET     9883/BYMHI   9891/BYMHI   9899/BYMHI   9908/BYMHI  10056/BYMHI  10064/BYMHI
     10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10234/BYMHI  10243/BYMHI  10252/BYMHI  10268/BYMHI
     10277/BYMHI  10286/BYMHI  10302/BYMHI  10311/BYMHI  10320/BYMHI  10444/BYMHI  10461/BYMHI  10469/BYMHI
     10485/BYMHI  10493/BYMHI  10501/BYMHI  10510/BYMHI  10518/BYMHI  10526/BYMHI  10535/BYMHI  10543/BYMHI
     10551/BYMHI  10560/BYMHI  10568/BYMHI  10671/BYMHI  10695/BYMHI  10719/BYMHI  10728/BYMHI  10892/BYMHI
     10925/BYMHI  10958/BYMHI  10991/BYMHI
   IBPC            1659/SET     9883/BYMHI   9891/BYMHI   9899/BYMHI   9908/BYMHI  10056/BYMHI  10064/BYMHI
     10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10234/BYMHI  10243/BYMHI  10252/BYMHI  10268/BYMHI
     10277/BYMHI  10286/BYMHI  10302/BYMHI  10311/BYMHI  10320/BYMHI  10444/BYMHI  10469/BYMHI  10493/BYMHI
     10501/BYMHI  10518/BYMHI  10526/BYMHI  10535/BYMHI  10543/BYMHI  10551/BYMHI  10560/BYMHI  10568/BYMHI
     10671/BYMHI  10695/BYMHI  10719/BYMHI  10728/BYMHI  10892/BYMHI  10925/BYMHI  10958/BYMHI  10991/BYMHI
   IBPD            1659/SET     9883/BYMHI   9891/BYMHI   9899/BYMHI   9908/BYMHI  10056/BYMHI  10064/BYMHI
     10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10234/BYMHI  10243/BYMHI  10252/BYMHI  10268/BYMHI
     10277/BYMHI  10286/BYMHI  10302/BYMHI  10311/BYMHI  10320/BYMHI  10444/BYMHI  10501/BYMHI  10526/BYMHI
     10535/BYMHI  10551/BYMHI  10560/BYMHI  10568/BYMHI  10671/BYMHI  10695/BYMHI  10719/BYMHI  10728/BYMHI
     10892/BYMHI  10925/BYMHI  10958/BYMHI  10991/BYMHI
   IF              2357-DATA    3046/MSGX    3183/MSGX    3217/MSGX
   IFULL           1716/SET     9881/FULLPROC             9889/FULLPROC             9897/FULLPROC
      9906/FULLPROC            10046/FULLPROC            10054/FULLPROC            10062/FULLPROC
     10071/FULLPROC            10198/FULLPROC            10207/FULLPROC            10216/FULLPROC
     10232/FULLPROC            10241/FULLPROC            10250/FULLPROC            10266/FULLPROC
     10275/FULLPROC            10284/FULLPROC            10451/FULLPROC            10459/FULLPROC
     10467/FULLPROC            10475/FULLPROC            10483/FULLPROC            10491/FULLPROC
     10499/FULLPROC            10508/FULLPROC            10516/FULLPROC            10524/FULLPROC
     10533/FULLPROC            10541/FULLPROC            10549/FULLPROC            10558/FULLPROC
     10566/FULLPROC            10669/FULLPROC            10693/FULLPROC            10717/FULLPROC
     10726/FULLPROC            10775/FULLPROC            10783/FULLPROC            10830/FULLPROC
     10890/FULLPROC            10923/FULLPROC            10956/FULLPROC            10989/FULLPROC
     11464/FULLPROC
   IN              1620/SET     2358-DATA    2855/MSGX    2868/MSGX    2875/MSGX    2935/MSGX    2980/MSGX
      2980/MSGX    3014/MSGX    3014/MSGX    3043/MSGX    3043/MSGX    3043/MSGX    3043/MSGX    3083/MSGX
      3083/MSGX    3092/MSGX    3139/MSGX    3223/MSGX    7802/PHPROC  7837/PHPROC  7928/PHPROC
      7976/PHPROC  7982/PHPROC  7988/PHPROC  8225/PHPROC  8674/PHPROC  8720/PHPROC  9314/PHPROC
      9572/PHPROC  9612/PHPROC
   INCORRECT       2359-DATA    3034/MSGX    3150/MSGX    3154/MSGX    3154/MSGX
   INCREMENT       2360-DATA    3070/MSGX    3070/MSGX    3075/MSGX    3174/MSGX    3177/MSGX
   INCREMENTED     2361-DATA    3174/MSGX    3177/MSGX    3183/MSGX
   INDICATE        2613-DATA    2875/MSGX
   INDICATOR       2362-DATA    2951/MSGX    3038/MSGX
   INDICATORS      2363-DATA    2819/MSGX    2820/MSGX    2821/MSGX    2822/MSGX    2823/MSGX    2824/MSGX
      2825/MSGX    2826/MSGX    2989/MSGX    3059/MSGX    3085/MSGX    3096/MSGX    3139/MSGX
   INITERR         3606/BL      3608/BG      3631/BL      3633/BG      3639/B       3645-STW     3655/BG
   INITEXIT        3628/BGE     3652-LI
   INITIAL         2364-DATA    2918/MSGX    3025/MSGX    3052/MSGX    3052/MSGX    3083/MSGX
   INITPAR         3638/BAL     3680-AI
   INITPAR1        3684/BE      3690-STW
   INITRTN         1323-DATA    3597/STW     3676/B*
   INITSIZE        3758-SW     13979/B
   INIT0           3612-LW
   INIT04          3619-STW
   INIT05          3653-LW
   INIT051         3658-LW      3662/BIR
   INIT052         3663-LI
   INIT1           3625-AI
   INIT2           3626-AI      3642/B
   INIT3           3636-LW
   INIT4           3604/STH     3627-CI      3706/CH
   INL             1589/SET     9389/WD2
   INSAVE1         1123-DATA    6808/STM     6864/LM      6891/LM      6897/LW      6906/STM
   INSAVE2         1124-DATA
   INSAVE3         1125-DATA
   INSAVE4         1126-DATA
   INSTRLIST       6390/STW     6492/LW*     7263-DATA   15754/STW
   INSTRTAB        4996/CW      5795/CW      5815-DATA    6437/LW      6545/LW      6558/LW      7777/LW
      7876/LW      7997/LW      8042/LW      8054/LW      8131/LW      8825/LW      8834/LW
   INSTRUCTION     2365-DATA    2937/MSGX    2940/MSGX    2940/MSGX    2984/MSGX    2998/MSGX    2998/MSGX
      3022/MSGX    3022/MSGX    3046/MSGX    3049/MSGX    3049/MSGX    3228/MSGX
   INSTRUCTIONS    2366-DATA    3046/MSGX    3189/MSGX
   INTERFACE       2614-DATA    3156/MSGX
   INTERRUPT       2367-DATA    2720/MSGX    2738/MSGX    2836/MSGX    2837/MSGX    2847/MSGX    2848/MSGX
      2905/MSGX    2933/MSGX    2933/MSGX    2935/MSGX    2935/MSGX    2966/MSGX    2966/MSGX    2998/MSGX
      3017/MSGX    3017/MSGX    3019/MSGX    3019/MSGX    3022/MSGX
   INTEXFG         6416/STW     6472/STW     6481/MTW     6487/MTW     7205-DATA
   INTEXT1         3648/B       3666-STW
   INTO            2368-DATA    3025/MSGX    3083/MSGX    3101/MSGX    3107/MSGX
   INVALID         2369-DATA    2953/MSGX    2956/MSGX    3017/MSGX
   IOBAD          15164/B      15205-MTW
   IOBOTTOM       14080-DATA   15543/LW
   IOCBYTE         7282-DATA   11360/LI     11397/STD
   IOCD            2370-DATA    2730/MSGX    3014/MSGX
   IOCDATA         1361-DATA   14404/STD    14426/STD    14449/STD    14477/STD    14504/STD    14521/STD
     14538/STD    14539/STD    14546/AWM    14550/AWM    14551/AWM    14555/AWM    14823/STD    15026/LI
     15085/STW    15360/XW     15362/AWM    15379/LW     15408/LI     15432/LW     15439/LB     15692/CI
     15694/LW
   IOCDAT01        1363-DATA
   IOCDAT02        1365-DATA
   IOCDF29R       11172/LI     11203-GEN
   IOCDF29W       11193/STW    11196/LI     11201-GEN
   IOCDF30R       11199-GEN    11222/LI
   IOCDGEN         1352-DATA    5897/STW     5903/STW     5913/STW     6308/STB     6309/LI      9272/LI
      9302/STB     9304/STW     9305/LI      9553/STB     9555/STW     9562/LI      9648/STW     9649/LI
      9692/STD     9695/LW      9703/STW     9704/LI      9725/LW      9741/STD     9742/LW      9750/STW
      9751/LI      9774/STW     9775/LI      9920/STW     9921/LI     10014/AWM    10016/STW    10018/LI
     10115/STD    10116/LI     10144/LB     10145/AH     10166/STD    10167/LI     10350/LD     10352/AW
     10353/STD    10362/LI     10379/LH     10412/STD    10413/STB    10415/LI     10588/STD    10590/LI
     10619/AWM    10805/AWM    11035/LD     11038/STH    11039/AWM    11069/LW     11093/LI     11132/LD
     11135/STH    11136/AWM    11148/LI     11245/LD     11247/AW     11250/STD    11376/STD    11893/STD
     11894/LI     12242/STD    12250/CB     12254/AWM    12255/LH     12259/STW    12260/LW     12264/MTW
     12266/LI     12282/STD    12284/STB    12291/MTW    12293/LW     12297/LI     12307/LW     12316/LB
     12319/CB     12321/MTB    12322/MTW    13205/STD    13238/LI     13246/AWM    13247/LW     13269/LW
   IOCDN00        12072/LI     12387-GEN
   IOCDN000       12427-GEN    13138/LI
   IOCDN009       12191/LI     12401-GEN
   IOCDN01        12086/LI     12389-GEN
   IOCDN010       12208/LD     12225/LD     12403-GEN
   IOCDN011       12216/LI     12405-GEN
   IOCDN02        12093/LI     12391-GEN
   IOCDN021       12415-GEN    12458/LI
   IOCDN03        12107/LI     12393-GEN
   IOCDN036        7305-GEN    13008/LI
   IOCDN04        12154/STW    12155/LI     12395-GEN
   IOCDN07        12163/LI     12397-GEN
   IOCDN08        12183/LD     12399-GEN
   IOCDP           3440-STW     5008/BAL    14185/BAL    15750/BAL
   IOCDPNT         1241-DATA   14433/STW    14452/STW    14826/STW    15037/MTW
   IOCDPS          1022-DATA    3440/STW     3459/BNE*    3462/BLE*    3466/B*
   IOCDPX          1023-DATA    3442/STW     3464/MTW
   IOCDPZ          3456/B       3464-MTW
   IOCDP0          3446-LW      3465/BLZ
   IOCDP1         15105/BAL    15117/BAL    15137/BAL    15293/BAL    15432-LW
   IOCDREAD        6604/LI      6644-GEN    12550/LI     13159/LI
   IOCDS          14300/LI     14303/EXU    14380-SET
   IOCDSEEK        6583/LI      6595/LI      6638-GEN    12979/LI
   IOCDSNS         6586/LI      6598/LI      6640-GEN    12559/LI     12611/LI     12717/LI     13204/LD
   IOCDS1         14300/LI     14396-SET
   IOCDWRT         6589/LI      6601/LI      6642-GEN    12999/LI     13765/LI
   IOCD00          7318-GEN    14401/LD
   IOCD01          7320-GEN    14423/LD
   IOCD014        12281/LD     12407-GEN
   IOCD016        12343/LD     12409-GEN
   IOCD018        12363/LD     12411-GEN
   IOCD02          7324-GEN    14446/LD
   IOCD020        12383/LD     12413-GEN
   IOCD025        12417-GEN    12595/STB    12601/LI
   IOCD026        12419-GEN    12639/LD
   IOCD027        12421-GEN    12647/LD
   IOCD028        12423-GEN    12657/LD
   IOCD029        12425-GEN    12668/LD     12708/LI
   IOCD03          7326-GEN    14468/LD
   IOCD04          7328-GEN    14501/LD
   IOCD05          7330-GEN    14518/LD
   IOCD06          7332-GEN    14536/LD
   IOCD07          7334-GEN    14565/LD
   IOCD10          7322-GEN    14427/LD     14450/LD
   IOCOMP          5762-LW      6553/BAL     7897/BAL     8190/BAL     8307/BAL     8311/BAL     8322/BAL
      8618/BAL     8780/BAL     8860/BAL     8896/BAL     8903/BAL     8943/BAL     8949/BAL     9007/BAL
      9046/BAL     9096/BAL     9135/BAL     9532/BAL     9614/BAL     9638/BAL    10152/BAL
   IOCOMP1         5796/BE      5801-LI
   IOCOMP2         5795-CW      5799/BL
   IOCOMP3         5763/STW     5766/STW     5785/AWM     5793/AWM     5811-DATA
   IOCOMP4         5775/BNE     5777/BCS     5781/BE      5786-AI
   IOCONT         14280/BAL    14803/BAL    14837-STW
   IOCONT1        14194/BLE    14840-LI
   IOCPASS2        1246-DATA   15031/STW    15130/MTW
   IOCSEEK1        1359-DATA   14428/STD    14451/STD    14819/STD    15043/LI
   IODWADR         1099-DATA    4738/STW     5007/LW      5158/LW      6393/LW      8385/LW      8394/LW
      8413/LW      8416/LW      8432/STW     8442/MTW     8443/LW      8456/LW      8468/LW      8478/LW
   IOERAIO1        1242-DATA   14849/STW    15016/CAL1   15028/STW
   IOERAIO2        1243-DATA   14850/STW    15071/CAL1   15132/STW
   IOERSIO1        1244-DATA   14851/STW    15129/STW    15411/LI
   IOERSIO2        1245-DATA   14852/STW    15133/STW    15407/LI
   IOFIELD         1035-DATA    8094/CW
   IOGOOD         15161/B      15171/B      15175/B      15179/B      15206-MTW    15382/B
   IOINSTR         1040-DATA    4990/LB      4994/LW      5156/LW      5772/LW      5790/LW      6550/STW
      6560/STW    13257/STW
   IOMOD           6596/B       6599/B       6602/B       6607-LI
   IOMODALP        6608/STW     6619-DATA
   IOMODIOC        6609/STW     6615/LW      7207-DATA
   IOMODMSG        6612/STW     6620-DATA
   IOMODRTN        4350/STW     4359/B*      4360/B*      6566/STW     6576/B*      6577/B*      6610/STW
      6622/B*      6623/B*      7208-DATA
   IOMOD1          6593/B       6608-STW
   IOMOD2          6584/B       6587/B       6590/B       6592-LI
   IOMSGADR        5001/LW      5010-DATA
   IOMSGAIO        2757-MSGX    5016/DATA
   IOMSGDLY        2803-MSGX    5804/LI
   IOMSGERR        2804-MSGX    5801/LI
   IOMSGHIO        2754-MSGX    5013/DATA
   IOMSGNON        2759-MSGX    5018/DATA
   IOMSGPLP        2756-MSGX    5015/DATA
   IOMSGPLR        2758-MSGX    5017/DATA
   IOMSGRIO        2755-MSGX    5014/DATA
   IOMSGSIO        2751-MSGX    5010/DATA
   IOMSGTDV        2753-MSGX    5012/DATA
   IOMSGTIO        2752-MSGX    5011/DATA
   ION9            7144-DATA
   IOP             2371-DATA    2953/MSGX    2953/MSGX    3029/MSGX
   IOPH            1589/SET     9324/WD2
   IOTAB           1112-EQU     6418/LI      6419/STW
   IOTEST         15152/STW    15192-DATA   15200/LW*    15201/LCF    15205/MTW    15206/MTW    15212/LPSD
     15297/LW*    15415/LCF    15425/XPSD
   IOTEST1        15195-LCI
   IOTOP          14026/LI     14081-DATA
   IOTOPNT        14082-DATA   15552/LW*
   IOTRAP          1030-DATA   14191/MTW    14192/LW     14839/STW
   IO9             7150-DATA
   IRCOMP          6022-LI      9182/BAL
   IRCOMP1         6033-LI      7732/BAL
   IRMSG           2847-MSGX    6025/LI
   IRMSG1          2848-MSGX    6036/LI
   IS              2372-DATA    2933/MSGX    2943/MSGX    2943/MSGX    2953/MSGX    2956/MSGX    2984/MSGX
      3002/MSGX    3005/MSGX    3043/MSGX    3046/MSGX    3049/MSGX    3059/MSGX    3065/MSGX    3085/MSGX
      3101/MSGX    3101/MSGX    3116/MSGX    3116/MSGX    3123/MSGX    3126/MSGX    3162/MSGX    3183/MSGX
      3223/MSGX    3223/MSGX
   IT              2373-DATA    2995/MSGX    2998/MSGX    3046/MSGX    3049/MSGX    3085/MSGX    3101/MSGX
      3197/MSGX    3197/MSGX    3208/MSGX
   ITHRST          1321-DATA
   ITHSAVE         1322-DATA
   ITHSUBT         1320-DATA
   ITHTEST         1319-DATA    3522/CW      3829/STW     3886/STW     4917/CW      4920/CW     14152/LW
     14251/STW    14664/STW    15677/CW     15743/CW
   IUEBYTE1        5911-LI
   IUEBYTE2        5909-LI
   IUEBYTE3        5907-LI
   IUEBYTE4        5905-LI      9271/BAL
   J               1553-SET     1558/ERROR   1559/SET     1571-SET     1574/ERROR   1575/SET     1589-SET
      1607/ERROR   1608/SET     1620-SET     1623/ERROR   1624/SET     1638-SET     1645/ERROR   1646/SET
      1659-SET     1663/ERROR   1664/SET     1678-SET     1681/ERROR   1682/SET     1696-SET     1701/ERROR
      1702/SET     1716-SET     1722/ERROR   1723/SET     1743-SET     1746/ERROR   1747/SET     1761-SET
      1764/ERROR   1765/SET
   JA8             1743/SET     9860/BYJK    9868/BYJK    9876/BYJK    9884/BYJK    9892/BYJK    9901/BYJK
      9910/BYJK    9974/BYJK   10049/BYJK   10057/BYJK   10066/BYJK   10075/BYJK   10202/BYJK   10211/BYJK
     10219/BYJK   10227/BYJK   10236/BYJK   10245/BYJK   10253/BYJK   10261/BYJK   10270/BYJK   10279/BYJK
     10287/BYJK   10295/BYJK   10304/BYJK   10313/BYJK   10321/BYJK   10329/BYJK   10446/BYJK   10454/BYJK
     10462/BYJK   10470/BYJK
   JB8             1743/SET     9860/BYJK    9868/BYJK    9876/BYJK    9884/BYJK    9892/BYJK    9901/BYJK
      9910/BYJK    9974/BYJK   10049/BYJK   10057/BYJK   10066/BYJK   10075/BYJK   10202/BYJK   10211/BYJK
     10219/BYJK   10227/BYJK   10236/BYJK   10245/BYJK   10253/BYJK   10261/BYJK   10270/BYJK   10279/BYJK
     10287/BYJK   10295/BYJK   10304/BYJK   10313/BYJK   10321/BYJK   10329/BYJK   10446/BYJK   10454/BYJK
     10462/BYJK   10470/BYJK   10478/BYJK   10486/BYJK   10494/BYJK   10503/BYJK
   JC8             1743/SET     9860/BYJK    9868/BYJK    9876/BYJK    9884/BYJK    9892/BYJK    9901/BYJK
      9910/BYJK    9974/BYJK   10049/BYJK   10057/BYJK   10066/BYJK   10075/BYJK   10202/BYJK   10211/BYJK
     10219/BYJK   10227/BYJK   10236/BYJK   10245/BYJK   10253/BYJK   10261/BYJK   10270/BYJK   10279/BYJK
     10287/BYJK   10295/BYJK   10304/BYJK   10313/BYJK   10321/BYJK   10329/BYJK   10446/BYJK   10454/BYJK
     10462/BYJK   10470/BYJK   10478/BYJK   10486/BYJK   10494/BYJK   10503/BYJK   10511/BYJK   10519/BYJK
     10528/BYJK   10536/BYJK
   JD8             1743/SET     9860/BYJK    9868/BYJK    9876/BYJK    9884/BYJK    9892/BYJK    9901/BYJK
      9910/BYJK    9974/BYJK   10049/BYJK   10057/BYJK   10066/BYJK   10075/BYJK   10202/BYJK   10211/BYJK
     10219/BYJK   10227/BYJK   10236/BYJK   10245/BYJK   10253/BYJK   10261/BYJK   10270/BYJK   10279/BYJK
     10287/BYJK   10295/BYJK   10304/BYJK   10313/BYJK   10321/BYJK   10329/BYJK   10446/BYJK   10454/BYJK
     10462/BYJK   10470/BYJK   10478/BYJK   10486/BYJK   10494/BYJK   10503/BYJK   10511/BYJK   10519/BYJK
     10528/BYJK   10536/BYJK   10544/BYJK   10553/BYJK   10561/BYJK   10569/BYJK
   JFULL           1716/SET     9857/FULLPROC             9865/FULLPROC             9873/FULLPROC
      9881/FULLPROC             9889/FULLPROC             9897/FULLPROC             9906/FULLPROC
      9971/FULLPROC            10046/FULLPROC            10054/FULLPROC            10062/FULLPROC
     10071/FULLPROC            10198/FULLPROC            10207/FULLPROC            10216/FULLPROC
     10224/FULLPROC            10232/FULLPROC            10241/FULLPROC            10250/FULLPROC
     10258/FULLPROC            10266/FULLPROC            10275/FULLPROC            10284/FULLPROC
     10292/FULLPROC            10300/FULLPROC            10309/FULLPROC            10318/FULLPROC
     10326/FULLPROC            10442/FULLPROC            10451/FULLPROC            10459/FULLPROC
     10467/FULLPROC            10475/FULLPROC            10483/FULLPROC            10491/FULLPROC
     10499/FULLPROC            10508/FULLPROC            10516/FULLPROC            10524/FULLPROC
     10533/FULLPROC            10541/FULLPROC            10549/FULLPROC            10558/FULLPROC
     10566/FULLPROC
   JKMSGHDR        6218/DATA    7457-TEXTC
   JKPRES          6211-LB      6376/BAL    11080/BAL
   JKPRMASK        1073-DATA    6212/LW
   JKPRMSKS        7194-DATA
   K:KOUNTR        7239-DATA   11074/STW    11077/LW     11084/LW     11087/XW     11090/AWM
   KA8             1743/SET    10664/BYJK   10688/BYJK   10712/BYJK   10730/BYJK   10770/BYJK   10786/BYJK
     10794/BYJK   10833/BYJK   11079/BYJK   11460/BYJK
   KB8             1743/SET    10664/BYJK   10688/BYJK   10712/BYJK   10730/BYJK   10770/BYJK   10786/BYJK
     10794/BYJK   10833/BYJK   11079/BYJK   11460/BYJK
   KC8             1743/SET    10664/BYJK   10688/BYJK   10712/BYJK   10730/BYJK   10770/BYJK   10786/BYJK
     10794/BYJK   10833/BYJK   11079/BYJK   11460/BYJK
   KD8             1743/SET    10664/BYJK   10688/BYJK   10712/BYJK   10730/BYJK   10770/BYJK   10786/BYJK
     10794/BYJK   10833/BYJK   11079/BYJK   11460/BYJK
   KEXP            7246-DATA   11386/STW    11432/LW
   KEYED           2615-DATA    3197/MSGX    3208/MSGX
   KFLAG           7253-DATA
   KFULL           1716/SET    10661/FULLPROC            10685/FULLPROC            10709/FULLPROC
     10726/FULLPROC            10767/FULLPROC            10783/FULLPROC            10791/FULLPROC
     10830/FULLPROC            11457/FULLPROC
   KMASKS          7189-DATA
   KREG            6140-LW     11082/BAL    11433/BAL
   KRMASK          1068-DATA    6141/LW
   KRMSGDLY        2815-MSGX    6145/DATA
   KRMSGERR        2816-MSGX    6146/DATA
   KRMSGHDR        6147/DATA    7461-TEXTC
   K0              1696/SET    10339/FAMCNT 10666/FAMCNT 10674/FAMCNT 10682/FAMCNT 10690/FAMCNT
     10698/FAMCNT 10706/FAMCNT 10714/FAMCNT 10723/FAMCNT 10732/FAMCNT 10772/FAMCNT 10780/FAMCNT
     10788/FAMCNT 10796/FAMCNT 10835/FAMCNT 10879/FAMCNT 10887/FAMCNT 10896/FAMCNT 10904/FAMCNT
     10912/FAMCNT 10920/FAMCNT 10929/FAMCNT 10937/FAMCNT 10945/FAMCNT 10953/FAMCNT 10962/FAMCNT
     10970/FAMCNT 10978/FAMCNT 10986/FAMCNT 10995/FAMCNT 11003/FAMCNT
   K1              1696/SET    10272/FAMCNT 10281/FAMCNT 10289/FAMCNT 10297/FAMCNT 10306/FAMCNT
     10315/FAMCNT 10323/FAMCNT 10331/FAMCNT 10666/FAMCNT 10674/FAMCNT 10682/FAMCNT 10690/FAMCNT
     10698/FAMCNT 10706/FAMCNT 10714/FAMCNT 10723/FAMCNT 10732/FAMCNT 10772/FAMCNT 10780/FAMCNT
     10788/FAMCNT 10796/FAMCNT 10835/FAMCNT 10879/FAMCNT 10887/FAMCNT 10896/FAMCNT 10904/FAMCNT
     10912/FAMCNT 10920/FAMCNT 10929/FAMCNT 10937/FAMCNT
   K2              1696/SET    10238/FAMCNT 10247/FAMCNT 10255/FAMCNT 10263/FAMCNT 10306/FAMCNT
     10315/FAMCNT 10323/FAMCNT 10331/FAMCNT 10666/FAMCNT 10674/FAMCNT 10682/FAMCNT 10690/FAMCNT
     10698/FAMCNT 10706/FAMCNT 10714/FAMCNT 10723/FAMCNT 10732/FAMCNT 10772/FAMCNT 10780/FAMCNT
     10788/FAMCNT 10796/FAMCNT 10835/FAMCNT 10879/FAMCNT 10887/FAMCNT 10896/FAMCNT 10904/FAMCNT
     10945/FAMCNT 10953/FAMCNT 10962/FAMCNT 10970/FAMCNT
   K3              1696/SET    10221/FAMCNT 10229/FAMCNT 10255/FAMCNT 10263/FAMCNT 10289/FAMCNT
     10297/FAMCNT 10323/FAMCNT 10331/FAMCNT 10666/FAMCNT 10674/FAMCNT 10682/FAMCNT 10690/FAMCNT
     10698/FAMCNT 10706/FAMCNT 10772/FAMCNT 10780/FAMCNT 10788/FAMCNT 10796/FAMCNT 10879/FAMCNT
     10887/FAMCNT 10912/FAMCNT 10920/FAMCNT 10945/FAMCNT 10953/FAMCNT 10978/FAMCNT 10986/FAMCNT
   K4              1696/SET    10213/FAMCNT 10229/FAMCNT 10247/FAMCNT 10263/FAMCNT 10281/FAMCNT
     10297/FAMCNT 10315/FAMCNT 10331/FAMCNT 10666/FAMCNT 10674/FAMCNT 10682/FAMCNT 10714/FAMCNT
     10723/FAMCNT 10772/FAMCNT 10780/FAMCNT 10879/FAMCNT 10896/FAMCNT 10912/FAMCNT 10929/FAMCNT
     10945/FAMCNT 10962/FAMCNT 10978/FAMCNT 10995/FAMCNT
   L               4437/LW      5431/LW      6086/LW      8356/LW     11241/LW     14410/LW     14543/AND
     14552/LW     14816/LW     15361/AND    15986/AND    16057/AND
   L:CONTR         4777/BAL     5072-STW
   L:CONTRTN       5072/STW     5123/B*      7217-DATA
   L:CONTR1        5098/BE      5112-STW
   L:CONTR2        5100/BNEZ    5121-STW
   L:CONTR3        5122-STW     5126/B
   L:CONTR4        5102/BLE     5124-LW
   L:CONT4         5079/BCS     5084-EQU
   L:CONT41        5085/BCR     5087/BLZ     5089/BNE     5091/BNEZ    5093-EQU
   L:CONT5         5077/BCR     5081/B       5094-STW
   L:CONT6         5080/LI      5103-MTW     5115/BEZ
   L:EXIT          5094/STW     5117/BNEZ*   5119/B*      7219-DATA
   LAST            2616-DATA    3183/MSGX    3217/MSGX
   LATCH           2377-DATA    2805/MSGX    2806/MSGX    2924/MSGX    2924/MSGX    2927/MSGX    2927/MSGX
      2930/MSGX
   LATCHES         2617-DATA    2920/MSGX    2930/MSGX
   LENGTH          2378-DATA    3034/MSGX    3154/MSGX    3154/MSGX
   LESS            2618-DATA    3116/MSGX    3116/MSGX
   LIMITED         2619-DATA    2910/MSGX
   LIMT             374/DATA    1453/:PROCDIC            14111-STW
   LINE            1021-DATA    4536/STW     4600/MTW     4606/MTW
   LINES           2380-DATA    2780/MSGX    2781/MSGX    2920/MSGX    2947/MSGX
   LISTEXIT        1024-DATA    5022/STW     5038/B*      5044/STW     5047/B*      5155/STW     5157/BEZ*
      5175/BNE*    5177/B*      5198/STW     5202/BEZ*    5206/B*      5209/B*      5210/B*      5244/STW
      5609/BEZ*    5610/B*     15664/STW
   LM1TADDR         374-DATA
   LOADED          2620-DATA    3075/MSGX
   LOGIC           2621-DATA    3052/MSGX
   LREG            5958-LI      7933/BAL     8415/BAL     8480/BAL     8518/BAL     8652/BAL     8679/BAL
      9727/BAL    10148/BAL    10393/BAL    11617/BAL    11644/BAL
   LRMASK          1063-DATA    5965/LW
   LRMASKS         7184-DATA
   LRMSGDLY        2809-MSGX    5969/DATA
   LRMSGERR        2810-MSGX    5970/DATA
   LRMSGHDR        5971/DATA    7445-TEXTC
   LR0             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT 10495/FAMCNT
     10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT 10554/FAMCNT
     10562/FAMCNT 10570/FAMCNT 10937/FAMCNT 10945/FAMCNT 10953/FAMCNT 10962/FAMCNT 10970/FAMCNT
     10978/FAMCNT 10986/FAMCNT 10995/FAMCNT
   LR1             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT 10495/FAMCNT
     10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT 10554/FAMCNT
     10562/FAMCNT 10570/FAMCNT 10732/FAMCNT 10835/FAMCNT 10904/FAMCNT 10912/FAMCNT 10920/FAMCNT
     10929/FAMCNT 10970/FAMCNT 10978/FAMCNT 10986/FAMCNT 10995/FAMCNT
   LR2             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT 10495/FAMCNT
     10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT 10554/FAMCNT
     10562/FAMCNT 10570/FAMCNT 10690/FAMCNT 10698/FAMCNT 10706/FAMCNT 10714/FAMCNT 10723/FAMCNT
     10788/FAMCNT 10796/FAMCNT 10887/FAMCNT 10896/FAMCNT 10920/FAMCNT 10929/FAMCNT 10953/FAMCNT
     10962/FAMCNT 10986/FAMCNT 10995/FAMCNT
   LR3             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT 10495/FAMCNT
     10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT 10554/FAMCNT
     10562/FAMCNT 10570/FAMCNT 10666/FAMCNT 10674/FAMCNT 10682/FAMCNT 10714/FAMCNT 10723/FAMCNT
     10772/FAMCNT 10780/FAMCNT 10879/FAMCNT 10896/FAMCNT 10912/FAMCNT 10929/FAMCNT 10945/FAMCNT
     10962/FAMCNT 10978/FAMCNT 10995/FAMCNT
   LSEEKTEP        1332-DATA   13463/STW    13467/LW     13475/STW    13483/LW
   LW0             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10272/FAMCNT 10281/FAMCNT 10289/FAMCNT 10297/FAMCNT 10306/FAMCNT 10315/FAMCNT 10323/FAMCNT
     10331/FAMCNT 10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT
     10495/FAMCNT 10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT
     10554/FAMCNT 10562/FAMCNT 10570/FAMCNT
   LW1             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10238/FAMCNT 10247/FAMCNT 10255/FAMCNT 10263/FAMCNT 10306/FAMCNT 10315/FAMCNT 10323/FAMCNT
     10331/FAMCNT 10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT
     10495/FAMCNT 10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT
     10554/FAMCNT 10562/FAMCNT 10570/FAMCNT
   LW2             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10221/FAMCNT 10229/FAMCNT 10255/FAMCNT 10263/FAMCNT 10289/FAMCNT 10297/FAMCNT 10323/FAMCNT
     10331/FAMCNT 10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT
     10495/FAMCNT 10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT
     10554/FAMCNT 10562/FAMCNT 10570/FAMCNT
   LW3             1696/SET     9677/FAMCNT  9845/FAMCNT  9853/FAMCNT  9861/FAMCNT  9869/FAMCNT
      9877/FAMCNT  9885/FAMCNT  9893/FAMCNT  9902/FAMCNT  9911/FAMCNT  9951/FAMCNT  9959/FAMCNT
      9967/FAMCNT  9975/FAMCNT 10050/FAMCNT 10058/FAMCNT 10067/FAMCNT 10076/FAMCNT 10203/FAMCNT
     10213/FAMCNT 10229/FAMCNT 10247/FAMCNT 10263/FAMCNT 10281/FAMCNT 10297/FAMCNT 10315/FAMCNT
     10331/FAMCNT 10447/FAMCNT 10455/FAMCNT 10463/FAMCNT 10471/FAMCNT 10479/FAMCNT 10487/FAMCNT
     10495/FAMCNT 10504/FAMCNT 10512/FAMCNT 10520/FAMCNT 10529/FAMCNT 10537/FAMCNT 10545/FAMCNT
     10554/FAMCNT 10562/FAMCNT 10570/FAMCNT
   L0              1696/SET    10281/FAMCNT 10289/FAMCNT 10297/FAMCNT 10306/FAMCNT 10315/FAMCNT
     10323/FAMCNT 10331/FAMCNT 10339/FAMCNT 10945/FAMCNT 10953/FAMCNT 10962/FAMCNT 10970/FAMCNT
     10978/FAMCNT 10986/FAMCNT 10995/FAMCNT 11003/FAMCNT
   L1              1696/SET    10247/FAMCNT 10255/FAMCNT 10263/FAMCNT 10272/FAMCNT 10315/FAMCNT
     10323/FAMCNT 10331/FAMCNT 10339/FAMCNT 10912/FAMCNT 10920/FAMCNT 10929/FAMCNT 10937/FAMCNT
     10978/FAMCNT 10986/FAMCNT 10995/FAMCNT 11003/FAMCNT
   L2              1696/SET    10229/FAMCNT 10238/FAMCNT 10263/FAMCNT 10272/FAMCNT 10297/FAMCNT
     10306/FAMCNT 10331/FAMCNT 10339/FAMCNT 10714/FAMCNT 10723/FAMCNT 10732/FAMCNT 10835/FAMCNT
     10896/FAMCNT 10904/FAMCNT 10929/FAMCNT 10937/FAMCNT 10962/FAMCNT 10970/FAMCNT 10995/FAMCNT
     11003/FAMCNT
   L3              1696/SET    10221/FAMCNT 10238/FAMCNT 10255/FAMCNT 10272/FAMCNT 10289/FAMCNT
     10306/FAMCNT 10323/FAMCNT 10339/FAMCNT 10690/FAMCNT 10698/FAMCNT 10706/FAMCNT 10732/FAMCNT
     10788/FAMCNT 10796/FAMCNT 10835/FAMCNT 10887/FAMCNT 10904/FAMCNT 10920/FAMCNT 10937/FAMCNT
     10953/FAMCNT 10970/FAMCNT 10986/FAMCNT 11003/FAMCNT
   M               2381-DATA    2793/MSGX    2794/MSGX    2947/MSGX    2947/MSGX    2969/MSGX    2989/MSGX
      3005/MSGX    3005/MSGX    3009/MSGX    3059/MSGX    3085/MSGX
   M:32D           1638/SET
   MACHINE         1037-EQU     3672/LI      3674/STW
   MACHINET        1032-EQU     3672/LI
   MADE            2382-DATA    3059/MSGX    3065/MSGX    3085/MSGX    3092/MSGX
   MAE             1589/SET     1638/SET     8218/WD2     8476/MEPROC
   MAR             1638/SET     7930/MEPROC  8305/MEPROC  8320/MEPROC  8411/MEPROC  8476/MEPROC
      8649/MEPROC  8676/MEPROC  9840/MEPROC  9848/MEPROC  9856/MEPROC  9864/MEPROC  9872/MEPROC
      9880/MEPROC  9888/MEPROC  9896/MEPROC  9905/MEPROC  9946/MEPROC  9954/MEPROC  9962/MEPROC
      9970/MEPROC 10045/MEPROC 10053/MEPROC 10061/MEPROC 10070/MEPROC 10197/MEPROC 10206/MEPROC
     10215/MEPROC 10223/MEPROC 10231/MEPROC 10240/MEPROC 10249/MEPROC 10257/MEPROC 10265/MEPROC
     10274/MEPROC 10283/MEPROC 10291/MEPROC 10299/MEPROC 10308/MEPROC 10317/MEPROC 10325/MEPROC
     10333/MEPROC 10389/MEPROC 10441/MEPROC 10450/MEPROC 10458/MEPROC 10466/MEPROC 10474/MEPROC
     10482/MEPROC 10490/MEPROC 10498/MEPROC 10507/MEPROC 10515/MEPROC 10523/MEPROC 10532/MEPROC
     10540/MEPROC 10548/MEPROC 10557/MEPROC 10565/MEPROC 10660/MEPROC 10668/MEPROC 10676/MEPROC
     10684/MEPROC 10692/MEPROC 10700/MEPROC 10708/MEPROC 10716/MEPROC 10725/MEPROC 10766/MEPROC
     10774/MEPROC 10782/MEPROC 10790/MEPROC 10829/MEPROC 10865/MEPROC 10873/MEPROC 10881/MEPROC
     10889/MEPROC 10898/MEPROC 10906/MEPROC 10914/MEPROC 10922/MEPROC 10931/MEPROC 10939/MEPROC
     10947/MEPROC 10955/MEPROC 10964/MEPROC 10972/MEPROC 10980/MEPROC 10988/MEPROC 10997/MEPROC
     11456/MEPROC 11463/MEPROC 11470/MEPROC 11477/MEPROC
   MARGINS         6009/OR      7214-DATA
   MASK            1222-DATA   14411/STW    14817/STW    14865/LW
   MASKBOTT        3990/LW      7196-SET
   MASKEND         1075-SET     3989/LI      3991/STW
   MASKSTART       1045-SET     3989/LI
   MASKTOP         7167-SET
   MATRIX          2623-DATA    2868/MSGX    2875/MSGX
   MAXCAP          1288-DATA   12824/LW     12928/LW     13011/LW
   MAXCAPY         1267-DATA    3692/STW
   MAXERR          1235-DATA   13316/STW    13437/STW    14193/CW     14719/STW    15250/LW
   MAXSECT         1191-DATA   14329/STW    14367/SW
   MBADDR          7206-DATA   10355/STW    10391/LW     11253/STW
   MBPA            1659/SET     9843/BYMHI   9851/BYMHI   9859/BYMHI   9867/BYMHI   9875/BYMHI   9883/BYMHI
      9891/BYMHI   9899/BYMHI   9908/BYMHI   9949/BYMHI   9957/BYMHI   9965/BYMHI   9973/BYMHI  10048/BYMHI
     10056/BYMHI  10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10226/BYMHI  10234/BYMHI
     10243/BYMHI  10252/BYMHI  10260/BYMHI  10268/BYMHI  10277/BYMHI  10286/BYMHI  10294/BYMHI  10302/BYMHI
     10311/BYMHI  10320/BYMHI  10328/BYMHI  10336/BYMHI  10444/BYMHI  10453/BYMHI  10461/BYMHI  10469/BYMHI
     10477/BYMHI  10485/BYMHI  10493/BYMHI  10501/BYMHI  10510/BYMHI  10518/BYMHI  10526/BYMHI  10535/BYMHI
     10543/BYMHI  10551/BYMHI  10560/BYMHI  10568/BYMHI  10663/BYMHI  10671/BYMHI  10679/BYMHI  10687/BYMHI
     10695/BYMHI  10703/BYMHI  10711/BYMHI  10719/BYMHI  10728/BYMHI  10769/BYMHI  10777/BYMHI  10785/BYMHI
     10793/BYMHI  10876/BYMHI  10884/BYMHI  10892/BYMHI  10901/BYMHI  10909/BYMHI  10917/BYMHI  10925/BYMHI
     10934/BYMHI  10942/BYMHI  10950/BYMHI  10958/BYMHI  10967/BYMHI  10975/BYMHI  10983/BYMHI  10991/BYMHI
     11000/BYMHI
   MBPB            1659/SET     9843/BYMHI   9851/BYMHI   9859/BYMHI   9867/BYMHI   9875/BYMHI   9883/BYMHI
      9891/BYMHI   9899/BYMHI   9908/BYMHI   9949/BYMHI   9957/BYMHI   9965/BYMHI   9973/BYMHI  10048/BYMHI
     10056/BYMHI  10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10226/BYMHI  10234/BYMHI
     10243/BYMHI  10252/BYMHI  10260/BYMHI  10268/BYMHI  10277/BYMHI  10286/BYMHI  10294/BYMHI  10302/BYMHI
     10311/BYMHI  10320/BYMHI  10328/BYMHI  10336/BYMHI  10444/BYMHI  10461/BYMHI  10469/BYMHI  10485/BYMHI
     10493/BYMHI  10501/BYMHI  10510/BYMHI  10518/BYMHI  10526/BYMHI  10543/BYMHI  10551/BYMHI  10568/BYMHI
     10663/BYMHI  10671/BYMHI  10679/BYMHI  10687/BYMHI  10695/BYMHI  10703/BYMHI  10711/BYMHI  10719/BYMHI
     10728/BYMHI  10769/BYMHI  10777/BYMHI  10785/BYMHI  10793/BYMHI  10876/BYMHI  10884/BYMHI  10892/BYMHI
     10901/BYMHI  10909/BYMHI  10917/BYMHI  10925/BYMHI  10934/BYMHI  10942/BYMHI  10950/BYMHI  10958/BYMHI
     10967/BYMHI  10975/BYMHI  10983/BYMHI  10991/BYMHI  11000/BYMHI
   MBPC            1659/SET     9843/BYMHI   9851/BYMHI   9859/BYMHI   9867/BYMHI   9875/BYMHI   9883/BYMHI
      9891/BYMHI   9899/BYMHI   9908/BYMHI   9949/BYMHI   9957/BYMHI   9965/BYMHI   9973/BYMHI  10048/BYMHI
     10056/BYMHI  10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10226/BYMHI  10234/BYMHI
     10243/BYMHI  10252/BYMHI  10260/BYMHI  10268/BYMHI  10277/BYMHI  10286/BYMHI  10294/BYMHI  10302/BYMHI
     10311/BYMHI  10320/BYMHI  10328/BYMHI  10336/BYMHI  10444/BYMHI  10469/BYMHI  10493/BYMHI  10501/BYMHI
     10518/BYMHI  10526/BYMHI  10543/BYMHI  10551/BYMHI  10663/BYMHI  10671/BYMHI  10679/BYMHI  10687/BYMHI
     10695/BYMHI  10703/BYMHI  10711/BYMHI  10719/BYMHI  10728/BYMHI  10769/BYMHI  10777/BYMHI  10785/BYMHI
     10793/BYMHI  10876/BYMHI  10884/BYMHI  10892/BYMHI  10901/BYMHI  10909/BYMHI  10917/BYMHI  10925/BYMHI
     10934/BYMHI  10942/BYMHI  10950/BYMHI  10958/BYMHI  10967/BYMHI  10975/BYMHI  10983/BYMHI  10991/BYMHI
     11000/BYMHI
   MBPD            1659/SET     9843/BYMHI   9851/BYMHI   9859/BYMHI   9867/BYMHI   9875/BYMHI   9883/BYMHI
      9891/BYMHI   9899/BYMHI   9908/BYMHI   9949/BYMHI   9957/BYMHI   9965/BYMHI   9973/BYMHI  10048/BYMHI
     10056/BYMHI  10064/BYMHI  10073/BYMHI  10200/BYMHI  10209/BYMHI  10218/BYMHI  10226/BYMHI  10234/BYMHI
     10243/BYMHI  10252/BYMHI  10260/BYMHI  10268/BYMHI  10277/BYMHI  10286/BYMHI  10294/BYMHI  10302/BYMHI
     10311/BYMHI  10320/BYMHI  10328/BYMHI  10336/BYMHI  10444/BYMHI  10501/BYMHI  10526/BYMHI  10551/BYMHI
     10663/BYMHI  10671/BYMHI  10679/BYMHI  10687/BYMHI  10695/BYMHI  10703/BYMHI  10711/BYMHI  10719/BYMHI
     10728/BYMHI  10769/BYMHI  10777/BYMHI  10785/BYMHI  10793/BYMHI  10876/BYMHI  10884/BYMHI  10892/BYMHI
     10901/BYMHI  10909/BYMHI  10917/BYMHI  10925/BYMHI  10934/BYMHI  10942/BYMHI  10950/BYMHI  10958/BYMHI
     10967/BYMHI  10975/BYMHI  10983/BYMHI  10991/BYMHI  11000/BYMHI
   MBUSY           1638/SET     9840/MEPROC  9848/MEPROC  9856/MEPROC  9864/MEPROC  9872/MEPROC
      9880/MEPROC  9946/MEPROC  9954/MEPROC  9962/MEPROC  9970/MEPROC
   MCMS            3482/BNEZ    3491-BAL
   MCTB            3475/STM     3489/LM      3499-RES
   MCTH            3471/STW     3473/BNEZ*   3490/B*      3498-DATA
   MCTP15          3476/LW      3500-GEN
   MCTW            3481/AND     3501-DATA
   MCT1            3479-LCI     3485/BCS
   MCT2            3483-AI      3503/LI
   MCT3            3486-LI      3493/B
   MDR             1638/SET     7930/MEPROC  8305/MEPROC  8320/MEPROC  8411/MEPROC  8476/MEPROC
      8649/MEPROC  8676/MEPROC  9840/MEPROC  9848/MEPROC  9856/MEPROC  9864/MEPROC  9872/MEPROC
      9880/MEPROC  9888/MEPROC  9896/MEPROC  9905/MEPROC  9946/MEPROC  9954/MEPROC  9962/MEPROC
      9970/MEPROC 10045/MEPROC 10053/MEPROC 10061/MEPROC 10070/MEPROC 10197/MEPROC 10206/MEPROC
     10215/MEPROC 10223/MEPROC 10231/MEPROC 10240/MEPROC 10249/MEPROC 10257/MEPROC 10265/MEPROC
     10274/MEPROC 10283/MEPROC 10291/MEPROC 10299/MEPROC 10308/MEPROC 10317/MEPROC 10325/MEPROC
     10333/MEPROC 10389/MEPROC 10441/MEPROC 10450/MEPROC 10458/MEPROC 10466/MEPROC 10474/MEPROC
     10482/MEPROC 10490/MEPROC 10498/MEPROC 10507/MEPROC 10515/MEPROC 10523/MEPROC 10532/MEPROC
     10540/MEPROC 10548/MEPROC 10557/MEPROC 10565/MEPROC 10660/MEPROC 10668/MEPROC 10676/MEPROC
     10684/MEPROC 10692/MEPROC 10700/MEPROC 10708/MEPROC 10716/MEPROC 10725/MEPROC 10766/MEPROC
     10774/MEPROC 10782/MEPROC 10790/MEPROC 10829/MEPROC 10865/MEPROC 10873/MEPROC 10881/MEPROC
     10889/MEPROC 10898/MEPROC 10906/MEPROC 10914/MEPROC 10922/MEPROC 10931/MEPROC 10939/MEPROC
     10947/MEPROC 10955/MEPROC 10964/MEPROC 10972/MEPROC 10980/MEPROC 10988/MEPROC 10997/MEPROC
     11456/MEPROC 11463/MEPROC 11470/MEPROC 11477/MEPROC
   MECOMP          5945-LW      6359/BAL     7931/BAL     8306/BAL     8321/BAL     8412/BAL     8477/BAL
      8650/BAL     8677/BAL    10390/BAL
   MEM             2897-MSGX   14071/LI     14077/DATA
   MEMADDR          353-DATA
   MEMASK          1062-DATA    5947/LW
   MEMASKS         7183-DATA
   MEMCLKT         3471-STW     3520/BAL
   MEMERROR       14033/BG     14046/BG     14051/BL     14053/BG     14059-LW
   MEMFLAG        14063/STM    14079-DATA   15550/MTW
   MEMLSTBA        1220-DATA   14340/STW    14362/LW     14958/CW     15435/CW     15564/STW
   MEMNORM         2900-MSGX   14074/LI
   MEMOK          14048/B      14055/B      14062-LCI
   MEMORY          3944/BAL    14323/BAL    14800/BAL    15516-STW
   MEMORY1        15512/B      15519/BNE    15543-LW
   MEMORY10       15552-LW
   MEMORY2         1198-DATA   13093/STW    15494/STW    15516/STW    15569/B*
   MEMORY3        12777/BAL    12828/BAL    12876/BAL    12880/BAL    12932/BAL    13214/BAL    15494-STW
   MEMORY7        13114/BGE    15500/BLE    15532/BLE    15558/BL     15566-BAL
   MEMSGDLY        2807-MSGX    5951/DATA
   MEMSGERR        2808-MSGX    5952/DATA
   MEMSGHDR        5953/DATA    7439-TEXTC
   MEM1           14028/B      14038-LW
   MEM2           14027-BAL    14034/B
   MENORMAL       14041/BG     14050-CW
   MEPROC          1631-CNAME
   MEXIT           7228-DATA
   MFI:D           1589/SET
   MFULL           1716/SET     9723/FULLPROC             9841/FULLPROC             9865/FULLPROC
      9889/FULLPROC             9947/FULLPROC             9963/FULLPROC             9971/FULLPROC
     10046/FULLPROC            10054/FULLPROC            10062/FULLPROC            10071/FULLPROC
     10198/FULLPROC            10232/FULLPROC            10266/FULLPROC            10677/FULLPROC
     10685/FULLPROC            10693/FULLPROC            10701/FULLPROC            10709/FULLPROC
     10717/FULLPROC            10726/FULLPROC            10791/FULLPROC            10830/FULLPROC
     10874/FULLPROC            10882/FULLPROC            10890/FULLPROC            10907/FULLPROC
     10915/FULLPROC            10923/FULLPROC            10940/FULLPROC            10948/FULLPROC
     10956/FULLPROC            10973/FULLPROC            10981/FULLPROC            10989/FULLPROC
     11471/FULLPROC
   MI              2384-DATA    2918/MSGX    2924/MSGX    2927/MSGX    2930/MSGX
   MISSED          2624-DATA    2875/MSGX    3033/MSGX
   MODEL           1258-DATA    3690/STW     3976/LM     15651/LM
   MODELC          1279-DATA    3977/STM    14473/CW     15652/STM
   MODELEND        3576-SET     3682/LI      3683/CW
   MODELNO         3574-SET     3682/LI
   MODEXIT         7030/STW     7046/B*      7212-DATA
   MODE0           7013-LI
   MODE0I          7011-LI     13140/BAL
   MODE1           7003-LI      9510/BAL
   MODE1I          7001-LI     11896/BAL
   MODE1INT        7021-LI      9326/BAL     9339/BAL     9352/BAL     9365/BAL     9378/BAL     9391/BAL
      9404/BAL     9417/BAL
   MODE2           6970-LI     12074/BAL
   MODE2I          6968-LI     12095/BAL    12109/BAL    12165/BAL    12192/BAL    13085/BAL
   MODE2IFT        6978-LI     12268/BAL    12299/BAL
   MODE2IRT        6981-LI
   MODE2RT         6979/B       6983-LI
   MODE24          6993-LI
   MODE24I         6991-LI
   MOVEDDT        13322/BAL    13348/BAL    13371/BAL    13394/BAL    13448/BAL    15648-EQU
   MOXXDATA        7270-DATA    7543/LD      7662/LD      7942/LD
   MPE             1589/SET     1638/SET     8238/WD2     8305/MEPROC  8320/MEPROC  8343/WD2     8968/WD2
   MPE:R           1638/SET
   MQ:D            1638/SET
   MREG            5727-LW      7964/BAL     8421/BAL
   MRMASK          1066-DATA    5728/LW
   MRMASKS         7187-DATA
   MRMSGDLY        2793-MSGX    5732/DATA
   MRMSGERR        2794-MSGX    5733/DATA
   MRMSGHDR        5603/DATA    5734/DATA    5925/DATA    7435-TEXTC
   MSFBYT         11365/GEN    11455-EQU
   MSFYYY         10121/DATA   10128/GEN    10158-EQU    10367/DATA   10374/GEN
   MSFZZZ         10023/DATA   10044-EQU    10420/DATA   10427/GEN
   MSF000          9654/DATA    9684-EQU
   MSF001          9709/DATA    9730-EQU     9756/DATA
   MSF002          9780/DATA    9839-EQU     9926/DATA
   MSF012         10172/DATA   10196-EQU
   MSF016         10578/DATA   10610-EQU
   MSF017          9310/DATA    9317-EQU
   MSF018         10617/DATA   10624/GEN    10659-EQU    10740/DATA   10745/GEN
   MSF020         10803/DATA   10810/GEN    10827-EQU
   MSF022         10842/DATA   10847/GEN    10863-EQU
   MSF023         11034/DATA   11044/GEN    11098-EQU
   MSF026         11131/DATA   11141/GEN    11152-EQU
   MSF029         11164/DATA   11177/GEN    11187-EQU
   MSF030         11216/DATA   11227/GEN    11233-EQU
   MSF042         11694/DATA   11701/GEN    11708/GEN    11721-EQU
   MSF043         11759/DATA   11766/GEN    11781-EQU
   MSF045A        11895/LI     11901-SET
   MSF046         11984/DATA   11994/GEN    12046-EQU
   MSF410         11661/DATA   11682-EQU
   MSF440         11803/DATA   11806/GEN    11813/GEN    11819-EQU    11842/DATA   11848/GEN
   MSGADR          1042-DATA    4280/STW     4827/LB      4913/LB      4935/LW      4941/MTW     4951/LW*
      5088/CB     13329/STB    13346/STB    13375/STB    13392/STB    13477/STB    13496/STB    14685/STW
   MSGBUF          1015-RES     3268/LI      3297/STB     3300/DATA    3301/LI      3313/STB     3315/DATA
   MSGEXP          2791-MSGX    5662/DATA
   MSGFYYY0        3070-MSGX   10158/EQU
   MSGFZZZ         3065-MSGX   10044/EQU
   MSGF000         3052-MSGX    9684/EQU
   MSGF0010        3055-MSGX    9730/EQU
   MSGF0020        3059-MSGX    9839/EQU
   MSGF0120        3075-MSGX   10196/EQU
   MSGF0160        3080-MSGX   10610/EQU
   MSGF0170        3083-MSGX    9317/EQU
   MSGF0180        3085-MSGX   10659/EQU
   MSGF0200        3092-MSGX   10827/EQU
   MSGF0220        3096-MSGX   10863/EQU
   MSGF0230        3101-MSGX   11098/EQU
   MSGF0260        3107-MSGX   11152/EQU
   MSGF0290        3112-MSGX   11187/EQU
   MSGF0300        3114-MSGX   11233/EQU
   MSGF0370        3123-MSGX   11591/EQU
   MSGF0371       11491/LI     11591-EQU
   MSGF0390        3126-MSGX   11592/EQU
   MSGF0391       11516/LI     11592-EQU
   MSGF0410        3130-MSGX   11682/EQU
   MSGF0420        3133-MSGX   11721/EQU
   MSGF0430        3136-MSGX   11781/EQU
   MSGF0440        3139-MSGX   11819/EQU
   MSGF045A        3142-MSGX   11901/SET
   MSGF046         3145-MSGX   12046/EQU
   MSGIL           3150-MSGX   13183/EQU    13184/EQU    13185/EQU    13186/EQU
   MSGMXX          7564/DATA    7591-EQU
   MSGNOTIL        3147-MSGX   13178/EQU    13179/EQU    13180/EQU    13181/EQU    13182/EQU
   MSGN0041        3217-MSGX   13578/EQU
   MSGN0043        3223-MSGX   13632/EQU
   MSGN0210        3156-MSGX   12491/EQU
   MSGN0300        3166-MSGX   12742/EQU
   MSGN044         3228-MSGX   13703/EQU
   MSGN230         3160-MSGX   12576/EQU
   MSGN2500        3162-MSGX   12430/EQU
   MSGOBS          2792-MSGX    5667/DATA   16600/DATA
   MSGOUT          1842/BAL     3261-LCI     3444/BAL     3450/BAL     4296/BAL     4425/BAL     4427/BAL
      4429/BAL     4434/BAL     4499/BAL     4501/BAL     4613/BAL     4617/BAL     4621/BAL     4679/BAL
      4681/BAL     4905/BAL     4924/BAL     4931/BAL     4949/BAL     4957/BAL     4961/BAL     5003/BAL
      5028/BAL     5032/BAL     5036/BAL     5045/BAL     5443/BAL     5453/BAL     5457/BAL     5467/BAL
      5472/BAL     5475/BAL     5478/BAL     5517/BAL     5523/BAL     5534/BAL     5564/BAL     5573/BAL
      5579/BAL     5589/BAL     5654/BAL     5657/BAL     5661/BAL     5666/BAL     5721/BAL     5806/BAL
      5856/BAL     5859/BAL     5877/BAL     5885/BAL     5940/BAL     6030/BAL     6041/BAL     6259/BAL
      6273/BAL     6280/BAL     6287/BAL     6335/BAL     6484/BAL     6490/BAL     6792/BAL     6794/BAL
      6925/BAL     6932/BAL     6936/BAL     6938/BAL     6945/BAL     6949/BAL    14076/BAL    14159/BAL
     14189/BAL    14726/BAL    14994/BAL    15566/BAL    15737/BAL    15741/BAL    16017/BAL    16025/BAL
     16038/BAL    16048/BAL    16075/BAL    16089/BAL    16472/BAL    16499/BAL    16585/BAL    16595/BAL
     16599/BAL
   MSGOUTX         1017-DATA    3265/LW*     3319/B*
   MSGOUT1         3269-MTW     3280/BDR     3281/B       3304/BDR     3321/B
   MSGOUT1B        3271/BEZ     3278-AI
   MSGOUT1C        3273/BNE     3282-LW
   MSGOUT1D        3277/B       3284-BLZ
   MSGOUT10        3387/B       3393/BEZ     3396-LB
   MSGOUT11        3408-LB      3419/BDR     3426/B
   MSGOUT15        3320/BAL     3394/BAL     3424/BAL     3429-LI
   MSGOUT2         3288-AI      3303/BDR     3310/BDR     3377/B
   MSGOUT2A        3311-BDR     3364/B       3421/B
   MSGOUT2B        3264/B       3316-LCI
   MSGOUT3         3311/BDR     3320-BAL
   MSGOUT4         3284/BLZ     3323-LB
   MSGOUT5         3327/BCR     3336-CI
   MSGOUT6         3334/B       3347/BCR     3374-LI
   MSGOUT6A        3359-LB      3366/BCS     3373/B
   MSGOUT7         3337/BCR     3379-AND
   MSGOUT9         3329/BCS     3389-LW
   MSGOUT99        3294/BNE     3306-STB
   MSGPB00         2956-MSGX    8161/EQU
   MSGPX00         2937-MSGX    7809/EQU
   MSGPZ00         2951-MSGX    8029/EQU
   MSGP0Y0         2940-MSGX    7904/EQU
   MSGP000         2933-MSGX    7736/EQU
   MSGP001         2935-MSGX    7756/EQU
   MSGP160         2953-MSGX    8107/EQU
   MSGP210         2960-MSGX    8197/EQU
   MSGP220         2962-MSGX    8230/EQU
   MSGP2300        2964-MSGX    8335/EQU     8336/EQU     8337/EQU
   MSGP2400        2966-MSGX    8375/EQU
   MSGP2500        2969-MSGX    8424/EQU
   MSGP2700        2973-MSGX    8484/EQU
   MSGP2800        2976-MSGX    8522/EQU
   MSGP2900        2980-MSGX    8585/EQU
   MSGP3200        2982-MSGX    8656/EQU
   MSGP3401        2984-MSGX    8726/EQU
   MSGP3403        2986-MSGX    8787/EQU
   MSGP3900        2995-MSGX    8909/EQU
   MSGP3902        2998-MSGX    8955/EQU
   MSGP4000        3002-MSGX    9017/EQU
   MSGP4100        3005-MSGX    9054/EQU
   MSGP4200        3009-MSGX    9103/EQU
   MSGP4300        3014-MSGX    9143/EQU
   MSGP4600        3017-MSGX    9186/EQU
   MSGP4700        3019-MSGX    9223/EQU
   MSGP5500        3022-MSGX    9265/EQU
   MSGP5700        3025-MSGX    9295/EQU
   MSGP5800        3029-MSGX    9325/LI
   MSGP5900        3030-MSGX    9338/LI
   MSGP6000        3031-MSGX    9351/LI
   MSGP6100        3032-MSGX    9364/LI
   MSGP6200        3033-MSGX    9377/LI
   MSGP6300        3034-MSGX    9390/LI
   MSGP6400        3035-MSGX    9403/LI
   MSGP6500        3036-MSGX    9416/LI
   MSGP660         3037-MSGX    9448/HEADR
   MSGP7000        3043-MSGX    9501/EQU     9509/LI
   MSGP7100        3046-MSGX    9537/EQU
   MSGP7400        3049-MSGX    9619/EQU
   MSGP800         2943-MSGX    7935/EQU
   MSGP900         2947-MSGX    7969/EQU
   MSGSAVE         1016-RES     3262/STM     3318/LM
   MSGSIO          7103-HEADR
   MSGSTAT0        2989-MSGX    8866/EQU
   MSGTEST2        3038-MSGX    9449/HEADR   9456/HEADR
   MSGT000         3189-MSGX   13187/EQU
   MSGT001         3192-MSGX   13188/EQU
   MSGT002         3195-MSGX   13517/EQU
   MSGT049         3231-MSGX   13524/EQU
   MSGT1T19        2867-MSGX    4297/DATA
   MSGT320         3170-MSGX   13518/EQU
   MSGT330         3172-MSGX   13519/EQU
   MSGT340         3174-MSGX   13520/EQU
   MSGT350         3177-MSGX   13521/EQU
   MSGT360         3183-MSGX   13522/EQU
   MSGT360A        3180-MSGX   12984/DATA
   MSGT41         13327/DATA   13358/GEN    13403/GEN    13413-EQU
   MSGT410         3197-MSGX   13413/EQU
   MSGT42         13446/DATA   13510/GEN    13516-EQU
   MSGT420         3208-MSGX   13516/EQU
   MSGT48         13083/LI     13523-EQU
   MSGT480         3187-MSGX   13523/EQU
   MSGX            1810-CNAME
   MSGYT00         3116-MSGX   11455/EQU
   MSG0100         2915-MSGX    7489/EQU
   MSG0400         2918-MSGX    7511/EQU
   MSG0500         2920-MSGX    7591/EQU
   MSG0600         2924-MSGX    7659/EQU
   MSG0700         2927-MSGX    7716/EQU
   MSG0800         2930-MSGX    7627/EQU
   MSG460          9161/DATA    9186-EQU
   MSG470          9205/DATA    9223-EQU
   MSM010          7478/DATA    7489-EQU
   MSM040          7498/DATA    7511-EQU
   MSM060          7639/DATA    7659-EQU
   MSM070          7690/DATA    7716-EQU
   MSM080          7600/DATA    7627-EQU
   MSNG042         3220-MSGX   13607/EQU
   MSN000         12073/LI     12094/LI     12108/LI     13178-EQU
   MSN0041        13548/DATA   13553/GEN    13558/GEN    13563/GEN    13572/GEN    13578-EQU
   MSN0042        13592/DATA   13607-EQU
   MSN0043        13628/DATA   13632-EQU
   MSN0044        13660/DATA   13672/GEN    13703-EQU
   MSN0070        12164/LI     12181/LI     13183-EQU
   MSN009         12190/LI     12200-EQU
   MSN0090         3154-MSGX   12200/EQU
   MSN010         12207/LI     13179-EQU
   MSN011         12215/LI     12223/LI     12233/LI     12330/LI     13184-EQU
   MSN013          1028-DATA   12288/STW
   MSN013X         7211-DATA   12247/STW    12267/LW     12298/LW
   MSN014         12280/LI     12342/LI     13180-EQU
   MSN017         12351/LI     12372/LI     13185-EQU
   MSN018         12364/LI     12382/LI     13181-EQU
   MSN021         12463/DATA   12491-EQU
   MSN023         12546/DATA   12555/GEN    12564/GEN    12576-EQU
   MSN025         12430-EQU    12606/DATA   12616/GEN
   MSN026         12638/LI     12646/LI     13182-EQU
   MSN028         12655/LI     12666/LI     13186-EQU
   MSN030         12713/DATA   12722/GEN    12742-EQU
   MSN032         12765/DATA   12782/GEN    12786/GEN    12799/GEN    13518-EQU
   MSN033         12819/DATA   12833/GEN    12838/GEN    12848/GEN    13519-EQU
   MSN034         12873/DATA   12887/GEN    12890/GEN    12902/GEN    13520-EQU
   MSN035         12923/DATA   12942/GEN    12946/GEN    12949/GEN    12962/GEN    13521-EQU
   MSN036         13017/DATA   13021/GEN    13025/GEN    13033/GEN    13522-EQU
   MSN049         13524-EQU    13729/DATA   13763/GEN    13770/GEN    13787/GEN    13808/GEN    13823/GEN
   MSPLINE         7025/LW      7027-GEN
   MSPSTAT         8844/DATA    8866-EQU
   MSPTEST         7022/STW     7027/GEN     9455-HEADR
   MSP0B0          8148/DATA    8161-EQU
   MSP0X0          7789/DATA    7809-EQU     7820/DATA
   MSP0Y0          7884/DATA    7904-EQU     8063/DATA    8597/DATA    8740/DATA
   MSP0Z0          8005/DATA    8029-EQU
   MSP000          7725/DATA    7736-EQU
   MSP0001         7745/DATA    7756-EQU
   MSP0801         7916/DATA    7935-EQU
   MSP090          7953/DATA    7969-EQU
   MSP160          8089/DATA    8107-EQU
   MSP210          8175/DATA    8197-EQU
   MSP220          8208/DATA    8230-EQU
   MSP230          8244/DATA    8335-EQU
   MSP230A         8255/GEN     8264/GEN     8336-EQU
   MSP230C         8274/GEN     8284/GEN     8337-EQU
   MSP240          8362/DATA    8375-EQU
   MSP250          8391/DATA    8424-EQU     8440/DATA
   MSP270          8465/DATA    8484-EQU
   MSP280          8499/DATA    8522-EQU
   MSP290          8572/DATA    8585-EQU
   MSP320          8633/DATA    8656-EQU     8668/DATA    8691/DATA
   MSP3401         8707/DATA    8726-EQU
   MSP3403         8768/DATA    8787-EQU
   MSP390          8876/DATA    8883/GEN     8909-EQU
   MSP3901         8921/DATA    8935/DATA    8955-EQU
   MSP400          8965/DATA    8977/GEN     8986/GEN     8993/GEN     9017-EQU
   MSP410          9033/DATA    9040/GEN     9054-EQU
   MSP420          9069/DATA    9076/GEN     9103-EQU
   MSP430          9113/DATA    9120/GEN     9143-EQU
   MSP550          9244/DATA    9265-EQU
   MSP570          9277/DATA    9295-EQU
   MSP660          9432/GEN     9448-HEADR
   MSP700          9466/DATA    9473/GEN     9501-EQU
   MSP710          9521/DATA    9526/GEN     9537-EQU
   MSP740          9594/DATA    9599/GEN     9619-EQU     9625/DATA    9630/GEN
   MSTART          1638/SET     9840/MEPROC  9848/MEPROC  9856/MEPROC  9864/MEPROC  9872/MEPROC
      9880/MEPROC  9946/MEPROC  9954/MEPROC  9962/MEPROC  9970/MEPROC 10725/MEPROC 10829/MEPROC
     11470/MEPROC
   MST000         13139/LI     13187-EQU
   MST001         13153/DATA   13157/GEN    13164/GEN    13188-EQU
   MST002         13218/DATA   13243/GEN    13517-EQU
   MXEND           3237-LOC
   MXSTART         2713-LOC
   MX0001          2714-MSGX   16112/DATA
   MX0002          2716-MSGX   16113/DATA
   MX0003          2718-MSGX   16115/DATA
   MX0004          2720-MSGX   16118/DATA
   MX0005          2722-MSGX   16114/DATA
   MX0006          2724-MSGX   16116/DATA
   MX0007          2725-MSGX   16117/DATA
   MX0008          2726-MSGX   16119/DATA
   MX0014          2728-MSGX    3445/DATA
   MX0015          2730-MSGX    3451/DATA
   MX037           2830-MSGX    3807/SEND    3810/SEND    3812/SEND
   MX501           2831-MSGX    3806/SEND
   MX502           2832-MSGX    3809/SEND
   MX503           2833-MSGX    3811/SEND
   MX504           2834-MSGX    3826/SEND
   M0XX            7518/BAL     7525/BAL     7532/BAL     7534-STW
   M0XX1           7560-BAL     7566/B
   M0XX2           7547-LD      7559/BE      7567/B
   M0XX3           7543-LD      7556/B
   M0XX4           7552/BNEZ    7557-CW
   M0YY            7634/BAL     7669-LD      7677/BE      7685/BAL     9025/BAL     9063/BAL    11030/BAL
     11126/BAL
   M0ZZ            7633/BAL     7660-STW     7684/BAL     9024/BAL     9062/BAL    11029/BAL    11124/BAL
   M010            4045/TEST    4046/TEST    7473-BAL     7480/B
   M040            4047/TEST    7494-BAL     7500/B
   M050            4048/TEST    7516-LW
   M0510           4049/TEST    7522-LW
   M0520           4050/TEST    7529-LI
   M060            4052/TEST    7632-LI
   M06001          7634-BAL     7642/B
   M06002          7635-BAL     7641/B
   M070            4053/TEST    7683-LI
   M07001          7685-BAL     7693/B
   M07002          7686-BAL     7692/B
   M080            4051/TEST    7596-BAL     7602/B
   M1             15309/LW     16352/LW     16556/CD     16635-DATA
   M2             15311/LW     16636-DATA
   M8#M9           2622-DATA    2951/MSGX    2951/MSGX
   NADDR           1589/SET
   NBOUND16        5899-LI
   NCDMASK9        7145-DATA
   NDATA           1589/SET
   NEW             2385-DATA    3014/MSGX    3123/MSGX    3126/MSGX
   NEWP             819/GOTO     824-SET
   NL              2246-DATA    2766/MSGX    2797/MSGX    2797/MSGX    2798/MSGX    2798/MSGX    2827/MSGX
      2827/MSGX    2828/MSGX    2828/MSGX    2829/MSGX    2829/MSGX    2855/MSGX    2855/MSGX    2868/MSGX
      2868/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX    2875/MSGX
      2875/MSGX    2875/MSGX    2875/MSGX    2897/MSGX    2920/MSGX    2930/MSGX    2943/MSGX    2947/MSGX
      2956/MSGX    2969/MSGX    2976/MSGX    2989/MSGX    2989/MSGX    2998/MSGX    3005/MSGX    3009/MSGX
      3025/MSGX    3038/MSGX    3038/MSGX    3055/MSGX    3059/MSGX    3059/MSGX    3065/MSGX    3070/MSGX
      3075/MSGX    3085/MSGX    3085/MSGX    3096/MSGX    3096/MSGX    3101/MSGX    3101/MSGX    3107/MSGX
      3116/MSGX    3116/MSGX    3123/MSGX    3126/MSGX    3133/MSGX    3136/MSGX    3156/MSGX    3162/MSGX
      3183/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3197/MSGX
      3208/MSGX    3208/MSGX    3208/MSGX    3217/MSGX    3220/MSGX    3223/MSGX    3223/MSGX    3228/MSGX
      3231/MSGX    3231/MSGX
   NO              2386-DATA    2714/MSGX    2716/MSGX    2718/MSGX    2720/MSGX    2722/MSGX    2724/MSGX
      2725/MSGX    2726/MSGX    2733/MSGX    2766/MSGX    2835/MSGX    2848/MSGX    2886/MSGX    2905/MSGX
      2911/MSGX    2933/MSGX    2953/MSGX    2953/MSGX    2956/MSGX    2956/MSGX    3126/MSGX    3139/MSGX
   NOIOCD          3985/STW     4281/STW     4965/MTW     7247-DATA    8382/STW     8430/STW     8453/STW
      9059/STW    13742/STW    14174/STW    14179/STW    15730/STW
   NOMEMORY        2907-MSGX   15568/DATA
   NOMSG           2835-MSGX    6331/LI
   NONE            2387-DATA    2759/MSGX    2784/MSGX    2787/MSGX    2788/MSGX
   NOP              916/LW       919-NOP
   NOPAT          14726-BAL    14768/B
   NOPATTN         2911-MSGX   14727/DATA
   NORMAL          2388-DATA    2897/MSGX    2900/MSGX    3080/MSGX    3147/MSGX
   NOT             2389-DATA    2734/MSGX    2735/MSGX    2836/MSGX    2897/MSGX    2900/MSGX    2906/MSGX
      2907/MSGX    2933/MSGX    2973/MSGX    2973/MSGX    2998/MSGX    2998/MSGX    2998/MSGX    2998/MSGX
      3065/MSGX
   NOTACCPT       15123/CAL2   15407-LI
   NSIGMA9         3671/LI      7146-EQU
   NSIGMA9T        7141-EQU
   NTACCPT1       15412/STH    15414/B      15420-CAL1
   NUMMSG          6797/DATA    7463-TEXTC
   N000            4181/TEST   12071-STW
   N000X          12073-LI     12087/B
   N001            4182/TEST   12085-STW
   N002            4183/TEST   12092-STW
   N003            4184/TEST   12105-LI
   N003X          12108-LI     12156/B
   N003XX         12109-BAL
   N003XXX        12112-EQU    12481/EQU
   N004            4185/TEST   12123-LW
   N004X          12127/B      12136/B      12146/B      12150-STW
   N005            4186/TEST   12132-LW
   N006            4187/TEST   12141-LW
   N007            4188/TEST   12162-STW
   N0070X         12165-BAL    12217/B
   N008            4189/TEST   12176-STW
   N009            4190/TEST   12190-LI
   N010            4191/TEST   12206-STW
   N011            4192/TEST   12214-STW
   N012            4193/TEST   12222-STW
   N013            4194/TEST   12232-STW
   N013SAVE        7210-DATA   12241/STW    12258/LW
   N013X          12184/B      12226/B      12239-LI     12335/B      12356/B      12377/B
   N013XY         12240-STW    12659/B
   N013XYY        12248-LI     12265/B
   N013Y          12257/BL     12266-LI
   N014            4195/TEST   12279-STW
   N014X          12209/B      12282-STD    12344/B      12365/B      12384/B      12640/B      12648/B
   N014Y          12296/BGE    12315-EQU
   N014Z          12289-EQU    12323/B
   N015            4196/TEST   12329-STW
   N016            4197/TEST   12341-STW
   N017            4198/TEST   12350-STW
   N018            4199/TEST   12362-STW
   N019            4200/TEST   12371-STW
   N020            4201/TEST   12381-STW
   N021            4202/TEST   12437-STW
   N021PAT        12438/LI     12493/DATA   12499-DATA   12694/LI
   N021X          12441/B      12450/B      12453-STW
   N021XX         12458-LI     12465/B
   N021XXX        12453/STW    12460-DATA
   N0211PAT       12495/DATA   12504-DATA
   N0212PAT       12496/DATA   12509-DATA
   N0213PAT       12497/DATA   12514-DATA
   N022            4203/TEST   12446-STW
   N022PAT        12447/LI     12518-DATA
   N023            4204/TEST   12526-STW
   N023X          12530/B      12540-STW
   N023XX         12544-LW     12547/B      12557/B      12566/B
   N024            4205/TEST   12534-STW
   N025            4206/TEST   12581-STW
   N025BC         12596/STH    12628-CHCKBC
   N025X          12584/B      12595-STB
   N025XX         12601-LI     12608/B      12618/B
   N026            4207/TEST   12589-STW
   N0261           4208/TEST   12637-STW
   N027            4209/TEST   12645-STW
   N028            4210/TEST   12654-STW
   N028XY         12658-LI     12669/B
   N029            4211/TEST   12665-STW
   N030            4212/TEST   12676-STW
   N030X          12680/B      12692-LI
   N030XX         12700-LI     12734/B
   N030XXX        12708-LI     12724/B
   N030ZZ         12704-SCS    12728/BNEZ
   N031            4213/TEST   12686-STW
   N032            4214/TEST   12757-LI     12766/B      12787/B      12800/B
   N033            4215/TEST   12814-LI     12820/B      12849/B
   N034            4216/TEST   12868-LI     12874/B      12888/B      12891/B      12903/B
   N035            4217/TEST   12918-LI     12924/B      12963/B
   N036            4219/TEST   12999-LI
   N036A           4218/TEST   12969-LW
   N036A01        12972-MTW    12987/B
   N036A02        12971/B      12974-STW
   N036A03        12979-LI     12986/B
   N036X          13015-LI     13018/B      13022/B      13026/B      13035/B
   N036XX          4220/TEST   13008-LI
   N037            4221/TEST   13070-LI
   N038            4222/TEST   13078-LI
   N041IOCD        7336-GEN    13540/DATA
   N042IOCD        7342-GEN    13587/LI
   N042IOCX        7350-GEN    13599/LI
   N044IOCD        7353-GEN     7355/GEN    13622/STB    13623/LI     13654/STB    13655/LI     13664/STB
     13667/LI
   OBJECTIVE       2625-DATA    2763/MSGX
   OBS             2390-DATA    2744/MSGX    2746/MSGX    2750/MSGX    2768/MSGX    2784/MSGX    2785/MSGX
      2792/MSGX    2797/MSGX    2798/MSGX    2799/MSGX    2801/MSGX    2842/MSGX
   OBSCORE         6780-DATA    6886/STW     6896/STB     6922/STW     6934/LI
   OBSERVED        2626-DATA    2855/MSGX    2895/MSGX
   OBSSECT         2895-MSGX    6288/DATA
   OBSWDMSG        2842-MSGX    6937/DATA
   OBTAIN          2627-DATA    2943/MSGX
   OCCUR           2628-DATA    2836/MSGX    2866/MSGX
   OCCURRED        2391-DATA    2837/MSGX    2847/MSGX    2848/MSGX    2905/MSGX
   OCCURS          2629-DATA    3002/MSGX    3217/MSGX
   OF              2392-DATA    2832/MSGX    2834/MSGX    2924/MSGX    2927/MSGX    2951/MSGX    2953/MSGX
      2956/MSGX    2973/MSGX    2976/MSGX    2986/MSGX    2986/MSGX    2998/MSGX    3038/MSGX    3038/MSGX
      3043/MSGX    3046/MSGX    3052/MSGX    3092/MSGX    3096/MSGX    3133/MSGX    3136/MSGX    3145/MSGX
      3160/MSGX    3162/MSGX    3166/MSGX    3197/MSGX    3217/MSGX    3217/MSGX    3220/MSGX
   OLD              819/GOTO     820-SET
   ONCE            2630-DATA    2866/MSGX
   ONE             2393-DATA    2855/MSGX    2855/MSGX    2911/MSGX    2911/MSGX    2920/MSGX    3139/MSGX
      3162/MSGX    3166/MSGX    3197/MSGX    3197/MSGX
   ONLY            2394-DATA    2866/MSGX    3065/MSGX    3092/MSGX    3116/MSGX
   OPERATION       2395-DATA    2751/MSGX    2752/MSGX    2753/MSGX    2754/MSGX    2755/MSGX    2756/MSGX
      2757/MSGX    2758/MSGX    2759/MSGX    2764/MSGX    2765/MSGX    2845/MSGX    2846/MSGX    3075/MSGX
      3080/MSGX    3096/MSGX    3112/MSGX    3114/MSGX    3133/MSGX    3136/MSGX    3228/MSGX    3228/MSGX
   OPERIOCD        7315-GEN    14783/STB    14820/LD
   OR              2396-DATA    2887/MSGX    2888/MSGX    2918/MSGX    2998/MSGX    2998/MSGX    3049/MSGX
      3145/MSGX    3223/MSGX    3223/MSGX    3228/MSGX    3228/MSGX
   ORDER           2397-DATA    2811/MSGX    2812/MSGX    2976/MSGX    2976/MSGX    2980/MSGX    3014/MSGX
      3017/MSGX    3123/MSGX    3123/MSGX    3126/MSGX    3126/MSGX    3147/MSGX    3147/MSGX    3150/MSGX
      3150/MSGX    3162/MSGX    3162/MSGX
   ORDEREG         6100-LB      8520/BAL     8617/BAL    11613/BAL    11640/BAL
   ORDEREND        8529/BGE     8560-STW
   ORMSGDLY        2811-MSGX    6105/DATA
   ORMSGERR        2812-MSGX    6106/DATA
   ORMSGHDR        6107/DATA    7441-TEXTC
   OTHERWISE       2631-DATA    2868/MSGX
   OUT             2398-DATA    3025/MSGX    3025/MSGX    3052/MSGX
   OUTPUT          2632-DATA    2825/MSGX    2826/MSGX
   OVERRUN         2633-DATA    3187/MSGX    3187/MSGX
   P               2399-DATA    2872/MSGX    2875/MSGX
   PAGE             797/OPEN     798-CNAME
   PARITY          2400-DATA    2986/MSGX    2986/MSGX
   PART            2634-DATA    3145/MSGX
   PARTIAL         1508-SET     1513-SET     1513/SET     1516/DISP
   PARTIALLY       2635-DATA    3046/MSGX
   PARTING         3986/STW     6363/MTW     6370/MTW     7209-DATA   10407/STW    11424/STW    11438/STW
   PARTLOOP        7241-DATA   11367/B*     11388/STW
   PARTWRT        11271/BAL    11286/BAL    11301/BAL    11316/BAL    11332/BAL    11348/BAL    11385-STW
   PARTWRT1       11272/B      11287/B      11302/B      11318/B      11334/B      11353-BAL
   PASS            2402-DATA    2902/MSGX    2903/MSGX    2904/MSGX
   PASSCNT         7215-DATA
   PASSED          2636-DATA    3183/MSGX
   PASSTYPE        1192-DATA   14302/STW
   PATH            2403-DATA    2976/MSGX    2989/MSGX    3005/MSGX    3009/MSGX    3009/MSGX    3156/MSGX
      3156/MSGX
   PATHDIS         2840-MSGX    6790/LI
   PATHERR         2841-MSGX    6787/LI
   PATHS           2404-DATA    2840/MSGX    2841/MSGX
   PATREAD1       14938-MTW
   PATSETUP       14940/BEZ    14942/B      14954-AI
   PATTDISP        7411-SET    11855/GEN    11857/GEN    11866/GEN    11868/GEN    11870/GEN    11874/GEN
     11876/GEN
   PATTDIS1        7428-SET
   PATTERN         2405-DATA    2732/MSGX    2733/MSGX    2855/MSGX    2855/MSGX    2875/MSGX    2908/MSGX
      2911/MSGX    2911/MSGX    3033/MSGX    3156/MSGX    3197/MSGX    3197/MSGX    3197/MSGX    3197/MSGX
      3197/MSGX    3208/MSGX
   PATTWRT        14933/BCS    14948-MTW
   PATUPIT        12252/BAL    12292/BAL    12307-LW
   PAT26INDEX     12309/LW     12493-DATA
   PE:D            1589/SET     8349/WD2     8774/WD2     9437/WD2
   PENDING         2406-DATA    2933/MSGX    2933/MSGX    2935/MSGX    2998/MSGX    3019/MSGX    3022/MSGX
   PH              2407-DATA    2937/MSGX    2960/MSGX    2960/MSGX    2976/MSGX
   PHASE           2409-DATA    2747/MSGX    2748/MSGX    2805/MSGX    2806/MSGX    2984/MSGX
   PHCOMP          5843-LW      7803/BAL     7838/BAL     7892/BAL     7929/BAL     8025/BAL     8102/BAL
      8189/BAL     8226/BAL     8304/BAL     8410/BAL     8475/BAL     8516/BAL     8580/BAL     8615/BAL
      8648/BAL     8675/BAL     8721/BAL     8942/BAL     8948/BAL     9131/BAL     9292/BAL     9315/BAL
      9487/BAL     9498/BAL     9573/BAL     9613/BAL     9637/BAL    10143/BAL    10388/BAL    11607/BAL
     11620/BAL    11629/BAL
   PHCOMP1         5855/BNEZ    5859-BAL
   PHCOMP2         5858/B       5861-BAL
   PHMASK          1065-DATA    5851/LW
   PHMSGA          5866/LI      5875/STW     5876/STW     5880/STW     5884/STW     5888-DATA
   PHMSGB          5868/LI      5870/STW     5871/STW     5881/STW     5882/STW     5891-DATA
   PHMSGDLY        2747-MSGX    5857/DATA
   PHMSGERR        2748-MSGX    5860/DATA
   PHMSGEXP        2749-MSGX    5878/DATA
   PHMSGHDR        5863/DATA    7431-TEXTC
   PHMSGOBS        2750-MSGX    5886/DATA
   PHPROC          1613-CNAME
   PHSTCOMP        5975-LW      7805/BAL     7841/BAL     7894/BAL     8105/BAL
   PHSTMASK        1064-DATA    5976/LW
   PH00            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      7891/PHPROC  8101/PHPROC  8103/WD1     8303/PHPROC  8614/PHPROC  8647/PHPROC  8941/PHPROC
      8947/PHPROC  9130/PHPROC  9291/PHPROC  9314/PHPROC  9497/PHPROC  9572/PHPROC  9612/PHPROC
      9636/PHPROC 10142/PHPROC 10387/PHPROC 11647/PHPROC
   PH01            1571/SET     1620/SET     7780/WD1     7794/WD1     7802/PHPROC  7827/WD1     7839/WD1
      7870/WD1     8103/WD1
   PH02            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      7928/PHPROC  8017/WD1     8103/WD1     8225/PHPROC
   PH03            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7837/PHPROC  7839/WD1
      7870/WD1     7988/PHPROC  8017/WD1     8040/WD1     8052/WD1     8103/WD1     8133/WD1     8215/WD1
      8292/WD1     8403/WD1     8508/WD1     8641/WD1     8712/WD1
   PH04            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      7982/PHPROC  8017/WD1     8040/WD1     8052/WD1     8103/WD1     8133/WD1     8215/WD1     8292/WD1
      8403/WD1     8508/WD1     8674/PHPROC  8712/WD1
   PH05            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      7976/PHPROC  8017/WD1     8103/WD1     8182/WD1     8712/WD1     8720/PHPROC  9082/WD1
   PH10            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      8017/WD1     8040/WD1     8052/WD1     8103/WD1     8133/WD1     8182/WD1     8188/PHPROC  8215/WD1
      8292/WD1     8403/WD1     8579/PHPROC  8641/WD1     8712/WD1     8747/WD1     8999/WD1     9082/WD1
      9486/PHPROC
   PH102           1571/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1     8040/WD1
      8052/WD1     8103/WD1     8133/WD1     8182/WD1     8215/WD1     8292/WD1     8508/WD1     8602/WD1
      8747/WD1     8851/WD1     8890/WD1     8999/WD1
   PH11            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      8017/WD1     8040/WD1     8052/WD1     8103/WD1     8133/WD1     8182/WD1     8215/WD1     8292/WD1
      8403/WD1     8409/PHPROC  8474/PHPROC  8508/WD1     8712/WD1     8747/WD1     8999/WD1     9480/WD1
     11596/WD1
   PH12            1571/SET     1620/SET     7780/WD1     7794/WD1     7827/WD1     7839/WD1     7870/WD1
      8017/WD1     8040/WD1     8052/WD1     8103/WD1     8133/WD1     8182/WD1     8215/WD1     8292/WD1
      8403/WD1     8508/WD1     8515/PHPROC  8851/WD1     8999/WD1     9480/WD1    11606/PHPROC
     11627/PHPROC
   PH20            1620/SET     9291/PHPROC 10142/PHPROC 11515/PHPROC
   PH30            1620/SET     9314/PHPROC  9572/PHPROC  9612/PHPROC 11524/PHPROC
   PINDEX          1086-DATA    6959/STW     6962/LW      7776/STW     7806/LW      7996/STW     8008/LW
     10405/STW    10406/MTW    10408/LW     10432/LW     11075/STW    11081/LW*    11083/MTW    12243/STW
     12256/CW
   PLACE           2408-DATA    3123/MSGX    3126/MSGX
   PLADR           1039-DATA    5235/LW
   PLFBYT         11362/DATA   11403-BAL
   PLFCH1         11570/DATA   11595-BAL
   PLFCH2         11577/DATA   11584/DATA   11601-LI
   PLFYYY1         8962/DATA   10125/DATA   10133-BAL    10364/DATA   10371/DATA   10424/DATA   10592/DATA
     11138/DATA   11161/DATA   11174/DATA   11213/DATA   11224/DATA   11658/DATA   11730/DATA   11981/DATA
     11991/DATA
   PLFZZZ         10020/DATA   10028-BAL    10118/DATA   10169/DATA   10417/DATA
   PLF000          9651/DATA    9659-BAL
   PLF001          9706/DATA    9713-BAL     9753/DATA   10807/DATA
   PLF002          9307/DATA    9777/DATA    9785-BAL     9923/DATA   10621/DATA   10742/DATA
   PLF022         10844/DATA   10852-BAL
   PLF023         11041/DATA   11049-BAL
   PLLIST          7040-DATA
   PLM010          7475/DATA    7482-LI
   PLM040          7495/DATA    7505-LI
   PLM060          7636/DATA    7645-LI
   PLM070          7687/DATA    7694-LI
   PLM0701         7650/BEZ     7699/BEZ     7710-WD
   PLM0702         7655/B       7704-LI      7714/B
   PLM080          7597/DATA    7604-STW
   PLM0801         7619-LW      7626/B
   PLOP            1532-CNAME
   PLOR            1533-CNAME
   PLPSIO          7040/DATA    7051-BAL     9564/DATA
   PLPSIOCC        7062/STW     7068-DATA
   PLPSIOX         7054/BEZ     7057/BCS     7060/BCS     7062-STW
   PLPSTAT         1107-DATA
   PLPSTATZ        8841/DATA    8850-BAL     8918/DATA    8932/DATA
   PLP0A01         8060/DATA    8067-BAL
   PLP0B0          8145/DATA    8154-BAL
   PLP0X0          7722/DATA    7786/DATA    7793-BAL     7881/DATA    7913/DATA    7950/DATA    8086/DATA
   PLP0X01         7794-WD1
   PLP0001         7742/DATA    7750-BAL
   PLP210          8172/DATA    8181-BAL
   PLP220          8205/DATA    8214-BAL
   PLP230          8241/DATA    8291-BAL     8359/DATA
   PLP230D         8281/DATA    8331-LI      8990/DATA
   PLP230X         8293-WD      9000/B
   PLP230Y         8297-WD      9015/B
   PLP250          8388/DATA    8402-BAL     8437/DATA    8462/DATA
   PLP280          8496/DATA    8507-BAL     8569/DATA
   PLP300          8594/DATA    8601-BAL     8688/DATA    9073/DATA
   PLP301          8602-WD1     9037/DATA
   PLP320          8630/DATA    8640-BAL     8665/DATA
   PLP3401         8704/DATA    8711-BAL
   PLP3402         8737/DATA    8746-BAL
   PLP3403         8765/DATA    8773-BAL
   PLP3900         8873/DATA    8889-BAL     9030/DATA
   PLP400          8974/DATA    8998-BAL
   PLP401          7817/DATA    7826-BAL
   PLP402          8983/DATA    9014-LI
   PLP420          9066/DATA    9081-BAL
   PLP430          9110/DATA    9117/DATA    9126-BAL     9158/DATA    9202/DATA    9241/DATA
   PLP460          7724/DATA    7744/DATA    9160/DATA    9166-LW
   PLP570          9274/DATA    9285-BAL     9429/DATA
   PLP700          9463/DATA    9479-BAL
   PLP7001         9470/DATA    9491-LI
   PLP740          9596/DATA    9604-MTH
   PLRSTAT         1109-DATA
   PL0MX           7571/BE      7575-LI
   PL0MXX          7561/DATA    7568-STW
   PL0Z0           8002/DATA    8016-BAL
   PNMASKS         7186-DATA
   PNSTMAKS        7185-DATA
   PNTR            1551-SET     1559-SET     1559/SET     1561/LW      1569-SET     1575-SET     1575/SET
      1577/GEN     1586-SET     1608-SET     1608/SET     1610/LW      1618-SET     1624-SET     1624/SET
      1626/GEN     1636-SET     1646-SET     1646/SET     1648/GEN
   PORT            2637-DATA    3145/MSGX
   POSSIBLE        2412-DATA    2735/MSGX    2998/MSGX    2998/MSGX    3055/MSGX    3133/MSGX    3136/MSGX
   POWERHI         1553/SET
   POWERLO         1553/SET
   PRESENCE        2413-DATA    2823/MSGX    2824/MSGX    2825/MSGX    2826/MSGX    3059/MSGX    3059/MSGX
      3085/MSGX    3096/MSGX    3096/MSGX    3096/MSGX    3139/MSGX    3139/MSGX
   PRINT            909-BAL      915/BDR
   PRINTBY         6723/BAL     6787-LI
   PROCESSOR       2414-DATA    2786/MSGX    2789/MSGX    2790/MSGX    2966/MSGX    2966/MSGX
   PROPERLY        2415-DATA    2989/MSGX    3005/MSGX    3025/MSGX    3070/MSGX    3075/MSGX    3075/MSGX
      3080/MSGX    3101/MSGX    3116/MSGX    3133/MSGX    3136/MSGX    3147/MSGX    3150/MSGX    3154/MSGX
      3217/MSGX    3220/MSGX    3228/MSGX
   PROTECT         2638-DATA    3032/MSGX    3231/MSGX
   PROTECTED       2416-DATA    2867/MSGX    3231/MSGX    3231/MSGX    3231/MSGX
   PSAVERTN        7237-DATA   10582/STW    10598/B*     11370/STW
   PSAVE1          1090-DATA    4305/EQU     6055/STW     6066/B*      7113/STW     7125/LW*     7130/B*
      7534/STW     7538/STW     7553/AWM     7554/CW      7570/CW      7992/STW     7998/OR      8080/STW
      8083/CW      8434/STW     8445/CW      8519/LW      8560/STW     9237/STW     9239/LW      9551/STW
      9556/LW*     9570/B*      9816/STW     9827/B*     11385/STW    11400/B*     11612/LW     11639/LW
     11727/STW    11728/LW     12540/STW    12571/LW     12598/STW    12698/STW    12729/LW     12731/STW
     12732/MTW    12762/STW    12779/LW     12784/AWM    12823/STW    12830/LW     12836/AWM    13012/STW
     13028/LW     13651/STW    13663/LW     13757/STW    13777/LW     13811/LW     13833/AWM
   PSAVE2          1091-DATA    6356/STW     6382/B*      9155/STW     9156/LW      9199/STW     9200/LW
     10179/STW    10186/MTW    11435/STW    11558/STW    11568/LW     11608/LW     11614/LW     11630/LW
     11641/LW     12541/STW    12544/LW     12701/STW    12727/MTW    13844/EQU
   PSAVE3          1092-DATA    6315/STW     6352/B*     11939/STW    11948/CW     11958/CW     12054/STW
     12854/EQU
   PSAVE4          1093-DATA   10017/STW    10041/LW     11564/STW    11628/OR     11921/STW    11944/AW
     12060/MTW    12240/STW    12253/LW
   PSAVE5          1094-DATA    8838/STW     8839/LW     11724/STW    11736/BAL*   11922/STW    11954/AW
     14142/STW    14163/BGE*   14165/B*
   PSMSGDLY        2805-MSGX    5980/DATA
   PSMSGERR        2806-MSGX    5981/DATA
   PSMSGHDR        5982/DATA    7437-TEXTC
   PSTAT           8794/B       8799/B       8804/B       8828-LW
   PSTAT1          8813/B       8830-LI
   PSTAT2          8832-STW
   PSTAT3          8823/STW     8832/STW     8862-DATA
   PSTAT4          8836/STW     8842-DATA
   PSTAT5          8839-LW      8846/B
   PSTAT6          8844-DATA
   PSTAT7          8827/B       8836-STW
   PTESTRTN       10361/STW    10377/B*     10378-DATA
   PWD0            7037/STW     7051/BAL*    7258-DATA    9561/STW
   PWD1            1087-DATA    7036/STW     7053/LW      7065/LW      7782/STW     7804/LW      7874/STW
      7893/LW      7993/STW     8024/LW      8041/STW     8053/STW     8068/LW      8135/STW     8155/LW
      8748/STW     9559/STW
   PWD2            1088-DATA    7035/STW     7071/LW      8824/STW     8833/STW     8854/LW      8915/STW
      8929/STW
   P0A0            8035/B       8051/B       8052-WD1
   P0A01           8043/STW     8055/STW     8061-DATA
   P0A011          8046/B       8058-BAL     8065/B
   P0B0            7863/B       8113/B       8118/B       8123/B       8128/B       8131-LW
   P0B02           8132/STW     8146-DATA
   P0B03           8143-LI      8150/B
   P0B04           8138-LW      8151/B
   P0X0            7761/B       7766/B       7771/B       7775/B       7776-STW
   P0X01           7783-BAL     7791/B
   P0X02           7778/STW     7787-DATA
   P0Y0            7858/B       7869/B       7870-WD1
   P0Y01           7852/B       7874-STW
   P0Y02           7877/STW     7882-DATA
   P0Y03           7880-BAL     7886/B
   P0Y04           7875/STW     7883-DATA
   P0Z0            7977/B       7983/B       7989/B       7990-SLS
   P0Z01           7996-STW     8012/B
   P0Z02           7999/STW     8003-DATA
   P0Z03           8000-LI      8007/B
   P000            4054/TEST    7721-BAL     7727/B
   P0001           4055/TEST    7741-BAL     7747/B
   P010            4056/TEST    7760-LI
   P020            4057/TEST    7765-LI
   P030            4058/TEST    7770-LI
   P040            4059/TEST    7774-LI
   P0401           4060/TEST    7814-BAL     7822/B
   P050            4061/TEST    7849-LI
   P060            4062/TEST    7857-LI
   P070            4063/TEST    7862-LI
   P080            4064/TEST    7868-LI
   P0801           4065/TEST    7909-BAL     7918/B
   P08011          7911-LI
   P090            4066/TEST    7940-BAL
   P0901           7948-LI      7955/B
   P0902           7944-LD      7956/B
   P100            4067/TEST    7974-LI
   P110            4068/TEST    7981-LI
   P120            4069/TEST    7987-LI
   P130            4070/TEST    8034-LI
   P140            4071/TEST    8039-LI
   P150            4072/TEST    8050-LI
   P160            4073/TEST    8079-LW
   P1601           8083-CW      8095/BCR
   P1602           8084/BE      8092-MTB
   P1603           8091/B       8093-LW
   P170            4074/TEST    8112-LI
   P180            4075/TEST    8117-LI
   P190            4076/TEST    8122-LI
   P200            4077/TEST    8127-LI
   P210            4078/TEST    8167-LI      8177/B
   P220            4079/TEST    8202-BAL     8210/B
   P230            4080/TEST    8236-LI      8246/B       8257/B       8266/B       8276/B       8286/B
   P230A           8250-BAL
   P230B           8260-BAL
   P230C           8270-BAL
   P230D           8280-BAL
   P240            4081/TEST    8343-WD2
   P240X           8344/B       8350/B       8354-STW     8364/B
   P250            4083/TEST    8381-BAL
   P250X           4082/TEST    8349-WD2
   P2501           8385-LW      8393/B
   P2502           8384/B       8387-BAL     8397/BL
   P260            4084/TEST    8429-LI
   P2601           8435/B       8443-LW
   P2602           8436-BAL     8446/BL
   P270            4085/TEST    8452-BAL
   P2701           8456-LW      8467/B
   P2702           8455/B       8458-CW      8470/B
   P280            4086/TEST    8489-LI
   P280IOCD        8490/STB     8494/LI      8502/MTB     8517/LI      8524-GEN     8526/LB      8556/MTB
   P2801           8494-LI      8501/B
   P2802           8491-BAL     8504/B
   P290            4087/TEST    8567-LI      8574/B
   P300            4088/TEST    8592-LI      8599/B
   P300IOCD        7285-GEN     8592/LI      8792/LI      8871/LI
   P320            4089/TEST    8627-LI      8635/B
   P330            4090/TEST    8661-LI      8670/B
   P340            4091/TEST    8685-LI      8693/B
   P3401           4092/TEST    8699-BAL     8709/B
   P3402           4093/TEST    8731-LW      8742/B
   P3403           4094/TEST    8759-LI      8770/B
   P350            4095/TEST    8792-LI
   P3501           8793-LI
   P360            4096/TEST    8798-LI
   P370            4097/TEST    8803-LI
   P380            4098/TEST    8808-LI
   P3801           4099/TEST    8817-LI
   P390            4100/TEST    8871-LI      8878/B       8885/B
   P3901           4101/TEST    8914-WD2     8923/B
   P3902           4102/TEST    8928-WD2     8937/B
   P400            4103/TEST    8961-BAL     8967/B       8979/B       8995/B
   P410            4104/TEST    9022-LI
   P410IOCD        7287-GEN     9027/STW     9028/LI      9049/LW
   P4101           9025-BAL     9043/B
   P4102           9028-LI      9035/B       9042/B
   P420            4105/TEST    9059-STW
   P4201           9063-BAL     9079/B
   P4202           9064-LW      9071/B       9078/B
   P4203           9072-BAL
   P430            4106/TEST    9108-LI      9115/B       9122/B
   P430IOCD        7289-GEN     8567/LI      9108/LI      9138/LI
   P4301           9116-BAL
   P440IOCD        7297-GEN     7299/GEN     9461/LI      9507/LI
   P460            4107/TEST    9148-LI
   P460IOCD        7293-GEN     8916/LI      8930/LI      9148/LI      9190/LI      9228/LI
   P4601           9149/B       9154/B       9155-STW
   P4602           9156-LW      9163/B
   P470            4109/TEST    9190-LI
   P470IOCD        7295-GEN     9153/LI      9195/LI      9234/LI
   P470X           4108/TEST    9153-LI
   P4701           9191/BAL     9196/BAL     9199-STW
   P4702           9200-LW      9207/B
   P480            4110/TEST    9195-LI
   P55X            9230/B       9236/B       9237-STW
   P55XX           9239-LW      9246/B
   P550            4111/TEST    9228-LI
   P550AIO         9229/LW      9261-CHCKAIO
   P560            4112/TEST    9234-LI
   P560AIO         9235/LW      9262-CHCKAIO
   P570            4113/TEST    9270-BAL     9279/B
   P580            4115/TEST    9322-LI
   P590            4116/TEST    9336-LI
   P600            4117/TEST    9349-LI
   P610            4118/TEST    9361-LI
   P620            4119/TEST    9374-LI
   P630            4120/TEST    9387-LI
   P640            4121/TEST    9400-LI
   P650            4122/TEST    9413-LI
   P660            4123/TEST    9426-LI      9434/B
   P700            4124/TEST    9461-LI      9468/B       9475/B
   P7001           9469-BAL
   P701            4125/TEST    9507-LI
   P710            4126/TEST    9518-LW
   P7111           9519/STW     9524-TIO
   P7112           9522-BAL
   P7113           9519-STW     9543/B       9548/B
   P7114           9520-BAL     9528/B
   P720            4127/TEST    9542-LW
   P730            4128/TEST    9547-LW
   P740            4130/TEST    9587-LW
   P740X           9584/B       9591-STW
   P740XX          9593-BAL     9601/B
   P740XXX         9592/STW     9598-DATA
   P7401           4129/TEST    9581-LI
   P750            4131/TEST    9624-BAL     9632/B
   R               2639-DATA    2872/MSGX    2875/MSGX
   RADSEED         1252-DATA   14256/STW    14312/LW     14314/STW    14342/LW     14371/LW     15618/LW
   RANDOM          2640-DATA    2833/MSGX    2834/MSGX    3197/MSGX    3197/MSGX    3208/MSGX
   RATE            2641-DATA    2875/MSGX    3030/MSGX
   RATER           1589/SET     9337/WD2
   RA8             1678/SET    10655/BYR    10818/BYR
   RBMSGDLY        2823-MSGX    6204/DATA    6216/DATA
   RBMSGERR        2824-MSGX    6205/DATA    6217/DATA
   RBMSGHDR        6206/DATA    7455-TEXTC
   RB8             1678/SET    10655/BYR    10818/BYR
   RC8             1678/SET    10655/BYR    10818/BYR
   RDMPATTM        1193-DATA   14432/STW    14533/STW    14827/STW    14963/MTW
   RDPAT1         16361-STW    16368/BIR
   RDPAT2         16369/B      16382-STW
   RD8             1678/SET    10655/BYR    10818/BYR
   READ            2417-DATA    2773/MSGX    2775/MSGX    2777/MSGX    2779/MSGX    2846/MSGX    2920/MSGX
      2930/MSGX    3096/MSGX    3101/MSGX    3107/MSGX    3114/MSGX    3114/MSGX    3130/MSGX    3136/MSGX
      3136/MSGX    3145/MSGX    3156/MSGX    3162/MSGX    3162/MSGX    3192/MSGX    3192/MSGX    3197/MSGX
      3208/MSGX    3220/MSGX    3223/MSGX    3223/MSGX
   READC           2846-MSGX    6950/DATA
   READLOOP        1217-DATA   14764/STW    14769/MTW
   READONLY       14642/BAL    14749-LI
   READS           2642-DATA    3197/MSGX    3208/MSGX
   READVERY        1238-DATA   14291/STW    14784/STW    14785/MTW    14938/MTW
   READ02         14391/BAL    14516-STW
   READ12         14389/BAL    14498-LI
   REALXTNC        7408/GEN    12031-LCW
   REALXTNP        7404/GEN    12027-EQU
   RECOGNITION     2418-DATA    2714/MSGX    2716/MSGX    2718/MSGX    2720/MSGX    2722/MSGX    2724/MSGX
      2725/MSGX    2726/MSGX    2915/MSGX    2937/MSGX    2953/MSGX    2953/MSGX    2956/MSGX    2956/MSGX
      3019/MSGX    3189/MSGX
   RECOGNIZE       2643-DATA    3189/MSGX
   RECOGNIZED      2419-DATA    2915/MSGX    2930/MSGX    2940/MSGX
   RECOMP          6356-STW     9834/BAL    10437/BAL    10654/BAL    10822/BAL    11441/BAL
   RECOMP1         6358-EXU    11436/B
   REDDRED        14395/BAL    14565-LD
   REDONLY        13352/BAL    13397/BAL    13504/BAL    14641/BAL    14743-LI     14765/BAL
   REGDIS          6315-STW     6357/BAL    11076/BAL    11429/BAL
   REGDIS1         6324/BE      6327/BE      6330/BE      6332-STW
   REGDIS10        6332/STW     6336-DATA
   REGDIS2         6346-LW      6349/BIR
   REGDIS3         6334/BNE     6337-AI
   REGDIS4         6318-LW      6343/BCS
   REGDIS5         6344-LI
   REGISTER        2420-DATA    2793/MSGX    2794/MSGX    2809/MSGX    2810/MSGX    2815/MSGX    2816/MSGX
      2819/MSGX    2820/MSGX    2823/MSGX    2824/MSGX    2825/MSGX    2826/MSGX    2947/MSGX    2947/MSGX
      2951/MSGX    2969/MSGX    2969/MSGX    2969/MSGX    2989/MSGX    2989/MSGX    3005/MSGX    3005/MSGX
      3005/MSGX    3005/MSGX    3005/MSGX    3009/MSGX    3009/MSGX    3009/MSGX    3055/MSGX    3055/MSGX
      3059/MSGX    3065/MSGX    3065/MSGX    3085/MSGX    3092/MSGX    3101/MSGX    3123/MSGX    3126/MSGX
   REGISTERS       2644-DATA    3059/MSGX
   REGPOINT        5200/STW     6316/MTW     6317/LW      6351/STW     7204-DATA
   REM             1512-SET     1513/SET
   REPEATED        2645-DATA    3223/MSGX
   REPORT          2421-DATA    2986/MSGX    2998/MSGX    3038/MSGX    3080/MSGX    3085/MSGX    3096/MSGX
      3162/MSGX
   REPORTED        2422-DATA    3142/MSGX    3162/MSGX    3166/MSGX    3180/MSGX    3183/MSGX    3187/MSGX
      3231/MSGX    3231/MSGX
   REPORTS         2646-DATA    3160/MSGX
   REQUEST         2423-DATA    3059/MSGX    3059/MSGX    3065/MSGX    3085/MSGX
   REQUESTED       2647-DATA    2943/MSGX    3014/MSGX
   REQUESTS        2424-DATA    3065/MSGX    3085/MSGX    3092/MSGX
   REQUIRED        2648-DATA    2943/MSGX
   RESET           2425-DATA    2906/MSGX    2918/MSGX    2918/MSGX    2930/MSGX    2930/MSGX    2930/MSGX
      2933/MSGX    2964/MSGX    3019/MSGX    3019/MSGX
   RESETMOD        6566-STW    12545/BAL    12764/BAL    12818/BAL    12872/BAL    12922/BAL    13016/BAL
     13152/BAL    13217/BAL    13326/BAL    13445/BAL    13547/BAL    13728/BAL
   RESETM1         6569/STW     6571-DATA
   RESETM2         6568/STW     6574-DATA
   RESETM3         6570-BAL
   RESPOND         2649-DATA    3189/MSGX
   RESPONDED       2650-DATA    2915/MSGX
   RETURN          2426-DATA    2855/MSGX    2989/MSGX    2989/MSGX    3009/MSGX
   RETURNED        2651-DATA    2795/MSGX    2796/MSGX    2940/MSGX    3002/MSGX    3101/MSGX
   RETURNING       2427-DATA    3156/MSGX
   REV              887-CNAME
   REVBRNCH         917/STW     3512-EQU
   REVCOUNT         884-SET      889/DO       893-SET      893/SET      898/GEN     3513/DO
   REVEND           894/DO       970-REV
   REVISION        1325-DATA    3613/STW
   REVISON          906/LW       907/LW       929-REV
   REVPRINT         906-LW      3516/BAL
   REVSTART         885-SET      890-SET      897/ORG
   RE8             1678/SET
   RF8             1678/SET
   RG8             1678/SET
   RIO             1531-CNAME
   RIOP            2429-DATA    2739/MSGX    2740/MSGX    2742/MSGX    2838/MSGX    2839/MSGX    2906/MSGX
      2915/MSGX    2918/MSGX    2933/MSGX    2935/MSGX    2953/MSGX    2956/MSGX    2962/MSGX    2982/MSGX
      2986/MSGX    3025/MSGX    3038/MSGX    3046/MSGX    3049/MSGX    3070/MSGX    3083/MSGX    3130/MSGX
      3156/MSGX    3156/MSGX
   RIOPEND         4238-EQU
   RIOPEXIT        4008/BNE     4010/BEZ     4039-EQU     6666/B       7029/LI      7481/B       7501/B
      7555/BLE     7603/B       7675/BEZ     7728/B       7748/B       7792/B       7823/B       7887/B
      7919/B       7945/BEZ     8010/BGE     8066/B       8098/B       8142/BCR     8178/B       8211/B
      8287/B       8365/B       8398/B       8447/B       8460/BGE     8503/BEZ     8575/B       8600/B
      8636/B       8671/B       8694/B       8710/B       8743/B       8771/B       8847/B       8886/B
      8924/B       8938/B       8996/B       9123/B       9164/B       9208/B       9247/B       9280/B
      9313/B       9435/B       9476/B       9529/B       9602/B       9633/B       9657/B       9700/BGE
      9748/BGE     9783/B       9929/B      10026/B      10131/B      10175/B      10357/BGE    10410/BGE
     10579/B      10627/B      10748/B      10813/B      10850/B      11180/B      11230/B      11255/BEZ
     11368/B      11590/B      11664/B      11713/B      11771/B      11793/BGE    11838/BG     11889/BGE
     12052/BEZ    12263/BGE    12318/BE     12320/BNE    12466/B      12567/B      12619/B      12733/BEZ
     12801/B      12850/B      12904/B      12964/B      12978/BGE    13036/B      13167/B      13249/BEZ
     13406/B      13513/B      13577/B      13595/B      13631/B      13675/B
   RIOPLIST        1522/GEN     4004/LH      4011/AI      4043-EQU
   RIOPTEST        7232-DATA
   RIOSTAT         1106-DATA
   ROBJ            2430-DATA    3055/MSGX    3059/MSGX    3065/MSGX    3070/MSGX    3085/MSGX    3092/MSGX
      3101/MSGX    3107/MSGX    3116/MSGX    3123/MSGX    3126/MSGX    3139/MSGX    3147/MSGX    3150/MSGX
      3156/MSGX    3160/MSGX    3166/MSGX    3183/MSGX    3187/MSGX    3197/MSGX    3208/MSGX
   ROW             2652-DATA    3043/MSGX    3043/MSGX
   RPRESIND        7244-DATA   11390/STW    11430/LW
   RUN             2653-DATA    2960/MSGX
   RUNNING         2431-DATA    2940/MSGX    2976/MSGX    3080/MSGX    3107/MSGX    3130/MSGX    3228/MSGX
   S:NUMC          1826/SET
   S:UFV              2/EQU
   SAVEBIAS       13048-DATA
   SAVEBYTE        5906/B       5908/B       5910/B       5912-AW
   SECINCMT       14406/STH    14430/STH    14457/STH    14487/STH    14507/STH    14523/STH    14557/STH
     14825/STH    15578-EQU
   SECTAB          2864-MSGX   12757/LI     12868/LI     13201/LI
   SECTCOUT       14891/SH     15054/B      15091-AI     15291/EXU    15578/EQU
   SECTCURR        1281-DATA    3952/DW      4301/MW      4511/DW      4665/CW     12775/LW     12825/DW
     12835/LW     12875/LW     12929/DW     12957/LW     13212/LW     13460/DW     13462/MW     13471/SW
     13745/MW     13835/AW     15452/DW     15524/LW     16627/DW
   SECTDLAY        1327-DATA    3953/STW     6397/LW     13586/STW
   SECTDLY         2892-MSGX    6271/LI
   SECTERR         2893-MSGX    6268/LI
   SECTLGTH        1204-DATA
   SECTLMT         1208-DATA    4395/CW     15502/STW
   SECTOR          2432-DATA    2864/MSGX    2875/MSGX    2886/MSGX    2886/MSGX    2889/MSGX    2894/MSGX
      2895/MSGX    2908/MSGX    3031/MSGX    3162/MSGX    3174/MSGX    3174/MSGX    3177/MSGX    3177/MSGX
      3180/MSGX    3180/MSGX    3183/MSGX    3183/MSGX    3183/MSGX    3183/MSGX    3192/MSGX    3195/MSGX
      3197/MSGX    3208/MSGX    3217/MSGX    3217/MSGX    3223/MSGX
   SECTOROC        2875-MSGX    4682/DATA
   SECTORS         1260-DATA    3697/STW     3739/MW      3748/MW      3765/DW     12969/LW     13930/LW
     13941/MW     13950/MW
   SECTRACK        3586-SET
   SECTREND        3588-SET     3696/LW
   SECTSHOT        1200-DATA    4630/LW     15528/STW    15895/MTH*
   SEEK             337/DATA    1451/:PROCDIC            13923-LI
   SEEKADD          337-DATA
   SEEKED          2654-DATA    3170/MSGX    3172/MSGX
   SEEKERR        13932/BL     13935/BL     13948/B      13957/B      13964/BEZ    13966/B      13983-BAL
   SEEKIOCD        7313-GEN    14818/LD
   SEEKRAD         6638/GEN     7255-DATA    7313/GEN     7322/GEN     7342/GEN     7346/GEN    12970/STW
     12972/MTW    12973/LW     13604/LW     13735/LW     13746/STW    15454/STW    15455/AWM
   SEEKSAVE       13927/B      13967-LI
   SEEKTRUE       16341/BAL    16383/BAL    16391/BAL    16429/BAL    16457/BAL    16529/BAL    16624-STW
   SEEK1          13926-BAL    13961/BL
   SEEK2          13946/BGE    13949-LW
   SEEK3          13955/BLE    13958-STW
   SEEK4          13970-BAL    13972/LI
   SELCTOUT        4489-LI     13409/BAL
   SELCT51         4537-LD      4605/BL
   SELCT52         4505/STW     4521/STW*    4523/STB*    4529/STW*    4531/STW*    4533/STW*    4601/STD*
      4607/BEZ     4609-DATA
   SELCT53         4539/BEZ     4601-STD
   SELCT60         4519-LW      4612/BL
   SELCT70         4541/BCR     4547-CI
   SELCT71         4548/BCR     4554-CI
   SELCT72         4555/BCR     4561-CI
   SELCT73         4562/BCR     4568-CI
   SELCT74         4569/BCR     4575-CI
   SELCT75         4576/BCR     4582-CI
   SELCT76         4583/BCR     4588-CI
   SELCT77         4589/BCR     4594-CI
   SELCT78         4595/BCR     4600-MTW
   SELCT81         4639/BEZ     4643/BGE     4648/BNEZ    4651/BNEZ    4653-STW
   SELCT82         4637-LW      4657/BLE
   SELCT83         4631-LW      4666/BL
   SELCT85         4635-LI      4675/B
   SELCT87         4668/BNEZ    4679-BAL
   SELCT89         4506/STW     4627/STW*    4629/STW*    4634/STH*    4653/STW*    4661-DATA    4672/STH*
      4673/STW*
   SELECTDY        2888-MSGX    4494/LI
   SELECTED        2655-DATA    2989/MSGX
   SELECTER       15723/BEZ    15727/BEZ    15769-LI
   SELECTION       2438-DATA    2868/MSGX    2875/MSGX    2887/MSGX    2888/MSGX
   SELECTRR        2887-MSGX    4497/LI
   SELECTUP       15801/BAL    15809/BAL    15818/BAL    15825/BAL    15832/BAL    15839/BAL    15847/BAL
     15857/BAL    15864/BAL    15889-LW
   SELECT01       15785/BNEZ   15787/BEZ    15793-LW
   SELECT02       15797-LH     15878/BCS
   SELECT03       15799-CI
   SELECT04       15800/BCR    15806-AI
   SELECT05       15808/BCR    15814-AI
   SELECT06       15831/BCR    15836-AI
   SELECT07       15838/BCR    15844-AI
   SELECT08       15846/BCR    15852-AI
   SELECT09       15854/BNEZ   15856/BEZ    15859-AI
   SELECT10       15861/BNEZ   15863/BEZ    15871-STH    15880/BNEZ
   SELECT11       15881-STW
   SELECT12       15796/B      15877-CI
   SELECT61       15817/BCR    15821-AI
   SELECT62       15824/BCR    15828-AI
   SELECT90        2868-MSGX    4502/DATA
   SELECT93        4508/DATA    4687-TEXTC
   SELECT94        2886-MSGX    4618/DATA
   SELECT95        4537/LD      4691-TEXT
   SELECT96        2872-MSGX    4622/DATA
   SELECT97        4671/LD      4690-TEXT
   SELMANY         1009-DATA   15777/STW    15874/MTW    15894/STW
   SELPASS         1008-DATA   15776/STW    15876/STW    15892/MTW
   SELTEMP         1007-DATA   15779/STW    15889/LW
   SEND            1840-CNAME
   SENSCOMP        6265-LH     13605/BAL
   SENSE          14387/BAL    14465-LI
   SENSED          2436-DATA    3170/MSGX    3172/MSGX    3174/MSGX    3177/MSGX    3195/MSGX
   SENSEWD         1018-DATA    6265/LH      7350/GEN
   SENSE4          3263/BAL     4832/BAL     4834/BAL     5205/BAL     5417/BAL     7135-STW
   SENSLESS        1025-DATA    7135/STW     7137/BCS*    7138/B*
   SEQUENCE        2437-DATA    3043/MSGX    3220/MSGX    3220/MSGX    3223/MSGX    3223/MSGX
   SET             2439-DATA    2769/MSGX    2770/MSGX    2771/MSGX    2924/MSGX    2927/MSGX    2935/MSGX
      2989/MSGX    3059/MSGX
   SETORDER        8491/BAL     8526-LB      8557/B      11611/BAL    11638/BAL
   SETRDXIT        6303/STW     6310/LW      6311/B*      6312-DATA
   SETREAD         6303-STW    10577/BAL    10616/BAL    10739/BAL    10802/BAL    10840/BAL    11033/BAL
     11130/BAL
   SETREALX        6065/XPSD    6082/LPSD    7393-DATA
   SETTING         2440-DATA    2924/MSGX    2927/MSGX    3038/MSGX
   SETWRITE        6301/B      10582-STW
   SET16WRT        6296-LI      6306/BAL
   SHOULD          2441-DATA    2866/MSGX    2930/MSGX    3116/MSGX
   SIGMA9          3667/LI      7152-EQU
   SIGMA9T         7147-EQU
   SIOPART         9520/BAL     9551-STW     9593/BAL     9624/BAL
   SIOPART1        9562-LI      9569/B
   SIOPART2        9557/STW     9567-DATA
   SIOSTAT         1102-DATA    5162/STD     5176/STD     6456/STD     6538/LD
   SIOSTAT1        1110-DATA
   SIX             2656-DATA    3197/MSGX
   SIZE            2657-DATA    2907/MSGX
   SIZEACT         6048-LI     11886/BAL    11940/BAL    14014/BAL
   SIZEMEM         6052-LI      8381/BAL     8452/BAL     9694/BAL     9737/BAL
   SIZEMEM1        6062-EXU     6064/BLE
   SIZEMEM2        6049/B       6055-STW
   SIZETRAP        6057/LI      6086-LW
   SIZETRA1        6073/BNE     6076-SLS     6088/LI
   SIZETRA2        6068-LW      7394/GEN
   SIZETRA3        6067-EXU     6075/BL
   SIZE1           6061/EXU     6092-LI
   SIZE2           6062/EXU     6067/EXU     6094-SLS
   SKCCWRT        14383/BAL    14421-STW
   SKCRD02        14385/BAL    14444-STW
   SKDIRNO        13929/STW    13933/AWM    13947/STW    13956/STW    13962/STW    13965/STW    13987-EQU
   SKIP            2443-DATA    3112/MSGX    3112/MSGX    3114/MSGX    3114/MSGX
   SLOWER          1262-DATA    3744/STW    13469/CW     13472/CW     13474/LW     13978/STW
   SPECIFIED       2658-DATA    2868/MSGX    2897/MSGX    2900/MSGX
   SPM             1589/SET     9376/WD2
   SPREADS         2659-DATA    3197/MSGX    3197/MSGX    3208/MSGX
   SSAVE           1027-DATA    4302/STW     4364/LW      4377/STW     4383/LW      4398/STW     4403/LW
     12853/EQU    13758/STW    13759/LW     13834/LW     13836/STW
   SSIZE           1264-DATA    3759/STW
   SSIZEC          1285-DATA   14318/LW
   SSTABLE         1205-DATA    4369/MTH*    4388/MTH*    4407/CH*     4452/LH*    15498/STW    15504/STW*
     15506/STW*
   STARTED         2660-DATA    2831/MSGX    2833/MSGX
   STARTING        2444-DATA    3197/MSGX    3197/MSGX    3208/MSGX    3208/MSGX
   STATE           2445-DATA    3025/MSGX    3025/MSGX    3052/MSGX    3083/MSGX
   STATIOCD        7303-GEN     9322/LI      9336/LI      9349/LI      9361/LI      9374/LI      9387/LI
      9400/LI      9413/LI      9426/LI
   STATMASK        1033-DATA    5765/AND
   STATN9          7142-DATA
   STATUS          2446-DATA    2745/MSGX    2746/MSGX    2786/MSGX    2813/MSGX    2814/MSGX    2853/MSGX
      2854/MSGX    2989/MSGX    2989/MSGX    2989/MSGX    2989/MSGX    3002/MSGX    3002/MSGX    3029/MSGX
      3030/MSGX    3031/MSGX    3032/MSGX    3033/MSGX    3034/MSGX    3035/MSGX    3036/MSGX    3037/MSGX
      3038/MSGX    3080/MSGX    3160/MSGX    3231/MSGX    3231/MSGX
   STAT9           7148-DATA
   STEP            2447-DATA    2766/MSGX    2773/MSGX    2775/MSGX    2777/MSGX    2805/MSGX    2806/MSGX
      2927/MSGX    2927/MSGX
   STEPPED         2448-DATA    2827/MSGX    2828/MSGX    2829/MSGX    2835/MSGX
   STEPRINT        4771/BAL     5022-STW
   STEPSTAT        1019-DATA    4744/STW     5025/LW      5303/OR      5304/STW     7577/STW
   STOP           14381/BAL    14401-LD
   STOPAIO        14408/LW     14415-DATA
   STOPIT          6435/LI      7278-GEN
   STROBE          2661-DATA    2937/MSGX
   SUBCHAN         6127-LB      8315/BAL     8326/BAL
   SUBCHANNEL      2450-DATA    2853/MSGX    2854/MSGX    3002/MSGX    3002/MSGX
   SUBCHDLY        2854-MSGX    6132/DATA
   SUBCHERR        2853-MSGX    6133/DATA
   SUCCESSFUL      2662-DATA    2995/MSGX    2995/MSGX
   SUN             1589/SET     9350/WD2
   SUPPER          1263-DATA    3753/STW    13459/LW     13464/CW     13977/STW
   SUPPRESS        2663-DATA    3154/MSGX    3154/MSGX
   SURCALL        15243-DATA   15246/LW*    15256/MTW    15257/LPSD   15424/XPSD
   SURCALL1       15252/BGE    15256-MTW
   SURDATE        15253/BAL    15290-STW
   SURDATE1        1248-DATA   15290/STW    15320/BL*
   SURDATE2       15300/BE     15304/BCS    15307/BEZ    15313-CW
   SURDELAY        1239-DATA   14903/STW    14922/MTW
   SURFACE        14703/BAL    14715-STW
   SURFACE2       14720-BAL    14724/B      14770/BLEZ
   SURFACE3        1213-DATA
   SURFCEND        1284-DATA    4510/LW     13468/STW    13837/CW     14366/LW     14376/STW    14890/LW
     15096/CW     15313/CW
   SURINT         14914/CAL3   15064-AIO
   SURINTC2       14914/CAL3   15076-MTW
   SURINTXX       15147-DATA
   SURINT00       15008-DATA   15010/LD     15422/XPSD
   SURINT01       15011/STD    15060-DATA   15076/MTW    15101/LPSD   15108/LPSD   15118/LPSD   15138/LPSD
     15154/LPSD   15327/LPSD   15423/XPSD   15426/XPSD
   SURINT02       15029/LI     15084-LW     15106/EXU    15107/EXU    15294/EXU    15295/EXU
   SURINT03        1229-DATA   15084/LW     15438/STW    15440/STB
   SURINT04       15013/CAL2   15067/CAL2   15143-STCF
   SURINT05       15150/B      15158-BAL
   SURINT06       15093/BL     15097/BL     15102-MTW
   SURINT07       15103/BEZ    15112-CW
   SURINT09       15017/CAL2   15072/CAL2   15078/CAL2   15167-BAL    15421/B
   SURINT11       15098-LI
   SURINT25       15051-LI
   SURINT29       15122/BCR    15128-LI
   SURINT30       15131/BNEZ   15136-STW
   SURINT31       15050/STCF   15088/STCF   15113/BL     15121-LCI
   SURINT60       15009/DATA   15010-LD
   SURINT62       15015/B      15024-MTW    15079/B
   SURINT63       15026-LI
   SURINT64       15034/B      15046-STW
   SURINT65       15018/B      15025/BNEZ   15036-LW     15073/B      15125/B
   SURMASK        14866/STW    14868/STW    15047/STW    15160-DATA
   SURM1END        1226-DATA   14892/STW    15092/CW
   SURORDER        1214-DATA   14402/STW    14421/STW    14444/STW    14467/STW    14500/STW    14516/STW
     14535/STW    14567/STW    14782/STW    14894/CW     14932/CW     14981/CW
   SURPAT         14739/B      14745/B      14751/B      14757/B      14781-STW
   SURPAT01       14786/BEZ    14791-LCI
   SURPAT07       14901-LI     14944/B      14945/B      14964/BNEZ   14967/B
   SURPAT12       14906-WD     14924/B
   SURPAT20       14923/BEZ    14949/BEZ    14975-LI     15181/B      15318/B
   SURPAT23       14895/BCS    14917/BGZ    14927-STW    14966/BGZ    14974/BGZ
   SURPAT24       14920/BEZ    14973-AI
   SURPAT25       14909/BEZ    14912/BEZ    14916-AI
   SURPAT27       14980/BNEZ   14987-LI
   SURPERR        14689/BNE    14696/BCS    14709-BAL
   SURRTN          1212-DATA   13324/STW    13350/STW    13373/STW    13396/STW    13442/STW    13498/STW
     14715/STW    14721/B*     14728/B*
   SURSTART       14874/STH    15040/LI     15087-SIO    15094/LI     15114/LI
   SURTEMP1        1247-DATA   15248/STW    15249/MTW*   15251/CW*    15255/STW*
   SURTN1          1240-DATA   14781/STW    14788/BNEZ*  14804/B*
   SUR0015         1228-DATA
   SUR0615         1227-RES    15196/STM    15211/LM     15326/LM
   SWITCH         15030/STH    15041/STH    15066-BCR    15095/STH    15115/STH
   SWPROT12        1269-DATA    3745/STW    13940/LW     13945/CW
   SWPROT34        1270-DATA    3754/STW    13949/LW     13954/CW
   SYNC            2664-DATA    2875/MSGX    3033/MSGX
   T               1824-CNAME   2665-DATA    2872/MSGX    2875/MSGX
   T:CCADR         5340/STW     5407/CW      5437/LW      5450/LB      7223-DATA
   T:CONT          4726/B       4732-LI     11576/BAL    11583/BAL    11704/BAL    11762/BAL    11809/BAL
     11844/BAL
   T:CONTRS        4725-LI      8989/BAL    10124/BAL
   T:END           4775/BAL     5042-CW
   T:EXEC          4353/BAL     4729-LI      6616/BAL     7473/BAL     7494/BAL     8250/BAL     8260/BAL
      8270/BAL     8280/BAL     8879/BAL     8982/BAL     9036/BAL     9116/BAL     9469/BAL     9522/BAL
      9595/BAL     9626/BAL    10620/BAL    10741/BAL    10806/BAL    10843/BAL    11040/BAL    11173/BAL
     11223/BAL    12551/BAL    12560/BAL    12612/BAL    12718/BAL    13029/BAL    13354/BAL    13399/BAL
     13506/BAL    13568/BAL    13766/BAL
   T:EXECRS        4722-LI      6570/BAL     7039/BAL     7560/BAL     7596/BAL     7635/BAL     7686/BAL
      7721/BAL     7741/BAL     7785/BAL     7816/BAL     7880/BAL     7912/BAL     7949/BAL     8001/BAL
      8058/BAL     8085/BAL     8144/BAL     8171/BAL     8204/BAL     8240/BAL     8358/BAL     8387/BAL
      8436/BAL     8461/BAL     8495/BAL     8568/BAL     8593/BAL     8629/BAL     8664/BAL     8687/BAL
      8703/BAL     8736/BAL     8764/BAL     8840/BAL     8872/BAL     8917/BAL     8931/BAL     8961/BAL
      8973/BAL     9029/BAL     9065/BAL     9072/BAL     9109/BAL     9157/BAL     9201/BAL     9240/BAL
      9273/BAL     9306/BAL     9428/BAL     9462/BAL     9563/BAL     9650/BAL     9705/BAL     9752/BAL
      9776/BAL     9922/BAL    10019/BAL    10117/BAL    10168/BAL    10363/BAL    10370/BAL    10416/BAL
     10423/BAL    10591/BAL    11137/BAL    11160/BAL    11212/BAL    11361/BAL    11569/BAL    11657/BAL
     11729/BAL    11980/BAL    11990/BAL    12459/BAL    12602/BAL    12709/BAL    12980/BAL    13160/BAL
     13239/BAL    13588/BAL    13624/BAL    13656/BAL    13668/BAL
   T:EXEC1         4765-BAL     4778/B       5240/LI
   T:EXEC2         4768/BAL     4770/BAL     4774/BAL     4776/BAL     4777-BAL     4783/B
   T:EXEC3         4758-BAL     4789/B
   T:EXIT          1098-DATA    4737/STW     5073/LW      5110/B*
   T:EXP           5337/STW     5342/STW     5396/LW      5433/MTW     7222-DATA
   T:HANDLE        5331/LI      5365-STW     5431/LW      5459/LI      6086/LW
   T:HANEXIT       5245/STW     5369/B*      5395/STW     6059/STW     7224-DATA   14844/STW
   T:LOOP          4762/BAL     4781-STW
   T:LOOPCC        4760/BAL     4764/BAL     4780-STW
   T:OCCUR         4741/STW     5103/MTW     5109/STW     5113/STW     5368/STW     5402/CW      5404/MTW
      5429/MTW     5455/MTW     5463/STW     6424/MTW     7220-DATA   14853/STW    15720/MTW
   T:REG0          5365/STW     5406/LW      7226-DATA
   T:RTN           5107/BAL*    5367/STW     5466/B*      6089/B*      7227-DATA
   T:SETUP         4753/BAL     5331-LI      6060/BAL    14845/BAL
   T:SETUP1        5333-STW
   T:WDT           6014-LW      7783/BAL     7814/BAL     7909/BAL     7940/BAL     7994/BAL     8202/BAL
      8663/BAL     8699/BAL
   TABBIAS         1333-DATA    4389/CW      4406/LW      4440/LW      4442/LW      4446/LW     13208/STW
     15508/STW
   TABCOUNT        1020-DATA    4445/STW     4449/CW      4462/MTW     4467/CW
   TABDLY4         4466/BGE     4472-LW
   TABDPLY         4405/BNEZ    4408/BNE     4413/B       4416-LI
   TABDPLY2        4434-BAL
   TABDPLY3        4449-CW      4468/BG      4485/B
   TABERROR        1207-DATA    4373/STW     4391/MTW     4397/MTW     4404/MTW    15509/STW
   TABHEAD         4430-DATA   12759/STW    12816/STW    12870/STW    12920/STW    13203/STW
   TABINDEX        1334-DATA    4375/MTW     4376/CW      4392/MTW     4393/CW     15507/STW
   TABIT           4350-STW    12798/BAL    12847/BAL    12901/BAL    12961/BAL
   TABLE           2452-DATA    2862/MSGX    2863/MSGX    2875/MSGX    2886/MSGX
   TABLEDLY        2863-MSGX    4423/LI
   TABLEMAX        1206-DATA    4366/CW      4385/CW     15501/STW    15510/LW     15511/AWM
   TABLERR         2862-MSGX    4420/LI
   TABLE100        2866-MSGX    4428/DATA
   TABLE102        4432/DATA    4486-TEXTC
   TABMSG          4352/STW     4357-DATA
   TABPASS        12761/STW    12822/STW    12854-EQU    12926/STW    13209/STW
   TABUILD         4383-LW     12796/BAL    12845/BAL    12899/BAL    12959/BAL
   TABUILDS        4364-LW     13273/BAL
   TABUILD1        4407-CH      4411/BL
   TABUILD2        4358/DATA    4403-LW     13235/LI
   TAB000F         2697-DATA    2864/MSGX    2865/MSGX
   TAKE            2666-DATA    3123/MSGX    3126/MSGX
   TCC             2667-DATA    2782/MSGX    2783/MSGX
   TCKCURR         1287-DATA   12790/SW     12793/LW     12842/LCW    12894/SW     12896/LW     12953/LCW
     13736/LCW    15448/LCW    15453/SLS*   16628/SLS*
   TCKLGTH         1203-DATA
   TCKSFT01        3590-SET
   TCKSFT02        3592-SET     3699/LW
   TCKSHIFT        1266-DATA    3700/STW     3762/LW
   TCKSHOT         1199-DATA    4538/LH*    15530/STW    15536/STW*   15537/LW     15797/LH*    15871/STH*
   TCKWPVH         1343-DATA   13814/STW
   TCKWPVH1        1341-DATA   13778/STW
   TCKWPVL         1342-DATA   13733/STW    13815/MTW    13817/STW    13819/MTW    13822/DATA
   TCKWPVL1        1340-DATA   13732/STW    13779/MTW    13781/STW    13783/MTW    13786/DATA
   TDVSTAT         1104-DATA   13773/LB     15815/LB     15822/LB     15829/LB
   TEMPSEK1        1271-DATA   13958/STW    13976/LW
   TEMPSEK2        1272-DATA   13959/STW    13975/LW
   TEMP1            978-ASECT
   TEST            1519-CNAME   2454-DATA    2763/MSGX    2831/MSGX    2832/MSGX    2840/MSGX    2841/MSGX
      2905/MSGX    2906/MSGX    2907/MSGX    3029/MSGX    3030/MSGX    3031/MSGX    3032/MSGX    3033/MSGX
      3034/MSGX    3035/MSGX    3036/MSGX    3037/MSGX    3055/MSGX    3059/MSGX    3065/MSGX    3070/MSGX
      3085/MSGX    3092/MSGX    3101/MSGX    3107/MSGX    3116/MSGX    3123/MSGX    3126/MSGX    3139/MSGX
      3147/MSGX    3150/MSGX    3156/MSGX    3160/MSGX    3166/MSGX    3183/MSGX    3187/MSGX    3197/MSGX
      3197/MSGX    3208/MSGX    3208/MSGX
   TESTCONT        4724/STW     4731/STW     7233-DATA    8988/STW    10123/STW    11575/STW    11582/STW
   TESTDEV         1278-SET    15639/STM
   TESTIT          6974/B       6997/B       7007/B       7017/B       7026/B       7029-LI
   TESTIT1         6987/B       7030-STW
   TESTIT3         7034/STW     7038/LW      7254-DATA
   TESTNO          1505-CNAME
   TESTSIZE        3888/LI      3899/CI      3912/CI      4240-SET
   TEST1           1729-CNAME
   TEST1A          7038-LW      7045/B
   TEST2           7032/STW     7043-DATA
   TEXTADR          908/STW      910-DATA
   TGTDEV          1259-DATA    3637/STW
   THAN            2668-DATA    3116/MSGX    3116/MSGX
   THAT            2455-DATA    2763/MSGX    2930/MSGX    2943/MSGX    2947/MSGX    2989/MSGX    2995/MSGX
      2998/MSGX    3025/MSGX    3065/MSGX    3075/MSGX    3075/MSGX    3085/MSGX    3096/MSGX    3116/MSGX
      3116/MSGX    3126/MSGX
   THE             2456-DATA    2855/MSGX    2875/MSGX    2875/MSGX    2915/MSGX    2918/MSGX    2924/MSGX
      2927/MSGX    2933/MSGX    2935/MSGX    2937/MSGX    2937/MSGX    2943/MSGX    2947/MSGX    2951/MSGX
      2951/MSGX    2953/MSGX    2956/MSGX    2960/MSGX    2962/MSGX    2969/MSGX    2969/MSGX    2969/MSGX
      2973/MSGX    2973/MSGX    2976/MSGX    2976/MSGX    2976/MSGX    2982/MSGX    2982/MSGX    2984/MSGX
      2986/MSGX    2986/MSGX    2986/MSGX    2989/MSGX    2989/MSGX    2989/MSGX    2989/MSGX    2989/MSGX
      3005/MSGX    3005/MSGX    3005/MSGX    3005/MSGX    3009/MSGX    3009/MSGX    3009/MSGX    3009/MSGX
      3009/MSGX    3009/MSGX    3014/MSGX    3025/MSGX    3025/MSGX    3038/MSGX    3038/MSGX    3038/MSGX
      3038/MSGX    3046/MSGX    3049/MSGX    3052/MSGX    3052/MSGX    3055/MSGX    3055/MSGX    3059/MSGX
      3065/MSGX    3065/MSGX    3070/MSGX    3070/MSGX    3075/MSGX    3075/MSGX    3075/MSGX    3083/MSGX
      3085/MSGX    3085/MSGX    3085/MSGX    3092/MSGX    3096/MSGX    3096/MSGX    3096/MSGX    3096/MSGX
      3101/MSGX    3101/MSGX    3107/MSGX    3107/MSGX    3107/MSGX    3112/MSGX    3114/MSGX    3116/MSGX
      3116/MSGX    3123/MSGX    3126/MSGX    3130/MSGX    3139/MSGX    3154/MSGX    3156/MSGX    3160/MSGX
      3160/MSGX    3183/MSGX    3183/MSGX    3189/MSGX    3192/MSGX    3197/MSGX    3197/MSGX    3197/MSGX
      3197/MSGX    3208/MSGX    3208/MSGX    3208/MSGX    3217/MSGX    3217/MSGX    3223/MSGX    3223/MSGX
   THEADER         2762-MSGX    4916/LI      4925/DATA
   THEN            2457-DATA    3055/MSGX    3107/MSGX    3174/MSGX    3177/MSGX    3197/MSGX    3197/MSGX
      3197/MSGX    3208/MSGX
   THERE           2669-DATA    2953/MSGX    2956/MSGX
   THIS            2458-DATA    2907/MSGX    2940/MSGX    3147/MSGX    3150/MSGX    3197/MSGX
   THMSG           2760-MSGX    4926/LI
   THMSGOBJ        2763-MSGX    4958/DATA
   THMSG1          2761-MSGX    4929/LI
   THOSE           2670-DATA    3116/MSGX
   THREE           2459-DATA    2855/MSGX    2855/MSGX    3197/MSGX    3231/MSGX
   THRU            2671-DATA    2867/MSGX    3197/MSGX    3197/MSGX
   THUS            2680-DATA    3038/MSGX
   TI              1571/SET     2672-DATA    2770/MSGX    2775/MSGX    2828/MSGX    9660/WD1     9714/WD1
      9786/WD1    11050/WD1    11404/WD1
   TILT            3291/BAL     3641/BAL     4310-LW      4368/BAL     4387/BAL    15019/BAL    15074/BAL
     15080/BAL    15419/BAL    16282/BAL    16398/BAL    16544/BAL
   TILT1           4312/STW     4314/DATA    4318-TEXTC
   TIMSG           2828-MSGX    6325/LI
   TIOSTAT         1103-DATA    6418/LI
   TIOSTAT1        1111-DATA    6525/LW
   TISTOP          2770-MSGX    5033/DATA
   TLEND           1044-SET     4733/LCI     4736/AI
   TLSTART         1038-SET     4733/LCI     4735/STM     4736/AI
   TMSGDPL         2783-MSGX    5479/DATA
   TMSGERR         2782-MSGX    5444/DATA
   TMSGEXP         2787-MSGX    5473/DATA
   TMSGEXP1        2788-MSGX    5476/DATA
   TMSGOBS         2784-MSGX    5468/DATA
   TMSGOBS1        2785-MSGX    5458/DATA
   TMSGPROC        2786-MSGX    5454/DATA
   TM1             1553/SET     5996/WD0
   TM2             1553/SET     6000/WD0     6004/WD0
   TM3             1553/SET
   TM4             1553/SET     6000/WD0
   TNONE           1503-SET     1507-SET     1507/SET     1509/SET     4042-SET     4240/SET     7470-SET
   TN000           4223/TEST   13138-LI
   TN001           4224/TEST   13151-LI     13154/B      13158/B      13166/B
   TN002           4225/TEST   13201-LI     13219/B
   TN002X         13204-LD
   TN002XX        13206-LI     13245/B      13250/B
   TN003           4226/TEST   13308-EQU
   TN004           4227/TEST   13432-EQU
   TN0041          4228/TEST   13536-BAL
   TN0041X        13539-BAL    13576/B
   TN0041XX       13546-LI     13549/B      13554/B      13559/B      13564/B      13574/B
   TN0042          4229/TEST   13584-BAL    13594/B
   TN0043          4230/TEST   13613-LI
   TN0044          4231/TEST   13619-LI
   TN0044X        13614/B      13620-LW
   TN0044XX       13623-LI     13630/B
   TN0045          4232/TEST   13639-LI
   TN0046          4233/TEST   13646-LI
   TN0046X        13640/B      13648-LW
   TN0046XX       13667-LI     13674/B
   TN0046XZ       13650-STW    13695/B
   TN0046ZZ       13654-STB    13662/B
   TN0047          4234/TEST   13686-LI
   TN0048          4235/TEST   13693-LI
   TN0048X        13687/B      13694-LW
   TN005           4236/TEST   13726-LI     13730/B      13809/B
   TO              2461-DATA    2763/MSGX    2855/MSGX    2897/MSGX    2897/MSGX    2900/MSGX    2911/MSGX
      2915/MSGX    2915/MSGX    2924/MSGX    2927/MSGX    2937/MSGX    2943/MSGX    2947/MSGX    2962/MSGX
      2969/MSGX    2969/MSGX    2989/MSGX    2989/MSGX    2989/MSGX    3005/MSGX    3005/MSGX    3009/MSGX
      3009/MSGX    3009/MSGX    3022/MSGX    3038/MSGX    3038/MSGX    3055/MSGX    3055/MSGX    3059/MSGX
      3059/MSGX    3059/MSGX    3070/MSGX    3075/MSGX    3080/MSGX    3085/MSGX    3085/MSGX    3085/MSGX
      3085/MSGX    3085/MSGX    3085/MSGX    3101/MSGX    3107/MSGX    3116/MSGX    3116/MSGX    3123/MSGX
      3126/MSGX    3130/MSGX    3139/MSGX    3145/MSGX    3166/MSGX    3174/MSGX    3177/MSGX    3189/MSGX
   TOBJ            2248-DATA    2915/MSGX    2918/MSGX    2920/MSGX    2924/MSGX    2927/MSGX    2930/MSGX
      2933/MSGX    2935/MSGX    2937/MSGX    2940/MSGX    2943/MSGX    2947/MSGX    2951/MSGX    2953/MSGX
      2956/MSGX    2960/MSGX    2962/MSGX    2964/MSGX    2966/MSGX    2969/MSGX    2973/MSGX    2976/MSGX
      2980/MSGX    2982/MSGX    2984/MSGX    2986/MSGX    2989/MSGX    2995/MSGX    2998/MSGX    3002/MSGX
      3005/MSGX    3009/MSGX    3014/MSGX    3017/MSGX    3019/MSGX    3022/MSGX    3025/MSGX    3043/MSGX
      3046/MSGX    3049/MSGX    3052/MSGX    3075/MSGX    3080/MSGX    3083/MSGX    3096/MSGX    3112/MSGX
      3114/MSGX    3130/MSGX    3133/MSGX    3136/MSGX    3142/MSGX    3145/MSGX    3154/MSGX    3162/MSGX
      3170/MSGX    3172/MSGX    3174/MSGX    3177/MSGX    3180/MSGX    3189/MSGX    3192/MSGX    3195/MSGX
      3217/MSGX    3220/MSGX    3223/MSGX    3228/MSGX    3231/MSGX
   TOTAL           2673-DATA    2910/MSGX    3223/MSGX
   TOTALS         15521/AI     15526/MI     15570-EQU    15778/MI
   TOTLSHOT        1201-DATA    4670/LW     15522/STW    15896/MTH*
   TP:CONT         5426/BNEZ    5428/BNEZ    5433-MTW
   TP:CONTR        4419/BAL     4493/BAL     4818-STD     5507/BAL     5675/BAL     5713/BAL     5729/BAL
      5788/BAL     5852/BAL     5920/BAL     5934/BAL     5948/BAL     5966/BAL     5977/BAL     6024/BAL
      6035/BAL     6102/BAL     6117/BAL     6129/BAL     6142/BAL     6156/BAL     6169/BAL     6187/BAL
      6201/BAL     6213/BAL     6226/BAL     6239/BAL     6253/BAL     6267/BAL     6483/BAL     6489/BAL
      6721/BAL
   TP:CONT1        5434/BEZ     5470-MTW
   TP:CONT2        5442/BEZ     5478-BAL
   TP:CONT3        5452/BNE     5455-MTW     5474/B       5477/B
   TP:CONT4        5456/BEZ     5467-BAL
   TP:CONT5        5471/BEZ     5475-BAL
   TP:CONT6        5445-LW      5480/B
   TP:CONT7        5432/B       5460-STW
   TP:CON01        4830/BE      4834-BAL     4903/B
   TP:CON02        4825/BE      4836-CW
   TP:HD1          4930/STW     4932-DATA
   TP:HEAD         4286/BAL     4765/BAL     4900-MTW    14177/BAL    15732/BAL
   TP:HEAD2        4946/STW     4950-DATA
   TP:HEAD3        4942/BGZ     4961-BAL
   TP:HEAD4        4940/STW     4953/STW     4962-DATA
   TP:HEAD5        4937/BEZ     4947/BEZ     4954/BEZ     4965-MTW
   TP:IOCD         4968/BAL     4989-STW
   TP:IOCD1        4996-CW      5000/BLE
   TP:IOCD2        4997/BE      5001-LW
   TP:IOCD3        5002/STW     5004-DATA
   TP:IORTN        4989/STW     5006/BNE*    5009/B*      7201-DATA
   TP:RTN          4683/B*      4835/B*      4838/BNE*    4843/B*      4967/BNEZ*   4969/B*      5424/BNE*
      5430/BEZ*    5464/LW      5469/B*      5514/BEZ*    5516/BE*     5592/B*      5681/B*      5724/B*
      5725/B*      5735/B*      5814/B*      5887/B*      5926/B*      5942/B*      5954/B*      5972/B*
      5983/B*      6032/B*      6043/B*      6108/B*      6123/B*      6135/B*      6148/B*      6162/B*
      6175/B*      6193/B*      6207/B*      6219/B*      6232/B*      6245/B*      6261/B*      6289/B*
      6942/BNEZ*   7267-DATA
   TP:RTNP         4818/STD     4840/BNEZ*   4842/BNEZ*   4902/STD     5393/STD     7266-DATA
   TP:TRAP         4767/BAL     5393-STD    14181/BAL
   TP:TRAP1        5403/BNE     5408/BNE     5416-EQU
   TP:TRAP2        5405/BEZ     5411/BNE     5415/BE      5421/BE      5423-CW
   TR              1571/SET     2674-DATA    2771/MSGX    2777/MSGX    2829/MSGX    9558/WD1     9714/WD1
      9786/WD1    10029/WD1    10853/WD1    11050/WD1
   TRACK           2462-DATA    2851/MSGX    2852/MSGX    2896/MSGX    3160/MSGX
   TRACKS          2675-DATA    3160/MSGX
   TRANSFER        2463-DATA    2969/MSGX    2980/MSGX    2980/MSGX    3014/MSGX    3014/MSGX    3043/MSGX
      3043/MSGX    3059/MSGX    3065/MSGX    3065/MSGX    3085/MSGX    3223/MSGX
   TRANSFERRED     2464-DATA    2947/MSGX    3055/MSGX    3059/MSGX    3085/MSGX    3123/MSGX    3126/MSGX
   TRANSMISSION    2465-DATA    2875/MSGX    2875/MSGX    3035/MSGX    3037/MSGX    3162/MSGX    3162/MSGX
   TRAP            2466-DATA    2962/MSGX
   TRAP#INTER      2467-DATA    2782/MSGX    2783/MSGX    2787/MSGX    2788/MSGX
   TRAPEXP         3988/STD     5339/LW      5448/LB      6020/STD     6058/STD     6081/STD     7268-DATA
      8357/STD    14843/STD
   TRMSG           2829-MSGX    6328/LI
   TRSTOP          2771-MSGX    5037/DATA
   TS              1571/SET     2676-DATA    2769/MSGX    2773/MSGX    2827/MSGX    3025/MSGX    8602/WD1
      8890/WD1     9286/WD1     9660/WD1     9714/WD1     9786/WD1    11404/WD1
   TSAVE1          1118-DATA    6807/STM     6813/LD      6834/LD      6841/XW      6853/STD
   TSAVE2          1119-DATA    6846/STW
   TSAVE3          1120-DATA
   TSAVE4          1121-DATA
   TSAVE5          1122-DATA
   TSMSG           2827-MSGX    6322/LI
   TSPREAD         1190-DATA   14356/STW    14375/AW
   TSSTART         1265-DATA    3768/STW
   TSSTARTC        1286-DATA   12123/LW     12132/LW     12141/LW     12387/GEN    12389/GEN    12391/GEN
     12393/GEN    12397/GEN    12401/GEN
   TSSTOP          2769-MSGX    5029/DATA
   TST0             215/DATA    1446/:PROCDIC             3802-STW     3831/B       3834/B
   TST0ADDR         215-DATA
   TST0FLAG        1329-DATA    3869/STW     3884/STW
   TST1             239/DATA    1447/:PROCDIC             3868-LI      3879/B
   TST1ADDR         239-DATA     973/USECT
   TST1END         4237-SET
   TST1LOOP        1077-DATA    3965/STW     4029/MTW
   TST1LOP1        3805/STW     3875/STW     3963/LW      4038-DATA
   TST1PERR        3874/BLZ     3900/BG      3913/BG      3922-BAL
   TST1PONT        1330-DATA    3960/STW     4019/LW      4028/LW      4031/MTW     4032/LW      4909/LW
   TST1RTN         1328-DATA    3885/STW     3939/B*      3945/B*
   TST1START       4040-EQU
   TST1TEST        1339-DATA    3926/STD     3958/LW      4033/CW
   TST100          3808/BAL     3876/BAL     3884-STW
   TST1001         3893/BEZ     3918/BGE     3926-STD
   TST102          3930-LI
   TST103          3936-LW      4036/B
   TST104          3958-LW
   TST105          3963-LW      4022/B       4034/BLE
   TST105A         3966-EQU     4030/BGZ
   TST106          4017/B       4027-EQU
   TST107          4005/BGEZ    4009-AND
   TST2             262/DATA    1448/:PROCDIC            14232-STW    14241/B      14244/B
   TST2ADDR         262-DATA
   TST2DATA        3993/LD      7396-DATA   13366/LM     13439/LM     14254/LM
   TST2LEV2        3824/BAL    14239/BAL    14250-STW
   TST2LEV3       14261/BAL    14271-STW
   TST2LEV4       14279/BAL    14285-STW
   TST2LEV5       14288/BAL    14311-STW    14322/BEZ    14349/BEZ
   TST2LOOP       14274-MTW    14281/B
   TST2PAR         3821/STW    14238/STW    14252/STW    14257/LI     14264/STW    14265/LI     14570-DATA
   TST2RTN1        1186-DATA   14250/STW    14267/B*     14324/B*
   TST2RTN2        1187-DATA   14271/STW    14275/BEZ*
   TST2RTN3        1188-DATA   14285/STW    14305/B*
   TST2RTN4        1189-DATA   14311/STW    14377/B*
   TST3             278/DATA    1449/:PROCDIC            14656-LI
   TST3ADDR         278-DATA
   TST3EXIT        1358-DATA   13351/STW    13499/STW    14705/B*     14801/B*
   TST3LST1       15666/DATA   15763-CHCKTDV
   TST3LST2       14871/STW    15762-CHCKAIO             15767/DATA
   TST3LST3       15753/LI     15767-DATA
   TST3PARM        1357-DATA   14682/STD    14688/CW*    14695/CLR*   14704/LD     14718/LW*    14722/LW*
   TST3PAT         7308-DATA   13320/STW    13321/STW    13367/STM    13440/STM    14255/STM    14663/STM
     14667/CW     14671/MTW    14792/LM
   TST3P2T1       14638-SET    14694/LI     14723/EXU
   TST3P2T2       14644-SET    14694/LI
   TST3P3T1       14645-SET
   TST3P3T2       14647-SET
   TST3P4T1       14650-SET
   TST3P4T2       14653-SET
   TST3RAND       14258/BAL    14266/BAL    14672/BAL    14682-STD
   TST32          14665-STW    14674/B      14677/B
   TWENTY          2469-DATA    2943/MSGX    2943/MSGX    2947/MSGX
   TWO             2470-DATA    2855/MSGX    2855/MSGX    3043/MSGX    3043/MSGX    3162/MSGX    3162/MSGX
      3208/MSGX
   T001            1855-T       2249/DATA
   T002            1856-T       2566/DATA
   T003            1857-T       2251/DATA
   T004            1858-T       2253/DATA
   T005            1859-T       2257/DATA
   T006            1860-T       2258/DATA
   T007            1861-T       2260/DATA
   T008            1862-T       2263/DATA
   T009            1863-T       2265/DATA
   T010            1864-T       2266/DATA
   T011            1865-T       2267/DATA
   T012            1866-T       2268/DATA
   T013            1867-T       2580/DATA
   T014            1868-T       2271/DATA
   T015            1869-T       2272/DATA
   T016            1870-T       2273/DATA
   T017            1871-T       2274/DATA
   T018            1872-T       2275/DATA
   T019            1873-T       2276/DATA
   T021            1874-T       2279/DATA
   T022            1875-T       2281/DATA
   T023            1876-T       2282/DATA
   T024            1877-T       2294/DATA
   T025            1878-T       2296/DATA
   T026            1879-T       2585/DATA
   T027            1880-T       2297/DATA
   T028            1881-T       2584/DATA
   T029            1882-T       2298/DATA
   T033            1883-T       2304/DATA
   T035            1884-T       2307/DATA
   T036            1885-T       2587/DATA
   T037            1886-T       2289/DATA
   T038            1887-T       2310/DATA
   T039            1888-T       2311/DATA
   T040            1889-T       2318/DATA
   T041            1890-T       2599/DATA
   T042            1891-T       2600/DATA
   T043            1892-T       2324/DATA
   T044            1893-T       2601/DATA
   T046            1894-T       2326/DATA
   T047            1895-T       2330/DATA
   T049            1896-T       2328/DATA
   T050            1897-T       2333/DATA
   T052            1898-T       2335/DATA
   T053            1899-T       2338/DATA
   T055            1900-T       2349/DATA
   T056            1901-T       2347/DATA
   T057            1902-T       2351/DATA
   T058            1903-T       2354/DATA
   T059            1904-T       2359/DATA
   T061            1905-T       2367/DATA
   T062            1906-T       2358/DATA
   T063            1907-T       2369/DATA
   T065            1908-T       2370/DATA
   T066            1909-T       2372/DATA
   T068            1910-T       2378/DATA
   T074            1912-T       2383/DATA
   T079            1911-T       2386/DATA
   T080            1913-T       2389/DATA
   T081            1914-T       2390/DATA
   T082            1915-T       2392/DATA
   T084            1916-T       2395/DATA
   T087            1917-T       2396/DATA
   T088            1918-T       2397/DATA
   T089            1919-T       2398/DATA
   T091            1920-T       2405/DATA
   T092            1921-T       2406/DATA
   T094            1922-T       2412/DATA
   T096            1923-T       2640/DATA
   T097            1924-T       2417/DATA
   T1ST19IP       13282/DATA   13288-AIO
   T1ST19IT       13281-DATA   13290/LPSD   13294/XPSD
   T1ST19RP        4278-STW    13785/BAL    13821/BAL
   T1ST19RT        4278/STW     4290/LW*     4304/B*      4305-EQU
   T1ST19XP       13210/LW     13294-XPSD
   T1ST1910       13212-LW
   T1ST1911       13235-LI
   T1ST2010       12775-LW
   T1ST2011       12779-LW     12783/B      12797/B
   T1ST2021       12830-LW     12834/B      12846/B
   T1ST21XF       13741/STW    13791/MTW    13804/MTW    13827/MTW    13831/MTW    13839/STW    13844-EQU
   T1ST34SV       12776/STW    12827/STW    12853-EQU    12879/STW    12885/LW     12931/STW    12937/LW
     12944/LW     13213/STW
   T1ST3411       12885-LW     12900/B
   T1ST3414       12879-STW
   T1ST3421       12944-LW
   T1ST3423       12937-LW     12960/B
   T1ST3426       12936/B      12951-LH
   T1ST3427       12941-BAL    12947/B      12950/B
   T1ST3430       13002/B      13011-LW
   T1ST41         13309-EQU    13328/B
   T1ST41B        13379/BEZ    13388-EQU
   T1ST411A       13372/LI     13380-EQU
   T1ST411X       13323/LI     13334-BAL
   T1ST411Y       13349/LI     13395/LI     13414-BAL
   T1ST4110       13315-LI     13337/B      13360/B      13383/B      13405/B
   T1ST4111       13333/BEZ    13344-LI     13417/B
   T1ST42         13433-LI     13447/B
   T1ST421W       13497/LI     13527-BAL
   T1ST421Z       13441/LI     13465/BNE    13472-CW     13486/B
   T1ST4211       13470/BLE    13494-LI     13512/B      13529/B
   T1ST4213       13443-LI
   T1ST4214       13466-LW     13481/BEZ    13487/B
   T1ST48         13072/B      13082-BAL
   T1ST48IC       13117-AI     13124/BLE
   T1ST48ID       13082/BAL    13092-LI
   T1ST48XX       13083-LI
   T1ST4908       13734-LI     13792/BEZ    13828/BEZ
   T1ST4909       13736-LCW    13790/B      13826/B
   T1ST4910       13759-LW     13838/BL
   T1ST4911       13776/BCR    13783-MTW    13843/B
   T1ST4912       13773-LB
   T1ST4920       13782/B      13784/BEZ    13804-MTW
   T1ST4921       13813/BGEZ   13819-MTW
   T1ST4930       13818/B      13820/BEZ    13831-MTW
   T1ST499        13761-BAL    13772/B
   T100            1925-T       2418/DATA
   T104            1926-T       2425/DATA
   T107            1927-T       2434/DATA
   T108            1928-T       2435/DATA
   T109            1929-T       2437/DATA
   T110            1930-T       2438/DATA
   T111            1931-T       2441/DATA
   T112            1932-T       2442/DATA
   T116            1933-T       2446/DATA
   T118            1934-T       2453/DATA
   T119            1935-T       2454/DATA
   T120            1936-T       2671/DATA
   T122            1937-T       2460/DATA
   T123            1938-T       2461/DATA
   T128            1939-T       2677/DATA
   T129            1940-T       2678/DATA
   T130            1941-T       2679/DATA
   T131            1942-T       2468/DATA
   T133            1943-T       2476/DATA
   T134            1944-T       2478/DATA
   T135            1945-T       2479/DATA
   T136            1946-T       2483/DATA
   T200            1947-T       2250/DATA
   T201            1948-T       2255/DATA
   T202            1949-T       2256/DATA
   T203            1950-T       2259/DATA
   T204            1951-T       2261/DATA
   T2041           1952-T       2572/DATA
   T205            1953-T       2262/DATA
   T206            1954-T       2573/DATA
   T208            1955-T       2575/DATA
   T209            1956-T       2269/DATA
   T210            1957-T       2278/DATA
   T211            1958-T       2280/DATA
   T212            1959-T       2283/DATA
   T213            1960-T       2284/DATA
   T214            1961-T       2286/DATA
   T215            1962-T       2287/DATA
   T216            1963-T       2291/DATA
   T217            1964-T       2299/DATA
   T218            1965-T       2301/DATA
   T220            1966-T       2309/DATA
   T221            1967-T       2313/DATA
   T222            1968-T       2314/DATA
   T223            1969-T       2315/DATA
   T224            1970-T       2592/DATA
   T2241           1971-T       2319/DATA
   T225            1972-T       2320/DATA
   T227            1973-T       2597/DATA
   T228            1974-T       2598/DATA
   T230            1975-T       2322/DATA
   T231            1976-T       2325/DATA
   T232            1977-T       2329/DATA
   T234            1978-T       2334/DATA
   T235            1979-T       2340/DATA
   T236            1980-T       2342/DATA
   T237            1981-T       2343/DATA
   T238            1982-T       2350/DATA
   T240            1983-T       2356/DATA
   T241            1984-T       2357/DATA
   T242            1985-T       2360/DATA
   T243            1986-T       2362/DATA
   T244            1987-T       2363/DATA
   T245            1988-T
   T246            1989-T       2365/DATA
   T247            1990-T       2368/DATA
   T248            1991-T       2373/DATA
   T249            1992-T       2374/DATA
   T250            1993-T       2375/DATA
   T251            1994-T       2376/DATA
   T252            1995-T       2377/DATA
   T253            1996-T       2617/DATA
   T254            1997-T       2381/DATA
   T255            1998-T       2622/DATA
   T256            1999-T       2382/DATA
   T257            2000-T       2384/DATA
   T258            2001-T       2624/DATA
   T260            2002-T       2385/DATA
   T261            2003-T       2387/DATA
   T262            2004-T       2625/DATA
   T263            2005-T       2628/DATA
   T264            2006-T       2391/DATA
   T265            2007-T       2393/DATA
   T266            2008-T       2394/DATA
   T267            2009-T       2400/DATA
   T2671           2010-T       2634/DATA
   T268            2011-T       2401/DATA
   T269            2012-T       2402/DATA
   T270            2013-T       2403/DATA
   T271            2014-T       2407/DATA
   T272            2015-T       2409/DATA
   T273            2016-T       2410/DATA
   T274            2017-T       2411/DATA
   T2741           2018-T       2637/DATA
   T275            2019-T       2413/DATA
   T276            2020-T       2414/DATA
   T277            2021-T       2638/DATA
   T278            2022-T       2419/DATA
   T279            2023-T       2420/DATA
   T280            2024-T       2421/DATA
   T281            2025-T       2422/DATA
   T282            2026-T       2423/DATA
   T283            2027-T       2650/DATA
   T284            2028-T       2426/DATA
   T285            2029-T       2428/DATA
   T286            2030-T       2429/DATA
   T287            2031-T       2652/DATA
   T288            2032-T       2653/DATA
   T289            2033-T       2431/DATA
   T290            2034-T       2432/DATA
   T291            2035-T       2439/DATA
   T292            2036-T       2440/DATA
   T293            2037-T       2447/DATA
   T295            2038-T       2449/DATA
   T296            2039-T       2661/DATA
   T297            2040-T       2662/DATA
   T298            2041-T       2455/DATA
   T299            2042-T       2456/DATA
   T300            2043-T       2672/DATA
   T301            2044-T       2673/DATA
   T302            2045-T       2674/DATA
   T303            2046-T       2463/DATA
   T304            2047-T       2465/DATA
   T305            2048-T       2466/DATA
   T306            2049-T       2467/DATA
   T307            2050-T       2676/DATA
   T308            2051-T       2472/DATA
   T309            2052-T       2690/DATA
   T310            2053-T       2475/DATA
   T311            2054-T       2480/DATA
   T312            2055-T       2481/DATA
   T313            2056-T       2482/DATA
   T314            2057-T       2590/DATA
   T315            2058-T       2689/DATA
   T316            2059-T       2380/DATA
   T317            2060-T       2445/DATA
   T318            2061-T       2295/DATA
   T319            2062-T       2651/DATA
   T320            2063-T       2321/DATA
   T321            2064-T       2306/DATA
   T322            2065-T       2632/DATA
   T323            2066-T       2331/DATA
   T324            2067-T       2595/DATA
   T325            2068-T       2404/DATA
   T326            2069-T       2684/DATA
   T327            2070-T       2473/DATA
   T328            2071-T       2288/DATA
   T329            2072-T       2341/DATA
   T330            2073-T       2448/DATA
   T331            2074-T       2379/DATA
   T332            2075-T       2252/DATA
   T333            2076-T       2254/DATA
   T334            2077-T       2579/DATA
   T336            2078-T       2290/DATA
   T337            2079-T       2303/DATA
   T338            2080-T       2589/DATA
   T339            2081-T       2317/DATA
   T340            2082-T       2327/DATA
   T341            2083-T       2344/DATA
   T342            2084-T       2345/DATA
   T343            2085-T       2346/DATA
   T344            2086-T       2348/DATA
   T345            2087-T       2610/DATA
   T346            2088-T       2353/DATA
   T347            2089-T       2364/DATA
   T348            2090-T       2388/DATA
   T349            2091-T       2627/DATA
   T350            2092-T       2641/DATA
   T351            2093-T       2648/DATA
   T352            2094-T       2655/DATA
   T353            2095-T       2664/DATA
   T354            2096-T       2458/DATA
   T355            2097-T       2471/DATA
   T356            2098-T       2568/DATA
   T357            2099-T       2264/DATA
   T358            2100-T       2332/DATA
   T359            2101-T       2658/DATA
   T360            2102-T       2619/DATA
   T361            2103-T       2603/DATA
   T362            2104-T       2570/DATA
   T363            2105-T       2581/DATA
   T365            2106-T       2593/DATA
   T366            2107-T       2366/DATA
   T368            2108-T       2415/DATA
   T369            2109-T       2647/DATA
   T371            2110-T       2657/DATA
   T372            2111-T       2462/DATA
   T373            2112-T       2464/DATA
   T374            2113-T       2474/DATA
   T375            2114-T       2693/DATA
   T376            2115-T       2577/DATA
   T377            2116-T       2574/DATA
   T378            2117-T       2308/DATA
   T379            2118-T       2588/DATA
   T380            2119-T       2312/DATA
   T381            2120-T       2323/DATA
   T382            2121-T       2352/DATA
   T383            2122-T       2623/DATA
   T384            2123-T       2399/DATA
   T385            2124-T       2639/DATA
   T386            2125-T       2451/DATA
   T387            2126-T       2665/DATA
   T388            2127-T       2452/DATA
   T389            2128-T       2682/DATA
   T390            2129-T       2685/DATA
   T391            2130-T       2687/DATA
   T392            2131-T       2695/DATA
   T393            2132-T       2270/DATA
   T394            2133-T       2602/DATA
   T395            2134-T       2613/DATA
   T396            2135-T       2630/DATA
   T397            2136-T       2416/DATA
   T398            2137-T       2631/DATA
   T40BK           3502/STW     3504/B*      3505-DATA
   T40RTN          3500/GEN     3502-STW
   T400            2138-T       2691/DATA
   T401            1851-TEXTC   2248/DATA
   T402            1852-TEXTC   2697/DATA
   T403            1854-TEXTC   2430/DATA
   T404            2139-T       2246/DATA
   T405            2140-T       2469/DATA
   T406            2141-T       2578/DATA
   T407            2142-T       2594/DATA
   T408            2143-T       2612/DATA
   T409            2144-T       2371/DATA
   T410            2145-T       2669/DATA
   T411            2146-T       2567/DATA
   T412            2147-T       2569/DATA
   T413            2148-T       2576/DATA
   T414            2149-T       2277/DATA
   T415            2150-T       2285/DATA
   T416            2151-T       2582/DATA
   T417            2152-T       2292/DATA
   T418            2153-T       2293/DATA
   T419            2154-T       2302/DATA
   T420            2155-T       2305/DATA
   T421            2156-T       2586/DATA
   T422            2157-T       2300/DATA
   T423            2158-T       2316/DATA
   T424            2159-T       2591/DATA
   T425            2160-T       2596/DATA
   T427            2161-T       2605/DATA
   T428            2162-T       2337/DATA
   T429            2163-T       2606/DATA
   T430            2164-T       2339/DATA
   T431            2165-T       2608/DATA
   T432            2166-T       2355/DATA
   T433            2167-T       2614/DATA
   T434            2168-T       2616/DATA
   T435            2169-T       2618/DATA
   T436            2170-T       2621/DATA
   T437            2171-T       2633/DATA
   T438            2172-T       2629/DATA
   T439            2173-T       2615/DATA
   T440            2174-T       2361/DATA
   T441            2175-T       2408/DATA
   T442            2176-T       2636/DATA
   T443            2177-T       2643/DATA
   T444            2178-T       2642/DATA
   T445            2179-T       2424/DATA
   T446            2180-T       2649/DATA
   T447            2181-T       2646/DATA
   T448            2182-T       2433/DATA
   T449            2183-T       2654/DATA
   T450            2184-T       2436/DATA
   T451            2185-T       2443/DATA
   T452            2186-T       2450/DATA
   T453            2187-T       2457/DATA
   T454            2188-T       2670/DATA
   T455            2189-T       2680/DATA
   T456            2190-T       2666/DATA
   T457            2191-T       2675/DATA
   T458            2192-T       2459/DATA
   T459            2193-T       2470/DATA
   T460            2194-T       2681/DATA
   T461            2195-T       2683/DATA
   T462            2196-T       2686/DATA
   T463            2197-T       2688/DATA
   T464            2198-T       2692/DATA
   T465            2199-T       2477/DATA
   T466            2200-T       2336/DATA
   T467            2201-T       2620/DATA
   T468            2202-T       2427/DATA
   T469            2203-T       2659/DATA
   T470            2204-T       2444/DATA
   T471            2205-T       2663/DATA
   T472            2206-T       2668/DATA
   T474            2207-T       2626/DATA
   T475            2208-T       2694/DATA
   T476            2209-T       2635/DATA
   T477            2210-T       2583/DATA
   T478            2211-T       2644/DATA
   T479            2212-T       2571/DATA
   T480            2213-T       2611/DATA
   T481            2214-T       2645/DATA
   T482            2215-T       2667/DATA
   T500            2216-T       2609/DATA
   T501            2217-T       2660/DATA
   T502            2218-T       2604/DATA
   T503            2219-T       2656/DATA
   T504            2220-T       2696/DATA
   T505            2221-T       2607/DATA
   T63             2681-DATA    3208/MSGX
   U               2682-DATA    2872/MSGX    2875/MSGX
   UNAVAILABLE     2471-DATA    2875/MSGX    3031/MSGX    3180/MSGX    3180/MSGX    3183/MSGX    3183/MSGX
      3223/MSGX
   UNCHAIN         1114-DATA   11036/STD    11092/LI     11133/STD    11147/LI     11703/LI     11716/LI
     11757/LI     11775/LI     11808/LI     11843/LI     12011/STM    12013/LI     12014/LI
   UNDER           2683-DATA    3147/MSGX    3150/MSGX
   UNEXINT         2837-MSGX    6039/LI      6485/DATA
   UNEXPECTED      2684-DATA    2837/MSGX    2848/MSGX
   UNEXPTI        14172-WD     14842/LI
   UNLESS          2685-DATA    2868/MSGX
   UNTIL           2686-DATA    3065/MSGX    3223/MSGX
   UNUSUAL         2472-DATA    2738/MSGX    2875/MSGX    3038/MSGX    3038/MSGX
   UPDATA          6648-LI     11711/BAL    11769/BAL    11997/BAL    13575/BAL
   VALUES          2687-DATA    2868/MSGX    2875/MSGX
   VARIOUS         2688-DATA    3147/MSGX    3150/MSGX
   VBINFA          2533/GENV    2564-DATA    5537/STW     5649/STW     5867/STW     6929/STW    16084/STW
     16594/STW
   VBINFB          2534/GENV    2565-DATA    5869/STW     6931/STW     6935/STW    16086/STW
   VBIN4A          2531/GENV    2562-DATA    5440/STW
   VBIN8A          2532/GENV    2563-DATA   15715/STW
   VDEC1A          2510/GENV    2541-DATA    7540/STW     9582/STW     9588/STW     9693/STW     9736/STW
      9771/STW     9917/STW    10011/STW    10110/STW    10346/STW    10403/STW    10615/STW    10738/STW
     10801/STW    11008/STW    11015/STW    11022/STW    11103/STW    11110/STW    11117/STW    11240/STW
     11391/STW    11489/STW    11499/STW    11508/STW    11514/STW    11523/STW    11787/STW    11825/STW
     12071/STW    12085/STW    12092/STW    12106/STW    12152/STW    12162/STW    12176/STW    12206/STW
     12214/STW    12222/STW    12232/STW    12279/STW    12329/STW    12341/STW    12350/STW    12362/STW
     12371/STW    12381/STW    12437/STW    12446/STW    12526/STW    12534/STW    12581/STW    12589/STW
     12637/STW    12645/STW    12654/STW    12665/STW    12676/STW    12686/STW    13000/STW    13009/STW
     13071/STW    13079/STW
   VDEC2A          2511/GENV    2542-DATA    4908/STW     4992/STW     6277/STW     6284/STW    14187/STW
     15735/STW    16465/STW
   VDEC2B          2521/GENV    2552-DATA    7779/STW     7815/STW     8169/STW     8493/STW     8628/STW
      8662/STW     8686/STW     8760/STW    10012/STW    12974/STW
   VDEC2C          2522/GENV    2553-DATA    4915/STW
   VDEC3A          2512/GENV    2543-DATA    6279/STW     6286/STW    12976/STW    14188/STW    15736/STW
     16469/STW
   VDEC3B          2513/GENV    2544-DATA    5526/STW     5530/MTW
   VDEC4A          2514/GENV    2545-DATA    4294/STW     4910/STW
   VDEC4B          2523/GENV    2554-DATA    4295/STW     6798/STW     6940/MTW    16498/STW
   VDEC8A          2515/GENV    2546-DATA   14147/STW
   VERIFY          2689-DATA    2763/MSGX    3166/MSGX
   VHEX1A          2516/GENV    2547-DATA    5542/STW     5594/LW
   VHEX2A          2517/GENV    2548-DATA    5438/STW     5447/STW     5546/STW     5567/STW     9508/STW
   VHEX2B          2524/GENV    2555-DATA    5449/STW
   VHEX4A          2518/GENV    2549-DATA    4912/STW     6252/STW    11254/STW    16037/STW    16471/STW
     16590/STW
   VHEX4B          2525/GENV    2556-DATA    6251/STW
   VHEX4C          2526/GENV    2557-DATA   10113/STW    10358/STW    10414/STW
   VHEX6A          2519/GENV    2550-DATA    3443/STW     3446/LW      3455/MTW     3463/STW    14068/STW
   VHEX6B          2527/GENV    2558-DATA   14069/STW
   VHEX6C          2528/GENV    2559-DATA    5933/STW    14070/STW
   VHEX6D          2529/GENV    2560-DATA    5932/STW    14021/STW    14045/CW     14072/CW
   VHEX8A          2520/GENV    2551-DATA    3448/STW     3457/LB      3460/LW      5588/STW
   VHEX8B          2530/GENV    2561-DATA    3449/STW     3452/LB
   VIOLATION       2690-DATA    3032/MSGX
   V1              1509-SET     1511/SET     1512/SET     1514-SET
   V2              1511-SET     1512/SET     1514/SET
   WAITFLAG        5075/STW     5078/STW     5116/MTW     5127-DATA
   WAITMSG1        5118/WAITPROC            16680-TEXTC
   WAITPROC         817-CNAME
   WAITPRO1         823/GOTO     827-PEND
   WAS             2473-DATA    2827/MSGX    2828/MSGX    2829/MSGX    2835/MSGX    2845/MSGX    2846/MSGX
      2875/MSGX    2918/MSGX    2998/MSGX    3180/MSGX
   WATCHERR        1317-DATA
   WDGPNONE        5988-LI      7016/LI     13151/LI     13216/LI     13325/LI     13443/LI     13546/LI
     13589/DATA   13625/DATA   13657/DATA   13669/DATA   13726/LI
   WDGPTM2         6004-WD0     6973/LI      6986/LI     12440/LI     12528/LI     12710/DATA   12763/LI
     12817/LI     12981/DATA
   WDGPTM24        6000-WD0     6996/LI     12449/LI     12536/LI     12603/DATA   12871/LI     12921/LI
     13015/LI
   WDGP0           5996-WD0     7006/LI      7024/LI      7750/BAL     7793/BAL     7826/BAL     8016/BAL
      8067/BAL     8154/BAL     8181/BAL     8214/BAL     8291/BAL     8402/BAL     8507/BAL     8601/BAL
      8640/BAL     8711/BAL     8746/BAL     8773/BAL     8850/BAL     8889/BAL     8998/BAL     9081/BAL
      9126/BAL     9285/BAL     9479/BAL     9560/LI      9685/EQU    10133/BAL    11049/BAL    11595/BAL
   WDGP0SET        5989/B       5993/B       5997/B       6001/B       6005/B       6008-STW
   WDGRTN          6008/STW     6012/B*      7238-DATA
   WDG2            1089-DATA    8239/STW     8296/LW      8354/STW     8969/STW
   WDMSG           2843-MSGX    6933/DATA
   WDVTDVO         5992-WD0
   WD0             1546-CNAME
   WD0GP0          9659/BAL     9685-EQU     9713/BAL     9785/BAL    10028/BAL    10852/BAL    11403/BAL
   WD1             1564-CNAME
   WD2             1582-CNAME
   WERE            2474-DATA    2910/MSGX
   WHDOGRTN        1318-DATA    3509/STW     3533/B*
   WHEN            2475-DATA    3002/MSGX    3092/MSGX    3116/MSGX    3116/MSGX
   WHERE           2691-DATA    2875/MSGX
   WHILE           2692-DATA    3049/MSGX    3049/MSGX
   WILL            2476-DATA    2915/MSGX    2924/MSGX    2927/MSGX    2962/MSGX    2986/MSGX    2998/MSGX
      3046/MSGX    3049/MSGX    3065/MSGX    3075/MSGX    3080/MSGX    3123/MSGX    3126/MSGX    3166/MSGX
      3183/MSGX    3189/MSGX    3220/MSGX
   WITH            2477-DATA    3166/MSGX    3197/MSGX    3197/MSGX    3208/MSGX    3228/MSGX
   WITHIN          2693-DATA    2969/MSGX    3217/MSGX
   WORD            2478-DATA    2842/MSGX    2844/MSGX    2943/MSGX    3055/MSGX    3059/MSGX    3085/MSGX
      3107/MSGX    3107/MSGX
   WORKS           2694-DATA    3112/MSGX    3114/MSGX
   WPV             1589/SET     9363/WD2
   WRITE           2479-DATA    2772/MSGX    2845/MSGX    2867/MSGX    2911/MSGX    2915/MSGX    2920/MSGX
      2930/MSGX    2982/MSGX    3032/MSGX    3052/MSGX    3075/MSGX    3080/MSGX    3080/MSGX    3112/MSGX
      3112/MSGX    3116/MSGX    3116/MSGX    3130/MSGX    3133/MSGX    3133/MSGX    3192/MSGX    3220/MSGX
      3223/MSGX    3231/MSGX    3231/MSGX    3231/MSGX    3231/MSGX
   WRITEDLY        1233-DATA
   WRITING         2481-DATA    2982/MSGX    2986/MSGX    2986/MSGX
   WRITTEN         1230-DATA   14195/B*     14837/STW    14982/BNE*   14984/B*     14992/B*     14999/B*
     15000/B*
   WRTDC           2845-MSGX    6946/DATA
   WRTDWRT        14393/BAL    14533-STW
   WRTDWRT1       14537-AW     14568/B
   WRTONLY        13330/BAL    13376/BAL    13478/BAL    14640/BAL    14736-LI     14761/BAL
   WRTRED         14639/BAL    14761-BAL
   WRTRED1        14765-BAL    14771/B
   X                820/SET     2695-DATA    2868/MSGX
   XIT             4451/BLE     5249/B       5608-MTW     6422/BL      6425/BNEZ    6459/BNEZ    6628/B
      6632/B       7066/BEZ     7069/B       7084/B       7092/B       7096/B       7101/B       7485/B
      7508/B       7586/BE      7624/BE      7707/B       7733/B       7754/B       7798/B       7801/B
      7808/B       7834/B       7844/B       7890/B       7900/B       7934/B       8020/B       8026/B
      8071/B       8106/B       8158/B       8185/B       8193/B       8221/B       8227/B       8300/B
      8310/B       8316/B       8327/B       8333/B       8368/BNEZ    8372/B       8406/B       8422/B
      8481/B       8511/B       8521/B       8581/B       8605/B       8610/B       8621/B       8644/B
      8653/B       8680/B       8718/B       8724/B       8754/B       8777/B       8784/B       8857/B
      8863/B       8893/B       8899/B       8906/B       8946/B       8952/B       9004/B       9012/B
      9051/B       9085/B       9089/BE      9092/B       9101/B       9127/B       9132/B       9140/B
      9178/B       9183/B       9217/B       9254/B       9283/B       9289/B       9293/B       9447/B
      9483/B       9488/B       9494/B       9499/B       9574/B       9605/BEZ     9609/B       9617/B
      9641/B       9663/B       9668/B       9681/B       9717/B       9728/B       9789/B       9815/B
      9836/B       9940/B      10032/B      10038/B      10134/B      10140/B      10151/B      10157/B
     10188/B      10396/B      10438/B      10604/B      10649/B      10658/B      10760/B      10824/BEZ
     10856/B      11053/B      11066/B      11095/B      11150/B      11184/B      11407/B      11420/B
     11453/B      11599/B      11604/B      11618/B      11624/B      11645/B      11680/B      11718/B
     11742/B      11778/B      12016/B      12019/B      12024/B      12473/B      12479/B      12573/B
     12624/B      12739/B      13041/B      13171/B      13266/B      13274/B      13410/B      13606/B
     13679/B      13698/B
   XITERR          5610-B       7587/B       7622/BNE
   XPANDFLG        4743/STW     5511/MTW     5585/MTW     7229-DATA    7568/STW     7604/STW     7646/STW
      7660/STW     7695/STW
   XPANDIO         5586/BNEZ    5594-LW
   XPSDATA        15032/LW     15036/LW     15423-XPSD
   XPSDCAL1       14859/LW     15424-XPSD
   XPSDCAL2       14861/LW     15425-XPSD
   XPSDCAL3       14863/LW     15426-XPSD
   XPSDCOMP        7406-GEN    12003/XPSD   12045/LPSD
   XPSDINT         6395/LW      7234-XPSD    9166/LW
   XPSDPAT         7402-GEN    12023/XPSD   12030/LPSD
   XPSDSEEK       14857/LW     15039/LW     15377/LW     15422-XPSD
   ZBCI            1589/SET     7751/WD2     7831/WD2     8715/WD2     8751/WD2     8774/WD2     8914/WD2
      8928/WD2     9606/WD2
   ZERO            2482-DATA    2855/MSGX    2855/MSGX    3070/MSGX    3075/MSGX    3192/MSGX    3192/MSGX
      3197/MSGX    3197/MSGX    3208/MSGX
   ZEROS           2696-DATA    3197/MSGX
   1BLANK          2273-DATA    2741/MSGX    2743/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX
      2855/MSGX    2855/MSGX    2855/MSGX    2865/MSGX    2872/MSGX    2872/MSGX    2872/MSGX    2872/MSGX
      2872/MSGX    2872/MSGX    2872/MSGX    2872/MSGX    2886/MSGX
   2BLANK          2274-DATA    2855/MSGX    2855/MSGX    2868/MSGX    2872/MSGX    2872/MSGX
   3ASTERISKS      2483-DATA    2830/MSGX    2849/MSGX    2849/MSGX    2868/MSGX
   4BLANK          2275-DATA    2868/MSGX
   8BLANK          2276-DATA    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2855/MSGX    2862/MSGX
      2863/MSGX    2868/MSGX
   :AIO           15145/BAL    15158/BAL    15970-AIO
   :AIO1          15973-LI
   :BCDC           1146-EQU     3712/BAL*    3717/BAL*
   :BINC           1148-EQU
   :BUFTOP          999-DATA   16293/STW    16335/STD*   16345/STW*   16363/STW*   16365/SW*    16375/STD*
     16377/SD*    16392/STD*   16403/STW*   16412/STM*   16421/CD*    16437/CW*    16451/AD*    16480/LW
     16483/STW    16486/CW*    16518/CW*    16535/CD*    16548/CW*    16587/LW     16597/LW*    16616/CS*
   :CCERR1        16009/BCR    16015-LW
   :CCERR2        16010/BCR    16023-LW
   :CCERR3        16011/B      16046-LW
   :CCPRINT       16047/STW    16049-DATA
   :CCTEST        15990/BNE    16000-CW
   :CCTEST1       15985/BCS    16002-STD
   :CDB            1472/GEN     1472/GEN     1490-EQU     3603/LH      3607/CI      3612/LW      3614/LW
      3629/LW      3681/LW      3705/LW
   :CDBEND         1472/GEN     1498-EQU     3607/CI
   :CDBM           1472/GEN     1481-EQU
   :CDBMEND        1472/GEN     1488-EQU
   :CDT            1392/DATA    1393/DATA    1471-EQU
   :CDTEND         1393/DATA    1473-EQU
   :CLEAR         11691/BAL    11752/BAL    11800/BAL    11839/BAL    12028/BAL    16666-STD
   :CLRADDR        1302-DATA    6675/STW    11956/STW    11961/LW     12032/LW     16668/LW
   :CLRPDF         3531/LPSD    7400-GEN
   :CLRSAVE         993-DATA   16666/STD    16667/STW    16674/LD     16675/LW
   :CLRSIZE        1303-DATA    6677/STW    11935/STW    16669/AW     16670/LCW
   :COMADDR        1003-DATA   15862/MTW    15867/LH     16240/STW    16461/STW    16466/LW     16470/LH
   :COMBFRB        1297-DATA    7116/STW     7124/STW     7129/STW    11946/STW    11960/LW     12039/LW
     14931/STW    16285/CW     16291/LW     16355/LW     16384/STW*   16458/CW*    16460/LW*    16555/LD*
     16571/LW     16588/SW     16638/EQU
   :COMEND        16278/LI     16280/CI     16289/AI     16309-SET
   :COMERM3       16575/STH    16577/STH    16579/STH    16581/DATA   16639-TEXTC
   :COMERM4        2914-MSGX   16596/DATA
   :COMERM6        2908-MSGX   16473/DATA
   :COMERM7        2910-MSGX   16500/DATA
   :COMERRT         998-DATA    5709/LW     15786/MTW    15855/MTW    16239/STW    16490/MTW    16495/LW
     16561/MTW    16564/MTW    16568/LW     16572/CW
   :COMFLAG        1296-DATA    5705/STW     5715/STW    14855/STW    14927/STW    14989/STW    15364/STW
     15372/STW    15679/MTW    15704/MTW    15722/MTW    15739/MTW    15745/MTW    15751/MTW    15784/MTW
     15789/XW     15792/XW     15853/MTW    15860/MTW    16462/MTW    16492/MTW    16565/CW
   :COMIDPT        1000-DATA   16357/STW    16361/STW*   16372/STD*   16386/STW*   16481/STW    16484/LW*
   :COMPARE        5707/BAL     5723/BAL    14941/BAL    15370/BAL    15790/BAL    16238-LI
   :COMPLIM       14125/STW    16496/CW     16569/CW     16634-DATA
   :COMPXT         1002-DATA   16283/STW    16338/B*     16348/B*     16387/B*     16394/B*     16406/B*
     16415/B*     16459/BE*    16463/BNEZ*  16474/B*     16494/BNEZ*  16497/BLE*   16501/B*     16557/BE*
     16563/MTW
   :COMROUT       16278/LI     16280/CI     16289/AI     16296/LW     16301-SET
   :COMRTN        16426/B      16442/B      16492-MTW    16522/B      16540/B      16553/B
   :COMSAVE         997-DATA   16554/STD    16591/LW     16601/LW     16603/B*     16610/LW     16624/STW
     16633/B*
   :COMUP         16507/BAL    16509/BAL    16511/BAL    16513/BAL    16517-STW
   :COMUP1        16519/BE     16521-BIR
   :COMUP2        16517/STW    16521/BIR*   16525-DATA
   :COMVIB        16592/STW    16593/LI     16598/STW    16642-DATA
   :COMWCNT        1298-DATA   11936/STW    12031/LCW    12033/AW     12038/LCW    12040/AW     14490/STW
     14811/STW    16284/LCW    16287/CW     16292/AW     16344/LCW    16402/LCW    16409/LCW    16433/LCW
     16478/LCW    16505/LCW    16547/LCW    16637/EQU
   :COM00         16317/DATA   16535-CD
   :COM00Y        16302/DATA   16431-LI     16538/B
   :COM01         16420-AW     16425/BIR
   :COM01X        16437-CW     16441/BIR
   :COM01Z        16303/DATA   16318/DATA   16423/B      16433-LCW
   :COM02         16304/DATA   16319/DATA   16446-LCW
   :COM02V        16484-LW     16489/BIR
   :COM021        16448/BCS    16453/BNEZ   16478-LCW
   :COM03         16320/DATA   16529-BAL
   :COM03W        16305/DATA   16429-BAL
   :COM04         16306/DATA   16321/DATA   16544-BAL
   :COM05         16307/DATA   16322/DATA   16547-LCW    16552/BIR
   :COM06         16308/DATA   16323/DATA   16505-LCW
   :COM061        16506-LW     16514/B
   :COM1          16439/BAL    16488/BAL    16520/BAL    16550/BAL    16554-STD
   :COM2          16573/BNE    16582/B      16585-BAL
   :COM2EXT       16566/BE     16570/BG     16601-LW     16614/BEZ
   :COM92         16613-MTW    16620/B
   :COM93         16567/BL     16610-LW
   :CURBCNT        1152-EQU
   :DAERM          2744-MSGX   16039/DATA
   :DATA            316/DATA    1450/:PROCDIC            13875-STW
   :DATADIR        1450-:PROCDIC            13890/DATA
   :DECC           1149-EQU     3330/BAL*    3332/BAL*    4453/BAL*    4520/BAL*    4526/BAL*    4544/BAL*
      4633/BAL*    4644/BAL*
   :DEVADDR        1280-DATA    3936/LW      4911/LW      5167/AW      5412/LW      5445/LW      5780/CW
      6443/AW      8079/LW      8082/STW     8092/MTB     8093/LW      8138/LW      8140/STW     8700/LW
      8702/STW     8733/LW      8735/STW     8761/LW      8763/STW     8809/LW      8811/STW     8818/LW
      8820/STW    13260/SIO*   14484/LW     14873/LW     15049/SIO*   15707/SIO*   15711/TIO*   15938/SIO*
     15946/TIO*   15954/HIO*   15962/TDV*   15995/CW     16035/CW     16630/LW
   :DEVADER       16008/BCR    16019/B      16031-CI
   :DEVEXIT       16040-LD     16061/BE     16091/B
   :DIC            1389/DATA    1390/DATA    1443-EQU
   :DICEND         1390/DATA    1455-EQU     1471/EQU
   :DICILEN        1171-EQU
   :DICINDX        1170-EQU
   :DIRNAME        1397-EQU
   :DTLFLAG        1166-EQU
   :DUMP           1144-EQU
   :ERPARNO        1399-EQU     3645/STW     3872/STW     3897/STW     3910/STW    13877/STW    13882/STW
     13987/EQU    14111/STW    14128/STW    14687/STW    14692/STW    14697/STW
   :ERRADR1       16015/LW     16092-DATA
   :ERRADR2       16023/LW     16102-DATA
   :ERRADR3       16046/LW     16112-DATA
   :ERROR          1153-EQU
   :ERRPARM        1167-EQU     3922/BAL*   13889/BAL*   13983/BAL*   14119/BAL*   14709/BAL*
   :HEXC           1150-EQU     3342/BAL*    3344/BAL*    4311/BAL*    4473/BAL*   16574/BAL*   16578/BAL*
   :HIO           15172/BAL    15954-HIO
   :HIO1          15957-LI
   :INITIAL        1395/DATA    3597-STW
   :IORTN          1310-DATA   15981/STW    15982/LW*    15983/LW*    15991/CW*    15992/BAZ*   15996/BE*
     16000/CW*    16001/BANZ*  16042/B*     16053/LW*    16054/LW*    16068/LW*    16069/LW*
   :K             16196/AW     16209-DATA
   :KSRADR         1162-EQU
   :LIMTDIR        1453-:PROCDIC            14120/DATA
   :LIM1          14114/BE     14122-LW
   :LIM2          14118/BE     14128-STW
   :LIM3          14116/BE     14134-LW
   :LOADIN         1160-EQU
   :L1M0          14119-BAL    14131/BGE
   :MACHINE        1163-EQU     3472/LW      3668/LW      4006/LW      6016/CW      6448/CW      9088/CW
   :MEM             353/DATA    1452/:PROCDIC            14012-LI
   :MEMDIR         1452-:PROCDIC
   :MEMLAST        1173-EQU     3942/LW      3969/LW      4745/LW      5527/LW      6063/CW     11938/LW
     13113/CW     14024/LW     14060/LW     14082/DATA   14084/DATA   14698/LW
   :MEMLST        14084-DATA
   :MEMSIZE        1172-EQU     3484/CW
   :MLT             825/BAL*    1139-EQU     1140/EQU     1141/EQU     1142/EQU     1143/EQU     1144/EQU
      1145/EQU     1146/EQU     1147/EQU     1148/EQU     1149/EQU     1150/EQU     1151/EQU     1152/EQU
      1153/EQU     1154/EQU     1155/EQU     1156/EQU     1157/EQU     1158/EQU     1159/EQU     1160/EQU
      1161/EQU     1162/EQU     1163/EQU     1164/EQU     1165/EQU     1166/EQU     1167/EQU     1168/EQU
      1169/EQU     1170/EQU     1171/EQU     1172/EQU     1173/EQU     1174/EQU     1175/EQU     1176/EQU
      1177/EQU     1180/RES
   :MLTEND         1177-EQU     1180/RES
   :MONIOBF        1174-EQU
   :MONITOR        1147-EQU     3835/B*      3880/B*      3924/B*      4315/B*     13887/B*     13891/B*
     13971/B*     13985/B*     14065/BNE*   14078/B*     14121/B*     14126/B*     14133/B*     14138/B*
     14246/B*     14678/B*     14711/B*
   :MONPBF         1175-EQU
   :MONWAIT        1156-EQU
   :MRECOVR        1157-EQU
   :MSGIN          1159-EQU
   :MSGOUT         1158-EQU
   :M1            16186/STW    16191/MTW    16197/EOR    16206-DATA
   :M2            16187/STW    16193/MTW    16198/EOR    16207-DATA
   :PASSC          3830/BAL    14142-STW    14240/BAL    14673/BAL
   :PASSCNT       14137/STW    14162/CW     14167-DATA
   :PASSCUR        1324-DATA    3802/STW    14146/LW     14161/LW     14164/MTW    14232/STW    14665/STW
   :PASSC1        14144/BLEZ   14150/BCS    14161-LW
   :PASSC2        14153/BEZ    14156/BE     14158-STW
   :PASSPFL       14135/STW    14143/MTW    14148/DW     14166-DATA
   :PASS0          2902-MSGX   14151/LI
   :PASS2          2903-MSGX   14154/LI
   :PASS3          2904-MSGX   14157/LI
   :PATBFR         3999/STW     6300/STW    10583/LW     11379/STW    16638-EQU
   :PATID          1347-DATA    3994/STD     7118/STW     7119/STW     7126/STW    11026/STW    11027/STW
     11032/STW    11121/STW    11122/STW    11128/STW    11168/STW    11171/STW    11192/STM    11220/STW
     11355/STW    11359/STW    11394/STB    11399/STW    11931/STM    11973/LW     11975/STW    12311/STD
     12457/STD    12695/STD    14292/STW    14491/STW    14793/STM    16279/AW     16294/LW     16295/LW
     16334/AW     16336/AW     16343/STW    16346/AW     16382/STW    16404/SCS*   16411/LM*    16420/AW
     16424/AW     16430/STW    16432/STW    16434/LW     16440/AW     16506/LW*    16508/LW*    16510/LW*
     16512/LW*    16530/STW    16551/SCS*
   :PATTERN        7120/BAL     7127/BAL    10589/BAL    11169/BAL    11197/B      11221/BAL    11356/BAL
     11380/BAL    12029/BAL    12312/B      12703/BAL    13155/BAL    13538/BAL    13584/BAL    14950/BAL
     16242/B      16278-LI
   :PATWC          3997/STW     6297/STW     7112/STW     7123/AW     10584/LW     11195/STW    11357/STW
     11373/STW    12245/STH    12246/AWM    12286/STH    12287/AWM    16637-EQU
   :PAT0          16324/DATA   16392-STD    16393/BIR
   :PAT0W         16310/DATA   16342-LI
   :PAT1          16334-AW     16337/BIR
   :PAT1W         16311/DATA   16325/DATA   16344-LCW
   :PAT2          16312/DATA   16326/DATA   16352-LW
   :PAT2HS        16359/BCR    16370-SAS
   :PAT2HS1       16372-STD    16381/BIR
   :PAT3          16327/DATA   16391-BAL
   :PAT3W         16313/DATA   16341-BAL
   :PAT4          16314/DATA   16328/DATA   16398-BAL
   :PAT5          16315/DATA   16329/DATA   16402-LCW
   :PAT6          16316/DATA   16330/DATA   16409-LCW
   :PAT62         16410-LCI    16414/BLE
   :PITEND         1406-EQU     1407/DO      1415/EQU
   :PITLAST        1405-EQU     1407/DO      1413/EQU
   :PITX           1413-EQU
   :PITY           1415-EQU
   :PIT0           1387-DATA    1406/EQU
   :PIT1           1388-DATA
   :PIT10          1398-DATA    1399/EQU
   :PIT11          1400-DATA
   :PIT12          1401-DATA    3647/STW     3664/STW
   :PIT13          1402-DATA
   :PIT14          1403-DATA
   :PIT15          1404-DATA    3477/STW     3487/STW     3525/STW     5333/STW     5460/STW     6087/STW
   :PIT2           1389-DATA
   :PIT3           1390-DATA
   :PIT4           1391-DATA
   :PIT5           1392-DATA
   :PIT6           1393-DATA
   :PIT7           1394-DATA
   :PIT8           1395-DATA
   :PIT9           1396-DATA    1397/EQU
   :PK             1345-DATA   16354/STD    16366/XW     16367/AW     16371/AW     16378/XW     16379/XW
     16380/AD
   :PK1            1346-DATA
   :PRINT           909/BAL*    1154-EQU     3299/BAL*    3314/BAL*    4313/BAL*    4431/BAL*    4482/BAL*
      4507/BAL*    4608/BAL*    4660/BAL*    4933/BAL*    5659/BAL*    5861/BAL*    6796/BAL*   16065/BAL*
     16580/BAL*
   :PROCDIC         848-CNAME
   :PROGID         1373-TEXTC   1388/DATA
   :PSW            1145-EQU
   :P1             1140-EQU     3816/LW      3870/LW     13880/CLR    13884/LM     13936/LW     14031/AW
     14038/LW     14040/CW     14113/CW     14115/CW     14117/CW     14233/LW     14656/LI
   :P2             1141-EQU     3820/LW      3871/LW     13931/CW     13942/AW     14032/CW     14039/LW
     14122/LW     14129/LW     14134/LW     14237/LW     14660/CW     14669/CW
   :P3             1142-EQU     3873/LW     13937/LW     14136/LW
   :P4             1143-EQU    13934/CW     13951/AW     14763/LW
   :QSENSE         1168-EQU     5076/BAL*    7136/BAL*
   :RANDOM        14313/BAL    16189-STW
   :RANDOMX       16191-MTW
   :RANDOMY       16186-STW
   :READMOD        6604-LI
   :REC            3532-EQU     7400/GEN
   :RECOVER        1391/DATA    3509-STW     3598/BAL
   :REG0405         982-DATA   16002/STD    16040/LD
   :REG1213         983-DATA   16004/STD    16041/LD
   :RELBIAS        1164-EQU
   :REMOTE         1176-EQU
   :RLOADER        1165-EQU    12057/LW     14022/LW
   :SEED          14298/LW     16189/STW    16194/LW     16199/STW    16208-DATA
   :SEEKDIR        1451-:PROCDIC            13984/DATA
   :SEEKMOD        6595-LI     12781/BAL    12832/BAL    12941/BAL    13020/BAL
   :SEEKMODZ       6582-EQU    13552/BAL    13562/BAL    13761/BAL
   :SENSE          1155-EQU     3832/BAL*    3877/BAL*    4020/BAL*   13334/BAL*   13381/BAL*   13414/BAL*
     13484/BAL*   13527/BAL*   13788/BAL*   13824/BAL*   14242/BAL*   14675/BAL*
   :SIO           15416/BAL    15938-SIO
   :SIO1          15941-LI
   :SNSMOD         6598-LI     12785/BAL    12837/BAL    12889/BAL    12948/BAL
   :SNSMODZ        6586-LI     13807/BAL
   :SNSWORD        6640/GEN     7256-DATA   12788/LB     12840/LH     12892/LB     12927/STW    12951/LH
     13272/LB     13812/MTW    13842/STW    15901/EQU
   :STATEM1       16064/STD    16066/DATA   16137-TEXTC
   :STATEM2        2745-MSGX   16076/DATA
   :STATEM3        2746-MSGX   16090/DATA
   :STATEM4       16081/STH    16082/STH    16083/LI     16139-DATA
   :STATEM5       16078/STB    16079/STB    16085/LI     16142-DATA
   :STATERR       16027/B      16032/BNE    16036/BE     16053-LW
   :STATER1       16073-LW     16088/BNEZ
   :STATER2       16070/B      16077-SCD
   :STATER3       16056/BCS    16062-LD
   :STATEST        5810/BAL    15942/B      15950/B      15958/B      15966/B      15974/B      15980-STW
   :STATLOOP       1308-DATA   16067/STW    16087/MTW
   :STATTYP       16062/LD     16121-DATA
   :STATUSCC       1312-DATA    5771/STW     5789/STW    13841/STW    15939/STW    15940/STCF   15947/STW
     15948/STCF   15955/STW    15956/STCF   15963/STW    15964/STCF   15971/STW    15972/STCF   15988/AND
     16005/LCF    16059/AND    16073/LW
   :TDV           15962-TDV
   :TDV1          15965-LI
   :TIO           14996/BAL    15167/BAL    15176/BAL    15946-TIO
   :TIO1          15949-LI
   :TSEQ            804-CNAME
   :TSEQEQU         831-CNAME
   :TST0DIR        1446-:PROCDIC
   :TST1DIR        1447-:PROCDIC             3923/DATA
   :TST2DIR        1448-:PROCDIC
   :TST3DIR        1449-:PROCDIC            14710/DATA
   :TYPE           1311-DATA   15980/STW    16006/LW
   :TYPE1          1161-EQU     3491/BAL*
   :WAIT           1169-EQU
   :WRTMOD         6601-LI     12886/BAL    12945/BAL    13024/BAL
   :WRTMODZ        6589-LI     13156/BAL    13557/BAL
   :1BYTEIN        1151-EQU
   #DDTADR1        1257-SET     1275/RES     3975/LCI    15633/MI     15636/AI     15637/LCI    15650/LCI
   #DDTADR2        1274-SET     1275/RES    15633/MI
   #DDTADR3        1268-SET     3975/LCI    15637/LCI    15650/LCI
   #DDTBIAS        1255-DATA    3621/STW     3636/LW      3974/LW     13449/LW     13466/LW     13482/LW
     13928/LW     13973/LW     15634/STW    15635/LW     15649/LW
   #DDTEXIT       15631/BGE    15641-LCI
   #DDTICMT        3640/BAL     3938/BAL    13502/BAL    13926/BAL    13970/BAL    14027/BAL    14720/BAL
     15625-LCI
   #DDTLGTH        1254-DATA    3623/STW     3666/STW    15620/DW     15630/CW
   #DDTP           1253-DATA    3619/STW     3665/LW      3932/STW    13501/MTW    13925/STW    13968/STW
     14013/STW    14717/STW    15627/LW     15629/STW
   #DDTRADM       14286/BAL    15615-LCI
   #DDTSAVE        1276-EQU    15616/STM    15626/STM    15640/MTW    15642/LM
   #DDT1          15619/BEZ    15622/B      15629-STW
   #MSENSE         7276-GEN    15706/LI
   #MSGERR        15162/BAL    15366/BAL    15413/BAL    15659-EQU
   #MSGERRX        2896-MSGX   15742/DATA
   #MSGERR1        2889-MSGX   14190/DATA   15738/DATA
   #MSGERR2       15660-EQU
   #MSGERR4       15680/BEZ    15682/BEZ    15684/BE     15686/BE     15702-EQU
   #MSGERR5       15678/BNE    15703-EQU
   #MSGERR6       15670/BE     15705/BEZ    15710/B      15716-BAL
   #MSGERR8       15719/BNE    15721/BNEZ   15728-STW
   #MSGER02        2890-MSGX    4919/LI
   #MSGER03        2891-MSGX    4922/LI
   #MSGER41        1331-DATA    3984/STW     4492/LW     13318/STW    13332/MTW    13345/STW    13369/STW
     13378/MTW    13390/STW    13434/STW    13480/MTW    13495/STW    15881/STW
   #MSGEXIT       15746/BEZ    15748/BE     15752/BEZ    15756-LCI
   #MSGLEVL        1293-DATA    3823/STW     3941/STW    13317/STW    13347/STW    13368/STW    13393/STW
     13435/STW    13500/STW    14686/STW    15518/CW     15718/CW
   #MSGNOSP       14991/BAL    15658-EQU
   #MSGSCC         1292-DATA
   #MSG00          1010-RES     1276/EQU     4285/STM     4289/LM     15662/STM    15749/LW     15758/LM
     15884/LM
   #MSNSEFT        6237/LB      7276/GEN    15714/LB     15771/MTB    15773/STB    15795/LB     15901-EQU
     16241/STW    16618/STS
