1 C00   20:56 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:56 JUN 20,'83    SIGMA 5-9 7 CHANNEL MAG TAPE TEST 705735-11/51B01 N0V.27,71           PAGE    2
A       1                             TITLE 'SIGMA 5-9 7 CHANNEL MAG TAPE TEST 705735-11/51B01 N0V.27,71'
        2                            *
        3                            *
        4                            *
        5                                     SYSTEM   SIG7FDP
        6   01 00300                          ORG      X'300'
            01 00300
        7                            *
        8                            *
        9                            * PROGRAM IS SUPPLIED WITH SIGMA 5/7/9 DIAGNOSTIC PROGRAM MONITOR   *A01
       10                            * 705682-B03 VERSION.                                               *A02
       11                            *                                                                      *
       12                            *                                                                      *
       13                            *                                                                      *
       14                            * CATALOG NO. 705735                                                   *
       15                            * -----------------                                                    *
       16                            * MANUAL:     901682                                                   *
       17                            * -----------------                                                    *
       18                            *                                                                      *
       19                            * PROGRAM OBJECTIVE                                                    *
       20                            * -----------------                                                    *
       21                            *                                                                      *
       22                            * THE PROGRAM PROVIDES A COMPREHENSIVE SET OF TESTS DESIGNED TO        *
       23                            * DETECT SOLID LOGIC FAILURES AND TO ISOLATE FAILURES TO A             *
       24                            * SPECIFIC FUNCTION. THE RANDOM EXERCISER PART OF THE TEST             *
       25                            * PROGRAM WILL AID IN THE DETECTION OF INTERMITTENT FAILURES.          *
       26                            *                                                                      *
       27                            * PROGRAM MODIFICACTION                                                *
       28                            * --------------------                                                 *
       29                            *
       30                            * REVISION B01 (11/27/71) CHANGES MADE:                             *B01
       31                            *   1. CHANGED TO USE REMOTE DPM                                    *B01
       32                            *   2. TST1,35 AND TST1,37 TIME EVALUATION SUBROUTINE CHANGED.      *B01
       33                            * REVISION A02 (03/03/71) CHANGES INDICATED IN COLUMNS 69-72 BY --- *A02
       34                            * MODIFICATIONS:                                                    *A02
       35                            *    1. CORRECT REWRITE ROUTINE - TST3,1.                           *A02
       36                            *    2. CORRECT POSSIBLE ERROR CONDITION WHEN SENSING FOR EOT AFTER *A02
       37                            *       WRITING BEYOND EOT - TST1,38.                               *A02
       38                            *    3. MODIFY DELAY ROUTINE TO PREVENT I/O INTERRUPTS WHILE        *A02
       39                            *       PRINTING ERROR MESSAGES.                                    *A02
       40                            *
       41                            * REVISION A01 (10/20/70)  CHANGES INDICATED IN COLUMNS 69-72 BY -- *A01
       42                            *  MODIFICATIONS:                                                   *A01
       43                            *     1. ADD SUBTEST NO. 36 TO TST1 TO TEST THE ERASE FUNCTION.     *A01
       44                            *     2. REMOVE THE EOF INDICATION FROM T1ST4018.                   *A01
       45                            *     3. IMPROVE THE WRITE PROTECT TEST.                            *A01
       46                            *     4. ADD TST3,2,5 TO TEST CAPSTAN/TAPE SLIPPAGE.                *A01
       47                            *     5. ADD PRINTOUT OF SYST DIRECTIVE FORMAT AT START OF PROGRAM. *A01
       48                            *     6. IMPROVE THE SEQUENCE OF ERROR TESTING FOR WRITE, READ AND  *A01
       49                            *        RETRY - TST2,3.                                            *A01
       50                            *     7. ADD RETRY AFTER FAILURE IN TST1,37.                        *A01
       51                            *     8. DELETE ZBC INTERRUPT IN READ SPACE TEST - TST3,5.          *A01
       52                            *     9. IMPROVE THE DELAY ERROR PRINTOUT.                          *A01
       53                            *    10. CLARIFY ERROR PRINTOUT ABBREVIATIONS.                      *A01
       54                            *    11. RECORD TIMEOUT ERRORS IN TAPE LOOP TIMEOUT TEST.           *A01
       55                            *    12. IMPROVE COMPATABILITY TEST WITH UNPACKED BINARY DATA.      *A01
       56                            *    13. CORRECTS INFINITE LOOP PROBLEM IN TST1,36.                 *A01
       57                            *    14. CORRECTS INFINITE LOOP IF NO ZBC INTERRUPT OCCURS -        *A01
       58                            *        TST1,20.                                                   *A01
       59                            *
       60                            *
       61                            *                                                                      *
       62                            * OPERATING REQUIREMENTS AND SPECIFICATIONS                            *
       63                            * -----------------------------------------                            *
       64                            *                                                                      *
       65                            * REQUIRED EQUIPMENT                                                   *
       66                            *                                                                      *
       67                            *        SIGMA 5/7 WITH 16K MINIMUM MEMORY                             *
       68                            *        MAGNETIC TAPE STATIONS (7362,7372) AND CONTROLLER (7361/      *
       69                            *        7365/7371/7374).                                              *
       70                            *        CARD READER, PAPER-TAPE READER OR MAGNETIC TAPE UNIT FOR      *
       71                            *        PROGRAM INPUT.                                                *
       72                            *        KEYBOARD PRINTER OR LINE PRINTER FOR MESSAGE OUTPUT           *
       73                            *                                                                      *
       74                            * OPTIONAL EQUIPMENT                                                   *
       75                            *                                                                      *
       76                            *        NONE                                                          *
       77                            *                                                                      *
       78                            * PROGRAM PREREQUSITES                                                 *
       79                            *                                                                      *
       80                            *        THE CPU AND I/O PROCESSOR AS WELL AS THE PROGRAM INPUT AND    *
       81                            *        MESSAGE OUTPUT DEVICE MUST BE OPERATIONAL.                    *
       82                            *                                                                      *
       83                            * CORE STORAGE                                                         *
       84                            *                                                                      *
       85                            *        PROGRAM REQUIRES 16K OF MEMORY.                            *A01
       86                            *                                                                      *
       87                            * RUN TIME                                                             *
       88                            *                                                                      *
       89                            *        FUNCTIONAL TESTS: 9.0 MUNITES FOR ONE SUCCESSFUL PASS ON ONE  *
       90                            *                          PASS ON ONE DEVICE. THIS EXCLUDES THE END   *
       91                            *                          OF TAPE TEST AND ALL TESTS THAT REQUIRE     *
       92                            *                          OPERATOR INTERVENTION.                      *
       93                            *                                                                      *
       94                            *        RANDOM EXERCISER: RUN TIME IS A FUCTION OF THE NUMBER OF      *
       95                            *                          DEVICES AND THE NUMBER OF CYCLES REQUESTED. *
       96                            *                                                                      *
       97                            *        UTILITY TESTS:    RUN TIME IS A FUNCTION OF THE NUMBER OF     *
       98                            *                          DEVICES AND THE NUMBER OF CYCLES REQUESTED  *
       99                            *                          IN THE TAPE TEST. THE SYNC ON A CHARACTER   *
      100                            *                          AND DESKEW TEST HAVE NO TIME LIMIT. THE     *
      101                            *                          COMPATABILITY AND NOISE TEST WILL RUN 9.0   *
      102                            *                          MINUTES PER DEVICE FOR THE WRITE/READ       *
      103                            *                          PASS AND 5.0 MINUTES ON WRITE ONLY OR READ  *
      104                            *                          ONLY PASS.                                  *
      105                            *                                                                      *
      106                            * PROGRAM MEDIA                                                        *
      107                            *                                                                      *
      108                            *        80-COLUMN CARDS, 8-LEVEL PAPER TAPE OR MAGNETIC TAPE.         *
      109                            *                                                                      *
      110                            * SOURCE LANGUAGE                                                      *
      111                            *                                                                      *
      112                            *        SIGMA 5/7 METASYMBOL                                          *
      113                            *                                                                      *
      114                            * LOADING PROCEDURES                                                   *
      115                            *                                                                      *
      116                            *        LOADING PROCEDURE IS DEFINED IN THE DIAGNOSTIC PROGRAM        *
      117                            *        MONITOR MANUAL NO. 901649.                                    *
      118                            *        A SUCCESSFUL LOAD OPERATION IS INDICATED BY THE TITLE PRINTOUT*
      119                            *        OF THE THIS TEST PROGRAM.                                     *
      120                            *                                                                      *
      121                            * OPERATING PROCEDURE                                                  *
      122                            *                                                                      *
      123                            *        CONTROL OPTIONS                                               *
      124                            *                                                                      *
      125                            *                 PROGRAM CONTROL OPTIONS ARE SELECTED WITH THE        *
      126                            *                 PROCESSOR CONTROL PANEL SENSE SWITCHES 1,3,4         *
      127                            *                 (SENSE SWITCH 2 IS UNUSED)                           *
      128                            *                                                                      *
      129                            *         SSW1      SSW3                                               *
      130                            *        POSITION POSITION                                             *
      131                            *                                                                      *
      132                            *        0 OR 1      0     THE PROGRAM COMES TO A WAIT AFTER ERROR     *
      133                            *                          PRINTOUT(S) DURING EXECUTION OF FUNCTION OF *
      134                            *                          FUNCTIONAL TESTS (TST1) AND AFTER           *
      135                            *                          COMPLETION OF THE SELECTED TESTS.           *
      136                            *                          INCREMENTING THE PROGRAM ADDRESS (PCP       *
      137                            *                          INSTRUCTION ADDRESS INCREMENT) AFTER THE    *
      138                            *                          WAIT INSTRUCTION CAUSES THE PROGRAM TO      *
      139                            *                          CONTINUE WITHOUT LOOPING.                   *
      140                            *                                                                      *
      141                            *           0        1     THE PROGRAM CONTINUES WITHOUT WAITING OR    *
      142                            *                          WITHOUT FUNCTIONAL TEST ERROR LOOPING.      *
      143                            *                                                                      *
      144                            *           1        1     THE PROGRAM PRINTS THE ERROR MESSAGE(S) AND *
      145                            *                          LOOPS (WITHOUT WAITING) ON THE ERROR        *
      146                            *                          PRODUCING INSTRUCTION SEQUENCE. THE PROGRAM *
      147                            *                          ALSO LOOPS (WITHOUT WAITING) ON THE         *
      148                            *                          SELECTED TEST.                              *
      149                            *                                                                      *
      150                            *         SSW4                                                         *
      151                            *        POSITION                                                      *
      152                            *                                                                      *
      153                            *           0              THE PROGRAM PRINTS ALL MESSAGES.            *
      154                            *                                                                      *
      155                            *           1              THE PROGRAM INHIBITS ALL PRINTOUTS. DPM     *
      156                            *                          MESSAGE CANNOT BE SUPPRESSED.               *
      157                            *                                                                      *
      158                            * TABLE OF ALL DIRECTIVES                                              *
      159                            * THE DATA STATEMENT FOLLOWING EACH DIRECTIVE NAME PRODUCES A MEMORY   *
      160                            * ADDRESS IN THE MEMORY-CONTENTS-COLUMN WHICH CAN BE USED TO LOCATE    *
      161                            * THE PROGRAM CODING FOR THE DIRECTIVE. THE CODING FOR EACH DIRECTIVE  *
      162                            * IS PRECEDED BY A DESCRIPTION OF THE DIRECTIVE AND ITS PARAMETERS.    *
      163                            *                                                                      *
      164                            * MNEMONICS      DESCRIPTION                                           *
      165                            * ** SYST **     THE DIRECTIVE DESCRIBES THE SYSTEM ENVIRONMENT        *
      166                            *                INTERMIXING OF TAPE STATIONS OF 37.5 IPS AND 75 IPS   *
      167                            *                DURING THE EXECUTION OF THE FUNCTIONAL TESTS IS NOT   *
      168                            *                ALLOWED.                                              *
      169                            *                                                                      *
      170                            *                PARAMETERS D1 DEVICE STATION NUMBERS 7362,7365 (37.5  *
      171                            *                ----------    IPS) OR 7372,7374(75 IPS)               *
      172                            *                           D2 0                                       *
      173                            *                           D3 DEVICE ADDRESS (1ST)                    *
      174                            *                           D4 DEVICE ADDRESS (2ND)                    *
      175                            *                           D5 DEVICE ADDRESS (3RD)                    *
      176                            *                           D6 DEVICE ADDRESS (4TH)                    *
      177                            *                           D7 DEVICE ADDRESS (5TH)                    *
      178                            *                           D8 DEVICE ADDRESS (6TH)                    *
      179                            *                           D9 DEVICE ADDRESS (7TH)                    *
      180                            *                          D10 DEVICE ADDRESS (8TH)                    *
      181                            *                                                                      *
      182                            *                EXAMPLE    SYST,7372,0,81,83,87                       *
      183                            *                -------                                               *
      184                            *                               TAPE DEVICES 81, 83, 87 ON 7372(75 IPS)*
      185                            *                                                                      *
      186                            *                EXAMPLE   SYST,7362,0,80                              *
      187                            *                -------                                               *
      188                            *                               TAPE DEVICE 80 ON 7362 (37.5 IPS)      *
      189                            *                                                                      *
      190                            * ** TST0 **     THE DIRECTIVE SELECTS THE COMPREHENSIVE TEST          *
      191                            *                CONSISTING OF THE FUNCTIONAL TEST (TESTS 1 -37)       *
      192                            *                AND THE RANDOM EXERCISER TEST.                        *
      193   01 00300    00000481 03  TST0ADDR DATA     TST0                                                 *
      194                            *                                                                      *
      195                            *                PARAMETERS D1 NUMBER OF LOOPS ON THE RANDOM EXERCISER *
      196                            *                ---------- D2 NUMBER OF RETRIES ON THE RANDOM         *
      197                            *                              EXERCISER.                              *
      198                            *                                                                      *
      199                            *                EXAMPLE    TST0,1000,5                                *
      200                            *                -------                                               *
      201                            *                              THE FUNCTIONAL TEST WILL BE RUN ON ALL  *
      202                            *                              DEVICES SPECIFIED IN THE SEQUENCE       *
      203                            *                              ENTERED IN THE SYST DIRECTIVE.          *
      204                            *                              THE RANDOM EXERCISER WILL TEST ALL      *
      205                            *                              DEVICES CONCURRENTtY UNTIL 1000 PASSES  *
      206                            *                              HAVE BEEN MADE. READ OR WRITE OPERATIONS*
      207                            *                              WILL BE RETRIED 5 TIMES IF TE FAILURES  *
      208                            *                              ARE ENCOUNTERED.                        *
      209                            *                                                                      *
      210                            * ** TST1 **     THE DIRECTIVE SELECTS THE ENTIRE FUNCTIONAL TEST (NO  *
      211                            *                PARAMETERS ENTERED) OR SELECTS ONE OR MORE FUNCTIONAL *
      212                            *                SUBTESTS.                                             *
      213   01 00301    0000049A 03  TST1ADDR DATA     TST1                                                 *
      214                            *                                                                      *
      215                            *                PARAMETERS D1 FIRST FUNCTIONAL SUBTEST                *
      216                            *                ---------- D2 LAST FUNCTIONAL SUBTEST                 *
      217                            *                                                                      *
      218                            *                           WHERE 0 <D1 <=D2 <=41                      *
      219                            *                                                                      *
      220                            *                EXAMPLES   TST1,0,0                                   *
      221                            *                --------                                              *
      222                            *                                                                      *
      223                            *                              RUN ALL FUNCTIONAL TESTS                *
      224                            *                                                                      *
      225                            *                           TST1,24,27                                 *
      226                            *                                                                      *
      227                            *                              RUN FUNCTIONAL TESTS 24 THRU 27         *
      228                            *                                                                      *
      229                            * ** TST2 **     THE DIRECTIVE SELECTS THE RANDOM EXERCISER TEST       *
      230                            *                                                                      *
      231   01 00302    000004DF 03  TST2ADDR DATA     TST2                                                 *
      232                            *                PARAMETERS D1 NUMBER OF PASSES TO BE EXECUTED BY      *
      233                            *                ----------    RANDOM EXERCISER                        *
      234                            *                           D2 NUMBER OF RETRIES IF TE FAILURES ARE    *
      235                            *                              ENCOUNTERED IN THE RANDOM EXERCISER.    *
      236                            *                                                                      *
      237                            * ** TST3 **     THE DIRECTIVE SELECTS ONE OF THE UTILITY PROGRAMS.    *
      238                            *                                                                      *
      239   01 00303    000004FA 03  TST3ADDR DATA     TST3                                                 *
      240                            *                PARAMETERS D1 UTILITY TEST SELECTION                  *
      241                            *                ---------  D2 OPERATIONS REQUESTED ACCORDING TO TEST  *
      242                            *                           D3 PARAMETER REQUESTED ACCORDING TO TEST   *
      243                            *                           D4 PARAMETER REQUESTED ACCORDING TO TEST   *
      244                            *                                                                      *
      245                            *                           D1 1 TAPE TEST                             *
      246   01 00304    000012BB 03  TST31ADR DATA     TST31                                                *
      247                            *                              D2 0 WRITE,REWIND,READ FORWARD,SPACE    *
      248                            *                                   BACKWARD D3 RECORDS.               *
      249                            *                                 1 WRITE D3 RECORDS.                  *
      250                            *                                 2 READ FORWARD D3 RECORDS.           *
      251                            *                                 3 SPACE BACKWARD D3 RECORDS.         *
      252                            *                                 4 READ FORWARD AND SPACE BACKWARD D3 *
      253                            *                                   RECORDS IN SEQUENCE.               *
      254                            *                                 8 WRITE, REWIND, READ FWD, SPACE BKW *
      255                            *                                   D3 RECORDS (BCD).                  *
      256                            *                                 9 WTITE D3 RECORDS (BCD).            *
      257                            *                                10 READ FWD D3 RECORDS (BCD).         *
      258                            *                                12 READ FWD, SPACE BKW D3 RECORDS(BCD)*
      259                            *                              D3 NUMBER OF RECORDS TO BE WRITTEN OR   *
      260                            *                                 READ. IF D3 =0 CONTINUE UNTIL EOT    *
      261                            *                                 OR BOT IS REACHED.                   *
      262                            *                              D4 DELAY IN MILLISECONDS BETWEEN        *
      263                            *                                 OPERATION SETS.                      *
      264                            *                                                                      *
      265                            *                           D1 2 DESKEW TEST                           *
      266   01 00305    00001405 03  TST32ADR DATA     TST32                                                *
      267                            *                              D2 0,1 WRITE UNTIL EOT IS REACHED AND   *
      268                            *                                   REWIND.                            *
      269                            *                                 2 READ FORWARD UTIL EOT AND REWIND.  *
      270                            *                                 3 SPACE BACKWARD UNTIL BOT IS REACHED*
      271                            *                                 4 READ FWD UNTIL EOT, SPACE BKW   *A01
      272                            *                                   UNTIL BOT, NO REWINDS.          *A01
      273                            *                                 5 CAPSTAN SLIPPAGE EXERCISER.     *A01
      274                            *                              D3 NOT USED                             *
      275                            *                              D4 NOT USED                             *
      276                            *                                                                      *
      277                            *                           D1 3 SYNC ON A CHARACTER TEST              *
      278   01 00306    0000146E 03  TST33ADR DATA     TST33                                                *
      279                            *                              D2 1 READ FORWARD AND SPACE RECORD      *
      280                            *                                   BACKWARD.                          *
      281                            *                                 2 SPACE BACKWARD AND SPACE RECORD    *
      282                            *                                   FORWARD.                           *
      283                            *                              D3 BYTE TO SYNC ON.                     *
      284                            *                              D4 DELAY IN MILLISECONDS BETWEEN SYNCS. *
      285                            *                                                                      *
      286                            *                           D1 4 COMPATABILITY AND NOISE PATTERN TEST  *
      287   01 00307    000014C1 03  TST34ADR DATA     TST34                                                *
      288                            *                              D2 0,1 WRITE,SPACE BACKWARD,AND READ    *
      289                            *                                   FORWARD ALL RECORDS.               *
      290                            *                                 2 SPACE FORWARD,SPACE BACKWARD,READ  *
      291                            *                                   FORWARD ALL RECORDS.               *
      292                            *                                 3 READ FORWARD,SPACE BACKWARD,SPACE  *
      293                            *                                   FORWARD ALL RECORDS.               *
      294                            *                                 4 READ FORWARD ALL RECORDS.          *
      295                            *                                 5 WRITE ALL RECORDS.                 *
      296                            *                              D3 NOT USED                             *
      297                            *                              D4 NOT USED                             *
      298                            *                                                                      *
      299                            *                           D1 5 READ/SPACE TEST                       *
      300   01 00308    00001569 03  TST35ADR DATA     TST35
      301                            *                           D2 0 REWIND AND READ FWD N RECORDS.        *
      302                            *                              1 REWIND AND SPACE FWD N RECORDS.       *
      303                            *                              2 DONT REWIND, READ FWD N RECORDS       *
      304                            *                              3 DONT REWIND, SPACE FWD N RECORDS.     *
      305                            *                              4 DONT REWIND, SPACE BKW N RECORDS.     *
      306                            *                              8 REWIND, READ FWD N RECORDS WITH EVEN  *
      307                            *                                PARITY, DECIMAL (BCD).                *
      308                            *                             10 DONT REWIND, READ FWD WITH EVEN PARITY*
      309                            *                                PARITY, DECIMAL (BCD).                *
      310                            *                           D3 NUMBER OF RECORDS TO READ OR SPACE      *
      311                            *                           D4 0 DONT PRINTOUT RECORD                  *
      312                            *                              1 PRINTOUT RECORD IN ERROR.             *
      313                            *                              2 PRINTOUT NTH RECORD.                  *
      314                            *                                                                      *
      315                            *                EXAMPLES   TST3,1,1,1000,5                            *
      316                            *                --------                                              *
      317                            *                           WRITE 1000 RECORDS WITH A 5 MILLISECOND    *
      318                            *                           DELAY AFTER EACH WRITE OPERATION           *
      319                            *                                                                      *
      320                            *                           TST3,2,2                                   *
      321                            *                                                                      *
      322                            *                           READ FORWARD UNTIL EOT AND REWIND          *
      323                            *                                                                      *
      324                            *                           TST3,3,1,375,10                            *
      325                            *                                                                      *
      326                            *                           READ FORWARD 375 BYTES, SIGNAL (TDV) AND   *
      327                            *                           DELAY 10 MILLISECONDS. SPACE BACKWARD.     *
      328                            *                                                                      *
      329                            *                           TST3,4,5                                   *
      330                            *                                                                      *
      331                            *                           WRITE ALL RECORDS.                         *
      332                            *                                                                      *
      333                            *                           TST3,5,0,100,1                             *
      334                            *                                                                      *
      335                            *                           REWIND,READ 100 RECORDS.PRINT OUT ERROR REC*
      336                            *                                                                      *
      337                            *                                                                      *
      338                            * ** DATA **     THE DIRECTIVE SELECTS A PATTERN TYPE TO BE USED       *
      339                            *                DURING THE TAPE TEST (TST3,1 ONLY).                   *
      340   01 00309    00000538 03  DATAADDR DATA     DATTA                                                *
      341                            *                                                                      *
      342                            *                PARAMETERS D1 PATTERN TYPE                            *
      343                            *                ----------    0 FIXED PATTERN                         *
      344                            *                              2 RANDOM PATTERN                        *
      345                            *                              5 BIT CROWDING PATTERN                  *
      346                            *                           D2 IF D1 =0 FIXED PATTERN                  *
      347                            *                              IF D1 =2 RANDOM PATTERN SEED            *
      348                            *                              IF D1 =5 TWO TRACK NUMBERS              *
      349                            *                           D3 IF D1 =5 BYTE STRING FOR 1ST TRACK      *
      350                            *                           D4 IF D1 =5 BYTE STRING FOR 2ND TRACK      *
      351                            *                                                                      *
      352                            *                EXAMPLES   DATA,2,12876541                            *
      353                            *                --------                                              *
      354                            *                                                                      *
      355                            *                           GENEATE RANDOM PATTERN STARTING WITH SEED  *
      356                            *                           12876541.                                  *
      357                            *                                                                      *
      358                            *                           DATA,5,36,FF00FF00,00FF00FF                *
      359                            *                                                                      *
      360                            *                           GENERATE A BIT STRING FF00FF00 ON TRACK 3, *
      361                            *                           GENERATE A BIT STRING 00FF00FF ON TRACK 6  *
      362                            *                                                                      *
      363                            * ** LIMT **     THE DIRECTIVE LIMITS SPECIFIC OPERATIONS DURING       *
      364                            *                EXECUTION OF THE TEST.                                *
      365   01 0030A    00000560 03  LIMTADDR DATA     :LIMIT                                               *
      366                            *                                                                      *
      367                            *                PARAMETERS D1 LIMIT TYPE                              *
      368                            *                ---------- D2 LIMIT COUNT                             *
      369                            *                                                                      *
      370                            *                           D1 1 LIMIT COMPARE ERROR PRINTOUT          *
      371                            *                              D2 NUMBER OF COMPARE ERRORS TO BE       *
      372                            *                                 REPORTED IN EACH RECORD.             *
      373                            *                                                                      *
      374                            *                EXAMPLE    LIMT,1,5                                   *
      375                            *                -------                                               *
      376                            *                           REPORT UP TO 5 COMPARE ERRORS FOR EACH     *
      377                            *                           RECORD.                                    *
      378                            *                                                                      *
      379                            *                                                                      *
      380                            * ** LEN  **     THIS DIRECTIVE SELECTS THE BYTE LENGTH OF THE RECORD  *
      381                            *                TO BE USED IN THE TAPE TEST (TST3,1 ONLY).            *
      382   01 0030B    0000052D 03  LENTHADR DATA     LEN                                                  *
      383                            *                                                                      *
      384                            *                PARAMETERS                                            *
      385                            *                ---------- D1 BYTE LENGTH OF RECORD                   *
      386                            *                           D2 NOT USED                                *
      387                            *                           D3 NOT USED                                *
      388                            *                           D4 NOT USED                                *
      389                            *                                                                      *
      390                            *                EXAMPLE    LEN,980                                    *
      391                            *                -------                                               *
      392                            *                           GENERATE A RECORD OF 980 BYTES.            *
      393                            *                                                                      *
      394                            *                                                                      *
      395                            *                                                                      *
      396                            *                                                                      *
      397                            *                                                                      *
      398                            *                                                                      *
      399                            * OPERATION MODES                                                      *
      400                            * ---------------    PROGRAM-OPERATOR COMMUNICATION IS ACCOMPLISHED    *
      401                            *                    USING THE INPUT/OUTPUT DEVICES SPECIFIED BY       *
      402                            *                    THE OPERATOR.                                     *
      403                            *                                                                      *
      404                            *                    DIRECTIVES ARE ENTERED AND TESTS ARE INITIATED    *
      405                            *                    THRU THE MESSAGE INPUT DEVICE (MID).              *
      406                            *                                                                      *
      407                            *                    THE PROGRAM OUTPUTS MESSAGES THRU THE MESSAGE     *
      408                            *                    OUTPUT DEVICE (MOD)                               *
      409                            *                                                                      *
      410                            *                    (REFER TO DPM DIRECTIVES 'MID' AND 'MOD').        *
      411                            *                                                                      *
      412                            * START-RESTART PROCEDURE                                              *
      413                            *                                                                      *
      414                            * START              AFTER THE PROGRAM IS SUCCESSFULLY LOADED AND THE  *
      415                            *                    PROGRAM IDENTIFICATION IS PRINTED, THE OPERATOR   *
      416                            *                    MAY SPECIFY ANY TEST DIRECTIVE (TST0,TST1,TST2,   *
      417                            *                    OR TST3), UTILTY DIRECTIVE (DATA,LIMT, OR RSET),  *
      418                            *                    OR THE ENVIRONMENTAL DIRECTIVE (SYST).            *
      419                            *                                                                      *
      420                            *                    THE SYST DIRECTIVE MUST BE INITIALLY ENTERED      *
      421                            *                    TO DESCRIBE THE CONFIGURATION TO BE TESTED.       *
      422                            *                                                                      *
      423                            * RESTART            RESTART OR RECOVERY MAY BE ACHIEVED BY THE        *
      424                            *                    FOLLOWING PROCEDURE:                              *
      425                            *                                                                      *
      426                            *                    1. PRESSING THE CONTROL PANEL INTERRUPT SWITCH.   *
      427                            *                                                                      *
      428                            *                    2. A. PLACING THE COMPUTE SWITCH ON THE PCP TO IDLE
      429                            *                       B. PRESSING THE SYSTEM RESET SWITCH ON THE PCP *
      430                            *                       C. PLACING THE COMPUTE SWITCH ON THE PCP TO RUN*
      431                            *                                                                      *
      432                            * TERMINATION INDICATION                                               *
      433                            *                                                                      *
      434                            *                    THE TERMINATION OF A DIRECTIVE IS INDICATED BY WHEN
      435                            *                    CONTROL IS RETURNED TO THE MESSAGE INPUT DEVICE.  *
      436                            *                                                                      *
      437                            * SUCCESS-FAILURE INDICATIONS                                          *
      438                            * ----------------------------                                         *
      439                            *                                                                      *
      440                            *                                                                      *
      441                            * WAITS              THE PROGRAM COMES TO A WAIT CONDITION.            *
      442                            *                                                                      *
      443                            *                    1. AFTER ERROR MESSAGE PRINTOUT DURING THE        *
      444                            *                       EXECUTION OF FUNCTIONAL TESTS (SSW3 = 0).      *
      445                            *                                                                      *
      446                            *                    2. AFTER THE COMPLETION OF A TEST (SSW3 = 0).     *
      447                            *                                                                      *
      448                            *                    3. AFTER WATCHDOG TIMER TRAP, IF THE IO RESET     *
      449                            *                       JUMPER WAS NOT ENTERED OR PROGRAMMABLE IO      *
      450                            *                       RESET IS NOT IMPLEMENTED.                      *
      451                            *                                                                      *
      452                            * LOOPS              THE PROGRAM LOOPS ON AN INSTRUCTION SEQUENCE      *
      453                            *                    PRODUCING AN ERROR DURING FUNCTIONAL TEST         *
      454                            *                    EXECUTION (SS1=1,SS3=1) OR AT THE COMPETION       *
      455                            *                    OF A TEST (SS1=1,SS3=1).                          *
      456                            *                                                                      *
      457                            * MESSAGE PRINTOUT   1. FUNCTIONAL TEST                                *
      458                            *                                                                      *
      459                            *                       THE STANDARD ERROR MESSAGES                    *
      460                            *                                                                      *
      461                            *                           ERR NO.DDDD LOC.XXXX                       *
      462                            *                                                                      *
      463                            *                       ARE DEFINED IN THE FAULT INDEX (DDDD = INDEX). *
      464                            *                                                                      *
      465                            *                       ALL OTHER MESSAGES PRECEDING THE STANDARD      *
      466                            *                       ERROR MESSAGE ARE SELF EXPLANETORY.            *
      467                            *                                                                      *
      468                            *                    2. RANDOM EXERCISER AND UTILITY TESTS.            *
      469                            *                                                                      *
      470                            *                       ALL MESSAGES ARE SELF EXPLANETORY.             *
      471                            *                                                                      *
      472                            *                    3. DPM ERROR MESSAGE ARE DEFINED IN THE           *
      473                            *                       DPM MANUAL.                                    *
      474                            *                                                                      *
      475                            * PROGRAM TEST DESCRIPTION                                             *
      476                            * ------------------------                                             *
      477                            *                                                                      *
      478                            *                    THE FOLLOWING IS A DESCRIPTION OF THE TESTS       *
      479                            *                    CONTAINED IN THE 7 TRACK MAGNETIC TAPE TEST       *
      480                            *                    PROGRAM.                                          *
      481                            *                                                                      *
      482                            * COMPREHENSIVE TEST (TST0)                                            *
      483                            *                    THE COMPREHENSIVE TEST CONSISTS OF THE FUNCTIONAL *
      484                            *                    TEST AND THE RANDOM EXERCISER TEST.               *
      485                            *                                                                      *
      486                            * FUNCTIONAL TEST (TST1)                                               *
      487                            *                    THE FUNCTIONAL TEST PERFORMS A SYSTEMATIC TEST OF *
      488                            *                    ALL LOGIC FUNCTIONS OF THE TAPE CONTROLLER AND ALL*
      489                            *                    TAPE DEVICES SPECIFIED BY THE SYST DIRECTIVES.    *
      490                            *                    THE FUNCTIONAL TEST CONSISTS OF A NUMBER OF       *
      491                            *                    SUBTESTS WHICH MAY BE SELECTED INDIVIDUALLY OR    *
      492                            *                    IN GROUPS. THE FUNCTIONAL TESTS CAN BE RUN AT ANY *
      493                            *                    DENSITY IF 75 IPS. THE TAPE CREEP TEST (TST1,35)  *
      494                            *                    AND THE GAP LENGTH TIMING TEST (TST1,37) TOLERANCE*
      495                            *                    IS SET FOR 800 BPI.                               *
      496                            *                                                                      *
      497                            *                    WHEN A FAULT HAS BEEN DETECTED, AUTOMATIC ERROR   *
      498                            *                    LOOPING THRU SENSE SWITCH CONTROL IS IMPLEMENTED  *
      499                            *                    WHENEVER POSSIBLE. WRITE AND READ RETRIES WILL    *
      500                            *                    ONLY BE DONE IN THE DATA TEST (TST1,33).          *
      501                            *                                                                      *
      502                            *                    FOR A DESCRIPTION OF INDIVIDUAL SUBTESTS REFER    *
      503                            *                    TO THE FUNCTIONAL TEST SECTION IN THE PROGRAM     *
      504                            *                    LISTING. EACH SUBTEST IS PRECEDED BY A TEST       *
      505                            *                    DESCRIPTION.                                      *
      506                            *                                                                      *
      507                            * RANDOM EXERCISER TEST (TST2)                                         *
      508                            *                    THIS TEST PROVIDES A MEANS OF OPERATING A MAGNETIC*
      509                            *                    TAPE SYSTEM WITH PSEUDO-RANDOM OPERATION, ORDER   *
      510                            *                    SEQUENCE, DATA PATTERN, I/O AREA, TIME DELAY, AND *
      511                            *                    RECORD SIZE FOR THE PURPOSE OF DETECTING INTERMIT-*
      512                            *                    TENT FAILURES AND EXERCISING ALL TAPE UNITS.      *
      513                            *                                                                      *
      514                            *                    THE RANDOM EXERCISER TEST WILL REPORT ERRORS AS   *
      515                            *                    THEY OCCUR, BUT ONLY AS TO THE FUNCTION THAT      *
      516                            *                    FAILED. NO ERROR LOOPING IS PROVIDED EXCEPT FOR   *
      517                            *                    LIMITED RETRIES.                                  *
      518                            *                                                                      *
      519                            * UTILITY TEST ROUTINES (TST3)                                         *
      520                            *                                                                      *
      521                            *                    THE UTILITY TEST ROUTINE  ALLOWS THE USER TO SELECT
      522                            *                    A SPECIFIC FUNCTION AND TO CONTROL THE DATA PATTERN
      523                            *                    (SEE DATA DIRECTIVE) AND THE RECORD LENGTH (SEE   *
      524                            *                    'LEN' DIRECTIVE. THE UTILITY TESTS CAN BE RUN AT  *
      525                            *                    ANY DENSITY IF 75 IPS.                            *
      526                            *                                                                      *
      527                            * 1. TAPE TEST       THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD, *
      528                            *                    READ BACKWARD, READ FORWARD AND THEN BACKWARD, OR *
      529                            *                    WRITE FOLLOWED BY REWIND AND READ FORWARD AND READ*
      530                            *                    BACKWARD N RECORDS OR UNTIL EOT IS REACHED.       *
      531                            *                                                                      *
      532                            * 2. DESKEW TEST     THIS TEST IS PROVIDED AS A SCOPING AID DURING     *
      533                            *                    CHECKING AND ADJUSTING THE READ/WRITE SKEW. A     *
      534                            *                    PATTERN OF ALL ONES WILL BE RECORDED AS A CONTIN- *
      535                            *                    UOUS RECORD. AT EOT THE TAPE WILL BE REWOUND.     *
      536                            *                                                                      *
      537                            * 3. SYNC ON CHARACTER TEST                                            *
      538                            *                    THIS TEST IS PROVIDED AS A SCOPING AID BY EXECUTING
      539                            *                    A UNIQUE I/O INSTRUCTION (TDV) AFTER THE BYTE COUNT
      540                            *                    SPECIFIED IN THE TEST HAS BEEN REACHED.           *
      541                            *                                                                      *
      542                            * 4. COMPATABILITY AND NOISE PATTERN TEST                              *
      543                            *                    THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD, *
      544                            *                    READ BACKWARD, OR READ FORWARD AND BACKWARD A PRE-*
      545                            *                    DETERMINED INCREMENTED NOISE PATTERN.             *
      546                            *                                                                      *
      547                            * 5. READ/SPACE TEST                                                   *
      548                            *                    THIS TEST ALLOWS THE USER TO WRITE, READ, OR      *
      549                            *                    SPACE N RECORDS, WITH OR WITHOUT REWIND. ONLY NON-*
      550                            *                    RECOVERABLE TRANSMISSION ERRORS WILL CAUSE ERROR  *
      551                            *                    PRINTOUT, BACKSPACE, AND A HALT.                  *
      552                            *                                                                      *
      553                            *                                                                      *
      554                            *                                                                      *
      555                            *                                                                      *
      556                            *                                                                      *
      557                            *                                                                      *
      558                            *                                                                      *
      559                            *                                                                      *
      560                            *                                                                      *
      561                            *                                                                      *
      562                            *                        ****************                              *
      563                            *                        *              *                              *
      564                            *                        *  FAULT INDEX *                              *
      565                            *                        *              *                              *
      566                            *                        ****************                              *
      567                            *                                                                      *
      568                            * FAULT INDEX DESCRIPTION -FUNCTIONAL SUBTESTS                         *
      569                            * --------------------------------------------                         *
      570                            * THE FAULT INDEX CONTAINS A LIST OF ERROR NUMBERS AND A BRIEF         *
      571                            * DESCRIPTION OF EACH ERROR. THE NUMBERS ARE ARRANGED IN ASCENDING     *
      572                            * SEQUENCE. ALL NUMBERS REFER TO ERRORS IN THE FUNCTIONAL SUBTESTS.    *
      573                            * THE FIRST TWO DIGITS ARE USED TO IDENTIFY THE SUBTEST. THE LAST      *
      574                            * TWO DIGITS REFER TO INDIVIDUAL ERRORS WITHIN THE SUBTEST. THE        *
      575                            * DELAY SUBROUTINE AND TIMEOUT SUBROUTINES HAVE MESSAGE PRINTOUTS.     *
      576                            *                                                                      *
      577                            * FUNCTIONAL SUBTEST DESCRIPTION                                       *
      578                            * ------------------------------                                       *
      579                            * EACH MESSAGE CONSISTS OF TWO PARTS. THE ERROR NUMBER REFERS TO       *
      580                            * AN ENTRY IN THE FAULT INDEX, THE LOCATION NUMBER REFERS TO THE MEMORY*
      581                            * LOCATION IN THE LISTING (ONLY IF THE PROGRAM IS NOT RELOCATED) WHERE *
      582                            * THE ERROR OCCURRED. THE LOCATION NUMBER IS INTENDED TO BE USED TO    *
      583                            * LOCATE A FUNCTIONAL SUBTEST IN THE LISTING. PRECEDING EACH FUNCTIONAL*
      584                            * SUBTEST IS A BRIEF DESCRIPTION OF THE TEST. THE DESCRIPTION OF THE   *
      585                            * ERROR NUMBER AND THE DESCRIPTION OF THE SUBTEST SHOULD BE SUFFICIENT *
      586                            * TO DEFINE THE CURRENT OPERATION AND THE NATURE OF THE FAILURE.       *
      587                            * ADDITIONAL INFORMATION ABOUT THE ERROR CAN BE FOUND IN THE COMMENT   *
      588                            * FIELD OF THE LISTING.                                                *
      589                            *                                                                      *
      590                            * DESCRIPTIVE ERROR MESSAGES                                           *
      591                            * ---------------------------                                          *
      592                            * ERROR NUMBERS CAN BE PRECEDED BY DESCRIPTIVE MESSAGES WHICH WILL     *
      593                            * AID IN THE ISOLATION OF FAILURES.                                    *
      594                            *                                                                      *
      595                            *                                                                      *
      596                            *                                                                      *
      597                            *                                                                      *
      598                            *0101  AIO CONDITION CODE ERROR. NO INTERRUPT RECOGNITION EXPECTED.    *
      599                            *      AIO, HIO, TIO, TDV TEST                                         *
      600                            *                                                                      *
      601                            *0102  HIO CONDITION CODE OR STATUS ERROR. SEE PRINTOUT.               *
      602                            *      AIO, HIO, TIO, TDV TEST                                         *
      603                            *                                                                      *
      604                            *0103  TIO CONDITION CODE OR STATUS ERROR. SEE PRINTOUT.               *
      605                            *      AIO, HIO, TIO, TDV TEST                                         *
      606                            *                                                                      *
      607                            *0104  TDV CONDITION CODE OR STATUS ERROR. SEE PRINTOUT.               *
      608                            *      AIO, HIO, TIO, TDV TEST                                         *
      609                            *                                                                      *
      610                            *0201  SIO FOR INVALID ORDER NOT ACCEPTED. CONDITION CODE ERROR        *
      611                            *      INVALID ORDER TEST                                              *
      612                            *                                                                      *
      613                            *0202  SIO FOR INVALID ORDER STATUS ERROR. UE AND NO                   *
      614                            *      INTERRUPT PENDING EXPECTED. (READ BACKWARD)                     *
      615                            *      INVALID ORDER TEST                                              *
      616                            *                                                                      *
      617                            *0203  HIO DID NOT RESET INTERRUPT PENDING BIT IN STSTUS               *
      618                            *      INVALID ORDER TEST                                              *
      619                            *                                                                      *
      620                            *0204  SIO FOR INVALID ORDER NOT ACCEPTED, CONDITION CODE ERROR        *
      621                            *      INVALID ORDER TEST                                              *
      622                            *                                                                      *
      623                            *0205  SIO FOR INVALID ORDER STATUS ERROR. UE AND NO                   *
      624                            *      INTERRUPT PENDING EXPECTED (SET CORRECTION).                    %
      625                            *      INVALID ORDER TEST                                              *
      626                            *                                                                      *
      627                            *0301  SIO CONDITION CODE ERROR ON SET ERASE.                          *
      628                            *      ERASE ORDER TEST                                                *
      629                            *                                                                      *
      630                            *0302  TIO STATUS ERROR ON SET ERASE. NO UE OR BYTE COUNT REDUCTION ARE*
      631                            *      EXPECTED. NO DATA PHASES EXECUTED.                              *
      632                            *      ERASE ORDER TEST                                                *
      633                            *                                                                      *
      634                            *0701  SIO FOR INVALID ORDER CONDITION CODE ERROR. (READ BKW, UE SET)  *
      635                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      636                            *                                                                      *
      637                            *0702  NO UE INTERRUPT ON INVALID READ BACKWARD WITH UE SET.           *
      638                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      639                            *                                                                      *
      640                            *0703  NO UE SET ON AIO AFTER INVALID ORDER OR INT PENDING NOT RESET   *
      641                            *      AFTER AIO.                                                      *
      642                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      643                            *                                                                      *
      644                            *0704  SIO FOR SET ERASE CONDITION CODE ERROR. (ERASE, CE SET)         *
      645                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      646                            *                                                                      *
      647                            *0705  NO CE INTERRUPT ON ERASE WITH CE SET.                           *
      648                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      649                            *                                                                      *
      650                            *0706  NO INTERRUPT PENDING SET AFTER HIO FOLLOWING THE ERASE ORDER.   *
      651                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      652                            *                                                                      *
      653                            *0710  HIO STATUS RESPONSE ERROR FOLLOWING AIO-UE OR IP SHOULD         *
      654                            *      NOT BE SET.                                                     *
      655                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      656                            *                                                                      *
      657                            *0711  TIO STATUS RESPONSE ERROR FOLLOWING HIO. IP SHOULD NOT BE SET.  *
      658                            *      INTERRUPT ON UE,CE,AND AIO TEST                                 *
      659                            *                                                                      *
      660                            *0801  TIO STATUS RESPONSE ERROR AFTER AN INVALID ORDER. IP AND UE     *
      661                            *      SHOULD BE SET. (READ BKW, UE SET WITH INT DISARMED)             *
      662                            *      I/O INTERRUPT TEST                                              *
      663                            *                                                                      *
      664                            *0802  TIO STATUS RESPONSE ERROR AFTER INTERRUPT ARMED AND DISABLED.   *
      665                            *      I/O INTERRUPT TEST                                              *
      666                            *                                                                      *
      667                            *0803  NO INTERRUPT RECEIVED ON INVALID ORDER WITH UE SET AFTER        *
      668                            *      INTERRUPT ARMED AND ENABLED.                                    *
      669                            *      I/O INTERRUPT TEST                                              *
      670                            *                                                                      *
      671                            *0901  SIO CONDITION CODE ERROR ON COMMAND CHAINING ORDER (ERASE       *
      672                            *      READ BACKWARD)                                                  *
      673                            *      COMMAND CHAINING TEST                                           *
      674                            *                                                                      *
      675                            *0902  NO INTERRUPT ON COMMAND CHAINING ERASE, READ BACKWARD.          *
      676                            *      COMMAND CHAINING TEST                                           *
      677                            *                                                                      *
      678                            *0903  THE LAST DOUBLE WORD ADDRESS IS INCORRECT ON COMMAND CHAINING.  *
      679                            *      THE ADDRESS SHOULD BE READ BACKWARD.                            *
      680                            *      COMMAND CHAINING TEST                                           *
      681                            *                                                                      *
      682                            *0904  SIO CONDITION CODE ON COMMAND CHAINING ORDER. (READ BKW,SENSE)  *
      683                            *      COMMAND CHAINING TEST                                           *
      684                            *                                                                      *
      685                            *0905  NO INTERRUPT RECEIVED ON COMMAND CHAINING READ BKW, ERASE.      *
      686                            *      COMMAND CHAINING TEST                                           *
      687                            *                                                                      *
      688                            * 0906 THE LAST DOUBLE WORD ADDRESS IS INCORRECT ON COMMAND CHAINING.  *
      689                            *      THE ADDRESS SHOULD BE READ BACKWARD.                            *
      690                            *      COMMAND CHAINING TEST                                           *
      691                            *                                                                      *
      692                            * 1101 TDV STATUS ERROR AFTER REWIND ON LINE. NO LOAD POINT BIT SET.   *
      693                            *      REWIND TEST                                                     *
      694                            *                                                                      *
      695                            * 1102 TIO STATUS ERROR AFTER REWIND AND INTERRUPT. NO INTER PEND SET. *
      696                            *      REWIND TEST                                                     *
      697                            *                                                                      *
      698                            * 1103 TIO STATUS ERROR AFTER HIO ON REWIND WITH INTERRUPT.            *
      699                            *      REWIND TEST                                                     *
      700                            *                                                                      *
      701                            * 1104 TIO STATUS ERROR AFTER REWIND WITH INTERRUPT. INTER PEND NOT SET*
      702                            *      REWIND TEST                                                     *
      703                            *                                                                      *
      704                            * 1105 AIO STATUS ERROR AFTER REWIND WITH INTERRUPT. DEVICE END NOT SET*
      705                            *      REWIND TEST                                                     *
      706                            *                                                                      *
      707                            * 1106 TIO STATUS ERROR AFTER AIO. INTERRUPT PENDING NOT RESET.        *
      708                            *      REWIND TEST                                                     *
      709                            *                                                                      *
      710                            * 1107 TDV STATUS ERROR AFTER REWIND WITH INTERRUPT. NO LOAD POINT SET.*
      711                            *      REWIND TEST                                                     *
      712                            *                                                                      *
      713                            * 1203 NO INTERRUPT ON SPACE BACKWARD AT LOAD POINT. (BC =2)           *
      714                            *      READ, SPACE RECORD, AND SPACE FILE BACKWARD FROM BOT TEST       *
      715                            *                                                                      *
      716                            * 1204 TIO  OR TDV STATUS ERROR ON SPACE BKW AT LOAD POINT. UE, LOAD   *
      717                            *      POINT, AND BC =2 EXPECTED.                                      *
      718                            *      READ, SPACE RECORD, AND SPACE FILE BACKWARD FROM BOT TEST       *
      719                            *                                                                      *
      720                            * 1205 NO INTERRUPT RECEIVED ON SPACE FILE BACKWARD AT LOAD POINT.     *
      721                            *      READ, SPACE RECORD, AND SPACE FILE BACKWARD FROM BOT TEST       *
      722                            *                                                                      *
      723                            * 1206 TIO  OR TDV STATUS ERROR ON SPACE FILE BKW AT LOAD POINT. UE,   *
      724                            *      LOAD POINT, AND NO EOF EXPECTED.                                *
      725                            *      READ, SPACE RECORD, AND SPACE FILE BACKWARD FROM BOT TEST       *
      726                            *                                                                      *
      727                            * 1301 NO INTERRUPT ON WRITE TAPE MARK AT LOAD POINT. (CE AND BC =2 SET*
      728                            *      WRITE TAPE MARK (TAPE MOTION, WRITE,AND READ AFTER WRITE) TEST  *
      729                            *                                                                      *
      730                            * 1302 TIO  OR TDV STATUS ERROR ON WRITE TAPE MARK AT LOAD POINT. EOF  *
      731                            *      AND BC =2 EXPECTED.                                             *
      732                            *      WRITE TAPE MARK (TAPE MOTION, WRITE,AND READ AFTER WRITE) TEST  *
      733                            *                                                                      *
      734                            * 1401 NO INTERRUPT RECEIVED ON WRITE TAPE MARK AFTER REWIND.          *
      735                            *      SPACE RECORD FORWARD TEST (TAPE MOTION AND READ)                *
      736                            *                                                                      *
      737                            * 1402 NO INTERRUPT RECEIVED ON SPACE FORWARD OVER A TAPE MARK AT LOAD *
      738                            *      POINT. (CE AND BC =2 SET)                                       *
      739                            *      SPACE RECORD FORWARD TEST (TAPE MOTION AND READ)                *
      740                            *                                                                      *
      741                            * 1403 BYTE COUNT ON SPACE FWD AT LOAD POINT ERROR. SHOULD BE 2.       *
      742                            *      SPACE RECORD FORWARD TEST (TAPE MOTION AND READ)                *
      743                            *                                                                      *
      744                            * 1404 TIO STATUS ERROR ON SPACE FWD AT LOAD POINT. NO ERROR EXPECTED. *
      745                            *      SPACE RECORD FORWARD TEST (TAPE MOTION AND READ)                *
      746                            *                                                                      *
      747                            * 1501 TIO  OR TDV STATUS ERROR ON WRITE RECORDS 1-64 BYTE LENGTH. NO  *
      748                            *      INCORRECT LENGTH OR UE EXPECTED, BC =00.                        *
      749                            *      WRITE TEST (TAPE MOTION, VARIABLE BC, WRITE, READ AFTER WRITE)  *
      750                            *                                                                      *
      751                            * 1502 NO INTERRUPT RECEIVED ON WRITING 64 BYTES WITH INTERRUPT ON ZBC.*
      752                            *      WRITE TEST (TAPE MOTION, VARIABLE BC, WRITE,READ AFTER WRITE)   *
      753                            *
      754                            * 1503 AIO OR TIO STATUS ERROR ON WRITING 64 BYTES WITH INTERRUPT ON   *
      755                            *      ZBC SET.                                                        *
      756                            *      WRITE TEST (TAPE MOTION, VARIABLE BC, WRITE, READ AFTER WRITE)  *
      757                            *                                                                      *
      758                            * 1601 TIO  OR TDV STATUS ERROR ON WRITING 100 BYTES ALL BITS ON. NO   *
      759                            *      INCORRECT LENGTH OR UE EXPECTED, BC =00.                        *
      760                            *      READ TEST (TAPE MOTION AND READ)                                *
      761                            *                                                                      *
      762                            * 1602 TIO  OR TDV STATUS ERROR ON READ FORWARD 100 BYTES ALL BITS ON  *
      763                            *      WITH BYTE COUNT 1-64. INCORRECT LENGTH AND NO IZC EXPECTED.     *
      764                            *      READ TEST (TAPE MOTION AND READ)                                *
      765                            *                                                                      *
      766                            * 1801 TIO  OR TDV STATUS ERROR ON WRITING 100 BYTES ALL BITS ON. NO   *
      767                            *      INCORRECT LENGTH OR UE EXPECTED, BC =00.                        *
      768                            *      WRITE-READ DATA TEST ( DATA =X'FF')                             *
      769                            *                                                                      *
      770                            * 1901 WRITE, READ FORWARD, OR INFORMATION ERRORS WHEN SATURATING ONE  *
      771                            *      TRACK. 100 RECORDS OF 100 BYTES PATTERN 00,01,02,04,08,10,20    *
      772                            *      WRITE-READ DATA TEST (DATA =X'00'THRU X'20')                    *
      773                            *                                                                      *
      774                            * 2001 ERASE TIME SET TOO LONG. SEE MESSAGE PRINTOUT.                  *
      775                            *      SET ERASE-WRITE TEST                                            *
      776                            *                                                                      *
      777                            * 2002 ERASE TIME SET TOO SHORT. SEE MESSAGE PRINTOUT.                 *
      778                            *      SET ERASE-WRITE TEST                                            *
      779                            *                                                                      *
      780                            * 2003 NO INTERRUPT ON ZERO BYTE COUNT OCCURED WITHIN 9MS.          *A01
      781                            *      SET ERASE-WRITE TEST                                         *A01
      782                            *
      783                            * 2101 TIO OR TDV STATUS ERROR ON WRITING 100 BYTES ALL BITS ON.       *
      784                            *      WRITE-SPACE FORWARD AND BACKWARD TEST                           *
      785                            *                                                                      *
      786                            * 2102 TIO  OR TDV STATUS ERROR ON SPACING FORWARD OVER 100 BYTES AT   *
      787                            *      LOAD POINT                                                      *
      788                            *      WRITE-SPACE FORWARD AND BACKWARD TEST                           *
      789                            *                                                                      *
      790                            * 2103 TIO  OR TDV STATUS ERROR ON SPACING BACKWARD OVER 100 BYTES ONE *
      791                            *      RECORD BEYOND LOAD POINT. NO UE OR LOAD POINT EXPECTED.         *
      792                            *      WRITE-SPACE FORWARD AND BACKWARD TEST                           *
      793                            *                                                                      *
      794                            * 2104 TIO  OR TDV STATUS ERROR ON SPACING BACKWARD ONE RECORD AT LOAD *
      795                            *      POINT. UE AND LOAD POINT EXPECTED.                              *
      796                            *      WRITE-SPACE FORWARD AND BACKWARD TEST                           *
      797                            *                                                                      *
      798                            * 2105 TIO  OR TDV STATUS ERROR ON SPACING FORWARD OVER 100 BYTES ALL  *
      799                            *      BITS ON. NO UE OR ERROR EXPECTED, BC =00.                       *
      800                            *      WRITE-SPACE FORWARD AND BACKWARD TEST                           *
      801                            *                                                                      *
      802                            * 2106 TIO  OR TDV STATUS ERROR ON SPACING BACKWARD OVER 100 BYTES ALL *
      803                            *      BITS ON. NO UE OR ERROR EXPECTED, BC =00.                       *
      804                            *      WRITE-SPACE FORWARD AND BACKWARD TEST                           *
      805                            *                                                                      *
      806                            * 2201 TIO  OR TDV STATUS ERROR ON WRITING A TAPE MARK. TAPE MARK AND  *
      807                            *      NO UE EXPECTED.                                                 *
      808                            *      WRITE TAPE MARK TEST                                            *
      809                            *                                                                      *
      810                            * 2202 TIO OR TDV STATUS ERROR ON SPACING BACKWARD OVER 100 TAPE       *
      811                            *      MARKS. TAPE MARK AND UE EXPECTED.                               *
      812                            *      WRITE TAPE MARK TEST                                            *
      813                            *                                                                      *
      814                            * 2203 TIO OR TDV STATUS ERROR ON READING FORWARD OVER 100 TAPE        *
      815                            *      MARKS. TAPE MARK AND UE EXPECTED.                               *
      816                            *      WRITE TAPE MARK TEST                                            *
      817                            *                                                                      *
      818                            * 2301 TIO  OR TDV STATUS ERROR ON WRITING A TAPE MARK. TAPE MARK AND  *
      819                            *      NO UE EXPECTED.                                                 *
      820                            *      WRITE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      821                            *                                                                      *
      822                            * 2302 TIO  OR TDV STATUS ERROR ON SPACE FILE FORWARD. TAPE MARK AND   *
      823                            *      NO UE EXPECTED.                                                 *
      824                            *      WRITE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      825                            *                                                                      *
      826                            * 2303 TIO  OR TDV STATUS ERROR ON SPACE FILE BACKWARD. TAPE MARK AND  *
      827                            *      NO UE EXPECTED                                                  *
      828                            *      WR TE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      829                            *                                                                      *
      830                            * 2304 TI   OR TDV STATUS ERROR ON SPACE FILE BACKWARD AT LOAD POINT.  *
      831                            *      LO D POINT, TAPE MARK, AND NO UE EXPECTED.                      *
      832                            *      WR TE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      833                            *                                                                      *
      834                            *2305 TIO  OR TDV STATUS ERROR ON WRITING A RECORD 100 BYTES. NO ERROR *
      835                            *      EX ECTED, BC =00.                                               *
      836                            *      WR TE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      837                            *                                                                      *
      838                            * 2306 TIO  OR TDV STATUS ERROR ON WRITING A TAPE MARK. NO ERROR       *
      839                            *      EXPECTED, TAPE MARK.                                            *
      840                            *      WRITE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      841                            *                                                                      *
      842                            * 2307 TIO  OR TDV STATUS ERROR ON SPACING BACKWARD OVER A TAPE MARK.  *
      843                            *      UE AND TAPE MARK EXPECTED.                                      *
      844                            *      WRITE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      845                            *                                                                      *
      846                            * 2308 TIO  OR TDV STATUS ERROR ON SPACING FORWARD OVER A TAPE MARK.   *
      847                            *      UE AND TAPE MARK EXPECTED.                                      *
      848                            *      WRITE TAPE MARK - SPACE FILE AND RECORD, READ TEST              *
      849                            *                                                                      *
      850                            * 2401 TIO OR TDV STATUS ERROR AFTER REWINDING AND WRITING A RECORD    *
      851                            *      OF 27,000 WORDS, LOOPING 10 TIMES. NO ERROR EXPECTED.           *
      852                            *      TAPE LOOP TEST                                                  *
      853                            *                                                                      *
      854                            * 2601 TIO OR TDV STATUS ERROR ON WRITING 96 BYTES ALL BITS ON.        *
      855                            *      NO ERRORS EXPECTED, BC =00, NO INCORRECT LENGTH.                *
      856                            *      INCORRECT LENGTH TEST                                           *
      857                            *                                                                      *
      858                            * 2602 TIO OR TDV STATUS ERROR ON SPACING A RECORD BACKWARD. NO ERROR  *
      859                            *      EXPECTED.                                                       *
      860                            *      INCORRECT LENGTH TEST                                           *
      861                            *                                                                      *
      862                            * 2603 TIO  OR TDV STATUS ERROR ON READING A RECORD FORWARD. NO ERRER  *
      863                            *      EXPECTED, BC =00, NO INCORRECT LENGTH.                          *
      864                            *      INCORRECT LENGTH TEST                                           *
      865                            *                                                                      *
      866                            * 2604 TIO OR TDV STATUS ERROR ON SPACING A 96 BYTE RECORD BACKWARD.   *
      867                            *      NO ERROR EXPECTED.                                              *
      868                            *      INCORRECT LENGTH TEST                                           *
      869                            *                                                                      *
      870                            * 2605 TIO OR TDV STATUS ERROR ON READING A 96 BYTE RECORD FORWARD     *
      871                            *      WITH A BC =95 INCORRECT LENGTH, UE AND BC =00 EXPECTED.         *
      872                            *      INCORRECT LENGTH TEST                                           *
      873                            *                                                                      *
      874                            * 2606 TIO OR TDV STATUS ERROR ON SPACING A 96 BYTE RECORD BACKWARD.   *
      875                            *      NO ERROR EXPECTED.                                              *
      876                            *      INCORRECT LENGTH TEST                                           *
      877                            *                                                                      *
      878                            * 2607 TIO OR TDV STATUS ERROR ON READING A 96 BYTE RECORD FORWARD     *
      879                            *      WITH SUPPRESS INC LENGTH,BC=97. INC LENGTH BC=1, NO UE EXPECTED.*
      880                            *      INCORRECT LENGTH TEST                                           *
      881                            *                                                                      *
      882                            * 2608 TIO OR TDV STATUS ERROR ON SPACING BKW OVER RECORD. NO UE       *
      883                            *      EXPECTED.                                                       *
      884                            *      INCORRECT LENGTH TEST                                           *
      885                            *                                                                      *
      886                            * 2609 TIO OR TDV STATUS ERROR ON READING FORWARD A 96 BYTE RECORD     *
      887                            *      WITH SUPPRESS INC LENGTH, BC=95. INC LENGTH, BC=0,NO UE EXPECTED*
      888                            *      INCORRECT LENGTH TEST                                           *
      889                            *                                                                      *
      890                            * 2701 TIO OR TDV STATUS ERROR ON WRITING 2 BYTES DATA CHAIN 94. NO    *
      891                            *      ERRORS EXPECTED, BC =00.                                        *
      892                            *      DATA CHAINING TEST                                              *
      893                            *                                                                      *
      894                            * 2702 TIO OR TDV STATUS ERROR ON SPACING BACKWARD OVER RECORD (2 BYTES*
      895                            *      DATA CHAIN 94). NO ERROR EXPECTED.                              *
      896                            *      DATA CHAINING TEST                                              *
      897                            *                                                                      *
      898                            * 2704 TIO  OR TDV STATUS ERRORS ON READING FORWARD 48 BYTES DATA CHAIN*
      899                            *      48 BYTES. NO ERROR EXPECTED, BC =00.                            *
      900                            *      DATA CHAINING TEST                                              *
      901                            *                                                                      *
      902                            * 2705 INFORMATION ERROR ON READING A RECORD FWD 48 BYTES DATA CHAIN 48*
      903                            *      DATA CHAINING TEST                                              *
      904                            *                                                                      *
      905                            * 2801 TIO  OR TDV STATUS ERROR WHEN WRITING FROM WA, WA+1 BYTE,       *
      906                            *      WA+2 BYTES, WA+3 BYTES.                                         *
      907                            *      BYTE BOUNDARY TEST                                              *
      908                            *                                                                      *
      909                            * 2802 TIO OR TDV STATUS ERROR ON SPACING BACKWARD. NO ERROR EXPECTED  *
      910                            *      BYTE BOUNDARY TEST                                              *
      911                            *                                                                      *
      912                            * 2804 TIO  OR TDV STATUS ERROR WHEN READING FWD INTO WA,WA+1 BYTE,    *
      913                            *      WA+2 BYTES, WA+3 BYTES.                                         *
      914                            *      BYTE BOUNDARY TEST                                              *
      915                            *                                                                      *
      916                            * 2805 INFORMATION ERROR WHEN READING FWD INTO WA, WA+1 BYTE, WA+2     *
      917                            *      BYTES, WA+3 BYTES.                                              *
      918                            *      BYTE BOUNDARY TEST                                              *
      919                            *                                                                      *
      920                            * 2806 TIO  OR TDV STATUS ERROR ON WRITING A RECORD 4,16,32,64,...     *
      921                            *      BYTES IN LENGTH.                                                *
      922                            *      BYTE BOUNDARY TEST                                              *
      923                            *                                                                      *
      924                            * 2807 TIO OR TDV STATUS ERROR ON SPACING BKW OVER 4,16,32,64,128...   *
      925                            *      BYTES IN LENGTH.                                                *
      926                            *      BYTE BOUNDARY TEST                                              *
      927                            *                                                                      *
      928                            * 2809 TIO  OR TDV STATUS ERROR ON READING A RECORD FWD 4,16,32,64...  *
      929                            *      BYTES IN LENGTH.                                                *
      930                            *      BYTE BOUNDARY TEST                                              *
      931                            *                                                                      *
      932                            * 2810 INFORMATION ERROR ON READING FORWARD 4,16,32,64... BYTES.       *
      933                            *      BYTE BOUNDARY TEST                                              *
      934                            *                                                                      *
      935                            * 2901 TIO OR TDV STATUS ERROR WHEN WRITING THE BCD CHARACTER SET. NO  *
      936                            *      ERROR EXPECTED.                                                 *
      937                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      938                            *                                                                      *
      939                            * 2902 TIO OR TDV STATUS ERROR WHEN SPACING BACKWARD OVER BCD RECORD.  *
      940                            *      NO ERROR EXPECTED.                                              *
      941                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      942                            *                                                                      *
      943                            * 2903 TIO OR TDV STATUS ERROR WHEN READING THE BCD CHARACTER SET.     *
      944                            *      NO ERROR EXPECTED.                                              *
      945                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      946                            *                                                                      *
      947                            * 2904 INFORMATION ERROR ON THE BCD CHARACTER SET RECORD.              *
      948                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      949                            *                                                                      *
      950                            * 2905 TIO OR TDV STATUS ERROR WHEN SPACING OVER THE BCD CHARACTER SET.*
      951                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      952                            *                                                                      *
      953                            * 2906 TIO OR TDV STATUS ERROR WHEN READING THE BCD CHARACTER SET      *
      954                            *      WITHOUT TRANSLATION. TRANSMISSION ERRORS EXPECTED               *
      955                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      956                            *                                                                      *
      957                            * 2907 INFORMATION ERROR ON BCD RECORD READ WITHOUT TRANSLATION.       *
      958                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      959                            *                                                                      *
      960                            * 2908 TIO OR TDV ERROR WHEN WRITING A 4 BYTE RECORD CHECKING ZERO     *
      961                            *      TRANSLATION. NO ERROR EXPECTED.                                 *
      962                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      963                            *                                                                      *
      964                            * 2909 TIO OR TDV ERROR WHEN SPACING BKW OVER ZERO TRANSLATION RECORD. *
      965                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      966                            *                                                                      *
      967                            * 2911 TIO OR TDV ERROR WHEN READING 4 BYTE ZERO TRANSLATION RECORD.   *
      968                            *      NO ERROR EXPECTED.                                              *
      969                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      970                            *                                                                      *
      971                            * 2912 INFORMATION ERROR ON ZERO TRANSLATION RECORD. INFORMATION       *
      972                            *      EXPECTED X'F0F0F0F0'.                                           *
      973                            *      DECIMAL (BCD) MODE DATA TEST                                    *
      974                            *                                                                      *
      975                            * 3001 TIO OR TDV STATUS ERROR WHEN WRITING A BINARY RECORD X'00'-X'3F'*
      976                            *      BINARY MODE DATA TEST                                           *
      977                            *                                                                      *
      978                            * 3002 TIO OR TDV STATUS ERROR WHEN SPACING BKW OVER BINARY RECORD.    *
      979                            *      BINARY MODE DATA TEST                                           *
      980                            *                                                                      *
      981                            * 3003 TIO OR TDV STATUS ERROR WHEN READING A BINARY RECORD X'00'-X'3F'*
      982                            *      BINARY MODE DATA TEST                                           *
      983                            *                                                                      *
      984                            * 3004 INFORMATION ERROR ON READING BINARY RECORD X'00'-X'3F'.         *
      985                            *      BINARY MODE DATA TEST                                           *
      986                            *                                                                      *
      987                            * 3005 TIO OR TDV STATUS ERROR SPACING BKW OVER BINARY RECORD.         *
      988                            *      BINARY MODE DATA TEST                                           *
      989                            *                                                                      *
      990                            * 3006 TIO OR TDV STATUS ERROR WHEN READING BINARY RECORD WITH BCD.    *
      991                            *      TRANSMISSION ERROR EXPECTED.                                    *
      992                            *      BINARY MODE DATA TEST                                           *
      993                            *                                                                      *
      994                            * 3007 INFORMATION ERROR WHEN READING BINARY RECORD WITH BCD.          *
      995                            *      BINARY MODE DATA TEST                                           *
      996                            *                                                                      *
      997                            * 3101 TIO OR TDV  STATUS ERROR WHEN WRITING A PACKED BINARY RECORD    *
      998                            *      X'00'-X'FF'. NO ERROR EXPECTED.                                 *
      999                            *      PACKED BINARY DATA TEST                                         *
     1000                            *                                                                      *
     1001                            * 3102 TIO OR TDV STATUS ERROR WHEN SPACING BKW OVER A PACKED BINARY   *
     1002                            *      RECORD X'00'-X'FF'.                                             *
     1003                            *      PACKED BINARY DATA TEST                                         *
     1004                            *                                                                      *
     1005                            * 3103 TIO OR TDV STATUS ERROR WHEN READING A PACKED BINARY RECORD     *
     1006                            *      X'00'-X'FF'.                                                    *
     1007                            *      PACKED BINARY DATUS TEST                                        *
     1008                            *                                                                      *
     1009                            * 3104 INFORMATION ERROR WHEN READING A PACKED BINARY RECORD.          *
     1010                            *      PACKED BINARY DATA TEST                                         *
     1011                            *                                                                      *
     1012                            * 3105 TIO OR TDV STATUS ERROR WRITING PACKED BINARY RECORD OF  6,7,8  *
     1013                            *      BYTES TO TEST THE PACKED BINARY END CONDITION.                  *
     1014                            *      PACKED BINARY DATA TEST                                         *
     1015                            *                                                                      *
     1016                            * 3106 TIO OR TDV STATUS ERROR WHEN SPACING BKW OVER PACKED BINARY REC.*
     1017                            *      PACKED BINARY DATA TEST                                         *
     1018                            *                                                                      *
     1019                            * 3107 TIO OR TDV STATUS ERROR READING A PACKED BINARY RECORD OF 6,8,9 *
     1020                            *      BYTES TO TEST THE END CONDITION.                                *
     1021                            *      PACKED BINARY DATA TEST                                         *
     1022                            *                                                                      *
     1023                            * 3108 INFORMATION ERROR ON PACKED BINARY RECORD CHECKING END CONDITION*
     1024                            *      PACKED BINARY DATA TEST                                         *
     1025                            *                                                                      *
     1026                            * 3201 TIO OR TDV STATUS ERROR WRITING A PACKED BINARY RECORD TO SET   *
     1027                            *      ONE BIT AT A TIME IN THE LRC CHARACTER                          *
     1028                            *      LRC TEST                                                        *
     1029                            *                                                                      *
     1030                            * 3202 TIO OR TDV STATUS ERROR SPACING BKW OVER PACKED BINARY RECORD.  *
     1031                            *      LRC TEST                                                        *
     1032                            *                                                                      *
     1033                            * 3203 TIO OR TDV STATUS ERROR READING A PACKED BINARY RECORD TO SET   *
     1034                            *      ONE BIT AT A TIME IN THE LRC CHARACTER.                         *
     1035                            *      LRC TEST                                                        *
     1036                            *                                                                      *
     1037                            * 3204 INFORMATION ERROR ON PACKED BINARY RECORD THAT SETS A BIT AT A  *
     1038                            *      TIME IN THE LRC CHARACTER.                                      *
     1039                            *      LRC TEST                                                        *
     1040                            *                                                                      *
     1041                            * 3205 TIO OR TDV STATUS ERROR WRITING A BINARY RECORD TO SET ONE BIT  *
     1042                            *      AT A TIME IN THE LRC CHARACTER.                                 *
     1043                            *      LRC TEST                                                        *
     1044                            *                                                                      *
     1045                            * 3206 TIO OR TDV STATUS ERROR SPACING BACKWARD OVER A BINARY RECORD.  *
     1046                            *      LRC TEST                                                        *
     1047                            *                                                                      *
     1048                            * 3207 TIO OR TDV STATUS ERROR READING A BINARY RECORD TO SET ONE BIT  *
     1049                            *      AT A TIME IN THE LRC CHARACTER.                                 *
     1050                            *      LRC TEST                                                        *
     1051                            *                                                                      *
     1052                            * 3208 INFORMATION ERROR ON BINARY RECORD THAT SETS A BIT IN THE LRC.  *
     1053                            *      LRC TEST                                                        *
     1054                            *                                                                      *
     1055                            * 3209 TIO OR TDV STATUS ERROR WRITING A BCD RECORD WITH A BLANK LRC,  *
     1056                            *      THEN SETS A PARTICULAR BIT AND THE PARITY BIT IN THE LRC CHAR.  *
     1057                            *      LRC TEST                                                        *
     1058                            *                                                                      *
     1059                            * 3210 TIO OR TDV STATUS ERROR SPACING BKW OVER BCD RECORD.            *
     1060                            *      LRC TEST                                                        *
     1061                            *                                                                      *
     1062                            * 3211 TIO OR TDV STATUS ERROR READING THE BCD RECORD WITH A BLANK LRC,*
     1063                            *      THEN SETS A PARTICULAR BIT AND THE PARITY BIT IN THE LRC CHAR.  *
     1064                            *      LRC TEST                                                        *
     1065                            *                                                                      *
     1066                            * 3212 INFORMATION ERROR READING A BCD RECORD WITH A BLANK LRC, AND    *
     1067                            *      PARTICULAR BITS IN THE LRC CHARACTER.                           *
     1068                            *      LRC TEST                                                        *
     1069                            *                                                                      *
     1070                            * 3301 TIO OR TDV STATUS ERROR ON WRITING AN INCREMENTED RECORD WITH   *
     1071                            *      SATURATED TRACKS AND NOISE PATTERN.                             *
     1072                            *      DATA TEST                                                       *
     1073                            *                                                                      *
     1074                            * 3302 TIO OR TDV STATUS ERROR ON SPACE BACKWARD OVER AN INCREMENTED   *
     1075                            *      RECORD WITH SATURATED TRACKS AND NOISE PATTERNS.                *
     1076                            *      DATA TEST                                                       *
     1077                            *                                                                      *
     1078                            * 3303 TIO OR TDV STATUS ERROR ON READING FORWARD AN INCREMENTED       *
     1079                            *      RECORD WITH SATURATED TRACKS AND NOISE PATTERNS.                *
     1080                            *      DATA TEST                                                       *
     1081                            *                                                                      *
     1082                            * 3304 INFORMATION ERROR ON READING FORWARD AN INCREMENTED RECORD      *
     1083                            *      WITH SATURATED TRACKS AND NOISE PATTERNS.                       *
     1084                            *      DATA TEST                                                       *
     1085                            *                                                                      *
     1086                            * 3401 TIO ERROR.  DEVICE SHOULD BE BUSY WHILE WRITING 1000 BYTES.     *
     1087                            *      READY/BUSY TEST                                                 *
     1088                            *                                                                      *
     1089                            * 3402 NO INTERRUPT RECEIVED AFTER WRITING 1000 BYTES.                 *
     1090                            *      READY/BUSY TEST                                                 *
     1091                            *                                                                      *
     1092                            * 3403 TIO  OR TDV STATUS ERROR ON WRITING A 1000 BYTE RECORD.         *
     1093                            *      READY/BUSY TEST                                                 *
     1094                            *                                                                      *
     1095                            * 3404 TIO ERROR. CONTROLER SHOULD BE BUSY WHILE READING 1000 BYTES.   *
     1096                            *      READY/BUSY TEST                                                 *
     1097                            *                                                                      *
     1098                            * 3405 NO INTERRUPT RECEIVED AFTER READING A RECORD BKW WITH 1000 BYTES*
     1099                            *      READY/BUSY TEST                                                 *
     1100                            *                                                                      *
     1101                            * 3406 SIO ERROR. CONTROLLER SHOULD BE BUSY ON INITIATING REWIND       *
     1102                            *      READY/BUSY TEST                                                 *
     1103                            *                                                                      *
     1104                            * 3407 TIO ERROR. DEVICE SHOULD BE BUSY ON REWINDING.                  *
     1105                            *      READY/BUSY TEST                                                 *
     1106                            *                                                                      *
     1107                            * 3501 TIO OR TDV STATUS ERROR ON WRITING A 96 BYTE RECORD.            *
     1108                            *      TAPE CREEP TEST                                                 *
     1109                            *                                                                      *
     1110                            * 3502 TIO OR TDV STATUS ERROR WHEN WRITING A 12 BYTE RECORD           *
     1111                            *      TAPE CREEP TEST                                                 *
     1112                            *                                                                      *
     1113                            * 3503 TIO OR TDV STATUS ERROR WHEN WRITING A 12 BYTE RECORD.          *
     1114                            *      TAPE CREEP TEST                                                 *
     1115                            *                                                                      *
     1116                            * 3504 TIO OR TDV STATUS ERROR WHEN SPACING BACKWARD OVER A 12 BYTE REC*
     1117                            *      TAPE CREEP TEST                                                 *
     1118                            *                                                                      *
     1119                            * 3505 TIO OR TDV STATUS ERROR SPACING BACKWARD OVER 96 BYTES.         *
     1120                            *      TAPE CREEP TEST                                                 *
     1121                            *                                                                      *
     1122                            * 3506 TIO OR TDV STATUS ERROR READING A 96 BYTE RECORD.               *
     1123                            *      TAPE CREEP TEST                                                 *
     1124                            *                                                                      *
     1125                            * 3507 INFORMATION ERROR READING A 96 BYTE RECORD.                     *
     1126                            *      TAPE CREEP TEST                                                 *
     1127                            *                                                                      *
     1128                            * 3508 TAPE CREEP TOLERANCE EXCEEDED IN THE TAPE CREEP TEST.           *
     1129                            *      TAPE CREEP TEST                                                 *
     1130                            *                                                                      *
     1131                            * 3509 TAPE CREEP NEGATIVE IN THE TAPE CREEP TEST.                     *
     1132                            *      TAPE CREEP TEST                                                 *
     1133                            *                                                                      *
     1134                            * 3601 THE ERASE ORDER DID NOT REMOVE THE CORRECT NUMBER OF RECORDS *A01
     1135                            *      WHEN VERIFYING THE ERASE ORDER.                              *A01
     1136                            *      ERASE VERIFICATION TEST.                                     *A01
     1137                            *
     1138                            * 3701 TIO OR TDV STATUS ERROR WRITING 12 BYTES IN THE I.R.G. TEST.    *
     1139                            *      GAP LENGTH TIMING TEST                                          *
     1140                            *                                                                      *
     1141                            * 3702 TIO OR TDV STATUS ERROR ON SPACING BACKWARD OVER 12 BYTES.      *
     1142                            *      GAP LENGTH TIMING TEST                                          *
     1143                            *                                                                      *
     1144                            * 3703 TIO OR TDV STATUS ERROR WRITING 12 BYTES IN THE I.R.G. TEST.    *
     1145                            *      GAP LENGTH TIMING TEST                                          *
     1146                            *                                                                      *
     1147                            * 3704 TIO OR TDV STATUS ERROR ON SPACING BACKWARD OVER 12 BYTES.      *
     1148                            *      GAP LENGTH TIMING TEST                                          *
     1149                            *                                                                      *
     1150                            * 3705 I.R.G. TIME IS INCORRECT. SEE PRINTOUT.                         *
     1151                            *      GAP LENGTH TIMING TEST                                          *
     1152                            *                                                                      *
     1153                            * 3801 TIO  OR TDV ERROR WRITING 1000 BYTES IN THE END OF TAPE TEST.   *
     1154                            *      END OF TAPE TEST                                                *
     1155                            *                                                                      *
     1156                            * 3802 TIO  OR TDV ERROR WRITING 1000 BYTES BEYOND EOT INDICATION.     *
     1157                            *      END OF TAPE FLAG SHOULD BE SET.                                 *
     1158                            *      END OF TAPE TEST                                                *
     1159                            *                                                                      *
     1160                            * 3803 TIO OR TDV STATUS ERROR SPACING BACKWARD OVER 1000 BYTES AT EOT.*
     1161                            *      EOT FLAG SHOULD BE SET.                                         *
     1162                            *      END OF TAPE TEST                                                *
     1163                            *                                                                      *
     1164                            * 3804 TIO OR TDV STATUS ERROR SPACING BKW OVER 1000 BYTES NEAR EOT.   *
     1165                            *      EOT FLAG SHOULD BE RESET.                                       *
     1166                            *      END OF TAPE TEST                                                *
     1167                            *                                                                      *
     1168                            * 4001 STATUS ERROR ON WRITING A RECORD DESIGNATING UNIT 0,1,2,3,4,5,6,7
     1169                            *      OPERATOR CONTROL PANEL TEST                                     *
     1170                            *                                                                      *
     1171                            * 4002 STATUS ERROR SPACING BKW WITH UNIT DESIGNATION 1,2,3,4,5,6,7.   *
     1172                            *      OPERATOR CONTROL PANEL TEST                                     *
     1173                            *                                                                      *
     1174                            * 4004 STATUS ERROR ON READING FWD WITH DESIGNATION UNIT 0,1,2,3,4,5,6,7
     1175                            *      OPERATOR CONTROL PANEL TEST                                     *
     1176                            *                                                                      *
     1177                            * 4005 INFORMATION ERROR READING FWD RECORD FROM UNIT 0,1,2,3,4,5,6,7. *
     1178                            *      OPERATOR CONTROL PANEL TEST                                     *
     1179                            *                                                                      *
     1180                            * 4006 STATUS ERROR WHEN TRYING TO WRITE ON A UNIT WITH THE WRITE RING *
     1181                            *      REMOVED. A WRITE PROTECT IS EXPECTED.                           *
     1182                            *      OPERATOR CONTROL PANEL TEST                                     *
     1183                            *                                                                      *
     1184                            * 4007 STATUS ERROR WHEN TRYING TO WRITE A TAPE MARK WITH THE WRITE    *
     1185                            *      RING REMOVED. A WRITE PROTECT IS EXPECTED.                      *
     1186                            *      OPERATOR CONTROL PANEL TEST                                     *
     1187                            *                                                                      *
     1188                            * 4008 NO INTERRUPT WAS RECEIVED WHEN THE ATTENTION BUTTON WAS SET     *
     1189                            *      BY THE OPERATOR.                                                *
     1190                            *      OPERATOR CONTROL PANEL TEST                                     *
     1191                            *                                                                      *
     1192                            * 4009 STATUS ERROR ON REWIND AND PUT OFF LINE. THE DEVICE SHOULD BE   *
     1193                            *      MANUAL AND THE CONTROLLER READY.                                *
     1194                            *      OPERATOR CONTROL PANEL TEST                                     *
     1195                            *                                                                      *
     1196                            * 4010 TDV STATUS INCORRECT. LOAD POINT AND READY EXPECTED.            *
     1197                            *      OPERATOR CONTROL PANEL TEST                                     *
     1198                            *                                                                      *
     1199                            * 4013 THE DENSITY DIAL IS SET INCORRECTLY OR THE ACTUAL DENSITY       *
     1200                            *      OF THE 1000 BYTE RECORD WAS INCORRECT.                          *
     1201                            *      OPERATOR CONTROL PANEL TEST                                     *
     1202                            *                                                                      *
     1203                            * 4014 TIO OR TDV STATUS ERROR ON WRITING A 96 BYTE RECORD WITH THE    *
     1204                            *      DENSITY DIAL SET TO A PARTICULAR DENSITY.                       *
     1205                            *      OPERATOR CONTROL PANEL TEST                                     *
     1206                            *                                                                      *
     1207                            * 4015 TIO OR TDV STATUS ERROR ON SPACING BACKWARD OVER A RECORD WITH  *
     1208                            *      THE DENSITY DIAL SET AT A PARTICULAR DENSITY.                   *
     1209                            *      OPERATOR CONTROL PANEL TEST                                     *
     1210                            *                                                                      *
     1211                            * 4016 TIO OF TDV STATUS ERROR READING 96 BYTES WITH THE DENSITY DIAL  *
     1212                            *      SET AT A PARTICULAR DENSITY.                                    *
     1213                            *      OPERATOR CONTROL PANEL TEST                                     *
     1214                            *                                                                      *
     1215                            * 4017 INFORMATION ERROR ON THE 96 BYTE RECORD READ WITH THE DENSITY   *
     1216                            *      DIAL SET AT A PARTICULAR DENSITY.                               *
     1217                            *      OPERATOR CONTROL PANEL TEST                                     *
     1218                            *                                                                      *
     1219                            *                                                                      *
     1220                            *                                                                      *
     1221                            *                                                                      *
     1222                            *                                                                      *
     1223                            *                                                                      *
     1224                            *                                                                      *
     1225         00000000           R0       EQU      0
     1226         00000001           R1       EQU      1
     1227         00000002           R2       EQU      2
     1228         00000003           R3       EQU      3
     1229         00000004           R4       EQU      4
     1230         00000005           R5       EQU      5
     1231         00000006           R6       EQU      6
     1232         00000007           R7       EQU      7
     1233         00000008           R8       EQU      8
     1234         00000009           R9       EQU      9
     1235         0000000A           R10      EQU      X'A'
     1236         0000000B           R11      EQU      X'B'
     1237         0000000C           R12      EQU      X'C'
     1238         0000000D           R13      EQU      X'D'
     1239         0000000E           R14      EQU      X'E'
     1240         0000000F           R15      EQU      X'F'
     1241   01 00200                          ORG      X'200'
            01 00200
     1242                            *
     1243                            * PROCEDURE
     1244                            *
     1245                                     OPEN     PAGE              THIS INHIBITS
     1246         00000000           PAGE     CNAME                       PAGE
     1247                                     PROC                         DIRECTIVE
     1248                                     PEND                         TO PERMIT MAX. LINAGE/PAGE
     1249                            *
     1250                            * PROCEDURE
     1251                            *
     1252         00000000           :TSEQ    CNAME
     1253                                     PROC
     1254                            LF       EQU      %
     1255                            I        SET 1
     1256                                     DO       NUM(AF)/4+1
     1257                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
     1258                            I        SET      I+4
     1259                                     FIN
     1260                                     PEND
     1261                            *
     1262                            *
     1263                            *        PROCEDURE
     1264                            *
     1265         00000000           :TSEQEQU CNAME
     1266                                     PROC
     1267                            LF(1)    EQU      AF(1)
     1268                            LF(2)    EQU      AF(1)+1
     1269                            LF(3)    EQU      AF(1)+2
     1270                            LF(4)    EQU      AF(1)+3
     1271                            LF(5)    EQU      AF(1)+4
     1272                            LF(6)    EQU      AF(1)+5
     1273                            LF(7)    EQU      AF(1)+6
     1274                            LF(8)    EQU      AF(1)+7
     1275                                     PEND
     1276                            *                                                                   *B01
     1277                            * PROCEDURE FOR GENERATING NEW OR OLD VERSION OF THIS PROGRAM       *B01
     1278                            *                                                                   *B01
     1279         00000000           WAITPROC CNAME                                                      *B01
     1280                                     PROC                                                       *B01
     1281                                     GOTO,DPM OLD,NEW                                           *B01
     1282                            OLD      SET X                                                      *B01
     1283                            LF       WAIT     %                 OLD VERSION                     *B01
     1284                                     B        %+1                                               *B01
     1285                                     GOTO     WAITPRO1                                          *B01
     1286                            NEW      SET 1                                                      *B01
     1287                            LF       BAL,15   *:MLT+43          NEW VERSION                     *B01
     1288                                     DATA     AF(1)                                             *B01
     1289                            WAITPRO1 PEND                                                       *B01
     1290                            *
     1291                            *  PROCEDURES
     1292                            *  ----------
     1293                            *
     1294                            *  PROCEDURE  FOR GENERATING DICTONARY DOUBLE WORDS
     1295                            *
     1296         00000000           :PROCDIC CNAME
     1297                                     PROC
     1298                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
     1299                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
     1300                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
     1301                                     PEND
     1302                            *
     1303                            *
     1304                            *****************************************************************   *A01
     1305                            ** **************************************************************   *A01
     1306                            ** *                                                                *A01
     1307                            ** *  TO FACILITATE THE TYPING OUT OF CHANGES MADE TO THIS PROGRAM, *A01
     1308                            ** *  A PROCEDURE CALLED BY 'REV' IS USED.                          *A01
     1309                            ** *                                                                *A01
     1310                            ** *                                                                *A01
     1311                            ** *  METHOD:                                                       *A01
     1312                            ** *   1.USE 'REV' AS A COMMAND, IT OPERATES SIMILAR TO A TEXTC     *A01
     1313                            ** *     DIRECTIVE.                                                 *A01
     1314                            ** *   2.A LABEL OF 'REVISION' MUST BE USED WITH THE FIRST CALL     *A01
     1315                            ** *     OF 'REV'.                                                  *A01
     1316                            ** *   3.A LABEL OF 'REVEND' MUST BE USED WITH THE LAST CALL OF     *A01
     1317                            ** *     'REV'.                                                     *A01
     1318                            ** *                                                                *A01
     1319                            ** *                                                                *A01
     1320                            ** *                                                                *A01
     1321                            ** *  WHEN USED CORRECTLY, 'REV' WILL GENERATE ALL OF THE CODE      *A01
     1322                            ** *  NECCESSARY TO TYPE THE REVISION SUMMARY.                      *A01
     1323                            ** *                                                                *A01
     1324                            ** *                                                                *A01
     1325                            ** *  AN EXAMPLE OF THE USE OF 'REV':                               *A01
     1326                            ** *                                                                *A01
     1327                            ** *          CSECT                                                 *A01
     1328                            ** *          ORG   X'(A LOCATION PAST THE LAST LITERAL)'           *A01
     1329                            ** * REVISION REV   'REVISION XXX'                                  *A01
     1330                            ** * REVEND   REV   'NO FUNCTIONAL CHANGES.'                        *A01
     1331                            ** *          USECT (A PREVIOUSLY DEFINED LABEL)                    *A01
     1332                            ** *                                                                *A01
     1333                            ** **************************************************************   *A01
     1334                            *****************************************************************   *A01
     1335                            *                                                                   *A01
     1336         00000000           REVCOUNT SET      0                                                 *A01
     1337         00000000           REVSTART SET      0                                                 *A01
     1338                            *                                                                   *A01
     1339         00000000           REV      CNAME                                                      *A01
     1340                                     PROC                                                       *A01
     1341                                     DO       REVCOUNT=0                                        *A01
     1342                            REVSTART SET      %                                                 *A01
     1343                            LF       RES      1                                                 *A01
     1344                                     FIN                                                        *A01
     1345                            REVCOUNT SET      REVCOUNT+1                                        *A01
     1346                                     DO       SCOR(LF,REVEND)                                   *A01
     1347                                     TEXTC    AF                                                *A01
     1348                                     CODE                                                       *A01
     1349                                     ORG      REVSTART                                          *A01
     1350                                     GEN,32   REVCOUNT                                          *A01
     1351                                     ELSE                                                       *A01
     1352                                     TEXTC    AF                                                *A01
     1353                                     FIN                                                        *A01
     1354                                     PEND                                                       *A01
     1355                            *                                                                   *A01
     1356         00000000           CODE     CNAME                                                      *A01
     1357                                     PROC                                                       *A01
     1358                            REVPRINT LW,3     REVISION                                          *A01
     1359                                     LW,4     =REVISION+1                                       *A01
     1360                                     STW,4    TEXTADR                                           *A01
     1361                            PRINT    BAL,15   *:PRINT                                           *A01
     1362                            TEXTADR  DATA     0                                                 *A01
     1363                                     LB,5     *4                                                *A01
     1364                                     AI,5     4                                                 *A01
     1365                                     SLS,5    -2                                                *A01
     1366                                     AW,4     5                                                 *A01
     1367                                     BDR,3    PRINT-1                                           *A01
     1368                                     LW,4     NOP                                               *A01
     1369                                     STW,4    REVBRNCH                                          *A01
     1370                                     B        *%-1                                              *A01
     1371                            NOP      NOP                                                        *A01
     1372                                     PEND                                                       *A01
     1373                            *                                                                   *A01
     1374                            *                                                                   *A01
     1375                            *                                                                   *A01
     1376   02 00000                          CSECT                                                      *A01
     1377   02 02E00                          ORG      X'2E00'                                           *B01
            02 02E00
     1378   02 02E01    32E3D640 A   REVISION REV 'TO INHIBIT THE PRINTING OF THIS MESSAGE, SET SSW4.'   *A01
            02 02E02    C9D5C8C9 A
            02 02E03    C2C9E340 A
            02 02E04    E3C8C540 A
            02 02E05    D7D9C9D5 A
            02 02E06    E3C9D5C7 A
            02 02E07    40D6C640 A
            02 02E08    E3C8C9E2 A
            02 02E09    40D4C5E2 A
            02 02E0A    E2C1C7C5 A
            02 02E0B    6B40E2C5 A
            02 02E0C    E340E2E2 A
            02 02E0D    E6F44B40 A
     1379   02 02E0E    01404040 A    REV ' '                                                            *A01
     1380   02 02E0F    3AE3C8C5 A    REV 'THE ** SYST ** DIRECTIVE DESCRIBES THE SYSTEM ENVIRONMENT.'   *A01
            02 02E10    405C5C40 A
            02 02E11    E2E8E2E3 A
            02 02E12    405C5C40 A
            02 02E13    C4C9D9C5 A
            02 02E14    C3E3C9E5 A
            02 02E15    C540C4C5 A
            02 02E16    E2C3D9C9 A
            02 02E17    C2C5E240 A
            02 02E18    E3C8C540 A
            02 02E19    E2E8E2E3 A
            02 02E1A    C5D440C5 A
            02 02E1B    D5E5C9D9 A
            02 02E1C    D6D5D4C5 A
            02 02E1D    D5E34B40 A
     1381   02 02E1E    3CC9D5E3 A    REV 'INTERMIXING OF TAPE STATIONS OF 37.5IPS AND 75IPS DURING THE' *A01
            02 02E1F    C5D9D4C9 A
            02 02E20    E7C9D5C7 A
            02 02E21    40D6C640 A
            02 02E22    E3C1D7C5 A
            02 02E23    40E2E3C1 A
            02 02E24    E3C9D6D5 A
            02 02E25    E240D6C6 A
            02 02E26    40F3F74B A
            02 02E27    F5C9D7E2 A
            02 02E28    40C1D5C4 A
            02 02E29    40F7F5C9 A
            02 02E2A    D7E240C4 A
            02 02E2B    E4D9C9D5 A
            02 02E2C    C740E3C8 A
            02 02E2D    C5404040 A
     1382   02 02E2E    31C5E7C5 A    REV 'EXECUTION OF THE FUNCTIONAL TESTS IS NOT ALLOWED.'            *A01
            02 02E2F    C3E4E3C9 A
            02 02E30    D6D540D6 A
            02 02E31    C640E3C8 A
            02 02E32    C540C6E4 A
            02 02E33    D5C3E3C9 A
            02 02E34    D6D5C1D3 A
            02 02E35    40E3C5E2 A
            02 02E36    E3E240C9 A
            02 02E37    E240D5D6 A
            02 02E38    E340C1D3 A
            02 02E39    D3D6E6C5 A
            02 02E3A    C44B4040 A
     1383   02 02E3B    01404040 A    REV ' '                                                            *A01
     1384   02 02E3C    2BC6D6D9 A    REV 'FORMAT: SYST,D1,D2,D3,D4,D5,D6,D7,D8,D9,D10'                  *A01
            02 02E3D    D4C1E37A A
            02 02E3E    40E2E8E2 A
            02 02E3F    E36BC4F1 A
            02 02E40    6BC4F26B A
            02 02E41    C4F36BC4 A
            02 02E42    F46BC4F5 A
            02 02E43    6BC4F66B A
            02 02E44    C4F76BC4 A
            02 02E45    F86BC4F9 A
            02 02E46    6BC4F1F0 A
     1385   02 02E47    01404040 A    REV ' '                                                            *A01
     1386   02 02E48    0BD7C1D9 A    REV 'PARAMETERS:'                                                  *A01
            02 02E49    C1D4C5E3 A
            02 02E4A    C5D9E27A A
     1387   02 02E4B    38404040 A    REV '   D1 DEVICE STATION (7362,7365/37.5IPS 7372,7374/75IPS)'     *A01
            02 02E4C    C4F140C4 A
            02 02E4D    C5E5C9C3 A
            02 02E4E    C540E2E3 A
            02 02E4F    C1E3C9D6 A
            02 02E50    D5404DF7 A
            02 02E51    F3F6F26B A
            02 02E52    F7F3F6F5 A
            02 02E53    61F3F74B A
            02 02E54    F5C9D7E2 A
            02 02E55    40F7F3F7 A
            02 02E56    F26BF7F3 A
            02 02E57    F7F461F7 A
            02 02E58    F5C9D7E2 A
            02 02E59    5D404040 A
     1388   02 02E5A    07404040 A    REV '   D2 0'                                                      *A01
            02 02E5B    C4F240F0 A
     1389   02 02E5C    1A404040 A    REV '   D3 DEVICE ADDRESS (1ST)'                                   *A01
            02 02E5D    C4F340C4 A
            02 02E5E    C5E5C9C3 A
            02 02E5F    C540C1C4 A
            02 02E60    C4D9C5E2 A
            02 02E61    E2404DF1 A
            02 02E62    E2E35D40 A
     1390   02 02E63    1A404040 A    REV '   D4 DEVICE ADDRESS (2ND)'                                   *A01
            02 02E64    C4F440C4 A
            02 02E65    C5E5C9C3 A
            02 02E66    C540C1C4 A
            02 02E67    C4D9C5E2 A
            02 02E68    E2404DF2 A
            02 02E69    D5C45D40 A
     1391   02 02E6A    1A404040 A    REV '   D5 DEVICE ADDRESS (3RD)'                                   *A01
            02 02E6B    C4F540C4 A
            02 02E6C    C5E5C9C3 A
            02 02E6D    C540C1C4 A
            02 02E6E    C4D9C5E2 A
            02 02E6F    E2404DF3 A
            02 02E70    D9C45D40 A
     1392   02 02E71    1A404040 A    REV '   D6 DEVICE ADDRESS (4TH)'                                   *A01
            02 02E72    C4F640C4 A
            02 02E73    C5E5C9C3 A
            02 02E74    C540C1C4 A
            02 02E75    C4D9C5E2 A
            02 02E76    E2404DF4 A
            02 02E77    E3C85D40 A
     1393   02 02E78    1A404040 A    REV '   D7 DEVICE ADDRESS (5TH)'                                   *A01
            02 02E79    C4F740C4 A
            02 02E7A    C5E5C9C3 A
            02 02E7B    C540C1C4 A
            02 02E7C    C4D9C5E2 A
            02 02E7D    E2404DF5 A
            02 02E7E    E3C85D40 A
     1394   02 02E7F    1A404040 A    REV '   D8 DEVICE ADDRESS (6TH)'                                   *A01
            02 02E80    C4F840C4 A
            02 02E81    C5E5C9C3 A
            02 02E82    C540C1C4 A
            02 02E83    C4D9C5E2 A
            02 02E84    E2404DF6 A
            02 02E85    E3C85D40 A
     1395   02 02E86    1A404040 A    REV '   D9 DEVICE ADDRESS (7TH)'                                   *A01
            02 02E87    C4F940C4 A
            02 02E88    C5E5C9C3 A
            02 02E89    C540C1C4 A
            02 02E8A    C4D9C5E2 A
            02 02E8B    E2404DF7 A
            02 02E8C    E3C85D40 A
     1396   02 02E8D    1A4040C4 A    REV '  D10 DEVICE ADDRESS (8TH)'                                   *A01
            02 02E8E    F1F040C4 A
            02 02E8F    C5E5C9C3 A
            02 02E90    C540C1C4 A
            02 02E91    C4D9C5E2 A
            02 02E92    E2404DF8 A
            02 02E93    E3C85D40 A
     1397   02 02E94    01404040 A    REV ' '                                                            *A01
     1398   02 02E95    20C5E7C1 A    REV 'EXAMPLE 1.  SYST,7372,0,81,83,87'                             *A01
            02 02E96    D4D7D3C5 A
            02 02E97    40F14B40 A
            02 02E98    40E2E8E2 A
            02 02E99    E36BF7F3 A
            02 02E9A    F7F26BF0 A
            02 02E9B    6BF8F16B A
            02 02E9C    F8F36BF8 A
            02 02E9D    F7404040 A
     1399   02 02E9E    2F404040 A    REV '   TAPE DEVICES 81, 83, AND 87 ARE 75IPS UNITS.'              *A01
            02 02E9F    E3C1D7C5 A
            02 02EA0    40C4C5E5 A
            02 02EA1    C9C3C5E2 A
            02 02EA2    40F8F16B A
            02 02EA3    40F8F36B A
            02 02EA4    40C1D5C4 A
            02 02EA5    40F8F740 A
            02 02EA6    C1D9C540 A
            02 02EA7    F7F5C9D7 A
            02 02EA8    E240E4D5 A
            02 02EA9    C9E3E24B A
     1400   02 02EAA    01404040 A    REV ' '                                                            *A01
     1401   02 02EAB    1AC5E7C1 A    REV 'EXAMPLE 2.  SYST,7365,0,80'                                   *A01
            02 02EAC    D4D7D3C5 A
            02 02EAD    40F24B40 A
            02 02EAE    40E2E8E2 A
            02 02EAF    E36BF7F3 A
            02 02EB0    F6F56BF0 A
            02 02EB1    6BF8F040 A
     1402   02 02EB2    24404040 A    REV '   TAPE DEVICE 80 IS A 37.5IPS UNIT.'                         *A01
            02 02EB3    E3C1D7C5 A
            02 02EB4    40C4C5E5 A
            02 02EB5    C9C3C540 A
            02 02EB6    F8F040C9 A
            02 02EB7    E240C140 A
            02 02EB8    F3F74BF5 A
            02 02EB9    C9D7E240 A
            02 02EBA    E4D5C9E3 A
            02 02EBB    4B404040 A
     1403   02 02EBC    01404040 A    REV ' '                                                            *A01
     1404   02 02EBD    19D9C5E5 A    REV 'REVISION *B01* (11/27/70)'                                    *B01
            02 02EBE    C9E2C9D6 A
            02 02EBF    D5405CC2 A
            02 02EC0    F0F15C40 A
            02 02EC1    4DF1F161 A
            02 02EC2    F2F761F7 A
            02 02EC3    F05D4040 A
     1405   02 02EC4    21F14B40 A    REV '1. CHANGES MADE TO USE REMOTE DPM'                            *B01
            02 02EC5    C3C8C1D5 A
            02 02EC6    C7C5E240 A
            02 02EC7    D4C1C4C5 A
            02 02EC8    40E3D640 A
            02 02EC9    E4E2C540 A
            02 02ECA    D9C5D4D6 A
            02 02ECB    E3C540C4 A
            02 02ECC    D7D44040 A
     1406   02 02ECD    26F24B40 A    REV '2. TST1,35 AND TST1,37 TIME EVALUATION'                       *B01
            02 02ECE    E3E2E3F1 A
            02 02ECF    6BF3F540 A
            02 02ED0    C1D5C440 A
            02 02ED1    E3E2E3F1 A
            02 02ED2    6BF3F740 A
            02 02ED3    E3C9D4C5 A
            02 02ED4    40C5E5C1 A
            02 02ED5    D3E4C1E3 A
            02 02ED6    C9D6D540 A
     1407   02 02ED7    01404040 A   REVEND   REV      ' '                                               *A01
            02 02ED8    32302E00
            02 02ED9    32402138 03
            02 02EDA    35402EDC
            02 02EDB    EAF0021C A
            02 02EDC    00000000 A
            02 02EDD    F2500004 A
            02 02EDE    20500004 A
            02 02EDF    2550007E A
            02 02EE0    30400005 A
            02 02EE1    64302EDA
            02 02EE2    32402EE5
            02 02EE3    3540051E 03
            02 02EE4    E8002EE3
            02 02EE5    02000000 A
            02 02E00    0000001E A
     1408   02 02E01                          USECT    TST0ADDR                                          *A01
     1409         00000002           DPM      EQU      2                                                 *B01
     1410                            *
     1411                            *
     1412                            *
     1413                            *  MONITOR LINK TABLE
     1414                            *  ------------------
     1415                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
     1416                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
     1417                            *  THE MONITOR (DPM).
     1418                            *
     1419   00 00000                 ASECTMLT ASECT
     1420   00 00200                          ORG      X'200'
            00 00200
     1421         00 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
     1422         00 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
     1423         00 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
     1424         00 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
     1425         00 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
     1426         00 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
     1427         00 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
     1428         00 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
     1429         00 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
     1430         00 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
     1431         00 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
     1432         00 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
     1433         00 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
     1434         00 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
     1435         00 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
     1436         00 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
     1437         00 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
     1438         00 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
     1439         00 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
     1440         00 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
     1441         00 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
     1442         00 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
     1443         00 00223           :ERRORC  EQU      :MLT+35           PROGRAM ERROR COUNT
     1444         00 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
     1445         00 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
     1446         00 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
     1447         00 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
     1448         00 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
     1449         00 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
     1450         00 0022A           :SCT     EQU      :MLT+42           ADDR OF SYSTEM CONTEXT TABLE (SCT)
     1451         00 0022B           :WAIT    EQU      :MLT+43           WAIT SUBR.                      *B01
     1452         00 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY INDEX
     1453         00 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY INDEX
     1454         00 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
     1455         00 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
     1456         00 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
     1457         00 00231           :MONPBF  EQU      :MLT+49           ADDR OF ABSOLUTE RECOVERY ROUTINE
     1458         00 00237           :REMOTE  EQU      :MLT+55           REMOTE CONNECT ROUTINE          *B01
     1459         00 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
     1460                            *
     1461                            *  PROGRAM INTERFACE TABLE
     1462                            *  -----------------------
     1463                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
     1464                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
     1465                            *  AND THE USER PROGRAM.
     1466                            *
     1467   00 00000                 ASECTPIT ASECT
     1468   00 00300                          ORG      X'300'
            00 00300
     1469   00 00300    0000033E 03  :PIT0    DATA     :CATALOG          ADDR OF LOC. CONTAINING CATALOG NO.
     1470   00 00301    0000033F 03  :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
     1471   00 00302    00000320 03  :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
     1472   00 00303    0000000E A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
     1473   00 00304    0000051D 03  :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
     1474   00 00305    0000032E 03  :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
     1475   00 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
     1476   00 00307    00000000 A   :PIT7    DATA     0
     1477   00 00308    000003BB 03  :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
     1478   00 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
     1479   00 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER, PARAMETER IN ERROR
     1480   00 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
     1481   00 0030C    00000000 A   :PIT12   DATA     0                 RUNFLAG, RUN PROG IF FLAG = -1
     1482         00 0030D           :PITLAST EQU      %
     1483         00 0031B           :PITEND  EQU      :PIT0+27
     1484         0000000E                    DO       :PITEND-:PITLAST  CLEAR LOCATIONS UP TO PIT27
     1485   00 0030D    00000000 A            DATA     0
     1486                                     FIN
            00 0030E    00000000 A
            00 0030F    00000000 A
            00 00310    00000000 A
            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
     1487   00 0031B    00002182 03  :PIT27   DATA     BUFF1             END OF USER PROGRAM
     1488   00 0031C    00000000 A            DATA     0,0,0,0
            00 0031D    00000000 A
            00 0031E    00000000 A
            00 0031F    00000000 A
     1489                                     PAGE
     1490                            *
     1491                            *  DIRECTIVE DICTIONARY
     1492                            *  --------------------
     1493                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
     1494                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
     1495                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
     1496                            *  DEFINED AS FOLLOWS:
     1497                            *
     1498                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
     1499                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
     1500                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
     1501                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
     1502                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
     1503                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     1504                            *  BITS 48 THRU 63  ROUTINE ADDRESS
     1505                            *
     1506                            *  TYPE OF PARAMETER CONVERSION
     1507                            *
     1508                            *  000   HEXADECIMAL CONVERSION
     1509                            *  001   DECIMAL CONVERSION TO BINARY
     1510                            *  002   ALPHANUMERIC
     1511                            *
     1512   03 00000                 CSECTDIC CSECT
     1513   03 00320                          ORG      X'320'
            03 00320
     1514         03 00320           :DIC     EQU      %
     1515   03 00320    E3E2E3F0 A            :PROCDIC 'TST0',1,1,7,7,0,TST0     COMPREHENSIVE TEST
                        27F00481
     1516   03 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1      FUNCTIONAL TEST
                        27F0049A
     1517   03 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,1,7,7,0,TST2     RANDOM EXERCISER
                        27F004DF
     1518   03 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,1,1,0,TST3     UTILITY TESTS
                        249004FA
     1519   03 00328    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,0,0,DATTA    DATA
                        20000538
     1520   03 0032A    00D3C5D5 A            :PROCDIC 'LEN',1,7,7,7,0,LEN       LENGTH
                        3FF0052D
     1521   03 0032C    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,7,7,0,:LIMIT     LIMIT
                        27F00560
     1522                            *
     1523                            *
     1524         03 0032E           :DICEND  EQU      %
     1525                                     PAGE
     1526                            *
     1527                            *  CONTEXT DESCRIPTION TABLE
     1528                            *  -------------------------
     1529                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
     1530                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
     1531                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
     1532                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
     1533                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
     1534                            *
     1535                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
     1536                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     1537                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
     1538                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
     1539                            *
     1540         03 0032E           :CDT     EQU      :DICEND
     1541   03 0032E    05000004 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000334
     1542         03 00330           :CDTEND  EQU      %
     1543                            *
     1544                            *
     1545                            *  CONTEXT DATA BLOCK
     1546                            *  ------------------
     1547                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
     1548                            *  INFORMATION FOR THE TEST PROGRAM.
     1549                            *
     1550         03 00330           :CDBM    EQU      %
     1551   03 00330    00001CC2 A            DATA     7362              37.5 IPS   STD PACKED BINARY
     1552   03 00331    00001CC5 A            DATA     7365
     1553   03 00332    00001CCC A            DATA     7372              75 IPS     STD BINARY AND DECIMAL
     1554   03 00333    00001CCE A            DATA     7374
     1555                            *
     1556         03 00334           :CDBMEND EQU      %
     1557                            *
     1558         03 00334           :CDB     EQU      %
     1559   03 00334    00031CCC A            GEN,16,16 3,7372           CURRENTLY SELECTED DEVICE ADDRESS
     1560   03 00335    00000000 A            DATA     0
     1561   03 00336    00000080 A   SYTDEVA  DATA     X'080'            DEVICE ADDRESS OF FIRST UNIT
     1562   03 00337    00000000 A            DATA     0                 DEVICE ADDRESS OF SECOND UNIT
     1563   03 00338    00000000 A            DATA     0                 DEVICE ADDRESS OF THIRD UNIT
     1564   03 00339    00000000 A            DATA     0                 DEVICE ADDRESS OF FOURTH UNIT
     1565   03 0033A    00000000 A            DATA     0                 DEVICE ADDRESS OF FIFTH UNIT
     1566   03 0033B    00000000 A            DATA     0                 DEVICE ADDRESS OF SIXTH UNIT
     1567   03 0033C    00000000 A            DATA     0                 DEVICE ADDRESS OF SEVENTH UNIT
     1568   03 0033D    00000000 A            DATA     0                 DEVICE ADDRESS OF EIGHTH UNIT
     1569         03 0033E           :CDBEND  EQU      %
     1570                            *
     1571                            *
     1572                            *
     1573                            *
     1574         03 0033E           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
     1575   03 0033E    000AC4C7 A            DATA     705735            PROGRAM CATALOG NUMBER
     1576                            *
     1577         03 0033F           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
     1578                                     TEXTC    'SIGMA 5-9 7CHANNEL MAGNETIC TAPE TEST ',;        *B01
     1579   03 0033F    48E2C9C7 A                     'PROGRAM 705735-B01 MANUAL 901620 A'             *B01
            03 00340    D4C140F5 A
            03 00341    60F940F7 A
            03 00342    C3C8C1D5 A
            03 00343    D5C5D340 A
            03 00344    D4C1C7D5 A
            03 00345    C5E3C9C3 A
            03 00346    40E3C1D7 A
            03 00347    C540E3C5 A
            03 00348    E2E340D7 A
            03 00349    D9D6C7D9 A
            03 0034A    C1D440F7 A
            03 0034B    F0F5F7F3 A
            03 0034C    F560C2F0 A
            03 0034D    F140D4C1 A
            03 0034E    D5E4C1D3 A
            03 0034F    40F9F0F1 A
            03 00350    F6F2F040 A
            03 00351    C1404040 A
     1580                                     PAGE
     1581                            *
     1582                            *
     1583                            *  SUBTEST LINK TABLE
     1584                            *
     1585   03 00352    000003A2     :T1SLT   DATA     :TIMRETN          MONITOR RETURN ADDRESS
     1586   03 00353    0000056F              DATA     :T1ST01           THESE SUBTESTS
     1587   03 00354    00000595              DATA     :T1ST02             CAN BE EXECUTED IN THE
     1588   03 00355    000005C0              DATA     :T1ST03               AUTOMATIC MODE.
     1589   03 00356    000005D7              DATA     :T1ST04                 NO MANUAL INTERVENTION
     1590   03 00357    000005D8              DATA     :T1ST05                   IS REQUIRED.
     1591   03 00358    000005D9              DATA     :T1ST06
     1592   03 00359    000005DA              DATA     :T1ST07
     1593   03 0035A    00000629              DATA     :T1ST08
     1594   03 0035B    0000064E              DATA     :T1ST09
     1595   03 0035C    00000684              DATA     :T1ST10
     1596   03 0035D    00000685              DATA     :T1ST11
     1597   03 0035E    000006D8              DATA     :T1ST12
     1598   03 0035F    00000701              DATA     :T1ST13
     1599   03 00360    00000718              DATA     :T1ST14
     1600   03 00361    00000742              DATA     :T1ST15
     1601   03 00362    00000776              DATA     :T1ST16
     1602   03 00363    000007A3              DATA     :T1ST17
     1603   03 00364    000007A4              DATA     :T1ST18
     1604   03 00365    000007EC              DATA     :T1ST19
     1605   03 00366    00000877              DATA     :T1ST20
     1606   03 00367    000008AF              DATA     :T1ST21
     1607   03 00368    0000090E              DATA     :T1ST22
     1608   03 00369    0000093B              DATA     :T1ST23
     1609   03 0036A    000009AF              DATA     :T1ST24
     1610   03 0036B    000009C3              DATA     :T1ST25
     1611   03 0036C    000009C4              DATA     :T1ST26
     1612   03 0036D    00000A2A              DATA     :T1ST27
     1613   03 0036E    00000A60              DATA     :T1ST28
     1614   03 0036F    00000B0A              DATA     :T1ST29
     1615   03 00370    00000B98              DATA     :T1ST30
     1616   03 00371    00000BFE              DATA     :T1ST31
     1617   03 00372    00000C85              DATA     :T1ST32
     1618   03 00373    00000D3B              DATA     :T1ST33
     1619   03 00374    00000DE0              DATA     :T1ST34
     1620   03 00375    00000E3F              DATA     :T1ST35
     1621   03 00376    00000EE1              DATA     :T1ST36
     1622   03 00377    00000F0C     :T1SLT1  DATA     :T1ST37           THE FOLLOWING TESTS MAY REQUIRE
     1623   03 00378    00000FA0              DATA     :T1ST38           INTERVENTION
     1624   03 00379    00000FE4              DATA     :T1ST39
     1625   03 0037A    00000FE5              DATA     :T1ST40
     1626   03 0037B    000010CE              DATA     :T1ST41
     1627         03 0037C           :T1SLT2  EQU      %
     1628                            *
     1629                            *  END OF SUBTEST LINK TABLE
     1630                            *
     1631                            *
     1632                            *             *** INTERRUPT/TRAP HANDLER ***
     1633                            *
     1634                            * PARAMETERS REQ'D:
     1635                            * ----------------
     1636                            *   ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
     1637                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
     1638                            *   ITHRST  - RESTART ADDRESS
     1639                            *
     1640   03 0037C    35F00393     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
     1641   03 0037D    32C00390              LW,12    ITHTEST           TEST NUMBER
     1642   03 0037E    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     1643   03 0037F    75F20395              STB,15   ITHM2+1,1         ENTER INTO MSG
     1644   03 00380    EAF0021C A            BAL,15   *:PRINT
     1645   03 00381    00000394              DATA     ITHM2             'TSTX WILL BE RESTARTED'
     1646   03 00382    31100390              CW,1     ITHTEST           TST1?
     1647   03 00383    69300389              BNE      %+6               NO
     1648   03 00384    32C00391              LW,12    ITHSUBT           SUBTEST NUMBER
     1649   03 00385    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     1650   03 00386    55F2039D              STH,15   ITHM3+3,1         ENTER INTO MSG
     1651   03 00387    EAF0021C A            BAL,15   *:PRINT
     1652   03 00388    0000039A              DATA     ITHM3             'SUBTEST NO. XX'
     1653   03 00389    32C0195B              LW,12    :DEVADDR          DEVICE ADDRESS
     1654   03 0038A    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     1655   03 0038B    35F003A1              STW,15   ITHM4+3           ENTER INTO MSG
     1656   03 0038C    EAF0021C A            BAL,15   *:PRINT
     1657   03 0038D    0000039E              DATA     ITHM4             'DEVICE NO.XXXX'
     1658   03 0038E    32F00392              LW,15    ITHRST            (R15)=RESTART ADDRESS
     1659   03 0038F    E8000393              B        *ITHSAVE          RETURN TO MONITOR INTER/TRAP HANDLER
     1660                            *
     1661   03 00390    00000000 A   ITHTEST  DATA     0
     1662   03 00391    00000000 A   ITHSUBT  DATA     0
     1663   03 00392    00000000 A   ITHRST   DATA     0
     1664   03 00393    00000000 A   ITHSAVE  DATA     0
     1665   03 00394    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            03 00395    E3E740E6 A
            03 00396    C9D3D340 A
            03 00397    C2C540D9 A
            03 00398    C5E2E3C1 A
            03 00399    D9E3C5C4 A
     1666   03 0039A    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            03 0039B    C2E3C5E2 A
            03 0039C    E340D5D6 A
            03 0039D    4B40E7E7 A
     1667   03 0039E    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            03 0039F    E5C9C3C5 A
            03 003A0    40D5D64B A
            03 003A1    E7E7E7E7 A
     1668                            *
     1669                            *
     1670                            *
     1671                            *
     1672                            *  TEST 1 SEQUENCER (MONITOR)
     1673                            *
     1674   03 003A2    35F003BA     :TIMRETN STW,15   :T1MEXIT          SAVE EXIT ADDRESS
     1675   03 003A3    324003B8              LW,4     :T1CUR            FETCH CURRENT INDEX
     1676   03 003A4    314003B9              CW,4     :T1LAST           COMPARE TO LAST SUBTEST NUMBER
     1677   03 003A5    E92003BA              BCS,2    *:T1MEXIT         EXIT - ALL SUBTESTS EXECUTED
     1678   03 003A6    20400352              AI,4     :T1SLT            BRANCH TO SUBTEST
     1679   03 003A7    2250037C              LI,5     ITHDLR           FETCH TRAP/INT. HANDLER ADDR     *A01
     1680   03 003A8    3550030F A            STW,5    :PIT0+15          STORE INTO PIT+15               *A01
     1681   03 003A9    35100390              STW,1    ITHTEST          STORE TEST NUMBER                *A01
     1682   03 003AA    325003B8              LW,5     :T1CUR           FETCH CURRENT SUBTEST NO.        *A01
     1683   03 003AB    35500391              STW,5    ITHSUBT            SAVE                           *A01
     1684   03 003AC    2250049B              LI,5     TST1+1           FETCH RESTART ADDRESS            *A01
     1685   03 003AD    35500392              STW,5    ITHRST             SAVE                           *A01
     1686   03 003AE    B2500004 A            LW,5     *4                NEXT SUBTEST POINTER
     1687   03 003AF    E8000005 A            B        *5                BRANCH TO NEXT SUBTEST
     1688   03 003B0    331003B8     :TIM     MTW,1    :T1CUR            INCREMENT INDEX
     1689   03 003B1    32F02139              LW,15    =X'0000FF00'      RESTORE TE IN OSB
     1690   03 003B2    35F0211A              STW,15   :SAVETAB+2
     1691   03 003B3    32F0213A              LW,15    =X'0000BB00'      SET UP TDV WITH TE CHECK
     1692   03 003B4    35F0211C              STW,15   :SAVETAB+4
     1693   03 003B5    680003A3              B        :TIMRETN+1        LOOP
     1694                            *
     1695                            *
     1696   03 003B6    00000025 A   :T1AUTO  DATA     :T1SLT1-:T1SLT    NUMBER OF SUBTESTS IN AUTOMATIC MODE
     1697   03 003B7    0000002A A   :T1ALL   DATA     :T1SLT2-:T1SLT    TOTAL NUMBER OF SUBTEST AVAILABLE
     1698   03 003B8    00000000 A   :T1CUR   DATA     0                 CURRENT SUBTEST LINK TABLE INDEX
     1699   03 003B9    00000000 A   :T1LAST  DATA     0                 LAST SUBTEST TO BE EXECUTED
     1700   03 003BA    00000000 A   :T1MEXIT DATA     0                 STORAGE FOR REGISTER 15
     1701                            *
     1702                            *
     1703                            *
     1704                            *
     1705                            *
     1706                            *
     1707                            *
     1708                            *
     1709                            *                                   INITIAL ENTRY TO PROGRAM
     1710                            *                                   ------------------------------------
     1711                            *                                                                      *
     1712                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST       *
     1713                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.       *
     1714                            *                                                                      *
     1715                            *
     1716   03 003BB    35F01946     :INITIAL STW,15   ST15              SAVE RETURN ADDRESS
     1717   03 003BC    6AF0051D              BAL,15   :RECOVER          GO TO RECOVER ROUTINE
     1718   03 003BD    6AF00237 A            BAL,15   :REMOTE           CONNECT REMOTE                  *B01
     1719   03 003BE    3290022F A            LW,9     :MEMLAST
     1720   03 003BF    209FDE7E N            AI,9     -BUFF1            GENERATE BUFFER SIZE
     1721   03 003C0    21904000 A            CI,9     X'4000'           WORD COUNT TOO LARGE
     1722   03 003C1    691003C3              BL       %+2
     1723   03 003C2    22903FF8 A            LI,9     X'3FF8'
     1724   03 003C3    4B90213B              AND,9    =X'FFF8'          MAKE DOUBLE WORD
     1725   03 003C4    3590196F              STW,9    MAXREC            NUMBER OF WORDS IN I/O AREA
     1726   03 003C5    25900002 A            SLS,9    2
     1727   03 003C6    3590196E              STW,9    MAXBYT            MAX BYTES IN I/O AREA
     1728   03 003C7    559218FF              STH,9    RFSPEC+1,1
     1729   03 003C8    55921901              STH,9    RFSPEC1+1,1
     1730   03 003C9    2590007F A            SLS,9    -1
     1731   03 003CA    35901970              STW,9    MAXREADB          MAX BYTES IN ONE BUFFER
     1732   03 003CB    2590007E A            SLS,9    -2                MAX WORDS IN I/O AREA
     1733   03 003CC    35901971              STW,9    MAXREAD           WORDS IN ONE BUFFER
     1734   03 003CD    20902182              AI,9     WA(BUFF1)
     1735   03 003CE    4B90213C              AND,9    =X'FFFFFFFE'      MAKE DOUBLE WORD ADDRESS
     1736   03 003CF    35902136              STW,9    BUFF2             WA(BUFF1)+ WORDS/2
     1737                            *                                   BUFFER 2 SET UP IN DOUBLE WORDS
     1738                            *                                   DEVICE ADDRESS WITHIN LIMITS
     1739                            *                                   ------------------------------------
     1740   03 003D0    52A00334              LH,10    :CDB              CHECK FOR DEVICE NUMBERS
     1741   03 003D1    21A00002 A            CI,10    2
     1742   03 003D2    692003D7              BG       INITIAL2
     1743                            *        ERROR NO DEVICE NUMBERS GIVEN
     1744   03 003D3    22000000 A            LI,0     0
     1745   03 003D4    3500030C A            STW,0    :PIT12            RESET RUN FLAG
     1746   03 003D5    3520030A A            STW,2    :PIT10            PARAMETER 2 IN ERROR
     1747   03 003D6    E8001946              B        *ST15             EXIT FROM INITIALIZER
     1748   03 003D7    5A500334     INITIAL2 LCH,5    :CDB
     1749   03 003D8    20500002 A            AI,5     2                 NUMBER FO DEVICES TO CHECK
     1750   03 003D9    22600000 A            LI,6     0
     1751   03 003DA    327C0336     INITIAL3 LW,7     SYTDEVA,6
     1752   03 003DB    683003EC              BEZ      INITIAL5          LAST DEVICE CHECKED
     1753   03 003DC    21701FFF A            CI,7     X'1FFF'             WITHIN LIMITS                 *A01
     1754   03 003DD    692003E7              BG       INITIAL4
     1755   03 003DE    3170213D              CW,7     =X'00000080'      CORRECT BIT SET
     1756   03 003DF    684003E7              BCR,4    INITIAL4
     1757   03 003E0    3170213E              CW,7     =X'00000008'      0-7 ONLY
     1758   03 003E1    694003E7              BCS,4    INITIAL4
     1759   03 003E2    357C195C              STW,7    SAVDEV,6          SAVE DEVICE NUMBER IN TABLE
     1760   03 003E3    20600001 A            AI,6     1
     1761   03 003E4    655003DA              BIR,5    INITIAL3
     1762   03 003E5    35601964              STW,6    SAVNUMB           SAVE NUMBER OF DEVICES
     1763   03 003E6    680003EC              B        INITIAL5
     1764                            *        DEVICE NUMBER INCORRECT
     1765   03 003E7    22000000 A   INITIAL4 LI,0     0
     1766   03 003E8    3500030C A            STW,0    :PIT12            RESET RUN FLAG
     1767   03 003E9    20600003 A            AI,6     3
     1768   03 003EA    3560030A A            STW,6    :PIT10            PARAMETER IN ERROR
     1769   03 003EB    E8001946              B        *ST15             EXIT FROM INITIALIZER
     1770   03 003EC    22A00334     INITIAL5 LI,10    :CDBMEND          SELECT MODEL NUMBER
     1771   03 003ED    20AFFCD0 N            AI,10    -:CDBM
     1772   03 003EE    3A80000A A            LCW,8    10
     1773   03 003EF    22600000 A            LI,6     0
     1774   03 003F0    52720334              LH,7     :CDB,1            SELECTED MODEL NUMBER
     1775   03 003F1    317C0330              CW,7     :CDBM,6
     1776   03 003F2    683003F9              BE       INITIAL6
     1777   03 003F3    20600001 A            AI,6     1
     1778   03 003F4    658003F1              BIR,8    %-3
     1779                            *        ERROR MODEL NUMBER NOT LISTED
     1780   03 003F5    3510030A A            STW,1    :PIT10
     1781   03 003F6    22000000 A            LI,0     0
     1782   03 003F7    3500030C A            STW,0    :PIT12            RESET RUN FLAG
     1783   03 003F8    E8001946              B        *ST15             EXIT FROM INITIALIZER
     1784   03 003F9    35701BB8     INITIAL6 STW,7    SAVMODEL          SAVE MODEL NUMBER
     1785                            *        DETERMINE IPS, STANDARD SYSTEM, AND OPTIONS HERE
     1786   03 003FA    21700008 A            CI,7     8                 75 IPS
     1787   03 003FB    68400424              BCR,4    INITIAL7
     1788                            *                                   **  75 IPS  **
     1789   03 003FC    31101A74              CW,1     MODEFLAG          PACKED BINARY SET
     1790   03 003FD    69300400              BNE      %+3
     1791   03 003FE    22800C62 A            LI,8     3170              CHARACTER TIME PACKED
     1792   03 003FF    68000401              B        %+2
     1793   03 00400    22800990 A            LI,8     2448              AT 800 BPI
     1794   03 00401    3580197C              STW,8    CHARTR            TIMES FOR TIMING SECTION
     1795   03 00402    21700002 A            CI,7     2
     1796   03 00403    68400409              BCR,4    %+6
     1797   03 00404    35101934              STW,1    OPTPB             PACKED BINARY OPTION INSTALLED
     1798   03 00405    35101A74              STW,1    MODEFLAG          PACKED BINARY
     1799   03 00406    35101A4D              STW,1    NOPKPRT           CLEAR PACKED PRINTOUT FLG
     1800   03 00407    35101942              STW,1    FLGRG             PRINT PACKED
     1801   03 00408    6800040E              B        %+6
     1802   03 00409    22800000 A            LI,8     0
     1803   03 0040A    35801934              STW,8    OPTPB             RESET PACKED BINARY OPTION FLAG
     1804   03 0040B    35201A4D              STW,2    NOPKPRT           SET NO PACKED PRINTOUT FLAG
     1805   03 0040C    35201942              STW,2    FLGRG             NO PACKED PRINTOUT
     1806   03 0040D    35801A74              STW,8    MODEFLAG          UNPACKED
     1807   03 0040E    22800000 A            LI,8     0
     1808   03 0040F    35801936              STW,8    FL37IPS           RESET 37.5 IPS FLAG
     1809   03 00410    35801933              STW,8    STDPB
     1810   03 00411    35101937              STW,1    FL75IPS           SET 75 IPS FLAG
     1811   03 00412    35101932              STW,1    STDBCD            BINARY AND DECIMAL STANDARD
     1812   03 00413    22800038 A            LI,8     56
     1813   03 00414    35801955              STW,8    ERTMAX            MAX ERASE TIME
     1814   03 00415    2280002E A            LI,8     46
     1815   03 00416    35801956              STW,8    ERTMIN            MIN ERASE TIME
     1816   03 00417    22802DE6 A            LI,8     11750
     1817   03 00418    35801957              STW,8    IRGMAX            MAX IRG TIME
     1818   03 00419    22802304 A            LI,8     8964
     1819   03 0041A    35801958              STW,8    IRGMIN            MIN IRG TIME
     1820   03 0041B    228004B0 A            LI,8     1200              MAX CREEP
     1821   03 0041C    35801959              STW,8    CRPMAX            MAX CREEP
     1822   03 0041D    22800F9F A            LI,8     3999
     1823   03 0041E    3580195A              STW,8    WTRT              WRITE TO READ TIME
     1824   03 0041F    22800514 A            LI,8     1300              BACKWARD DIFFERENTIAL
     1825   03 00420    3580197E              STW,8    STOPDIF
     1826   03 00421    228FDCD8 A            LI,8     -9000             9 MSEC DELAY CONST.             *A01
     1827   03 00422    35800480              STW,8    DQBN                                              *A01
     1828   03 00423    68000445              B        INITIAL8
     1829                            *                                   ** 37.5 IPS **
     1830   03 00424    22802535 A   INITIAL7 LI,8     9525              AT 556 BPI PACKED (+1/4)
     1831   03 00425    3580197C              STW,8    CHARTR
     1832   03 00426    35101A74              STW,1    MODEFLAG          SET PACKED FLAG
     1833   03 00427    35101A4D              STW,1    NOPKPRT           CLEAR PACKED PRINTOUT FLG
     1834   03 00428    35101942              STW,1    FLGRG             PRINT PACKED
     1835   03 00429    21700001 A            CI,7     1                 BINARY AND DECIMAL OPTION INSTALLED
     1836   03 0042A    6840042D              BCR,4    %+3
     1837   03 0042B    35101935              STW,1    OPTBCD            SET BINARY AND DECIMAL OPTION
     1838   03 0042C    6800042F              B        %+3
     1839   03 0042D    22800000 A            LI,8     0
     1840   03 0042E    35801935              STW,8    OPTBCD            RESET BINARY AND DECIMAL FLAG
     1841   03 0042F    35101936              STW,1    FL37IPS           SET 37.5 IPS FLAG
     1842   03 00430    22800000 A            LI,8     0
     1843   03 00431    35801937              STW,8    FL75IPS           RESSET 75 IPS FLAG
     1844   03 00432    35101933              STW,1    STDPB             PACKED BINARY STANDARD
     1845   03 00433    22800000 A            LI,8     0
     1846   03 00434    35801932              STW,8    STDBCD            RESET BINARY AND DECIMAL FLAG
     1847   03 00435    22800070 A            LI,8     112
     1848   03 00436    35801955              STW,8    ERTMAX            ERASE MAX
     1849   03 00437    2280005C A            LI,8     92
     1850   03 00438    35801956              STW,8    ERTMIN            ERASE MIN
     1851   03 00439    22805A0A A            LI,8     23050
     1852   03 0043A    35801957              STW,8    IRGMAX            MAX IRG TIME
     1853   03 0043B    22804608 A            LI,8     17928
     1854   03 0043C    35801958              STW,8    IRGMIN            MIN IRG TIME
     1855   03 0043D    228007D0 A            LI,8     2000              MAX CREEP
     1856   03 0043E    35801959              STW,8    CRPMAX
     1857   03 0043F    22801F3E A            LI,8     7998
     1858   03 00440    3580195A              STW,8    WTRT              WRITE TO READ TIME
     1859   03 00441    22800514 A            LI,8     1300              BACKWARD DIFFERENTIAL
     1860   03 00442    3580197E              STW,8    STOPDIF
     1861   03 00443    228FD120 A            LI,8     -12000            11 MSEC DELAY CONST.            *A01
     1862   03 00444    35800480              STW,8    DQBN                                              *A01
     1863   03 00445    32700336     INITIAL8 LW,7     SYTDEVA           SET UP FIRST DEVICE
     1864   03 00446    3570195B              STW,7    :DEVADDR
     1865                            *                                   SET UP WRITES AND READS
     1866   03 00447    31101A74              CW,1     MODEFLAG          PACKED BINARY MODE SET
     1867   03 00448    68300452              BE       INITIAL1
     1868   03 00449    32C0213F              LW,12    =X'06000000'      READ BINARY
     1869   03 0044A    32D02140              LW,13    =X'05000000'      WRITE BINARY
     1870   03 0044B    32802141              LW,8     =X'08FF0000'      UNPACKED
     1871   03 0044C    32902142              LW,9     =X'08BF0000'
     1872   03 0044D    22A00014 A            LI,10    X'14'             INCORRECT LENGTH SET
     1873   03 0044E    75A01897              STB,10   RFRAND+1
     1874   03 0044F    75A01899              STB,10   TST3RF+1          TAPE TEST
     1875   03 00450    15801A72              STD,8    CHKBITT
     1876   03 00451    6800045A              B        INITIAL9-3
     1877   03 00452    32C02143     INITIAL1 LW,12    =X'02000000'      READ PACKED BINARY
     1878   03 00453    32D02144              LW,13    =X'01000000'      WRITE PACKED
     1879   03 00454    32802145              LW,8     =X'087F0000'      PACKED  SET
     1880   03 00455    32902146              LW,9     =X'083F0000'
     1881   03 00456    15801A72              STD,8    CHKBITT
     1882   03 00457    22A00016 A            LI,10    X'16'             INCORRECT LENGTH SUPPRESSED
     1883   03 00458    75A01899              STB,10   TST3RF+1          TAPE TEST
     1884   03 00459    75A01897              STB,10   RFRAND+1
     1885                            *                                   SET UP BUFFER 2 IN DOUBLE WORD ADR
     1886   03 0045A    32902136              LW,9     BUFF2
     1887   03 0045B    25900002 A            SLS,9    2                 BA OF BUFFER 2
     1888   03 0045C    22AFFFF1 A            LI,10    -15
     1889   03 0045D    22801882     INITIAL9 LI,8     TRFBC             SET UP READ ADDRESSES
     1890   03 0045E    32B0000C A            LW,11    12
     1891   03 0045F    30B00009 A            AW,11    9
     1892   03 00460    B5B00008 A            STW,11   *8
     1893   03 00461    20800002 A            AI,8     2                 NEXT DOUBLE WORD
     1894   03 00462    65A0045E              BIR,10   INITIAL9+1
     1895   03 00463    227FFFF6 A            LI,7     -10               SPECIAL READS
     1896   03 00464    228018A0              LI,8     RPBT
     1897   03 00465    B2A00008 A            LW,10    *8                GET ORDER
     1898   03 00466    4BA02147              AND,10   =X'FF000000'      SAVE ORDER
     1899   03 00467    30A00009 A            AW,10    9                 BUFF2
     1900   03 00468    B5A00008 A            STW,10   *8                STORE
     1901   03 00469    20800002 A            AI,8     2
     1902   03 0046A    65700465              BIR,7    %-5
     1903                            *                                   SET UP WRITES
     1904   03 0046B    22AFFFF0 A            LI,10    -16                                               *A01
     1905   03 0046C    22801850              LI,8     TWBC              FIRST WRITE ADDRESS
     1906   03 0046D    B2B00008 A            LW,11    *8
     1907   03 0046E    4BB02148              AND,11   =X'00FFFFFF'      SAVE ADDRESS
     1908   03 0046F    30B0000D A            AW,11    13                GET ORDER
     1909   03 00470    B5B00008 A            STW,11   *8
     1910   03 00471    20800002 A            AI,8     2                 SET UP NEXT DOUBLE WORD ADR
     1911   03 00472    65A0046D              BIR,10   %-5
     1912   03 00473    3290189E              LW,9     TRFDC48+2
     1913   03 00474    20900030 A            AI,9     48
     1914   03 00475    3590189E              STW,9    TRFDC48+2         SET UP DATA CHAIN
     1915   03 00476    72E01882              LB,14    TRFBC             GET ORDER
     1916   03 00477    75E018FE              STB,14   RFSPEC
     1917   03 00478    75E01900              STB,14   RFSPEC1
     1918   03 00479    72E01850              LB,14    TWBC              GET WRITE ORDER
     1919   03 0047A    75E01904              STB,14   TPDMP1
     1920   03 0047B    75E01906              STB,14   TPDMP1+2
     1921   03 0047C    75E01908              STB,14   TPDMP1+4
     1922   03 0047D    227FFFFF A            LI,7     -1
     1923   03 0047E    3570030C A            STW,7    :PIT12            RUN PROGRAM FLAG SET
     1924                            *
     1925                            *                                   INITIALIZE ALL PARAMETERS
     1926   03 0047F    E8001946              B        *ST15             EXIT FROM INITIALIZER
     1927                            *
     1928   03 00480    00000000 A   DQBN     DATA     0                 DELAY CONST.                    *A01
     1929                            *
     1930                            *
     1931                            *
     1932                            *
     1933                            *                                                                      *
     1934                            *                                                                      *
     1935                            *                 *** TST0 - COMPREHENSIVE TEST                        *
     1936                            *                      ------------------------                        *
     1937                            * THIS DIRECTIVE ALLOWS THE USER TO TEST ALL FUNCTIONS ASSOCIATED WITH *
     1938                            * THE 7-TRACK MAGNETIC TAPE SYSTEM AND CONCLUDES THE TEST WITH A RANDOM*
     1939                            * EXERCISER AFTER A SUCCESSFUL COMPLETION OF THE FUNCTIONAL TESTS.     *
     1940                            *                                                                      *
     1941   03 00481    32700201 A   TST0     LW,7     :P1               NUMBER OF LOOPS IN RANDOM EXER
     1942   03 00482    69300484              BNEZ     %+2
     1943   03 00483    227003E8 A            LI,7     1000              1000 PASSES IF ZERO
     1944   03 00484    3570192E              STW,7    NMLOOP
     1945   03 00485    32700202 A            LW,7     :P2               NUMBER OF RETRIES IN RANDOM EXER
     1946   03 00486    6930048A              BNEZ     %+4
     1947   03 00487    32800201 A            LW,8     :P1
     1948   03 00488    6930048A              BNEZ     %+2               P1 NOT ZERO
     1949   03 00489    22700005 A            LI,7     5                 5 RETRIES IF P1 =0, P2 =0
     1950   03 0048A    3570192D              STW,7    CRTRY             RETRIES FOR RANDOM EXER
     1951   03 0048B    327003B6     TST0A    LW,7     :T1AUTO
     1952   03 0048C    357003B9              STW,7    :T1LAST           LAST SUBTEST
     1953   03 0048D    35700202 A            STW,7    :P2
     1954   03 0048E    351003B8              STW,1    :T1CUR            FIRST SUBTEST
     1955   03 0048F    35100201 A            STW,1    :P1
     1956   03 00490    22700493              LI,7     WA(TST001)
     1957   03 00491    557204C8              STH,7    TST103,1          RETURN ADDRESS FROM TST1
     1958   03 00492    680004B6              B        TST101            RETURN FROM TST1
     1959   03 00493    22700496     TST001   LI,7     WA(TST002)
     1960   03 00494    557204F5              STH,7    TST203,1          STORE RETURN ADDRESS FROM TST2
     1961   03 00495    680004E9              B        TST202+3          GO TO RANDOM EXERCISER
     1962   03 00496    EAF0021D A   TST002   BAL,15   *:SENSE           CHECK SENSE SWITCHES
     1963   03 00497    2E000497              WAIT     %                 HALT
     1964   03 00498    6800048B              B        TST0A
     1965   03 00499    E8000214 A            B        *:MONITOR         GO TO MONITOR
     1966                            *
     1967                            *
     1968                            *
     1969                            *                                                                      *
     1970                            *                                                                      *
     1971                            *                 *** TST1 - FUNCTIONAL TEST                           *
     1972                            *                     ----------------------                           *
     1973                            * THIS DIRECTIVE PREFORMS A SYSTEMATIC TEST OF ALL LOGIC FUNCTIONS     *
     1974                            * ASSOCIATED WITH THE 7-TRACK MAGNETIC TAPE SYSTEM. THE FUNCTIONAL     *
     1975                            * TEST CONSISTS OF A NUMBER OF SUBTESTS WHICH MAY BE SELECTED          *
     1976                            * INDIVIDUALLY OR IN GROUPS.                                           *
     1977                            *                                                                      *
     1978                            *     P1  FIRST SUBTEST TO BE PREFORMED. ERROR IF P1 <0 OR >41.        *
     1979                            *     P2  LAST SUBTEST TO BE PREFORMED. ERROR IF P2 <0 OR >41 OR <P1.  *
     1980                            *     P3  NOT USED                                                     *
     1981                            *     P4  NOT USED                                                     *
     1982                            *                                                                      *
     1983   03 0049A    2B0004CE     TST1     STM,0    DATASAVE          SAVE ALL REGISTERS
     1984   03 0049B    32800202 A            LW,8     :P2               LAST TEST
     1985   03 0049C    32700201 A            LW,7     :P1               FIRST SUBTEST
     1986   03 0049D    693004A5              BNEZ     TST101D
     1987   03 0049E    31800001 A            CW,8     1
     1988   03 0049F    681004B4              BGE      TST101B           P1=0, P2 NOT 0
     1989   03 004A0    35100007 A            STW,1    7                 FIRST SUBTEST
     1990   03 004A1    35100201 A            STW,1    :P1
     1991   03 004A2    328003B6              LW,8     :T1AUTO           LAST AUTOMATIC SUBTEST
     1992   03 004A3    35800202 A            STW,8    :P2
     1993   03 004A4    680004AB              B        TST101C
     1994   03 004A5    21700029 A   TST101D  CI,7     41                P1 >41
     1995   03 004A6    692004B0              BG       TST101A
     1996   03 004A7    21800029 A            CI,8     41                P2 >41
     1997   03 004A8    692004B4              BG       TST101B           P2 >40
     1998   03 004A9    31700008 A            CW,7     8                 P1 >P2
     1999   03 004AA    692004B4              BG       TST101B
     2000   03 004AB    357003B8     TST101C  STW,7    :T1CUR            FIRST SUBTEST
     2001   03 004AC    358003B9              STW,8    :T1LAST           LAST SUBTEST
     2002   03 004AD    228004C9              LI,8     TST103+1          TST1 RETURN ADDRESS
     2003   03 004AE    558204C8              STH,8    TST103,1
     2004   03 004AF    680004B6              B        TST101
     2005                            *        PARAMETER P1 INCORRECT
     2006   03 004B0    3510030A A   TST101A  STW,1    :PIT10            P1 IN ERROR
     2007   03 004B1    EAF00229 A            BAL,15   *:PREPORT         REPORT BAD PARAMETER
     2008   03 004B2    00000322              DATA     :DIC+2
     2009   03 004B3    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2010                            *        PARAMETER P2 INCORRECT
     2011   03 004B4    3520030A A   TST101B  STW,2    :PIT10            P2 IN ERROR
     2012   03 004B5    680004B1              B        %-4
     2013   03 004B6    3A501964     TST101   LCW,5    SAVNUMB           FROM TST0
     2014                            *                                   R5 AND R6 DISTURBED
     2015   03 004B7    22600000 A            LI,6     0                 DEVICE NUMBER
     2016   03 004B8    356004DE              STW,6    SAVESIX
     2017   03 004B9    326004DE     TST102   LW,6     SAVESIX
     2018   03 004BA    327C195C              LW,7     SAVDEV,6
     2019   03 004BB    3570195B              STW,7    :DEVADDR          ADDRESS OF DEVICE TO BE TESTED
     2020   03 004BC    32C0195B              LW,12    :DEVADDR          DEVICE
     2021   03 004BD    EAF00218 A            BAL,15   *:HEXC            CONVERT
     2022   03 004BE    35F01A61              STW,15   DEVPRTO+3         STORE
     2023   03 004BF    EAF0021C A            BAL,15   *:PRINT           MESSAGE
     2024   03 004C0    00001A5E              DATA     DEVPRTO
     2025   03 004C1    32700201 A            LW,7     :P1               RESTORE FIRST TEST
     2026   03 004C2    357003B8              STW,7    :T1CUR
     2027   03 004C3    6AF003A2              BAL,15   :TIMRETN          GO TO SEQUENCER
     2028                            *        ALL SUBTESTS DONE ON ONE UNIT
     2029   03 004C4    331004DE              MTW,1    SAVESIX
     2030   03 004C5    326004DE              LW,6     SAVESIX
     2031   03 004C6    31601964              CW,6     SAVNUMB           HAVE ALL UNITS BEEN TESTED
     2032   03 004C7    691004B9              BCS,1    TST102
     2033   03 004C8    680004C9     TST103   B        %+1               TST0 RETURN HERE
     2034   03 004C9    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     2035   03 004CA    2E0004CA              WAIT     %                 HALT
     2036   03 004CB    6800049A              B        TST1              LOOP ON TST1
     2037   03 004CC    2A0004CE              LM,0     DATASAVE          RESTORE ALL REGISTERS
     2038   03 004CD    E8000214 A            B        *:MONITOR         GO TO MONITOR
     2039                            *
     2040                                     BOUND    8
     2041   03 004CE                 DATASAVE RES      16
     2042   03 004DE    00000000 A   SAVESIX  DATA     0
     2043                            *
     2044                            *
     2045                            *
     2046                            *
     2047                            *                                                                      *
     2048                            *                                                                      *
     2049                            *                 *** TST2 - RANDOM EXERCISER                          *
     2050                            *                     -----------------------                          *
     2051                            * THIS DIRECTIVE OPERATES A TAPE SYSTEM WITH A PSEUDO -RANDOM TYPE     *
     2052                            * OPERATION ORDER SEQUENCE, RANDOM DATA PATTERN, I/O AREA, TIME        *
     2053                            * DELAY, AND RECORD SIZE FOR THE PURPOSE OF DETECTING INTERMITTENT     *
     2054                            * FAILURES AND EXERCISING ALL TAPE UNITS. ALL UNITS SPECIFIED WITH     *
     2055                            * THE 'SYST' DIRECTIVE WILL BE EXERCISED.                              *
     2056                            * THE RANDOM EXERCISER CAN BE RUN AT ANY DENSITY IF 75 IPS.            *
     2057                            *                                                                      *
     2058                            *     P1  NUMBER OF CYCLES TO BE PERFORMED. ERROR IF P1 <0. P1 IS      *
     2059                            *         SET TO 1000 IF P1 =0.                                        *
     2060                            *     P2  ERROR RETRY COUNT                                            *
     2061                            *     P3  NOT USED                                                     *
     2062                            *     P4  NOT USED                                                     *
     2063                            *                                                                      *
     2064   03 004DF    32700201 A   TST2     LW,7     :P1               NUMBER OF CYCLES
     2065   03 004E0    691004EF              BLZ      TST201A           P1<0
     2066   03 004E1    692004E3              BGZ      TST201            P1>0
     2067   03 004E2    227003E8 A            LI,7     1000
     2068   03 004E3    3570192E     TST201   STW,7    NMLOOP            NUMBER OF CYCLES STORED
     2069   03 004E4    32700202 A            LW,7     :P2               NUMBER OF RETRIES
     2070   03 004E5    691004F3              BLZ      TST201B           P2<0
     2071   03 004E6    3570192D     TST202   STW,7    CRTRY             NUMBER OF RETRIES STORED
     2072   03 004E7    227004F6              LI,7     TST203+1          TST2 RETURN ADDRESS
     2073   03 004E8    557204F5              STH,7    TST203,1
     2074   03 004E9    2270037C              LI,7     ITHDLR           FETCH TRAP/INT. HANDLER ADDR     *A01
     2075   03 004EA    3570030F A            STW,7    :PIT0+15          STORE INTO PIT+15               *A01
     2076   03 004EB    35200390              STW,2    ITHTEST          STORE TEST NUMBER                *A01
     2077   03 004EC    227004DF              LI,7     TST2             FETCH RESTART ADDRESS            *A01
     2078   03 004ED    35700392              STW,7    ITHRST              SAVE                          *A01
     2079   03 004EE    680010CF              B        T2RE
     2080                            *        PARAMETER P1 INCORRECT
     2081   03 004EF    3510030A A   TST201A  STW,1    :PIT10            P1 IN ERROR
     2082   03 004F0    EAF00229 A            BAL,15   *:PREPORT         REPORT BAD PARAMETER
     2083   03 004F1    00000324              DATA     :DIC+4
     2084   03 004F2    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2085                            *        PARAMETER P2 INCORRECT
     2086   03 004F3    3520030A A   TST201B  STW,2    :PIT10            P2 IN ERROR
     2087   03 004F4    680004F0              B        %-4
     2088   03 004F5    680004F6     TST203   B        %+1               TST0 RETURN HERE
     2089   03 004F6    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     2090   03 004F7    2E0004F7              WAIT     %                 HALT
     2091   03 004F8    680004DF              B        TST2              LOOP
     2092   03 004F9    E8000214 A            B        *:MONITOR         GO TO MONITOR
     2093                            *
     2094                            *
     2095                            *                                                                      *
     2096                            *                                                                      *
     2097                            *                 *** TST3 - UTILITY TEST                              *
     2098                            *                     -------------------                              *
     2099                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT SEVERAL UTILITY TESTS BY    *
     2100                            * SPECIFYING IN PARAMETER 1 THE DESIRED TEST. PARAMETERS 2,3, AND 4    *
     2101                            * ARE SPECIFICALLY INDICATED IN THE DESCRIPTION OF THE SUBTEST IF      *
     2102                            * APPLICABLE. THE UTILITY TESTS CAN RUN AT ANY DENSITY IF 75 IPS.      *
     2103                            *                                                                      *
     2104                            *     P1 =1 TAPE TEST                                                  *
     2105                            *     ---------------                                                  *
     2106                            *                   THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD,  *
     2107                            *                   READ BACKWARD, OR READ FORWARD AND BACKWARD P3     *
     2108                            *                   RECORDS. THE 'DATA' AND 'LEN' DIRECTIVES CAN BE    *
     2109                            *                   SELECTED TO DEFINE THE PATTERN AND RECORD SIZE.    *
     2110                            *                                                                      *
     2111                            *     P2 =0 WRITE, REWIND, READ FORWARD, AND READ BACKWARD P3 RECORDS. *
     2112                            *        =1 WRITE P3 RECORDS.                                          *
     2113                            *        =2 READ FORWARD P3 RECORDS.                                   *
     2114                            *        =3 READ BACKWARD P3 RECORDS.                                  *
     2115                            *        =4 READ FORWARD AND BACKWARD P3 RECORDS IN SEQUENCE.          *
     2116                            *        =8 WRITE, REWIND, READ FWD, SPACE BKW P3 RECORDS (BCD).       *
     2117                            *        =9 WRITE P3 RECORDS (BCD).                                    *
     2118                            *       =10 READ FORWARD P3 RECORDS (BCD).                             *
     2119                            *       =12 READ FWD AND SPACE BKW P3 RECORDS (BCD).                   *
     2120                            *     P3 =NUMBER OF RECORDS TO BE WRITTEN OR READ. IF P3 =0, CONTINUE  *
     2121                            *         UNTIL E.O.T. OR B.O.T. IS REACHED.                           *
     2122                            *     P4 =DELAY IN MILLESICONDS BETWEEN OPERATION SETS.                *
     2123                            *                                                                      *
     2124                            *     P1 =2 DESKEW TEST                                                *
     2125                            *     -----------------                                                *
     2126                            *                   THIS TEST IS PROVIDED AS A SCOPING AID DURING      *
     2127                            *                   CHECKING AND ADJUSTING THE READ/WRITE SKEW. A      *
     2128                            *                   PATTERN OF ALL ONES WILL BE RECORDED AS A          *
     2129                            *                   CONTINUOUS RECORD.                                 *
     2130                            *     P2 =0,1 WRITE UNTIL E.O.T. IS REACHED AND REWIND                 *
     2131                            *        =2 READ FORWARD UNTIL E.O.T. IS REACHED AND REWIND            *
     2132                            *        =3 READ BACKWARD UNTIL BOT IS REACHED                         *
     2133                            *        =4 READ FWD UNTIL E.O.T., SPACE BKW UNITL B.O.T. NO REWINDS.  *
     2134                            *        =5 CAPSTAN SLIPPAGE EXERCISER.                             *A01
     2135                            *     P3 NOT USED                                                      *
     2136                            *     P4 NOT USED                                                      *
     2137                            *                                                                      *
     2138                            *     P1 =3 SYNC ON A CHARACTER TEST                                   *
     2139                            *     ------------------------------                                   *
     2140                            *                   THIS TEST IS PROVIDED AS A SCOPING AID BY EXECUTING*
     2141                            *                   A UNIQUE I/O INSTRUCTION (TDV) AFTER THE BYTE COUNT*
     2142                            *                   SPECIFIED HAS BEEN REACHED.                        *
     2143                            *     P2 =1 READ FORWARD AND SPACE RECORD BACKWARD                     *
     2144                            *        =2 READ BACKWARD AND SPACE RECORD FORWARD                     *
     2145                            *    P3 BYTE TO SYNC ON.                                               *
     2146                            *    P4 DELAY IN MILLISECONDS BETWEEN SYNCS.                           *
     2147                            *                                                                      *
     2148                            *     P1 =4 COMPATABILITY AND NOISE PATTERN TEST                       *
     2149                            *     -----------------------------------------                        *
     2150                            *                   THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD,  *
     2151                            *                   READ BACKWARD, OR READ FORWARD AND BACKWARD A      *
     2152                            *                   PREDETERMINED, INCREMENTED RECORD PATTERN. WHEN    *
     2153                            *                   THE MAXIMUM RECORD COUNT iS REACHED A PERMANENT    *
     2154                            *                   AND TEMPORARY WRITE AND READ ERROR TALLY IS PRINTED.
     2155                            *     P2 =0,1 WRITE, READ BACKWARD AND READ FORWARD                    *
     2156                            *        =2 SPACE FORWARD, READ BACKWARD AND READ FORWARD              *
     2157                            *        =3 READ FORWARD, READ BACKWARD, AND SPACE FORWARD             *
     2158                            *        =4 READ FORWARD ONLY                                          *
     2159                            *        =5 WRITE ONLY                                                 *
     2160                            *     P3 NOT USED                                                      *
     2161                            *     P4 NOT USED                                                      *
     2162                            *                                                                      *
     2163                            *     P1 =5 READ/SPACE TEST                                            *
     2164                            *     ---------------------                                            *
     2165                            *                  THIS TEST ALLOWS THE USER TO READ OR SPACE N RECORDS*
     2166                            *                  WITH OR WITHOUT REWIND. ONLY NON-RECOVERABLE TRANS- *
     2167                            *                  MISSION ERRORS WILL CAUSE ERROR PRINTOUT, BACKSPACE,*
     2168                            *                  AND A HALT.                                         *
     2169                            *    P2  =0 REWIND AND READ FWD N RECORDS.                             *
     2170                            *        =1 REWIND AND SPACE FWD N RECORDS.                            *
     2171                            *        =2 DONT REWIND, READ FWD N RECORDS.                           *
     2172                            *        =3 DONT REWIND, SPACE FWD N RECORDS.                          *
     2173                            *        =4 DONT REWIND, SPACE BKW N RECORDS.                          *
     2174                            *        =8 REWIND AND READ FWD N RECORDS (BCD).                       *
     2175                            *       =10 DONT REWIND, READ FWD N RECORDS (BCD).                     *
     2176                            *    P3  NUMBER OF RECORS TO READ OR SPACE.                            *
     2177                            *    P4  =0 DONT PRINOUT RECORD.                                       *
     2178                            *        =1 PRINTOUT RECORD IN ERROR.                                  *
     2179                            *        =2 PRINTOUT NTH RECORD.                                       *
     2180                            *                                                                      *
     2181   03 004FA    22600000 A   TST3     LI,6     0                 DEVICE NO
     2182   03 004FB    356004DE              STW,6    SAVESIX
     2183   03 004FC    326004DE              LW,6     SAVESIX
     2184   03 004FD    327C195C              LW,7     SAVDEV,6
     2185   03 004FE    3570195B              STW,7    :DEVADDR          SET UP DEVICE ADDRESS
     2186   03 004FF    2270037C              LI,7     ITHDLR           FETCH TRAP/INT. HANDLER ADDR     *A01
     2187   03 00500    3570030F A            STW,7    :PIT0+15          STORE INTO PIT+15               *A01
     2188   03 00501    35300390              STW,3    ITHTEST          STORE TEST NUMBER                *A01
     2189   03 00502    227004FA              LI,7     TST3              FETCH RESTART ADDRESS           *A01
     2190   03 00503    35700392              STW,7    ITHRST              SAVE                          *A01
     2191   03 00504    32700201 A            LW,7     :P1               P1
     2192   03 00505    21700001 A            CI,7     1
     2193   03 00506    683012BB              BEZ      TST31             GO TO TST3,1
     2194   03 00507    21700002 A            CI,7     2
     2195   03 00508    68301405              BEZ      TST32             GO TO TST3,2
     2196   03 00509    21700003 A            CI,7     3
     2197   03 0050A    6830146E              BEZ      TST33             GO TO TST3,3
     2198   03 0050B    21700004 A            CI,7     4
     2199   03 0050C    683014C1              BEZ      TST34             GO TO TST3,4
     2200   03 0050D    21700005 A            CI,7     5
     2201   03 0050E    68301569              BEZ      TST35             GO TO TST3,5
     2202                            *        ERROR P1 INCORRECT
     2203   03 0050F    3510030A A            STW,1    :PIT10            P1 IN ERROR
     2204   03 00510    EAF00229 A            BAL,15   *:PREPORT         REPORT BAD PARAMETER
     2205   03 00511    00000326              DATA     :DIC+6
     2206   03 00512    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2207   03 00513    31100201 A   TST36    CW,1     :P1               CHANGE DEVICES FOR TST3,1 ONLY
     2208   03 00514    69300519              BNE      TST37
     2209   03 00515    331004DE              MTW,1    SAVESIX
     2210   03 00516    326004DE              LW,6     SAVESIX
     2211   03 00517    31601964              CW,6     SAVNUMB           ALL UNITS TESTED
     2212   03 00518    691004FB              BCS,1    TST3+1
     2213   03 00519    EAF0021D A   TST37    BAL,15   *:SENSE           CHECK SENSE SWITCHES
     2214   03 0051A    2E00051A              WAIT     %                 HALT
     2215   03 0051B    680004FA              B        TST3              LOOP
     2216   03 0051C    E8000214 A            B        *:MONITOR         GO TO MONITOR
     2217                            *
     2218                            *
     2219                            *
     2220                            *
     2221                            *
     2222                            *                                   ABSOLUTE RECOVERY ROUTINE
     2223                            *                                   -------------------------
     2224                            *
     2225   03 0051D    35F01978     :RECOVER STW,15   ST1155            SAVE RETURN ADDRESS
     2226                            *
     2227         03 0051E           REVBRNCH EQU      %                 PRINT REVISIONS ('REV' PROC)    *A01
     2228         00000000                    DO       REVCOUNT=0                                        *A01
     2229                        *S*          NOP                                                        *A01
     2230                                     ELSE                                                       *A01
     2231   03 0051E    6AF02ED8 02           BAL,15   REVPRINT                                          *B01
     2232                                     FIN                                                        *A01
     2233                            *
     2234   03 0051F    22100001 A            LI,1     1
     2235   03 00520    22200002 A            LI,2     2
     2236   03 00521    22300003 A            LI,3     3
     2237   03 00522    32401A75              LW,4     XPSD1             I/O INTERRUPT
     2238   03 00523    3540005C A            STW,4    X'5C'
     2239   03 00524    32401EF0              LW,4     :DELXPSD          ZERO INTERRUPT
     2240   03 00525    3540005B A            STW,4    X'5B'
     2241   03 00526    32401EF1              LW,4     :DELMTW           CLOCK INTERRUPT
     2242   03 00527    35400055 A            STW,4    X'55'
     2243   03 00528    32400200 A            LW,4     :MLT              ABSOLUTE RECOVERY
     2244   03 00529    35400026 A            STW,4    X'26'
     2245   03 0052A    22400020 A            LI,4     X'20'             DISARM INTERRUPT
     2246   03 0052B    6D401100 A            WD,4     X'1100'
     2247   03 0052C    E8001978              B        *ST1155           BRANCH BACK
     2248                            *
     2249                            *
     2250                            *
     2251                            *
     2252                            *                                                                      *
     2253                            *
     2254                            *                 *** LEN DIRECTIVE                                    *
     2255                            *                     -------------                                    *
     2256                            * THIS DIRECTIVE DEFINES THE RECORD LENGTH TO BE USED IN THE UTILITY   *
     2257                            * TESTS TO ALTER PREDEFINED BYTE COUNT                                 *
     2258                            *                                                                      *
     2259                            *     P1 FIXED RECORD LENGTH OF N BYTES                                *
     2260                            *     P2 NOT USED                                                      *
     2261                            *     P3 NOT USED                                                      *
     2262                            *     P4 NOT USED                                                      *
     2263                            *                                                                      *
     2264   03 0052D    32700201 A   LEN      LW,7     :P1               LENGTH INTO R7
     2265   03 0052E    69200533              BGZ      LEN1
     2266                            *        ERROR P1 =0 OR P1 NEGATIVE
     2267   03 0052F    3510030A A            STW,1    :PIT10            P1 IN ERROR
     2268   03 00530    EAF00229 A            BAL,15   *:PREPORT         REPORT BAD PARAMETER
     2269   03 00531    0000032A              DATA     :DIC+10
     2270   03 00532    E8000214 A            B        *:MONITOR
     2271   03 00533    31701970     LEN1     CW,7     MAXREADB          MAXIMUM READ BYTE COUNT
     2272   03 00534    68200536              BLE      %+2
     2273   03 00535    32701970              LW,7     MAXREADB          USE MAXIMUM
     2274   03 00536    35701A4C              STW,7    LENGTH
     2275   03 00537    E8000214 A            B        *:MONITOR         GO TO MONITOR
     2276                            *
     2277                            *
     2278                            *
     2279                            *
     2280                            *                 *** DATA DIRECTIVE                                   *
     2281                            *                     --------------                                   *
     2282                            * THIS DIRECTIVE DEFINES THE DATA PATTERN TO BE USED IN THE UTILITY    *
     2283                            * TESTS TO ALTER PREDEFINED DATA PATTERNS.                             *
     2284                            *     P1 =0 FIXED PATTERN (PATTERN IN P2)                              *
     2285                            *        =2 RANDOM PATTERN (SEED IN P2)                                *
     2286                            *        =5 BIT CROWDING PATTERN (TRACKS IN P2, DATA IN P3 AND P4)     *
     2287                            *     P2 FIXED PATTERN IF P1 =0.                                       *
     2288                            *        RANDOM PATTERN SEED IF P1 =2.                                 *
     2289                            *        TRACK NUMBERS IF P1=5 (TWO TRACKS 12 TO 76)                   *
     2290                            *     P3 BINARY DIGIT STRING FOR FIRST TRACK IF P1 =5.                 *
     2291                            *     P4 BINARY DIGIT STRING FOR SECOND TRACK IF P1 =5.                *
     2292                            *                                                                      *
     2293                            *
     2294   03 00538    32700201 A   DATTA    LW,7     :P1               PATTERN TYPE
     2295   03 00539    21700002 A   DATTA1   CI,7     2                 P1 =2
     2296   03 0053A    69300543              BNEZ     DATTA2
     2297   03 0053B    35701A46              STW,7    PATTYPE           RANDOM PATTERN
     2298   03 0053C    32700202 A            LW,7     :P2               SEED IF P1 =2
     2299   03 0053D    6930053F              BNEZ     DATTA1A
     2300                            *        ERROR SEED P2 =0
     2301   03 0053E    68000559              B        DATTA5            P2 IN ERROR
     2302   03 0053F    35701A45     DATTA1A  STW,7    PATTSED
     2303   03 00540    35701DE7              STW,7    :PATID+1          SEED
     2304   03 00541    35201DE6              STW,2    :PATID            TYPE RANDOM
     2305   03 00542    6800055F              B        DATTA9
     2306   03 00543    21700000 A   DATTA2   CI,7     0                 P1 =0
     2307   03 00544    6930054B              BNEZ     DATTA3
     2308   03 00545    35701A46              STW,7    PATTYPE           FIXED PATTERN
     2309   03 00546    35701DE6              STW,7    :PATID            TYPE OF PATTERN
     2310   03 00547    32700202 A            LW,7     :P2               FIXED PATTERN IF P1 =0
     2311   03 00548    35701DE7              STW,7    :PATID+1          WORD TO SMEAR
     2312   03 00549    35701A4A              STW,7    PATTFIX           PATTERN =0 OR NEGATIVE OK
     2313   03 0054A    6800055F              B        DATTA9
     2314   03 0054B    21700005 A   DATTA3   CI,7     5
     2315   03 0054C    68300551              BEZ      DATTA4
     2316                            *                 ERROR IF P1 IS NOT 0,2,5
     2317   03 0054D    3510030A A            STW,1    :PIT10            P1 IN ERROR
     2318   03 0054E    EAF00229 A            BAL,15   *:PREPORT         REPORT BAD PARAMETER
     2319   03 0054F    00000328              DATA     :DIC+8
     2320   03 00550    E8000214 A            B        *:MONITOR         GO TO MONITOR
     2321   03 00551    35701A46     DATTA4   STW,7    PATTYPE           P1 =5
     2322   03 00552    32700202 A            LW,7     :P2               BIT CROWDING
     2323   03 00553    21700012 A            CI,7     X'12'             MINIMUM
     2324   03 00554    69100559              BCS,1    DATTA5
     2325   03 00555    21700076 A            CI,7     X'76'             MAXIMUM
     2326   03 00556    69200559              BCS,2    DATTA5
     2327   03 00557    35701A47              STW,7    PATTTK            STORE TRACKS TO CROWD
     2328   03 00558    6800055B              B        DATTA6
     2329                            *        ERROR TRACKS NOT WITHIN LIMITS
     2330   03 00559    3520030A A   DATTA5   STW,2    :PIT10            P2 IN ERROR
     2331   03 0055A    6800054E              B        DATTA3+3
     2332   03 0055B    32700203 A   DATTA6   LW,7     :P3               BINARY STRING FOR 1 ST DIGIT
     2333   03 0055C    35701A48              STW,7    PATTTS1
     2334   03 0055D    32700204 A            LW,7     :P4               BINARY STRING FOR 2 ND DIGIT
     2335   03 0055E    35701A49              STW,7    PATTTS2
     2336   03 0055F    E8000214 A   DATTA9   B        *:MONITOR         GO TO MONITOR
     2337                            *
     2338                            *
     2339                            *
     2340                            *
     2341                            *                  *******LIMIT DIRECTIVE**********
     2342                            *        THIS DIRECTIVE ALLOWS THE USER TO LIMIT PROGRAM OPERATIONS
     2343                            *        SPECIFIED BY PARAMETERS P1 AND P2.
     2344                            *
     2345                            *                  P1 =1 LIMIT COMPARE ERROR PRINTOUT TO P2 LINES.
     2346                            *
     2347   03 00560    3520030A A   :LIMIT   STW,2    :PIT10            SET ILLEGAL PARAMETER NO.
     2348   03 00561    72820211 A            LB,8     :PSW,1            FETCH PAR COUNT
     2349   03 00562    21800002 A            CI,8     2
     2350   03 00563    68300567              BE       :LIM1             B: PAR COUNT =2
     2351   03 00564    EAF00229 A   :LIM0    BAL,15   *:PREPORT         REPORT PAR ERROR
     2352   03 00565    0000032E              DATA     :DIC+14
     2353   03 00566    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2354   03 00567    3510030A A   :LIM1    STW,1    :PIT10            SET PAR NO =1
     2355   03 00568    31100201 A            CW,1     :P1
     2356   03 00569    69300564              BNE      :LIM0             B: PAR ERROR P1>1
     2357   03 0056A    32800202 A            LW,8     :P2               FETCH PAR P2
     2358   03 0056B    6920056D              BGZ      :LIM2             B: P2 =0
     2359   03 0056C    2280FFFF A            LI,8     X'FFFF'           SET LIMIT TO HI NUMBER
     2360   03 0056D    35801E6C     :LIM2    STW,8    :COMPLIN          SAVE COMPARE LIMIT COUNT
     2361   03 0056E    E8000214 A            B        *:MONITOR         RETURN TO PROGRAM
     2362                            *
     2363                            *
     2364                            *
     2365                            *
     2366                            *
     2367                            *
     2368                            *
     2369                            *
     2370                            *                                   TST1,1 AIO,HIO,TIO,TDV TEST
     2371                            *                                   ------------------------------------
     2372                            *
     2373                            * CHECK THE ABILITY OF THE 7-TRACK MAG TAPE SYSTEM TO CORRECTLY        *
     2374                            * RESPOND TO THE AIO, HIO AND THE TDV INSTRUCTIONS. AIO WILL ONLY      *
     2375                            * CHECK THE NO INTERRUPT PENDING CONDITION. VERIFY ADDRESS RECOGNITION *
     2376                            * AND STATUS RESPONSE TO THESE INSTRUCTIONS. ANY ERROR IN THIS TEST    *
     2377                            * MAY INDICATE A POSSIBLE PROBLEM IN THE SUB-CONTROLLER AREA.          *
     2378                            *                                                                      *
     2379                            *
     2380   03 0056F    22500020 A   :T1ST01  LI,5     X'20'             AIO
     2381   03 00570    6D501100 A            WD,5     X'1100'           DISABLE I/O INTERRUPT
     2382   03 00571    6EC00000 A            AIO,12   0                 AIO
     2383   03 00572    69800578              BCS,8    T1ST0102          NO IP
     2384                            *        ERROR EXIT
     2385   03 00573    EAF0021B A            BAL,15   *:ERROR           #0101
     2386   03 00574    00000065 A            DATA     0101              NO INTERRUPT EXPECTED ON AIO
     2387   03 00575    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2388   03 00576    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2389   03 00577    6800056F              B        :T1ST01           LOOP ON ERROR
     2390   03 00578    6AF016E4     T1ST0102 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2391   03 00579    32E02149              LW,14    =X'E700C000'      MASK AUTOMATIC ONLY
     2392   03 0057A    6AF01C59              BAL,15   :HIO              HIO
     2393   03 0057B    68000581              B        T1ST0103
     2394                            *        ERROR EXIT
     2395   03 0057C    EAF0021B A            BAL,15   *:ERROR           #0102
     2396   03 0057D    00000066 A            DATA     0102              INCORRECT STATUS RESPONSE ON HIO
     2397   03 0057E    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2398   03 0057F    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2399   03 00580    68000578              B        T1ST0102          LOOP ON ERROR
     2400   03 00581    6AF016E4     T1ST0103 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2401   03 00582    32E0214A              LW,14    =X'EF00C000'      MASK AUTOMATIC ONLY
     2402   03 00583    6AF01C4E              BAL,15   :TIO              TIO
     2403   03 00584    6800058A              B        T1ST0104
     2404                            *        ERROR EXIT
     2405   03 00585    EAF0021B A            BAL,15   *:ERROR           #0103
     2406   03 00586    00000067 A            DATA     0103              INCORRECT STATUS RESPONSE ON TIO
     2407   03 00587    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2408   03 00588    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2409   03 00589    68000578              B        T1ST0102          LOOP ON ERROR, REPEAT HIO
     2410   03 0058A    6AF016E4     T1ST0104 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2411   03 0058B    32E0214B              LW,14    =X'BB00C000'      WRITE PERMIT AND LOAD PT OK
     2412   03 0058C    6AF01C64              BAL,15   :TDV
     2413   03 0058D    68000594              B        T1ST0105
     2414                            *        ERROR EXIT
     2415   03 0058E    EAF0021B A            BAL,15   *:ERROR           #0104
     2416   03 0058F    00000068 A            DATA     0104              INCORRECT STATUS RESPONSE ON TDV
     2417   03 00590    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2418   03 00591    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2419   03 00592    6800058A              B        T1ST0104          LOOP ON ERROR
     2420   03 00593    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2421   03 00594    680003B0     T1ST0105 B        :TIM              GO TO SEQUENCER
     2422                            *
     2423                            *
     2424                            *                                   TST1,2 INVALID ORDER TEST
     2425                            *                                   ------------------------------------
     2426                            *
     2427                            * CHECK THE INVALID ORDER DETECTION BY ISSUING TWO SIO'S WITH INVALID  *
     2428                            * ORDER CODES (X'0C',X'03'). THIS TEST IS DESIGNED TO CHECK ORDER      *
     2429                            * DECODING, ORDER-OUTPUT AND ORDER-INPUT PHASES IN THE CONTROLLER AND  *
     2430                            * UNUSUAL END DETECTION. THE REMAINING BYTE COUNT WILL BE TESTED TO    *
     2431                            * VERIFY THAT NO DATA PHASES WERE EXECUTED. CHECK THE ABILITY OF THE   *
     2432                            * HIO TO RESET UE CONDITION.                                           *
     2433                            *                                                                      *
     2434                            *
     2435                            *
     2436   03 00595    32E02149     :T1ST02  LW,14    =X'E700C000'      AUTOMATIC ONLY
     2437   03 00596    22000C19              LI,0     DA(TWR1)          INVALID READ BACKWARD
     2438   03 00597    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2439   03 00598    6AF01C43              BAL,15   :SIO
     2440   03 00599    6800059D              B        %+4
     2441   03 0059A    EAF0021B A            BAL,15   *:ERROR           0201
     2442   03 0059B    000000C9 A            DATA     0201              SIO NOT ACCEPTED
     2443   03 0059C    680005A2              B        %+6
     2444   03 0059D    6AF01F72              BAL,15   :ERRORT           TEST
     2445   03 0059E    000060A0              DATA     BA(TSEQ034)       NO INTERRUPT PENDING  , UE
     2446   03 0059F    680005A5              B        T1ST0201
     2447                            *        ERROR EXIT
     2448   03 005A0    EAF0021B A            BAL,15   *:ERROR           0202
     2449   03 005A1    000000CA A            DATA     0202              STATUS ERROR
     2450   03 005A2    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2451   03 005A3    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2452   03 005A4    68000595              B        :T1ST02           LOOP ON ERROR
     2453   03 005A5    CFA0195B     T1ST0201 HIO,10   *:DEVADDR         HIO TO RESET UE
     2454   03 005A6    CDC0195B              TIO,12   *:DEVADDR         UE SHOULD BE RESET
     2455   03 005A7    31D0214C              CW,13    =X'08000000'
     2456   03 005A8    684005AE              BCR,4    T1ST0202          UE SHOULD BE RESET
     2457                            *        ERROR EXIT
     2458   03 005A9    EAF0021B A            BAL,15   *:ERROR           0203
     2459   03 005AA    000000CB A            DATA     0203              INCORRECT STATUS RESPONSE
     2460   03 005AB    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     2461   03 005AC    2E000000 A            WAIT                       HALT
     2462   03 005AD    68000595              B        :T1ST02
     2463   03 005AE    32E02149     T1ST0202 LW,14    =X'E700C000'      AUTOMATIC ONLY
     2464   03 005AF    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2465   03 005B0    22000C1A              LI,0     DA(TWR2)          INVALID SET CORRECTION
     2466   03 005B1    6AF01C43              BAL,15   :SIO
     2467   03 005B2    680005B6              B        %+4
     2468   03 005B3    EAF0021B A            BAL,15   *:ERROR           0204
     2469   03 005B4    000000CC A            DATA     0204              SIO NOT ACCEPTED
     2470   03 005B5    680005BB              B        %+6
     2471   03 005B6    6AF01F72              BAL,15   :ERRORT           TEST
     2472   03 005B7    000060A0              DATA     BA(TSEQ034)       NO INTERRUPT PENDING  , UE
     2473   03 005B8    680005BE              B        T1ST0203
     2474                            *        ERROR EXIT
     2475   03 005B9    EAF0021B A            BAL,15   *:ERROR           0205
     2476   03 005BA    000000CD A            DATA     0205              INCORRECT STATUS RESPONSE ON SIO
     2477   03 005BB    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2478   03 005BC    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2479   03 005BD    680005AE              B        T1ST0202          LOOP ON ERROR
     2480   03 005BE    6AF016E4     T1ST0203 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2481   03 005BF    680003B0              B        :TIM              GO TO SEQUENCER
     2482                            *
     2483                            *
     2484                            *
     2485                            *
     2486                            *                                   TST1,3 ERASE ORDER TEST
     2487                            *                                   ------------------------------------
     2488                            *
     2489                            * CHECK THE EXECUTION OF THE FIRST VALID ORDER. THIS TEST IS DESIGNED  *
     2490                            * TO FURTHER CHECK ORDER DECODING, ORDER-OUTPUT AND ORDER-INPUT PHASES *
     2491                            * IN THE CONTROLLER, AND ORDER TERMINATION WITHOUT UNUSUAL END. THE    *
     2492                            * REMAINING BYTE COUNT WILL BE TESTED TO VARIFY THAT NO DATA PHASES    *
     2493                            * WERE EXECUTED. THE STATUS RESPONSE WILL BE TESTED.                   *
     2494                            *                                                                      *
     2495                            *
     2496   03 005C0    32E0214D     :T1ST03  LW,14    =X'0000C000'      AUTOMATIC ONLY
     2497   03 005C1    22000C1D              LI,0     DA(TSE3)          SET ERASE BC = 2 NO INTERRUPT
     2498   03 005C2    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2499   03 005C3    6AF01C43              BAL,15   :SIO              SET ERASE
     2500   03 005C4    680005CA              B        T1ST0302
     2501                            *        ERROR EXIT
     2502   03 005C5    EAF0021B A            BAL,15   *:ERROR           #0301
     2503   03 005C6    0000012D A            DATA     0301              INCORRECT STATUS RESPONSE ON SIO
     2504   03 005C7    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2505   03 005C8    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2506   03 005C9    680005C0              B        :T1ST03           LOOP ON ERROR
     2507   03 005CA    22E00032 A   T1ST0302 LI,14    50                DELAY
     2508   03 005CB    6AF01ED4              BAL,15   :DELAY            WAIT NO INTERRUPT
     2509   03 005CC    680005CD              B        %+1
     2510   03 005CD    6AF01F72              BAL,15   :ERRORT           TEST
     2511   03 005CE    00006088              DATA     BA(TSEQ030)       READY, BC=2 , NO UE
     2512   03 005CF    680005D5              B        T1ST0304
     2513                            *        ERROR EXIT
     2514   03 005D0    EAF0021B A            BAL,15   *:ERROR           #0302
     2515   03 005D1    0000012E A            DATA     0302              INCORRECT STATUS RESPONSE ON TIO
     2516   03 005D2    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2517   03 005D3    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2518   03 005D4    680005C0              B        :T1ST03           LOOP ON ERROR
     2519   03 005D5    6AF016E4     T1ST0304 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2520   03 005D6    680003B0              B        :TIM              GO TO SEQUENCER
     2521                            *
     2522                            *
     2523                            *
     2524                            *                                   TST1,4 NO OPERATION TEST
     2525                            *                                   ------------------------------------
     2526                            *
     2527   03 005D7    680003B0     :T1ST04  B        :TIM              GO TO SEQUENCER
     2528                            *                                                                      *
     2529                            *
     2530                            *
     2531                            *
     2532                            *                                   TST1,5 NO OPERATION TEST
     2533                            *                                   ------------------------------------
     2534                            *
     2535   03 005D8    680003B0     :T1ST05  B        :TIM              GO TO SEQUENCER
     2536                            *                                                                      *
     2537                            *
     2538                            *
     2539                            *
     2540                            *
     2541                            *                                   TST1,6 NO OPERATION
     2542                            *                                   ------------------------------------
     2543                            *
     2544                            *
     2545   03 005D9    680003B0     :T1ST06  B        :TIM              NO TEST
     2546                            *
     2547                            *
     2548                            *                                   TST1,7 INTERRUPT ON UE, CE AND AIO *
     2549                            *                                   ------------------------------------
     2550                            *
     2551                            *  CHECK THE ABILITY OF THE CONTROLLER TO GENERATE AN INTERRUPT ON     *
     2552                            *  UNUSUAL END AND CHANNEL END USING A READ BACKWARD AND               *
     2553                            *  THE SET ERASE ORDER IN THAT SEQUENCE. CHECK THE EXECUTION           *
     2554                            *  OF THE AIO INSTRUCTION. VERIFY THAT AIO AND HIO CAN RESET THE       *
     2555                            *  INTERRUPT PENDING CONDITION. ALL STATUS RESPONSES WILL BE TESTED.   *
     2556                            *                                                                      *
     2557                            *
     2558   03 005DA    6AF016DC     :T1ST07  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2559   03 005DB    22000C1B              LI,0     DA(TWR3)          READ BKW WITH UE SET
     2560   03 005DC    32E0214D              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     2561   03 005DD    6AF01C43              BAL,15   :SIO              WRITE BKW UE SET
     2562   03 005DE    680005E4              B        T1ST0702
     2563                            *        ERROR EXIT
     2564   03 005DF    EAF0021B A            BAL,15   *:ERROR           #0701
     2565   03 005E0    000002BD A            DATA     0701              INCORRECT STATUS RESPONSE ON SIO
     2566   03 005E1    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2567   03 005E2    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2568   03 005E3    680005DA              B        :T1ST07           LOOP ON ERROR
     2569   03 005E4    22E00064 A   T1ST0702 LI,14    100               100 MS DELAY
     2570   03 005E5    6AF01ED4              BAL,15   :DELAY
     2571   03 005E6    680005EC              B        T1ST0703
     2572                            *        ERROR EXIT TIMEOUT
     2573   03 005E7    EAF0021B A            BAL,15   *:ERROR           #0702
     2574   03 005E8    000002BE A            DATA     0702              TIMEOUT ON SIO
     2575   03 005E9    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2576   03 005EA    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2577   03 005EB    680005DA              B        :T1ST07           LOOP ON ERROR
     2578   03 005EC    6AF01F72     T1ST0703 BAL,15   :ERRORT
     2579   03 005ED    00005FD8              DATA     BA(TSEQ001)       AIO-IUE, HIO-IP RESET-UE SET
     2580                            *                                   TIO- UE RESET (BY HIO)
     2581   03 005EE    680005F4              B        T1ST0704
     2582                            *        ERROR EXIT
     2583   03 005EF    EAF0021B A            BAL,15   *:ERROR           #0703
     2584   03 005F0    000002BF A            DATA     0703              INCORRECT BITS ON TEST
     2585   03 005F1    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2586   03 005F2    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2587   03 005F3    680005DA              B        :T1ST07           LOOP ON ERROR
     2588   03 005F4    22000C1E     T1ST0704 LI,0     DA(TSE)
     2589   03 005F5    32E0214D              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     2590   03 005F6    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2591   03 005F7    6AF01C43              BAL,15   :SIO              ERASE CE SET
     2592   03 005F8    680005FE              B        T1ST0705
     2593                            *        ERROR EXIT
     2594   03 005F9    EAF0021B A            BAL,15   *:ERROR           #0704
     2595   03 005FA    000002C0 A            DATA     0704              INCORRECT STATUS RESPONSE ON SIO
     2596   03 005FB    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2597   03 005FC    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2598   03 005FD    680005F4              B        T1ST0704          LOOP ON ERROR
     2599   03 005FE    22E00064 A   T1ST0705 LI,14    100               100 MSDELAY
     2600   03 005FF    6AF01ED4              BAL,15   :DELAY
     2601   03 00600    68000606              B        T1ST0706
     2602                            *        ERROR EXIT TIMEOUT
     2603   03 00601    EAF0021B A            BAL,15   *:ERROR           #0705
     2604   03 00602    000002C1 A            DATA     0705              TIMEOUT ON SIO
     2605   03 00603    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2606   03 00604    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2607   03 00605    680005F4              B        T1ST0704          LOOP ON ERROR
     2608   03 00606    6AF01F72     T1ST0706 BAL,15   :ERRORT
     2609   03 00607    00005FDC              DATA     BA(TSEQ002)       AIO,ICE,TIO IP RESET
     2610   03 00608    6800060E              B        T1ST0710
     2611                            *        ERROR EXIT
     2612   03 00609    EAF0021B A            BAL,15   *:ERROR           #0706
     2613   03 0060A    000002C2 A            DATA     0706              INCORRECT BITS ON TEST
     2614   03 0060B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2615   03 0060C    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2616   03 0060D    680005F4              B        T1ST0704          LOOP ON ERROR
     2617                            *        INTERRUPT ON ZBC CHECKED LATER
     2618   03 0060E    6AF016E4     T1ST0710 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2619   03 0060F    32E0214D              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     2620   03 00610    22000C1B              LI,0     DA(TWR3)          READ BKW WITH UE SET
     2621   03 00611    6AF01C43              BAL,15   :SIO              SIO
     2622   03 00612    22E00064 A            LI,14    100
     2623   03 00613    6AF01ED4              BAL,15   :DELAY            DELAY
     2624   03 00614    68000615              B        %+1
     2625   03 00615    CFC0195B              HIO,12   *:DEVADDR         HIO
     2626   03 00616    22EFFF38 A            LI,14    -200              DELAY
     2627   03 00617    65E00617              BIR,14   %
     2628   03 00618    31D0214E              CW,13    =X'88000000'      UE AND IP SET
     2629   03 00619    6940061F              BCS,4    T1ST0711
     2630                            *        ERROR EXIT
     2631   03 0061A    EAF0021B A            BAL,15   *:ERROR           0710
     2632   03 0061B    000002C6 A            DATA     0710              INCORRECT BITS ON TEST
     2633   03 0061C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTIONG
     2634   03 0061D    2E000000 A            WAIT
     2635   03 0061E    6800060E              B        T1ST0710          LOOP ON ERROR
     2636   03 0061F    CDC0195B     T1ST0711 TIO,12   *:DEVADDR         TIO
     2637   03 00620    31D0214F              CW,13    =X'80000000'      IP SET
     2638   03 00621    68400627              BCR,4    T1ST0712
     2639                            *        ERROR EXIT
     2640   03 00622    EAF0021B A            BAL,15   *:ERROR           0711
     2641   03 00623    000002C7 A            DATA     0711
     2642   03 00624    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2643   03 00625    2E000000 A            WAIT
     2644   03 00626    6800060E              B        T1ST0710          LOOP ON ERROR
     2645   03 00627    6AF016E4     T1ST0712 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2646   03 00628    680003B0              B        :TIM              GO TO SEQUENCER
     2647                            *
     2648                            *
     2649                            *                                   TST1,8 I/O INTERRUPT TEST
     2650                            *                                   ------------------------------------
     2651                            *
     2652                            *  CHECK THE ABILITY OF THE IOP AND CPU TO INTERRUPT THE PROGRAM       *
     2653                            *  WHENEVER AN INTERRUPT CALL IS GENERATED BY THE CONTROLLER. VERIFY   *
     2654                            *  PROPER OPERATION OF INTERRUPT ARM/DISARM AND ENABLE/DISABLE MODES.  *
     2655                            *                                                                      *
     2656                            *
     2657   03 00629    6AF016E4     :T1ST08  BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2658   03 0062A    22000C39              LI,0     DA(TWRUE)
     2659   03 0062B    CCC0195B              SIO,12   *:DEVADDR         READ BKW UE SET
     2660   03 0062C    228FFFC4 A            LI,8     -60               DELAY
     2661   03 0062D    6580062D              BIR,8    %
     2662   03 0062E    CDC0195B              TIO,12   *:DEVADDR         TIO
     2663   03 0062F    32E02150              LW,14    L(X'98000002')
     2664   03 00630    31E0000D A            CW,14    13                AUTOMATIC AND UE SET- IP SET
     2665   03 00631    68300637              BEZ      T1ST0802
     2666                            *        ERROR EXIT
     2667   03 00632    EAF0021B A            BAL,15   *:ERROR           #0801
     2668   03 00633    00000321 A            DATA     0801              INCORRECT STATUS RESPONSE ON TIO
     2669   03 00634    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2670   03 00635    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2671   03 00636    68000629              B        :T1ST08           LOOP ON ERROR
     2672   03 00637    22F00020 A   T1ST0802 LI,15    X'20'
     2673   03 00638    6DF01300 A            WD,15    X'1300'           ARM AND DISABLE INTERRUPT
     2674   03 00639    CDC0195B              TIO,12   *:DEVADDR         TIO
     2675   03 0063A    32E02150              LW,14    L(X'98000002')
     2676   03 0063B    31E0000D A            CW,14    13
     2677   03 0063C    68300642              BEZ      T1ST0803
     2678                            *        ERROR EXIT
     2679   03 0063D    EAF0021B A            BAL,15   *:ERROR           #0802
     2680   03 0063E    00000322 A            DATA     0802              INCORRECT STATUS RESPONSE ON TIO
     2681   03 0063F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2682   03 00640    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2683   03 00641    68000629              B        :T1ST08           LOOP ON ERROR
     2684   03 00642    22F00020 A   T1ST0803 LI,15    X'20'
     2685   03 00643    6DF01400 A            WD,15    X'1400'           ENABLE INTERRUPT
     2686   03 00644    22E0012C A            LI,14    300               300 MS DELAY
     2687   03 00645    6AF01ED4              BAL,15   :DELAY
     2688   03 00646    6800064C              B        T1ST0804
     2689                            *        ERROR EXIT TIMEOUT
     2690   03 00647    EAF0021B A            BAL,15   *:ERROR           #0803
     2691   03 00648    00000323 A            DATA     0803              TIMEOUT ON TIO
     2692   03 00649    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2693   03 0064A    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2694   03 0064B    68000629              B        :T1ST08           LOOP ON ERROR
     2695   03 0064C    6AF016E4     T1ST0804 BAL,15   CLRDARM           CLEAR AND DISARM AND DISABLE INT
     2696   03 0064D    680003B0              B        :TIM              GO TO SEQUENCER
     2697                            *
     2698                            *
     2699                            *
     2700                            *                                   TST1,9 COMMAND CHAINING
     2701                            *                                   ------------------------------------
     2702                            *
     2703                            *  TEST THE COMMAND CHAINING ABILITY OF THE CONTROLLER BY ISSUING AN   *
     2704                            *  SET ERASE/ READ BACKWARD ORDER SEQUENCE. TEST THE TERMINATION OF    *
     2705                            *  THE COMMAND CHAINING SEQUENCE BY ISSUING A READ-BKW/ SET ERASE      *
     2706                            *  ORDER SEQUENCE. ALL STATUS RESPONSES WILL BE TESTED                 *
     2707                            *                                                                      *
     2708                            *
     2709   03 0064E    6AF016DC     :T1ST09  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2710   03 0064F    32E0214D              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     2711   03 00650    22000C1F              LI,0     DA(TSECC)
     2712   03 00651    6AF01C43              BAL,15   :SIO              SIO CC SET ERASE, READ BKW
     2713   03 00652    68000658              B        T1ST0902
     2714                            *        ERROR EXIT
     2715   03 00653    EAF0021B A            BAL,15   *:ERROR           #0901
     2716   03 00654    00000385 A            DATA     0901              INCORRECT STATUS RESPONSE ON SIO
     2717   03 00655    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2718   03 00656    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2719   03 00657    6800064E              B        :T1ST09           LOOP ON ERROR
     2720   03 00658    22E00064 A   T1ST0902 LI,14    100               100 MS DELAY
     2721   03 00659    6AF01ED4              BAL,15   :DELAY
     2722   03 0065A    68000660              B        T1ST0903
     2723                            *        ERROR EXIT TIMEOUT
     2724   03 0065B    EAF0021B A            BAL,15   *:ERROR           #0902
     2725   03 0065C    00000386 A            DATA     0902              TIMEOUT ON SIO
     2726   03 0065D    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2727   03 0065E    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2728   03 0065F    6800064E              B        :T1ST09           LOOP ON ERROR
     2729   03 00660    CDC0195B     T1ST0903 TIO,12   *:DEVADDR         TIO
     2730   03 00661    21C00C20              CI,12    DA(TWBK)          LAST DA ADDRESS
     2731   03 00662    68300668              BEZ      T1ST0904
     2732                            *        ERROR EXIT
     2733   03 00663    EAF0021B A            BAL,15   *:ERROR           #0903
     2734   03 00664    00000387 A            DATA     0903              INCORRECT LAST OPERATION ON CC
     2735   03 00665    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2736   03 00666    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2737   03 00667    6800064E              B        :T1ST09           LOOP ON ERROR
     2738   03 00668    6AF016DC     T1ST0904 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2739   03 00669    32E0214D              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     2740   03 0066A    22000C22              LI,0     DA(TWRCC)
     2741   03 0066B    6AF01C43              BAL,15   :SIO              SIO CC READ BKW, SET ERASE
     2742   03 0066C    68000672              B        T1ST0905
     2743                            *        ERROR EXIT
     2744   03 0066D    EAF0021B A            BAL,15   *:ERROR           #0904
     2745   03 0066E    00000388 A            DATA     0904              INCORRECT STATUS RESPONSE ON SIO
     2746   03 0066F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2747   03 00670    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2748   03 00671    68000668              B        T1ST0904          LOOP ON ERROR
     2749   03 00672    22E00064 A   T1ST0905 LI,14    100               100 MS DELAY
     2750   03 00673    6AF01ED4              BAL,15   :DELAY
     2751                            *        ERROR EXIT TIMEOUT
     2752   03 00674    6800067A              B        T1ST0906
     2753   03 00675    EAF0021B A            BAL,15   *:ERROR           #0905
     2754   03 00676    00000389 A            DATA     0905              TIMEOUT ON SIO
     2755   03 00677    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2756   03 00678    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2757   03 00679    68000668              B        T1ST0904          LOOP ON ERROR
     2758   03 0067A    CDC0195B     T1ST0906 TIO,12   *:DEVADDR         TIO
     2759   03 0067B    21C00C22              CI,12    DA(TWRCC)         LAST DOUBLE WORD
     2760   03 0067C    68300682              BEZ      T1ST0907
     2761                            *        ERROR EXIT
     2762   03 0067D    EAF0021B A            BAL,15   *:ERROR           #0906
     2763   03 0067E    0000038A A            DATA     0906              INCORRECT LAST OPERATION ON CC
     2764   03 0067F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2765   03 00680    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2766   03 00681    68000668              B        T1ST0904          LOOP ON ERROR
     2767   03 00682    6AF016E4     T1ST0907 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2768   03 00683    680003B0              B        :TIM              GO TO SEQUENCER
     2769                            *
     2770                            *
     2771                            *
     2772                            *                                   T1ST,10 NO OPPERATION
     2773                            *                                   ------------------------------------
     2774                            *
     2775                            *
     2776   03 00684    680003B0     :T1ST10  B        :TIM              GO TO SEQUENCER
     2777                            *
     2778                            *
     2779                            *                                   T1ST,11 REWIND TEST
     2780                            *                                   ------------------------------------
     2781                            *  CHECK THE EXECUTION OF A REWIND ON-LINE ORDER. THE TEST WILL VERIFY *
     2782                            *  THAT THE TAPE IS POSITIONED AT LOAD POINT AFTER COMPLETION OF THE   *
     2783                            *  REWIND ORDER  CHECK THE EXECUTION OF A REWIND AND INTERRUPT ORDER.  *
     2784                            *  THIS TEST WILL VERIFY THAT THE TAPE REMAINS AT LOAD POINT AND THAT  *
     2785                            *  THE DEVICE INITIATES AN INTERRUPT REQUEST. VERIFY THAT AN AIO AND HIO
     2786                            *  INSTRUCTION CAN RESET THE INTERRUPT PENDING CONDITION IN THE TAPE   *
     2787                            *  CONTROLLER AND THE TAPE STATION. VERIFY THAT DEVICE END STATUS IS   *
     2788                            *  RETURNED DURING THE AIO. ALL STATUS RESPONSES WILL BE TESTED.       *
     2789                            *                                                                      *
     2790                            *
     2791                            *
     2792   03 00685    6AF016DC     :T1ST11  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2793   03 00686    22000C24              LI,0     DA(TRWOL)         REWIND ON LINE
     2794   03 00687    CCC0195B              SIO,12   *:DEVADDR         SIO
     2795   03 00688    CDA0195B     T1ST1102 TIO,10   *:DEVADDR         TIO FOR BUSY
     2796   03 00689    32E02151              LW,14    =X'66000000'      BUSY OR REWINDING
     2797   03 0068A    31E0000B A            CW,14    11                STATUS
     2798   03 0068B    69400688              BCS,4    T1ST1102          LOOP TILL NOT BUSY
     2799   03 0068C    32E02152              LW,14    =X'04000000'      LOAD POINT ONLY
     2800   03 0068D    CEC0195B              TDV,12   *:DEVADDR         TDV AFTER REWIND
     2801   03 0068E    31D0000E A            CW,13    14
     2802   03 0068F    69400695              BCS,4    T1ST1103
     2803                            *        ERROR EXIT
     2804   03 00690    EAF0021B A            BAL,15   *:ERROR           #1101
     2805   03 00691    0000044D A            DATA     1101              INCORRECT BITS ON TEST
     2806   03 00692    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2807   03 00693    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2808   03 00694    68000685              B        :T1ST11           LOOP ON ERROR
     2809   03 00695    6AF016E4     T1ST1103 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2810   03 00696    22000C25              LI,0     DA(TRWAI)         REWIND AND INTERRUPT
     2811   03 00697    CCC0195B              SIO,12   *:DEVADDR
     2812   03 00698    227FFF9C A            LI,7     -100              DELAY
     2813   03 00699    65700699              BIR,7    %
     2814   03 0069A    CDA0195B     T1ST1104 TIO,10   *:DEVADDR
     2815   03 0069B    32E0214F              LW,14    =X'80000000'      INTERRUPT PENDING
     2816   03 0069C    31E0000B A            CW,14    11                STATUS INT PENDING SET
     2817   03 0069D    694006A3              BCS,4    T1ST1105
     2818                            *        ERROR EXIT
     2819   03 0069E    EAF0021B A            BAL,15   *:ERROR           #1102
     2820   03 0069F    0000044E A            DATA     1102              INCORRECT STATUS RESPONSE ON TIO
     2821   03 006A0    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2822   03 006A1    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2823   03 006A2    68000695              B        T1ST1103          LOOP ON ERROR
     2824   03 006A3    CFA0195B     T1ST1105 HIO,10   *:DEVADDR
     2825   03 006A4    32E0214F              LW,14    =X'80000000'      INTERRUPT PENDING
     2826   03 006A5    CDC0195B              TIO,12   *:DEVADDR         TIO
     2827   03 006A6    4BE0000D A            AND,14   13
     2828   03 006A7    683006AD              BEZ      T1ST1106
     2829                            *        ERROR EXIT
     2830   03 006A8    EAF0021B A            BAL,15   *:ERROR           #1103
     2831   03 006A9    0000044F A            DATA     1103              INCORRECT STATUS RESPONSE ON HIO
     2832   03 006AA    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2833   03 006AB    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2834   03 006AC    68000695              B        T1ST1103          LOOP ON ERROR
     2835   03 006AD    6AF016E4     T1ST1106 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2836   03 006AE    22000C25              LI,0     DA(TRWAI)         REWIND AND INTERRUPT
     2837   03 006AF    CCC0195B              SIO,12   *:DEVADDR
     2838   03 006B0    227FFF9C A            LI,7     -100              DELAY
     2839   03 006B1    657006B1              BIR,7    %
     2840   03 006B2    CDA0195B              TIO,10   *:DEVADDR
     2841   03 006B3    32E0214F              LW,14    =X'80000000'      INTERRUPT PENDING
     2842   03 006B4    31E0000B A            CW,14    11                STATUS INT PENDING SET
     2843   03 006B5    694006BB              BCS,4    T1ST1107
     2844                            *        ERROR EXIT                 AIO
     2845   03 006B6    EAF0021B A            BAL,15   *:ERROR           #1104
     2846   03 006B7    00000450 A            DATA     1104              INCORRECT STATUS RESPONSE ON SIO
     2847   03 006B8    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2848   03 006B9    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2849   03 006BA    680006AD              B        T1ST1106          LOOP ON ERROR
     2850   03 006BB    6EB00000 A   T1ST1107 AIO,11   0                 AIO
     2851   03 006BC    32E02153              LW,14    =X'40000000'      DEVICE END
     2852   03 006BD    31E0000B A            CW,14    11                STATUS DEVICE END SET
     2853   03 006BE    694006C4              BCS,4    T1ST1108
     2854                            *        ERROR EXIT
     2855   03 006BF    EAF0021B A            BAL,15   *:ERROR           #1105
     2856   03 006C0    00000451 A            DATA     1105              INCORRECT STATUS RESPONSE ON AIO
     2857   03 006C1    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2858   03 006C2    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2859   03 006C3    680006AD              B        T1ST1106          LOOP ON ERROR
     2860   03 006C4    CDA0195B     T1ST1108 TIO,10   *:DEVADDR         TIO
     2861   03 006C5    32E0214F              LW,14    =X'80000000'      INTERRUPT PENDING
     2862   03 006C6    31E0000B A            CW,14    11                STATUS INT PENDING
     2863   03 006C7    684006CD              BCR,4    T1ST1109
     2864                            *        ERROR EXIT
     2865   03 006C8    EAF0021B A            BAL,15   *:ERROR           #1106
     2866   03 006C9    00000452 A            DATA     1106              INCORRECT STATUS RESPONSE ON TIO
     2867   03 006CA    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2868   03 006CB    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2869   03 006CC    680006C4              B        T1ST1108          LOOP ON ERROR
     2870   03 006CD    32E02152     T1ST1109 LW,14    =X'04000000'      LOAD POINT ONLY
     2871   03 006CE    CEC0195B              TDV,12   *:DEVADDR         TDV AFTER REWIND
     2872   03 006CF    31D0000E A            CW,13    14
     2873   03 006D0    694006D6              BCS,4    T1ST1110
     2874                            *        ERROR EXIT
     2875   03 006D1    EAF0021B A            BAL,15   *:ERROR           #1107
     2876   03 006D2    00000453 A            DATA     1107              INCORRECT BITS ON TEST
     2877   03 006D3    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2878   03 006D4    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2879   03 006D5    680006AD              B        T1ST1106          LOOP ON ERROR
     2880   03 006D6    6AF016E4     T1ST1110 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2881   03 006D7    680003B0              B        :TIM              GO TO SEQUENCER
     2882                            *
     2883                            *
     2884                            *
     2885                            *
     2886                            *                                   TST1,12  SPACE RECORD AND FILE
     2887                            *                                           BACKWARD FROM BOT TEST
     2888                            *                                   ------------------------------------
     2889                            *
     2890                            *  CHECK THE EXECUTION OF SPACE RECORD AND SPACE FILE ORDERS           *
     2891                            *  IN THE BACKWARD DIRECTION WITH TAPE POSITIONED AT LOAD POINT        *
     2892                            *  VERIFY THAT THE CONTROLLER RESPONDS WITH UNUSUAL END, END OF FILE   *
     2893                            *  (TDV AND AIO) AND LOAD POINT STATUS. THE TEST WILL CHECK THAT THE   *
     2894                            *  TAPE REMAINS AT LOAD POINT. THE BYTE COUNT FOR ALL ORDERS SPECIFIED *
     2895                            *  MUST REMAIN UNCHANGED.                                              *
     2896                            *                                                                      *
     2897                            *
     2898   03 006D8    6AF0169E     :T1ST12  BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     2899   03 006D9    6AF016DC     T1ST1203 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2900   03 006DA    22000C5C              LI,0     DA(SBR1)          SPACE BKW UE SET BC=2
     2901   03 006DB    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     2902   03 006DC    32E00064 A            LW,14    100               100 MS DELAY
     2903   03 006DD    6AF01ED4              BAL,15   :DELAY
     2904   03 006DE    680006E4              B        T1ST1204
     2905                            *        ERROR EXIT TIMEOUT
     2906   03 006DF    EAF0021B A            BAL,15   *:ERROR           #1203
     2907   03 006E0    000004B3 A            DATA     1203              TIMEOUT ON SIO
     2908   03 006E1    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2909   03 006E2    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2910   03 006E3    680006D9              B        T1ST1203          LOOP ON ERROR
     2911   03 006E4    6AF01F72     T1ST1204 BAL,15   :ERRORT           TEST
     2912   03 006E5    00005FEC              DATA     BA(TSEQ006)       UE,LOAD PT, BYTECOUNT =2
     2913   03 006E6    680006EC              B        T1ST1205
     2914                            *        ERROR EXIT
     2915   03 006E7    EAF0021B A            BAL,15   *:ERROR           #1204
     2916   03 006E8    000004B4 A            DATA     1204              INCORRECT BITS ON TEST
     2917   03 006E9    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2918   03 006EA    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2919   03 006EB    680006D9              B        T1ST1203          LOOP ON ERROR
     2920   03 006EC    6AF016DC     T1ST1205 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2921   03 006ED    22000C5D              LI,0     DA(SBF1)          SPACE FILE BACKWARD
     2922   03 006EE    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     2923   03 006EF    32E00064 A            LW,14    100               100 MS DELAY
     2924   03 006F0    6AF01ED4              BAL,15   :DELAY
     2925   03 006F1    680006F7              B        T1ST1206
     2926                            *        ERROR EXIT TIMEOUT
     2927   03 006F2    EAF0021B A            BAL,15   *:ERROR           #1205
     2928   03 006F3    000004B5 A            DATA     1205              TIMEOUT ON SIO
     2929   03 006F4    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2930   03 006F5    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2931   03 006F6    680006EC              B        T1ST1205          LOOP ON ERROR
     2932   03 006F7    6AF01F72     T1ST1206 BAL,15   :ERRORT           TEST
     2933   03 006F8    00005FF4              DATA     BA(TSEQ007)       UE,LP, NO EOF
     2934   03 006F9    680006FF              B        T1ST1207
     2935                            *        ERROR EXIT
     2936   03 006FA    EAF0021B A            BAL,15   *:ERROR           #1206
     2937   03 006FB    000004B6 A            DATA     1206              INCORRECT BITS ON TEST
     2938   03 006FC    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2939   03 006FD    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2940   03 006FE    680006EC              B        T1ST1205          LOOP ON ERROR
     2941   03 006FF    6AF016E4     T1ST1207 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2942   03 00700    680003B0              B        :TIM              GO TO SEQUENCER
     2943                            *
     2944                            *
     2945                            *
     2946                            *
     2947                            *                                   TST1,13 WRITE TAPE MARK TEST AT BOT
     2948                            *                                   ------------------------------------
     2949                            *
     2950                            *  CHECK THE EXECUTION OF A WRITE TAPE MARK ORDER. THE TEST WILL       *
     2951                            *  VERIFY THAT TAPE CAN BE MOVED OFF LOAD POINT AND THAT THE ORDER CAN *
     2952                            *  BE TERMINATED WITH BOTH CONTROLLER AND STATION RETURNING TO READY.  *
     2953                            *  IF TAPE RUN-AWAY, ISSUE HIO. REWIND TAPE AND TEST LOAD POINT. END   *
     2954                            *  OF FILE STATUS WILL NOT BE TESTED. THE BYTE COUNT FOR THE ORDER     *
     2955                            *  MUST REMAIN UNCHANGED.                                              *
     2956                            *                                                                      *
     2957                            *
     2958   03 00701    6AF0169E     :T1ST13  BAL,15   RWTLP             REWIND TAPE TEST FOR LOAD PT
     2959   03 00702    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2960   03 00703    22000C26              LI,0     DA(TWTM)          WRITE TAPE MARK CE SET BC=2
     2961   03 00704    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     2962   03 00705    22E0012C A            LI,14    300               300 MS
     2963   03 00706    6AF01ED4              BAL,15   :DELAY
     2964   03 00707    6800070E              B        T1ST1302
     2965                            *        ERROR EXIT TIMEOUT
     2966   03 00708    6AF016B2              BAL,15   RESETS            RESET WITH HIO, TAPE RUNAWAY
     2967   03 00709    EAF0021B A            BAL,15   *:ERROR           #1301
     2968   03 0070A    00000515 A            DATA     1301              TIMEOUT ON SIO
     2969   03 0070B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2970   03 0070C    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2971   03 0070D    68000701              B        :T1ST13           LOOP ON ERROR
     2972   03 0070E    6AF01F72     T1ST1302 BAL,15   :ERRORT           TEST
     2973   03 0070F    00005FF8              DATA     BA(TSEQ008)       DEV AND CONTR READY, BC=2
     2974   03 00710    68000716              B        T1ST1303
     2975                            *        ERROR EXIT
     2976   03 00711    EAF0021B A            BAL,15   *:ERROR           #1302
     2977   03 00712    00000516 A            DATA     1302              INCORRECT BITS ON TEST
     2978   03 00713    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2979   03 00714    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2980   03 00715    68000701              B        :T1ST13           LOOP ON ERROR
     2981   03 00716    6AF016E4     T1ST1303 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2982   03 00717    680003B0              B        :TIM              GO TO SEQUENCER
     2983                            *
     2984                            *
     2985                            *
     2986                            *
     2987                            *                                   TST1,14 SPACE RECORD FORWARD TEST
     2988                            *                                   ------------------------------------
     2989                            *
     2990                            * CHECK THE EXECUTION OF A SPACE FORWARD ORDER. THE TEST WILL VERIFY   *
     2991                            * THAT TAPE CAN BE MOVED OFF THE LOAD POINT AND THAT THE ORDER CAN BE  *
     2992                            * TERMINATED WITH BOTH CONTROLLER AND STATION RETURNING TO READY.      *
     2993                            * IF TAPE RUN-AWAY, ISSUE HIO. REWIND TAPE AND TEST FOR LOAD POINT.    *
     2994                            * END OF FILE AND UNUSUAL END STATUS WILL NOT BE TESTED. THE BYTE      *
     2995                            * COUNT FOR THE ORDER MUST REMAIN UNCHANGED.                           *
     2996                            *                                                                      *
     2997                            *
     2998   03 00718    6AF0169E     :T1ST14  BAL,15   RWTLP             REWIND TAPE AND TEST FOR LOAD PT
     2999   03 00719    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3000   03 0071A    22000C26              LI,0     DA(TWTM)          WRITE TAPE MARK
     3001   03 0071B    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3002   03 0071C    22E0012C A            LI,14    300               300 MS DELAY
     3003   03 0071D    6AF01ED4              BAL,15   :DELAY
     3004   03 0071E    68000725              B        T1ST1401
     3005                            *        ERROR EXIT TIMEOUT
     3006   03 0071F    6AF016B2              BAL,15   RESETS            RESET WITH HIO, TAPE RUNAWAY
     3007   03 00720    EAF0021B A            BAL,15   *:ERROR           #1401
     3008   03 00721    00000579 A            DATA     1401              TIMEOUT ON TEST
     3009   03 00722    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3010   03 00723    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3011   03 00724    68000718              B        :T1ST14           LOOP ON ERROR
     3012   03 00725    6AF0169E     T1ST1401 BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     3013   03 00726    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3014   03 00727    22000C5E              LI,0     DA(SFR1)          SPACE FWD CE SET, BC=2
     3015   03 00728    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3016   03 00729    22E0012C A            LI,14    300               DELAY
     3017   03 0072A    6AF01ED4              BAL,15   :DELAY
     3018   03 0072B    68000732              B        T1ST1402
     3019                            *        ERROR EXIT TIMEOUT
     3020   03 0072C    6AF016B2              BAL,15   RESETS            RESET WITH HIO, TAPE RUNAWAY
     3021   03 0072D    EAF0021B A            BAL,15   *:ERROR           1402
     3022   03 0072E    0000057A A            DATA     1402
     3023   03 0072F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     3024   03 00730    2E000730              WAIT     %
     3025   03 00731    68000718              B        :T1ST14           LOOP ON ERROR
     3026   03 00732    CDA0195B     T1ST1402 TIO,10   *:DEVADDR         TIO
     3027   03 00733    21B00002 A            CI,11    2                 BC=2
     3028   03 00734    69400738              BCS,4    %+4
     3029   03 00735    EAF0021B A            BAL,15   *:ERROR           1403    CC NOT 2
     3030   03 00736    0000057B A            DATA     1403
     3031   03 00737    6800073C              B        T1ST1403-3
     3032   03 00738    31B02154              CW,11    =X'E6000000'      READY
     3033   03 00739    6840073F              BCR,4    T1ST1403
     3034                            *        ERROR EXIT
     3035   03 0073A    EAF0021B A            BAL,15   *:ERROR           1404   INCORRECT STATUS ON TIO
     3036   03 0073B    0000057C A            DATA     1404
     3037   03 0073C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3038   03 0073D    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3039   03 0073E    68000718              B        :T1ST14           LOOP ON ERROR
     3040   03 0073F    6AF0169E     T1ST1403 BAL,15   RWTLP             REWIND TAPE AND TEST FOR LOAD PT
     3041   03 00740    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3042   03 00741    680003B0              B        :TIM              GO TO SEQUENCER
     3043                            *
     3044                            *
     3045                            *
     3046                            *                                   TST1,15 WRITE TEST (BYTE 1 TO 64)
     3047                            *                                   ------------------------------------
     3048                            *
     3049                            * CHECK THE EXECUTION OF WRITE ORDERS USING X'FF' AS DATA PATTERN AND  *
     3050                            * A STARTING AT A BYTE OF ONE UP TO A MAXIMUM BYTE COUNT OF 64. THE    *
     3051                            * TEST WILL VERIFY THAT TAPE CAN BE MOVED OFF THE LOAD POINT, THAT THE *
     3052                            * ORDER CAN BE TERMINATED WITH BOTH CONTROLLER AND TAPE STATION        *
     3053                            * RETURNING TO READY, THAT A DATA-OUTPUT OPERATION IS ACTUALLY         *
     3054                            * PERFORMED, AND THAT THE BYTE COUNT IS ALWAYS REDUCED TO ZERO. VERIFY *
     3055                            * THAT INCORRECT LENGTH IS NOT DETECTED. REWIND TAPE AND TEST FOR LOAD *
     3056                            * POINT.                                                               *
     3057                            * TE ( TRANSMISSION ERRORS) NOT CHECKED IN THIS TEST.                  *
     3058                            * INTERRUPT ON ZBC CHECKED IN THIS SUBTEST.                            *
     3059                            *                                                                      *
     3060                            *
     3061   03 00742    6AF016F5     :T1ST15  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3062   03 00743    32F02155              LW,15    =X'0000B300'      REMOVE TE FROM TEST
     3063   03 00744    35F0211C              STW,15   :SAVETAB+4
     3064   03 00745    32F02156              LW,15    =X'0000BF00'      REMOVE TE IN OSB TEST
     3065   03 00746    35F0211A              STW,15   :SAVETAB+2
     3066   03 00747    6AF0169E              BAL,15   RWTLP             REWIND TAPE,TEST FOR LOAD POINT
     3067   03 00748    55121851              STH,1    TWBC+1,1          SET BYTE COUNT =1 OF TWBC
     3068   03 00749    6AF016DC     T1ST1502 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3069   03 0074A    22000C28              LI,0     DA(TWBC)          WRITE RECORD 1 TO 64 BYTES
     3070   03 0074B    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3071   03 0074C    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3072   03 0074D    6AF01F72     T1ST1503 BAL,15   :ERRORT           TEST
     3073   03 0074E    00006008              DATA     BA(TSEQ010)       DEV,CONTR READY,LENGTH OK, BC=00
     3074   03 0074F    6800075A              B        T1ST1504
     3075                            *        ERROR EXIT
     3076   03 00750    12C01850              LD,12    TWBC              IOCD PRINTOUT
     3077   03 00751    6AF01F5D              BAL,15   IOCDMSG
     3078   03 00752    EAF0021B A            BAL,15   *:ERROR           1501
     3079   03 00753    000005DD A            DATA     1501              INCORRECT BITS SET ON TEST
     3080   03 00754    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3081   03 00755    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3082   03 00756    68000758              B        %+2
     3083   03 00757    6800075A              B        T1ST1504          CONTINUE
     3084   03 00758    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3085   03 00759    68000749              B        T1ST1502          LOOP ON ERROR
     3086   03 0075A    33101851     T1ST1504 MTW,1    TWBC+1            BC=BC+1
     3087   03 0075B    22700040 A            LI,7     64
     3088   03 0075C    51721851              CH,7     TWBC+1,1          BC =64
     3089   03 0075D    69300749              BNE      T1ST1502
     3090   03 0075E    6AF016DC     T1ST1505 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3091   03 0075F    22000C29              LI,0     DA(TW64)          WRITE 64 BYTES AND INTERRUPT ON ZBC
     3092   03 00760    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     3093   03 00761    22E0012C A            LI,14    300               DELAY TILL INTERRUPT
     3094   03 00762    6AF01ED4              BAL,15   :DELAY
     3095   03 00763    68000769              B        T1ST1506
     3096                            *        ERROR EXIT DELAY TIMEOUT
     3097   03 00764    EAF0021B A            BAL,15   *:ERROR           NO INTERRUPT ON ZBC
     3098   03 00765    000005DE A            DATA     1502              1502
     3099   03 00766    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3100   03 00767    2E000000 A            WAIT
     3101   03 00768    6800075E              B        T1ST1505          LOOP ON ERROR
     3102   03 00769    22F01D4C A   T1ST1506 LI,15    7500 DELAY FOR CE
     3103   03 0076A    64F0076A              BDR,15   %
     3104   03 0076B    6AF01F72              BAL,15   :ERRORT           TEST
     3105   03 0076C    00005FE0              DATA     BA(TSEQ003)       AIO-ZBC, TIO-IP RESET
     3106   03 0076D    68000773              B        T1ST1507
     3107                            *        ERROR EXIT
     3108   03 0076E    EAF0021B A            BAL,15   *:ERROR           1503
     3109   03 0076F    000005DF A            DATA     1503
     3110   03 00770    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3111   03 00771    2E000000 A            WAIT
     3112   03 00772    6800075E              B        T1ST1505          LOOP ON ERROR
     3113   03 00773    6AF0169E     T1ST1507 BAL,15   RWTLP             REWIND TO LOAD POINT
     3114   03 00774    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3115   03 00775    680003B0              B        :TIM              GO TO SEQUENCER
     3116                            *
     3117                            *
     3118                            *
     3119                            *                                   TST1,16 READ TEST
     3120                            *                                   ------------------------------------
     3121                            *
     3122                            * TEST THE EXECUTION OF READ ORDERS USING A STARTING BYTE COUNT OF ONE *
     3123                            * UP TO A MAXIMUM COUNT OF 64. WRITE 64 RECORDS WITH A FIXED BYTE      *
     3124                            * COUNT OF 100 BYTES (PATTERN =X'FF') AND REWIND TAPE. THIS TEST WILL  *
     3125                            * CHECK THE RESPONSE TO A READ FORWARD OPERATION (OFF LOAD POINT,      *
     3126                            * ORDER TRANSMISSION, DATA INPUT OPERATION, BYTE COUNT REDUCED TO      *
     3127                            * ZERO). REWIND TAPE AND TEST LOAD POINT.                              *
     3128                            * TE ( TRANSMISSION ERRORS) NOT CHECKED IN THIS TEST.
     3129                            *                                                                      *
     3130   03 00776    6AF016F5     :T1ST16  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3131   03 00777    32F02155              LW,15    =X'0000B300'      REMOVE TE FROM TEST
     3132   03 00778    35F0211C              STW,15   :SAVETAB+4
     3133   03 00779    32F02156              LW,15    =X'0000BF00'      REMOVE TE IN OSB TEST
     3134   03 0077A    35F0211A              STW,15   :SAVETAB+2
     3135   03 0077B    6AF0169E     T1ST1602 BAL,15   RWTLP             REWIND TAPE, TEST FOR LOAD POINT
     3136   03 0077C    22AFFFC0 A            LI,10    -64
     3137   03 0077D    6AF016DC     T1ST1603 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3138   03 0077E    22000C2A              LI,0     DA(TW100B)        WRITE 100 BYTES ALL BITS ON
     3139   03 0077F    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3140   03 00780    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3141   03 00781    6AF01F72     T1ST1604 BAL,15   :ERRORT           TEST
     3142   03 00782    000060B0              DATA     BA(TSEQ036)       NO UE, BC=00, READY
     3143   03 00783    68000789              B        T1ST1605
     3144                            *        ERROR EXIT
     3145   03 00784    EAF0021B A            BAL,15   *:ERROR           1601
     3146   03 00785    00000641 A            DATA     1601              INCORRECT BITS SET ON TEST
     3147   03 00786    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3148   03 00787    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3149   03 00788    6800077D              B        T1ST1603          LOOP ON ERROR
     3150   03 00789    65A0077D     T1ST1605 BIR,10   T1ST1603          DO 64 RECORDS OF 100 BYTES
     3151   03 0078A    6AF0169E     T1ST1606 BAL,15   RWTLP             REWIND TAPE, TEST FOR LOAD POINT
     3152   03 0078B    55121883              STH,1    TRFBC+1,1         SET BYTE COUNT =1
     3153   03 0078C    22AFFFC0 A            LI,10    -64
     3154   03 0078D    6AF016DC     T1ST1607 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3155   03 0078E    22000C41              LI,0     DA(TRFBC)         READ FORWARD 100 BYTES WITH BC=1-64
     3156   03 0078F    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3157   03 00790    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3158   03 00791    6AF01F72     T1ST1608 BAL,15   :ERRORT           TEST
     3159   03 00792    0000601C              DATA     BA(TSEQ012)       READY,UE,NO ZBC, INCORRECT LENGTH
     3160   03 00793    6800079E              B        T1ST1609
     3161                            *        ERROR EXIT
     3162   03 00794    12C01882              LD,12    TRFBC             PRINTOUT IOCD
     3163   03 00795    6AF01F5D              BAL,15   IOCDMSG
     3164   03 00796    EAF0021B A            BAL,15   *:ERROR           1602
     3165   03 00797    00000642 A            DATA     1602              INCORRECT BITS SET ON TEST
     3166   03 00798    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3167   03 00799    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3168   03 0079A    6800079C              B        %+2
     3169   03 0079B    6800079E              B        T1ST1609          CONTINUE
     3170   03 0079C    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3171   03 0079D    6800078D              B        T1ST1607          LOOP ON ERROR
     3172   03 0079E    33101883     T1ST1609 MTW,1    TRFBC+1           BYTE COUNT =BYTE CONT+1
     3173   03 0079F    65A0078D              BIR,10   T1ST1607          DO 1 TO 64 BYTES
     3174   03 007A0    6AF0169E              BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     3175   03 007A1    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3176   03 007A2    680003B0              B        :TIM              GO TO SEQUENCER
     3177                            *
     3178                            *
     3179                            *
     3180                            *
     3181                            *                                   TST1,17  NO OPERATION TEST
     3182                            *                                   ------------------------------------
     3183                            *
     3184                            *
     3185   03 007A3    680003B0     :T1ST17  B        :TIM              GO TO SEQUENCER
     3186                            *
     3187                            *                                   TST1,18 WRITE READ DATA TEST
     3188                            *                                   ------------------------------------
     3189                            *
     3190                            * WRITE N RECORDS WITH A FIXED BYTE COUNT AND DATA PATTERN OF X'FF'.   *
     3191                            * REWIND TAPE AND READ N RECORDS IN THE FORWARD DIRECTION. VERIFY THAT *
     3192                            * DATA CAN BE RECORDED AND READ FROM EACH TRACK.                       *
     3193                            * TE ( TRANSMISSION ERRORS) NOT CHECKED IN THIS TEST.
     3194                            *                                                                      *
     3195                            *
     3196   03 007A4    6AF016F5     :T1ST18  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3197   03 007A5    32F02155              LW,15    =X'0000B300'      REMOVE TE FROM TEST
     3198   03 007A6    35F0211C              STW,15   :SAVETAB+4
     3199   03 007A7    32F02156              LW,15    =X'0000BF00'      REMOVE TE IN OSB TEST
     3200   03 007A8    35F0211A              STW,15   :SAVETAB+2
     3201   03 007A9    31101A74              CW,1     MODEFLAG          PACKED BINARY SET
     3202   03 007AA    683007AE              BE       %+4
     3203   03 007AB    32E02136              LW,14    BUFF2
     3204   03 007AC    20E00019 A            AI,14    25
     3205   03 007AD    680007AF              B        %+2
     3206   03 007AE    22E02263              LI,14    BUFF1+225
     3207   03 007AF    35E01A62              STW,14   RESLOC            COMPARE ADDRESS
     3208   03 007B0    225FFFFA A            LI,5     -6                FETCH -6
     3209   03 007B1    22600000 A            LI,6     0                 CLEAR TALLY ERROR AREA
     3210   03 007B2    356A1C11              STW,6    :TALLYO+6,5
     3211   03 007B3    655007B2              BIR,5    %-1
     3212   03 007B4    6AF0169E     T1ST1802 BAL,15   RWTLP             RWIND TAPE, TEST FOR LOAD POINT
     3213   03 007B5    22AFFF9C A            LI,10    -100
     3214   03 007B6    6AF016DC     T1ST1803 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3215   03 007B7    22000C2A              LI,0     DA(TW100B)        WRITE 100 BYTES ALL BITS ON
     3216   03 007B8    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3217   03 007B9    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3218   03 007BA    6AF01F72     T1ST1804 BAL,15   :ERRORT           GO TO SUBR.
     3219   03 007BB    000060B0              DATA     BA(TSEQ036)       NO UE, BC=00, READY
     3220   03 007BC    680007BF              B        T1ST1805
     3221                            *        ERROR EXIT
     3222   03 007BD    EAF0021B A            BAL,15   *:ERROR           1801
     3223   03 007BE    00000709 A            DATA     1801              INCORRECT BITS SET ON TEST
     3224   03 007BF    65A007B6     T1ST1805 BIR,10   T1ST1803
     3225   03 007C0    6AF0169E              BAL,15   RWTLP             REWIND TAPE, TEST FOR LOAD POINT
     3226   03 007C1    22AFFF9C A            LI,10    -100
     3227   03 007C2    6AF016DC     T1ST1806 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3228   03 007C3    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     3229   03 007C4    22000C42              LI,0     DA(TRF100B)       READ FORWARD 100 BYTES ALL ON
     3230   03 007C5    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3231   03 007C6    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3232   03 007C7    35101E6B              STW,1    :COMFLAG          INHIBIT PRINTOUT
     3233   03 007C8    6AF01DF5     T1ST1807 BAL,15   :COMPARE          COMPARE INFORMATION
     3234   03 007C9    680007D7              B        T1ST1808
     3235                            *        ERROR EXIT
     3236   03 007CA    31101A74              CW,1     MODEFLAG          PACKED OPTION SET
     3237   03 007CB    693007CD              BNE      %+2
     3238   03 007CC    6AF017BB              BAL,15   UNPACK            UNPACK INFORMATION
     3239   03 007CD    225FFFFA A            LI,5     -6                FETCH -6
     3240   03 007CE    22800020 A            LI,8     X'20'             FETCH X'20'
     3241   03 007CF    226FFF9C A            LI,6     -100              FETCH -100
     3242   03 007D0    32E01A62              LW,14    RESLOC
     3243   03 007D1    F18C000E A            CB,8     *14,6             COMPARE
     3244   03 007D2    694007D4              BCS,4    %+2               BRANCH CONDITION CODE SET
     3245   03 007D3    331A1C11              MTW,1    :TALLYO+6,5       TALLYO+1
     3246   03 007D4    656007D1              BIR,6    %-3               BRANCH INCREMENT REG.
     3247   03 007D5    2580027F A            SCS,8    -1                SHIFT ONE SPACE
     3248   03 007D6    655007CF              BIR,5    %-7               BRANCH INCREMENT REGISTER
     3249   03 007D7    65A007C2     T1ST1808 BIR,10   T1ST1806          READ 100 RECORDS
     3250   03 007D8    225FFFFA A            LI,5     -6                FETCH -6
     3251   03 007D9    22A02710 A            LI,10    10000             FETCH 10000
     3252   03 007DA    35AA1C0B              STW,10   :TALLYE+6,5       STORE 10000 INTO TALLYE
     3253   03 007DB    655007DA              BIR,5    %-1               BRANCH INCREMENT REG.5
     3254   03 007DC    32A02157              LW,10    =X'3F3F3F3F'      FETCH WORD
     3255   03 007DD    35A01C03              STW,10   :TALLYP           STORE INTO TALLP
     3256   03 007DE    22A00012 A            LI,10    18                FETCH TEST NO.
     3257   03 007DF    35A01C04              STW,10   TESTNO            STORE INTO TESTNO
     3258   03 007E0    22801C38              LI,8     T1ST18M           FETCH MSG
     3259   03 007E1    35801BF5              STW,8    :TALLYMA          STORE INTO TALLYMA
     3260   03 007E2    6AF01BB9              BAL,15   ERRPNT1           GO TO ERROR PRINT SUBR.
     3261   03 007E3    680007E7              B        T1ST1809          BRANCH
     3262   03 007E4    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     3263   03 007E5    2E0007E5              WAIT     %
     3264   03 007E6    680007A4              B        :T1ST18           LOOP ON ERROR
     3265   03 007E7    22000000 A   T1ST1809 LI,0     0                 FETCH ZERO
     3266   03 007E8    35001E6B              STW,0    :COMFLAG          RESET COMFLAG
     3267   03 007E9    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3268   03 007EA    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3269   03 007EB    6AF003B0              BAL,15   :TIM              GO TO SEQUENCER
     3270                            *
     3271                            *
     3272                            *
     3273                            *
     3274                            *
     3275                            *                                   TST1,19 WRITE, READ DATA TEST
     3276                            *                                           DATA X'00' TO X'20'
     3277                            *                                   ------------------------------------
     3278                            *
     3279                            * WRITE N RECORDS WITH A FIXED BYTE COUNT AND THE CURRENT DATA PATTERN *
     3280                            * DATA WILL BE VARIED FROM X'00' THRU X'20'. REWIND TAPE AND READ N    *
     3281                            * RECORDS IN THE FORWARD DIRECTION. VERIFY FOR EACH PASS THAT ONLY ONE *
     3282                            * TRACK CONTAINS INFORMATION AND THAT ALL OTHER TRACKS ARE ZERO. AFTER *
     3283                            * EACH PASS LOOP ON THE DATA PATTERN WHICH HAS CAUSED AN ERROR AND     *
     3284                            * CONTINUE TESTING UNTIL A SUCCESSFUL PASS HAS BEEN MADE.              *
     3285                            *                                                                      *
     3286                            *
     3287   03 007EC    22701986     :T1ST19  LI,7     PT00
     3288   03 007ED    22F00000 A            LI,15    0
     3289   03 007EE    35F0199B              STW,15   SPFLAG            RESET FLAG
     3290   03 007EF    557207F9              STH,7    T1ST1903,1        STARTING ADDRESS OF PATTERN
     3291   03 007F0    22701A1F              LI,7     PBTSAT
     3292   03 007F1    55720800              STH,7    T1ST1904,1        PACKED BINARY SET UP
     3293   03 007F2    22700000 A            LI,7     0                 CLEAR ERROR TALLIES
     3294   03 007F3    3570194B              STW,7    FLG1              CLEAR 1 ONLY FLAG
     3295   03 007F4    22600000 A   T1ST1901 LI,6     0                 CLEAR TALLY AREA
     3296   03 007F5    22700000 A            LI,7     0
     3297   03 007F6    15601982              STD,6    PT00T
     3298   03 007F7    15601984              STD,6    PT00T+2
     3299   03 007F8    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3300   03 007F9    32701986     T1ST1903 LW,7     PT00
     3301   03 007FA    35701DE7              STW,7    :PATID+1
     3302   03 007FB    6AF016F3              BAL,15   SMEARSP           SMEAR SPECIAL PATTERN
     3303   03 007FC    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     3304   03 007FD    69300809              BNE      T1ST1902
     3305   03 007FE    22800004 A            LI,8     4
     3306   03 007FF    35801DE6              STW,8    :PATID            3 WORD PATTERN
     3307   03 00800    22801A1F     T1ST1904 LI,8     PBTSAT            3 WORD PATTERN ADDRESS
     3308   03 00801    35801DE7              STW,8    :PATID+1
     3309   03 00802    22800022 A            LI,8     34
     3310   03 00803    35801DE9              STW,8    :PATWC            WORD COUNT
     3311   03 00804    6AF01DA7              BAL,15   :PATTERN          SMEAR 3 WORD PACKED PATTERN
     3312   03 00805    22E02263              LI,14    BUFF1+225
     3313   03 00806    35E01A62              STW,14   RESLOC            SET UP PACKED COMPARE
     3314   03 00807    35701DE7              STW,7    :PATID+1
     3315   03 00808    6800080C              B        %+4
     3316   03 00809    32E02136     T1ST1902 LW,14    BUFF2
     3317   03 0080A    20E00019 A            AI,14    25
     3318   03 0080B    35E01A62              STW,14   RESLOC            SET UP UNPACKED COMPARE
     3319   03 0080C    225FFFFA A            LI,5     -6
     3320   03 0080D    22600000 A            LI,6     0                 CLEAR TALLY ERROR AREA
     3321   03 0080E    356A1C11              STW,6    :TALLYO+6,5
     3322   03 0080F    6550080E              BIR,5    %-1
     3323   03 00810    22AFFF9C A            LI,10    -100
     3324   03 00811    6AF016DC     T1ST1906 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3325   03 00812    22000C2A              LI,0     DA(TW100B)        WRITE 100 BYTES
     3326   03 00813    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3327   03 00814    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3328   03 00815    CDC0195B     T1ST1907 TIO,12   *:DEVADDR         TEST FOR ERRORS
     3329   03 00816    31D02158              CW,13    =X'00400000'      TE ONLY
     3330   03 00817    68400819              BCR,4    T1ST1909
     3331   03 00818    33101982     T1ST1908 MTW,1    PT00T             WRITE ERROR TALLY+1
     3332   03 00819    65A00811     T1ST1909 BIR,10   T1ST1906          WRITE 100 RECORDS
     3333   03 0081A    6AF0169E              BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     3334   03 0081B    22AFFF9C A            LI,10    -100
     3335   03 0081C    6AF016DC     T1ST1910 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3336   03 0081D    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     3337   03 0081E    22000C42              LI,0     DA(TRF100B)       READ FORWARD 100 BYTES
     3338   03 0081F    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3339   03 00820    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3340   03 00821    CDC0195B     T1ST1911 TIO,12   *:DEVADDR         TEST FOR ERRORS
     3341   03 00822    31D02158              CW,13    =X'00400000'      TE ONLY
     3342   03 00823    68400825              BCR,4    %+2
     3343   03 00824    33101983     T1ST1912 MTW,1    PT00T+1           READ ERROR TALLY+1
     3344   03 00825    35101E6B              STW,1    :COMFLAG          INHIBIT PRINTOUT
     3345   03 00826    6AF01DF5              BAL,15   :COMPARE          COMPARE INFORMATION
     3346   03 00827    6800083E              B        T1ST1915
     3347                            *        ERROR EXIT, DATA INCORRECT
     3348   03 00828    31101A74              CW,1     MODEFLAG          PACKED FLAG OPTION
     3349   03 00829    6930082B              BNE      %+2
     3350   03 0082A    6AF017BB              BAL,15   UNPACK
     3351   03 0082B    33101984     T1ST1914 MTW,1    PT00T+2           INFO ERROR TALLY+1
     3352   03 0082C    225FFFFA A            LI,5     -6                FETCH -6
     3353   03 0082D    22800020 A            LI,8     X'20'             FETCH X'20'
     3354   03 0082E    226FFF9C A   T1ST1917 LI,6     -100              FETCH TOTAL NUMBER OF BYTES
     3355   03 0082F    71801DE7              CB,8     :PATID+1          COMPARE PATTERNS
     3356   03 00830    68300837              BE       T1ST1913
     3357   03 00831    32E01A62     T1ST1905 LW,14    RESLOC            COMPARE ADDRESS
     3358   03 00832    F18C000E A            CB,8     *14,6             COMPARE
     3359   03 00833    68400835              BCR,4    %+2
     3360   03 00834    331A1C11              MTW,1    :TALLYO+6,5       ADD 1 TO ERROR NO. COUNT
     3361   03 00835    65600832              BIR,6    %-3
     3362   03 00836    6800083C              B        T1ST1915-2        OK
     3363   03 00837    32E01A62     T1ST1913 LW,14    RESLOC            COMPARE ADDRESS
     3364   03 00838    F18C000E A            CB,8     *14,6             COMPARE
     3365   03 00839    6940083B              BCS,4    %+2
     3366   03 0083A    331A1C11              MTW,1    :TALLYO+6,5       ADD 1 TO ERROR NO. COUNT
     3367   03 0083B    65600838              BIR,6    %-3
     3368   03 0083C    2580027F A            SCS,8    -1                SHIFT ONE BIT
     3369   03 0083D    6550082E              BIR,5    T1ST1917
     3370   03 0083E    65A0081C     T1ST1915 BIR,10   T1ST1910          READ 100 RECORDS
     3371                            *        PRINTOUT PATTERN THAT FAILED, WRITE ERRORS, READ ERRORS
     3372   03 0083F    32601982              LW,6     PT00T
     3373   03 00840    30601983              AW,6     PT00T+1
     3374   03 00841    30601984              AW,6     PT00T+2
     3375   03 00842    6830086B              BEZ      T1ST1916          NO PRINTOUT ON THIS PATTERN
     3376   03 00843    3310199B              MTW,1    SPFLAG            ERROR +1
     3377   03 00844    EAF0021B A            BAL,15   *:ERROR           1901
     3378   03 00845    0000076D A            DATA     1901              WRITE, READ, OR INFO ERRORS
     3379   03 00846    32C01DE7              LW,12    :PATID+1
     3380   03 00847    EAF00218 A            BAL,15   *:HEXC            CONVERT FOR MESSAGE
     3381   03 00848    35F01B61              STW,15   MESER+3
     3382   03 00849    32C01982              LW,12    PT00T
     3383   03 0084A    EAF00217 A            BAL,15   *:DECC            CONVERT FOR PRINTOUT
     3384   03 0084B    35F01B64              STW,15   MESER+6
     3385   03 0084C    32C01983              LW,12    PT00T+1
     3386   03 0084D    EAF00217 A            BAL,15   *:DECC            CONVERT FOR PRINTOUT
     3387   03 0084E    35F01B67              STW,15   MESER+9
     3388   03 0084F    32C01984              LW,12    PT00T+2
     3389   03 00850    EAF00217 A            BAL,15   *:DECC            CONVERT FOR PRINTOUT
     3390   03 00851    35F01B6A              STW,15   MESER+12
     3391   03 00852    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     3392   03 00853    00001B50              DATA     MSER1
     3393   03 00854    EAF0021C A            BAL,15   *:PRINT           PRINT OUT MESSAGE
     3394   03 00855    00001B5E              DATA     MESER
     3395   03 00856    EAF0021C A            BAL,15   *:PRINT           PRINT
     3396   03 00857    00001B50              DATA     MSER1
     3397   03 00858    22800020 A            LI,8     X'20'             FETCH NO. X'20'
     3398   03 00859    225FFFFA A            LI,5     -6                FETCH -6
     3399   03 0085A    22A00000 A            LI,10    0                 FETCH EXP. COUNT
     3400   03 0085B    71801DE7              CB,8     :PATID+1          COMPARE BYTES
     3401   03 0085C    6830085F              BE       %+3
     3402   03 0085D    35AA1C0B              STW,10   :TALLYE+6,5       STORE EXP. COUNT
     3403   03 0085E    68000861              B        %+3
     3404   03 0085F    22B02710 A            LI,11    10000             FETCH EXP. COUNT
     3405   03 00860    35BA1C0B              STW,11   :TALLYE+6,5       STORE EXP. COUNT
     3406   03 00861    2580027F A            SCS,8    -1                SHIFT ONE BIT
     3407   03 00862    6550085B              BIR,5    %-7
     3408   03 00863    32A01DE7              LW,10    :PATID+1          FETCH PATTERN
     3409   03 00864    35A01C03              STW,10   :TALLYP           STORE PATTERN
     3410   03 00865    22A00013 A            LI,10    19                FETCH TEST NO.
     3411   03 00866    35A01C04              STW,10   TESTNO            STORE TEST NO.
     3412   03 00867    22801C38              LI,8     T1ST18M
     3413   03 00868    35801BF5              STW,8    :TALLYMA
     3414   03 00869    6AF01BB9              BAL,15   ERRPNT1
     3415   03 0086A    6800086B              B        %+1
     3416                            *        CHANGE PATTERN
     3417   03 0086B    331007F9     T1ST1916 MTW,1    T1ST1903          DO NEXT PATTERN
     3418   03 0086C    33300800              MTW,3    T1ST1904          GO TO NEXT PACKED PATTERN
     3419   03 0086D    2270198D              LI,7     PT80-1
     3420   03 0086E    517207F9              CH,7     T1ST1903,1
     3421   03 0086F    692007F4              BG       T1ST1901
     3422   03 00870    32F0199B              LW,15    SPFLAG
     3423   03 00871    68300875              BEZ      %+4
     3424   03 00872    EAF0021D A            BAL,15   *:SENSE
     3425   03 00873    2E000873              WAIT     %
     3426   03 00874    680007EC              B        :T1ST19
     3427   03 00875    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3428   03 00876    680003B0              B        :TIM              GO TO SEQUENCER
     3429                            *
     3430                            *
     3431                            *                                   T1ST,20 SET ERASE-WRITE TEST
     3432                            *                                   ------------------------------------
     3433                            *
     3434                            * CHECK THE CAPABILITY OF THE TAPE STATION TO SKIP OVER AN AREA ON THE *
     3435                            * TAPE BY CHECKING THE DELAY BETWEEN THE START OF THE WRITE ORDER AND  *
     3436                            * THE START OF THE DATA TRANSFER.                                      *
     3437                            *                                                                      *
     3438                            *
     3439   03 00877    22500000 A   :T1ST20  LI,5     0                 CLEAR TALLY
     3440   03 00878    226FFFF0 A            LI,6     -16
     3441   03 00879    32801947              LW,8     CLOCK             CHANGE CLOCK INTERRUPT FOR THIS SECT
     3442   03 0087A    35800055 A            STW,8    X'55'
     3443   03 0087B    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3444   03 0087C    22000C1C              LI,0     DA(TSE1)          SET ERASE
     3445   03 0087D    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     3446   03 0087E    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     3447   03 0087F    6AF016DC     T1ST2001 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3448   03 00880    22000C2B              LI,0     DA(TW1B)          WRITE 1 BYTE BCZ SET
     3449   03 00881    22F01040 A            LI,15    X'1040'           ARM AND ENABLE CLOCK
     3450   03 00882    6DF01200 A            WD,15    X'1200'
     3451   03 00883    22800000 A            LI,8     0
     3452   03 00884    32E0214F              LW,14    =X'80000000'      SET DELAY TIMEOUT LIMIT         *A01
     3453   03 00885    CCA0195B              SIO,10   *:DEVADDR         SIO
     3454   03 00886    46700008 A            XW,7     8
     3455   03 00887    32F01F54              LW,15    :INTRECF          INTERRUPT RECEIVED FLAG
     3456   03 00888    6930088C              BCS,3    T1ST2005            INT. RECEIVED                 *A01
     3457   03 00889    65E00887              BIR,14   %-2               CHECK FOR TIMEOUT               *A01
     3458   03 0088A    EAF0021B A            BAL,15   *:ERROR             TIMEOUT ERROR                 *A01
     3459   03 0088B    000007D3 A            DATA     2003                2003                          *A01
     3460   03 0088C    46800007 A   T1ST2005 XW,8     7                 R8 NOW HAS TALLY                *A01
     3461   03 0088D    22F01040 A            LI,15    X'1040'           DISARM INTERRUPT
     3462   03 0088E    6DF01100 A            WD,15    X'1100'
     3463   03 0088F    30500008 A            AW,5     8
     3464   03 00890    CDC0195B              TIO,12   *:DEVADDR         WAIT FOR DEVICE
     3465   03 00891    69C00890              BCS,12   %-1
     3466   03 00892    6560087B              BIR,6    T1ST2001-4        DO 16 TIMES
     3467   03 00893    2550007D A            SLS,5    -3                R5 HAS AVERAGE TIME IN MS
     3468   03 00894    31501956     T1ST2002 CW,5     ERTMIN            MINIMUM
     3469   03 00895    6910089B              BL       T1ST2003
     3470   03 00896    31501955              CW,5     ERTMAX            MAXIMUM
     3471   03 00897    691008AB              BL       T1ST2004
     3472                            *        ERROR EXIT TOO LONG
     3473   03 00898    EAF0021B A            BAL,15   *:ERROR           2001
     3474   03 00899    000007D1 A            DATA     2001              ERASE TIME TOO LONG
     3475   03 0089A    6800089D              B        T1ST2003+2        GO TO MESSAGE PRINTOUT
     3476                            *        ERROR EXIT TOO SHORT
     3477   03 0089B    EAF0021B A   T1ST2003 BAL,15   *:ERROR           2002
     3478   03 0089C    000007D2 A            DATA     2002              ERASE TIME TOO SHORT
     3479   03 0089D    32C00005 A            LW,12    5                 ERASE TIME IN MS
     3480   03 0089E    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     3481   03 0089F    35F01B41              STW,15   MESEGT+3
     3482   03 008A0    32C01956              LW,12    ERTMIN            MINIMUM
     3483   03 008A1    EAF00217 A            BAL,15   *:DECC            CONVERT
     3484   03 008A2    35F01B46              STW,15   MESEGT+8          STORE
     3485   03 008A3    32C01955              LW,12    ERTMAX            MAXIMUM
     3486   03 008A4    EAF00217 A            BAL,15   *:DECC            CONVERT
     3487   03 008A5    35F01B48              STW,15   MESEGT+10         STORE
     3488   03 008A6    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     3489   03 008A7    00001B3E              DATA     MESEGT
     3490   03 008A8    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3491   03 008A9    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3492   03 008AA    68000877              B        :T1ST20
     3493   03 008AB    6AF016E4     T1ST2004 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3494   03 008AC    32801EF1              LW,8     :DELMTW           RESTORE CLOCK FOR DELAY
     3495   03 008AD    35800055 A            STW,8    X'55'
     3496   03 008AE    680003B0              B        :TIM              GO TO SEQUENCER
     3497                            *
     3498                            *
     3499                            *                                   TST1,21 WRITE,SPACE FWD AND BKW TEST
     3500                            *
     3501                            *                                   ------------------------------------
     3502                            *
     3503                            * WRITE N RECORDS WITH A FIXED BYTE COUNT. REWIND TAPE TO LOAD POINT.  *
     3504                            * SPACE ONE RECORD IN THE FORWARD AND BACKWARD DIRECTION. SPACE ANOTHER*
     3505                            * RECORD IN THE BACKWARD DIRECTION AND CHECK LOAD POINT INDICATOR.     *
     3506                            * SPACE N RECORDS IN THE FORWARD DIRECTION AND THEN THE REVERSE        *
     3507                            * DIRECTION. CHECK ALL STATUS RESPONSE. REWIND TO LOAD POINT.          *
     3508                            *                                                                      *
     3509                            *
     3510   03 008AF    6AF0169E     :T1ST21  BAL,15   RWTLP             REWIND TO LOAD POINT
     3511   03 008B0    6AF016F5              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3512   03 008B1    228FFF9C A            LI,8     -100
     3513   03 008B2    6AF016DC     T1ST2101 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3514   03 008B3    22000C2A              LI,0     DA(TW100B)        WRITE 100 BYTES
     3515   03 008B4    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3516   03 008B5    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3517   03 008B6    6AF01F72     T1ST2102 BAL,15   :ERRORT           TEST
     3518   03 008B7    00006014              DATA     BA(TSEQ011)       NO UE, READY, BC=00
     3519   03 008B8    680008BE              B        T1ST2103
     3520                            *        ERROR EXIT
     3521   03 008B9    EAF0021B A            BAL,15   *:ERROR           #2101
     3522   03 008BA    00000835 A            DATA     2101              INCORRECT BITS ON TEST
     3523   03 008BB    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3524   03 008BC    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3525   03 008BD    680008B2              B        T1ST2101          LOOP ON ERROR
     3526   03 008BE    658008B2     T1ST2103 BIR,8    T1ST2101          DO 100 RECORDS
     3527   03 008BF    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3528   03 008C0    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3529   03 008C1    22000C5F              LI,0     DA(SF100)         SPACE RECORD FORWARD
     3530   03 008C2    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3531   03 008C3    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3532   03 008C4    6AF01F72     T1ST2104 BAL,15   :ERRORT           TEST
     3533   03 008C5    00006014              DATA     BA(TSEQ011)       NO UE, READYBC=00
     3534   03 008C6    680008CD              B        T1ST2105
     3535                            *        ERROR EXIT
     3536   03 008C7    EAF0021B A            BAL,15   *:ERROR           #2102
     3537   03 008C8    00000836 A            DATA     2102              INCORRECT BITS ON TEST
     3538   03 008C9    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3539   03 008CA    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3540   03 008CB    680008BF              B        T1ST2103+1        LOOP ON ERROR
     3541   03 008CC    6800090B              B        T1ST2117+3        GO TO END OF TEST
     3542   03 008CD    6AF016DC     T1ST2105 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3543   03 008CE    22000C60              LI,0     DA(SB100)         SPACE RECORD BACKWARD
     3544   03 008CF    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3545   03 008D0    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3546   03 008D1    6AF01F72     T1ST2107 BAL,15   :ERRORT           TEST
     3547   03 008D2    00006014              DATA     BA(TSEQ011)       NO UE, READY, BC=00
     3548   03 008D3    680008DA              B        T1ST2108
     3549                            *        ERROR EXIT
     3550   03 008D4    EAF0021B A            BAL,15   *:ERROR           #2103
     3551   03 008D5    00000837 A            DATA     2103              INCORRECT BITS ON TEST
     3552   03 008D6    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3553   03 008D7    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3554   03 008D8    680008BF              B        T1ST2103+1        LOOP ON ERROR
     3555   03 008D9    6800090B              B        T1ST2117+3        GO TO END OF TEST
     3556   03 008DA    6AF016DC     T1ST2108 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3557   03 008DB    22000C60              LI,0     DA(SB100)         SPACE RECORD BACKWARD
     3558   03 008DC    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3559   03 008DD    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3560   03 008DE    6AF01F72     T1ST2110 BAL,15   :ERRORT           TEST
     3561   03 008DF    0000602C              DATA     BA(TSEQ014)       UE AND LOAD POINT
     3562   03 008E0    680008E7              B        T1ST2109
     3563                            *        ERROR EXIT
     3564   03 008E1    EAF0021B A            BAL,15   *:ERROR           #2104
     3565   03 008E2    00000838 A            DATA     2104              INCORRECT BITS ON TEST
     3566   03 008E3    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3567   03 008E4    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3568   03 008E5    680008BF              B        T1ST2103+1        LOOP ON ERROR
     3569   03 008E6    6800090B              B        T1ST2117+3        GO TO END OF TEST
     3570   03 008E7    228FFF9C A   T1ST2109 LI,8     -100
     3571   03 008E8    6AF016DC     T1ST2111 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3572   03 008E9    22F00000 A            LI,15    0
     3573   03 008EA    35F0199B              STW,15   SPFLAG            RESET FLAG
     3574   03 008EB    22000C5F              LI,0     DA(SF100)         SPACE FORWARD 100 BYTES
     3575   03 008EC    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3576   03 008ED    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3577   03 008EE    6AF01F72     T1ST2113 BAL,15   :ERRORT           TEST
     3578   03 008EF    00006014              DATA     BA(TSEQ011)       NO UE,READY, BC=00
     3579   03 008F0    680008F4              B        T1ST2112
     3580                            *        ERROR EXIT
     3581   03 008F1    EAF0021B A            BAL,15   *:ERROR           #2105
     3582   03 008F2    00000839 A            DATA     2105              INCORRECT BITS ON TEST
     3583   03 008F3    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3584   03 008F4    658008E8     T1ST2112 BIR,8    T1ST2111          SPACE FWD 100 RECORDS
     3585   03 008F5    32F0199B              LW,15    SPFLAG
     3586   03 008F6    683008FD              BEZ      T1ST2114-1        ERROR FLAG =0
     3587   03 008F7    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3588   03 008F8    2E000000 A            WAIT
     3589   03 008F9    680008FB              B        %+2               LOOP ON ERROR BRANCH
     3590   03 008FA    6800090B              B        T1ST2117+3        GO TO END OF TEST
     3591   03 008FB    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3592   03 008FC    680008E7              B        T1ST2109
     3593   03 008FD    228FFF9C A            LI,8     -100
     3594   03 008FE    6AF016DC     T1ST2114 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3595   03 008FF    22000C60              LI,0     DA(SB100)         SPACE RECORD BACKWARD
     3596   03 00900    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3597   03 00901    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3598   03 00902    6AF01F72     T1ST2116 BAL,15   :ERRORT           TEST
     3599   03 00903    00006014              DATA     BA(TSEQ011)       NO UE, READY, BC=00
     3600   03 00904    68000908              B        T1ST2117
     3601                            *        ERROR EXIT
     3602   03 00905    EAF0021B A            BAL,15   *:ERROR           #2106
     3603   03 00906    0000083A A            DATA     2106              INCORRECT BITS ON TEST
     3604   03 00907    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3605   03 00908    658008FE     T1ST2117 BIR,8    T1ST2114          SPACE 100 RECORDS FORWARD
     3606   03 00909    32F0199B              LW,15    SPFLAG
     3607   03 0090A    693008F7              BNEZ     T1ST2112+3
     3608   03 0090B    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3609   03 0090C    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3610   03 0090D    680003B0              B        :TIM              GO TO SEQUENCER
     3611                            *
     3612                            *
     3613                            *                                   TST1,22 WRITE TAPE MARK TEST
     3614                            *                                   ------------------------------------
     3615                            *
     3616                            * WRITE N TAPE MARKS AND VERIFY THAT END OF FILE STATUS IS REPORTED    *
     3617                            * AFTER EACH ORDER. ALL TAPE MARKS ARE READ FORWARD AND SPACE BKW.
     3618                            *                                                                      *
     3619                            *
     3620   03 0090E    6AF0169E     :T1ST22  BAL,15   RWTLP             REWIND TO LOAD POINT
     3621   03 0090F    228FFF9C A            LI,8     -100
     3622   03 00910    6AF016DC     T1ST2201 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3623   03 00911    22000C26              LI,0     DA(TWTM)          WRITE TM
     3624   03 00912    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3625   03 00913    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3626   03 00914    6AF01F72     T1ST2203 BAL,15   :ERRORT           TEST
     3627   03 00915    00006030              DATA     BA(TSEQ015)       READY, NO UE, TM
     3628   03 00916    6800091C              B        T1ST2204
     3629                            *        ERROR EXIT
     3630   03 00917    EAF0021B A            BAL,15   *:ERROR           #2201
     3631   03 00918    00000899 A            DATA     2201              INCORRECT BITS ON TEST
     3632   03 00919    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3633   03 0091A    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3634   03 0091B    68000910              B        T1ST2201          LOOP ON ERROR
     3635   03 0091C    65800910     T1ST2204 BIR,8    T1ST2201          WRITE 100 TAPE MARKS
     3636   03 0091D    228FFF9C A            LI,8     -100              SPACE 100 RECORDS BACKWARD
     3637   03 0091E    6AF016DC     T1ST2205 BAL,15   CLRARM            CLEAR AND ARM INTTERUPT
     3638   03 0091F    22000C6C            LI,0       DA(SPBRAND)       SPACE BKW OVER TAPE MARK
     3639   03 00920    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     3640   03 00921    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3641   03 00922    6AF01F72              BAL,15   :ERRORT           TEST
     3642   03 00923    000060C0              DATA     BA(TSEQ038)       UE, TAPE MARK, NO TE
     3643   03 00924    6800092A              B        T1ST2206
     3644                            *        ERROR EXIT
     3645   03 00925    EAF0021B A            BAL,15   *:ERROR           #2202
     3646   03 00926    0000089A A            DATA     2202
     3647   03 00927    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3648   03 00928    2E000000 A            WAIT
     3649   03 00929    6800092A              B        %+1               CANNOT LOOP ON ERROR
     3650   03 0092A    6580091E     T1ST2206 BIR,8    T1ST2205          DO 100 TIMES
     3651   03 0092B    228FFF9C A            LI,8     -100              READ 100 RECORDS FWD
     3652   03 0092C    6AF016DC     T1ST2207 BAL,15   CLRARM            CLEARN AND ARM INTERRUPT
     3653   03 0092D    22000C49              LI,0     DA(RF100B)        READ FWD OVER TAPE MARK
     3654   03 0092E    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     3655   03 0092F    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3656   03 00930    6AF01F72              BAL,15   :ERRORT           TEST
     3657   03 00931    000060B8              DATA     BA(TSEQ037)       UE, TAPE MARK
     3658   03 00932    68000938              B        T1ST2208
     3659                            *        ERROR EXIT
     3660   03 00933    EAF0021B A            BAL,15   *:ERROR           #2203
     3661   03 00934    0000089B A            DATA     2203
     3662   03 00935    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3663   03 00936    2E000000 A            WAIT
     3664   03 00937    68000938              B        %+1               CANNOT LOOP ON ERROR
     3665   03 00938    6580092C     T1ST2208 BIR,8    T1ST2207          DO 100 TIMES
     3666   03 00939    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3667   03 0093A    680003B0              B        :TIM              GO TO SEQUENCER
     3668                            *
     3669                            *
     3670                            *
     3671                            *
     3672                            *                                   TST1,23 WRITE TAPE MARK -SPACE FILE
     3673                            *                                           AND SPACE RECORD TEST
     3674                            *                                   ------------------------------------
     3675                            *
     3676                            *
     3677                            * WRITE N TAPE MARKS AND REWIND TO LOAD POINT. SPACE FILE IN THE       *
     3678                            * FORWARD DIRECTION AND VERIFY END OF FILE AND NO UNUSUAL END STATUS.  *
     3679                            * SPACE FILE BACKWARD AND CHECK END OF FILE AND NO UNUSUAL END. SPACE  *
     3680                            * FILE BACKWARD AGAIN AND CHECK END OF FILE, BEGINNING OF TAPE AND NO  *
     3681                            * UNUSUAL END. VERIFY ALL OTHER STATUS. VERIFY THAT UNUSUAL END AND    *
     3682                            * END OF FILE STATUS IS REPORTED WHEN SPACING OR READING OVER A TAPE   *
     3683                            * MARK. WRITE N RECORDS FOLLOWED BY A TAPE MARK. VERIFY SPACE RECORD   *
     3684                            * IN BOTH DIRECTIONS.                                                  *
     3685                            *                                                                      *
     3686                            *
     3687   03 0093B    6AF0169E     :T1ST23  BAL,15   RWTLP             REWIND TO LOAD POINT
     3688   03 0093C    228FFF9C A            LI,8     -100
     3689   03 0093D    6AF016DC     T1ST2301 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3690   03 0093E    22000C26              LI,0     DA(TWTM)          WRITE TM
     3691   03 0093F    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3692   03 00940    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3693   03 00941    6AF01F72     T1ST2303 BAL,15   :ERRORT           TEST
     3694   03 00942    00006030              DATA     BA(TSEQ015)       READY, TAPE MARK, NO UE
     3695   03 00943    68000949              B        T1ST2304
     3696                            *        ERROR EXIT
     3697   03 00944    EAF0021B A            BAL,15   *:ERROR           #2301
     3698   03 00945    000008FD A            DATA     2301              INCORRECT BITS ON TEST
     3699   03 00946    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3700   03 00947    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3701   03 00948    6800093D              B        T1ST2301          LOOP ON ERROR
     3702   03 00949    6580093D     T1ST2304 BIR,8    T1ST2301          WRITE 100 TAPE MARKS
     3703   03 0094A    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3704   03 0094B    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3705   03 0094C    22000C61              LI,0     DA(TSFF)          SPACE FILE FWD
     3706   03 0094D    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3707   03 0094E    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3708   03 0094F    6AF01F72     T1ST2306 BAL,15   :ERRORT           TEST
     3709   03 00950    00006030              DATA     BA(TSEQ015)       READY, NO UE, TAPE MARK
     3710   03 00951    68000958              B        T1ST2307
     3711                            *        ERROR EXIT
     3712   03 00952    EAF0021B A            BAL,15   *:ERROR           #2302
     3713   03 00953    000008FE A            DATA     2302              INCORRECT BITS ON TEST
     3714   03 00954    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3715   03 00955    2E000000 A            WAIT
     3716   03 00956    6800094A              B        T1ST2304+1        LOOP ON ERROR
     3717   03 00957    680009AD              B        T1ST2326          GO TO END OF TEST
     3718   03 00958    22000C62     T1ST2307 LI,0     DA(TSFB)          SPACE FILE BKW
     3719   03 00959    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3720   03 0095A    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3721   03 0095B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3722   03 0095C    6AF01F72     T1ST2309 BAL,15   :ERRORT           TEST
     3723   03 0095D    00006030              DATA     BA(TSEQ015)       READY, NO UE, TAPE MARK
     3724   03 0095E    68000965              B        T1ST2310
     3725                            *        ERROR EXIT
     3726   03 0095F    EAF0021B A            BAL,15   *:ERROR           #2303
     3727   03 00960    000008FF A            DATA     2303              INCORRECT BITS ON TEST
     3728   03 00961    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3729   03 00962    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3730   03 00963    6800094A              B        T1ST2304+1        LOOP ON ERROR
     3731   03 00964    680009AD              B        T1ST2326          GO TO END OF TEST
     3732   03 00965    22000C62     T1ST2310 LI,0     DA(TSFB)          SPACE FILE BKW AT BOT
     3733   03 00966    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3734   03 00967    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3735   03 00968    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3736   03 00969    6AF01F72     T1ST2312 BAL,15   :ERRORT           TEST
     3737   03 0096A    000060A8              DATA     BA(TSEQ035)       EOF,LP, NO UE
     3738   03 0096B    68000972              B        T1ST2313
     3739                            *        ERROR EXIT
     3740   03 0096C    EAF0021B A            BAL,15   *:ERROR           #2304
     3741   03 0096D    00000900 A            DATA     2304              INCORRECT BITS ON TEST
     3742   03 0096E    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3743   03 0096F    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3744   03 00970    6800094A              B        T1ST2304+1        LOOP ON ERROR
     3745   03 00971    680009AD              B        T1ST2326          GO TO END OF TEST
     3746   03 00972    228FFFEC A   T1ST2313 LI,8     -20
     3747   03 00973    6AF016DC     T1ST2314 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3748   03 00974    22000C2A              LI,0     DA(TW100B)        WRITE 100 BYTES
     3749   03 00975    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3750   03 00976    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3751   03 00977    6AF01F72     T1ST2316 BAL,15   :ERRORT           TEST
     3752   03 00978    00006014              DATA     BA(TSEQ011)       NO UE, BC=00
     3753   03 00979    6800097F              B        T1ST2317
     3754                            *        ERROR EXIT
     3755   03 0097A    EAF0021B A            BAL,15   *:ERROR           #2305
     3756   03 0097B    00000901 A            DATA     2305              INCORRECT BITS ON TEST
     3757   03 0097C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3758   03 0097D    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3759   03 0097E    68000973              B        T1ST2314          LOOP ON ERROR
     3760   03 0097F    65800973     T1ST2317 BIR,8    T1ST2314          WRITE 20 RECORDS
     3761   03 00980    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3762   03 00981    22000C26              LI,0     DA(TWTM)          WRITE TAPE MARK
     3763   03 00982    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3764   03 00983    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3765   03 00984    6AF01F72     T1ST2319 BAL,15   :ERRORT           TEST
     3766   03 00985    00006030              DATA     BA(TSEQ015)       READY, TAPE MARK
     3767   03 00986    6800098F              B        T1ST2320
     3768                            *        ERROR EXIT
     3769   03 00987    EAF0021B A            BAL,15   *:ERROR           #2306
     3770   03 00988    00000902 A            DATA     2306              INCORRECT BITS ON TEST
     3771   03 00989    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3772   03 0098A    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3773   03 0098B    6800098D              B        %+2               LOOP ON ERROR BRANCH
     3774   03 0098C    680009AD              B        T1ST2326          GO TO END OF TEST
     3775   03 0098D    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3776   03 0098E    68000973              B        T1ST2314
     3777   03 0098F    6AF016DC     T1ST2320 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3778   03 00990    22000C60              LI,0     DA(SB100)         SPACE RECORD BACKWARD
     3779   03 00991    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3780   03 00992    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3781   03 00993    6AF01F72     T1ST2322 BAL,15   :ERRORT           TEST
     3782   03 00994    00006034              DATA     BA(TSEQ016)       UE, READY, TAPE MARK
     3783   03 00995    6800099E              B        T1ST2323
     3784                            *        ERROR EXIT
     3785   03 00996    EAF0021B A            BAL,15   *:ERROR           #2307
     3786   03 00997    00000903 A            DATA     2307              INCORRECT BITS ON TEST
     3787   03 00998    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3788   03 00999    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3789   03 0099A    6800099C              B        %+2               LOOP ON ERROR
     3790   03 0099B    680009AD              B        T1ST2326          GO TO END OF TEST
     3791   03 0099C    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3792   03 0099D    68000973              B        T1ST2314
     3793   03 0099E    6AF016DC     T1ST2323 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3794   03 0099F    22000C5F              LI,0     DA(SF100)         SPACE RECORD FORWARD
     3795   03 009A0    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3796   03 009A1    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3797   03 009A2    6AF01F72     T1ST2325 BAL,15   :ERRORT           TEST
     3798   03 009A3    00006034              DATA     BA(TSEQ016)       UE, READY, TAPE MARK
     3799   03 009A4    680009AD              B        T1ST2326
     3800                            *        ERROR EXIT
     3801   03 009A5    EAF0021B A            BAL,15   *:ERROR           #2308
     3802   03 009A6    00000904 A            DATA     2308              INCORRECT BITS ON TEST
     3803   03 009A7    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3804   03 009A8    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3805   03 009A9    680009AB              B        %+2               LOOP ON ERROR
     3806   03 009AA    680009AD              B        T1ST2326          GO TO END OF TEST
     3807   03 009AB    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     3808   03 009AC    68000973              B        T1ST2314
     3809   03 009AD    6AF016E4     T1ST2326 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3810   03 009AE    680003B0              B        :TIM              GO TO SEQUENCER
     3811                            *
     3812                            *
     3813                            *
     3814                            *                                   TST1,24  TAPE LOOP TEST
     3815                            *                                   ------------------------------------
     3816                            *
     3817                            * REWIND WITH COMMAND CHAIN. WRITE WITH DATA CHAIN 27,000 WORDS LOOP   *
     3818                            * BACK TO REWIND. THIS SEQUENCE IS REPEATED 10 TIMES IN AN EFFORT      *
     3819                            * TO CAUSE THE TAPE TO LOOP OUT IN THE VACUUM COLUMNS.                 *
     3820                            *                                                                      *
     3821                            *                                                                      *
     3822                            *                                                                      *
     3823                            *
     3824   03 009AF    6AF016E4     :T1ST24  BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3825   03 009B0    2270000A A            LI,7     10                DO 10 TIMES
     3826   03 009B1    32802159              LW,8     =X'D00000'        SET TIMOUT LIMIT                *A01
     3827   03 009B2    22000C81     T1ST2402 LI,0     DA(TPDMP)         REWIND, CC WRITE WITH DATA CHAIN
     3828   03 009B3    CCA0195B              SIO,10   *:DEVADDR
     3829   03 009B4    CDC0195B              TIO,12   *:DEVADDR         TIO
     3830   03 009B5    648009B7              BDR,8    %+2               CHECK TIMEOUT LIMIT             *A01
     3831   03 009B6    680009B9              B        %+3                 TIMEOUT                       *A01
     3832   03 009B7    69C009B4              BCS,12   %-3               WAIT UNTIL DONE                 *A01
     3833   03 009B8    647009B1              BDR,7    T1ST2402-1                                        *A01
     3834   03 009B9    6AF01F72              BAL,15   :ERRORT           TEST
     3835   03 009BA    00006098              DATA     BA(TSEQ033)       READY, NO UE
     3836   03 009BB    680009C1              B        T1ST2403          GOOD EXIT
     3837                            *        ERROR EXIT
     3838   03 009BC    EAF0021B A            BAL,15   *:ERROR           2401
     3839   03 009BD    00000961 A            DATA     2401              INCORRECT BITS IN TEST
     3840   03 009BE    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3841   03 009BF    2E000000 A            WAIT
     3842   03 009C0    680009C1              B        %+1               CANNOT LOOP ON THIS ERROR
     3843   03 009C1    6AF016E4     T1ST2403 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3844   03 009C2    680003B0              B        :TIM              RETURN TO SEQUENCER
     3845                            *
     3846                            *
     3847                            *
     3848                            *
     3849                            *
     3850                            *
     3851                            *                                   TST1,25 NO OPERATION TEST
     3852                            *                                   ------------------------------------
     3853                            *
     3854                            *                                                                      *
     3855                            *
     3856                            *
     3857   03 009C3    680003B0     :T1ST25  B        :TIM              GO TO SEQUENCER
     3858                            *
     3859                            *
     3860                            *                                   TST1,26 INCORRECT LENGTH TEST
     3861                            *                                   ------------------------------------
     3862                            *
     3863                            * WRITE A RECORD AND READ IN THE FORWARD DIRECTION USING A BYTE COUNT-1*
     3864                            * BYTE COUNT +1 FOR THE READ ORDERS. VERIFY INCORRECT LENGTH AND ALL   *
     3865                            * OTHER STATUS INDICATIONS. SUPPRESS INCORRECT LENGTH FEATURE IN THE   *
     3866                            * IOP WILL ALSO BE TESTED.                                             *
     3867                            *                                                                      *
     3868                            *
     3869   03 009C4    6AF016DC     :T1ST26  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3870   03 009C5    22F00000 A            LI,15    0
     3871   03 009C6    35F0199B              STW,15   SPFLAG            CLEAR ERROR FLAG
     3872   03 009C7    6AF016F5              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3873   03 009C8    22000C37              LI,0     DA(WR96B)         WRITE 96 BYTES
     3874   03 009C9    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3875   03 009CA    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3876   03 009CB    6AF01F72     T1ST2603 BAL,15   :ERRORT           TEST
     3877   03 009CC    00006014              DATA     BA(TSEQ011)       READY,BC=00, NO UE
     3878   03 009CD    680009D3              B        T1ST2604
     3879                            *        ERROR EXIT
     3880   03 009CE    EAF0021B A            BAL,15   *:ERROR           #2601
     3881   03 009CF    00000A29 A            DATA     2601              INCORRECT BITS ON TEST
     3882   03 009D0    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3883   03 009D1    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3884   03 009D2    680009C4              B        :T1ST26           LOOP ON ERROR
     3885   03 009D3    6AF016DC     T1ST2604 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3886   03 009D4    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     3887   03 009D5    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3888   03 009D6    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3889   03 009D7    6AF01F72     T1ST2606 BAL,15   :ERRORT           TEST
     3890   03 009D8    00006014              DATA     BA(TSEQ011)       READY, NO UE
     3891   03 009D9    680009DD              B        T1ST2607
     3892                            *        ERROR EXIT
     3893   03 009DA    EAF0021B A            BAL,15   *:ERROR           #2602
     3894   03 009DB    00000A2A A            DATA     2602              INCORRECT BITS ON TEST
     3895   03 009DC    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3896   03 009DD    6AF016DC     T1ST2607 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3897   03 009DE    22000C4D              LI,0     DA(RF96B)         READ FWD 96 BYTES
     3898   03 009DF    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3899   03 009E0    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3900   03 009E1    6AF01F72     T1ST2609 BAL,15   :ERRORT           TEST
     3901   03 009E2    00006008              DATA     BA(TSEQ010)       BC=00,READY,NO UE, NO INC LENGTH
     3902   03 009E3    680009E7              B        T1ST2610
     3903                            *        ERROR EXIT
     3904   03 009E4    EAF0021B A            BAL,15   *:ERROR           #2603
     3905   03 009E5    00000A2B A            DATA     2603              INCORRECT BITS ON TEST
     3906   03 009E6    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3907   03 009E7    6AF016DC     T1ST2610 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3908   03 009E8    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     3909   03 009E9    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3910   03 009EA    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3911   03 009EB    6AF01F72     T1ST2612 BAL,15   :ERRORT           TEST
     3912   03 009EC    00006014              DATA     BA(TSEQ011)       READY, NO UE
     3913   03 009ED    680009F1              B        T1ST2613
     3914                            *        ERROR EXIT
     3915   03 009EE    EAF0021B A            BAL,15   *:ERROR           #2604
     3916   03 009EF    00000A2C A            DATA     2604              INCORRECT BITS ON TEST
     3917   03 009F0    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3918   03 009F1    6AF016DC     T1ST2613 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3919   03 009F2    22000C43              LI,0     DA(RF95B)         READ FWD 95 BYTES
     3920   03 009F3    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3921   03 009F4    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3922   03 009F5    6AF01F72     T1ST2615 BAL,15   :ERRORT           TEST
     3923   03 009F6    0000601C              DATA     BA(TSEQ012)       BC=0, INC LENGTH, UE, READY
     3924   03 009F7    680009FB              B        T1ST2616
     3925                            *        ERROR EXIT
     3926   03 009F8    EAF0021B A            BAL,15   *:ERROR           #2605
     3927   03 009F9    00000A2D A            DATA     2605              INCORRECT BITS ON TEST
     3928   03 009FA    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3929   03 009FB    6AF016DC     T1ST2616 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3930   03 009FC    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     3931   03 009FD    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3932   03 009FE    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3933   03 009FF    6AF01F72     T1ST2618 BAL,15   :ERRORT           TEST
     3934   03 00A00    00006014              DATA     BA(TSEQ011)       READY, NO UE
     3935   03 00A01    68000A05              B        T1ST2619
     3936                            *        ERROR EXIT
     3937   03 00A02    EAF0021B A            BAL,15   *:ERROR           #2606
     3938   03 00A03    00000A2E A            DATA     2606              INCORRECT BITS ON TEST
     3939   03 00A04    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3940   03 00A05    6AF016DC     T1ST2619 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3941   03 00A06    22000C44              LI,0     DA(RF97B)         READ FWD 97 BYTES
     3942   03 00A07    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3943   03 00A08    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3944   03 00A09    6AF01F72     T1ST2621 BAL,15   :ERRORT           TEST
     3945   03 00A0A    00006038              DATA     BA(TSEQ017)       BC=1, NO UE, INC LENGTH SET
     3946   03 00A0B    68000A0F              B        T1ST2622
     3947                            *        ERROR EXIT
     3948   03 00A0C    EAF0021B A            BAL,15   *:ERROR           #2607
     3949   03 00A0D    00000A2F A            DATA     2607              INCORRECT BITS ON TEST
     3950   03 00A0E    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     3951   03 00A0F    6AF016DC     T1ST2622 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3952   03 00A10    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     3953   03 00A11    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3954   03 00A12    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3955   03 00A13    6AF01F72     T1ST2624 BAL,15   :ERRORT           TEST
     3956   03 00A14    00006014              DATA     BA(TSEQ011)       READY, NO UE
     3957   03 00A15    68000A19              B        T1ST2625
     3958                            *        ERROR EXIT
     3959   03 00A16    EAF0021B A            BAL,15   *:ERROR           #2608
     3960   03 00A17    00000A30 A            DATA     2608              INCORRECT BITS ON TEST
     3961   03 00A18    3310199B              MTW,1    SPFLAG            ERROR +1
     3962   03 00A19    6AF016DC     T1ST2625 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3963   03 00A1A    22000C45              LI,0     DA(RF95BS)        READ FWD 95 BYTES, SUP INC LENGTH
     3964   03 00A1B    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     3965   03 00A1C    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     3966   03 00A1D    6AF01F72     T1ST2627 BAL,15   :ERRORT           TEST
     3967   03 00A1E    00006044              DATA     BA(TSEQ019)       READY,NO UE, BC=00, INC LENGTH
     3968   03 00A1F    68000A23              B        T1ST2627+6
     3969                            *        ERROR EXIT
     3970   03 00A20    EAF0021B A            BAL,15   *:ERROR           #2609
     3971   03 00A21    00000A31 A            DATA     2609              INCORRECT BITS ON TEST
     3972   03 00A22    3310199B              MTW,1    SPFLAG            ERROR +1
     3973   03 00A23    32F0199B              LW,15    SPFLAG
     3974   03 00A24    68300A28              BEZ      T1ST2628          ERROR FLAG =0
     3975   03 00A25    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3976   03 00A26    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3977   03 00A27    680009C4              B        :T1ST26
     3978   03 00A28    6AF016E4     T1ST2628 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3979   03 00A29    680003B0              B        :TIM              GO TO SEQUENCER
     3980                            *
     3981                            *
     3982                            *
     3983                            *
     3984                            *                                   TST1,27 DATA CHAINING TEST
     3985                            *                                   ------------------------------------
     3986                            *
     3987                            * TEST THE DATA CHAINING CAPABILITY OF THE IOP USING WRITE AND READ    *
     3988                            * ORDERS.                                                              *
     3989                            *                                                                      *
     3990                            *
     3991                            *
     3992   03 00A2A    6AF016DC     :T1ST27  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3993   03 00A2B    22F00000 A            LI,15    0
     3994   03 00A2C    35F0199B              STW,15   SPFLAG            RESET FLAG
     3995   03 00A2D    6AF016F5              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3996   03 00A2E    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     3997   03 00A2F    35F01A4D              STW,15   NOPKPRT
     3998   03 00A30    22700018 A            LI,7     24                24 WORDS TO COMPARE
     3999   03 00A31    35701E68              STW,7    :COMWCNT
     4000   03 00A32    22000C2D              LI,0     DA(TWDC02)        WRITE 2 DATA CHAIN 94 BYTES
     4001   03 00A33    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4002   03 00A34    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4003   03 00A35    6AF01F72     T1ST2703 BAL,15   :ERRORT           TEST
     4004   03 00A36    00006014              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     4005   03 00A37    68000A3F              B        T1ST2704
     4006                            *        ERROR EXIT
     4007   03 00A38    EAF0021B A            BAL,15   *:ERROR           #2701
     4008   03 00A39    00000A8D A            DATA     2701              INCORRECT BITS ON TEST
     4009   03 00A3A    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4010   03 00A3B    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4011   03 00A3C    68000A2A              B        :T1ST27           LOOP ON ERROR
     4012   03 00A3D    22700000 A            LI,7     0
     4013   03 00A3E    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4014   03 00A3F    6AF016DC     T1ST2704 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4015   03 00A40    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     4016   03 00A41    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4017   03 00A42    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4018   03 00A43    6AF01F72     T1ST2706 BAL,15   :ERRORT           TEST
     4019   03 00A44    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4020   03 00A45    68000A49              B        T1ST2708
     4021                            *        ERROR EXIT
     4022   03 00A46    EAF0021B A            BAL,15   *:ERROR           #2702
     4023   03 00A47    00000A8E A            DATA     2702              INCORRECT BITS ON TEST
     4024   03 00A48    3310199B              MTW,1    SPFLAG            ERROR +1
     4025   03 00A49    6AF016DC     T1ST2708 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4026   03 00A4A    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     4027   03 00A4B    22000C4E              LI,0     DA(TRFDC48)       READ FWD DC 48 BYTES
     4028   03 00A4C    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4029   03 00A4D    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4030   03 00A4E    6AF01F72     T1ST2709 BAL,15   :ERRORT           TEST
     4031   03 00A4F    00006008              DATA     BA(TSEQ010)       READY,NO UE, NO INC. LENGTH, BC=00
     4032   03 00A50    68000A54              B        T1ST2710
     4033                            *        ERROR EXIT
     4034   03 00A51    EAF0021B A            BAL,15   *:ERROR           #2704
     4035   03 00A52    00000A90 A            DATA     2704              INCORRECT BITS ON TEST
     4036   03 00A53    3310199B              MTW,1    SPFLAG            ERROR +1
     4037   03 00A54    6AF01DF5     T1ST2710 BAL,15   :COMPARE          COMPARE INFORMATION
     4038   03 00A55    68000A59              B        T1ST2710+5
     4039                            *        ERROR EXIT INFO INCORRECT
     4040   03 00A56    EAF0021B A            BAL,15   *:ERROR           #2705
     4041   03 00A57    00000A91 A            DATA     2705              INCORRECT INFORMATION
     4042   03 00A58    3310199B              MTW,1    SPFLAG            ERROR +1
     4043   03 00A59    32F0199B              LW,15    SPFLAG
     4044   03 00A5A    68300A5E              BEZ      T1ST2711          ERROR FLAG =0
     4045   03 00A5B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4046   03 00A5C    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4047   03 00A5D    68000A2A              B        :T1ST27           RESTART TEST
     4048   03 00A5E    6AF016E4     T1ST2711 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4049   03 00A5F    680003B0              B        :TIM              GO TO SEQUENCER
     4050                            *
     4051                            *
     4052                            *                                   TST1,28 BYTE BOUNDRY TEST
     4053                            *                                   ------------------------------------
     4054                            *
     4055                            * THIS TEST PERFORMS READ AND WRITE OPERATIONS FROM ALL POSSIBLE       *
     4056                            * MEMORY BOUNDARIES.                                                   *
     4057                            *                                                                      *
     4058                            *
     4059   03 00A60    6AF016F5     :T1ST28  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     4060   03 00A61    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     4061   03 00A62    35F01A4D              STW,15   NOPKPRT
     4062   03 00A63    22808608              LI,8     BA(BUFF1)         BC=4, WORD ADDRESS CHANGES
     4063   03 00A64    3270185E              LW,7     WFBAD
     4064   03 00A65    4B702147              AND,7    =X'FF000000'
     4065   03 00A66    30700008 A            AW,7     8
     4066   03 00A67    3570185E              STW,7    WFBAD             INITIALIZE BYTE ADDRESS
     4067   03 00A68    32702136              LW,7     BUFF2             OBSERVED PATTERN
     4068   03 00A69    25700002 A            SLS,7    2
     4069   03 00A6A    3280188C              LW,8     RFBAD
     4070   03 00A6B    4B802147              AND,8    =X'FF000000'
     4071   03 00A6C    30800007 A            AW,8     7
     4072   03 00A6D    3580188C              STW,8    RFBAD
     4073   03 00A6E    22500000 A            LI,5     0
     4074   03 00A6F    35501972              STW,5    NOREAD            RESET READ FLAG
     4075   03 00A70    35501E6B              STW,5    :COMFLAG          PRINTOUT FLAG
     4076   03 00A71    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     4077   03 00A72    69300A76              BNE      %+4
     4078   03 00A73    22700005 A            LI,7     5
     4079   03 00A74    22601A34              LI,6     COMPSPD           PACKED INFORMATION
     4080   03 00A75    68000A78              B        %+3
     4081   03 00A76    22700004 A            LI,7     4
     4082   03 00A77    22602182              LI,6     BUFF1             UNPACKED INFORMATION
     4083   03 00A78    35601E69              STW,6    :COMBFRA          SET UP COMPARE
     4084   03 00A79    3280215A              LW,8     =X'12131415'      UNPACKED BINARY
     4085   03 00A7A    3290215B              LW,9     =X'32333435'
     4086   03 00A7B    5572188D              STH,7    RFBAD+1,1
     4087   03 00A7C    35802182              STW,8    BUFF1
     4088   03 00A7D    35902183              STW,9    BUFF1+1
     4089   03 00A7E    22500002 A            LI,5     2
     4090   03 00A7F    35501E68              STW,5    :COMWCNT          SET UP COMPARE
     4091   03 00A80    226FFFFC A            LI,6     -4
     4092   03 00A81    6AF016DC     T1ST2801 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4093   03 00A82    22F00000 A            LI,15    0
     4094   03 00A83    35F0199B              STW,15   SPFLAG            RESET FLAG
     4095   03 00A84    22000C2F              LI,0     DA(WFBAD)         WRITE FROM WA, WA+1, WA+2, WA+3
     4096   03 00A85    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4097   03 00A86    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4098   03 00A87    6AF01F72     T1ST2803 BAL,15   :ERRORT           TEST
     4099   03 00A88    00006014              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     4100   03 00A89    68000A8F              B        T1ST2804
     4101                            *        ERROR EXIT
     4102   03 00A8A    EAF0021B A            BAL,15   *:ERROR           #2801
     4103   03 00A8B    00000AF1 A            DATA     2801              INCORRECT BITS ON TEST
     4104   03 00A8C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4105   03 00A8D    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4106   03 00A8E    68000A81              B        T1ST2801          LOOP ON ERROR
     4107   03 00A8F    6AF016DC     T1ST2804 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4108   03 00A90    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     4109   03 00A91    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4110   03 00A92    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4111   03 00A93    6AF01F72     T1ST2806 BAL,15   :ERRORT           TEST
     4112   03 00A94    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4113   03 00A95    68000A99              B        T1ST2808
     4114                            *        ERROR EXIT
     4115   03 00A96    EAF0021B A            BAL,15   *:ERROR           #2802
     4116   03 00A97    00000AF2 A            DATA     2802              INCORRECT BITS ON TEST
     4117   03 00A98    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4118   03 00A99    6AF016DC     T1ST2808 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4119   03 00A9A    95802136              STD,8    *BUFF2
     4120   03 00A9B    22000C46              LI,0     DA(RFBAD)         READ INTO WA, WA+1, WA+2, WA+3
     4121   03 00A9C    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4122   03 00A9D    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4123   03 00A9E    6AF01F72     T1ST2810 BAL,15   :ERRORT           TEST
     4124   03 00A9F    00006008              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE, BC=00
     4125   03 00AA0    68000AA4              B        T1ST2811
     4126                            *        ERROR EXIT
     4127   03 00AA1    EAF0021B A            BAL,15   *:ERROR           #2804
     4128   03 00AA2    00000AF4 A            DATA     2804              INCORRECT BITS ON TEST
     4129   03 00AA3    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4130   03 00AA4    6AF01DF5     T1ST2811 BAL,15   :COMPARE          COMPARE
     4131   03 00AA5    68000AA9              B        T1ST2812-5        GO CHECK ERROR FLAG
     4132   03 00AA6    EAF0021B A            BAL,15   *:ERROR           #2805
     4133   03 00AA7    00000AF5 A            DATA     2805              INCORRECT INFORMATION
     4134   03 00AA8    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4135   03 00AA9    32F0199B              LW,15    SPFLAG
     4136   03 00AAA    68300AAE              BEZ      T1ST2812          NO ERRORS
     4137   03 00AAB    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4138   03 00AAC    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4139   03 00AAD    68000A81              B        T1ST2801          LOOP ON ERROR
     4140   03 00AAE    3310185E     T1ST2812 MTW,1    WFBAD             WA= WA+1 BYTE, ETC
     4141   03 00AAF    3310188C              MTW,1    RFBAD
     4142   03 00AB0    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     4143   03 00AB1    69300AB3              BNE      %+2
     4144   03 00AB2    33201E69              MTW,2    :COMBFRA          NEXT PACKED COMPARE
     4145   03 00AB3    65600A81              BIR,6    T1ST2801          DO 4 TIMES
     4146   03 00AB4    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     4147   03 00AB5    68300AB8              BE       %+3
     4148   03 00AB6    32F02157              LW,15    =X'3F3F3F3F'      UNPACKED BINARY
     4149   03 00AB7    68000AB9              B        %+2
     4150   03 00AB8    32F0215C              LW,15    =X'FFFFFFFF'      PACKED BINARY
     4151   03 00AB9    3A901971              LCW,9    MAXREAD           MAXIMUM WORDS IN BUFFER AREA
     4152   03 00ABA    22700000 A            LI,7     0
     4153   03 00ABB    35FE2182              STW,15   BUFF1,7           STORE WORD
     4154   03 00ABC    33100007 A            MTW,1    7
     4155   03 00ABD    65900ABB              BIR,9    %-2
     4156   03 00ABE    22A02182              LI,10    BUFF1             CORRECT INFORMATION ON COMPARE
     4157   03 00ABF    35A01E69              STW,10   :COMBFRA
     4158   03 00AC0    32A02136              LW,10    BUFF2
     4159   03 00AC1    35A01E6A              STW,10   :COMBFRB          OBSERVED INFORMATION
     4160                            *                                   WORD ADDRESS, BYTE COUNT CHANGES
     4161                            *                                   START WITH 1 WORD IN THIS SECTION
     4162   03 00AC2    22400004 A            LI,4     4                 START WITH 1 WORD
     4163   03 00AC3    55421861              STH,4    WBCC+1,1
     4164   03 00AC4    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     4165   03 00AC5    69300AC7              BNE      %+2
     4166   03 00AC6    33100004 A            MTW,1    4                 BYTE COUNT +1
     4167   03 00AC7    5542188F              STH,4    RFCC+1,1
     4168   03 00AC8    35101E68              STW,1    :COMWCNT          COMPARE 1 WORD
     4169   03 00AC9    6AF016DC     T1ST2813 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4170   03 00ACA    22F00000 A            LI,15    0
     4171   03 00ACB    35F0199B              STW,15   SPFLAG            CLEAR ERROR FLAG
     4172   03 00ACC    22000C30              LI,0     DA(WBCC)          WRITE RECORD, BYTE COUNT CHANGES
     4173   03 00ACD    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4174   03 00ACE    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4175   03 00ACF    6AF01F72     T1ST2815 BAL,15   :ERRORT           TEST
     4176   03 00AD0    00006014              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     4177   03 00AD1    68000AD7              B        T1ST2816
     4178                            *        ERROR EXIT
     4179   03 00AD2    EAF0021B A            BAL,15   *:ERROR           #2806
     4180   03 00AD3    00000AF6 A            DATA     2806              INCORRECT BITS ON TEST
     4181   03 00AD4    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4182   03 00AD5    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4183   03 00AD6    68000AC9              B        T1ST2813          LOOP ON ERROR
     4184   03 00AD7    31101972     T1ST2816 CW,1     NOREAD            RECORD TOO LARGE TO READ
     4185   03 00AD8    68300AF8              BEZ      T1ST2828          BYPASS READS
     4186   03 00AD9    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4187   03 00ADA    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     4188   03 00ADB    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     4189   03 00ADC    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4190   03 00ADD    6AF01F72     T1ST2818 BAL,15   :ERRORT           TEST
     4191   03 00ADE    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4192   03 00ADF    68000AE3              B        T1ST2822
     4193                            *        ERROR EXIT
     4194   03 00AE0    EAF0021B A            BAL,15   *:ERROR           #2807
     4195   03 00AE1    00000AF7 A            DATA     2807              INCORRECT BITS ON TEST
     4196   03 00AE2    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4197   03 00AE3    6AF016DC     T1ST2822 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4198   03 00AE4    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     4199   03 00AE5    22000C47              LI,0     DA(RFCC)
     4200   03 00AE6    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4201   03 00AE7    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4202   03 00AE8    6AF01F72     T1ST2824 BAL,15   :ERRORT           TEST
     4203   03 00AE9    00006008              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE, BC=00
     4204   03 00AEA    68000AEE              B        T1ST2825
     4205                            *        ERROR EXIT
     4206   03 00AEB    EAF0021B A            BAL,15   *:ERROR           2809
     4207   03 00AEC    00000AF9 A            DATA     2809              INCORRECT BITS SET ON TEST
     4208   03 00AED    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4209   03 00AEE    6AF01DF5     T1ST2825 BAL,15   :COMPARE          COMPARE INFORMATION
     4210   03 00AEF    68000AF3              B        T1ST2828-5
     4211                            *        INFO ERROR
     4212   03 00AF0    EAF0021B A            BAL,15   *:ERROR           2810
     4213   03 00AF1    00000AFA A            DATA     2810              INCORRECT INFO ON READ FWD.
     4214   03 00AF2    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4215   03 00AF3    32F0199B              LW,15    SPFLAG
     4216   03 00AF4    68300AF8              BEZ      T1ST2828          NO ERROR SET
     4217   03 00AF5    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4218   03 00AF6    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4219   03 00AF7    68000AC9              B        T1ST2813          LOOP ON ERROR
     4220   03 00AF8    32701861     T1ST2828 LW,7     WBCC+1
     4221   03 00AF9    4B70215D              AND,7    =X'000FFFFF'      OLD BYTE COUNT
     4222   03 00AFA    25700001 A            SLS,7    1                 SHIFT I BIT TO LEFT
     4223   03 00AFB    3170196E              CW,7     MAXBYT            RECORD GREATER THAN I/O AREA
     4224   03 00AFC    69200B08              BCS,2    T1ST2830
     4225   03 00AFD    31701970              CW,7     MAXREADB          RECORD TOO LARGE TO READ
     4226   03 00AFE    69100B00              BCS,1    T1ST2829
     4227   03 00AFF    35101972              STW,1    NOREAD
     4228   03 00B00    55721861     T1ST2829 STH,7    WBCC+1,1          STORE NEW BYTE COUNT
     4229   03 00B01    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     4230   03 00B02    69300B04              BNE      %+2
     4231   03 00B03    33100007 A            MTW,1    7                 BYTE COUNT +1
     4232   03 00B04    5572188F              STH,7    RFCC+1,1
     4233   03 00B05    2570007E A            SLS,7    -2                DEVIDE BY 4
     4234   03 00B06    35701E68              STW,7    :COMWCNT          WORD COUNT FOR COMPARE
     4235   03 00B07    68000AC9              B        T1ST2813
     4236   03 00B08    6AF016E4     T1ST2830 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4237   03 00B09    680003B0              B        :TIM              GO TO SEQUENCER
     4238                            *
     4239                            *
     4240                            *
     4241                            *
     4242                            *
     4243                            *
     4244                            *
     4245                            *
     4246                            *                                   TST1,29 DECIMAL (BCD) MODE DATA TEST
     4247                            *                                   ------------------------------------
     4248                            *
     4249                            * THIS TEST WILL WRITE DATA USING TRANSLATION. THE DATA WILL BE READ   *
     4250                            * AND THE INFORMATION VERIFIED WITH AND WITHOUT TRANSLATION. TRANS-    *
     4251                            * MISSION ERRORS WILL BE EXPECTED ON READING WITHOUT TRANSLATION.      *
     4252                            *                                                                      *
     4253                            *                                                                      *
     4254   03 00B0A    32701932     :T1ST29  LW,7     STDBCD            CHECK TO SEE IF OPTION ON SYSTEM
     4255   03 00B0B    69300B0E              BNEZ     %+3
     4256   03 00B0C    32701935              LW,7     OPTBCD
     4257   03 00B0D    68300B94              BEZ      T1ST2912          BYPASS TEST
     4258                            *                                   WRITE BCD TRANSLATION CHARACTER SET
     4259   03 00B0E    35201A4D              STW,2    NOPKPRT           SET NO PACKED PRINTOUT FLAG
     4260   03 00B0F    22A00010 A            LI,10    16
     4261   03 00B10    35A01E68              STW,10   :COMWCNT          WORD COUNT
     4262   03 00B11    22A019ED              LI,10    BCDVALID
     4263   03 00B12    35A01E69              STW,10   :COMBFRA          EXPECTED PATTERN
     4264   03 00B13    32A02136              LW,10    BUFF2
     4265   03 00B14    35A01E6A              STW,10   :COMBFRB          OBSERVED INFORMATION
     4266   03 00B15    228FFF9C A            LI,8     -100
     4267   03 00B16    6AF016DC     T1ST2901 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4268   03 00B17    22000C3F              LI,0     DA(TWBCD)         WRITE BCD CHARACTER SET
     4269   03 00B18    6AF01D52              BAL,15   :IOEXEC           TIO SIO
     4270   03 00B19    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     4271   03 00B1A    6AF01F72              BAL,15   :ERRORT           TEST
     4272   03 00B1B    00006014              DATA     BA(TSEQ011)       READY, NOUE, BC=0
     4273   03 00B1C    68000B22              B        T1ST2902
     4274                            *        ERROR EXIT
     4275   03 00B1D    EAF0021B A            BAL,15   *:ERROR           #2901
     4276   03 00B1E    00000B55 A            DATA     2901              INCORRECT BITS ON TEST
     4277   03 00B1F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4278   03 00B20    2E000000 A            WAIT
     4279   03 00B21    68000B16              B        T1ST2901          LOOP ON ERROR
     4280   03 00B22    22700000 A   T1ST2902 LI,7     0
     4281   03 00B23    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4282   03 00B24    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4283   03 00B25    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4284   03 00B26    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4285   03 00B27    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     4286   03 00B28    6AF01F72              BAL,15   :ERRORT           TEST
     4287   03 00B29    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4288   03 00B2A    68000B2E              B        T1ST2903
     4289                            *        ERROR EXIT
     4290   03 00B2B    EAF0021B A            BAL,15   *:ERROR           #2902
     4291   03 00B2C    00000B56 A            DATA     2902              INCORRECT BITS ON TEST
     4292   03 00B2D    3310199B              MTW,1    SPFLAG
     4293   03 00B2E    6AF016DC     T1ST2903 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4294   03 00B2F    22000C56              LI,0     DA(TRBCD)         READ BCD CHARACTER SET
     4295   03 00B30    6AF01D52              BAL,15   :IOEXEC           TIO SIO
     4296   03 00B31    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     4297   03 00B32    6AF01F72              BAL,15   :ERRORT           TEST
     4298   03 00B33    00006008              DATA     BA(TSEQ010)       READY, NO INC. LENGTH  NO UE
     4299   03 00B34    68000B38              B        T1ST2904
     4300                            *        ERROR EXIT
     4301   03 00B35    EAF0021B A            BAL,15   *:ERROR           #2903
     4302   03 00B36    00000B57 A            DATA     2903              INCORRECT BITS ON TEST
     4303   03 00B37    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     4304   03 00B38    6AF01DF5     T1ST2904 BAL,15   :COMPARE          COMPARE INFORMATION
     4305   03 00B39    68000B3D              B        T1ST2904+5
     4306                            *        INFORMATION ERROR
     4307   03 00B3A    EAF0021B A            BAL,15   *:ERROR           #2904
     4308   03 00B3B    00000B58 A            DATA     2904              INFORMATION ERROR
     4309   03 00B3C    3310199B              MTW,1    SPFLAG            ERROR+1
     4310   03 00B3D    3270199B              LW,7     SPFLAG            CHECK ERROR FLAG
     4311   03 00B3E    68300B43              BEZ      T1ST2905-4
     4312   03 00B3F    EAF0021D A            BAL,15   *:SENSE
     4313   03 00B40    2E000000 A            WAIT                       CHECK SENSE SWITCH SETTINGS
     4314   03 00B41    68000B22              B        T1ST2902          LOOP ON ERROR
     4315   03 00B42    65800B16              BIR,8    T1ST2901          DO 100 TIMES
     4316                            *                                   CHECK READ WITHOUT TRANSLATION
     4317   03 00B43    22A019FF              LI,10    DCDNOTRN
     4318   03 00B44    35A01E69              STW,10   :COMBFRA          EXPECTED PATTERN
     4319   03 00B45    22700000 A            LI,7     0                 CLEAR ERROR FLAG
     4320   03 00B46    3570199B              STW,7    SPFLAG            CHECK READ WITHOUT TRANSLATION
     4321   03 00B47    6AF016DC     T1ST2905 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4322   03 00B48    22000C60              LI,0     DA(SB100)         SPACE BKW OVER BCD RECORD
     4323   03 00B49    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4324   03 00B4A    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     4325   03 00B4B    6AF01F72              BAL,15   :ERRORT           TEST
     4326   03 00B4C    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4327   03 00B4D    68000B51              B        T1ST2906
     4328                            *        ERROR EXIT
     4329   03 00B4E    EAF0021B A            BAL,15   *:ERROR           #2905
     4330   03 00B4F    00000B59 A            DATA     2905              INCORRECT BITS IN TEST
     4331   03 00B50    3310199B              MTW,1    SPFLAG            ERROR+1
     4332   03 00B51    6AF016DC     T1ST2906 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4333   03 00B52    22000C57              LI,0     DA(TRBCDWT)       READ BCD RECORD WITHOUT TRANSLATION
     4334   03 00B53    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4335   03 00B54    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4336   03 00B55    6AF01F72              BAL,15   :ERRORT           TEST
     4337   03 00B56    0000605C              DATA     BA(TSEQ023)       TRANSMISSION ERRORS EXPECTED
     4338   03 00B57    68000B5B              B        T1ST2907
     4339                            *        ERROR EXIT
     4340   03 00B58    EAF0021B A            BAL,15   *:ERROR           #2906
     4341   03 00B59    00000B5A A            DATA     2906
     4342   03 00B5A    3310199B              MTW,1    SPFLAG            ERROR+1
     4343   03 00B5B    6AF01DF5     T1ST2907 BAL,15   :COMPARE          COMPARE INFROMATION
     4344   03 00B5C    68000B60              B        T1ST2907+5
     4345                            *        INFORMATION ERROR
     4346   03 00B5D    EAF0021B A            BAL,15   *:ERROR           #2907
     4347   03 00B5E    00000B5B A            DATA     2907              INCORRECT INFORMATION
     4348   03 00B5F    3310199B              MTW,1    SPFLAG            ERROR+1
     4349   03 00B60    3270199B              LW,7     SPFLAG            CHECK ERROR FLAG
     4350   03 00B61    68300B65              BEZ      T1ST2908
     4351   03 00B62    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4352   03 00B63    2E000000 A            WAIT
     4353   03 00B64    68000B45              B        T1ST2905-2        LOOP ON ERROR
     4354                            *                                   CHECK ZERO TRANSLATION
     4355   03 00B65    22A019FE     T1ST2908 LI,10    CPBCDZ
     4356   03 00B66    35A01E69              STW,10   :COMBFRA          EXPECTED PATTERN
     4357   03 00B67    35101E68              STW,1    :COMWCNT          WORD COUNT
     4358   03 00B68    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4359   03 00B69    22000C40              LI,0     DA(TWBCDZ)        WRITE RECORD BCD ZERO TRANSLATION
     4360   03 00B6A    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4361   03 00B6B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4362   03 00B6C    6AF01F72              BAL,15   :ERRORT           TEST
     4363   03 00B6D    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4364   03 00B6E    68000B74              B        T1ST2909-2
     4365                            *        ERROR EXIT
     4366   03 00B6F    EAF0021B A            BAL,15   *:ERROR           #2908
     4367   03 00B70    00000B5C A            DATA     2908              INCORRECT BITS IN TEST
     4368   03 00B71    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4369   03 00B72    2E000000 A            WAIT
     4370   03 00B73    68000B65              B        T1ST2908          LOOP ON ERROR
     4371   03 00B74    22700000 A            LI,7     0
     4372   03 00B75    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4373   03 00B76    6AF016DC     T1ST2909 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4374   03 00B77    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4375   03 00B78    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4376   03 00B79    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4377   03 00B7A    6AF01F72              BAL,15   :ERRORT           TEST
     4378   03 00B7B    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4379   03 00B7C    68000B80              B        T1ST2910
     4380                            *        ERROR EXIT
     4381   03 00B7D    EAF0021B A            BAL,15   *:ERROR           #2909
     4382   03 00B7E    00000B5D A            DATA     2909              INCORRECT BITS IN TEST
     4383   03 00B7F    3310199B              MTW,1    SPFLAG            ERROR +1
     4384   03 00B80    6AF016DC     T1ST2910 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4385   03 00B81    22000C58              LI,0     DA(TRBCDZ)        READ RECORD BCD ZERO TRANSLATION
     4386   03 00B82    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4387   03 00B83    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4388   03 00B84    6AF01F72              BAL,15   :ERRORT           TEST
     4389   03 00B85    00006008              DATA     BA(TSEQ010)       READY, NO INC. LENGTH, NO UE
     4390   03 00B86    68000B8A              B        T1ST2911
     4391                            *        ERROR EXIT
     4392   03 00B87    EAF0021B A            BAL,15   *:ERROR           #2911
     4393   03 00B88    00000B5F A            DATA     2911              INCORRECT BITS IN TEST
     4394   03 00B89    3310199B              MTW,1    SPFLAG
     4395   03 00B8A    6AF01DF5     T1ST2911 BAL,15   :COMPARE          COMPARE INFORMATION
     4396   03 00B8B    68000B8F              B        T1ST2911+5
     4397                            *        INFORMATION ERROR
     4398   03 00B8C    EAF0021B A            BAL,15   *:ERROR           #2912
     4399   03 00B8D    00000B60 A            DATA     2912              INCORRECT INFORMATION
     4400   03 00B8E    3310199B              MTW,1    SPFLAG            ERROR+1
     4401   03 00B8F    3270199B              LW,7     SPFLAG            CHECK ERROR FLAG
     4402   03 00B90    68300B94              BEZ      T1ST2912
     4403   03 00B91    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4404   03 00B92    2E000000 A            WAIT
     4405   03 00B93    68000B74              B        T1ST2909-2        LOOP ON ERROR
     4406   03 00B94    6AF016E4     T1ST2912 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4407   03 00B95    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     4408   03 00B96    35F01A4D              STW,15   NOPKPRT
     4409   03 00B97    680003B0              B        :TIM              GO TO SEQUENCER
     4410                            *
     4411                            *
     4412                            *
     4413                            *
     4414                            *
     4415                            *
     4416                            *                                   TST1,30 BINARY MODE DATA TEST
     4417                            *                                   ------------------------------------
     4418                            *
     4419                            * THIS TEST WILL WRITE DATA USING THE BINARY MODE. THE DATA WILL BE    *
     4420                            * READ AND THE INFORMATION VERIFIED WITH AND WITHOUT TRANSLATION.      *
     4421                            * TRANSMISSION ERRORS WILL BE EXPECTED ON READING WITH TRANSLATION.    *
     4422                            *                                                                      *
     4423                            *                                                                      *
     4424                            *
     4425   03 00B98    32701932     :T1ST30  LW,7     STDBCD            CHECK TO SEE IF BINARY ON SYSTEM
     4426   03 00B99    69300B9C              BNEZ     %+3
     4427   03 00B9A    32701935              LW,7     OPTBCD
     4428   03 00B9B    68300BFA              BEZ      T1ST3009          BYPASS TEST
     4429   03 00B9C    35201A4D              STW,2    NOPKPRT           SET NO PACKED PRINTOUT FLAG
     4430   03 00B9D    225FFFF0 A            LI,5     -16
     4431   03 00B9E    22700000 A            LI,7     0
     4432   03 00B9F    32C0215E              LW,12    =X'00010203'      SMEAR PATTERN 00-3F FOR BINARY TEST
     4433   03 00BA0    35CE2182              STW,12   BUFF1,7
     4434   03 00BA1    30C0215F              AW,12    =X'04040404'
     4435   03 00BA2    33100007 A            MTW,1    7
     4436   03 00BA3    65500BA0              BIR,5    %-3
     4437   03 00BA4    22A00010 A            LI,10    16
     4438   03 00BA5    35A01E68              STW,10   :COMWCNT          WORDS TO COMPARE
     4439   03 00BA6    22A02182              LI,10    BUFF1
     4440   03 00BA7    35A01E69              STW,10   :COMBFRA          CORRECT INFORMATION
     4441   03 00BA8    32A02136              LW,10    BUFF2
     4442   03 00BA9    35A01E6A              STW,10   :COMBFRB          OBSERVED INFORMATION
     4443   03 00BAA    228FFF9C A            LI,8     -100
     4444   03 00BAB    6AF016DC     T1ST3001 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4445   03 00BAC    22000C3E              LI,0     DA(WBINT)         WRITE BINARY RECORD 00-3F
     4446   03 00BAD    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4447   03 00BAE    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4448   03 00BAF    6AF01F72              BAL,15   :ERRORT           TEST
     4449   03 00BB0    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4450   03 00BB1    68000BB7              B        T1ST3002-2
     4451                            *        ERROR EXIT
     4452   03 00BB2    EAF0021B A            BAL,15   *:ERROR           #3001
     4453   03 00BB3    00000BB9 A            DATA     3001              INCORRECT BITS IN TEST
     4454   03 00BB4    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4455   03 00BB5    2E000000 A            WAIT
     4456   03 00BB6    68000BAB              B        T1ST3001          LOOP ON ERROR
     4457   03 00BB7    22700000 A            LI,7     0
     4458   03 00BB8    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4459   03 00BB9    6AF016DC     T1ST3002 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4460   03 00BBA    22000C60              LI,0     DA(SB100)         SPACE OVER RECORD
     4461   03 00BBB    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4462   03 00BBC    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4463   03 00BBD    6AF01F72              BAL,15   :ERRORT           TEST
     4464   03 00BBE    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4465   03 00BBF    68000BC3              B        T1ST3003
     4466                            *        ERROR EXIT
     4467   03 00BC0    3310199B              MTW,1    SPFLAG
     4468   03 00BC1    EAF0021B A            BAL,15   *:ERROR           #3002
     4469   03 00BC2    00000BBA A            DATA     3002              INCORRECT BITS ON TEST
     4470   03 00BC3    6AF016DC     T1ST3003 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4471   03 00BC4    22000C54              LI,0     DA(RBINT)         READ FWD BINARY RECORD 00-3F
     4472   03 00BC5    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4473   03 00BC6    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4474   03 00BC7    6AF01F72              BAL,15   :ERRORT           TEST
     4475   03 00BC8    00006008              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE
     4476   03 00BC9    68000BCD              B        T1ST3004
     4477                            *        ERROR EXIT
     4478   03 00BCA    3310199B              MTW,1    SPFLAG            ERROR+1
     4479   03 00BCB    EAF0021B A            BAL,15   *:ERROR           #3003
     4480   03 00BCC    00000BBB A            DATA     3003              INCORRECT BITS ON TEST
     4481   03 00BCD    6AF01DF5     T1ST3004 BAL,15   :COMPARE          COMPARE INFORMATION
     4482   03 00BCE    68000BD2              B        T1ST3004+5
     4483                            *        INFORMATION ERROR
     4484   03 00BCF    EAF0021B A            BAL,15   *:ERROR           #3004
     4485   03 00BD0    00000BBC A            DATA     3004              INCORRECT INFORMATION
     4486   03 00BD1    3310199B              MTW,1    SPFLAG            ERROR+1
     4487   03 00BD2    3270199B              LW,7     SPFLAG
     4488   03 00BD3    68300BD7              BEZ      T1ST3005
     4489   03 00BD4    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4490   03 00BD5    2E000000 A            WAIT
     4491   03 00BD6    68000BB7              B        T1ST3002-2
     4492   03 00BD7    65800BAB     T1ST3005 BIR,8    T1ST3001          DO 100 TIMES
     4493                            *                                   CHECK READ WITH TRANSLATION
     4494   03 00BD8    22700000 A            LI,7     0
     4495   03 00BD9    22A01A0F              LI,10    BINTRLS
     4496   03 00BDA    35A01E69              STW,10   :COMBFRA          CORRECT INFORMATION
     4497   03 00BDB    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4498   03 00BDC    6AF016DC     T1ST3006 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4499   03 00BDD    22000C60              LI,0     DA(SB100)         SPACE OVER RECORD
     4500   03 00BDE    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4501   03 00BDF    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4502   03 00BE0    6AF01F72              BAL,15   :ERRORT           TEST
     4503   03 00BE1    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4504   03 00BE2    68000BE6              B        T1ST3007
     4505                            *        ERROR EXIT
     4506   03 00BE3    EAF0021B A            BAL,15   *:ERROR           #3005
     4507   03 00BE4    00000BBD A            DATA     3005              INCORRECT BITS IN TEST
     4508   03 00BE5    3310199B              MTW,1    SPFLAG            ERROR+1
     4509   03 00BE6    6AF016DC     T1ST3007 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4510   03 00BE7    22000C55              LI,0     DA(REPOPR)        READ ODD P RECORD WITH EVEN P (BCD)
     4511   03 00BE8    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4512   03 00BE9    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     4513   03 00BEA    6AF01F72              BAL,15   :ERRORT           TEST
     4514   03 00BEB    0000605C              DATA     BA(TSEQ023)       TE EXPECTED
     4515   03 00BEC    68000BF0              B        T1ST3008
     4516                            *        ERROR EXIT
     4517   03 00BED    EAF0021B A            BAL,15   *:ERROR           #3006
     4518   03 00BEE    00000BBE A            DATA     3006              INCORRECT BITS IN TEST
     4519   03 00BEF    3310199B              MTW,1    SPFLAG            ERROR+1
     4520   03 00BF0    6AF01DF5     T1ST3008 BAL,15   :COMPARE          COMPARE INFORMATION
     4521   03 00BF1    68000BF5              B        T1ST3008+5
     4522                            *        INFORMATION ERROR
     4523   03 00BF2    EAF0021B A            BAL,15   *:ERROR           3007
     4524   03 00BF3    00000BBF A            DATA     3007              INCORRECT INFORMATION
     4525   03 00BF4    3310199B              MTW,1    SPFLAG            ERROR+1
     4526   03 00BF5    3270199B              LW,7     SPFLAG            CHECK ERROR FLAG
     4527   03 00BF6    68300BFA              BEZ      T1ST3009
     4528   03 00BF7    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4529   03 00BF8    2E000000 A            WAIT
     4530   03 00BF9    68000BD8              B        T1ST3006-4        LOOP ON ERROR
     4531   03 00BFA    6AF016E4     T1ST3009 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4532   03 00BFB    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     4533   03 00BFC    35F01A4D              STW,15   NOPKPRT
     4534   03 00BFD    680003B0              B        :TIM              GO TO SEQUENCER
     4535                            *
     4536                            *
     4537                            *
     4538                            *
     4539                            *
     4540                            *
     4541                            *
     4542                            *                                   TST1,31  PACKED BINARY DATA TEST
     4543                            *                                   ------------------------------------
     4544                            *                                                                      *
     4545                            *  THIS TEST WILL WRITE DATA X'00' - X'FF' USING THE PACKED BINARY     *
     4546                            *  MODE. THE DATA WILL BE READ AND VERIFIED. THIS SUBTEST WILL BE      *
     4547                            *  BYPASSED IF NOT APPLICABLE TO THE SYSTEM.                           *
     4548                            *                                                                      *
     4549                            *
     4550   03 00BFE    32701933     :T1ST31  LW,7     STDPB             CHECK FOR PACKED BINARY STD OR OPT
     4551   03 00BFF    69300C02              BNEZ     T1ST3101
     4552   03 00C00    32701934              LW,7     OPTPB
     4553   03 00C01    68300C81              BEZ      T1ST3113          BYPASS TEST
     4554   03 00C02    22700000 A   T1ST3101 LI,7     0                 SMEAR PATTERN 00-FF
     4555   03 00C03    22AFFFE0 A            LI,10    -32
     4556   03 00C04    32C0215E              LW,12    =X'00010203'
     4557   03 00C05    3AD0000C A            LCW,13   12
     4558   03 00C06    35CE2182              STW,12   BUFF1,7           STORE WORD
     4559   03 00C07    35DE21A2              STW,13   BUFF1+32,7
     4560   03 00C08    30C0215F              AW,12    =X'04040404'
     4561   03 00C09    33100007 A            MTW,1    7
     4562   03 00C0A    65A00C05              BIR,10   %-5
     4563   03 00C0B    35101A4D              STW,1    NOPKPRT
     4564   03 00C0C    22A00040 A            LI,10    64
     4565   03 00C0D    35A01E68              STW,10   :COMWCNT          WORDS TO COMPARE
     4566   03 00C0E    22A02182              LI,10    BUFF1
     4567   03 00C0F    35A01E69              STW,10   :COMBFRA          CORRECT INFORMATION
     4568   03 00C10    32A02136              LW,10    BUFF2
     4569   03 00C11    35A01E6A              STW,10   :COMBFRB          OBSERVED INFORMATION
     4570   03 00C12    228FFF9C A            LI,8     -100
     4571   03 00C13    6AF016DC     T1ST3102 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4572   03 00C14    22000C3A              LI,0     DA(WPBT)          WRITE PACKED BINARY RECORD 00-FF
     4573   03 00C15    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4574   03 00C16    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4575   03 00C17    6AF01F72              BAL,15   :ERRORT           TEST
     4576   03 00C18    00006014              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     4577   03 00C19    68000C1F              B        T1ST3103-2
     4578                            *        ERROR    EXIT
     4579   03 00C1A    EAF0021B A            BAL,15   *:ERROR           #3101
     4580   03 00C1B    00000C1D A            DATA     3101              INCORRECT BITS IN TEST
     4581   03 00C1C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4582   03 00C1D    2E000000 A            WAIT
     4583   03 00C1E    68000C13              B        T1ST3102          LOOP ON ERROR
     4584   03 00C1F    22700000 A            LI,7     0
     4585   03 00C20    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4586   03 00C21    6AF016DC     T1ST3103 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4587   03 00C22    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4588   03 00C23    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4589   03 00C24    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4590   03 00C25    6AF01F72              BAL,15   :ERRORT           TEST
     4591   03 00C26    00006014              DATA     BA(TSEQ011)       READY, NO UE
     4592   03 00C27    68000C2B              B        T1ST3104
     4593                            *        ERROR    EXIT
     4594   03 00C28    3310199B              MTW,1    SPFLAG            ERROR+1
     4595   03 00C29    EAF0021B A            BAL,15   *:ERROR           #3102
     4596   03 00C2A    00000C1E A            DATA     3102              INCORRECT BITS IN TEST
     4597   03 00C2B    6AF016DC     T1ST3104 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4598   03 00C2C    22000C50              LI,0     DA(RPBT)          READ FWD PACKED BINARY RECORD 00-FF
     4599   03 00C2D    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4600   03 00C2E    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4601   03 00C2F    6AF01F72              BAL,15   :ERRORT           TEST
     4602   03 00C30    00006008              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE
     4603   03 00C31    68000C35              B        T1ST3105
     4604                            *        ERROR EXIT
     4605   03 00C32    3310199B              MTW,1    SPFLAG            ERROR+1
     4606   03 00C33    EAF0021B A            BAL,15   *:ERROR           #3103
     4607   03 00C34    00000C1F A            DATA     3103              INCORRECT BITS IN TEST
     4608   03 00C35    6AF01DF5     T1ST3105 BAL,15   :COMPARE          COMPARE INFORMATION
     4609   03 00C36    68000C3A              B        T1ST3105+5
     4610                            *        INFORMATION ERROR
     4611   03 00C37    EAF0021B A            BAL,15   *:ERROR           #3104
     4612   03 00C38    00000C20 A            DATA     3104              INCORRECT INFORMATION
     4613   03 00C39    3310199B              MTW,1    SPFLAG            ERROR+1
     4614   03 00C3A    3270199B              LW,7     SPFLAG            CHECK ERROR FLAG
     4615   03 00C3B    68300C3F              BEZ      T1ST3106
     4616   03 00C3C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4617   03 00C3D    2E000000 A            WAIT
     4618   03 00C3E    68000C1F              B        T1ST3103-2        LOOP ON ERROR
     4619   03 00C3F    65800C13     T1ST3106 BIR,8    T1ST3102          DO 100 RECORDS
     4620                            *                                   END CONDITION TEST
     4621   03 00C40    35301E68              STW,3    :COMWCNT          WORD COUNT
     4622   03 00C41    22701A3C              LI,7     COPEC             COMPARE INFORMATION
     4623   03 00C42    35701E69              STW,7    :COMBFRA
     4624   03 00C43    22A00003 A            LI,10    3
     4625   03 00C44    22700006 A            LI,7     6                 6 BYTES
     4626   03 00C45    55721871              STH,7    WSPKEC+1,1        WRITE 6,7,8 BYTES
     4627   03 00C46    557218B3              STH,7    RSPKEC+1,1        READ 6,8,9 BYTES
     4628   03 00C47    32802160     T1ST3107 LW,8     =X'AAAAAAAA'      WRITE PATTERN
     4629   03 00C48    3290215C              LW,9     =X'FFFFFFFF'      SMEAR IN READ IN AREA
     4630   03 00C49    225FFFFD A            LI,5     -3                3 WORDS
     4631   03 00C4A    22600000 A            LI,6     0
     4632   03 00C4B    358C2182              STW,8    BUFF1,6
     4633   03 00C4C    B59C2136              STW,9    *BUFF2,6
     4634   03 00C4D    33100006 A            MTW,1    6
     4635   03 00C4E    65500C4B              BIR,5    %-3
     4636   03 00C4F    6AF016DC     T1ST3108 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4637   03 00C50    22000C38              LI,0     DA(WSPKEC)        WRITE 6 BYTES FOR END CONDITION
     4638   03 00C51    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4639   03 00C52    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4640   03 00C53    6AF01F72              BAL,15   :ERRORT           TEST
     4641   03 00C54    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     4642   03 00C55    68000C5B              B        T1ST3109
     4643                            *        ERROR EXIT
     4644   03 00C56    EAF0021B A            BAL,15   *:ERROR           3105
     4645   03 00C57    00000C21 A            DATA     3105              INCORRECT BITS ON TEST
     4646   03 00C58    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     4647   03 00C59    2E000000 A            WAIT
     4648   03 00C5A    68000C4F              B        T1ST3108          LOOP ON ERROR
     4649   03 00C5B    22800000 A   T1ST3109 LI,8     0
     4650   03 00C5C    3580199B              STW,8    SPFLAG            CLEAR ERROR FLAG
     4651   03 00C5D    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4652   03 00C5E    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4653   03 00C5F    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4654   03 00C60    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4655   03 00C61    6AF01F72              BAL,15   :ERRORT           TEST
     4656   03 00C62    00006008              DATA     BA(TSEQ010)       READY, NO UE
     4657   03 00C63    68000C67              B        T1ST3110
     4658                            *        ERROR EXIT
     4659   03 00C64    EAF0021B A            BAL,15   *:ERROR           3106
     4660   03 00C65    00000C22 A            DATA     3106              INCORRECT BITS ON TEST
     4661   03 00C66    3310199B              MTW,1    SPFLAG            ERROR +1
     4662   03 00C67    6AF016DC     T1ST3110 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4663   03 00C68    22000C59              LI,0     DA(RSPKEC)        READ 6 BYTES END CONDITION
     4664   03 00C69    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4665   03 00C6A    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4666   03 00C6B    6AF01F72              BAL,15   :ERRORT           TEST
     4667   03 00C6C    00006008              DATA     BA(TSEQ010)       READY, NO UE
     4668   03 00C6D    68000C71              B        T1ST3111
     4669                            *        ERROR EXIT
     4670   03 00C6E    EAF0021B A            BAL,15   *:ERROR           3107
     4671   03 00C6F    00000C23 A            DATA     3107              INCORRECT BITS ON TEST
     4672   03 00C70    3310199B              MTW,1    SPFLAG            ERROR +1
     4673   03 00C71    6AF01DF5     T1ST3111 BAL,15   :COMPARE          COMPARE INFORMATION
     4674   03 00C72    68000C76              B        T1ST3111+5
     4675                            *        INFORMATION ERROR
     4676   03 00C73    EAF0021B A            BAL,15   *:ERROR           3108
     4677   03 00C74    00000C24 A            DATA     3108              INFORMATION ERROR
     4678   03 00C75    3310199B              MTW,1    SPFLAG            ERROR +1
     4679   03 00C76    32F0199B              LW,15    SPFLAG            CHECK ERROR FLAG
     4680   03 00C77    68300C7B              BEZ      T1ST3112
     4681   03 00C78    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     4682   03 00C79    2E000000 A            WAIT
     4683   03 00C7A    68000C5B              B        T1ST3109          LOOP ON ERROR
     4684   03 00C7B    33101871     T1ST3112 MTW,1    WSPKEC+1          3N, 3N+1, 3N+2
     4685   03 00C7C    32401871              LW,4     WSPKEC+1
     4686   03 00C7D    33100004 A            MTW,1    4
     4687   03 00C7E    354018B3              STW,4    RSPKEC+1          READ 6, 8, 9 BYTES
     4688   03 00C7F    33301E69              MTW,3    :COMBFRA          NEXT COMPARE
     4689   03 00C80    64A00C47              BDR,10   T1ST3107
     4690   03 00C81    6AF016E4     T1ST3113 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4691   03 00C82    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     4692   03 00C83    35F01A4D              STW,15   NOPKPRT
     4693   03 00C84    680003B0              B        :TIM
     4694                            *
     4695                            *
     4696                            *
     4697                            *
     4698                            *
     4699                            *
     4700                            *
     4701                            *
     4702                            *
     4703                            *
     4704                            *
     4705                            *
     4706                            *                                   TST1,32  LRC TEST
     4707                            *                                   ------------------------------------
     4708                            *
     4709                            *  CHECK THE ABILITY TO SET ALL BITS IN THE LRC CHARACTER. THE LRC WILL*
     4710                            *  BE TESTED IN THE PACKED BINARY, BINARY, AND DECIMAL (BCD) MODE. ANY *
     4711                            *  SECTION NOT APPLICABLE TO THE UNIT BEING TESTED WILL BE BYPASSED.   *
     4712                            *                                                                      *
     4713                            *                                   PACKED BINARY SECTION
     4714   03 00C85    22706728     :T1ST32  LI,7     BA(LRCPK)         INITILIZE WRITE INSTRUCTION
     4715   03 00C86    55721876              STH,7    WLRCPK,1
     4716   03 00C87    32C01934              LW,12    OPTPB             CHECK FOR PACKED BINARY STD OR OPT
     4717   03 00C88    69300C8B              BNEZ     %+3
     4718   03 00C89    32C01933              LW,12    STDPB
     4719   03 00C8A    68300CC3              BEZ      T1ST3205+5        BYPASS SECTION
     4720   03 00C8B    35101A4D              STW,1    NOPKPRT
     4721   03 00C8C    35301E68              STW,3    :COMWCNT          WORDS TO COMPARE
     4722   03 00C8D    22A019CA              LI,10    LRCPK
     4723   03 00C8E    35A01E69              STW,10   :COMBFRA          CORRECT INFORMATION
     4724   03 00C8F    32A02136              LW,10    BUFF2
     4725   03 00C90    35A01E6A              STW,10   :COMBFRB          OBSERVED INFORMATION
     4726   03 00C91    228FFFF9 A            LI,8     -7
     4727   03 00C92    6AF016DC     T1ST3201 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4728   03 00C93    22000C3B              LI,0     DA(WLRCPK)        WRITE LRC USING PACKED BINARY REC.
     4729   03 00C94    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     4730   03 00C95    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4731   03 00C96    6AF01F72              BAL,15   :ERRORT           TEST
     4732   03 00C97    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     4733   03 00C98    68000C9E              B        T1ST3202-2
     4734                            *        ERROR EXIT
     4735   03 00C99    EAF0021B A            BAL,15   *:ERROR           #3201
     4736   03 00C9A    00000C81 A            DATA     3201              INCORRECT BITS ON TEST
     4737   03 00C9B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4738   03 00C9C    2E000000 A            WAIT
     4739   03 00C9D    68000C92              B        T1ST3201          LOOP ON ERROR
     4740   03 00C9E    22700000 A            LI,7     0
     4741   03 00C9F    3570199B              STW,7    SPFLAG            CLEAR ERROR TALLY
     4742   03 00CA0    6AF016DC     T1ST3202 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4743   03 00CA1    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4744   03 00CA2    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     4745   03 00CA3    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4746   03 00CA4    6AF01F72              BAL,15   :ERRORT           TEST
     4747   03 00CA5    00006008              DATA     BA(TSEQ010)       READY, NO UE
     4748   03 00CA6    68000CAA              B        T1ST3203
     4749                            *        ERROR EXIT
     4750   03 00CA7    EAF0021B A            BAL,15   *:ERROR           #3202
     4751   03 00CA8    00000C82 A            DATA     3202              INCORRECT BITS IN TEST
     4752   03 00CA9    3310199B              MTW,1    SPFLAG            ERROR+1
     4753   03 00CAA    6AF016DC     T1ST3203 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4754   03 00CAB    22000C51              LI,0     DA(RLRCPK)        READ FWD LRC RECORD PACKED BINARY
     4755   03 00CAC    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     4756   03 00CAD    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4757   03 00CAE    6AF01F72              BAL,15   :ERRORT           TEST
     4758   03 00CAF    00006008              DATA     BA(TSEQ010)       READY, NO UE, BC =0
     4759   03 00CB0    68000CB4              B        T1ST3204
     4760                            *        ERROR EXIT
     4761   03 00CB1    EAF0021B A            BAL,15   *:ERROR           #3203
     4762   03 00CB2    00000C83 A            DATA     3203              INCORRECT BITS IN TEST
     4763   03 00CB3    3310199B              MTW,1    SPFLAG            ERROR+1
     4764   03 00CB4    6AF01DF5     T1ST3204 BAL,15   :COMPARE          COMPARE INFORMATION
     4765   03 00CB5    68000CB9              B        T1ST3204+5
     4766                            *        INFORMATION ERROR
     4767   03 00CB6    EAF0021B A            BAL,15   *:ERROR           #3204
     4768   03 00CB7    00000C84 A            DATA     3204              INCORRECT INFORMATION
     4769   03 00CB8    3310199B              MTW,1    SPFLAG            ERROR+1
     4770   03 00CB9    32E0199B              LW,14    SPFLAG            CHECK ERROR FLAG
     4771   03 00CBA    68300CBE              BEZ      T1ST3205
     4772   03 00CBB    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4773   03 00CBC    2E000000 A            WAIT
     4774   03 00CBD    68000C9E              B        T1ST3202-2        LOOP ON ERROR
     4775   03 00CBE    32C01876     T1ST3205 LW,12    WLRCPK            NEXT RECORD
     4776   03 00CBF    20C0000C A            AI,12    12
     4777   03 00CC0    35C01876              STW,12   WLRCPK            STORE
     4778   03 00CC1    33301E69              MTW,3    :COMBFRA          NEXT COMPARE
     4779   03 00CC2    65800C92              BIR,8    T1ST3201
     4780                            *                                   BINARY -ODD PARITY SECTION
     4781   03 00CC3    32C01935              LW,12    OPTBCD            CHECK FOR DECIMAL OPTION OR STD
     4782   03 00CC4    69300CC7              BNEZ     %+3
     4783   03 00CC5    32C01932              LW,12    STDBCD
     4784   03 00CC6    68300CFD              BEZ      T1ST3210+3        BYPASS SECTION
     4785   03 00CC7    35201A4D              STW,2    NOPKPRT           SET NO PACKED PRINTOUT FLAG
     4786   03 00CC8    35101E68              STW,1    :COMWCNT          WORDS TO COMPARE
     4787   03 00CC9    2270677C              LI,7     BA(LRCOP)         SET UP WRITE
     4788   03 00CCA    55721878              STH,7    WLRCOP,1
     4789   03 00CCB    22A019DF              LI,10    LRCOP
     4790   03 00CCC    35A01E69              STW,10   :COMBFRA          CORRECT INFORMATION
     4791   03 00CCD    228FFFF9 A            LI,8     -7
     4792   03 00CCE    6AF016DC     T1ST3206 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4793   03 00CCF    22000C3C              LI,0     DA(WLRCOP)        WRITE LRC ODD PARITY BINARY MODE
     4794   03 00CD0    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4795   03 00CD1    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4796   03 00CD2    6AF01F72              BAL,15   :ERRORT           TEST
     4797   03 00CD3    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     4798   03 00CD4    68000CDA              B        T1ST3207-2
     4799                            *        ERROR EXIT
     4800   03 00CD5    EAF0021B A            BAL,15   *:ERROR           #3205
     4801   03 00CD6    00000C85 A            DATA     3205
     4802   03 00CD7    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4803   03 00CD8    2E000000 A            WAIT
     4804   03 00CD9    68000CCE              B        T1ST3206          LOOP ON ERROR
     4805   03 00CDA    22700000 A            LI,7     0
     4806   03 00CDB    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4807   03 00CDC    6AF016DC     T1ST3207 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4808   03 00CDD    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4809   03 00CDE    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4810   03 00CDF    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4811   03 00CE0    6AF01F72              BAL,15   :ERRORT           TEST
     4812   03 00CE1    00006008              DATA     BA(TSEQ010)       READY, NO UE
     4813   03 00CE2    68000CE6              B        T1ST3208
     4814                            *        ERROR EXIT
     4815   03 00CE3    3310199B              MTW,1    SPFLAG            ERROR+1
     4816   03 00CE4    EAF0021B A            BAL,15   *:ERROR           #3206
     4817   03 00CE5    00000C86 A            DATA     3206
     4818   03 00CE6    6AF016DC     T1ST3208 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4819   03 00CE7    22000C52              LI,0     DA(RLRCOP)        READ FWD ODD PARITY
     4820   03 00CE8    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4821   03 00CE9    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4822   03 00CEA    6AF01F72              BAL,15   :ERRORT           TEST
     4823   03 00CEB    00006008              DATA     BA(TSEQ010)       READY, NO UE, BC=0
     4824   03 00CEC    68000CF0              B        T1ST3209
     4825                            *        ERROR EXIT
     4826   03 00CED    3310199B              MTW,1    SPFLAG            ERROR+1
     4827   03 00CEE    EAF0021B A            BAL,15   *:ERROR           #3207
     4828   03 00CEF    00000C87 A            DATA     3207
     4829   03 00CF0    6AF01DF5     T1ST3209 BAL,15   :COMPARE          COMPARE INFORMATION
     4830   03 00CF1    68000CF5              B        T1ST3209+5
     4831                            *        INFORMATION ERROR
     4832   03 00CF2    EAF0021B A            BAL,15   *:ERROR           #3208
     4833   03 00CF3    00000C88 A            DATA     3208
     4834   03 00CF4    3310199B              MTW,1    SPFLAG            ERROR+1
     4835   03 00CF5    32E0199B              LW,14    SPFLAG            CHECK ERROR FLAG
     4836   03 00CF6    68300CFA              BEZ      T1ST3210
     4837   03 00CF7    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4838   03 00CF8    2E000000 A            WAIT
     4839   03 00CF9    68000CDA              B        T1ST3207-2        LOOP ON ERROR
     4840   03 00CFA    33401878     T1ST3210 MTW,4    WLRCOP            NEXT RECORD
     4841   03 00CFB    33101E69              MTW,1    :COMBFRA          NEXT COMPARE
     4842   03 00CFC    65800CCE              BIR,8    T1ST3206
     4843                            *                                   DECIMAL (BCD), EVEN PARITY SECTION
     4844   03 00CFD    32C01932              LW,12    STDBCD
     4845   03 00CFE    69300D01              BNEZ     %+3
     4846   03 00CFF    32C01935              LW,12    OPTBCD            CHECK IF BCD-EVEN PARITY AVAILABLE
     4847   03 00D00    68300D37              BEZ      T1ST3216          BYPASS TEST
     4848   03 00D01    35201A4D              STW,2    NOPKPRT           SET NO PACKED PRINTOUT FLAG
     4849   03 00D02    228FFFF9 A            LI,8     -7
     4850   03 00D03    35101E68              STW,1    :COMWCNT          WORDS TO COMPARE
     4851   03 00D04    22706798              LI,7     BA(LRCEP)         SET UP WRITE
     4852   03 00D05    5572187A              STH,7    WLRCEP,1
     4853   03 00D06    22A019E6              LI,10    LRCEP
     4854   03 00D07    35A01E69              STW,10   :COMBFRA          CORRECT INFORMATION
     4855   03 00D08    6AF016DC     T1ST3211 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4856   03 00D09    22000C3D              LI,0     DA(WLRCEP)        WRITE LRC EVEN PARITY MODE
     4857   03 00D0A    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4858   03 00D0B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4859   03 00D0C    6AF01F72              BAL,15   :ERRORT           TEST
     4860   03 00D0D    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     4861   03 00D0E    68000D14              B        T1ST3212-2
     4862                            *        ERROR EXIT
     4863   03 00D0F    EAF0021B A            BAL,15   *:ERROR           #3209
     4864   03 00D10    00000C89 A            DATA     3209
     4865   03 00D11    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4866   03 00D12    2E000000 A            WAIT
     4867   03 00D13    68000D08              B        T1ST3211          LOOP ON ERROR
     4868   03 00D14    22700000 A            LI,7     0
     4869   03 00D15    3570199B              STW,7    SPFLAG            CLEAR ERROR FLAG
     4870   03 00D16    6AF016DC     T1ST3212 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4871   03 00D17    22000C60              LI,0     DA(SB100)         SPACE BKW OVER RECORD
     4872   03 00D18    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4873   03 00D19    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4874   03 00D1A    6AF01F72              BAL,15   :ERRORT           TEST
     4875   03 00D1B    00006008              DATA     BA(TSEQ010)       READY, NO UE
     4876   03 00D1C    68000D20              B        T1ST3213
     4877                            *        ERROR EXIT
     4878   03 00D1D    3310199B              MTW,1    SPFLAG
     4879   03 00D1E    EAF0021B A            BAL,15   *:ERROR           #3210
     4880   03 00D1F    00000C8A A            DATA     3210
     4881   03 00D20    6AF016DC     T1ST3213 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4882   03 00D21    22000C53              LI,0     DA(RLRCEP)        READ LRC RECORD EVEN PARITY
     4883   03 00D22    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     4884   03 00D23    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4885   03 00D24    6AF01F72              BAL,15   :ERRORT           TEST
     4886   03 00D25    00006008              DATA     BA(TSEQ010)       READY, NO UE, BC=0
     4887   03 00D26    68000D2A              B        T1ST3214
     4888                            *        ERROR EXIT
     4889   03 00D27    EAF0021B A            BAL,15   *:ERROR           3211
     4890   03 00D28    00000C8B A            DATA     3211
     4891   03 00D29    3310199B              MTW,1    SPFLAG           ERROR+1
     4892   03 00D2A    6AF01DF5     T1ST3214 BAL,15   :COMPARE          COMPARE INFORMATION
     4893   03 00D2B    68000D2F              B        T1ST3214+5
     4894                            *        INFORMATION ERROR
     4895   03 00D2C    EAF0021B A            BAL,15   *:ERROR           #3212
     4896   03 00D2D    00000C8C A            DATA     3212
     4897   03 00D2E    3310199B              MTW,1    SPFLAG            ERROR +1
     4898   03 00D2F    3270199B              LW,7     SPFLAG
     4899   03 00D30    68300D34              BEZ      T1ST3215
     4900   03 00D31    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4901   03 00D32    2E000000 A            WAIT
     4902   03 00D33    68000D14              B        T1ST3212-2        LOOP ON ERROR
     4903   03 00D34    3340187A     T1ST3215 MTW,4    WLRCEP            NEXT RECORD
     4904   03 00D35    33101E69              MTW,1    :COMBFRA          NEXT COMPARE
     4905   03 00D36    65800D08              BIR,8    T1ST3211
     4906   03 00D37    6AF016E4     T1ST3216 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4907   03 00D38    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     4908   03 00D39    35F01A4D              STW,15   NOPKPRT
     4909   03 00D3A    680003B0              B        :TIM              GO TO SEQUENCER
     4910                            *
     4911                            *
     4912                            *
     4913                            *
     4914                            *
     4915                            *
     4916                            *
     4917                            *                                   TST1,33 DATA TEST NOISE PATTERNS
     4918                            *                                                     AND BIT CROUDING
     4919                            *                                   ------------------------------------
     4920                            *
     4921                            * THIS TEST WILL WRITE AND READ VARIABLE DATA PATTERNS. THE SEQUENCE   *
     4922                            * WILL ALWAYS BE WRITE, SPACE REVERSE AND READ FORWARD. THE RECORD     *
     4923                            * SIZE WILL BE VARIED AFTER EACH RECORD. NOISE SENSITIVE AND BIT       *
     4924                            * CROWDING DATA PATTERN WILL BE USED. WRITE AND READ RETRIES WILL BE   *
     4925                            * ALLOWED.                                                             *
     4926                            *                                                                      *
     4927   03 00D3B    6AF0169E     :T1ST33  BAL,15   RWTLP             REWIND TO LOAD POINT
     4928   03 00D3C    22500000 A            LI,5     0
     4929   03 00D3D    35501E6B              STW,5    :COMFLAG          PRINTOUT ERRORS
     4930   03 00D3E    22702182              LI,7     WA(BUFF1)
     4931   03 00D3F    35701E69              STW,7    :COMBFRA          BUFFER EXPECTED
     4932   03 00D40    32702136              LW,7     BUFF2
     4933   03 00D41    35701E6A              STW,7    :COMBFRB          BUFFER OBSERVED
     4934   03 00D42    22700003 A            LI,7     3                 3 WORDS
     4935   03 00D43    35701E68              STW,7    :COMWCNT
     4936   03 00D44    22600000 A            LI,6     0
     4937   03 00D45    22C01986              LI,12    PT00              SET UP FIRST TRK SATURATION PTRN
     4938   03 00D46    55C20D4D              STH,12   T1ST3301,1
     4939   03 00D47    22C01A1F              LI,12    PBTSAT
     4940   03 00D48    55C20D5E              STH,12   T1ST3306,1
     4941   03 00D49    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     4942   03 00D4A    35F01A4D              STW,15   NOPKPRT
     4943   03 00D4B    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     4944   03 00D4C    68300D57              BE       T1ST3306-7
     4945   03 00D4D    32E01986     T1ST3301 LW,14    PT00              PATTERNS 00 TO 20
     4946   03 00D4E    22DFFFF6 A            LI,13    -10               10 WORDS EACH TRACK
     4947   03 00D4F    35EC2182              STW,14   BUFF1,6           STORE PATTERN
     4948   03 00D50    33100006 A            MTW,1    6
     4949   03 00D51    65D00D4F              BIR,13   %-2
     4950   03 00D52    33100D4D              MTW,1    T1ST3301          CHANGE PATTERN
     4951   03 00D53    2280198D              LI,8     PT80-1            LAST PATTERN DONE
     4952   03 00D54    51820D4D              CH,8     T1ST3301,1
     4953   03 00D55    69200D4D              BG       T1ST3301
     4954   03 00D56    68000D67              B        T1ST3303-10
     4955   03 00D57    225FFFF9 A            LI,5     -7
     4956   03 00D58    22800021 A            LI,8     33
     4957   03 00D59    35801DE9              STW,8    :PATWC        WORD COUNT
     4958   03 00D5A    22800004 A            LI,8     4
     4959   03 00D5B    35801DE6              STW,8    :PATID            3 WORD PACKED PATTERN
     4960   03 00D5C    22802182              LI,8     BUFF1             STARTING BUFFER AREA
     4961   03 00D5D    35801DEA              STW,8    :PATBFR
     4962   03 00D5E    22801A1F     T1ST3306 LI,8     PBTSAT            3 WORD PACKED PATTERN
     4963   03 00D5F    35801DE7              STW,8    :PATID+1
     4964   03 00D60    6AF01DA7              BAL,15   :PATTERN          SMEAR PATTERN
     4965   03 00D61    20600021 A            AI,6     33
     4966   03 00D62    33300D5E              MTW,3    T1ST3306
     4967   03 00D63    32801DEA              LW,8     :PATBFR
     4968   03 00D64    20800021 A            AI,8     33                NEXT SPREAD AREA
     4969   03 00D65    35801DEA              STW,8    :PATBFR
     4970   03 00D66    65500D5E              BIR,5    T1ST3306          DO 7 TIMES
     4971   03 00D67    3A501971              LCW,5    MAXREAD           MAXIMUM RECORD SIZE
     4972   03 00D68    32E02161              LW,14    =X'51F99F15'      PATTERN TO SHIFT
     4973   03 00D69    32701933              LW,7     STDPB             CHECK FOR PACKED BINARY
     4974   03 00D6A    69300D71              BNEZ     T1ST3303
     4975   03 00D6B    32701934              LW,7     OPTPB             OPTION PACKED BINARY
     4976   03 00D6C    69300D71              BNEZ     T1ST3303
     4977   03 00D6D    35E0000D A            STW,14   13                UNPACKED BINARY
     4978   03 00D6E    4BD02157              AND,13   =X'3F3F3F3F'
     4979   03 00D6F    35DC2182              STW,13   BUFF1,6           STORE UNPACKED
     4980   03 00D70    68000D72              B        T1ST3303+1
     4981   03 00D71    35EC2182     T1ST3303 STW,14   BUFF1,6           STORE PACKED BINARY
     4982   03 00D72    25E00201 A            SCS,14   1                 SHIFT CIRCULAR
     4983   03 00D73    33100006 A            MTW,1    6
     4984   03 00D74    65500D69              BIR,5    %-11              SMEAR MAXIMUM I/O AREA
     4985   03 00D75    2250000C A            LI,5     12                12 BYTES
     4986   03 00D76    55521863              STH,5    TWNP+1,1
     4987   03 00D77    55521891              STH,5    RFNP+1,1
     4988   03 00D78    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     4989   03 00D79    6AF016DC     T1ST3302 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     4990   03 00D7A    22000C31              LI,0     DA(TWNP)          WRITE RECORD WITH SPECIAL PATTERN
     4991   03 00D7B    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     4992   03 00D7C    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     4993   03 00D7D    CEA0195B              TDV,10   *:DEVADDR         TDV FOR EOT TEST                *A01
     4994   03 00D7E    31B02143              CW,11    =X'02000000'                                      *A01
     4995   03 00D7F    69400DDD              BCS,4    T1ST3314                                          *A01
     4996   03 00D80    6AF01F72     T1ST3304 BAL,15   :ERRORT           TEST
     4997   03 00D81    00006014              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     4998   03 00D82    68000D95              B        T1ST3305-1
     4999                            *        ERROR EXIT
     5000   03 00D83    EAF0021B A            BAL,15   *:ERROR           #3301
     5001   03 00D84    00000CE5 A            DATA     3301              INCORRECT BITS IN TEST
     5002   03 00D85    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5003   03 00D86    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5004   03 00D87    68000D89              B        %+2               LOOP ON ERROR
     5005   03 00D88    68000D95              B        T1ST3305-1        CONTINUE
     5006                            *                                   WRITE RETRY
     5007   03 00D89    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5008   03 00D8A    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5009   03 00D8B    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     5010   03 00D8C    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5011   03 00D8D    33100009 A            MTW,1    9                 TALLY +1
     5012   03 00D8E    21900005 A            CI,9     5                 TALLY =5
     5013   03 00D8F    69100D79              BL       T1ST3302
     5014   03 00D90    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5015   03 00D91    22000C1C              LI,0     DA(TSE1)          SET ERASE
     5016   03 00D92    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     5017   03 00D93    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     5018   03 00D94    68000D78              B        T1ST3302-1        GO RETRY AFTER SET ERASE
     5019   03 00D95    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     5020   03 00D96    6AF016DC     T1ST3305 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5021   03 00D97    22F00000 A            LI,15    0
     5022   03 00D98    35F0199B              STW,15   SPFLAG            CLEAR ERROR FLAG
     5023   03 00D99    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     5024   03 00D9A    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW OVER RECORD
     5025   03 00D9B    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5026   03 00D9C    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5027   03 00D9D    6AF01F72     T1ST3307 BAL,15   :ERRORT           TEST
     5028   03 00D9E    00006014              DATA     BA(TSEQ011)       READY, NO UE
     5029   03 00D9F    68000DB2              B        T1ST3309
     5030                            *        ERROR EXIT
     5031   03 00DA0    EAF0021B A            BAL,15   *:ERROR           #3302
     5032   03 00DA1    00000CE6 A            DATA     3302              INCORRECT BITS IN TEST
     5033   03 00DA2    3310199B              MTW,1    SPFLAG            ERROR +1
     5034   03 00DA3    32F0199B              LW,15    SPFLAG
     5035   03 00DA4    68300DB1              BE       T1ST3309-1
     5036   03 00DA5    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5037   03 00DA6    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5038   03 00DA7    68000DA9              B        %+2               LOOP ON ERROR
     5039   03 00DA8    68000DD2              B        T1ST3313          GO TO NEXT SIZE RECORD
     5040                            *                                   READ BACKWARD RETRY
     5041   03 00DA9    33100009 A            MTW,1    9                 TALLY +1
     5042   03 00DAA    21900006 A            CI,9     6
     5043   03 00DAB    68300DD2              BE       T1ST3313          GO TO NEXT SIZE RECORD
     5044   03 00DAC    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5045   03 00DAD    22000C6D              LI,0     DA(SPFRAND)       SPACE FWD
     5046   03 00DAE    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     5047   03 00DAF    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5048   03 00DB0    68000D96              B        T1ST3305          RETRY READ
     5049   03 00DB1    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     5050   03 00DB2    6AF016DC     T1ST3309 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5051   03 00DB3    22F00000 A            LI,15    0
     5052   03 00DB4    35F0199B              STW,15   SPFLAG            RESET FLAG
     5053   03 00DB5    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     5054   03 00DB6    22000C48              LI,0     DA(RFNP)          READ RECORD FORWARD
     5055   03 00DB7    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5056   03 00DB8    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5057   03 00DB9    6AF01F72     T1ST3311 BAL,15   :ERRORT           TEST
     5058   03 00DBA    00006008              DATA     BA(TSEQ010)       NO UE, BC=00,READY, NO INC LENGHT
     5059   03 00DBB    68000DBF              B        T1ST3312
     5060                            *        ERROR EXIT
     5061   03 00DBC    EAF0021B A            BAL,15   *:ERROR           #3303
     5062   03 00DBD    00000CE7 A            DATA     3303              INCORRECT BITS ON TEST
     5063   03 00DBE    3310199B              MTW,1    SPFLAG            ERROR +1
     5064   03 00DBF    6AF01DF5     T1ST3312 BAL,15   :COMPARE          COMPARE INFORMATION
     5065   03 00DC0    68000DC4              B        T1ST3312+5
     5066                            *        INFORMATION ERROR
     5067   03 00DC1    EAF0021B A            BAL,15   *:ERROR           #3304
     5068   03 00DC2    00000CE8 A            DATA     3304              INCORRECT INFORMATION
     5069   03 00DC3    3310199B              MTW,1    SPFLAG            ERROR +1
     5070   03 00DC4    32F0199B              LW,15    SPFLAG
     5071   03 00DC5    68300DD2              BEZ      T1ST3313          NO ERRORS
     5072   03 00DC6    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5073   03 00DC7    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5074   03 00DC8    68000DCA              B        %+2               LOOP ON ERROR
     5075   03 00DC9    68000DD2              B        T1ST3313          GO TO NEXT SIZE RECORD
     5076                            *                                   READ FORWARD RETRY
     5077   03 00DCA    33100009 A            MTW,1    9                 TALLYH61
     5078   03 00DCB    21900006 A            CI,9     6
     5079   03 00DCC    68300DD2              BE       T1ST3313          GO TO NEXT SIZE RECORD
     5080   03 00DCD    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5081   03 00DCE    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5082   03 00DCF    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     5083   03 00DD0    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5084   03 00DD1    68000DB2              B        T1ST3309          RETRY READ
     5085   03 00DD2    32701E68     T1ST3313 LW,7     :COMWCNT          INCREMENT RECORD SIZE
     5086   03 00DD3    2070000C A            AI,7     12                12 WORDS
     5087   03 00DD4    35701E68              STW,7    :COMWCNT
     5088   03 00DD5    52721863              LH,7     TWNP+1,1
     5089   03 00DD6    20700030 A            AI,7     48                48 BYTES
     5090   03 00DD7    55721863              STH,7    TWNP+1,1
     5091   03 00DD8    55721891              STH,7    RFNP+1,1
     5092   03 00DD9    21705000 A            CI,7     X'5000'           MAXIMUM RECORD SIZE             *A01
     5093   03 00DDA    69200DDD              BCS,2    T1ST3314                                          *A01
     5094   03 00DDB    31701970              CW,7     MAXREADB          RECORD TOO LARGE TO READ
     5095   03 00DDC    69100D78              BCS,1    T1ST3302-1        BRANCH IF LESS THAN MAXIMUM BYTES
     5096   03 00DDD    6AF0169E     T1ST3314 BAL,15   RWTLP             REWIND TO LOAD POINT
     5097   03 00DDE    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     5098   03 00DDF    680003B0              B        :TIM              GO TO SEQUENCER
     5099                            *
     5100                            *
     5101                            *
     5102                            *
     5103                            *                                   TST1, 34 READY - BUSY TEST
     5104                            *                                   ------------------------------------
     5105                            *
     5106                            *
     5107                            * CHECK THE BUSY CONDITION AFTER ISSUANCE OF AN ORDER. THE TEST WILL   *
     5108                            * ALSO ATTEMPT TO ISSUE AN SIO TO A BUSY CONTROLLER AND TO A READY     *
     5109                            * CONTROLLER AND A BUSY STATION.                                       *
     5110                            *                                                                      *
     5111                            *
     5112   03 00DE0    22AFFFF6 A   :T1ST34  LI,10    -10
     5113   03 00DE1    6AF016F5              BAL,15   SMEARPTR          SMEAR PATTERN
     5114   03 00DE2    6AF016DC     T1ST3401 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5115   03 00DE3    22000C33              LI,0     DA(TW1000)        WRITE 1000 BYTES
     5116   03 00DE4    CCC0195B              SIO,12   *:DEVADDR         SIO
     5117   03 00DE5    225FFFE2 A            LI,5     -30
     5118   03 00DE6    65500DE6              BIR,5    %
     5119   03 00DE7    CD80195B     T1ST3402 TIO,8    *:DEVADDR         TIO WITH CONTROLLER BUSY
     5120   03 00DE8    4B902162              AND,9    =X'60000000'      DEVICE BUSY
     5121   03 00DE9    31902162              CW,9     =X'60000000'
     5122   03 00DEA    68300DF0              BEZ      T1ST3403
     5123                            *        ERROR EXIT
     5124   03 00DEB    EAF0021B A            BAL,15   *:ERROR           3401
     5125   03 00DEC    00000D49 A            DATA     3401              INCORRECT RESPONSE ON TIO
     5126   03 00DED    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5127   03 00DEE    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5128   03 00DEF    68000DE2              B        T1ST3401          LOOP ON ERROR
     5129   03 00DF0    22E0012C A   T1ST3403 LI,14    300               300 MS
     5130   03 00DF1    6AF01ED4              BAL,15   :DELAY            DELAY
     5131   03 00DF2    68000DF8              B        T1ST3404
     5132                            *        ERROR EXIT TIMEOUT
     5133   03 00DF3    EAF0021B A            BAL,15   *:ERROR           3402
     5134   03 00DF4    00000D4A A            DATA     3402              TIMEOUT ON SIO
     5135   03 00DF5    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5136   03 00DF6    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5137   03 00DF7    68000DE2              B        T1ST3401          LOOP ON ERROR
     5138   03 00DF8    6AF01F72     T1ST3404 BAL,15   :ERRORT           TEST
     5139   03 00DF9    00006014              DATA     BA(TSEQ011)       READY, NO UE BC=00
     5140   03 00DFA    68000E00              B        T1ST3405
     5141                            *        ERROR EXIT
     5142   03 00DFB    EAF0021B A            BAL,15   *:ERROR           3403
     5143   03 00DFC    00000D4B A            DATA     3403              INCORRECT BITS ON TEST
     5144   03 00DFD    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5145   03 00DFE    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5146   03 00DFF    68000DE2              B        T1ST3401          LOOP ON ERROR
     5147   03 00E00    65A00DE2     T1ST3405 BIR,10   T1ST3401          DO 10 TIMES
     5148   03 00E01    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5149   03 00E02    22000C33              LI,0     DA(TW1000)        WRITE 1000 BYTES
     5150   03 00E03    CCC0195B              SIO,12   *:DEVADDR         SIO
     5151   03 00E04    22000C49     T1ST3406 LI,0     DA(RF100B)        READ FWD
     5152   03 00E05    CC80195B              SIO,8    *:DEVADDR         SIO BUSY CHANNEL
     5153   03 00E06    4B90213F              AND,9    =X'06000000'      BUSY
     5154   03 00E07    3190213F              CW,9     =X'06000000'      CONTROLLER BUSY
     5155   03 00E08    68300E0E              BEZ      T1ST3407
     5156                            *        ERROR EXIT
     5157   03 00E09    EAF0021B A            BAL,15   *:ERROR           3404
     5158   03 00E0A    00000D4C A            DATA     3404              INCORRECT STATUS RESPONSE ON SIO
     5159   03 00E0B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5160   03 00E0C    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5161   03 00E0D    68000E01              B        T1ST3405+1        LOOP ON ERROR
     5162   03 00E0E    22E00258 A   T1ST3407 LI,14    600               DELAY
     5163   03 00E0F    6AF01ED4              BAL,15   :DELAY            DELAY
     5164   03 00E10    68000E16              B        T1ST3408
     5165                            *        ERROR EXIT TIMEOUT
     5166   03 00E11    EAF0021B A            BAL,15   *:ERROR           3405
     5167   03 00E12    00000D4D A            DATA     3405              TIMEOUT ON SIO
     5168   03 00E13    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5169   03 00E14    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5170   03 00E15    68000E01              B        T1ST3405+1        LOOP ON ERROR
     5171   03 00E16    22E0001E A   T1ST3408 LI,14    30                DELAY
     5172   03 00E17    6AF01ED4              BAL,15   :DELAY
     5173   03 00E18    68000E19              B        %+1
     5174   03 00E19    22EFC950 A            LI,14    -14000            WAIT
     5175   03 00E1A    65E00E1A              BIR,14   %
     5176   03 00E1B    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5177   03 00E1C    22000C25              LI,0     DA(TRWAI)         REWIND NO INTERRUPT
     5178   03 00E1D    CCC0195B              SIO,12   *:DEVADDR         SIO
     5179   03 00E1E    22000C33              LI,0     DA(TW1000)        WRITE RECORD
     5180   03 00E1F    CC80195B              SIO,8    *:DEVADDR         SIO WHILE REWINDING
     5181   03 00E20    4B90213F              AND,9    =X'06000000'      CONTROLLER BUSY
     5182   03 00E21    3190213F              CW,9     =X'06000000'
     5183   03 00E22    68300E29              BEZ      T1ST3409
     5184                            *        ERROR EXIT
     5185   03 00E23    EAF0021B A            BAL,15   *:ERROR           3406
     5186   03 00E24    00000D4E A            DATA     3406              INCORRECT STATUS RESPONSE ON SIO
     5187   03 00E25    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5188   03 00E26    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5189   03 00E27    68000E01              B        T1ST3405+1        LOOP ON ERROR
     5190   03 00E28    68000E3B              B        T1ST3410+6        GO TO END DELAY ON CONTINUE
     5191   03 00E29    225FFFE2 A   T1ST3409 LI,5     -30               TIME DELAY TILL DEVICE BUSY
     5192   03 00E2A    65500E2A              BIR,5    %
     5193   03 00E2B    CD80195B              TIO,8    *:DEVADDR         TIO WHILE REWINDING
     5194   03 00E2C    4B902162              AND,9    =X'60000000'      DEVICE BUSY
     5195   03 00E2D    31902162              CW,9     =X'60000000'
     5196   03 00E2E    68300E35              BEZ      T1ST3410
     5197                            *        ERROR EXIT
     5198   03 00E2F    EAF0021B A            BAL,15   *:ERROR           3407
     5199   03 00E30    00000D4F A            DATA     3407              INCORRECT STATUS RESPONSE ON TIO
     5200   03 00E31    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5201   03 00E32    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5202   03 00E33    68000E01              B        T1ST3405+1        LOOP ON ERROR
     5203   03 00E34    68000E3B              B        T1ST3410+6        GO TO END DELAY ON CONTINUE
     5204   03 00E35    CE80195B     T1ST3410 TDV,8    *:DEVADDR         TEST TILL LOAD POINT
     5205   03 00E36    4B902152              AND,9    =X'04000000'
     5206   03 00E37    68300E35              BEZ      T1ST3410          WAIT FOR LOAD POINT
     5207   03 00E38    CD80195B              TIO,8    *:DEVADDR         DEVICE OR CONTROLER BUSY
     5208   03 00E39    31902151              CW,9     =X'66000000'
     5209   03 00E3A    69400E38              BCS,4    %-2
     5210   03 00E3B    227FFE0C A            LI,7     -500              WAIT FOR TAPE TO STOP
     5211   03 00E3C    65700E3C              BIR,7    %
     5212   03 00E3D    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     5213   03 00E3E    680003B0              B        :TIM              GO TO SEQUENCER
     5214                            *
     5215                            *
     5216                            *
     5217                            *
     5218                            *
     5219                            *                                   TST1,35 TAPE CREEP TEST
     5220                            *                                   ------------------------------------
     5221                            *
     5222                            *
     5223                            * THIS TEST WILL WRITE ONE RECORD FOLLOWED BY A SET ERASE ORDER AND    *
     5224                            * ANOTHER WRITE ORDER. A SPACE RECORD BACKWARD AND REWRITE SEQUENCE    *
     5225                            * WILL NOW BE REPEATED N TIMES. AFTER READING AND VERIFYING THE DATA   *
     5226                            * OF THE FIRST RECORD, READ THE SECOND RECORD AND COMPUTE THE DELAY    *
     5227                            * BETWEEN THE START OF THE READ ORDER AND THE START OF THE DATA        *
     5228                            * TRANSFER. THE DIRECTION OF THE CREEP WILL BE DETERMINED BY COMPARING *
     5229                            * THE DELAY TO THE ORIGINAL VALUE.                                     *
     5230                            * THE TOLERANCE IS SET FOR 800 BPI IF 75 IPS.                          *
     5231                            *                                                                      *
     5232                            *
     5233   03 00E3F    6AF01608     :T1ST35  BAL,15   GETTIME           GET TIMES ON LOOPS
     5234   03 00E40    32902163              LW,9     =X'0F0F0F0F'      CHECKERBOARD PATTERN
     5235   03 00E41    35901DE7              STW,9    :PATID+1
     5236   03 00E42    6AF016F3              BAL,15   SMEARSP           SMEAR SPECIAL PATTERN A
     5237   03 00E43    32802157              LW,8     =X'3F3F3F3F'
     5238   03 00E44    224FFFFC A            LI,4     -4                PATTERN FOR RECORD B
     5239   03 00E45    358821EA              STW,8    BUFF1+104,4
     5240   03 00E46    65400E45              BIR,4    %-1
     5241   03 00E47    22700018 A            LI,7     24                24 WORDS TO COMPARE
     5242   03 00E48    35701E68              STW,7    :COMWCNT
     5243   03 00E49    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     5244   03 00E4A    35F01A4D              STW,15   NOPKPRT
     5245   03 00E4B    6AF016DC     T1ST3502 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5246   03 00E4C    22000C37              LI,0     DA(WR96B)         WRITE 96 BYTES REC A
     5247   03 00E4D    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5248   03 00E4E    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5249   03 00E4F    6AF01F72     T1ST3504 BAL,15   :ERRORT           TEST
     5250   03 00E50    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     5251   03 00E51    68000E57              B        T1ST3505
     5252                            *        ERROR EXIT
     5253   03 00E52    EAF0021B A            BAL,15   *:ERROR           #3501
     5254   03 00E53    00000DAD A            DATA     3501              INCORRECT BITS ON TEST
     5255   03 00E54    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5256   03 00E55    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5257   03 00E56    68000E4B              B        T1ST3502          LOOP ON ERROR
     5258   03 00E57    6AF016DC     T1ST3505 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5259   03 00E58    22000C1C              LI,0     DA(TSE1)          SET ERASE
     5260   03 00E59    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     5261   03 00E5A    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5262   03 00E5B    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5263   03 00E5C    22000C34              LI,0     DA(TWCREP)        WRITE RECORD B
     5264   03 00E5D    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5265   03 00E5E    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     5266   03 00E5F    6AF01F72              BAL,15   :ERRORT           TEST
     5267   03 00E60    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     5268   03 00E61    68000E67              B        T1ST3508
     5269                            *        ERROR EXIT
     5270   03 00E62    EAF0021B A            BAL,15   *:ERROR           3502
     5271   03 00E63    00000DAE A            DATA     3502              INCORRECT BITS IN TEST
     5272   03 00E64    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH
     5273   03 00E65    2E000000 A            WAIT
     5274   03 00E66    68000E4B              B        T1ST3502          LOOP ON ERROR
     5275   03 00E67    6AF016DC     T1ST3508 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5276   03 00E68    22000C5B              LI,0     DA(SB16B)         SPACE BKW OVER REC B
     5277   03 00E69    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5278   03 00E6A    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     5279   03 00E6B    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERzUxT
     5280   03 00E6C    22000C5A              LI,0     DA(SB100B)        SPACE BKW OVER REC A
     5281   03 00E6D    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5282   03 00E6E    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     5283                            *                                   POSITIONED FOR COMPUTING TIME 1
     5284   03 00E6F    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5285   03 00E70    22000C49              LI,0     DA(RF100B)        READ FWD REC A
     5286   03 00E71    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5287   03 00E72    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     5288   03 00E73    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN AREA
     5289   03 00E74    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5290   03 00E75    32A02157              LW,10    =X'3F3F3F3F'
     5291   03 00E76    22000C4A              LI,0     DA(RF16B)         READ FWD REC B
     5292   03 00E77    22500000 A            LI,5     0                 TALLY IN R5
     5293   03 00E78    22400000 A            LI,4     0
     5294   03 00E79    CCC0195B              SIO,12   *:DEVADDR         READ RECORD B
     5295   03 00E7A    33100005 A            MTW,1    5                 TALLY =TALLY+1
     5296   03 00E7B    F1A02136              CB,10    *BUFF2            INFO IN YET ON READ
     5297   03 00E7C    69300E7A              BNEZ     %-2
     5298   03 00E7D    32C01F54              LW,12    :INTRECF          WAIT FOR INTERRUPT
     5299   03 00E7E    68300E7D              BCR,3    %-1
     5300   03 00E7F    3740197A              MW,4     TIME2             R5 HAS TIME IN US
     5301   03 00E80    22AFFFC0 A            LI,10    -64
     5302   03 00E81    6AF016DC     T1ST3506 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5303   03 00E82    22000C5B              LI,0     DA(SB16B)         SPACE BKW OVER RECORD B
     5304   03 00E83    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5305   03 00E84    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5306   03 00E85    6AF016DC     T1ST3509 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5307   03 00E86    22000C34              LI,0     DA(TWCREP)        REWRITE RECORD B
     5308   03 00E87    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5309   03 00E88    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5310   03 00E89    6AF01F72     T1ST3511 BAL,15   :ERRORT           TEST
     5311   03 00E8A    00006014              DATA     BA(TSEQ011)       READY, BC=00, NO UE
     5312   03 00E8B    68000E8E              B        T1ST3512
     5313                            *        ERROR EXIT
     5314   03 00E8C    EAF0021B A            BAL,15   *:ERROR           #3503
     5315   03 00E8D    00000DAF A            DATA     3503              INCORRECT BITS ON TEST
     5316   03 00E8E    65A00E81     T1ST3512 BIR,10   T1ST3506
     5317   03 00E8F    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5318   03 00E90    22000C5B              LI,0     DA(SB16B)         SPACE BKW OVER RECORD B
     5319   03 00E91    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5320   03 00E92    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5321   03 00E93    6AF01F72     T1ST3514 BAL,15   :ERRORT           TEST
     5322   03 00E94    00006014              DATA     BA(TSEQ011)       READY, BC=00, NO UE
     5323   03 00E95    68000E98              B        T1ST3515
     5324                            *        ERROR EXIT
     5325   03 00E96    EAF0021B A            BAL,15   *:ERROR           #3504
     5326   03 00E97    00000DB0 A            DATA     3504              INCORRECT BITS ON TEST
     5327   03 00E98    6AF016DC     T1ST3515 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5328   03 00E99    22000C5A              LI,0     DA(SB100B)        SPACE BKW OVER RECORD A
     5329   03 00E9A    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5330   03 00E9B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5331   03 00E9C    6AF01F72     T1ST3517 BAL,15   :ERRORT           TEST
     5332   03 00E9D    00006014              DATA     BA(TSEQ011)       READY, BC=0, NO UE
     5333   03 00E9E    68000EA1              B        T1ST3518
     5334                            *        ERROR EXIT
     5335   03 00E9F    EAF0021B A            BAL,15   *:ERROR           #3505
     5336   03 00EA0    00000DB1 A            DATA     3505              INCORRECT BITS ON TEST
     5337   03 00EA1    6AF016DC     T1ST3518 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5338   03 00EA2    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     5339   03 00EA3    22000C4D              LI,0     DA(RF96B)         READ FWD 96 BYTES REC A
     5340   03 00EA4    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5341   03 00EA5    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5342   03 00EA6    6AF01F72     T1ST3520 BAL,15   :ERRORT
     5343   03 00EA7    00006008              DATA     BA(TSEQ010)       READY, NO UE, BC=0, NO INC LENGTH
     5344   03 00EA8    68000EAB              B        T1ST3521
     5345                            *        ERROR EXIT
     5346   03 00EA9    EAF0021B A            BAL,15   *:ERROR           #3506
     5347   03 00EAA    00000DB2 A            DATA     3506              INCORRECT BITS ON TEST
     5348   03 00EAB    6AF01DF5     T1ST3521 BAL,15   :COMPARE          COMPARE INFORMATION
     5349   03 00EAC    68000EAF              B        T1ST3522
     5350                            *        INFORMATION ERROR
     5351   03 00EAD    EAF0021B A            BAL,15   *:ERROR           #3507
     5352   03 00EAE    00000DB3 A            DATA     3507              INCORRECT INFORMATION
     5353   03 00EAF    6AF016DC     T1ST3522 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5354   03 00EB0    22000C4A              LI,0     DA(RF16B)         READ FWD 12 BYTES
     5355   03 00EB1    32A02157              LW,10    =X'3F3F3F3F'      B PATTERN
     5356   03 00EB2    22800000 A            LI,8     0
     5357   03 00EB3    22900000 A            LI,9     0
     5358   03 00EB4    CCC0195B              SIO,12   *:DEVADDR         INIATE WRITE
     5359   03 00EB5    33100009 A            MTW,1    9                 TALLY =TALLY+1
     5360   03 00EB6    F1A02136              CB,10    *BUFF2            INFO IN YET
     5361   03 00EB7    69300EB5              BNEZ     %-2
     5362   03 00EB8    3780197A              MW,8     TIME2             R9 HAS TIME IN US
     5363   03 00EB9    35900008 A            STW,9    8                 R8=R9
     5364   03 00EBA    35500006 A            STW,5    6                 R5 = R6
     5365   03 00EBB    38900005 A            SW,9     5                 T2-T1
     5366   03 00EBC    69100EC3              BLZ      %+7
     5367   03 00EBD    2590007A A            SLS,9    -6                TIME/64
     5368   03 00EBE    32C01F54              LW,12    :INTRECF          WAIT FOR INTERRUPT
     5369   03 00EBF    68300EBE              BCR,3    %-1
     5370   03 00EC0    3890197E              SW,9     STOPDIF           - REVERSE DIFFERENTIAL
     5371   03 00EC1    68300EDF              BEZ      T1ST3525          NO CREEP
     5372   03 00EC2    69200ED0              BCS,2    T1ST3523          POSITIVE CREEP
     5373   03 00EC3    38600008 A            SW,6     8                 T1-T2
     5374   03 00EC4    69100EC8              BLZ      %+4
     5375   03 00EC5    2560007A A            SLS,6    -6                TIME/64
     5376   03 00EC6    31602164              CW,6     =X'00000014'      NEGATIVE TOLLERANCE
     5377   03 00EC7    68200EDF              BLE      T1ST3525          OK
     5378   03 00EC8    EAF0021B A            BAL,15   *:ERROR           NEGATIVE CREEP PRINTOUT
     5379   03 00EC9    00000DB5 A            DATA     3509
     5380   03 00ECA    32C00006 A            LW,12    6
     5381   03 00ECB    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5382   03 00ECC    35F01B25              STW,15   MESNCR+3          STORE
     5383   03 00ECD    EAF0021C A            BAL,15   *:PRINT           NEGATIVE CREEP PRINTOUT
     5384   03 00ECE    00001B22              DATA     MESNCR
     5385   03 00ECF    68000EDC              B        T1ST3525-3        GO CHECK SENSE SWITCHES
     5386   03 00ED0    31901959     T1ST3523 CW,9     CRPMAX            MAXIMUM
     5387   03 00ED1    69100EDF              BL       T1ST3525
     5388                            *        ERROR EXIT FOR TAPE CREEP
     5389   03 00ED2    EAF0021B A   T1ST3524 BAL,15   *:ERROR           3508
     5390   03 00ED3    00000DB4 A            DATA     3508              TAPE CREEP ERROR
     5391   03 00ED4    32C00009 A            LW,12    9
     5392   03 00ED5    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5393   03 00ED6    35F01B1B              STW,15   MESTPC+3
     5394   03 00ED7    32C01959              LW,12    CRPMAX
     5395   03 00ED8    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5396   03 00ED9    35F01B20              STW,15   MESTPC+8
     5397   03 00EDA    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     5398   03 00EDB    00001B18              DATA     MESTPC
     5399   03 00EDC    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5400   03 00EDD    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5401   03 00EDE    68000E3F              B        :T1ST35           RESTART TEST                    *B01
     5402   03 00EDF    6AF016E4     T1ST3525 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     5403   03 00EE0    680003B0              B        :TIM              GO TO SEQUENCER
     5404                            *
     5405                            *
     5406                            *
     5407                            *                                   TST1,36 ERASE VERIFICATION TEST *A01
     5408                            *                                   ------------------------------- *A01
     5409                            *                                                                   *A01
     5410                            * THIS TEST WILL TEST THE ERASE ORDER BY REWINDING TAPE AND THEN    *A01
     5411                            * WRITING N ONE BYTE RECORDS.  THE RECORDS ARE FOLLOWED BY A TAPE   *A01
     5412                            * MARK.  AFTER A REWIND, WRITE ONE RECORD, SET ERASE, AND WRITE     *A01
     5413                            * ONE RECORD.  THE TAPE IS REWOUND.  THE RECORDS ARE COUNTED TO     *A01
     5414                            * VERIFY THE ERASE ORDER EXECUTION.                                 *A01
     5415                            *                                                                   *A01
     5416                            *                                                                   *A01
     5417   03 00EE1    6AF0169E     :T1ST36  BAL,15   RWTLP             REWIND TO LOAD POINT            *A01
     5418   03 00EE2    229FFFCE A            LI,9     -50               SET LOOP COUNT                  *A01
     5419   03 00EE3    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5420   03 00EE4    22000C2C              LI,0     DA(TW1BCE)        WRITE 1 BYTE                    *A01
     5421   03 00EE5    6AF01D52              BAL,15   :IOEXEC             EXECUTE TIO, SIO              *A01
     5422   03 00EE6    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *A01
     5423   03 00EE7    65900EE3              BIR,9    %-4               ** LOOP **                      *A01
     5424   03 00EE8    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5425   03 00EE9    22000C26              LI,0     DA(TWTM)          WRITE TAPE MARK                 *A01
     5426   03 00EEA    6AF01D52              BAL,15   :IOEXEC             EXECUTE TIO, SIO              *A01
     5427   03 00EEB    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *A01
     5428   03 00EEC    6AF0169E     T1ST3601 BAL,15   RWTLP             REWIND TO LOAD POINT            *A01
     5429   03 00EED    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5430   03 00EEE    22000C2C              LI,0     DA(TW1BCE)        WRITE 1 BYTE                    *A01
     5431   03 00EEF    6AF01D52              BAL,15   :IOEXEC             EXECUTE TIO, SIO              *A01
     5432   03 00EF0    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *A01
     5433   03 00EF1    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5434   03 00EF2    22000C1C              LI,0     DA(TSE1)          SET ERASE                       *A01
     5435   03 00EF3    6AF01D52              BAL,15   :IOEXEC             EXECUTE TIO, SIO              *A01
     5436   03 00EF4    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *A01
     5437   03 00EF5    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5438   03 00EF6    22000C2C              LI,0     DA(TW1BCE)        WRITE 1 BYTE                    *A01
     5439   03 00EF7    6AF01D52              BAL,15   :IOEXEC             EXECUTE TIO, SIO              *A01
     5440   03 00EF8    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *A01
     5441   03 00EF9    6AF0169E     T1ST3602 BAL,15   RWTLP             REWIND TO LOAD POINT            *A01
     5442   03 00EFA    229FFFFF A            LI,9     -1                CLEAR TALLY                     *A01
     5443   03 00EFB    6AF016DC     T1ST3603 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5444   03 00EFC    22000C5F              LI,0     DA(SF100)         SPACE FWD OVER RECORD           *A01
     5445   03 00EFD    6AF01D52              BAL,15   :IOEXEC             EXECUTE TIO, SIO              *A01
     5446   03 00EFE    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *A01
     5447   03 00EFF    20900001 A            AI,9     1                 TALLY + 1                       *A01
     5448   03 00F00    CEA0195B              TDV,10   *:DEVADDR         TDV                             *A01
     5449   03 00F01    4BB02165              AND,11   =X'12000000'      EOF OR EOT SET                  *A01
     5450   03 00F02    68300EFB              BCR,3    T1ST3603            NO                            *A01
     5451   03 00F03    2190002C A            CI,9     44                LESS THAN 44 RECORDS LEFT       *A01
     5452   03 00F04    69100F0A              BCS,1    T1ST3604            YES, NORMAL EXIT              *A01
     5453                            *                                                                   *A01
     5454                            *        ERROR EXIT                                                 *A01
     5455                            *                                                                   *A01
     5456   03 00F05    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR                    *A01
     5457   03 00F06    00000E11 A            DATA     3601                #3601                         *A01
     5458   03 00F07    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *A01
     5459   03 00F08    2E000000 A            WAIT                         WAIT                          *A01
     5460   03 00F09    68000EE1              B        :T1ST36             LOOP ON ERROR                 *A01
     5461   03 00F0A    6AF016E4     T1ST3604 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT      *A01
     5462   03 00F0B    680003B0              B        :TIM              GO TO SEQUENCER                 *A01
     5463                            *
     5464                            *
     5465                            *
     5466                            *
     5467                            *
     5468                            *                                   TST1,37 GAP LENGTH TIMING TEST
     5469                            *                                   ------------------------------------
     5470                            * THIS ROUTINE VERIFIES GAP TIMING AND IS INTENDED AS A SCOPING AID    *
     5471                            * FOR ADJUSTING THE FORWARD AND REVERSE RAMP. THE TEST CAN ONLY BE RUN *
     5472                            * ON A SYSTEM WITH A REAL TIME CLOCK.                                  *
     5473                            * THE TOLERANCE IS SET FOR 800 BPI IF 75 IPS.                          *
     5474                            *                                                                      *
     5475                            *
     5476                            *                                   OPERATOR INTERVENTION REQUIRED
     5477                            *                                   IF SS1 IS SET.
     5478                            *
     5479   03 00F0C    6AF01608     :T1ST37  BAL,15   GETTIME           GET TIMES ON LOOPS
     5480   03 00F0D    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     5481   03 00F0E    35F01A4D              STW,15   NOPKPRT
     5482   03 00F0F    22AFFFF0 A            LI,10    -16
     5483   03 00F10    32902166              LW,9     =X'30303030'      SPEC PATTERN
     5484   03 00F11    224FFFFC A            LI,4     -4                SMEAR PATTERN
     5485   03 00F12    359821EA              STW,9    BUFF1+104,4
     5486   03 00F13    65400F12              BIR,4    %-1
     5487   03 00F14    22EFB9B0 A            LI,14    -18000            STOP TAPE
     5488   03 00F15    65E00F15              BIR,14   %
     5489                            *                                   START TIME
     5490   03 00F16    6AF016DC     T1ST3702 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5491   03 00F17    22000C34              LI,0     DA(TWCREP)        WRITE 12 BYTES
     5492   03 00F18    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5493   03 00F19    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5494   03 00F1A    6AF01F72     T1ST3704 BAL,15   :ERRORT           TEST
     5495   03 00F1B    00006014              DATA     BA(TSEQ011)       NO UE, READY, BC=0
     5496   03 00F1C    68000F22              B        T1ST3705
     5497                            *        ERROR EXIT
     5498   03 00F1D    EAF0021B A            BAL,15   *:ERROR           #3701
     5499   03 00F1E    00000E75 A            DATA     3701              INCORRECT BITS ON TEST
     5500   03 00F1F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5501   03 00F20    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5502   03 00F21    68000F16              B        T1ST3702          LOOP ON ERROR
     5503   03 00F22    65A00F14     T1ST3705 BIR,10   T1ST3702-2        DO 16 TIMES
     5504   03 00F23    22AFFFF0 A            LI,10    -16
     5505   03 00F24    6AF016DC     T1ST3706 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5506   03 00F25    22000C5B              LI,0     DA(SB16B)         SPACE BKW OVER RECORD
     5507   03 00F26    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5508   03 00F27    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5509   03 00F28    6AF01F72     T1ST3708 BAL,15   :ERRORT           TEST
     5510   03 00F29    00006014              DATA     BA(TSEQ011)       NO UE, READY, BC=0
     5511   03 00F2A    68000F2D              B        T1ST3709
     5512                            *        ERROR EXIT
     5513   03 00F2B    EAF0021B A            BAL,15   *:ERROR           #3702
     5514   03 00F2C    00000E76 A            DATA     3702              INCORRECT BITS ON TEST
     5515   03 00F2D    65A00F24     T1ST3709 BIR,10   T1ST3706          DO 16 TIMES
     5516   03 00F2E    32602166              LW,6     =X'30303030'
     5517   03 00F2F    22AFFFF0 A            LI,10    -16
     5518   03 00F30    22400000 A            LI,4     0
     5519   03 00F31    22500000 A            LI,5     0
     5520   03 00F32    6AF016DC     T1ST3710 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5521   03 00F33    22EFB9B0 A   T1ST3711 LI,14    -18000            STOP TAPE
     5522   03 00F34    65E00F34              BIR,14   %
     5523   03 00F35    22900000 A            LI,9     0                 NO INTERRUPT EXPECTED
     5524   03 00F36    B5902136              STW,9    *BUFF2            CLEAR AREA
     5525   03 00F37    22000C4A              LI,0     DA(RF16B)         READ FWD 12 BYTES
     5526   03 00F38    CCC0195B              SIO,12   *:DEVADDR         SIO
     5527   03 00F39    33100005 A            MTW,1    5                 TALLY =TALLY+1
     5528   03 00F3A    F1602136     T1ST3712 CB,6     *BUFF2            INFO IN YET
     5529   03 00F3B    69300F39              BNE      T1ST3712-1
     5530   03 00F3C    32C01F54              LW,12    :INTRECF          WAIT FOR INTERRUPT
     5531   03 00F3D    68300F3C              BCR,3    %-1
     5532   03 00F3E    65A00F32              BIR,10   T1ST3710          DO 16 TIMES
     5533   03 00F3F    2550007C A            SLS,5    -4                R5/16
     5534   03 00F40    3740197A              MW,4     TIME2             R5 HAS TIME IN US
     5535   03 00F41    3850195A              SW,5     WTRT              - WRITE TO READ TIME
     5536   03 00F42    205FFA24 A            AI,5     -1500             - WRITE DELAY TIME
     5537   03 00F43    3550194D              STW,5    STRTME            START TIME
     5538   03 00F44    22AFFFF7 A   T1ST3714 LI,10    -9                IRG TIME
     5539   03 00F45    22E00010 A            LI,14    16                16 MS TO STOP TAPE
     5540   03 00F46    6AF01ED4              BAL,15   :DELAY            DELAY
     5541   03 00F47    68000F48              B        %+1
     5542   03 00F48    22000C34     T1ST3715 LI,0     DA(TWCREP)        WRITE 12 BYTES
     5543   03 00F49    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5544   03 00F4A    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5545   03 00F4B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5546   03 00F4C    6AF01F72     T1ST3716 BAL,15   :ERRORT           TEST
     5547   03 00F4D    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     5548   03 00F4E    68000F54              B        T1ST3717
     5549                            *        ERROR EXIT
     5550   03 00F4F    EAF0021B A            BAL,15   *:ERROR           #3703
     5551   03 00F50    00000E77 A            DATA     3703              INCORRECT BITS ON TEST
     5552   03 00F51    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5553   03 00F52    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5554   03 00F53    68000F48              B        T1ST3715          LOOP ON ERROR
     5555   03 00F54    65A00F45     T1ST3717 BIR,10   T1ST3714+1        LOOP
     5556   03 00F55    22600000 A            LI,6     0
     5557   03 00F56    35601954              STW,6    IRGTM             CLEAR TIME
     5558   03 00F57    22AFFFF7 A            LI,10    -9
     5559   03 00F58    6AF016DC     T1ST3718 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5560   03 00F59    22000C5B              LI,0     DA(SB16B)         SPACE BKW OVER RECORD
     5561   03 00F5A    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5562   03 00F5B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5563   03 00F5C    6AF01F72     T1ST3719 BAL,15   :ERRORT           TEST
     5564   03 00F5D    00006014              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     5565   03 00F5E    68000F61              B        T1ST3720
     5566                            *        ERROR EXIT
     5567   03 00F5F    EAF0021B A            BAL,15   *:ERROR           #3704
     5568   03 00F60    00000E78 A            DATA     3704              INCORRECT BITS ON TEST
     5569   03 00F61    65A00F58     T1ST3720 BIR,10   T1ST3718          LOOP
     5570   03 00F62    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5571   03 00F63    22600000 A            LI,6     0
     5572   03 00F64    22700000 A            LI,7     0
     5573   03 00F65    22000C63              LI,0     DA(SF16CC)        SPACE FWD 9 RECORDS USING CC
     5574   03 00F66    CC40195B              SIO,4    *:DEVADDR         SIO
     5575   03 00F67    33100007 A            MTW,1    7                 TALLY =TALLY+1
     5576   03 00F68    CDC0195B              TIO,12   *:DEVADDR         WAIT WHILE BUSY
     5577   03 00F69    69C00F67              BCS,12   %-2
     5578   03 00F6A    3760197B              MW,6     TIME3             R7 HAS TIME IN US
     5579   03 00F6B    3870194D              SW,7     STRTME            - START TIME
     5580   03 00F6C    3870197C              SW,7     CHARTR            - CHARACTER TIME FOR 9 RECORDS
     5581   03 00F6D    3870195A              SW,7     WTRT              - WRITE TO READ TIME
     5582   03 00F6E    207FFA24 A            AI,7     -1500             - WRITE DELAY TIME
     5583   03 00F6F    2570007D A            SLS,7    -3                TIME/8
     5584   03 00F70    35701954     T1ST3721 STW,7    IRGTM             SAVE IRG TIME
     5585                            *        COMPARE TIMES TO CORRECT TIMES AND PRINTOUT IF INCORRECT
     5586   03 00F71    31701958              CW,7     IRGMIN            MINIMUM
     5587   03 00F72    69100F75              BL       %+3
     5588   03 00F73    31701957              CW,7     IRGMAX            MAXIMUM
     5589   03 00F74    69100F9E              BL       T1ST3726          GO TO END OF TEST
     5590                            *        ERROR EXIT
     5591   03 00F75    EAF0021B A            BAL,15   *:ERROR           ERROR PRINTOUT
     5592   03 00F76    00000E79 A            DATA     3705              TIME NOT WITHIN TOLERANCE
     5593   03 00F77    32C0194D              LW,12    STRTME            START TIME
     5594   03 00F78    EAF00217 A            BAL,15   *:DECC            CONVERT
     5595   03 00F79    35F01B15              STW,15   MESSTRT+5         STORE
     5596   03 00F7A    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5597   03 00F7B    35F01B14              STW,15   MESSTRT+4
     5598   03 00F7C    32C01954              LW,12    IRGTM             I R G TIME
     5599   03 00F7D    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5600   03 00F7E    35F01B06              STW,15   MESIRG+4          STORE
     5601   03 00F7F    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5602   03 00F80    35F01B05              STW,15   MESIRG+3
     5603   03 00F81    32C01957              LW,12    IRGMAX            IRG MAXIMUM
     5604   03 00F82    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5605   03 00F83    35F01B0F              STW,15   MESIRG+13         STORE
     5606   03 00F84    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5607   03 00F85    35F01B0E              STW,15   MESIRG+12
     5608   03 00F86    32C01958              LW,12    IRGMIN            IRG MINIMUM
     5609   03 00F87    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5610   03 00F88    35F01B0C              STW,15   MESIRG+10         STORE
     5611   03 00F89    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     5612   03 00F8A    35F01B0B              STW,15   MESIRG+9
     5613   03 00F8B    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     5614   03 00F8C    00001B02              DATA     MESIRG
     5615   03 00F8D    EAF0021C A            BAL,15   *:PRINT
     5616   03 00F8E    00001B10              DATA     MESSTRT           START TIME
     5617                            *                                   PRINTOUT START TIME, IRG TIMES
     5618                            *                                   IF SS1 SET OPERATOR CAN SCOPE
     5619                            *                                   ------------------------------------
     5620                            *
     5621                            *                                   START/STOP TIMES. 1000 RECORDS
     5622   03 00F8F    EAF0021D A            BAL,15   *:SENSE           CHECK SS1 AND SS3
     5623   03 00F90    2E000000 A            WAIT
     5624   03 00F91    68000F93              B        T1ST3722          SS1 ON
     5625   03 00F92    68000F9E              B        T1ST3726          BYPASS SCOPING AID FOR START/STOP
     5626   03 00F93    6AF0169E     T1ST3722 BAL,15   RWTLP             REWIND TO LOAD POINT
     5627   03 00F94    226FFC18 A            LI,6     -1000
     5628   03 00F95    6AF016DC     T1ST3723 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5629   03 00F96    22000C32              LI,0     DA(TW16B)         WRITE 16 BYTES
     5630   03 00F97    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5631   03 00F98    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5632   03 00F99    65600F95     T1ST3724 BIR,6    T1ST3723
     5633   03 00F9A    6AF0169E     T1ST3725 BAL,15   RWTLP             REWIND TO LOAD POINT
     5634   03 00F9B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5635   03 00F9C    2E000000 A            WAIT
     5636   03 00F9D    68000F0C              B        :T1ST37           RESTART TEST                    *A01
     5637   03 00F9E    6AF016E4     T1ST3726 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     5638   03 00F9F    680003B0              B        :TIM              GO TO SEQUENCER
     5639                            *
     5640                            *
     5641                            *                                   TST1,38 END OF TAPE TEST
     5642                            *                                   ------------------------------------
     5643                            *
     5644                            * THIS TEST WILL CONTINUE TO WRITE N RECORDS UNTIL THE END OF TAPE     *
     5645                            * INDICATOR IS DETECTED. ONE ADDITIONAL RECORD WILL BE RECORDED AND    *
     5646                            * THE EOT CONDITION WILL BE VERIFIED AGAIN. TWO RECORDS WILL BE SPACED *
     5647                            * IN THE BACKWARD DIRECTION. AFTER THE SECOND SPACE, THE EOT           *
     5648                            * INDICATOR SHOULD BE RESET. THE TAPE WILL BE REWOUND.                 *
     5649                            *                                                                      *
     5650                            *
     5651   03 00FA0    6AF0169E     :T1ST38  BAL,15   RWTLP             REWIND TO LOAD POINT
     5652   03 00FA1    6AF016DC     T1ST3802 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5653   03 00FA2    22000C33              LI,0     DA(TW1000)        WRITE RECORD FROM BUFFER 1
     5654   03 00FA3    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5655   03 00FA4    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5656   03 00FA5    CEA0195B     T1ST3803 TDV,10   *:DEVADDR         TDV
     5657   03 00FA6    31B02143              CW,11    =X'02000000'      EOT SET
     5658   03 00FA7    69400FB0              BCS,4    T1ST3804
     5659   03 00FA8    CDA0195B              TIO,10   *:DEVADDR         TIO
     5660   03 00FA9    31B0214C              CW,11    =X'08000000'      UE SET
     5661   03 00FAA    68400FA1              BCR,4    T1ST3802          LOOP TILL EOT
     5662                            *        ERROR EXIT - ERROR NOT EOT
     5663   03 00FAB    EAF0021B A            BAL,15   *:ERROR           #3801
     5664   03 00FAC    00000ED9 A            DATA     3801              INCORRECT BITS ON TEST
     5665   03 00FAD    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5666   03 00FAE    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5667   03 00FAF    68000FA1              B        T1ST3802          LOOP ON ERROR
     5668   03 00FB0    6AF016DC     T1ST3804 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5669   03 00FB1    22000C1E              LI,0     DA(TSE)           SET ERASE                       *A02
     5670   03 00FB2    6AF01D52              BAL,15   :IOEXEC            EXECUTE TIO, SIO               *A02
     5671   03 00FB3    6AF016C1              BAL,15   MYDELAY            WAIT FOR INTERRUPT             *A02
     5672   03 00FB4    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A02
     5673   03 00FB5    22F00000 A            LI,15    0
     5674   03 00FB6    35F0199B              STW,15   SPFLAG            CLEAR ERROR FLAG
     5675   03 00FB7    22000C33              LI,0     DA(TW1000)        WRITE RECORD BEYOND EOT
     5676   03 00FB8    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5677   03 00FB9    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5678   03 00FBA    6AF01F72     T1ST3805 BAL,15   :ERRORT           TEST
     5679   03 00FBB    0000604C              DATA     BA(TSEQ020)       EOT SET
     5680   03 00FBC    68000FC0              B        T1ST3806
     5681                            *        ERROR EXIT EOT SHOULD BE SET
     5682   03 00FBD    EAF0021B A            BAL,15   *:ERROR           #3802
     5683   03 00FBE    00000EDA A            DATA     3802              INCORRECT BITS ON TEST
     5684   03 00FBF    3310199B              MTW,1    SPFLAG            ERROR +1
     5685   03 00FC0    6AF016DC     T1ST3806 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5686   03 00FC1    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5687   03 00FC2    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5688   03 00FC3    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5689   03 00FC4    6AF01F72              BAL,15   :ERRORT           TEST
     5690   03 00FC5    0000604C              DATA     BA(TSEQ020)       EOT SET
     5691   03 00FC6    68000FCA              B        T1ST3807
     5692                            *        ERROR EXIT EOT SHOULD BE SET
     5693   03 00FC7    EAF0021B A            BAL,15   *:ERROR           #3803
     5694   03 00FC8    00000EDB A            DATA     3803              INCORRECT BITS ON TEST
     5695   03 00FC9    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     5696   03 00FCA    6AF016DC     T1ST3807 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5697   03 00FCB    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5698   03 00FCC    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5699   03 00FCD    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5700   03 00FCE    6AF01F72     T1ST3808 BAL,15   :ERRORT           TEST
     5701   03 00FCF    00006050              DATA     BA(TSEQ021)       EOT RESET
     5702   03 00FD0    68000FD4              B        T1ST3808+6
     5703                            *        ERROR EXIT - EOT NOT RESET
     5704   03 00FD1    EAF0021B A            BAL,15   *:ERROR           #3804
     5705   03 00FD2    00000EDC A            DATA     3804              INCORRECT BITS ON TEST
     5706   03 00FD3    3310199B              MTW,1    SPFLAG            ERROR FLAG +1
     5707   03 00FD4    32F0199B              LW,15    SPFLAG
     5708   03 00FD5    68300FE1              BEZ      T1ST3809
     5709   03 00FD6    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5710   03 00FD7    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5711   03 00FD8    68000FDA              B        %+2               LOOP ON ERROR
     5712   03 00FD9    68000FE1              B        T1ST3809          CONTINUE
     5713   03 00FDA    22BFFFEC A            LI,11    -20               SPACE BACKWARD 20 RECORDS FOR RETRY
     5714   03 00FDB    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5715   03 00FDC    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5716   03 00FDD    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     5717   03 00FDE    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5718   03 00FDF    65B00FDB              BIR,11   %-4
     5719   03 00FE0    68000FA1              B        T1ST3802          GO RETRY EOT TEST
     5720   03 00FE1    6AF0169E     T1ST3809 BAL,15   RWTLP             REWIND TO LOAD POINT
     5721   03 00FE2    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     5722   03 00FE3    680003B0              B        :TIM              GO TO SEQUENCER
     5723                            *
     5724                            *
     5725                            *                                   TST1,39 MO OPERATION TEST
     5726                            *                                   ------------------------------------
     5727                            *                                                                      *
     5728                            *                                                                      *
     5729   03 00FE4    680003B0     :T1ST39  B        :TIM              GO TO SEQUENCER
     5730                            *
     5731                            *
     5732                            *
     5733                            *                                   TST1,40 OPERATOR CONTROL PANEL TEST
     5734                            *                                   ------------------------------------
     5735                            * THIS TEST WILL CHECK EVERY SWITCH ON THE OPERATOR CONTROL PANEL IN   *
     5736                            * THE SEQUENCE SPECIFIED BY THE PROGRAM AND VERIFY THE WRITE PROTECT   *
     5737                            * FEATURE                                                              *
     5738                            *                                                                      *
     5739                            *                                   OPERATOR INTERVENTION REQUIRED
     5740   03 00FE5    229FFFF8 A   :T1ST40  LI,9     -8
     5741   03 00FE6    6AF016F5              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     5742   03 00FE7    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     5743   03 00FE8    35F01A4D              STW,15   NOPKPRT
     5744   03 00FE9    3280195B              LW,8     :DEVADDR          SAVE DEVICE ADDRESS
     5745   03 00FEA    22700018 A            LI,7     24                24 WORDS TO COMPARE
     5746   03 00FEB    35701E68              STW,7    :COMWCNT
     5747   03 00FEC    32500008 A            LW,5     8
     5748   03 00FED    4B502167              AND,5    =X'0000FFF0'
     5749   03 00FEE    3550195B     T1ST4002 STW,5    :DEVADDR          CHANGE DEVICE DESIGNATION
     5750   03 00FEF    32C00005 A            LW,12    5
     5751   03 00FF0    EAF00218 A            BAL,15   *:HEXC            CONVERT FOR MESSAGE
     5752   03 00FF1    35F01B4E              STW,15   OPMESG7+4
     5753   03 00FF2    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     5754   03 00FF3    00001B4A              DATA     OPMESG7
     5755                            *        MESSAGE TO OPERATOR TO DESIGNATE UNIT 0(1,2,3,4,5,6,7)
     5756   03 00FF4    2E000000 A            WAIT
     5757   03 00FF5    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5758   03 00FF6    22000C37              LI,0     DA(WR96B)         WRITE 96 BYTES DEV 0,1,2,3,4,5,6,7
     5759   03 00FF7    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5760   03 00FF8    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5761   03 00FF9    6AF01F72     T1ST4003 BAL,15   :ERRORT           TEST
     5762   03 00FFA    00006014              DATA     BA(TSEQ011)       NO UE, BC=0, READY
     5763   03 00FFB    68001001              B        T1ST4004
     5764                            *        ERROR EXIT
     5765   03 00FFC    EAF0021B A            BAL,15   *:ERROR           #4001
     5766   03 00FFD    00000FA1 A            DATA     4001              INCORRECT BITS ON TEST
     5767   03 00FFE    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5768   03 00FFF    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5769   03 01000    68000FF5              B        T1ST4003-4        LOOP ON ERROR
     5770   03 01001    6AF016DC     T1ST4004 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5771   03 01002    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     5772   03 01003    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5773   03 01004    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5774   03 01005    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5775   03 01006    6AF01F72     T1ST4005 BAL,15   :ERRORT           TEST
     5776   03 01007    00006014              DATA     BA(TSEQ011)       READY AND NO UE
     5777   03 01008    6800100E              B        T1ST4007
     5778                            *        ERROR EXIT
     5779   03 01009    EAF0021B A            BAL,15   *:ERROR           #4002
     5780   03 0100A    00000FA2 A            DATA     4002              INCORRECT BITS ON TEST
     5781   03 0100B    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5782   03 0100C    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5783   03 0100D    68000FF5              B        T1ST4003-4        LOOP ON ERROR
     5784   03 0100E    6AF016DC     T1ST4007 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5785   03 0100F    6AF01D96              BAL,15   :CLEAR            CLEAR READ IN BUFFER
     5786   03 01010    22000C4D              LI,0     DA(RF96B)         READ FWD 96 BYTES
     5787   03 01011    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5788   03 01012    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5789   03 01013    6AF01F72     T1ST4008 BAL,15   :ERRORT           TEST
     5790   03 01014    00006008              DATA     BA(TSEQ010)       NO UE, BC=0, READY, NO INC LENGTH
     5791   03 01015    6800101B              B        T1ST4009
     5792                            *        ERROR EXIT
     5793   03 01016    EAF0021B A            BAL,15   *:ERROR           #4004
     5794   03 01017    00000FA4 A            DATA     4004              INCORRECT BITS ON TEST
     5795   03 01018    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5796   03 01019    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5797   03 0101A    6800101B              B        %+1               CANNOT LOOP ON THIS ERROR
     5798   03 0101B    6AF01DF5     T1ST4009 BAL,15   :COMPARE          COMPARE
     5799   03 0101C    68001022              B        T1ST4010
     5800                            *        INFORMATION ERROR
     5801   03 0101D    EAF0021B A            BAL,15   *:ERROR           #4005
     5802   03 0101E    00000FA5 A            DATA     4005              INCORRECT INFORMATION
     5803   03 0101F    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5804   03 01020    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5805   03 01021    68000FF5              B        T1ST4003-4        LOOP ON ERROR
     5806   03 01022    33100005 A   T1ST4010 MTW,1    5
     5807   03 01023    32700005 A            LW,7     5
     5808   03 01024    4B702168              AND,7    =X'0000000F'
     5809   03 01025    21700007 A            CI,7     7                 LAST DEVICE ADDRESS USED
     5810   03 01026    68200FEE              BLE      T1ST4002
     5811   03 01027    3580195B              STW,8    :DEVADDR          RESTORE UNIT DESIGNATION
     5812                            *        MESSAGE TO OPERATOR TO REMOVE WRITE RING MAKE CORRECT UNIT
     5813   03 01028    EAF0021C A   T1ST401A BAL,15   *:PRINT           MESSAGE TO OPERATOR             *B01
     5814   03 01029    00001AF8              DATA     OPMESG6
     5815   03 0102A    EAF0022B A            WAITPROC WAITMSG2          WAIT FOR OPERATOR               *B01
            03 0102B    00002131
     5816   03 0102C    6AF0169E     T1ST4011 BAL,15   RWTLP             REWIND TO LOAD POINT            *A01
     5817   03 0102D    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A01
     5818   03 0102E    22000C2A              LI,0     DA(TW100B)        WRITE 100 BYTES
     5819   03 0102F    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5820   03 01030    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5821   03 01031    6AF01F72     T1ST4012 BAL,15   :ERRORT           TEST
     5822   03 01032    00006070              DATA     BA(TSEQ026)       READY,UE,WRT PROTECT,LOAD POINT *A01
     5823   03 01033    68001039              B        T1ST4013
     5824                            *        ERROR EXIT
     5825   03 01034    EAF0021B A            BAL,15   *:ERROR           #4006
     5826   03 01035    00000FA6 A            DATA     4006              INCORRECT BITS ON TEST
     5827   03 01036    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5828   03 01037    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5829   03 01038    68001028              B        T1ST401A          LOOP ON ERROR                   *B01
     5830   03 01039    6AF016DC     T1ST4013 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5831   03 0103A    22000C27              LI,0     DA(TWTM3)         WRITE TAPE MARK CE AND UE
     5832   03 0103B    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO,SIO
     5833   03 0103C    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5834   03 0103D    6AF01F72     T1ST4014 BAL,15   :ERRORT           TEST
     5835   03 0103E    00006070              DATA     BA(TSEQ026)       READY,UE,WRT PROTECT,LOAD POINT *A01
     5836   03 0103F    68001045              B        T1ST4015
     5837                            *        ERROR EXIT
     5838   03 01040    EAF0021B A            BAL,15   *:ERROR           #4007
     5839   03 01041    00000FA7 A            DATA     4007              INCORRECT BITS ON TEST
     5840   03 01042    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5841   03 01043    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5842   03 01044    68001039              B        T1ST4013          LOOP ON ERROR
     5843   03 01045    22000C5F     T1ST4015 LI,0     DA(SF100)         SPACE FWD 1 RECORD              *A01
     5844   03 01046    6AF01D52              BAL,15   :IOEXEC                                           *A01
     5845   03 01047    EAF0021C A            BAL,15   *:PRINT           MESSAGE TO OPERATOR             *A01
     5846   03 01048    00001AD2              DATA     OPMESG5
     5847                            *        MESSAGE TO OPERATOR  RESET, ATTENTION, START TO GENERATE INT.
     5848   03 01049    EAF0022B A            WAITPROC WAITMSG2          WAIT FOR OPERATOR               *B01
            03 0104A    00002131
     5849   03 0104B    22E0012C A            LI,14    300               300 MS
     5850   03 0104C    6AF01ED4              BAL,15   :DELAY            DELAY
     5851   03 0104D    68001053              B        T1ST4016
     5852                            *        ERROR EXIT NO INTERRUPT RECIEVED
     5853   03 0104E    EAF0021B A            BAL,15   *:ERROR           #4008
     5854   03 0104F    00000FA8 A            DATA     4008              TIMEOUT ON SIO
     5855   03 01050    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5856   03 01051    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5857   03 01052    68001047              B        T1ST4015+2        LOOP ON ERROR                   *A01
     5858   03 01053    EAF0021C A   T1ST4016 BAL,15   *:PRINT           MESSAGE TO OPERATOR
     5859   03 01054    00001AC4              DATA     OPMESG3
     5860                            *        MESSAGE FOR OPERATOR TO MAKE UNIT READY, WRITE RING, UNIT OK
     5861   03 01055    EAF0022B A            WAITPROC WAITMSG2          WAIT FOR OPERATOR               *B01
            03 01056    00002131
     5862   03 01057    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5863   03 01058    22000C6E              LI,0     DA(TRWOF)         REWIND AND PUT OFFLINE (MANUAL)
     5864   03 01059    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     5865   03 0105A    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5866   03 0105B    6AF01F72     T1ST4017 BAL,15   :ERRORT           TEST
     5867   03 0105C    00006078              DATA     BA(TSEQ027)       DEVICE MANUAL, CONTROLLER READY
     5868   03 0105D    68001063              B        T1ST4018
     5869                            *        ERROR EXIT
     5870   03 0105E    EAF0021B A            BAL,15   *:ERROR           #4009
     5871   03 0105F    00000FA9 A            DATA     4009              INCORRECT BITS ON TEST
     5872   03 01060    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5873   03 01061    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5874   03 01062    68001057              B        T1ST4017-4        LOOP ON ERROR
     5875   03 01063    EAF0021C A   T1ST4018 BAL,15   *:PRINT           MESSAGE TO OPERATOR
     5876   03 01064    00001ACC              DATA     OPMESG4
     5877                            *        MESSAGE TO OPERATOR TO PUT DEVICE AUTOMATIC
     5878   03 01065    EAF0022B A            WAITPROC WAITMSG2          WAIT FOR OPERATOR               *B01
            03 01066    00002131
     5879   03 01067    6AF01F72              BAL,15   :ERRORT           TEST
     5880   03 01068    00005FE8              DATA     BA(TSEQ005)       LOAD POINT
     5881   03 01069    6800106F              B        T1ST4019
     5882                            *        ERROR EXIT
     5883   03 0106A    EAF0021B A            BAL,15   *:ERROR           #4010
     5884   03 0106B    00000FAA A            DATA     4010              INCORRECT BITS ON TEST
     5885   03 0106C    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5886   03 0106D    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     5887   03 0106E    68001063              B        T1ST4018
     5888                            *                                   DENSITY DIAL TEST
     5889   03 0106F    31101937     T1ST4019 CW,1     FL75IPS           75 IPS
     5890   03 01070    693010CC              BNE      T1ST4028
     5891   03 01071    22E01AEC              LI,14    ERMSG1
     5892   03 01072    35E01094              STW,14   T1ST4022
     5893   03 01073    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     5894   03 01074    68301077              BE       %+3
     5895   03 01075    22E01A59              LI,14    TOL8001
     5896   03 01076    68001078              B        %+2
     5897   03 01077    22E01A55              LI,14    TOL800            SET UP TOLERANCE
     5898   03 01078    55E2108D              STH,14   T1ST4021,1
     5899   03 01079    32E01A52              LW,14    OPP1              SET UP MESSAGE
     5900   03 0107A    35E0107C              STW,14   %+2
     5901   03 0107B    EAF0021C A   T1ST4020 BAL,15   *:PRINT
     5902   03 0107C    00001ADA              DATA     OPMESGA
     5903   03 0107D    EAF0022B A            WAITPROC WAITMSG2          WAIT FOR OPERATOR               *B01
            03 0107E    00002131
     5904   03 0107F    32E01947              LW,14    CLOCK
     5905   03 01080    35E00055 A            STW,14   X'55'             CHANGE CLOCK INTERRUPT.
     5906   03 01081    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5907   03 01082    22000C33              LI,0     DA(TW1000)        WRITE 1000 BYTES
     5908   03 01083    22F01040 A            LI,15    X'1040'           ARM AND ENABLE CLOCK
     5909   03 01084    6DF01200 A            WD,15    X'1200'
     5910   03 01085    22800000 A            LI,8     0
     5911   03 01086    CCA0195B              SIO,10   *:DEVADDR         SIO
     5912   03 01087    46700008 A            XW,7     8
     5913   03 01088    32F01F54              LW,15    :INTRECF          INTERRUPT FLAG
     5914   03 01089    68301088              BCR,3    %-1
     5915   03 0108A    46800007 A            XW,8     7                 R8 HAS TALLY
     5916   03 0108B    22F01040 A            LI,15    X'1040'           DISARM INTERRUPT
     5917   03 0108C    6DF01100 A            WD,15    X'1100'
     5918   03 0108D    31801A55     T1ST4021 CW,8     TOL800            800,556,200 TOLERANCE
     5919   03 0108E    69201091              BG       T1ST4022-3        ERROR
     5920   03 0108F    B182108D              CW,8     *T1ST4021,1
     5921   03 01090    68101098              BGE      T1ST4023
     5922                            *        ERROR EXIT
     5923   03 01091    EAF0021B A            BAL,15   *:ERROR           4013
     5924   03 01092    00000FAD A            DATA     4013              NOT CORRECT DENSITY
     5925   03 01093    EAF0021C A            BAL,15   *:PRINT
     5926   03 01094    00001AEC     T1ST4022 DATA     ERMSG1
     5927   03 01095    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5928   03 01096    2E000000 A            WAIT
     5929   03 01097    6800107B              B        T1ST4020          LOOP ON ERROR
     5930   03 01098    32801EF1     T1ST4023 LW,8     :DELMTW           RESTORE CLOCK
     5931   03 01099    35800055 A            STW,8    X'55'
     5932   03 0109A    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5933   03 0109B    22000C37              LI,0     DA(WR96B)         WRITE 96 BYTES
     5934   03 0109C    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5935   03 0109D    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5936   03 0109E    6AF01F72              BAL,15   :ERRORT           TEST
     5937   03 0109F    00006014              DATA     BA(TSEQ011)       NO UE, BC=0, READY
     5938   03 010A0    680010A6              B        T1ST4024
     5939                            *        ERROR EXIT
     5940   03 010A1    EAF0021B A            BAL,15   *:ERROR           4014
     5941   03 010A2    00000FAE A            DATA     4014              INCORRECT BITS IN TEST
     5942   03 010A3    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5943   03 010A4    2E000000 A            WAIT
     5944   03 010A5    6800109A              B        T1ST4023+2
     5945   03 010A6    6AF016DC     T1ST4024 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5946   03 010A7    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     5947   03 010A8    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5948   03 010A9    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5949   03 010AA    6AF01F72              BAL,15   :ERRORT           TEST
     5950   03 010AB    00006014              DATA     BA(TSEQ011)       READY AND NO UE
     5951   03 010AC    680010B2              B        T1ST4025
     5952                            *        ERROR EXIT
     5953   03 010AD    EAF0021B A            BAL,15   *:ERROR           4015
     5954   03 010AE    00000FAF A            DATA     4015              INCORRECT BITS IN TEST
     5955   03 010AF    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5956   03 010B0    2E000000 A            WAIT
     5957   03 010B1    6800109A              B        T1ST4023+2        LOOP ON ERROR
     5958   03 010B2    6AF01D96     T1ST4025 BAL,15   :CLEAR            CLEARAREA
     5959   03 010B3    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5960   03 010B4    22000C4D              LI,0     DA(RF96B)         READ FWD 96 BYTES
     5961   03 010B5    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     5962   03 010B6    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     5963   03 010B7    6AF01F72              BAL,15   :ERRORT           TEST
     5964   03 010B8    00006008              DATA     BA(TSEQ010)       NO UE, BC=0, NO INC LENGTH
     5965   03 010B9    680010BF              B        T1ST4026
     5966                            *        ERROR EXIT
     5967   03 010BA    EAF0021B A            BAL,15   *:ERROR           4016
     5968   03 010BB    00000FB0 A            DATA     4016              INCORRECT BITS IN TEST
     5969   03 010BC    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5970   03 010BD    2E000000 A            WAIT
     5971   03 010BE    680010BF              B        %+1               CANT LOOP IN TEST
     5972   03 010BF    6AF01DF5     T1ST4026 BAL,15   :COMPARE          COMPARE INFORMATION
     5973   03 010C0    680010C6              B        T1ST4027
     5974                            *        INFORMATION ERROR
     5975   03 010C1    EAF0021B A            BAL,15   *:ERROR           4017
     5976   03 010C2    00000FB1 A            DATA     4017              INFORMATION ERROR
     5977   03 010C3    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     5978   03 010C4    2E000000 A            WAIT
     5979   03 010C5    6800109A              B        T1ST4023+2        LOOP ON ERROR
     5980   03 010C6    3360107C     T1ST4027 MTW,6    T1ST4020+1        CHANGE MESSAGE
     5981   03 010C7    33401094              MTW,4    T1ST4022
     5982   03 010C8    3310108D              MTW,1    T1ST4021          CHANGE TOLERANCE
     5983   03 010C9    22901AF8              LI,9     ERMSG3+4          DO 200, 556, 800 BPI
     5984   03 010CA    51921094              CH,9     T1ST4022,1
     5985   03 010CB    6920107B              BG       T1ST4020
     5986   03 010CC    6AF016E4     T1ST4028 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     5987   03 010CD    680003B0              B        :TIM              GO TO SEQUENCER
     5988                            *
     5989                            *
     5990                            *                                   TST1,41 NO OPERATION TEST
     5991                            *                                   ------------------------------------
     5992                            *
     5993   03 010CE    680003B0     :T1ST41  B        :TIM              GO TO SEQUENCER
     5994                            *
     5995                            *
     5996                            *
     5997                            *
     5998                            *                                   TST2 RANDOM EXERCISER
     5999                            *                                   ------------------------------------
     6000                            *                    THIS TEST PROVIDES A MEANS OF OPERATING A MAGNETIC*
     6001                            *                    TAPE SYSTEM WITH PSEUDO-RANDOM OPERATION, ORDER   *
     6002                            *                    SEQUENCE, DATA PATTERN, I/O AREA, TIME DELAY, AND *
     6003                            *                    RECORD SIZE FOR THE PURPOSE OF DETECTING INTERMIT-*
     6004                            *                    TENT FAILURES AND EXERCISING ALL TAPE UNITS.      *
     6005                            *                                                                      *
     6006                            *                    THE RANDOM EXERCISER TEST WILL REPORT ERRORS AS   *
     6007                            *                    THEY OCCUR, BUT ONLY AS TO THE FUNCTION THAT      *
     6008                            *                    FAILED. NO ERROR LOOPING IS PROVIDED EXCEPT FOR   *
     6009                            *                    LIMITED RETRIES.                                  *
     6010                            *
     6011                            *                               D1 =NUMBER OF CYCLES, SET TO 1000 IF 0.*
     6012                            *                               D2 =NUMBER OF ERROR RETRIES.           *
     6013                            *                                                                      *
     6014                            *  FROM THE RANDOM SEED THE FOLLOWING MASKS ARE USED TO GET TYPE OF    *
     6015                            *  OPERATION, WORD SIZE OF RECORD, AND TIME DELAY IN MILLISECONDS      *
     6016                            *        X'00003FF0' TO GET RANDOM RECORD WORD SIZE                    *
     6017                            *        X'001F0000' TO GET RANDOM TIME DELAY IN MILLISECONDS          *
     6018                            *        X'0000000F' TO GET RANDOM OPERATION SET                       *
     6019                            *                0  WRITE,WRITE,WRITE,WRITE,WRITE                      *
     6020                            *                1  WRITE,WRITE,WRITE,WRITE,SPACE BKW                  *
     6021                            *                2  WRITE,WRITE,WRITE,SPACE BKW,SPACE BKW              *
     6022                            *                3  WRITE,WRITE,WRITE,SPACE BKW,READ FWD               *
     6023                            *                4  WRITE,WRITE,SPACE BKW,READ FWD,SPACE BKW           *
     6024                            *                5  WRITE,WRITE,SPACE BKW,SPACE BKW,READ FWD           *
     6025                            *                6  WRITE,WRITE,SPACE BKW,SPACE BKW,SPACE FWD          *
     6026                            *                7  WRITE,SPACE BKW,READ FWD,WRITE,WRITE               *
     6027                            *                8  WRITE,SPACE BKW,READ FWD,WRITE,SPACE BKW           *
     6028                            *                9  WRITE,SPACE BKW,WRITE,SPACE BKW,READ FWD           *
     6029                            *                A  WRITE,SPACE BKW,READ FWD,SPACE BKW,WRITE           *
     6030                            *                B  WRITE,SPACE BKW,READ FWD,SPACE BKW,READ FWD        *
     6031                            *                C  WRITE,SPACE BKW,SPACE FWD,WRITE,WRITE              *
     6032                            *                D  WRITE,SPACE BKW,WRITE,SPACE BKW,SPACE FWD          *
     6033                            *                E  WRITE,SPACE BKW,READ FWD,SPACE BKW,READ FWD        *
     6034                            *                F  WRITE,SPACE BKW,SPACE FWD,SPACE BKW,READ FWD       *
     6035                            *                                                                      *
     6036                            *                                                                      *
     6037   03 010CF    32C02169     T2RE     LW,12    =X'12B9B0A1'      M1
     6038   03 010D0    32D0216A              LW,13    =X'1033C4D7'      M2
     6039   03 010D1    32E0216B              LW,14    =X'544B2FBA'      SEED
     6040   03 010D2    6AF01D85              BAL,15   :RANDOMY          1ST RANDOM SEED ALWAYS THE SAME
     6041   03 010D3    2260110D              LI,6     T2RE02            SET UP EOT
     6042   03 010D4    55621258              STH,6    T2RE06C,1
     6043   03 010D5    55621285              STH,6    T2RE15B,1                                         *B01
     6044   03 010D6    5562129F              STH,6    T2RE17F,1                                         *B01
     6045   03 010D7    22600000 A            LI,6     0                 CLEAR TALLY
     6046   03 010D8    35601999              STW,6    NZFLAG            SET RE FLAG
     6047   03 010D9    3510192B              STW,1    LOOPTLY           SET FIRST LOOP TO 1
     6048   03 010DA    35601944              STW,6    REWONLY           RESET FLAG TO REWIND UNITS
     6049   03 010DB    227FFFE0 A            LI,7     -32
     6050   03 010DC    356E192A              STW,6    TWTALLY+32,7      CLEAR TALLY
     6051   03 010DD    657010DC              BIR,7    %-1
     6052   03 010DE    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     6053   03 010DF    35F01A4D              STW,15   NOPKPRT
     6054   03 010E0    680010E2              B        T2RE01+1
     6055   03 010E1    6AF01D88     T2RE01   BAL,15   :RANDOMX          RANDOM SEED RETURNS IN R14
     6056   03 010E2    35E0194E              STW,14   SAVESEED          SAVE SEED FOR NEXT PASS
     6057   03 010E3    35E0000D A            STW,14   13                SEED IN R14 AND R13
     6058   03 010E4    4BD02168     T2RE01A  AND,13   =X'0000000F'      GET RANDOM OPERATION SET
     6059   03 010E5    35D0192F              STW,13   OPFLAG
     6060   03 010E6    35E0000D A            STW,14   13
     6061   03 010E7    25D0007C A            SLS,13   -4
     6062   03 010E8    4BD0216C              AND,13   =X'000003FF'      GET RANDOM WORD SIZE
     6063   03 010E9    693010EB              BNEZ     T2RE01B
     6064   03 010EA    20D00001 A            AI,13    1                 DO AT LEAST 1 WORD
     6065   03 010EB    35D0194F     T2RE01B  STW,13   REWORDS
     6066   03 010EC    35D01E68              STW,13   :COMWCNT          COMPARE WORD COUNT
     6067   03 010ED    35D01DA2              STW,13   :CLRSIZE          CLEAR BUFFER WORD COUNT
     6068   03 010EE    35D01DE9              STW,13   :PATWC            SPREAD PATTERN SIZE
     6069   03 010EF    25D00002 A            SLS,13   2                 GET BYTE COUNT
     6070   03 010F0    55D2186B              STH,13   WRRAND+1,1        WRITE
     6071   03 010F1    55D21897              STH,13   RFRAND+1,1        READ FWD
     6072   03 010F2    32F02136              LW,15    BUFF2
     6073   03 010F3    35F01DA1              STW,15   :CLRADDR          CLEAR ADDRESS
     6074   03 010F4    35E0000D A            STW,14   13
     6075   03 010F5    25D00070 A            SLS,13   -16
     6076   03 010F6    4BD0216D              AND,13   =X'0000001F'
     6077   03 010F7    35D01931              STW,13   RETIME            RANDOM TIME DELAY 0 - 1023 MS
     6078   03 010F8    35201DE6              STW,2    :PATID            SET UP RANDOM PATTERNED AREA
     6079   03 010F9    35E01DE7              STW,14   :PATID+1
     6080   03 010FA    22C02182              LI,12    WA(BUFF1)
     6081   03 010FB    35C01DEA              STW,12   :PATBFR           RANDOM PATTERN
     6082   03 010FC    35C01E69              STW,12   :COMBFRA          COMPARE EXPECTED BUFFER
     6083   03 010FD    32C02136              LW,12    BUFF2
     6084   03 010FE    35C01E6A              STW,12   :COMBFRB          COMPARE OBSERVED PATTERN
     6085   03 010FF    22C00000 A            LI,12    0
     6086   03 01100    35C01E6B              STW,12   :COMFLAG          ERROR PRINTOUT
     6087   03 01101    6AF01DA7              BAL,15   :PATTERN          SMEAR PATTERN
     6088   03 01102    31101A74              CW,1     MODEFLAG          PACKED BINARY
     6089   03 01103    6830110B              BE       T2RE02-2
     6090                            *                                   NO PACKED BINARY STD OR OPTION
     6091   03 01104    32C01E68              LW,12    :COMWCNT          NUMBER OF WORDS
     6092   03 01105    22D02182              LI,13    BUFF1
     6093   03 01106    B2E0000D A   T2RE01C  LW,14    *13
     6094   03 01107    4BE02157              AND,14   =X'3F3F3F3F'      MASK FOR BINARY
     6095   03 01108    B5E0000D A            STW,14   *13
     6096   03 01109    3310000D A            MTW,1    13
     6097   03 0110A    64C01106              BDR,12   T2RE01C           MASK ALL WORDS
     6098                            *
     6099                            *
     6100   03 0110B    31101944              CW,1     REWONLY           REWIND UNIT
     6101   03 0110C    68301114              BE       T2RE04+3
     6102   03 0110D    6AF016EC     T2RE02   BAL,15   DOALL             DO ALL UNITS
     6103   03 0110E    68001110              B        T2RE03+1
     6104   03 0110F    6AF016EE     T2RE03   BAL,15   DOALL1            SET UP 1 UNIT
     6105   03 01110    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     6106   03 01111    20700001 A   T2RE04   AI,7     1                 DO NEXT UNIT
     6107   03 01112    6550110F              BIR,5    T2RE03            DO ALL UNITS
     6108   03 01113    35101944              STW,1    REWONLY           SET NO REWIND FLAG
     6109                            *
     6110                            *
     6111   03 01114    3240192F              LW,4     OPFLAG            SET OF OPERATIONS
     6112   03 01115    68301126              BEZ      T2RE050           OP =0
     6113   03 01116    68081116              B        %,4
     6114   03 01117    68001136              B        T2RE051           OP =1
     6115   03 01118    68001146              B        T2RE052           OP =2
     6116   03 01119    68001156              B        T2RE053           OP =3
     6117   03 0111A    68001166              B        T2RE054           OP =4
     6118   03 0111B    68001176              B        T2RE055           OP =5
     6119   03 0111C    68001186              B        T2RE056           OP =6
     6120   03 0111D    68001196              B        T2RE057           OP =7
     6121   03 0111E    680011A6              B        T2RE058           OP =8
     6122   03 0111F    680011B6              B        T2RE059           OP =9
     6123   03 01120    680011C6              B        T2RE05A           OP =A
     6124   03 01121    680011D6              B        T2RE05B           OP =B
     6125   03 01122    680011E6              B        T2RE05C           OP =C
     6126   03 01123    680011F6              B        T2RE05D           OP =D
     6127   03 01124    68001206              B        T2RE05E           OP =E
     6128   03 01125    68001216              B        T2RE05F           OP =F
     6129                            *
     6130                            *
     6131                            *
     6132                            *
     6133   03 01126    22401129     T2RE050  LI,4     %+3               RETURN ADDRESS
     6134   03 01127    55421269              STH,4    T2REWR,1
     6135   03 01128    6800124E              B        T2REW             WRITE A RECORD
     6136   03 01129    2240112C              LI,4     %+3
     6137   03 0112A    55421269              STH,4    T2REWR,1
     6138   03 0112B    6800124E              B        T2REW             WRITE A RECORD
     6139   03 0112C    2240112F              LI,4     %+3
     6140   03 0112D    55421269              STH,4    T2REWR,1
     6141   03 0112E    6800124E              B        T2REW             WRITE A RECORD
     6142   03 0112F    22401132              LI,4     %+3
     6143   03 01130    55421269              STH,4    T2REWR,1
     6144   03 01131    6800124E              B        T2REW             WRITE A RECORD
     6145   03 01132    22401135              LI,4     %+3
     6146   03 01133    55421269              STH,4    T2REWR,1
     6147   03 01134    6800124E              B        T2REW             WRITE A RECORD
     6148   03 01135    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6149                            *
     6150   03 01136    22401139     T2RE051  LI,4     %+3               RETURN ADDRESS
     6151   03 01137    55421269              STH,4    T2REWR,1
     6152   03 01138    6800124E              B        T2REW             WRITE A RECORD
     6153   03 01139    2240113C              LI,4     %+3
     6154   03 0113A    55421269              STH,4    T2REWR,1
     6155   03 0113B    6800124E              B        T2REW             WRITE A RECORD
     6156   03 0113C    2240113F              LI,4     %+3
     6157   03 0113D    55421269              STH,4    T2REWR,1
     6158   03 0113E    6800124E              B        T2REW             WRITE A RECORD
     6159   03 0113F    22401142              LI,4     %+3
     6160   03 01140    55421269              STH,4    T2REWR,1
     6161   03 01141    6800124E              B        T2REW             WRITE A RECORD
     6162   03 01142    22401145              LI,4     %+3
     6163   03 01143    5542127A              STH,4    T2RESBR,1
     6164   03 01144    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6165   03 01145    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6166                            *
     6167   03 01146    22401149     T2RE052  LI,4     %+3               RETURN ADDRESS
     6168   03 01147    55421269              STH,4    T2REWR,1
     6169   03 01148    6800124E              B        T2REW             WRITE A RECORD
     6170   03 01149    2240114C              LI,4     %+3
     6171   03 0114A    55421269              STH,4    T2REWR,1
     6172   03 0114B    6800124E              B        T2REW             WRITE A RECORD
     6173   03 0114C    2240114F              LI,4     %+3
     6174   03 0114D    55421269              STH,4    T2REWR,1
     6175   03 0114E    6800124E              B        T2REW             WRITE A RECORD
     6176   03 0114F    22401152              LI,4     %+3
     6177   03 01150    5542127A              STH,4    T2RESBR,1
     6178   03 01151    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6179   03 01152    22401155              LI,4     %+3
     6180   03 01153    5542127A              STH,4    T2RESBR,1
     6181   03 01154    6800126A              B        T2RESB            SPACE RECORD BKW
     6182   03 01155    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6183                            *
     6184   03 01156    22401159     T2RE053  LI,4     %+3               RETURN ADDRESS
     6185   03 01157    55421269              STH,4    T2REWR,1
     6186   03 01158    6800124E              B        T2REW             WRITE A RECORD
     6187   03 01159    2240115C              LI,4     %+3
     6188   03 0115A    55421269              STH,4    T2REWR,1
     6189   03 0115B    6800124E              B        T2REW             WRITE A RECORD
     6190   03 0115C    2240115F              LI,4     %+3
     6191   03 0115D    55421269              STH,4    T2REWR,1
     6192   03 0115E    6800124E              B        T2REW             WRITE A RECORD
     6193   03 0115F    22401162              LI,4     %+3
     6194   03 01160    5542127A              STH,4    T2RESBR,1
     6195   03 01161    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6196   03 01162    22401165              LI,4     %+3
     6197   03 01163    554212BA              STH,4    T2RERFR,1
     6198   03 01164    68001294              B        T2RERF            READ RECORD FWD
     6199   03 01165    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6200                            *
     6201   03 01166    22401169     T2RE054  LI,4     %+3               RETURN ADDRESS
     6202   03 01167    55421269              STH,4    T2REWR,1
     6203   03 01168    6800124E              B        T2REW             WRITE A RECORD
     6204   03 01169    2240116C              LI,4     %+3
     6205   03 0116A    55421269              STH,4    T2REWR,1
     6206   03 0116B    6800124E              B        T2REW             WRITE A RECORD
     6207   03 0116C    2240116F              LI,4     %+3
     6208   03 0116D    5542127A              STH,4    T2RESBR,1
     6209   03 0116E    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6210   03 0116F    22401172              LI,4     %+3
     6211   03 01170    554212BA              STH,4    T2RERFR,1
     6212   03 01171    68001294              B        T2RERF            READ RECORD FWD
     6213   03 01172    22401175              LI,4     %+3
     6214   03 01173    5542127A              STH,4    T2RESBR,1
     6215   03 01174    6800126A              B        T2RESB            SPACE RECORD BKW
     6216   03 01175    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6217                            *
     6218   03 01176    22401179     T2RE055  LI,4     %+3               RETURN ADDRESS
     6219   03 01177    55421269              STH,4    T2REWR,1
     6220   03 01178    6800124E              B        T2REW             WRITE A RECORD
     6221   03 01179    2240117C              LI,4     %+3
     6222   03 0117A    55421269              STH,4    T2REWR,1
     6223   03 0117B    6800124E              B        T2REW             WRITE A RECORD
     6224   03 0117C    2240117F              LI,4     %+3
     6225   03 0117D    5542127A              STH,4    T2RESBR,1
     6226   03 0117E    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6227   03 0117F    22401182              LI,4     %+3
     6228   03 01180    5542127A              STH,4    T2RESBR,1
     6229   03 01181    6800126A              B        T2RESB            SPACE RECORD BKW
     6230   03 01182    22401185              LI,4     %+3
     6231   03 01183    554212BA              STH,4    T2RERFR,1
     6232   03 01184    68001294              B        T2RERF            READ RECORD FWD
     6233   03 01185    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6234                            *
     6235   03 01186    22401189     T2RE056  LI,4     %+3               RETURN ADDRESS
     6236   03 01187    55421269              STH,4    T2REWR,1
     6237   03 01188    6800124E              B        T2REW             WRITE A RECORD
     6238   03 01189    2240118C              LI,4     %+3
     6239   03 0118A    55421269              STH,4    T2REWR,1
     6240   03 0118B    6800124E              B        T2REW             WRITE A RECORD
     6241   03 0118C    2240118F              LI,4     %+3
     6242   03 0118D    5542127A              STH,4    T2RESBR,1
     6243   03 0118E    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6244   03 0118F    22401192              LI,4     %+3
     6245   03 01190    5542127A              STH,4    T2RESBR,1
     6246   03 01191    6800126A              B        T2RESB            SPACE RECORD BKW
     6247   03 01192    22401195              LI,4     %+3
     6248   03 01193    55421293              STH,4    T2RESFR,1
     6249   03 01194    6800127B              B        T2RESF            SPACE FWD OVER RECORD
     6250   03 01195    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6251                            *
     6252   03 01196    22401199     T2RE057  LI,4     %+3               RETURN ADDRESS
     6253   03 01197    55421269              STH,4    T2REWR,1
     6254   03 01198    6800124E              B        T2REW             WRITE A RECORD
     6255   03 01199    2240119C              LI,4     %+3
     6256   03 0119A    5542127A              STH,4    T2RESBR,1
     6257   03 0119B    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6258   03 0119C    2240119F              LI,4     %+3
     6259   03 0119D    554212BA              STH,4    T2RERFR,1
     6260   03 0119E    68001294              B        T2RERF            READ RECORD FWD
     6261   03 0119F    224011A2              LI,4     %+3
     6262   03 011A0    55421269              STH,4    T2REWR,1
     6263   03 011A1    6800124E              B        T2REW             WRITE A RECORD
     6264   03 011A2    224011A5              LI,4     %+3
     6265   03 011A3    55421269              STH,4    T2REWR,1
     6266   03 011A4    6800124E              B        T2REW             WRITE A RECORD
     6267   03 011A5    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6268                            *
     6269   03 011A6    224011A9     T2RE058  LI,4     %+3               RETURN ADDRESS
     6270   03 011A7    55421269              STH,4    T2REWR,1
     6271   03 011A8    6800124E              B        T2REW             WRITE A RECORD
     6272   03 011A9    224011AC              LI,4     %+3
     6273   03 011AA    5542127A              STH,4    T2RESBR,1
     6274   03 011AB    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6275   03 011AC    224011AF              LI,4     %+3
     6276   03 011AD    554212BA              STH,4    T2RERFR,1
     6277   03 011AE    68001294              B        T2RERF            READ RECORD FWD
     6278   03 011AF    224011B2              LI,4     %+3
     6279   03 011B0    55421269              STH,4    T2REWR,1
     6280   03 011B1    6800124E              B        T2REW             WRITE A RECORD
     6281   03 011B2    224011B5              LI,4     %+3
     6282   03 011B3    5542127A              STH,4    T2RESBR,1
     6283   03 011B4    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6284   03 011B5    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6285                            *
     6286   03 011B6    224011B9     T2RE059  LI,4     %+3               RETURN ADDRESS
     6287   03 011B7    55421269              STH,4    T2REWR,1
     6288   03 011B8    6800124E              B        T2REW             WRITE A RECORD
     6289   03 011B9    224011BC              LI,4     %+3
     6290   03 011BA    5542127A              STH,4    T2RESBR,1
     6291   03 011BB    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6292   03 011BC    224011BF              LI,4     %+3
     6293   03 011BD    55421269              STH,4    T2REWR,1
     6294   03 011BE    6800124E              B        T2REW             WRITE A RECORD
     6295   03 011BF    224011C2              LI,4     %+3
     6296   03 011C0    5542127A              STH,4    T2RESBR,1
     6297   03 011C1    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6298   03 011C2    224011C5              LI,4     %+3
     6299   03 011C3    554212BA              STH,4    T2RERFR,1
     6300   03 011C4    68001294              B        T2RERF            READ RECORD FWD
     6301   03 011C5    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6302                            *
     6303   03 011C6    224011C9     T2RE05A  LI,4     %+3               RETURN ADDRESS
     6304   03 011C7    55421269              STH,4    T2REWR,1
     6305   03 011C8    6800124E              B        T2REW             WRITE A RECORD
     6306   03 011C9    224011CC              LI,4     %+3
     6307   03 011CA    5542127A              STH,4    T2RESBR,1
     6308   03 011CB    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6309   03 011CC    224011CF              LI,4     %+3
     6310   03 011CD    554212BA              STH,4    T2RERFR,1
     6311   03 011CE    68001294              B        T2RERF            READ RECORD FWD
     6312   03 011CF    224011D2              LI,4     %+3
     6313   03 011D0    5542127A              STH,4    T2RESBR,1
     6314   03 011D1    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6315   03 011D2    224011D5              LI,4     %+3
     6316   03 011D3    55421269              STH,4    T2REWR,1
     6317   03 011D4    6800124E              B        T2REW             WRITE A RECORD
     6318   03 011D5    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6319                            *
     6320   03 011D6    224011D9     T2RE05B  LI,4     %+3               RETURN ADDRESS
     6321   03 011D7    55421269              STH,4    T2REWR,1
     6322   03 011D8    6800124E              B        T2REW             WRITE A RECORD
     6323   03 011D9    224011DC              LI,4     %+3
     6324   03 011DA    5542127A              STH,4    T2RESBR,1
     6325   03 011DB    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6326   03 011DC    224011DF              LI,4     %+3
     6327   03 011DD    554212BA              STH,4    T2RERFR,1
     6328   03 011DE    68001294              B        T2RERF            READ RECORD FWD
     6329   03 011DF    224011E2              LI,4     %+3
     6330   03 011E0    5542127A              STH,4    T2RESBR,1
     6331   03 011E1    6800126A              B        T2RESB            SPACE RECORD BKW
     6332   03 011E2    224011E5              LI,4     %+3
     6333   03 011E3    554212BA              STH,4    T2RERFR,1
     6334   03 011E4    68001294              B        T2RERF            READ RECORD FWD
     6335   03 011E5    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6336                            *
     6337   03 011E6    224011E9     T2RE05C  LI,4     %+3               RETURN ADDRESS
     6338   03 011E7    55421269              STH,4    T2REWR,1
     6339   03 011E8    6800124E              B        T2REW             WRITE A RECORD
     6340   03 011E9    224011EC              LI,4     %+3
     6341   03 011EA    5542127A              STH,4    T2RESBR,1
     6342   03 011EB    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6343   03 011EC    224011EF              LI,4     %+3
     6344   03 011ED    55421293              STH,4    T2RESFR,1
     6345   03 011EE    6800127B              B        T2RESF            SPACE FWD OVER RECORD
     6346   03 011EF    224011F2              LI,4     %+3
     6347   03 011F0    55421269              STH,4    T2REWR,1
     6348   03 011F1    6800124E              B        T2REW             WRITE A RECORD
     6349   03 011F2    224011F5              LI,4     %+3
     6350   03 011F3    55421269              STH,4    T2REWR,1
     6351   03 011F4    6800124E              B        T2REW             WRITE A RECORD
     6352   03 011F5    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6353                            *
     6354   03 011F6    224011F9     T2RE05D  LI,4     %+3               RETURN ADDRESS
     6355   03 011F7    55421269              STH,4    T2REWR,1
     6356   03 011F8    6800124E              B        T2REW             WRITE A RECORD
     6357   03 011F9    224011FC              LI,4     %+3
     6358   03 011FA    5542127A              STH,4    T2RESBR,1
     6359   03 011FB    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6360   03 011FC    224011FF              LI,4     %+3
     6361   03 011FD    55421269              STH,4    T2REWR,1
     6362   03 011FE    6800124E              B        T2REW             WRITE A RECORD
     6363   03 011FF    22401202              LI,4     %+3
     6364   03 01200    5542127A              STH,4    T2RESBR,1
     6365   03 01201    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6366   03 01202    22401205              LI,4     %+3
     6367   03 01203    55421293              STH,4    T2RESFR,1
     6368   03 01204    6800127B              B        T2RESF            SPACE FWD OVER RECORD
     6369   03 01205    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6370                            *
     6371   03 01206    22401209     T2RE05E  LI,4     %+3               RETURN ADDRESS
     6372   03 01207    55421269              STH,4    T2REWR,1
     6373   03 01208    6800124E              B        T2REW             WRITE A RECORD
     6374   03 01209    2240120C              LI,4     %+3
     6375   03 0120A    5542127A              STH,4    T2RESBR,1
     6376   03 0120B    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6377   03 0120C    2240120F              LI,4     %+3
     6378   03 0120D    554212BA              STH,4    T2RERFR,1
     6379   03 0120E    68001294              B        T2RERF            READ RECORD FWD
     6380   03 0120F    22401212              LI,4     %+3
     6381   03 01210    5542127A              STH,4    T2RESBR,1
     6382   03 01211    6800126A              B        T2RESB            SPACE RECORD BKW
     6383   03 01212    22401215              LI,4     %+3
     6384   03 01213    554212BA              STH,4    T2RERFR,1
     6385   03 01214    68001294              B        T2RERF            READ RECORD FWD
     6386   03 01215    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6387                            *
     6388   03 01216    22401219     T2RE05F  LI,4     %+3               RETURN ADDRESS
     6389   03 01217    55421269              STH,4    T2REWR,1
     6390   03 01218    6800124E              B        T2REW             WRITE A RECORD
     6391   03 01219    2240121C              LI,4     %+3
     6392   03 0121A    5542127A              STH,4    T2RESBR,1
     6393   03 0121B    6800126A              B        T2RESB            SPACE RECORD BKW
     6394   03 0121C    2240121F              LI,4     %+3
     6395   03 0121D    55421293              STH,4    T2RESFR,1
     6396   03 0121E    6800127B              B        T2RESF            SPACE RECORD FWD
     6397   03 0121F    22401222              LI,4     %+3
     6398   03 01220    5542127A              STH,4    T2RESBR,1
     6399   03 01221    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     6400   03 01222    22401225              LI,4     %+3
     6401   03 01223    554212BA              STH,4    T2RERFR,1
     6402   03 01224    68001294              B        T2RERF            READ RECORD FWD
     6403   03 01225    68001226              B        T2RE60A           GO TO TALLY AND NEW SET
     6404                            *
     6405                            *
     6406   03 01226    68001227     T2RE60A  B        %+1               INCREMENT TALLY AND GO TO NEXT SET
     6407   03 01227    22E00000 A            LI,14    0
     6408   03 01228    35E01F54              STW,14   :INTRECF          CLEAR INTERRUPT FLAG
     6409   03 01229    32E01931              LW,14    RETIME            RANDOM DELAY TIME
     6410   03 0122A    6AF01ED4              BAL,15   :DELAY            DELAY
     6411   03 0122B    6800122C              B        %+1
     6412   03 0122C    3310192B              MTW,1    LOOPTLY           TALLY OF PASSES +1
     6413   03 0122D    3260192B              LW,6     LOOPTLY
     6414   03 0122E    3160192E              CW,6     NMLOOP
     6415   03 0122F    682010E1              BLE      T2RE01
     6416   03 01230    3260192D              LW,6     CRTRY             NUMBER OF RETRIES
     6417   03 01231    68201247              BLE      T2RE60C-2         NO RETRIES NO PRINTOUT
     6418   03 01232    22700000 A   T2RE60B  LI,7     0                 PRINTOUT ERROR TALLIES
     6419   03 01233    3A501964              LCW,5    SAVNUMB           NUMBER OF DEVICES
     6420   03 01234    32CE195C              LW,12    SAVDEV,7          DEVICE
     6421   03 01235    EAF00218 A            BAL,15   *:HEXC            CONVERT
     6422   03 01236    35F01B84              STW,15   REMESG3+2
     6423   03 01237    32CE1912              LW,12    PWTALLY,7         PERM WRITE ERROR TALLY
     6424   03 01238    EAF00217 A            BAL,15   *:DECC            CONVERT
     6425   03 01239    35F01B89              STW,15   REMESG3+7                                         *A01
     6426   03 0123A    32CE190A              LW,12    TWTALLY,7         TEMP WRITE ERROR TALLY
     6427   03 0123B    EAF00217 A            BAL,15   *:DECC            CONVERT
     6428   03 0123C    35F01B8E              STW,15   REMESG3+12                                        *A01
     6429   03 0123D    32CE191A              LW,12    PRFTALLY,7        PERM READ FWD ERROR TALLY
     6430   03 0123E    EAF00217 A            BAL,15   *:DECC            CONVERT
     6431   03 0123F    35F01B93              STW,15   REMESG3+17                                        *A01
     6432   03 01240    32CE1922              LW,12    TRFTALLY,7        TEMP READ FWD ERROR TALLY
     6433   03 01241    EAF00217 A            BAL,15   *:DECC            CONVERT
     6434   03 01242    35F01B98              STW,15   REMESG3+22                                        *A01
     6435   03 01243    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     6436   03 01244    00001B82              DATA     REMESG3
     6437   03 01245    20700001 A            AI,7     1                 NEXT DEVICE
     6438   03 01246    65501234              BIR,5    T2RE60B+2
     6439                            *                                   REWIND ALL UNITS
     6440   03 01247    6AF016EC              BAL,15   DOALL             REWIND ALL UNITS
     6441   03 01248    6800124A              B        %+2
     6442   03 01249    6AF016EE     T2RE60C  BAL,15   DOALL1            SET UP ONE UNIT
     6443   03 0124A    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     6444   03 0124B    20700001 A            AI,7     1                 DO NEXT UNIT
     6445   03 0124C    65501249              BIR,5    T2RE60C           DO ALL UNITS
     6446   03 0124D    680004F5              B        TST203            RETURN TO TST2
     6447                            *
     6448                            *
     6449                            *
     6450   03 0124E    6AF016EC     T2REW    BAL,15   DOALL             SET UP ALL UNITS
     6451   03 0124F    68001251              B        T2RE06A+1
     6452   03 01250    6AF016EE     T2RE06A  BAL,15   DOALL1            SET UP 1 UNIT
     6453   03 01251    22000C35              LI,0     DA(WRRAND)        WRITE RECORD
     6454   03 01252    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     6455   03 01253    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6456   03 01254    CEA0195B              TDV,10   *:DEVADDR         TDV TO SEE IF AT EOT
     6457   03 01255    31B02165              CW,11    =X'12000000'      EOT/EOF                         *B01
     6458   03 01256    6840125C              BCR,4    %+6                                               *B01
     6459   03 01257    31200390              CW,2     ITHTEST           TST2                            *B01
     6460   03 01258    6930110D     T2RE06C  BNE      T2RE02            EOT/EOF                         *B01
     6461   03 01259    31B02143              CW,11    =X'02000000'
     6462   03 0125A    E9401258              BCS,4    *%-2                                              *B01
     6463   03 0125B    68001262              B        T2RE06B           ERROR EXIT                      *B01
     6464   03 0125C    CDA0195B              TIO,10   *:DEVADDR         TIO
     6465   03 0125D    31B0216E              CW,11    =X'00FF0000'      IL, TE, IOP ERROR OR MEM ERROR  *A01
     6466   03 0125E    6940165E              BCS,4    TWRTRY              GO TO RETRY ROUTINE           *A01
     6467   03 0125F    31B0214C              CW,11    =X'08000000'      UE ONLY                         *A01
     6468   03 01260    69401262              BCS,4    T2RE06B             ERROR REPORT                  *A01
     6469   03 01261    68001267              B        T2RE07
     6470   03 01262    12C0186A     T2RE06B  LD,12    WRRAND            SET UP IOCD PRINTOUT
     6471   03 01263    6AF0170D              BAL,15   MYERROR           ERROR PRINTOUT
     6472   03 01264    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     6473   03 01265    2E000000 A            WAIT
     6474   03 01266    68001267              B        %+1               CANNOT LOOP ON ERROR
     6475   03 01267    20700001 A   T2RE07   AI,7     1
     6476   03 01268    65501250              BIR,5    T2RE06A           DO ALL UNITS
     6477   03 01269    68001269     T2REWR   B        %                 RETURN TO OPERATOR SET
     6478                            *
     6479                            *
     6480                            *
     6481   03 0126A    6AF016EC     T2RESB   BAL,15   DOALL             SET UP ALL UNITS
     6482   03 0126B    6800126D              B        T2RE13A+1
     6483   03 0126C    6AF016EE     T2RE13A  BAL,15   DOALL1            SET UP 1 UNIT
     6484   03 0126D    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW OVER RECORD
     6485   03 0126E    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     6486   03 0126F    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6487   03 01270    CDA0195B              TIO,10   *:DEVADDR         TIO
     6488   03 01271    31B01A73              CW,11    CHKBIT            UE,INC LENGTH,IOP,MEMORY ERRORS
     6489   03 01272    68401278              BCR,4    T2RE14
     6490   03 01273    12C018D8              LD,12    SPBRAND           SET UP IOCD PRINTOUT
     6491   03 01274    6AF0170D              BAL,15   MYERROR           PRINTOUT ERROR ROUTINE
     6492   03 01275    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     6493   03 01276    2E000000 A            WAIT
     6494   03 01277    68001278              B        %+1               CANNOT LOOP ON ERROR
     6495   03 01278    20700001 A   T2RE14   AI,7     1
     6496   03 01279    6550126C              BIR,5    T2RE13A           DO ALL UNITS
     6497   03 0127A    6800127A     T2RESBR  B        %                 RETURN TO OPERATION SET
     6498                            *
     6499                            *
     6500                            *
     6501   03 0127B    6AF016EC     T2RESF   BAL,15   DOALL             SET UP ALL UNITS
     6502   03 0127C    6800127E              B        T2RE15A+1
     6503   03 0127D    6AF016EE     T2RE15A  BAL,15   DOALL1            SET UP 1 UNIT
     6504   03 0127E    22000C6D              LI,0     DA(SPFRAND)       SPACE FWD OVER RECORD
     6505   03 0127F    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     6506   03 01280    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6507   03 01281    CEA0195B              TDV,10   *:DEVADDR         TDV                             *B01
     6508   03 01282    31B02165              CW,11    =X'12000000'      EOT/EOF                         *B01
     6509   03 01283    68401289              BCR,4    %+6                                               *B01
     6510   03 01284    31200390              CW,2     ITHTEST           TST2                            *B01
     6511   03 01285    6930110D     T2RE15B  BNE      T2RE02            REWIND ALL UNITS                *B01
     6512   03 01286    31B02143              CW,11    =X'02000000'      EOT - TST2                      *B01
     6513   03 01287    E9401285              BCS,4    *%-2                                              *B01
     6514   03 01288    6800128C              B        T2RE015C          ERROR EXIT                      *B01
     6515   03 01289    CDA0195B              TIO,10   *:DEVADDR         TIO
     6516   03 0128A    31B01A73              CW,11    CHKBIT            UE,INC LENGTH,IOP,MEMORY ERRORS
     6517   03 0128B    68401291              BCR,4    T2RE17
     6518   03 0128C    12C018DA     T2RE015C LD,12    SPFRAND           SET UP IOCD PRINTOUT         *B01
     6519   03 0128D    6AF0170D              BAL,15   MYERROR           PRINTOUT ERROR ROUTINE
     6520   03 0128E    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     6521   03 0128F    2E000000 A            WAIT
     6522   03 01290    68001291              B        %+1               CANNOT LOOP ON ERROR
     6523   03 01291    20700001 A   T2RE17   AI,7     1
     6524   03 01292    6550127D              BIR,5    T2RE15A           DO ALL UNITS
     6525   03 01293    68001293     T2RESFR  B        %                 RETURN TO OPERATION SET
     6526                            *
     6527                            *
     6528                            *
     6529                            *
     6530   03 01294    6AF016EC     T2RERF   BAL,15   DOALL             SET UP ALL UNITS
     6531   03 01295    68001297              B        T2RE18B+1
     6532   03 01296    6AF016EE     T2RE18B  BAL,15   DOALL1            SET UP 1 UNIT
     6533   03 01297    6AF01D96              BAL,15   :CLEAR            CLEAR BUFFER
     6534   03 01298    22000C4B              LI,0     DA(RFRAND)        READ RECORD FWD
     6535   03 01299    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     6536   03 0129A    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6537   03 0129B    CEA0195B              TDV,10   *:DEVADDR         TDV                             *B01
     6538   03 0129C    31B02165              CW,11    =X'12000000'      EOT/EOF                         *B01
     6539   03 0129D    684012A3              BCR,4    %+6                                               *B01
     6540   03 0129E    31200390              CW,2     ITHTEST           TST2                            *B01
     6541   03 0129F    6930110D     T2RE17F  BNE      T2RE02            REWIND ALL UNITS                *B01
     6542   03 012A0    31B02143              CW,11    =X'02000000'      EOT - TST2                      *B01
     6543   03 012A1    E940129F              BCS,4    *%-2                                              *B01
     6544   03 012A2    680012AC              B        T2RE017E          ERROR EXIT                      *B01
     6545   03 012A3    CDA0195B              TIO,10   *:DEVADDR         TIO
     6546   03 012A4    31B01A73              CW,11    CHKBIT            UE,INC LENGTH,IOP,MEMORY ERRORS
     6547   03 012A5    694012AC              BCS,4    %+7
     6548   03 012A6    CEE0195B              TDV,14   *:DEVADDR         TDV
     6549   03 012A7    31F0214C              CW,15    =X'08000000'      UNCORRECTABLE READ ERROR
     6550   03 012A8    69401681              BCS,4    RFRTRY
     6551   03 012A9    31B02158              CW,11    =X'00400000'      TRANSMISSION ERROR ONLY
     6552   03 012AA    69401681              BCS,4    RFRTRY            GO TO RETRY SUBROUTINE
     6553   03 012AB    680012B1              B        T2RE18D
     6554   03 012AC    12C01896     T2RE017E LD,12    RFRAND            SET UP IOCD PRINTOUT
     6555   03 012AD    6AF0170D              BAL,15   MYERROR           ERROR PRINTOUT
     6556   03 012AE    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     6557   03 012AF    2E000000 A            WAIT
     6558   03 012B0    680012B1              B        %+1               CANNOT LOOP ON ERROR
     6559   03 012B1    6AF01DF5     T2RE18D  BAL,15   :COMPARE          COMPARE INFO
     6560   03 012B2    680012B8              B        T2RE18C
     6561                            *        INFORMATION ERROR EXIT
     6562   03 012B3    12C01896              LD,12    RFRAND            SET UP IOCD INFORMATION
     6563   03 012B4    6AF0170D              BAL,15   MYERROR           PRINTOUT INFO ON ERROR
     6564   03 012B5    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     6565   03 012B6    2E000000 A            WAIT
     6566   03 012B7    680012B8              B        %+1               CANNOT LOOP ON ERROR
     6567   03 012B8    20700001 A   T2RE18C  AI,7     1
     6568   03 012B9    65501296              BIR,5    T2RE18B           DO ALL UNITS
     6569   03 012BA    680012BA     T2RERFR  B        %                 RETURN TO OPERATION SET
     6570                            *
     6571                            *
     6572                            *
     6573                            *
     6574                            *
     6575                            *
     6576                            *                                   UTILITY TESTS TST3
     6577                            *                                   ------------------------------------
     6578                            *                    THE UTILITY TEST ROUTINE  ALLOWS THE USER TO SELECT
     6579                            *                    A SPECIFIC FUNCTION AND TO CONTROL THE DATA PATTERN
     6580                            *                    (SEE DATA DIRECTIVE) AND THE RECORD LENGTH (SEE   *
     6581                            *                    'LEN' DIRECTIVE).                                 *
     6582                            *                PARAMETERS D1 UTILITY TEST SELECTION                  *
     6583                            *                           D1 1 TAPE TEST                             *
     6584                            *                           D1 2 DESKEW TEST                           *
     6585                            *                           D1 3 SYNC ON A CHARACTER TEST              *
     6586                            *                           D1 4 COMPATABILITY AND NOISE PATTERN TEST  *
     6587                            *                           D1 5 READ/SPACE TEST                       *
     6588                            *                           D2 OPERATIONS REQUESTED ACCORDING TO TEST  *
     6589                            *                           D3 PARAMETER REQUESTED ACCORDING TO TEST   *
     6590                            *                           D4 PARAMETER REQUESTED ACCORDING TO TEST   *
     6591                            *                                                                      *
     6592                            *                                                                      *
     6593                            *
     6594                            *                                   TST3,1  -TAPE TEST
     6595                            *                                                                      *
     6596                            *                    THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD, *
     6597                            *                    SPACE BACKWARD,READ FORWARD AND SPACE BACKWARD, OR*
     6598                            *                    WRITE FOLLOWED BY REWIND,READ FORWARD AND SPACE   *
     6599                            *                    BACKWARD N RECORDS OR UNTIL EOT IS REACHED.       *
     6600                            *                                                                      *
     6601                            *                           D1 1 TAPE TEST                             *
     6602                            *                              D2 0 WRITE,REWIND,READ FORWARD,SPACE    *
     6603                            *                                   BACKWARD D3 RECORDS.               *
     6604                            *                                 1 WRITE D3 RECORDS.                  *
     6605                            *                                 2 READ FORWARD D3 RECORDS.           *
     6606                            *                                 3 SPACE BACKWARD D3 RECORDS          *
     6607                            *                                 4 READ FORWARD AND SPACE BACKWARD D3 *
     6608                            *                                   RECORDS IN SEQUENCE.               *
     6609                            *                                 8 WRITE, REWIND, READ FWD, SPACE BKW *
     6610                            *                                   D3 RECORDS (BCD).                  *
     6611                            *                                 9 WTITE D3 RECORDS (BCD).            *
     6612                            *                                10 READ FWD D3 RECORDS (BCD).         *
     6613                            *                                12 READ FWD, SPACE BKW D3 RECORDS(BCD)*
     6614                            *                              D3 NUMBER OF RECORDS TO BE WRITTEN OR   *
     6615                            *                                 READ. IF D3 =0 CONTINUE UNTIL EOT    *
     6616                            *                                 OR BOT IS REACHED.                   *
     6617                            *                              D4 DELAY IN MILLISECONDS BETWEEN        *
     6618                            *                                 OPERATION SETS.                      *
     6619                            *                EXAMPLE    TST3,1,1,1000,5                            *
     6620                            *                -------                                               *
     6621                            *                           WRITE 1000 RECORDS WITH A 5 MILLISECOND    *
     6622                            *                           DELAY AFTER EACH WRITE OPERATION           *
     6623                            *                                                                      *
     6624                            *                                   ------------------------------------
     6625   03 012BB    32F01942     TST31    LW,15    FLGRG             REGULAR PRINTOUT FLAG
     6626   03 012BC    35F01A4D              STW,15   NOPKPRT
     6627   03 012BD    32700204 A            LW,7     :P4               TIME DELAY
     6628   03 012BE    681012C4              BGEZ     TST3102
     6629                            *        ERROR P4 INCORRECT         P3 NEGATIVE
     6630   03 012BF    22700004 A            LI,7     4
     6631   03 012C0    3570030A A            STW,7    :PIT10            REPORT BAD PARAMETER
     6632   03 012C1    EAF00229 A            BAL,15   *:PREPORT
     6633   03 012C2    00000326              DATA     :DIC+6
     6634   03 012C3    E8000214 A            B        *:MONITOR         GO TO MONITOR
     6635   03 012C4    32700203 A   TST3102  LW,7     :P3               NUMBER OF RECORDS TO BE WRITTEN
     6636   03 012C5    692012C8              BGZ      TST3103           PO >0
     6637   03 012C6    3270215D              LW,7     =X'FFFFF'         P3 =0  WRITE TILL EOT, BOT
     6638   03 012C7    35700203 A            STW,7    :P3               P3 SET TO LARGEST BYTE
     6639   03 012C8    32600202 A   TST3103  LW,6     :P2
     6640   03 012C9    21600008 A            CI,6     8                 8 BIT SET
     6641   03 012CA    684012D1              BCR,4    %+7
     6642   03 012CB    2270000E A            LI,7     X'0E'             BCD OPTION
     6643   03 012CC    2280000D A            LI,8     X'0D'
     6644   03 012CD    35201A4D              STW,2    NOPKPRT
     6645   03 012CE    206FFFF8 A            AI,6     -8
     6646   03 012CF    35600202 A            STW,6    :P2
     6647   03 012D0    680012D3              B        %+3
     6648   03 012D1    72701882              LB,7     TRFBC             REGULAR READ
     6649   03 012D2    72801850              LB,8     TWBC              REGULAR WRITE
     6650   03 012D3    7580186C              STB,8    TST3WRT           SET UP WRITE
     6651   03 012D4    75701898              STB,7    TST3RF            SET UP READ
     6652   03 012D5    21600004 A            CI,6     4                 P2 >4
     6653   03 012D6    682012D9              BLE      %+3
     6654   03 012D7    22700002 A            LI,7     2
     6655   03 012D8    680012C0              B        TST3102-4         GO TO ERROR PRINTOUT
     6656   03 012D9    32601A4C              LW,6     LENGTH            CHECK ODD BYTE COUNT
     6657   03 012DA    4B600003 A            AND,6    3
     6658   03 012DB    21600003 A            CI,6     3
     6659   03 012DC    684012E2              BCR,4    TST3101A
     6660   03 012DD    683012E4              BE       TST3101B
     6661   03 012DE    21600001 A            CI,6     1
     6662   03 012DF    683012E6              BE       TST3101C
     6663   03 012E0    3280216F              LW,8     =X'FFFF0000'      +2 BYTES
     6664   03 012E1    680012E7              B        TST3101C+1
     6665   03 012E2    3280215C     TST3101A LW,8     =X'FFFFFFFF'      +0 BYTES
     6666   03 012E3    680012E7              B        TST3101C+1
     6667   03 012E4    32802170     TST3101B LW,8     =X'FFFFFF00'      +3 BYTES
     6668   03 012E5    680012E7              B        TST3101C+1
     6669   03 012E6    32802147     TST3101C LW,8     =X'FF000000'      +1 BYTES
     6670   03 012E7    35801A51              STW,8    MASKBYT           SAVE MASK
     6671   03 012E8    32701A4C              LW,7     LENGTH            LENGTH OF RECORD
     6672   03 012E9    31702171              CW,7     =X'00000003'      ODD BYTE SIZE
     6673   03 012EA    684012EC              BCR,4    %+2
     6674   03 012EB    20700004 A            AI,7     4                 GO TO NEXT WORD SIZE FOR COMPARE
     6675   03 012EC    2570007E A            SLS,7    -2                GET WORD SIZE
     6676   03 012ED    22802182              LI,8     BUFF1             WRITE AREA
     6677   03 012EE    30800007 A            AW,8     7                 WORD COUNT
     6678   03 012EF    33F00008 A            MTW,-1   8
     6679   03 012F0    3580197D              STW,8    LASTWDW           LOCATION OF LAST WORD WRITTEN
     6680   03 012F1    32802136              LW,8     BUFF2             READ AREA
     6681   03 012F2    30800007 A            AW,8     7                 WORD COUNT
     6682   03 012F3    33F00008 A            MTW,-1   8
     6683   03 012F4    3580197F              STW,8    LASTWDR           LOCATION OF LAST WORD IN READ AREA
     6684   03 012F5    31701971     TST3104  CW,7     MAXREAD           RECORD TOO LARGE TO READ
     6685   03 012F6    682012F8              BCR,2    %+2
     6686   03 012F7    32701971              LW,7     MAXREAD           SET UP LARGEST RECORD SIZE
     6687   03 012F8    35701DE9              STW,7    :PATWC            SET UP WORD SIZE IN SMEAR
     6688   03 012F9    35701DA2              STW,7    :CLRSIZE          SET UP WORD SIZE FOR CLEAR
     6689   03 012FA    35701E68              STW,7    :COMWCNT          SET UP WORD SIZE IN COMPARE
     6690   03 012FB    22802182              LI,8     BUFF1
     6691   03 012FC    35801DEA              STW,8    :PATBFR           BUFFER FOR PATTERN
     6692                            *                                   COMPARE INFORMATION SETUP
     6693   03 012FD    35801E69              STW,8    :COMBFRA          CORRECT INFORMATION
     6694   03 012FE    32702136              LW,7     BUFF2             OBSERVED PATTERN
     6695   03 012FF    35701E6A              STW,7    :COMBFRB          OBSERVED INFORMATION
     6696   03 01300    35701DA1              STW,7    :CLRADDR          CLEAR ADDRESS
     6697   03 01301    32E01A4C              LW,14    LENGTH            BYTE SIZE
     6698   03 01302    55E2186D              STH,14   TST3WRT+1,1     SET UP IOCD
     6699   03 01303    55E21899              STH,14   TST3RF+1,1
     6700   03 01304    22700000 A            LI,7     0
     6701   03 01305    35701E6B              STW,7    :COMFLAG          PRINTOUT ERRORS
     6702   03 01306    32701A46              LW,7     PATTYPE           CHECK PATTERN TYPE
     6703   03 01307    21700000 A            CI,7     0
     6704   03 01308    69301318              BNEZ     TST3105
     6705   03 01309    32701A4A              LW,7     PATTFIX           FIXED PATTERN
     6706   03 0130A    72E0186C              LB,14    TST3WRT           BCD CHECK
     6707   03 0130B    71E02172              CB,14    =X'0D000000'      MASK
     6708   03 0130C    68301310              BE       %+4
     6709   03 0130D    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     6710   03 0130E    68301310              BE       %+2
     6711   03 0130F    4B702157              AND,7    =X'3F3F3F3F'      MASK
     6712   03 01310    35701DE7              STW,7    :PATID+1          PATTERN TO SPREAD
     6713   03 01311    22800000 A            LI,8     0
     6714   03 01312    35801DE6              STW,8    :PATID            FIXED WORD PATTERN
     6715   03 01313    6AF01DA7              BAL,15   :PATTERN          SMEAR PATTERN
     6716   03 01314    B280197D              LW,8     *LASTWDW
     6717   03 01315    4B801A51              AND,8    MASKBYT           MASK ODD BYTE COUNT
     6718   03 01316    B580197D              STW,8    *LASTWDW
     6719   03 01317    6800135A              B        TST3111
     6720   03 01318    21700002 A   TST3105  CI,7     2                 DATA P1 =2 RANDOM PATTERN
     6721   03 01319    69301322              BNEZ     TST3107
     6722   03 0131A    35201DE6              STW,2    :PATID            RANDOM PATTERN
     6723   03 0131B    32701A45              LW,7     PATTSED
     6724   03 0131C    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     6725   03 0131D    6830131F              BE       %+2
     6726   03 0131E    4B702157              AND,7    =X'3F3F3F3F'      MASK SEED
     6727   03 0131F    35701DE7              STW,7    :PATID+1          SEED FOR RANDOM PATTERN
     6728   03 01320    35702182              STW,7    BUFF1
     6729   03 01321    6800135A              B        TST3111
     6730   03 01322    32701A47     TST3107  LW,7     PATTTK            DATA P1=5 BIT CROWDING
     6731   03 01323    2570007C A            SLS,7    -4                SHIFT
     6732   03 01324    2170000A A            CI,7     10
     6733   03 01325    69101327              BL       TST3108
     6734                            *        ERROR    :P3 TOO LARGE
     6735   03 01326    E8000214 A            B        *:MONITOR
     6736   03 01327    329E1986     TST3108  LW,9     PT00,7            X'01010101' TO X'80808080'
     6737   03 01328    25900068 A            SLS,9    -24               R9 1ST TRACK INFO
     6738   03 01329    32701A47              LW,7     PATTTK
     6739   03 0132A    4B702168              AND,7    =X'0000000F'
     6740   03 0132B    2170000A A            CI,7     10
     6741   03 0132C    6910132E              BL       TST3109
     6742                            *        ERROR    :P4 TOO LARGE
     6743   03 0132D    E8000214 A            B        *:MONITOR
     6744   03 0132E    32AE1986     TST3109  LW,10    PT00,7            X'01010101' TO X'80808080'
     6745   03 0132F    25A00068 A            SLS,10   -24               R10 2ND TRACK INFO
     6746   03 01330    22600000 A            LI,6     0
     6747   03 01331    22500000 A            LI,5     0
     6748   03 01332    22EFFFFC A   TST3109A LI,14    -4
     6749   03 01333    22700000 A            LI,7     0
     6750   03 01334    22B00000 A            LI,11    0
     6751   03 01335    32C01A48     TST3110  LW,12    PATTTS1           1ST TRACK PATTERN
     6752   03 01336    32D01A49              LW,13    PATTTS2           2ND TRACK PATTERN
     6753   03 01337    25CC0061 A            SLS,12   -31,6
     6754   03 01338    25DC0061 A            SLS,13   -31,6
     6755   03 01339    31C00001 A            CW,12    1
     6756   03 0133A    6840133C              BCR,4    %+2
     6757   03 0133B    49B00009 A            OR,11    9
     6758   03 0133C    31D00001 A            CW,13    1
     6759   03 0133D    6840133F              BCR,4    %+2
     6760   03 0133E    49B0000A A            OR,11    10
     6761   03 0133F    20700001 A            AI,7     1
     6762   03 01340    21700004 A            CI,7     4
     6763   03 01341    68301343              BE       %+2               BYPASS SHIFT
     6764   03 01342    25B00008 A            SLS,11   8                 SHIFT WORD
     6765   03 01343    20600001 A            AI,6     1
     6766   03 01344    65E01335              BIR,14   TST3110
     6767   03 01345    35BA1A63              STW,11   CSMEAR,5          STORE INFO FOR BOTH TRACKS
     6768   03 01346    20500001 A            AI,5     1
     6769   03 01347    21500008 A            CI,5     8
     6770   03 01348    69101332              BL       TST3109A          LOOP
     6771                            *                                   8 WORDS OF TRACK INFO TO SMEAR
     6772   03 01349    32A01DE9              LW,10    :PATWC            WORD SIZE
     6773   03 0134A    31A00003 A            CW,10    3                 ODD WORD COUNT
     6774   03 0134B    6840134D              BCR,4    %+2
     6775   03 0134C    20A00008 A            AI,10    8
     6776   03 0134D    25A0007D A            SLS,10   -3                NUMBER OF LOOPS
     6777   03 0134E    22700000 A            LI,7     0
     6778   03 0134F    228FFFF8 A   TST310A  LI,8     -8
     6779   03 01350    22600000 A            LI,6     0
     6780   03 01351    329C1A63              LW,9     CSMEAR,6          LOAD BIT STRING WORD
     6781   03 01352    359E2182              STW,9    BUFF1,7           STORE
     6782   03 01353    33100006 A            MTW,1    6
     6783   03 01354    33100007 A            MTW,1    7
     6784   03 01355    65801351              BIR,8    TST310A+2         8 WORDS EACH PASS
     6785   03 01356    64A0134F              BDR,10   TST310A           FILL WORD COUNT
     6786   03 01357    B280197D              LW,8     *LASTWDW          SET UP ODD BYTES
     6787   03 01358    4B801A51              AND,8    MASKBYT
     6788   03 01359    B580197D              STW,8    *LASTWDW
     6789   03 0135A    31100202 A   TST3111  CW,1     :P2               WRITE ONLY  P2 =1
     6790   03 0135B    68101361              BGE      TST3112           BRANCH IF P2 =0,1
     6791   03 0135C    31200202 A            CW,2     :P2               READ FORWARD ONLY P2 =2
     6792   03 0135D    68301396              BEZ      TST3116-2         REWIND, READ RECORDS FWD
     6793   03 0135E    31300202 A            CW,3     :P2               SPACE BACKWARD ONLY P2 =3
     6794   03 0135F    683013E3              BE       TST3119
     6795   03 01360    68001396              B        TST3116-2         P2 =4 READ FWD AND SPACE BKW
     6796                            *                                   WRITE RECORD
     6797   03 01361    6AF0169E     TST3112  BAL,15   RWTLP             REWIND TO LOAD POINT
     6798   03 01362    22A00000 A            LI,10    0
     6799   03 01363    31201A46              CW,2     PATTYPE           RANDOM PATTERN
     6800   03 01364    6930136E              BNE      %+10
     6801   03 01365    32E02182              LW,14    BUFF1             CHANGE RANDOM SEED
     6802   03 01366    21A00000 A            CI,10    0                 FIRST PASS
     6803   03 01367    6830136C              BE       %+5
     6804   03 01368    6AF01D87              BAL,15   :RANDOM           GET NEW SEED
     6805   03 01369    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     6806   03 0136A    6830136C              BE       %+2
     6807   03 0136B    4BE02157              AND,14   =X'3F3F3F3F'      MASK WORD
     6808   03 0136C    35E01DE7              STW,14   :PATID+1          STORE
     6809   03 0136D    6AF01DA7              BAL,15   :PATTERN          CHANGE PATTERN
     6810   03 0136E    B280197D              LW,8     *LASTWDW
     6811   03 0136F    4B801A51              AND,8    MASKBYT           MASK ODD BYTE COUNT
     6812   03 01370    B580197D              STW,8    *LASTWDW
     6813   03 01371    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     6814   03 01372    6AF016DC     TST3112A BAL,15   CLRARM            CLEAR AND ARM INTERRUPT         *A02
     6815   03 01373    22000C36              LI,0     DA(TST3WRT)       WRITE RECORD
     6816   03 01374    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     6817   03 01375    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     6818   03 01376    CEE0195B              TDV,14   *:DEVADDR         TDV
     6819   03 01377    31F02143              CW,15    =X'02000000'      EOT SET
     6820   03 01378    69401392              BCS,4    TST3115-1         GO TO REWIND
     6821   03 01379    6AF01F72              BAL,15   :ERRORT           TEST
     6822   03 0137A    00006014              DATA     BA(TSEQ011)       READY, NO UE, ETC
     6823   03 0137B    6800138A              B        TST3114
     6824                            *        ERROR NOT EOT
     6825   03 0137C    12C0186C              LD,12    TST3WRT           IOCD PRINTOUT
     6826   03 0137D    6AF01F5D              BAL,15   IOCDMSG
     6827                            *                                   SPACE BACKWARD TO LOOP ON ERROR
     6828   03 0137E    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6829   03 0137F    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     6830   03 01380    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     6831   03 01381    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6832   03 01382    33100009 A            MTW,1    9                 TALLY +1
     6833   03 01383    21900006 A            CI,9     6
     6834   03 01384    69101372              BL       TST3112A          GO WRITE RECORD                 *A02
     6835   03 01385    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6836   03 01386    22000C1C              LI,0     DA(TSE1)          SET ERASE
     6837   03 01387    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     6838   03 01388    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6839   03 01389    68001371              B        TST3112A-1        LOOP ON ERROR                   *A02
     6840   03 0138A    20A00001 A   TST3114  AI,10    1
     6841   03 0138B    22F00000 A            LI,15    0
     6842   03 0138C    35F01F54              STW,15   :INTRECF          CLEAR INTERRUPT FLAG
     6843   03 0138D    32E00204 A            LW,14    :P4               ALL RECORDS WRITTEN
     6844   03 0138E    6AF01ED4              BAL,15   :DELAY            DELAY P4 MS
     6845   03 0138F    68001390              B        %+1
     6846   03 01390    31A00203 A            CW,10    :P3               LOOP TILL EOT OR RECORD COUNT DONE
     6847   03 01391    69101363              BL       TST3112+2
     6848   03 01392    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     6849   03 01393    31100202 A   TST3115  CW,1     :P2               END OF WRITE ONLY P2 =1
     6850   03 01394    69301396              BNE      TST3116-2
     6851   03 01395    68001402              B        TST3122+1         RETURN TO CONTROL PROGRAM
     6852                            *                                   P2=2 READ RECORD FORWARD
     6853   03 01396    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     6854   03 01397    22A00000 A            LI,10    0
     6855   03 01398    22900000 A   TST3116  LI,9     0                 CLEAR RETRY TALLY
     6856   03 01399    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6857   03 0139A    6AF01D96              BAL,15   :CLEAR            CLEAR AREA
     6858   03 0139B    B280197D              LW,8     *LASTWDW          SET UP FOR ODD BYTE SIZE
     6859   03 0139C    4B801A51              AND,8    MASKBYT           MASK ODD BYTE COUNT
     6860   03 0139D    B580197F              STW,8    *LASTWDR
     6861   03 0139E    22000C4C              LI,0     DA(TST3RF)        READ RECORD FORWARD
     6862   03 0139F    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     6863   03 013A0    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     6864   03 013A1    CEE0195B              TDV,14   *:DEVADDR         TDV
     6865   03 013A2    31F02143              CW,15    =X'02000000'      EOT SET
     6866   03 013A3    694013DF              BCS,4    TST3119-4
     6867   03 013A4    31101A74     TST3117  CW,1     MODEFLAG          PACKED OPTION SET
     6868   03 013A5    693013A9              BNE      %+4
     6869   03 013A6    CDE0195B              TIO,14   *:DEVADDR         TIO
     6870   03 013A7    31F02145              CW,15    =X'087F0000'      ELIMINATE INCORRECT LENGTH
     6871   03 013A8    684013B6              BCR,4    TST3117A
     6872   03 013A9    6AF01F72              BAL,15   :ERRORT           TEST
     6873   03 013AA    00006008              DATA     BA(TSEQ010)       READY, NO UE
     6874   03 013AB    680013B6              B        TST3117A
     6875                            *        ERROR EXIT NOT EOT
     6876   03 013AC    12C01898              LD,12    TST3RF            IOCD PRINTOUT
     6877   03 013AD    6AF01F5D              BAL,15   IOCDMSG
     6878                            *                                   SPACE BACKWARD TO LOOP ON ERROR
     6879   03 013AE    33100009 A            MTW,1    9                 TALLY +1
     6880   03 013AF    21900006 A            CI,9     6
     6881   03 013B0    683013B6              BE       TST3117A          RETRIES DONE
     6882   03 013B1    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6883   03 013B2    22000C6C              LI,0     DA(SPBRAND)       SPACE BACKWARD
     6884   03 013B3    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     6885   03 013B4    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6886   03 013B5    68001399              B        TST3116+1         GO RETRY READ
     6887                            *                                   COMPARE INFORMATION
     6888   03 013B6    31201A46     TST3117A CW,2     PATTYPE           RANDOM PATTERN
     6889   03 013B7    693013BE              BNE      TST3117A+8
     6890   03 013B8    B2802136              LW,8     *BUFF2            GET SEED FOR RECORD
     6891   03 013B9    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     6892   03 013BA    683013BC              BE       %+2
     6893   03 013BB    4B802157              AND,8    =X'3F3F3F3F'      MASK SEED
     6894   03 013BC    35801DE7              STW,8    :PATID+1          STORE WORD SEED
     6895   03 013BD    6AF01DA7              BAL,15   :PATTERN          SPREAD PATTERN FOR COMPARE
     6896   03 013BE    72E0186C              LB,14    TST3WRT           BCD WRITE
     6897   03 013BF    71E02172              CB,14    =X'0D000000'      MASK
     6898   03 013C0    683013CA              BE       TST3117B-6        BYPASS MASK
     6899   03 013C1    31101A74              CW,1     MODEFLAG          PACKED FLAG SET
     6900   03 013C2    683013CA              BE       %+8
     6901   03 013C3    3A801E68              LCW,8    :COMWCNT          WORDS COMPARE
     6902   03 013C4    22600000 A            LI,6     0
     6903   03 013C5    32EC2182              LW,14    BUFF1,6
     6904   03 013C6    4BE02157              AND,14   =X'3F3F3F3F'      MASK SEED
     6905   03 013C7    35EC2182              STW,14   BUFF1,6           STORE WORD
     6906   03 013C8    33100006 A            MTW,1    6
     6907   03 013C9    658013C5              BIR,8    %-4
     6908   03 013CA    B280197D              LW,8     *LASTWDW
     6909   03 013CB    4B801A51              AND,8    MASKBYT           MASK ODD BYTE COUNT
     6910   03 013CC    B580197D              STW,8    *LASTWDW
     6911   03 013CD    B280197F              LW,8     *LASTWDR
     6912   03 013CE    4B801A51              AND,8    MASKBYT           MASK ODD BYTE COUNT
     6913   03 013CF    B580197F              STW,8    *LASTWDR
     6914   03 013D0    6AF01DF5     TST3117B BAL,15   :COMPARE
     6915   03 013D1    680013D7              B        TST3118
     6916                            *        INFORMATION ERROR
     6917   03 013D2    12C01898              LD,12    TST3RF            IOCD PRINTOUT
     6918   03 013D3    6AF01F5D              BAL,15   IOCDMSG
     6919   03 013D4    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     6920   03 013D5    2E000000 A            WAIT                       HALT
     6921   03 013D6    680013D7              B        %+1               CANT LOOP
     6922   03 013D7    20A00001 A   TST3118  AI,10    1
     6923   03 013D8    22E00000 A            LI,14    0
     6924   03 013D9    35E01F54              STW,14   :INTRECF          CLEAR INTERRUPT FLAG
     6925   03 013DA    32E00204 A            LW,14    :P4               DELAY IN MS
     6926   03 013DB    6AF01ED4              BAL,15   :DELAY
     6927   03 013DC    680013DD              B        %+1
     6928   03 013DD    31A00203 A            CW,10    :P3               LOOP TILL EOT OR RECORD COUNT DONE
     6929   03 013DE    69101398              BL       TST3116
     6930   03 013DF    31200202 A            CW,2     :P2
     6931   03 013E0    693013E3              BNE      TST3119           P2 =2 END OF READ FWD
     6932   03 013E1    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     6933   03 013E2    68001402              B        TST3122+1         RETURN TO CONTROL PROGRAM
     6934                            *                                   READ RECORD BACKWARD
     6935   03 013E3    22A00000 A   TST3119  LI,10    0
     6936   03 013E4    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     6937   03 013E5    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6938   03 013E6    22000C6C              LI,0     DA(SPBRAND)       SPACE BACKWARD
     6939   03 013E7    6AF01D52              BAL,15   :IOEXEC           EXECUTE SIO
     6940   03 013E8    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     6941   03 013E9    CEE0195B              TDV,14   *:DEVADDR         TDV
     6942   03 013EA    31F02152              CW,15    =X'04000000'      BOT SET
     6943   03 013EB    69401401              BCS,4    TST3122
     6944   03 013EC    6AF01F72     TST3120  BAL,15   :ERRORT           TEST
     6945   03 013ED    00006008              DATA     BA(TSEQ010)       READY, NO UE
     6946   03 013EE    680013F9              B        TST3120A
     6947                            *        ERROR EXIT NOT LOAD POINT
     6948   03 013EF    12C018D8              LD,12    SPBRAND           IOCD PRINTOUT
     6949   03 013F0    6AF01F5D              BAL,15   IOCDMSG
     6950                            *                                   SPACE FORWARD TO LOOP ON ERROR
     6951   03 013F1    33100009 A            MTW,1    9                 TALLY +1
     6952   03 013F2    21900006 A            CI,9     6
     6953   03 013F3    683013F9              BE       TST3120A          RETRIES DONE
     6954   03 013F4    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6955   03 013F5    22000C6D              LI,0     DA(SPFRAND)       SPACE FORWARD
     6956   03 013F6    6AF01D52              BAL,15   :IOEXEC           TIO, SIO
     6957   03 013F7    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     6958   03 013F8    680013E5              B        TST3119+2         GO RETRY READ
     6959                            *                                   COMPARE INFORMATION READ
     6960   03 013F9    20A00001 A   TST3120A AI,10    1
     6961   03 013FA    22E00000 A            LI,14    0
     6962   03 013FB    35E01F54              STW,14   :INTRECF          CLEAR INTERRUPT FLAG
     6963   03 013FC    32E00204 A            LW,14    :P4               DELAY P4 MS
     6964   03 013FD    6AF01ED4              BAL,15   :DELAY
     6965   03 013FE    680013FF              B        %+1
     6966   03 013FF    31A00203 A            CW,10    :P3               LOOP TILL BOT OR RECORD COUNT DONE
     6967   03 01400    691013E4              BL       TST3119+1
     6968   03 01401    6AF0169E     TST3122  BAL,15   RWTLP             REWIND TO LOAD POINT
     6969   03 01402    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     6970   03 01403    35F01A4D              STW,15   NOPKPRT
     6971   03 01404    68000513              B        TST36             RETURN TO CONTROL PROGRAM
     6972                            *
     6973                            *
     6974                            *
     6975                            *
     6976                            *
     6977                            *
     6978                            *
     6979                            *                                   TST3,2 DESKEW UTILITY TEST
     6980                            *                                   ------------------------------------
     6981                            *                    THIS TEST IS PROVIDED AS A SCOPING AID DURING     *
     6982                            *                    CHECKING AND ADJUSTING THE READ/WRITE SKEW. A     *
     6983                            *                    PATTERN OF ALL ONES WILL BE RECORDED AS A CONTIN- *
     6984                            *                    UOUS RECORD. AT EOT THE TAPE WILL BE REWOUND.     *
     6985                            *                                                                      *
     6986                            *                           D1 2 DESKEW TEST                           *
     6987                            *                              D2 0,1 WRITE UNTIL EOT IS REACHED AND   *
     6988                            *                                   REWIND.                            *
     6989                            *                                 2 READ FORWARD UTIL EOT AND REWIND.  *
     6990                            *                                 3 SPACE BACKWARD INTIL BOT IS REACHED*
     6991                            *                                 4 READ FWD TILL EOT, SPACE BKW TILL  *
     6992                            *                                   BOT, NO REWINDS.                   *
     6993                            *                                 5 CAPSTAN SLIPPAGE EXERCISER.     *A01
     6994                            *                              D3 NOT USED                             *
     6995                            *                              D4 NOT USED                             *
     6996                            *                EXAMPLE                                               *
     6997                            *                -------    TST3,2,2                                   *
     6998                            *                           READ FORWARD UNTIL EOT AND REWIND          *
     6999                            *                                                                      *
     7000                            *
     7001   03 01405    22700064 A   TST32    LI,7     100               SMEAR PATTERN
     7002   03 01406    3280215C              LW,8     =X'FFFFFFFF'      ALL BITS ON
     7003   03 01407    358E2181              STW,8    BUFF1-1,7         STORE WORD 400 BYTE RECORD
     7004   03 01408    64701407              BDR,7    %-1
     7005   03 01409    327018DE              LW,7     TST32W            WRITE
     7006   03 0140A    328018E2              LW,8     TST32RF           READ FWD
     7007   03 0140B    31101A74              CW,1     MODEFLAG          PACKED BINARY FLAG SET
     7008   03 0140C    68301410              BE       TST3201
     7009   03 0140D    49702140              OR,7     =X'05000000'      BINARY WRITE
     7010   03 0140E    4980213F              OR,8     =X'06000000'      BINARY READ
     7011   03 0140F    68001412              B        %+3
     7012   03 01410    4B702173     TST3201  AND,7    =X'01FFFFFF'      PACKED BINARY WRITE
     7013   03 01411    4B802174              AND,8    =X'02FFFFFF'      PACKED BINARY READ
     7014   03 01412    357018DE              STW,7    TST32W            STORE WRITE
     7015   03 01413    358018E2              STW,8    TST32RF           STORE READ
     7016   03 01414    31100202 A            CW,1     :P2               P2 =0,1 WRITE CONTINUOUS
     7017   03 01415    68101430              BGE      TST3202
     7018   03 01416    31200202 A            CW,2     :P2               P2 =2    READ FWD TIL EOT
     7019   03 01417    68301451              BEZ      TST3205
     7020   03 01418    31300202 A            CW,3     :P2               P2 =3 SPACE BKW TILL BOT
     7021   03 01419    68301447              BEZ      TST3203
     7022   03 0141A    32700202 A            LW,7     :P2
     7023   03 0141B    21700004 A            CI,7     4
     7024   03 0141C    68301452              BE       TST3206           P2 =4 NO REWINDS,READ FWD,READ BKW *
     7025   03 0141D    21700005 A            CI,7     5                 P2 =5 CAPSTAN SLIPPAGE TEST     *A01
     7026   03 0141E    68301423              BE       TST3202C                                          *A01
     7027                            *                                                                   *A01
     7028                            *        ERROR P2 IS NOT 0,1,2,3,4,5                                *A01
     7029                            *
     7030   03 0141F    3520030A A            STW,2    :PIT10            REPORT BAD PARAMETER
     7031   03 01420    EAF00229 A            BAL,15   *:PREPORT
     7032   03 01421    00000326              DATA     :DIC+6
     7033   03 01422    E8000214 A            B        *:MONITOR
     7034   03 01423    CF80195B     TST3202C HIO,8    *:DEVADDR         HALT DEVICE                     *A01
     7035   03 01424    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT            *A01
     7036   03 01425    22000C4C     TST3202D LI,0     DA(TST3RF)        READ FWD 1000 BYTES             *A01
     7037   03 01426    6AF01D52              BAL,15   :IOEXEC                                           *A01
     7038   03 01427    CE80195B              TDV,8    *:DEVADDR         TDV                             *A01
     7039   03 01428    4B902143              AND,9    =X'02000000'        CHECK FOR END OF TAPE         *A01
     7040   03 01429    69301423              BCS,3    TST3202C            EOT - REWIND AND CONTINUE     *A01
     7041   03 0142A    32800480              LW,8     DQBN              DELAY                           *A01
     7042   03 0142B    6580142B              BIR,8    %                                                 *A01
     7043   03 0142C    CF80195B              HIO,8    *:DEVADDR         HALT DEVICE                     *A01
     7044   03 0142D    72800480              LB,8     DQBN              DELAY                           *A01
     7045   03 0142E    6580142E              BIR,8    %                                                 *A01
     7046   03 0142F    68001425              B        TST3202D          CONTINUE                        *A01
     7047   03 01430    6AF0169E     TST3202  BAL,15   RWTLP             REWIND TO LOAD POINT
     7048   03 01431    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7049   03 01432    22000C6F              LI,0     DA(TST32W)        WRITE RECORD WITH DATA CHAINING
     7050   03 01433    CC80195B              SIO,8    *:DEVADDR         WRITE
     7051   03 01434    2270E000 A            LI,7     X'E000'
     7052   03 01435    32C01F54              LW,12    :INTRECF          WAIT FOR INTERRUPT
     7053   03 01436    6930143F              BNEZ     TST3202A
     7054   03 01437    64701435              BDR,7    %-2
     7055   03 01438    CFC0195B              HIO,12   *:DEVADDR         HIO
     7056   03 01439    CEA0195B              TDV,10   *:DEVADDR         TDV
     7057   03 0143A    31B02143              CW,11    =X'02000000'      EOT SET
     7058   03 0143B    69401430              BCS,4    TST3202
     7059   03 0143C    EAF0021C A            BAL,15   *:PRINT           PRINT OUT TIMEOUT MESSAGE
     7060   03 0143D    00001AB0              DATA     TIMEOUT
     7061   03 0143E    68001431              B        TST3202+1         CONTINUE WITH OPERATION
     7062                            *                                   TAPE WRITTEN ALL BITS ON CONTUOUS
     7063   03 0143F    CEC0195B     TST3202A TDV,12   *:DEVADDR         LOOK FOR EOT
     7064   03 01440    31D02143              CW,13    =X'02000000'      EOT
     7065   03 01441    69401445              BCS,4    %+4
     7066   03 01442    2270E000 A            LI,7     X'E000'
     7067   03 01443    6AF01EF2              BAL,15   :INTAE            ARM INTERRUPT
     7068   03 01444    68001435              B        TST3202+5
     7069   03 01445    CFC0195B              HIO,12   *:DEVADDR         HIO
     7070   03 01446    68001430              B        TST3202           GO TO REWIND
     7071   03 01447    6AF016DC     TST3203  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7072   03 01448    22000C5D              LI,0     DA(SBF1)          SPACE FILE BKW
     7073   03 01449    CC80195B              SIO,8    *:DEVADDR         INIATE SPACE BKW
     7074   03 0144A    32C01F54              LW,12    :INTRECF          WAIT FOR INTERRUPT
     7075   03 0144B    6830144A              BCR,3    %-1
     7076   03 0144C    CFC0195B              HIO,12   *:DEVADDR         HIO
     7077   03 0144D    CEA0195B              TDV,10   *:DEVADDR         TDV
     7078   03 0144E    31B02152              CW,11    =X'04000000'      BOT SET
     7079   03 0144F    69401452              BCS,4    TST3206
     7080   03 01450    68001447              B        TST3203           CONTINUE WITH OPERATION
     7081   03 01451    6AF0169E     TST3205  BAL,15   RWTLP             REWIND TO LOAD POINT
     7082   03 01452    6AF016DC     TST3206  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7083   03 01453    22000C71              LI,0     DA(TST32RF)       READ FWD TILL EOT  P2 =2
     7084   03 01454    CC80195B              SIO,8    *:DEVADDR         READ FWD
     7085   03 01455    2270E000 A            LI,7     X'E000'
     7086   03 01456    32C01F54              LW,12    :INTRECF          WAIT FOR INTERRUPT
     7087   03 01457    69301460              BNEZ     TST3206A
     7088   03 01458    64701456              BDR,7    %-2
     7089   03 01459    CFC0195B              HIO,12   *:DEVADDR         HIO
     7090   03 0145A    CEA0195B              TDV,10   *:DEVADDR         TDV
     7091   03 0145B    31B02143              CW,11    =X'02000000'      EOT SET
     7092   03 0145C    69401467              BCS,4    TST3207
     7093   03 0145D    EAF0021C A            BAL,15   *:PRINT           PRINT OUT TIMEOUT MESSAGE
     7094   03 0145E    00001AB0              DATA     TIMEOUT
     7095   03 0145F    68001452              B        TST3206           CONTINUE WITH OPERATION
     7096   03 01460    CEC0195B     TST3206A TDV,12   *:DEVADDR         LOOK FOR EOT
     7097   03 01461    31D02143              CW,13    =X'02000000'      EOT
     7098   03 01462    69401466              BCS,4    %+4
     7099   03 01463    2270E000 A            LI,7     X'E000'
     7100   03 01464    6AF01EF2              BAL,15   :INTAE            ARM INTERRUPT
     7101   03 01465    68001456              B        TST3206+4
     7102   03 01466    CFC0195B              HIO,12   *:DEVADDR
     7103   03 01467    31300202 A   TST3207  CW,3     :P2               P2 =3
     7104   03 01468    68301447              BE       TST3203           GO SPACE
     7105   03 01469    32700202 A            LW,7     :P2
     7106   03 0146A    21700004 A            CI,7     4
     7107   03 0146B    68301447              BE       TST3203           P2 =4 READ FWD,SPACE BKW,NO REWIND
     7108   03 0146C    68001451              B        TST3205           REWIND AND READ FORWARD AGAIN
     7109                            *
     7110   03 0146D    68000513              B        TST36             GO BACK TO CONTROL PROGRAM
     7111                            *
     7112                            *
     7113                            *
     7114                            *                                   TST3,3 SYNC ON A CHARACTER UTILITY
     7115                            *                                   ------------------------------------
     7116                            *                                                                      *
     7117                            *                    THIS TEST IS PROVIDED AS A SCOPING AID BY EXECUTING
     7118                            *                    A UNIQUE I/O INSTRUCTION (TDV) AFTER THE BYTE COUNT
     7119                            *                    SPECIFIED IN THE TEST HAS BEEN REACHED.           *
     7120                            *                           D1 3 SYNC ON A CHARACTER TEST              *
     7121                            *                              D2 1 READ FORWARD AND SPACE RECORD      *
     7122                            *                                   BACKWARD.                          *
     7123                            *                              D3 BYTE TO SYNC ON.                     *
     7124                            *                              D4 DELAY IN MILLISECONDS BETWEEN SYNCS. *
     7125                            *                                                                      *
     7126                            *                EXAMPLE                                               *
     7127                            *               -------     TST3,3,1,375,10                            *
     7128                            *                                                                      *
     7129                            *                           READ FORWARD 375 BYTES, SIGNAL (TDV) AND   *
     7130                            *                           DELAY 10 MILLISECONDS. SPACE BACKWARD.     *
     7131                            *
     7132   03 0146E    32700203 A   TST33    LW,7     :P3               GET BYTE COUNT TO SYNC ON
     7133   03 0146F    6820147B              BLEZ     TST3301
     7134   03 01470    32700204 A            LW,7     :P4               P4 =0 OK
     7135   03 01471    68101475              BGEZ     %+4
     7136   03 01472    22700004 A            LI,7     4
     7137   03 01473    3570030A A            STW,7    :PIT10            PARAMETER 4 ERROR
     7138   03 01474    6800147C              B        TST3301+1
     7139   03 01475    229FFFF5 A            LI,9     -11               MAX BYTE BUFFER AREA
     7140   03 01476    22800000 A            LI,8     0
     7141   03 01477    3080196E              AW,8     MAXBYT
     7142   03 01478    65901477              BIR,9    %-1               11 X MAXBYTE LIMIT
     7143   03 01479    31800007 A            CW,8     7
     7144   03 0147A    6810147F              BGE      TST3302           P3 OK
     7145                            *        ERROR EXIT P3 TOO LARGE, NEGATIVE OR ZERO
     7146   03 0147B    3530030A A   TST3301  STW,3    :PIT10            PARAMETER 3 ERROR
     7147   03 0147C    EAF00229 A            BAL,15   *:PREPORT
     7148   03 0147D    00000326              DATA     :DIC+6
     7149   03 0147E    E8000214 A            B        *:MONITOR
     7150   03 0147F    22700000 A   TST3302  LI,7     0
     7151   03 01480    3280196E              LW,8     MAXBYT            MAX BYTE SIZE OF I/O AREA
     7152   03 01481    30802175              AW,8     =X'91000000'      DC,CE,SKIP
     7153   03 01482    225FFFF5 A            LI,5     -11
     7154   03 01483    358E18E9              STW,8    TST33R+1,7        SET UP DC FLAG
     7155   03 01484    33200007 A            MTW,2    7
     7156   03 01485    65501483              BIR,5    %-2               SET UP DATA CHAIN FLAG IN ALL IOCD
     7157   03 01486    32700203 A            LW,7     :P3               GET BYTE TO SYNC ON
     7158   03 01487    229FFFF5 A            LI,9     -11
     7159   03 01488    22600000 A            LI,6     0
     7160   03 01489    3280196E     TST3303  LW,8     MAXBYT            LARGEST RECORD POSSIBLE IN I/O AREA
     7161   03 0148A    31800007 A            CW,8     7
     7162   03 0148B    68101490              BGE      TST3304           LAST BYTE SET UP
     7163   03 0148C    3870196E              SW,7     MAXBYT
     7164   03 0148D    3080196E              AW,8     MAXBYT
     7165   03 0148E    33200006 A            MTW,2    6
     7166   03 0148F    65901489              BIR,9    TST3303           LOOP
     7167   03 01490    4B702148     TST3304  AND,7    =X'00FFFFFF'      GET LAST BYTE COUNT
     7168   03 01491    30702176              AW,7     =X'50000000'      ZBC AND CE INTERRUPT
     7169   03 01492    357C18E9              STW,7    TST33R+1,6
     7170   03 01493    31100202 A            CW,1     :P2               READ FWD, SPACE BKW
     7171   03 01494    68301497              BEZ      TST3306
     7172                            *        ERROR IF P1 NOT 1
     7173   03 01495    3520030A A            STW,2    :PIT10            REPORT BAD PARAMETER
     7174   03 01496    6800147C              B        TST3302-3
     7175                            *                                   FORWARD READ SET UP
     7176   03 01497    22908608     TST3306  LI,9     BA(BUFF1)         BA OF BUFF1
     7177   03 01498    31101A74              CW,1     MODEFLAG          PACKED BINARY FLAG SET
     7178   03 01499    6830149C              BE       %+3
     7179   03 0149A    3090213F              AW,9     =X'06000000'      BINARY READ
     7180   03 0149B    6800149D              B        %+2
     7181   03 0149C    30902143              AW,9     =X'02000000'      PACKED BINARY READ
     7182   03 0149D    22700000 A            LI,7     0
     7183   03 0149E    226FFFF5 A            LI,6     -11
     7184   03 0149F    359E18E8              STW,9    TST33R,7          SET UP ALL READS
     7185   03 014A0    33200007 A            MTW,2    7
     7186   03 014A1    6560149F              BIR,6    %-2
     7187                            *                                   READ RECORD FORWARD
     7188   03 014A2    6AF016DC     TST3309  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7189   03 014A3    22000C74              LI,0     DA(TST33R)        READ
     7190   03 014A4    CC80195B              SIO,8    *:DEVADDR         SIO READ
     7191   03 014A5    22E02328 A            LI,14    9000              9 SEC DELAY
     7192   03 014A6    6AF01ED4              BAL,15   :DELAY            WAIT FOR INTERRUPT
     7193   03 014A7    680014A9              B        TST3310
     7194                            *                                   DELAY TIMEOUT
     7195   03 014A8    680014BC              B        TST3311
     7196   03 014A9    CEC0195B     TST3310  TDV,12   *:DEVADDR         TDV SIGNAL AT ZBC
     7197   03 014AA    3270216E              LW,7     =X'00FF0000'      DELAY
     7198   03 014AB    CDC0195B              TIO,12   *:DEVADDR         TIO
     7199   03 014AC    31D02151              CW,13    =X'66000000'      DEVICE OR CONTROLLER BUSY
     7200   03 014AD    684014B0              BCR,4    %+3
     7201   03 014AE    647014AB              BDR,7    %-3               LOOP
     7202   03 014AF    680014BC              B        TST3311           TIMEOUT ERROR
     7203   03 014B0    22E00000 A            LI,14    0
     7204   03 014B1    35E01F54              STW,14   :INTRECF          CLEAR INTERRUPT FLAG
     7205   03 014B2    32E00204 A            LW,14    :P4               DELAY FOR SMALL RECORDS
     7206   03 014B3    6AF01ED4              BAL,15   :DELAY
     7207   03 014B4    680014B5              B        %+1
     7208   03 014B5    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7209   03 014B6    22000C73              LI,0     DA(TST33S)        SPACE
     7210   03 014B7    CC80195B              SIO,8    *:DEVADDR         SIO SPACE
     7211   03 014B8    22E01F40 A            LI,14    8000              8 SEC DELAY
     7212   03 014B9    6AF01ED4              BAL,15   :DELAY
     7213   03 014BA    680014A2              B        TST3309
     7214   03 014BB    68000513              B        TST36
     7215   03 014BC    CFC0195B     TST3311  HIO,12   *:DEVADDR         HIO
     7216   03 014BD    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     7217   03 014BE    00001AB0              DATA     TIMEOUT
     7218   03 014BF    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     7219   03 014C0    68000513              B        TST36
     7220                            *
     7221                            *
     7222                            *
     7223                            *
     7224                            *
     7225                            *                  TST3,4 COMPATABILITY AND NOISE PATTERN TEST
     7226                            *                  -----------------------------------------------
     7227                            *                                                                      *
     7228                            *                    THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD, *
     7229                            *                    READ BACKWARD, OR READ FORWARD AND BACKWARD A PRE-*
     7230                            *                    DETERMINED INCREMENTED NOISE PATTERN.             *
     7231                            *                                                                      *
     7232                            *                           D1 4 COMPATABILITY AND NOISE PATTERN TEST  *
     7233                            *                              D2 0,1 WRITE,SPACE BACKWARD,AND READ    *
     7234                            *                                   FORWARD ALL RECORDS.               *
     7235                            *                                 2 SPACE FORWARD,SPACE BACKWARD,READ  *
     7236                            *                                   FORWARD ALL RECORDS.               *
     7237                            *                                 3 READ FORWARD,SPACE BACKWARD,SPACE  *
     7238                            *                                   FORWARD ALL RECORDS.               *
     7239                            *                                 4 READ FORWARD ALL RECORDS.          *
     7240                            *                                 5 WRITE ALL RECORDS.                 *
     7241                            *                              D3 THE NUMBER OF RECORDS TO BE      *B01 *
     7242                            *                                   WRITTEN. (1 - 1500)             *B01
     7243                            *                              D4 NOT USED                             *
     7244                            *                EXAMPLE                                               *
     7245                            *                -------    TST3,4,5,1400                           *B01
     7246                            *                                                                      *
     7247                            *                           WRITE 1400 RECORDS.                     *B01
     7248                            *
     7249   03 014C1    32800202 A   TST34    LW,8     :P2               OPERATIONS FLAG
     7250   03 014C2    21800006 A            CI,8     6
     7251   03 014C3    691014C8              BL       TST3401
     7252                            *                                   PARAMETER ERROR
     7253   03 014C4    3520030A A            STW,2    :PIT10
     7254   03 014C5    EAF00229 A            BAL,15   *:PREPORT
     7255   03 014C6    00000326              DATA     :DIC+6
     7256   03 014C7    E8000214 A            B        *:MONITOR         GO TO MONITOR
     7257   03 014C8    3580199A     TST3401  STW,8    P2FLAG
     7258   03 014C9    32F01942              LW,15    FLGRG             REGULAR PRINTOUT FLAG
     7259   03 014CA    35F01A4D              STW,15   NOPKPRT
     7260   03 014CB    32900203 A            LW,9     :P3               CHECK RECORD COUNT              *B01
     7261   03 014CC    31100203 A            CW,1     :P3                                               *B01
     7262   03 014CD    682014CF              BLE      %+2                                               *B01
     7263   03 014CE    2290012C A            LI,9     300               DEFAULT VALUE                   *B01
     7264   03 014CF    22800000 A            LI,8     0                                                 *B01
     7265   03 014D0    2380000C A            MI,8     12                (:P3 X 12) +12 = BYTE COUNT     *B01
     7266   03 014D1    2090000C A            AI,9     12                OF THE LARGEST RECORD.          *B01
     7267   03 014D2    2190465C A            CI,9     18012             1500 RECORDS                    *B01
     7268   03 014D3    691014D5              BL       %+2                                               *B01
     7269   03 014D4    2290465C A            LI,9     18012             SET TO LARGEST RECORD           *B01
     7270   03 014D5    31901970              CW,9     MAXREADB          LARGEST SIZE SYSTEM WILL ALLOW  *B01
     7271   03 014D6    691014D8              BL       %+2                                               *B01
     7272   03 014D7    32901970              LW,9     MAXREADB                                          *B01
     7273   03 014D8    22800000 A            LI,8     0                                                 *B01
     7274   03 014D9    209FFFF4 A            AI,9     -12                                               *B01
     7275   03 014DA    36802177              DW,8     =12               DIVIDE BY 12                    *B01
     7276   03 014DB    3590199C              STW,9    LOOPMAX           NUMBER OF LOOPS                 *B01
     7277   03 014DC    35102182              STW,1    BUFF1
     7278   03 014DD    3510192B              STW,1    LOOPTLY           RECORD 1
     7279   03 014DE    35101999              STW,1    NZFLAG            NOISE FLAG
     7280   03 014DF    22600000 A            LI,6     0                 CLEAR TALLIES OF ERRORS
     7281   03 014E0    227FFFE0 A            LI,7     -32
     7282   03 014E1    356E192A              STW,6    TWTALLY+32,7      CLEAR TALLY
     7283   03 014E2    657014E1              BIR,7    %-1
     7284   03 014E3    22700005 A            LI,7     5                 SET UP 5 RETRIES
     7285   03 014E4    3570192D              STW,7    CRTRY
     7286   03 014E5    2270153C              LI,7     TST3413           SET UP EOT                *B01
     7287   03 014E6    55721285              STH,7    T2RE15B,1                                         *B01
     7288   03 014E7    5572129F              STH,7    T2RE17F,1                                         *B01
     7289   03 014E8    55721258              STH,7    T2RE06C,1
     7290                            *                                   SMEAR PATTERNS
     7291   03 014E9    22D00003 A            LI,13    3                 START WITH 3 WORDS
     7292   03 014EA    35D01E68              STW,13   :COMWCNT          COMPARE
     7293   03 014EB    35D01DA2              STW,13   :CLRSIZE          CLEAR
     7294   03 014EC    6AF01743              BAL,15   MYTSTPT           PATTERNS IN BUFFER AREA
     7295   03 014ED    2250000C A            LI,5     12                SET UP STARTING BYTE SIZE
     7296   03 014EE    5552186B              STH,5    WRRAND+1,1        WRITE
     7297   03 014EF    55521897              STH,5    RFRAND+1,1        READ FWD
     7298   03 014F0    32F02136              LW,15    BUFF2
     7299   03 014F1    35F01DA1              STW,15   :CLRADDR          CLEAR ADDRESS
     7300   03 014F2    35F01E6A              STW,15   :COMBFRB          COMPARE OBSERVED LOCATION
     7301   03 014F3    22F02182              LI,15    BUFF1             OUTPUT AREA
     7302   03 014F4    35F01E69              STW,15   :COMBFRA          PATTERN
     7303   03 014F5    22C00000 A            LI,12    0
     7304   03 014F6    35C01E6B              STW,12   :COMFLAG          ERROR PRINTOUT
     7305                            *                                   REWIND ALL UNITS
     7306   03 014F7    6AF016EC     TST3403  BAL,15   DOALL             DO ALL UNITS
     7307   03 014F8    680014FA              B        %+2
     7308   03 014F9    6AF016EE     TST3404  BAL,15   DOALL1            SET UP 1 UNIT
     7309   03 014FA    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD PT
     7310   03 014FB    20700001 A            AI,7     1                 DO NEXT UNIT
     7311   03 014FC    655014F9              BIR,5    TST3404           ALL UNITS DONE
     7312                            *
     7313   03 014FD    3240199A     TST3405  LW,4     P2FLAG            GET TYPE OF OPERATION
     7314   03 014FE    68301505              BEZ      TST3406
     7315   03 014FF    680814FF              B        %,4
     7316   03 01500    68001505              B        TST3406           WRITE,SPACE BKW,READ FWD
     7317   03 01501    6800150F              B        TST3407           SPACE FWD,SPACE BKW,READ FWD
     7318   03 01502    68001519              B        TST3408           READ FWD,SPACE BKW,SPACE FWD
     7319   03 01503    68001523              B        TST3408A          READ FWD ONLY
     7320   03 01504    68001527              B        TST3409           WRITE ONLY
     7321                            *
     7322                            *
     7323   03 01505    22401508     TST3406  LI,4     %+3               SET UP RETURN
     7324   03 01506    55421269              STH,4    T2REWR,1
     7325   03 01507    6800124E              B        T2REW             WRITE
     7326   03 01508    2240150B              LI,4     %+3               SET UP RETURN
     7327   03 01509    5542127A              STH,4    T2RESBR,1
     7328   03 0150A    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     7329   03 0150B    2240150E              LI,4     %+3               SET UP RETURN
     7330   03 0150C    554212BA              STH,4    T2RERFR,1         SET UP RETURN
     7331   03 0150D    68001294              B        T2RERF            R%AD FORWARD
     7332   03 0150E    6800152B              B        TST3410           GO TO TALLY
     7333   03 0150F    22401512     TST3407  LI,4     %+3               SET UP RETURN
     7334   03 01510    55421293              STH,4    T2RESFR,1         SET UP RETURN
     7335   03 01511    6800127B              B        T2RESF            SPACE FWD
     7336   03 01512    22401515              LI,4     %+3               SET UP RETURN
     7337   03 01513    5542127A              STH,4    T2RESBR,1
     7338   03 01514    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     7339   03 01515    22401518              LI,4     %+3               SET UP RETURN
     7340   03 01516    554212BA              STH,4    T2RERFR,1         SET UP RETURN
     7341   03 01517    68001294              B        T2RERF            READ FORWARD
     7342   03 01518    6800152B              B        TST3410           GO TO TALLY
     7343   03 01519    2240151C     TST3408  LI,4     %+3               SET UP RETURN
     7344   03 0151A    554212BA              STH,4    T2RERFR,1         SET UP RETURN
     7345   03 0151B    68001294              B        T2RERF            READ FORWARD
     7346   03 0151C    2240151F              LI,4     %+3               SET UP RETURN
     7347   03 0151D    5542127A              STH,4    T2RESBR,1
     7348   03 0151E    6800126A              B        T2RESB            SPACE BKW OVER RECORD
     7349   03 0151F    22401522              LI,4     %+3               SET UP RETURN ADDRESS
     7350   03 01520    55421293              STH,4    T2RESFR,1         SET UP RETURN
     7351   03 01521    6800127B              B        T2RESF            SPACE FORWARD
     7352   03 01522    6800152B              B        TST3410           GO TO TALLY
     7353   03 01523    22401526     TST3408A LI,4     %+3               SET UP RETURN
     7354   03 01524    554212BA              STH,4    T2RERFR,1         SET UP RETURN
     7355   03 01525    68001294              B        T2RERF            READ FORWARD
     7356   03 01526    6800152B              B        TST3410           GO TO TALLY
     7357   03 01527    2240152A     TST3409  LI,4     %+3               SET UP RETURN
     7358   03 01528    55421269              STH,4    T2REWR,1
     7359   03 01529    6800124E              B        T2REW             WRITE
     7360   03 0152A    6800152B              B        TST3410           GO TO TALLY
     7361                            *
     7362                            *
     7363   03 0152B    5292186B     TST3410  LH,9     WRRAND+1,1        INCREMENT RECORD SIZE
     7364   03 0152C    2090000C A            AI,9     12                BYTE COUNT +12
     7365   03 0152D    5592186B              STH,9    WRRAND+1,1        SET UP NEW BYTE SIZE
     7366   03 0152E    55921897              STH,9    RFRAND+1,1
     7367                            *                                   ALL PASSES DONE
     7368   03 0152F    32901E68              LW,9     :COMWCNT          INCREMENT WORD SIZE
     7369   03 01530    20900003 A            AI,9     3                 WORD COUNT +3
     7370   03 01531    35901E68              STW,9    :COMWCNT          COMPARE WORDS
     7371   03 01532    35901DA2              STW,9    :CLRSIZE          CLEAR
     7372   03 01533    3310192B              MTW,1    LOOPTLY
     7373   03 01534    3290192B              LW,9     LOOPTLY
     7374   03 01535    31101A74              CW,1     MODEFLAG          PACKED FLAG SET                 *A01
     7375   03 01536    68301538              BE       %+2                 YES                           *A01
     7376   03 01537    4B902157              AND,9    =X'3F3F3F3F'        NO, MASK RECORD NO.           *A01
     7377   03 01538    35902182              STW,9    BUFF1             SET UP NEXT SEQUENCE NO. IN RECORD
     7378   03 01539    3590199E              STW,9    NZSEQNO
     7379   03 0153A    3190199C              CW,9     LOOPMAX           ALL PASSES DONE
     7380   03 0153B    682014FD              BLE      TST3405           DO ANOTHER LOOP
     7381                            *
     7382   03 0153C    31100202 A   TST3413  CW,1     :P2               CHECK OPERATIONS                *B01
     7383   03 0153D    68101541              BGE      %+4               BRANCH = :P2 = 0/1              *B01
     7384   03 0153E    6840154D              BCR,4    TST3413A          BRANCH = :P2 = 4                *B01
     7385   03 0153F    31200202 A            CW,2     :P2                                               *B01
     7386   03 01540    6940154D              BCS,4    TST3413A          BRANCH = :P2 = 2/3              *B01
     7387   03 01541    22700000 A            LI,7     0                 WRITE OPERATIONS                *B01
     7388   03 01542    3A501964              LCW,5    SAVNUMB           NUMBER OF DEVICE                *B01
     7389   03 01543    32FE195C              LW,15    SAVDEV,7          NEXT UNIT                       *B01
     7390   03 01544    35F0195B              STW,15   :DEVADDR                                          *B01
     7391   03 01545    229FFFFD A            LI,9     -3                WRITE 3 TAPE MARKS              *B01
     7392   03 01546    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPTS        *B01
     7393   03 01547    22000C26              LI,0     DA(TWTM)          WRITE TAPE MARKS                *B01
     7394   03 01548    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO                     *B01
     7395   03 01549    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT              *B01
     7396   03 0154A    65901546              BIR,9    %-4                                               *B01
     7397   03 0154B    20700001 A            AI,7     1                 BUMP DEVICE TABLE INDEX         *B01
     7398   03 0154C    65501543              BIR,5    %-9               DO ALL UNITS                    *B01
     7399                            *
     7400                            *                 ALL PASSES DONE
     7401   03 0154D    22700000 A   TST3413A LI,7     0                 PRINTOUT ERROR TALLIES         *B01
     7402   03 0154E    3A501964              LCW,5    SAVNUMB           NUMBER OF UNITS
     7403   03 0154F    32CE195C     TST3412  LW,12    SAVDEV,7          DEVICE
     7404   03 01550    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7405   03 01551    35F01B84              STW,15   REMESG3+2         STORE
     7406   03 01552    32CE1912              LW,12    PWTALLY,7         PERM WRITE TALLY
     7407   03 01553    EAF00217 A            BAL,15   *:DECC            CONVERT
     7408   03 01554    35F01B89              STW,15   REMESG3+7                                         *A01
     7409   03 01555    32CE190A              LW,12    TWTALLY,7         TEMP WRITE TALLY
     7410   03 01556    EAF00217 A            BAL,15   *:DECC            CONVERT
     7411   03 01557    35F01B8E              STW,15   REMESG3+12                                        *A01
     7412   03 01558    32CE191A              LW,12    PRFTALLY,7        PERM READ FWD
     7413   03 01559    EAF00217 A            BAL,15   *:DECC            CONVERT
     7414   03 0155A    35F01B93              STW,15   REMESG3+17                                        *A01
     7415   03 0155B    32CE1922              LW,12    TRFTALLY,7        TEMP READ FWD
     7416   03 0155C    EAF00217 A            BAL,15   *:DECC            CONVERT
     7417   03 0155D    35F01B98              STW,15   REMESG3+22                                        *A01
     7418   03 0155E    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     7419   03 0155F    00001B82              DATA     REMESG3
     7420   03 01560    20700001 A            AI,7     1                 NEXT DEVICE
     7421   03 01561    6550154F              BIR,5    TST3412
     7422   03 01562    6AF016EC              BAL,15   DOALL             REWIND ALL UNITS
     7423   03 01563    68001565              B        %+2
     7424   03 01564    6AF016EE     TST3411  BAL,15   DOALL1            SET UP ONE UNIT
     7425   03 01565    6AF0169E              BAL,15   RWTLP             REWIND TO LOAD POINT
     7426   03 01566    20700001 A            AI,7     1                 DO NEXT UNIT
     7427   03 01567    65501564              BIR,5    TST3411           DO ALL UNITS
     7428   03 01568    68000513              B        TST36             RETURN TO CONTROL PROGRAM
     7429                            *
     7430                            *
     7431                            *
     7432                            *                 TST3,5  READ/SPACE TEST                              *
     7433                            *                 -------------------------                            *
     7434                            *                                                                      *
     7435                            *                 THIS TEST ALLOWS THE USER TO READ OR SPACE N RECORDS,*
     7436                            *                 WITH OR WITHOUT REWIND. ONLY NON-RECOVERABLE TRANS-  *
     7437                            *                 MISSION ERRORS WILL CAUSE ERROR PRINTOUT, BACKSPACE, *
     7438                            *                 AND A HALT.                                          *
     7439                            *                                                                      *
     7440                            *                           D1 5 READ/SPACE TEST                       *
     7441                            *                           D2 0 REWIND AND READ FWD N RECORDS.        *
     7442                            *                              1 REWIND AND SPACE FWD N RECORDS.       *
     7443                            *                              2 DONT REWIND, READ FWD N RECORDS       *
     7444                            *                              3 DONT REWIND, SPACE FWD N RECORDS.     *
     7445                            *                              4 DONT REWIND, SPACE BKW N RECORDS.     *
     7446                            *                              8 REWIND, READ FWD N RECORDS WITH EVEN  *
     7447                            *                                PARITY, DECIMAL (BCD).                *
     7448                            *                             10 DONT REWIND, READ FWD WITH EVEN PARITY*
     7449                            *                                PARITY, DECIMAL (BCD).                *
     7450                            *                           D3 NUMBER OF RECORDS TO READ OR SPACE      *
     7451                            *                           D4 0 DONT PRINTOUT RECORD                  *
     7452                            *                              1 PRINTOUT RECORD IN ERROR.             *
     7453                            *                              2 PRINTOUT NTH RECORD.                  *
     7454                            *                                                                      *
     7455                            *        EXAMPLE            TST3,5,0,100,1                             *
     7456                            *        -------            REWIND,READ 100 RECORDS.PRINT OUT ERROR REC*
     7457                            *                                                                      *
     7458                            *                                                                      *
     7459                            *
     7460                            *
     7461   03 01569    32700202 A   TST35    LW,7     :P2
     7462   03 0156A    21700008 A            CI,7     8                 EVEN PARITY REQUESTED
     7463   03 0156B    68401570              BCR,4    %+5               NO
     7464   03 0156C    207FFFF8 A            AI,7     -8
     7465   03 0156D    35700202 A            STW,7    :P2
     7466   03 0156E    2280000E A            LI,8     X'0E'             READ FWD EVEN PARITY
     7467   03 0156F    68001571              B        %+2
     7468   03 01570    72801882              LB,8     TRFBC             REGULAR READ
     7469   03 01571    758018FE              STB,8    RFSPEC            SET UP BCD
     7470   03 01572    75801900              STB,8    RFSPEC1
     7471   03 01573    32700202 A            LW,7     :P2
     7472   03 01574    21700005 A            CI,7     5
     7473   03 01575    6910157A              BL       TST3501
     7474                            *                                   PARAMETER ERROR
     7475   03 01576    3520030A A            STW,2    :PIT10
     7476   03 01577    EAF00229 A            BAL,15   *:PREPORT
     7477   03 01578    00000326              DATA     :DIC+6
     7478   03 01579    E8000214 A            B        *:MONITOR         GO TO MONITOR
     7479   03 0157A    32700203 A   TST3501  LW,7     :P3
     7480   03 0157B    6920157E              BGZ      TST3502
     7481                            *                                   PARAMETER ERROR
     7482   03 0157C    3530030A A            STW,3    :PIT10
     7483   03 0157D    68001577              B        TST3501-3
     7484   03 0157E    32700204 A   TST3502  LW,7     :P4
     7485   03 0157F    21700003 A            CI,7     3
     7486   03 01580    69101584              BL       TST3503
     7487                            *                                   PARAMETER ERROR
     7488   03 01581    22700004 A            LI,7     4
     7489   03 01582    3570030A A            STW,7    :PIT10
     7490   03 01583    68001577              B        TST3501-3
     7491   03 01584    35101A4E     TST3503  STW,1    TLOOP             START WITH LOOP 1
     7492   03 01585    32700203 A            LW,7     :P3
     7493   03 01586    35701A4F              STW,7    CMAX
     7494   03 01587    31100202 A            CW,1     :P2
     7495   03 01588    6910158A              BL       %+2
     7496   03 01589    6AF0169E              BAL,15   RWTLP             0,1 REWIND TO LOAD POINT
     7497   03 0158A    32700202 A   TST3504  LW,7     :P2
     7498   03 0158B    21700004 A            CI,7     4
     7499   03 0158C    683015D5              BE       TST3508           BACKSPACE ONLY
     7500   03 0158D    21700001 A            CI,7     1
     7501   03 0158E    694015C8              BCS,4    TST3507           SPACE FWD ONLY
     7502   03 0158F    22700000 A   TST3505  LI,7     0
     7503   03 01590    35701A50              STW,7    RRTT              CLEAR RETRY TALLY
     7504   03 01591    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7505   03 01592    22000C7F              LI,0     DA(RFSPEC)        READ FORWAD INTO MAX I/O AREA
     7506   03 01593    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     7507   03 01594    6AF016C1              BAL,15   MYDELAY           WAIT FOR INT ON CE              *A01
     7508   03 01595    22EFFCE0 A            LI,14    -800              WAIT FOR LONGEST RECORD
     7509   03 01596    65E01596              BIR,14   %
     7510   03 01597    CEA0195B              TDV,10   *:DEVADDR         TDV TO SEE IF AT EOT
     7511   03 01598    31B02143              CW,11    =X'02000000'      EOT
     7512   03 01599    694015DD              BCS,4    TST3510           GO TO HALT,EXIT
     7513   03 0159A    CDA0195B              TIO,10   *:DEVADDR         TIO
     7514   03 0159B    32C0196E              LW,12    MAXBYT            MAXIMUM BYTES
     7515   03 0159C    58C2000B A            SH,12    11,1              -BYTE COUNT LEFT
     7516   03 0159D    35C01980              STW,12   BYTECN
     7517   03 0159E    32801A4E              LW,8     TLOOP
     7518   03 0159F    31801A4F              CW,8     CMAX
     7519   03 015A0    693015A4              BNE      %+4
     7520   03 015A1    31200204 A            CW,2     :P4               PRINTOUT NTH RECORD
     7521   03 015A2    693015A4              BNE      %+2
     7522   03 015A3    6AF015E0              BAL,15   TST3511           GO TO PRINTOUT
     7523   03 015A4    31B02158              CW,11    =X'00400000'      TE ONLY
     7524   03 015A5    684015D9              BCR,4    TST3509
     7525                            *                                   TRANSMISSION ERROR RETRY ROUTINE
     7526   03 015A6    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7527   03 015A7    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     7528   03 015A8    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     7529   03 015A9    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     7530   03 015AA    33101A50              MTW,1    RRTT              RETRY+1
     7531   03 015AB    32701A50              LW,7     RRTT              RETRIES MAXIMUM
     7532   03 015AC    2170000B A            CI,7     11
     7533   03 015AD    69101591              BL       TST3505+2
     7534                            *                                   10 RETRIES , PRINTOUT AND HALT
     7535   03 015AE    32C01A4E              LW,12    TLOOP             RECORD IN ERROR
     7536   03 015AF    EAF00217 A            BAL,15   *:DECC            CONVERT
     7537   03 015B0    35F01B31              STW,15   MRTE+5            STORE
     7538   03 015B1    EAF00217 A            BAL,15   *:DECC            CONVERT
     7539   03 015B2    55F21B30              STH,15   MRTE+4,1          STORE
     7540   03 015B3    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7541   03 015B4    22000C80              LI,0     DA(RFSPEC1)       READ FWD WITH HTE
     7542   03 015B5    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     7543   03 015B6    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     7544   03 015B7    CDA0195B              TIO,10   *:DEVADDR         TIO
     7545   03 015B8    32C0196E              LW,12    MAXBYT            MAXIMUM BYTES
     7546   03 015B9    58C2000B A            SH,12    11,1              - BYTE COUNT FROM TIO
     7547   03 015BA    EAF00217 A            BAL,15   *:DECC            CONVERT
     7548   03 015BB    35F01B34              STW,15   MRTE+8            STORE
     7549   03 015BC    EAF00217 A            BAL,15   *:DECC            CONVERT
     7550   03 015BD    55F21B33              STH,15   MRTE+7,1          STORE
     7551   03 015BE    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     7552   03 015BF    00001B2C              DATA     MRTE
     7553   03 015C0    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7554   03 015C1    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     7555   03 015C2    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     7556   03 015C3    6AF016C1              BAL,15   MYDELAY           DELAY FOR INTERRUPT
     7557   03 015C4    31100204 A            CW,1     :P4               PRINTOUT ERROR RECORD
     7558   03 015C5    693015C7              BNE      %+2
     7559   03 015C6    6AF015E0              BAL,15   TST3511           GO TO PRINTOUT
     7560   03 015C7    680015DD              B        TST3510
     7561                            *                                   SPACE FWD N RECORDS
     7562   03 015C8    32701A4E     TST3507  LW,7     TLOOP             NTH RECORD
     7563   03 015C9    31701A4F              CW,7     CMAX
     7564   03 015CA    693015CD              BNE      %+3               NO
     7565   03 015CB    31200204 A            CW,2     :P4               YES
     7566   03 015CC    6830158F              BE       TST3505           READ NTH RECORD IF P4=2
     7567   03 015CD    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7568   03 015CE    22000C6D              LI,0     DA(SPFRAND)       SPACE FWD
     7569   03 015CF    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     7570   03 015D0    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     7571   03 015D1    CEA0195B              TDV,10   *:DEVADDR         TDV TO SEE IF AT EOT
     7572   03 015D2    31B02143              CW,11    =X'02000000'      EOT
     7573   03 015D3    694015DD              BCS,4    TST3510           GO TO HALT,EXIT
     7574   03 015D4    680015D9              B        TST3509
     7575                            *                                   SPACE BKW N RECORDS
     7576   03 015D5    6AF016DC     TST3508  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7577   03 015D6    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     7578   03 015D7    6AF01D52              BAL,15   :IOEXEC           TIO,SIO
     7579   03 015D8    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     7580   03 015D9    33101A4E     TST3509  MTW,1    TLOOP             TALLY+1
     7581   03 015DA    32701A4E              LW,7     TLOOP
     7582   03 015DB    31701A4F              CW,7     CMAX              MAXIMUM LOOPS
     7583   03 015DC    6820158A              BLE      TST3504
     7584   03 015DD    EAF0022B A   TST3510  WAITPROC WAITMSG2          WAIT FOR OPERATOR               *B01
            03 015DE    00002131
     7585   03 015DF    68000513              B        TST36             RETURN TO CONTROL PROGRAM
     7586                            *                                   PRINTOUT NTH RECORD OR ERROR RECORD
     7587   03 015E0    35F01978     TST3511  STW,15   ST1155            SAVE RETURN ADDRESS
     7588   03 015E1    32C01980              LW,12    BYTECN            NUMBER OF BYTES
     7589   03 015E2    EAF00217 A            BAL,15   *:DECC            CONVERT
     7590   03 015E3    35F01B3C              STW,15   RECOUT+6          STORE
     7591   03 015E4    EAF00217 A            BAL,15   *:DECC            CONVERT
     7592   03 015E5    55F21B3B              STH,15   RECOUT+5,1        STORE
     7593   03 015E6    32C01A4E              LW,12    TLOOP             RECORD NUMBER
     7594   03 015E7    EAF00217 A            BAL,15   *:DECC            CONVERT
     7595   03 015E8    35F01B38              STW,15   RECOUT+2          STORE
     7596   03 015E9    EAF00217 A            BAL,15   *:DECC            CONVERT
     7597   03 015EA    55F21B37              STH,15   RECOUT+1,1        STORE
     7598   03 015EB    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     7599   03 015EC    00001B36              DATA     RECOUT
     7600   03 015ED    22600000 A            LI,6     0
     7601   03 015EE    32701980              LW,7     BYTECN
     7602   03 015EF    25700001 A            SLS,7    1
     7603   03 015F0    21700048 A   TST3514  CI,7     72
     7604   03 015F1    682015F6              BLE      TST3512
     7605   03 015F2    2280004B A            LI,8     75                MAX BYTE COUNT FOR ONE LINE
     7606   03 015F3    75801B9A              STB,8    OUTMSG
     7607   03 015F4    207FFFB8 A            AI,7     -72               MESSAGE >72
     7608   03 015F5    680015F9              B        TST3513-2
     7609   03 015F6    20700003 A   TST3512  AI,7     3                 MESSAGE = 72 BYTES
     7610   03 015F7    75701B9A              STB,7    OUTMSG
     7611   03 015F8    22700000 A            LI,7     0
     7612   03 015F9    22BFFFF7 A            LI,11    -9
     7613   03 015FA    22500000 A            LI,5     0
     7614   03 015FB    32CC2182     TST3513  LW,12    BUFF1,6           GET WORD FROM READ AREA
     7615   03 015FC    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7616   03 015FD    35FA1B9C              STW,15   OUTMSG+2,5        STORE
     7617   03 015FE    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7618   03 015FF    35FA1B9B              STW,15   OUTMSG+1,5        STORE
     7619   03 01600    33200005 A            MTW,2    5
     7620   03 01601    33100006 A            MTW,1    6
     7621   03 01602    65B015FB              BIR,11   TST3513
     7622   03 01603    EAF0021C A            BAL,15   *:PRINT           PRINT ONE LINE
     7623   03 01604    00001B9A              DATA     OUTMSG
     7624   03 01605    21700000 A            CI,7     0
     7625   03 01606    E8201978              BLE      *ST1155           RETURN TO PROGRAM AFTER PRINT
     7626   03 01607    680015F0              B        TST3514
     7627                            *
     7628                            *
     7629                            *
     7630                            *
     7631                            *                                   SUBROUTINE TO DETERMINE TIMING LOOP
     7632                            *                                   -----------------------------------
     7633                            *
     7634   03 01608    35F01978     GETTIME  STW,15   ST1155            SAVE RETURN ADDRESS
     7635   03 01609    22F01624              LI,15    GETT2             SET UP RETURN ADDRESS ON ZBC
     7636   03 0160A    35F01658              STW,15   STOP2T+2
     7637   03 0160B    22F0161C              LI,15    GETT11            SET UP FIRST TIME ADDRESS
     7638   03 0160C    35F0165C              STW,15   STOPIT+2
     7639   03 0160D    22500000 A   GETT1    LI,5     0                 CLEAR REGISTERS
     7640   03 0160E    22700000 A            LI,7     0
     7641   03 0160F    32E02178              LW,14    =X'7FFFFFFF'
     7642   03 01610    22900000 A            LI,9     0
     7643   03 01611    22400000 A            LI,4     0
     7644   03 01612    32D01654              LW,13    STOP2
     7645   03 01613    32F01EF1              LW,15    :DELMTW
     7646   03 01614    35F00055 A            STW,15   X'55'             CLOCK COUNTER INTERRUPT
     7647   03 01615    32F01653              LW,15    STOPI
     7648   03 01616    35F0005B A            STW,15   X'5B'             INTERRUPT ON ZERO COUNT
     7649   03 01617    2280000A A            LI,8     10
     7650   03 01618    35201EE9              STW,2    :DELTIME
     7651   03 01619    22F01040 A            LI,15    X'1040'
     7652   03 0161A    6DF01200 A            WD,15    X'1200'
     7653   03 0161B    6800161B              B        %                 WAIT TO GET IN SYNC.
     7654   03 0161C    22F01040 A   GETT11   LI,15    X'1040'           START CLOCK
     7655   03 0161D    6DF01200 A            WD,15    X'1200'
     7656   03 0161E    35D0005B A            STW,13   X'5B'             CHANGE INTERRUPT
     7657   03 0161F    35801EE9              STW,8    :DELTIME          RESET TIME TO 10
     7658   03 01620    33100005 A            MTW,1    5                 TALLY =TALLY+1
     7659   03 01621    CEA0195B              TDV,10   *:DEVADDR
     7660   03 01622    51E2000B A            CH,14    11,1
     7661   03 01623    69201620              BCS,2    %-3
     7662   03 01624    22F01040 A   GETT2    LI,15    X'1040'           DISARM CLOCK
     7663   03 01625    6DF01100 A            WD,15    X'1100'
     7664   03 01626    22A00000 A            LI,10    0
     7665   03 01627    32B02179              LW,11    =20000            SET UP DIVISION IN R10 AND R11
     7666   03 01628    36A00005 A            DW,10    5                 TIME/ LOOP TALLY
     7667   03 01629    35B01979              STW,11   TIME1             R11 HAS TALLY VALUE
     7668   03 0162A    22F0162F              LI,15    GETT12
     7669   03 0162B    35F0165C              STW,15   STOPIT+2
     7670   03 0162C    22F01636              LI,15    GETT3             SET UP RETURN ADDRESS ON ZBC
     7671   03 0162D    35F01658              STW,15   STOP2T+2
     7672   03 0162E    6800160D              B        GETT1
     7673   03 0162F    22F01040 A   GETT12   LI,15    X'1040'           START CLOCK
     7674   03 01630    6DF01200 A            WD,15    X'1200'
     7675   03 01631    35D0005B A            STW,13   X'5B'             CHANGE INTERRUPT
     7676   03 01632    35801EE9              STW,8    :DELTIME          RESET TIME TO 10
     7677   03 01633    33100009 A            MTW,1    9                 TALLY =TALLY+1
     7678   03 01634    F1A02136              CB,10    *BUFF2
     7679   03 01635    68001633              B        %-2                                               *B01
     7680   03 01636    22F01040 A   GETT3    LI,15    X'1040'           DISARM CLOCK
     7681   03 01637    6DF01100 A            WD,15    X'1100'
     7682   03 01638    22A00000 A            LI,10    0
     7683   03 01639    32B02179              LW,11    =20000            SET UP DIVISION IN R10 AND R11
     7684   03 0163A    36A00009 A            DW,10    9                 TIME/ LOOP TALLY
     7685   03 0163B    35B0197A              STW,11   TIME2             R11 HAS TALLY VALUE
     7686   03 0163C    22F01641              LI,15    GETT13
     7687   03 0163D    35F0165C              STW,15   STOPIT+2
     7688   03 0163E    22F01648              LI,15    GETT4             SET UP RETURN ADDRESS ON ZBC
     7689   03 0163F    35F01658              STW,15   STOP2T+2
     7690   03 01640    6800160D              B        GETT1
     7691   03 01641    22F01040 A   GETT13   LI,15    X'1040'           START CLOCK
     7692   03 01642    6DF01200 A            WD,15    X'1200'
     7693   03 01643    35D0005B A            STW,13   X'5B'             CHANGE INTERRUPT
     7694   03 01644    35801EE9              STW,8    :DELTIME          RESET TIME TO 10
     7695   03 01645    33100007 A            MTW,1    7                 TALLY =TALLY+1
     7696   03 01646    CDA0195B              TIO,10   *:DEVADDR
     7697   03 01647    68C01645              BCR,12   %-2
     7698   03 01648    22F01040 A   GETT4    LI,15    X'1040'           DISARM CLOCK
     7699   03 01649    6DF01100 A            WD,15    X'1100'
     7700   03 0164A    22A00000 A            LI,10    0
     7701   03 0164B    32B02179              LW,11    =20000            SET UP DIVISION IN R10 AND R11
     7702   03 0164C    36A00007 A            DW,10    7                 TIME/ LOOP TALLY
     7703   03 0164D    35B0197B              STW,11   TIME3             R11 HAS TALLY VALUE
     7704   03 0164E    32801EF1              LW,8     :DELMTW           CLOCK INTERRUPT
     7705   03 0164F    35800055 A            STW,8    X'55'
     7706   03 01650    32801EF0              LW,8     :DELXPSD          RESTORE CLOCK 5B INTERRUPT
     7707   03 01651    3580005B A            STW,8    X'5B'
     7708   03 01652    EAF01978              BAL,15   *ST1155           GO BACK TO PROGRAM
     7709                            *
     7710                            *
     7711                            *
     7712   03 01653    0F00165A     STOPI    XPSD,0   STOPIT
     7713   03 01654    0F001656     STOP2    XPSD,0   STOP2T
     7714                                     BOUND    8
     7715   03 01656    00000000 A   STOP2T   DATA     0,0,GETT2,0
            03 01657    00000000 A
            03 01658    00001624
            03 01659    00000000 A
     7716                                     BOUND    8
     7717   03 0165A    00000000 A   STOPIT   DATA     0,0,GETT11,0
            03 0165B    00000000 A
            03 0165C    0000161C
            03 0165D    00000000 A
     7718                            *
     7719                            *
     7720                            *
     7721                            *
     7722                            *
     7723                            *                                   WRITE RETRY SUBROUTINE
     7724                            *                                   ------------------------------------
     7725   03 0165E    3260192D     TWRTRY   LW,6     CRTRY             NUMBER OF RETRIES
     7726   03 0165F    68201262              BLE      T2RE06B           NO RETRIES
     7727   03 01660    15601938              STD,6    RTRYSVE           SAVE R6 AND R7
     7728   03 01661    6AF016DC     TWRTRY2  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7729   03 01662    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW
     7730   03 01663    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     7731   03 01664    6AF016C1              BAL,15   MYDELAY
     7732   03 01665    6AF016DC     TWRTRY3  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7733   03 01666    22000C35              LI,0     DA(WRRAND)        RE-WRITE RECORD
     7734   03 01667    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     7735   03 01668    6AF016C1              BAL,15   MYDELAY           DELAY TILL INTERRUPT
     7736   03 01669    CDE0195B              TIO,14   *:DEVADDR         TIO
     7737   03 0166A    31F01A72              CW,15    CHKBITT           UE,INC LENGTH,TE, ERRORS
     7738   03 0166B    6840167C              BCR,4    TWRTRY4           NO ERRORS
     7739                            *        ERROR MESSAG NOT DONE HERE
     7740   03 0166C    64601661              BDR,6    TWRTRY2
     7741                            *        PERMANT WRITE ERROR + 1
     7742   03 0166D    331E1912              MTW,1    PWTALLY,7         PERM WRITE ERROR TALLY +1
     7743   03 0166E    12C0186A              LD,12    WRRAND            SET UP IOCD
     7744   03 0166F    6AF0170D              BAL,15   MYERROR           PRINTOUT PERM ERROR
     7745   03 01670    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     7746   03 01671    2E000000 A            WAIT
     7747   03 01672    68001673              B        %+1               CANNOT LOOP ON ERROR
     7748   03 01673    3260192D              LW,6     CRTRY             RESET RETRY TALLY
     7749   03 01674    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7750   03 01675    22000C6C              LI,0     DA(SPBRAND)       SPACE BKW OVER BAD RECORD
     7751   03 01676    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     7752   03 01677    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     7753   03 01678    22000C1C              LI,0     DA(TSE1)          SET ERASE OVER BAD SPOT ON TAPE
     7754   03 01679    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     7755   03 0167A    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     7756   03 0167B    68001665              B        TWRTRY3           WRITE A RECORD WITH ERASE SET
     7757                            *        TEMPORARYWRITE ERROR +1
     7758   03 0167C    3160192D     TWRTRY4  CW,6     CRTRY             GOOD WRITE
     7759   03 0167D    6830167F              BE       %+2
     7760   03 0167E    331E190A              MTW,1    TWTALLY,7         TEMP WRITE ERROR TALLY +1
     7761   03 0167F    12601938     TWRTRY5  LD,6     RTRYSVE
     7762   03 01680    68001267              B        T2RE07            RETURN TO PROGRAM
     7763                            *
     7764                            *
     7765                            *                                   READ FORWARD ERROR RETRY SUBROUTINE
     7766                            *                                   ------------------------------------
     7767                            *
     7768   03 01681    3260192D     RFRTRY   LW,6     CRTRY             NUMBER OF RETRIES =0
     7769   03 01682    682012AC              BLE      T2RE017E          NO RETRIES
     7770   03 01683    15601938              STD,6    RTRYSVE           SAVE R6 AND R7
     7771   03 01684    6AF016DC     RFRTRY2  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7772   03 01685    22000C6C              LI,0     DA(SPBRAND)       SPACE BACKWARD
     7773   03 01686    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     7774   03 01687    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     7775   03 01688    6AF016DC     RFRTRY3  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7776   03 01689    22000C4B              LI,0     DA(RFRAND)        RE-READ RECORD FORWARD
     7777   03 0168A    6AF01D52              BAL,15   :IOEXEC           EXECUTE TIO, SIO
     7778   03 0168B    6AF016C1              BAL,15   MYDELAY           WAIT FOR INTERRUPT
     7779   03 0168C    CDE0195B              TIO,14   *:DEVADDR         TIO
     7780   03 0168D    31F01A73              CW,15    CHKBIT            UE,INC LENGTH,IOP,MEMORY ERRORS
     7781   03 0168E    68401691              BCR,4    %+3
     7782   03 0168F    331E1922              MTW,1    TRFTALLY,7        TEMP READ FWD TALLY
     7783   03 01690    68001695              B        RFRTRY4-6         BRANCH TO ERROR PRINTOUT
     7784   03 01691    31F02158              CW,15    =X'00400000'      TE ERROR
     7785   03 01692    6840169B              BCR,4    RFRTRY4           NO ERRORS
     7786   03 01693    64601684              BDR,6    RFRTRY2
     7787                            *        PERMANT READ FWD ERROR + 1
     7788   03 01694    331E191A              MTW,1    PRFTALLY,7        PERM READ FWD ERROR TALLY +1
     7789   03 01695    12C01896              LD,12    RFRAND            SET UP IOCD
     7790   03 01696    6AF0170D              BAL,15   MYERROR           PRINTOUT PERM ERROR
     7791   03 01697    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     7792   03 01698    2E000000 A            WAIT
     7793   03 01699    6800169A              B        %+1               CANNOT LOOP ON ERROR
     7794   03 0169A    6800169C              B        RFRTRY5
     7795   03 0169B    331E1922     RFRTRY4  MTW,1    TRFTALLY,7        TEMP READ FWD ERROR TALLY +1
     7796   03 0169C    12601938     RFRTRY5  LD,6     RTRYSVE           RESTORE R6, R7
     7797   03 0169D    680012B1              B        T2RE18D           RETURN TO PROGRAM
     7798                            *
     7799                            *
     7800                            *
     7801                            *
     7802                            *
     7803                            *
     7804                            *
     7805                            *
     7806                            *
     7807                            *                                   REWIND AND TEST FOR LOAD POINT
     7808                            *                                   ------------------------------------
     7809   03 0169E    35F01946     RWTLP    STW,15   ST15              SAVE RETURN ADDRESS
     7810   03 0169F    6AF016E4              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     7811   03 016A0    22000C24              LI,0     DA(TRWOL)         REWIND ON LINE
     7812   03 016A1    32E02151              LW,14    =X'66000000'
     7813   03 016A2    CCA0195B              SIO,10   *:DEVADDR         SIO
     7814   03 016A3    CDC0195B              TIO,12   *:DEVADDR         TIO
     7815   03 016A4    31E0000D A            CW,14    13                BUSY OR REWINDING
     7816   03 016A5    694016A3              BCS,4    %-2
     7817   03 016A6    32E02152     RWTLP1   LW,14    =X'04000000'      LOAD POINT ONLY
     7818   03 016A7    CEC0195B              TDV,12   *:DEVADDR         TDV AFTER REWIND
     7819   03 016A8    31D0000E A            CW,13    14
     7820   03 016A9    694016AF              BCS,4    RWTLP2
     7821                            *        ERROR EXIT NO LOAD POINT
     7822   03 016AA    EAF0021C A            BAL,15   *:PRINT           PRINTOUT MESSAGE
     7823   03 016AB    00001AB6              DATA     NOLOAD
     7824   03 016AC    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     7825   03 016AD    2E000000 A            WAIT
     7826   03 016AE    680016AF              B        %+1
     7827   03 016AF    22FFFED4 A   RWTLP2   LI,15    -300              LOAD POINT DELAY
     7828   03 016B0    65F016B0              BIR,15   %
     7829   03 016B1    E8001946              B        *ST15             GO BACK TO PROGRAM
     7830                            *
     7831                            *
     7832                            *                                   I/O RESET ROUTINE
     7833                            *                                   ------------------------------------
     7834                            *
     7835                            *                                   I/O RESET ROUTINE
     7836   03 016B2    15401940     RESETS   STD,4    SAVE45            MYDELAY SUBROUTINE ENTRY
     7837   03 016B3    35F01946              STW,15   ST15              SAVE R15
     7838   03 016B4    225FEC78 A            LI,5     -5000
     7839   03 016B5    6D000042 A            WD,0     X'0042'           TURN ON FF
     7840   03 016B6    655016B6              BIR,5    %                 DELAY
     7841   03 016B7    225FEC78 A            LI,5     -5000
     7842   03 016B8    6D000042 A            WD,0     X'0042'           TURN OFF FF
     7843   03 016B9    655016B9              BIR,5    %                 DELAY
     7844   03 016BA    CFA0195B              HIO,10   *:DEVADDR         HALT I/O OPERATION
     7845   03 016BB    EAF0021C A            BAL,15   *:PRINT           TIMEOUT ERROR PRINTOUT
     7846   03 016BC    00001AB0              DATA     TIMEOUT
     7847   03 016BD    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SWITCHES
     7848   03 016BE    2E000000 A            WAIT
     7849   03 016BF    12401940              LD,4     SAVE45            RESTORE REGISTERS
     7850   03 016C0    E8001946              B        *ST15             RETURN TO PROGRAM
     7851                            *
     7852                            *
     7853                            *                                   DELAY AND WAIT FOR INTERRUPT
     7854                            *                                   ------------------------------------
     7855   03 016C1    15E0193E     MYDELAY  STD,14   STDELAY           SAVE R14,R15
     7856   03 016C2    22E00F00 A            LI,14    X'F00'            ALLOW FOR LARGEST RECORD
     7857   03 016C3    6AF01ED4              BAL,15   :DELAY            DELAY SUBROUTINE
     7858   03 016C4    680016DA              B        MYDELAY1
     7859                            *        ERROR MESSAGE TIMEOUT NO INTERRUPT
     7860   03 016C5    22E00020 A            LI,14    X'20'             DISARM I/O INTERRUPT            *A02
     7861   03 016C6    6DE01100 A            WD,14    X'1100'                                           *A02
     7862   03 016C7    EAF0021C A            BAL,15   *:PRINT           PRINTOUT MESSAGE
     7863   03 016C8    00001ABA              DATA     DELSUB
     7864   03 016C9    6AF016B2              BAL,15   RESETS            RESET OR HIO IN CASE OF TAPE RUNAWAY
     7865   03 016CA    15C01940              STD,12   SAVE45            SAVE (R12 & R13)                *A01
     7866   03 016CB    32C00390              LW,12    ITHTEST           TEST NUMBE                      *A01
     7867   03 016CC    EAF00218 A            BAL,15   *:HEXC              CONVERT TO EBCDIC             *A01
     7868   03 016CD    75F21AB5              STB,15   TIMEOUT1+1,1        PLACE IN MSG                  *A01
     7869   03 016CE    EAF0021C A            BAL,15   *:PRINT             PRINT MSG                     *A01
     7870   03 016CF    00001AB4              DATA     TIMEOUT1              ' TSTX'                     *A01
     7871   03 016D0    31100390              CW,1     ITHTEST           TST1 CHECK                      *A01
     7872   03 016D1    693016D7              BNE      %+6                 NOT TST1                      *A01
     7873   03 016D2    32C00391              LW,12    ITHSUBT           SUBTEST NUMBER                  *A01
     7874   03 016D3    EAF00217 A            BAL,15   *:DECC              CONVERT TO EBCDIC             *A01
     7875   03 016D4    55F2039D              STH,15   ITHM3+3,1           PLACE IN MSG                  *A01
     7876   03 016D5    EAF0021C A            BAL,15   *:PRINT             PRINT MSG                     *A01
     7877   03 016D6    0000039A              DATA     ITHM3                 ' SUBTEST NO. XX'           *A01
     7878   03 016D7    12C01940              LD,12    SAVE45                                            *A01
     7879   03 016D8    22E00020 A            LI,14    X'20'             ARM AND ENABLE I/O INTERRUPT    *A02
     7880   03 016D9    6DE01200 A            WD,14    X'1200'                                           *A02
     7881   03 016DA    12E0193E     MYDELAY1 LD,14    STDELAY           RESTORE REGISTERS
     7882   03 016DB    E800000F A            B        *R15
     7883                            *
     7884                                     BOUND    8
     7885                            *
     7886                            *
     7887                            *
     7888                            *                                   THIS SUBROUTINE RESETS INTERRUPT
     7889                            *                                                   CLEARS TEST FLAGS
     7890                            *                                                   AND ARMS INTERRUPT
     7891                            *                                   ------------------------------------
     7892                            *
     7893   03 016DC    35F01953     CLRARM   STW,15   ST151             SAVE RETURN ADDRESS
     7894   03 016DD    6ED00000 A            AIO,13   0                 RESET INTERRUPT IF ANY
     7895   03 016DE    6AF020D8              BAL,15   :SAVECLR          CLEAR TEST FLAGS
     7896   03 016DF    22F00000 A            LI,15    0
     7897   03 016E0    35F01F54              STW,15   :INTRECF          CLEAR INTERRUPT FLAG
     7898   03 016E1    22F00020 A            LI,15    X'20'             ARM INTERRUPT
     7899   03 016E2    6DF01200 A            WD,15    X'1200'
     7900   03 016E3    E8001953              B        *ST151            RETURN TO PROGRAM
     7901                            *
     7902                            *
     7903                            *
     7904                            *
     7905                            *
     7906                            *
     7907                            *                                   THIS SUBROUTINE RESETS INTERRUPT
     7908                            *                                                   CLEARS TEST FLAGS
     7909                            *                                                   AND DISARMS INTERUPT
     7910                            *                                   ------------------------------------
     7911                            *
     7912                            *
     7913   03 016E4    35F01953     CLRDARM  STW,15   ST151             SAVE RETURN ADDRESS
     7914   03 016E5    6ED00000 A            AIO,13   0                 RESET INTERRUPT IF ANY
     7915   03 016E6    6AF020D8              BAL,15   :SAVECLR          CLEAR TEST FLAGS
     7916   03 016E7    22F00000 A            LI,15    0
     7917   03 016E8    35F01F54              STW,15   :INTRECF          CLEAR INTERRUPT FLAG
     7918   03 016E9    22F00020 A            LI,15    X'20'             DISARM INTERRUPT
     7919   03 016EA    6DF01100 A            WD,15    X'1100'
     7920   03 016EB    E8001953              B        *ST151            RETURN TO PROGRAM
     7921                            *
     7922                            *
     7923                            *
     7924                            *
     7925                            *                                   SUBROUTINE ARMS, SET UP DEV ADDR.
     7926                            *                                   ------------------------------------
     7927                            *
     7928                            *
     7929   03 016EC    22700000 A   DOALL    LI,7     0                 CLEAR R7
     7930   03 016ED    3A501964              LCW,5    SAVNUMB           NUMBER OF UNITS LISTED
     7931   03 016EE    35F01945     DOALL1   STW,15   ST1512            SAVE R15
     7932   03 016EF    6AF016DC              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     7933   03 016F0    32FE195C              LW,15    SAVDEV,7          NEXT UNIT
     7934   03 016F1    35F0195B              STW,15   :DEVADDR
     7935   03 016F2    E8001945              B        *ST1512           RETURN TO PROGRAM
     7936                            *
     7937                            *
     7938                            *
     7939                            *
     7940                            *                                   SMEAR PATTERN AND SET UP COMPARE
     7941                            *                                   --------------------------------
     7942                            *
     7943   03 016F3    35F01953     SMEARSP  STW,15   ST151             SAVE RETURN ADDRESS
     7944   03 016F4    680016FE              B        SMEARPTA+1
     7945   03 016F5    35F01953     SMEARPTR STW,15   ST151             SAVE RETURN ADDRESS
     7946   03 016F6    31101933              CW,1     STDPB             PACKED BINARY STANDARD
     7947   03 016F7    683016FC              BE       %+5
     7948   03 016F8    31101934              CW,1     OPTPB             PACKED BINARY OPTION
     7949   03 016F9    683016FC              BE       %+3
     7950   03 016FA    32F02157              LW,15    =X'3F3F3F3F'      BINARY PATTERN
     7951   03 016FB    680016FD              B        %+2
     7952   03 016FC    32F0215C              LW,15    =X'FFFFFFFF'      ALL BITS ON
     7953   03 016FD    35F01DE7     SMEARPTA STW,15   :PATID+1          STORE PATTERN
     7954   03 016FE    22F00000 A            LI,15    0
     7955   03 016FF    35F01DE6              STW,15   :PATID            FIXED WORD PATTERN
     7956   03 01700    35F01E6B              STW,15   :COMFLAG          ERROR PRINTOUT WANTED
     7957   03 01701    22F00019 A            LI,15    25
     7958   03 01702    35F01DE9              STW,15   :PATWC            WORD COUNT
     7959   03 01703    35F01DA2              STW,15   :CLRSIZE          WORD COUNT FOR BUFFER CLEARING
     7960   03 01704    35F01E68              STW,15   :COMWCNT          NUMBER OF WORDS TO COMPARE
     7961   03 01705    22F02182              LI,15    BUFF1
     7962   03 01706    35F01DEA              STW,15   :PATBFR           EXPECTED PATTERN
     7963   03 01707    35F01E69              STW,15   :COMBFRA
     7964   03 01708    32F02136              LW,15    BUFF2
     7965   03 01709    35F01DA1              STW,15   :CLRADDR          ADDRESS FOR CLEAR BUFFER
     7966   03 0170A    35F01E6A              STW,15   :COMBFRB          OBSERVED PATTERN
     7967   03 0170B    6AF01DA7              BAL,15   :PATTERN          SMEAR PATTERN
     7968   03 0170C    E8001953              B        *ST151            RETURN TO PROGRAM
     7969                            *
     7970                            *
     7971                            *
     7972                            *                  RANDOM EXERCISER ERROR MESSAGE
     7973                            *                  ----------------------------------------
     7974                            *
     7975   03 0170D    35F0193A     MYERROR  STW,15   SAVIT             SAVE R15
     7976   03 0170E    6AF01F5D              BAL,15   IOCDMSG           GET IOCD PRINTOUT
     7977   03 0170F    32E0216F              LW,14    =X'FFFF0000'      GET TIO PRINTOUT
     7978   03 01710    6AF01C4E              BAL,15   :TIO              TIO
     7979   03 01711    68001712              B        %+1
     7980   03 01712    32E0216F              LW,14    =X'FFFF0000'      GET TDV PRINTOUT
     7981   03 01713    6AF01C64              BAL,15   :TDV              TDV
     7982   03 01714    68001715              B        %+1
     7983   03 01715    31101999              CW,1     NZFLAG            RE OR NOISE PATTERNS
     7984   03 01716    69301722              BNE      MYERROR1          GO TO RE PRINTOUT
     7985   03 01717    32C0195B              LW,12    :DEVADDR          DEVICE
     7986   03 01718    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7987   03 01719    35F01BB0              STW,15   REMESG32+2        IN PRINTOUT
     7988   03 0171A    32C0192B              LW,12    LOOPTLY           CURRENT RECORD TALLY
     7989   03 0171B    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7990   03 0171C    35F01BB7              STW,15   REMESG32+9
     7991   03 0171D    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7992   03 0171E    35F01BB6              STW,15   REMESG32+8
     7993   03 0171F    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     7994   03 01720    00001BAE              DATA     REMESG32
     7995   03 01721    68001741              B        MYERROR2          RETURN TO  TEST
     7996   03 01722    32C0194E     MYERROR1   LW,12  SAVESEED
     7997   03 01723    EAF00218 A            BAL,15   *:HEXC            CONVERT
     7998   03 01724    35F01B70              STW,15   REMESG1+4
     7999   03 01725    32C0194E              LW,12    SAVESEED
     8000   03 01726    25C00070 A            SLS,12   -16
     8001   03 01727    EAF00218 A            BAL,15   *:HEXC            CONVERT FOR MESSAGE
     8002   03 01728    35F01B6F              STW,15   REMESG1+3         SEED IN PRINTOUT
     8003   03 01729    32C0195B              LW,12    :DEVADDR          DEVICE NUMBER
     8004   03 0172A    EAF00218 A            BAL,15   *:HEXC            CONVERT
     8005   03 0172B    35F01B73              STW,15   REMESG1+7
     8006   03 0172C    32C0192B              LW,12    LOOPTLY           CURRENT TALLY OF PASSES
     8007   03 0172D    EAF00218 A            BAL,15   *:HEXC            CONVERT
     8008   03 0172E    35F01B78              STW,15   REMESG1+12        STORE
     8009   03 0172F    32C0192B              LW,12    LOOPTLY
     8010   03 01730    25C00070 A            SLS,12   -16               SHIFT
     8011   03 01731    EAF00218 A            BAL,15   *:HEXC            CONVERT
     8012   03 01732    35F01B77              STW,15   REMESG1+11        STORE
     8013   03 01733    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     8014   03 01734    00001B6C              DATA     REMESG1
     8015   03 01735    22C01A80              LI,12    REDAPT            ADDRESS OF FIRST SET
     8016   03 01736    30C0192F              AW,12    OPFLAG
     8017   03 01737    30C0192F              AW,12    OPFLAG
     8018   03 01738    30C0192F              AW,12    OPFLAG
     8019   03 01739    B2F0000C A            LW,15    *12               FIRST WORD OF MESSAGE
     8020   03 0173A    35F01B7E              STW,15   REMESG2+4
     8021   03 0173B    B2F2000C A            LW,15    *12,1             SECOND WORD
     8022   03 0173C    35F01B7F              STW,15   REMESG2+5
     8023   03 0173D    B2F4000C A            LW,15    *12,2             THIRD WORD OF MESSAGE
     8024   03 0173E    35F01B80              STW,15   REMESG2+6
     8025   03 0173F    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     8026   03 01740    00001B7A              DATA     REMESG2
     8027   03 01741    32F0193A     MYERROR2 LW,15    SAVIT             RETURN ADDRESS
     8028   03 01742    E800000F A            B        *R15              RETURN TO PROGRAM
     8029                            *
     8030                            *
     8031                            *
     8032                            *
     8033                            *
     8034                            *
     8035                            *                            SMEAR NOISE PATTERNS
     8036                            *                            -------------------------------
     8037                            *
     8038                            *
     8039   03 01743    35102182     MYTSTPT  STW,1    BUFF1             SET UP FIRST SEQ NO
     8040   03 01744    22600001 A            LI,6     1                 WORD COUNT
     8041   03 01745    31101A74              CW,1     MODEFLAG          PACKED INFORMATION
     8042   03 01746    6830177C              BE       MYTSTPT8-3
     8043   03 01747    229FFFFB A            LI,9     -5
     8044   03 01748    22700000 A            LI,7     0
     8045   03 01749    225FFFFB A            LI,5     -5
     8046   03 0174A    22D0199F     MYTSTPT1 LI,13    NZDATA1           PULSE CROWDING AND WRITE SKEW
     8047   03 0174B    55D2174C              STH,13   MYTSTPT2,1        STARTING PATTERN
     8048   03 0174C    32E0199F     MYTSTPT2 LW,14    NZDATA1           DATA PATTERN
     8049   03 0174D    35EC2182              STW,14   BUFF1,6           STORE PATTERN
     8050   03 0174E    33100006 A            MTW,1    6
     8051   03 0174F    3310174C              MTW,1    MYTSTPT2
     8052   03 01750    6550174C              BIR,5    MYTSTPT2          5 PATTERNS
     8053   03 01751    65901748              BIR,9    MYTSTPT1-2        5 TIMES
     8054   03 01752    22CFFFF6 A            LI,12    -10
     8055   03 01753    229FFFFA A            LI,9     -6
     8056   03 01754    22700000 A            LI,7     0
     8057   03 01755    32EE19A4     MYTSTPT4 LW,14    NZDATA2,7         WRITE CROSS TALK AND READ SKEW
     8058   03 01756    35EC2182              STW,14   BUFF1,6           STORE PATTERN
     8059   03 01757    33100006 A            MTW,1    6
     8060   03 01758    33100007 A            MTW,1    7
     8061   03 01759    65901755              BIR,9    MYTSTPT4          6 PATTERNS
     8062   03 0175A    65C01753              BIR,12   MYTSTPT4-2        10 TIMES
     8063   03 0175B    22CFFFFB A            LI,12    -5
     8064   03 0175C    3560199D              STW,6    SAVE6             SAVE WORD LOCATION
     8065   03 0175D    22700000 A            LI,7     0
     8066   03 0175E    229FFFCE A            LI,9     -50
     8067   03 0175F    32EE19AA     MYTSTPT5 LW,14    NZDATA3,7         BASELINE NOISE PATTERN
     8068   03 01760    35EC2182              STW,14   BUFF1,6           STORE PATTERN
     8069   03 01761    33100006 A            MTW,1    6
     8070   03 01762    65901760              BIR,9    %-2               50 WORDS OF PATTERN
     8071   03 01763    33100007 A            MTW,1    7
     8072   03 01764    65C0175E              BIR,12   MYTSTPT5-1        CHANGE PATTERNS
     8073   03 01765    22E03F3F A            LI,14    X'3F3F'           ALL BITS ON
     8074   03 01766    3280199D              LW,8     SAVE6             SAVE WORD LOCATION
     8075   03 01767    20802182              AI,8     BUFF1
     8076   03 01768    5582176D              STH,8    MYTSTPT6,1
     8077   03 01769    229FFFFB A            LI,9     -5
     8078   03 0176A    22700000 A            LI,7     0
     8079   03 0176B    5522176E              STH,2    MYTSTPT7,1
     8080   03 0176C    22AFFFEE A            LI,10    -18               DO 18 TIMES
     8081   03 0176D    75EE2182     MYTSTPT6 STB,14   BUFF1,7           STORE ALL BITS SPACING XYXXYXXXY
     8082   03 0176E    20700002 A   MYTSTPT7 AI,7     2                   CHANGE SPACING
     8083   03 0176F    3310176E              MTW,1    MYTSTPT7
     8084   03 01770    65A0176D              BIR,10   MYTSTPT6
     8085   03 01771    20800032 A            AI,8     50
     8086   03 01772    5582176D              STH,8    MYTSTPT6,1
     8087   03 01773    6590176A              BIR,9    MYTSTPT6-3        CHANGE PATTERNS
     8088   03 01774    22500000 A            LI,5     0
     8089   03 01775    32601971              LW,6     MAXREAD           SMEAR REMAINING I/O AREA
     8090   03 01776    206FFEB1 A            AI,6     -335
     8091   03 01777    32CA2183              LW,12    BUFF1+1,5
     8092   03 01778    35CA22D1              STW,12   BUFF1+335,5       STORE WORD
     8093   03 01779    33100005 A            MTW,1    5
     8094   03 0177A    64601777              BDR,6    %-3
     8095   03 0177B    E800000F A            B        *15               RETURN TO PROGRAM
     8096                            *                                   PACKED INFORMATION SMEAR
     8097   03 0177C    22600000 A            LI,6     0
     8098   03 0177D    229FFFEC A            LI,9     -20
     8099   03 0177E    225FFFFD A            LI,5     -3                20 TIMES FOR 3 PATTERNS
     8100   03 0177F    22D019AF     MYTSTPT8 LI,13    NZPK1             SET UP FIRST PATTERN
     8101   03 01780    55D21781              STH,13   MYTSTPT9,1
     8102   03 01781    32E019AF     MYTSTPT9 LW,14    NZPK1
     8103   03 01782    35EC2182              STW,14   BUFF1,6           STORE WORD
     8104   03 01783    33100006 A            MTW,1    6
     8105   03 01784    33101781              MTW,1    MYTSTPT9
     8106   03 01785    65501781              BIR,5    MYTSTPT9
     8107   03 01786    6590177E              BIR,9    MYTSTPT8-1        60 WORDS IN PATTERN
     8108   03 01787    229FFFF1 A            LI,9     -15
     8109   03 01788    225FFFFC A            LI,5     -4                4 WORDS 15 TIMES
     8110   03 01789    22D019B2              LI,13    NZPK2
     8111   03 0178A    55D2178B              STH,13   MYTSTPTA,1
     8112   03 0178B    32E019B2     MYTSTPTA LW,14    NZPK2
     8113   03 0178C    35EC2182              STW,14   BUFF1,6           STORE WORD
     8114   03 0178D    33100006 A            MTW,1    6
     8115   03 0178E    3310178B              MTW,1    MYTSTPTA
     8116   03 0178F    6550178B              BIR,5    MYTSTPTA
     8117   03 01790    65901788              BIR,9    MYTSTPTA-3        60 WORDS
     8118   03 01791    35102182              STW,1    BUFF1
     8119   03 01792    3560199D              STW,6    SAVE6             SAVE REGISTER
     8120   03 01793    22700000 A            LI,7     0
     8121   03 01794    229FFFF1 A            LI,9     -15
     8122   03 01795    225FFFFD A            LI,5     -3
     8123   03 01796    22D019B6              LI,13    NZPK3             3 WORDS 15 TIMES EACH PATTERN(5 PAT)
     8124   03 01797    55D21798              STH,13   MYTSTPTB,1
     8125   03 01798    32EE19B6     MYTSTPTB LW,14    NZPK3,7
     8126   03 01799    35EC2182              STW,14   BUFF1,6
     8127   03 0179A    33100006 A            MTW,1    6
     8128   03 0179B    33101798              MTW,1    MYTSTPTB
     8129   03 0179C    65501798              BIR,5    MYTSTPTB
     8130   03 0179D    65901795              BIR,9    MYTSTPTB-3
     8131   03 0179E    33300007 A            MTW,3    7
     8132   03 0179F    2170000F A            CI,7     15                ALL PATTERNS DONE
     8133   03 017A0    69101794              BL       MYTSTPTB-4        5 PATTERNS
     8134   03 017A1    229FFFFB A            LI,9     -5
     8135   03 017A2    3260199D              LW,6     SAVE6
     8136   03 017A3    20602182              AI,6     BUFF1             FIRST ADDRESS
     8137   03 017A4    556217AA              STH,6    MYTSTPTC,1        SET UP FIRST ADDRESS
     8138   03 017A5    22600000 A            LI,6     0
     8139   03 017A6    22700000 A            LI,7     0
     8140   03 017A7    32EC19C5              LW,14    NZPK4,6           SET UP BYTE
     8141   03 017A8    553217AB              STH,3    MYTSTPTD,1
     8142   03 017A9    22AFFFFA A            LI,10    -6
     8143   03 017AA    55EE2182     MYTSTPTC STH,14   BUFF1,7           STORE HALF WORD
     8144   03 017AB    20700003 A   MYTSTPTD AI,7     3
     8145   03 017AC    333017AB              MTW,3    MYTSTPTD
     8146   03 017AD    65A017AA              BIR,10   MYTSTPTC
     8147   03 017AE    33100006 A            MTW,1    6                 NEXT BYTE
     8148   03 017AF    52E217AA              LH,14    MYTSTPTC,1
     8149   03 017B0    20E0002D A            AI,14    45
     8150   03 017B1    55E217AA              STH,14   MYTSTPTC,1        NEXT PATTERN
     8151   03 017B2    659017A6              BIR,9    MYTSTPTC-4
     8152   03 017B3    32601971              LW,6     MAXREAD           MAXIMUM SIZE FOR READ
     8153   03 017B4    206FFEA7 A            AI,6     -345
     8154   03 017B5    22500000 A            LI,5     0                 R5 =0
     8155   03 017B6    32CA2182              LW,12    BUFF1,5
     8156   03 017B7    35CA22DB              STW,12   BUFF1+345,5       STORE WORD
     8157   03 017B8    33100005 A            MTW,1    5
     8158   03 017B9    646017B6              BDR,6    %-3
     8159   03 017BA    E800000F A            B        *15               RETURN TO PROGRAM
     8160                            *
     8161                            *
     8162                            *
     8163                            *
     8164                            *
     8165                            *                                   SUBROUTINE TO UNPACK DATA
     8166                            *                                   ------------------------------------
     8167                            *
     8168                            *
     8169   03 017BB    35F017EE     UNPACK   STW,15   SVE15             SAVE RETURN ADDRESS
     8170   03 017BC    156017F0              STD,6    SAVEON            SAVE REGISTERS
     8171   03 017BD    158017F2              STD,8    SAVEON1
     8172   03 017BE    15A017F4              STD,10   SAVEON2
     8173   03 017BF    22F0224A              LI,15    BUFF1+200         UNPACKED AREA
     8174   03 017C0    35F01DA1              STW,15   :CLRADDR
     8175   03 017C1    6AF01D96              BAL,15   :CLEAR            CLEAR AREA
     8176   03 017C2    22700000 A            LI,7     0
     8177   03 017C3    22600000 A            LI,6     0
     8178   03 017C4    B2BC2136     UNPACK1  LW,11    *BUFF2,6          GET PACKED WORD
     8179   03 017C5    229FFFFB A            LI,9     -5                DO 5 TIMES
     8180   03 017C6    22A00000 A            LI,10    0
     8181   03 017C7    25A00106 A            SLD,10   6                 GET 6 BITS
     8182   03 017C8    75AE224A              STB,10   BUFF1+200,7
     8183   03 017C9    33100007 A            MTW,1    7                 MODIFY BYTE COUNT
     8184   03 017CA    659017C6              BIR,9    %-4
     8185   03 017CB    22A00000 A            LI,10    0
     8186   03 017CC    25A00102 A            SLD,10   2                 2 EXTRA BYTES
     8187   03 017CD    33100006 A            MTW,1    6                 MODIFY WORD COUNT
     8188   03 017CE    B2BC2136              LW,11    *BUFF2,6          GET PACKED WORD
     8189   03 017CF    25A00104 A            SLD,10   4
     8190   03 017D0    75AE224A              STB,10   BUFF1+200,7
     8191   03 017D1    33100007 A            MTW,1    7                 MODIFY BYTE COUNT
     8192   03 017D2    229FFFFC A            LI,9     -4                DO 4  TIMES
     8193   03 017D3    22A00000 A            LI,10    0
     8194   03 017D4    25A00106 A            SLD,10   6                 GET 6 BITS
     8195   03 017D5    75AE224A              STB,10   BUFF1+200,7       STORE BYTE
     8196   03 017D6    33100007 A            MTW,1    7
     8197   03 017D7    659017D3              BIR,9    %-4
     8198   03 017D8    33100006 A            MTW,1    6                 GET NEXT PACKED WORD
     8199   03 017D9    22A00004 A            LI,10    4                 4 BYTES LEFT OVER
     8200   03 017DA    25A00104 A            SLD,10   4
     8201   03 017DB    B2BC2136              LW,11    *BUFF2,6          GET PACKED WORD
     8202   03 017DC    25A00102 A            SLD,10   2
     8203   03 017DD    75AE224A              STB,10   BUFF1+200,7       STORE BYTE
     8204   03 017DE    33100007 A            MTW,1    7                 MODIFY BYTE COUNT
     8205   03 017DF    229FFFFB A            LI,9     -5                DO 5 TIMES
     8206   03 017E0    22A00000 A            LI,10    0
     8207   03 017E1    25A00106 A            SLD,10   6
     8208   03 017E2    75AE224A              STB,10   BUFF1+200,7
     8209   03 017E3    33100007 A            MTW,1    7                 MODIFY BYTE COUNT
     8210   03 017E4    659017E0              BIR,9    %-4
     8211   03 017E5    33100006 A            MTW,1    6                 MODIFY WORD COUNT
     8212   03 017E6    21600022 A            CI,6     34
     8213   03 017E7    682017C4              BLE      UNPACK1
     8214   03 017E8    32C02136              LW,12    BUFF2
     8215   03 017E9    35C01DA1              STW,12   :CLRADDR
     8216   03 017EA    126017F0              LD,6     SAVEON            RESTORE REGISTERS
     8217   03 017EB    128017F2              LD,8     SAVEON1
     8218   03 017EC    12A017F4              LD,10    SAVEON2
     8219   03 017ED    E80017EE              B        *SVE15            RETURN TO PROGRAM
     8220                            *
     8221                            *
     8222                            *
     8223                            *
     8224                            *
     8225                            *
     8226                            *
     8227                            *
     8228                                     BOUND    8
     8229   03 017EE    00000000 A   SVE15    DATA     0
     8230   03 017EF    00000000 A   WDCNT    DATA     0
     8231   03 017F0    00000000 A   SAVEON   DATA     0,0
            03 017F1    00000000 A
     8232   03 017F2    00000000 A   SAVEON1  DATA     0,0
            03 017F3    00000000 A
     8233   03 017F4    00000000 A   SAVEON2  DATA     0,0
            03 017F5    00000000 A
     8234                            *
     8235                            *
     8236                            *
     8237                            *
     8238                            *
     8239                            *                                   ------------------------------------
     8240                            *                                   ------------------------------------
     8241                            *                                   ------------------------------------
     8242                            *
     8243                                     BOUND    8
     8244   03 017F6    7C101C00 A   TSEQ001  :TSEQ    ISBT4,TIOF0,TIOT4      IP RESET AND UE
     8245   03 017F7    30100000 A   TSEQ002  :TSEQ    HIOF0,TIOF0       INT PENDING RESET HIO, TIO
     8246   03 017F8    7A100000 A   TSEQ003  :TSEQ    ISBT2,TIOF0       ZBC, INT PEND RESET
     8247   03 017F9    101C0000 A   TSEQ004  :TSEQ    TIOF0,TIOT4                  INT PENDING RESET, UE
     8248   03 017FA    434D0000 A   TSEQ005  :TSEQ    TDVF3,TDVT5       LOAD POINT, NOT EOF             *A01
     8249   03 017FB    1C4D21E3 A   TSEQ006  :TSEQ    TIOT4,TDVT5,OSBF1,BYT02 LP,UE,BC=2
            03 017FC    00000000 A
     8250   03 017FD    1C4D2100 A   TSEQ007  :TSEQ    TIOT4,TDVT5,OSBF1    UE AND LP
     8251   03 017FE    144B21E3 A   TSEQ008  :TSEQ    TIOF4,TDVT3,OSBF1,BYT02     NO UE,BC=2, EOF
            03 017FF    00000000 A
     8252   03 01800    11121C15 A   TSEQ009  :TSEQ    TIOF1,TIOF2,TIOT4,TIOF5,TIOF6,BYT02  SAME + UE
            03 01801    16E30000 A
     8253   03 01802    11121415 A   TSEQ010  :TSEQ    TIOF1,TIOF2,TIOF4,TIOF5,TIOF6,OSBF0,BYT00,TDVT1  READ
            03 01803    1620E149 A
            03 01804    00000000 A
     8254   03 01805    144921E1 A   TSEQ011  :TSEQ    TIOF4,TDVT1,OSBF1,BYT00   WRITE NO UE
            03 01806    00000000 A
     8255   03 01807    1C787B7C A   TSEQ012  :TSEQ    TIOT4,ISBT0,ISBT3,ISBT4,TDVF0,BYT00   INC LENG, UE
            03 01808    40E10000 A
     8256   03 01809    144429E1 A   TSEQ013  :TSEQ    TIOF4,TDVF4,OSBT1,BYT00       NO UE, BC= 0
            03 0180A    00000000 A
     8257   03 0180B    1C4B4D00 A   TSEQ014  :TSEQ    TIOT4,TDVT3,TDVT5            UE, LP, EOF
     8258   03 0180C    144B2100 A   TSEQ015  :TSEQ    TIOF4,TDVT3,OSBF1        NONE, TM
     8259   03 0180D    1C4B2100 A   TSEQ016  :TSEQ    TIOT4,TDVT3,OSBF1        UE, TM
     8260   03 0180E    142840E2 A   TSEQ017  :TSEQ    TIOF4,OSBT0,TDVF0,BYT01   NO UE, INC LENGTH ,BC=1
            03 0180F    00000000 A
     8261   03 01810    1440E200 A   TSEQ018  :TSEQ    TIOF4,TDVF0,BYT01     NO UE, BC =1
     8262   03 01811    142840E1 A   TSEQ019  :TSEQ    TIOF4,OSBT0,TDVF0,BYT00   SAME BC=0
            03 01812    00000000 A
     8263   03 01813    4E000000 A   TSEQ020  :TSEQ    TDVT6                         END OF TAPE
     8264   03 01814    46000000 A   TSEQ021  :TSEQ    TDVF6                         NO END OF TAPE
     8265   03 01815    29797C1C A   TSEQ022  :TSEQ    OSBT1,ISBT1,ISBT4,TIOT4,TDVF0   TRNS ERROR UE
            03 01816    40000000 A
     8266   03 01817    29797B44 A   TSEQ023  :TSEQ    OSBT1,ISBT1,ISBT3,TDVF4,TIOF4    CORRECTABLE TE
            03 01818    14000000 A
     8267   03 01819    29797B4C A   TSEQ024  :TSEQ    OSBT1,ISBT1,ISBT3,TDVT4,TIOF4     TE UNCORRECTABLE
            03 0181A    14000000 A
     8268   03 0181B    14400000 A   TSEQ025  :TSEQ    TIOF4,TDVF0       NO UE
     8269   03 0181C    1C4A4D6A A   TSEQ026  :TSEQ    TIOT4,TDVT2,TDVT5,AIOT2   UE, LOAD POINT          *A01
            03 0181D    00000000 A
     8270   03 0181E    111A1315 A   TSEQ027  :TSEQ    TIOF1,TIOT2,TIOF3,TIOF5,TIOF6       DEVICE MANUAL
            03 0181F    16000000 A
     8271   03 01820    4C000000 A   TSEQ028  :TSEQ    TDVT4             INCORRECTABLE READ ERROR
     8272   03 01821    1C4D0000 A   TSEQ029  :TSEQ    TIOT4,TDVT5       UE AND LP
     8273   03 01822    144321E3 A   TSEQ030  :TSEQ    TIOF4,TDVF3,OSBF1,BYT02      NO UE, READY, BC=2
            03 01823    00000000 A
     8274   03 01824    494B4E00 A   TSEQ031  :TSEQ    TDVT1,TDVT3,TDVT6 EOT OR EOF
     8275   03 01825    21222300 A   TSEQ032  :TSEQ    OSBF1,OSBF2,OSBF3 NO TRANSMISSION ERROR
     8276   03 01826    101B1415 A   TSEQ033  :TSEQ    TIOF0,TIOT3,TIOF4,TIOF5,TIOF6       READY,NOUE,NO IN P
            03 01827    16000000 A
     8277   03 01828    101B1C21 A   TSEQ034  :TSEQ    TIOF0,TIOT3,TIOT4,OSBF1,TDVF0  UE, INT PENDING
            03 01829    40000000 A
     8278   03 0182A    144B4D21 A   TSEQ035  :TSEQ    TIOF4,TDVT3,TDVT5,OSBF1     EOF,LP, NO UE
            03 0182B    00000000 A
     8279   03 0182C    144920E1 A   TSEQ036  :TSEQ    TIOF4,TDVT1,OSBF0,BYT00       READY, NO UE, BC=00
            03 0182D    00000000 A
     8280   03 0182E    1C4B2821 A   TSEQ037  :TSEQ    TIOT4,TDVT3,OSBT0,OSBF1  TAPE MARK, UE, NO TE
            03 0182F    00000000 A
     8281   03 01830    1C4B2021 A   TSEQ038  :TSEQ    TIOT4,TDVT3,OSBF0,OSBF1   TAPE MARK, UE, NO TE
            03 01831    00000000 A
     8282                            *
     8283                            *
     8284                            *
     8285                            *
     8286                            *
     8287                                     BOUND    8
     8288   03 01832    0C008AB8     TWR1     GEN,8,24 X'0C',BA(BUFF1+300)      INVALID READ BKW
     8289   03 01833    00000002 A            GEN,8,24 X'0',2
     8290   03 01834    03008608     TWR2     GEN,8,24 X'03',BA(BUFF1)          INVALID SET CORRECTION
     8291   03 01835    00000002 A            GEN,8,24 X'0',2
     8292   03 01836    0C008AB8     TWR3     GEN,8,24 X'0C',BA(BUFF1+300)      INVALID READ BKW
     8293   03 01837    04000001 A            GEN,8,24 4,1               UE SET
     8294   03 01838    63008608     TSE1     GEN,8,24 X'63',BA(BUFF1)   SET ERASE BC=2
     8295   03 01839    14000002 A            GEN,8,24 X'14',2           UE AND CE
     8296   03 0183A    63008608     TSE3     GEN,8,24 X'63',BA(BUFF1)   SET ERASE BC =2 NO INTERRUPT
     8297   03 0183B    00000002 A            GEN,8,24 0,2
     8298   03 0183C    63008608     TSE      GEN,8,24 X'63',BA(BUFF1)   SET ERASE CE SET
     8299   03 0183D    10000001 A            GEN,8,24 X'10',1
     8300   03 0183E    63008608     TSECC    GEN,8,24 X'63',BA(BUFF1)   COMMAND CHAIN ERASE
     8301   03 0183F    20000001 A            GEN,8,24 X'20',1
     8302   03 01840    0C008AB8     TWBK     GEN,8,24 X'0C',BA(BUFF1+300)      INVALID READ BKW
     8303   03 01841    04000002 A            GEN,8,24 X'04',2           END OF CHAIN
     8304   03 01842    63008608     TSNS4    GEN,8,24 X'63',BA(BUFF1)          SET ERASE
     8305   03 01843    40000001 A            GEN,8,24 X'40',1           IZC SET
     8306   03 01844    0C008AB8     TWRCC    GEN,8,24 X'0C',BA(BUFF1+300)      READ BKW COMMAND CHAIN
     8307   03 01845    24000001 A            GEN,8,24 X'24',1           CC AND UE SET
     8308   03 01846    63008608              GEN,8,24 X'63',BA(BUFF1)   SET ERASE
     8309   03 01847    00000002 A            GEN,8,24 0,2
     8310   03 01848    33008608     TRWOL    GEN,8,24 X'33',BA(BUFF1)   REWIND ON LINE
     8311   03 01849    00000000 A            GEN,8,24 X'0',0
     8312   03 0184A    13008608     TRWAI    GEN,8,24 X'13',BA(BUFF1)   REWIND AND INTERRUPT
     8313   03 0184B    00000000 A            GEN,8,24 0,0               NO INTERRUPT
     8314   03 0184C    73008608     TWTM     GEN,8,24 X'73',BA(BUFF1)   WRITE TAPE MARK CE SET, BC=2
     8315   03 0184D    10000002 A            GEN,8,24 X'10',2
     8316   03 0184E    73008608     TWTM3    GEN,8,24 X'73',BA(BUFF1)       WRITE TAPE MARK CE, UE
     8317   03 0184F    14000002 A            GEN,8,24 X'14',2
     8318   03 01850    01008608     TWBC     GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD 1-64 BYTES,UE SET
     8319   03 01851    14000001 A            GEN,8,24 X'14',1
     8320   03 01852    01008608     TW64     GEN,8,24 X'01',BA(BUFF1)   WRITE 64 BYTES INTERRUPT ON ZBC
     8321   03 01853    40000040 A            GEN,8,24 X'40',64
     8322   03 01854    01008608     TW100B   GEN,8,24 X'01',BA(BUFF1)   WRITE 100 BYTES, UE SET, CE
     8323   03 01855    14000064 A            GEN,8,24 X'14',100
     8324   03 01856    01008608     TW1B     GEN,8,24 X'01',BA(BUFF1)   WRITE 1 BYTE,BCZ SET
     8325   03 01857    40000001 A            GEN,8,24 X'40',1
     8326   03 01858    01008608     TW1BCE   GEN,8,24 X'01',BA(BUFF1)   WRITE 1 BYTE, INT. ON CE        *A01
     8327   03 01859    10000001 A            GEN,8,24 X'10',1                                           *A01
     8328   03 0185A    01008608     TWDC02   GEN,8,24 X'01',BA(BUFF1)   WRITE 2 DC 94 BYTES
     8329   03 0185B    84000002 A            GEN,8,24 X'84',2
     8330   03 0185C    0100860A              GEN,8,24 X'01',BA(BUFF1)+2
     8331   03 0185D    1400005E A            GEN,8,24 X'14',94
     8332   03 0185E    01008608     WFBAD    GEN,8,24 X'01',BA(BUFF1)   WRITE FROM WA, WA+1, WA+2, WA+3 BC=4
     8333   03 0185F    14000004 A            GEN,8,24 X'14',4
     8334   03 01860    01008608     WBCC     GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD BYTE COUNT  01-8000
     8335   03 01861    14000001 A            GEN,8,24 X'14',1           UE SET, CE SET
     8336   03 01862    01008608     TWNP     GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD 20-MAX BYTES NOISE PTN
     8337   03 01863    14000014 A            GEN,8,24 X'14',20          UE,CE
     8338   03 01864    01008608     TW16B    GEN,8,24 X'01',BA(BUFF1)   WRITE 16 BYTES IRG TEST
     8339   03 01865    14000010 A            GEN,8,24 X'14',16
     8340   03 01866    01008608     TW1000   GEN,8,24 X'01',BA(BUFF1)   WRITE 1000 BYTES
     8341   03 01867    140003E8 A            GEN,8,24 X'14',1000
     8342   03 01868    01008798     TWCREP   GEN,8,24 X'01',BA(BUFF1+100) WRT RECORD B CREEP TEST
     8343   03 01869    1400000C A            GEN,8,24 X'14',12
     8344   03 0186A    01008608     WRRAND   GEN,8,24 X'01',BA(BUFF1)   WRITE RANDOM RECORD
     8345   03 0186B    14000014 A            GEN,8,24 X'14',20
     8346   03 0186C    01008608     TST3WRT  GEN,8,24 X'01',BA(BUFF1)    WRITE RECORD IN UNIT TEST
     8347   03 0186D    140003E8 A            GEN,8,24 X'14',1000         UE,CE
     8348   03 0186E    01008608     WR96B    GEN,8,24 X'01',BA(BUFF1)    WRITE 96 BYTES
     8349   03 0186F    14000060 A            GEN,8,24 X'14',96
     8350   03 01870    01008608     WSPKEC   GEN,8,24 X'01',BA(BUFF1)   WRITE 6,7,8 BYTES FOR END CONDIT
     8351   03 01871    14000006 A            GEN,8,24 X'14',6
     8352   03 01872    0C008AB8     TWRUE    GEN,8,24 X'0C',BA(BUFF1+300)    READ BKW UE SET
     8353   03 01873    04000002 A            GEN,8,24 X'04',2
     8354   03 01874    01008608     WPBT     GEN,8,24 X'01',BA(BUFF1)   WRITE 00-FF RECORD PACKED BINARY
     8355   03 01875    14000100 A            GEN,8,24 X'14',256         CE AND UE
     8356   03 01876    01006728     WLRCPK   GEN,8,24 X'01',BA(LRCPK)   WRITE PACKED BINARY LRC, 3 WORDS
     8357   03 01877    1400000C A            GEN,8,24 X'14',12
     8358   03 01878    0500677C     WLRCOP   GEN,8,24 X'05',BA(LRCOP)   WRITE ODD PARITY LRC, 1 WORD
     8359   03 01879    14000004 A            GEN,8,24 X'14',4
     8360   03 0187A    0D006798     WLRCEP   GEN,8,24 X'0D',BA(LRCEP)   WRITE EVEN PARITY LRC, 1 WORD
     8361   03 0187B    14000004 A            GEN,8,24 X'14',4
     8362   03 0187C    05008608     WBINT    GEN,8,24 X'05',BA(BUFF1)   WRITE BINARY  00-3F DATA ODD P
     8363   03 0187D    14000040 A            GEN,8,24 X'14',64
     8364   03 0187E    0D0067B4     TWBCD    GEN,8,24 X'0D',BA(BCDVALID)       WRITE BCD CHAR SET E PARITY
     8365   03 0187F    14000040 A            GEN,8,24 X'14',64
     8366   03 01880    0D0067F4     TWBCDZ   GEN,8,24 X'0D',BA(BCDZERO)      WRITE FOR BCD ZERO TRANSLATION
     8367   03 01881    14000004 A            GEN,8,24 X'14',4
     8368   03 01882    020084D8     TRFBC    GEN,8,24 X'02',BA(BUFF2)   READ FWD 100 BYTES, BC= 1-64, UE SET
     8369   03 01883    1C000001 A            GEN,8,24 X'1C',1           HTE SET
     8370   03 01884    020084D8     TRF100B  GEN,8,24 X'02',BA(BUFF2)   READ FWD 100 BYTES ,UE SET, CE
     8371   03 01885    14000064 A            GEN,8,24 X'14',100
     8372   03 01886    020084D8     RF95B    GEN,8,24 X'02',BA(BUFF2)   READ FWD 95 BYTES, UE, CE SET
     8373   03 01887    1C00005F A            GEN,8,24 X'1C',95          HTE
     8374   03 01888    020084D8     RF97B    GEN,8,24 X'02',BA(BUFF2)   READ FWD 97 BYTES, UE, CE SET
     8375   03 01889    16000061 A            GEN,8,24 X'16',97
     8376   03 0188A    020084D8     RF95BS   GEN,8,24 X'02',BA(BUFF2)   READ FWD 95 BYTES INC LENGTH SUP
     8377   03 0188B    1600005F A            GEN,8,24 X'16',95
     8378   03 0188C    020084D8     RFBAD    GEN,8,24 X'02',BA(BUFF2)   READ FWD INTO WA, WA+1, WA+2, WA+3
     8379   03 0188D    14000004 A            GEN,8,24 X'14',4
     8380   03 0188E    020084D8     RFCC     GEN,8,24 X'02',BA(BUFF2)   READ FWD BYTE COUNT 01-8000 CHANGE
     8381   03 0188F    14000001 A            GEN,8,24 X'14',1           UE,CE
     8382   03 01890    020084D8     RFNP     GEN,8,24 X'02',BA(BUFF2)   READ  FWD 20-MAX BYTES NOISE PATTERN
     8383   03 01891    14000014 A            GEN,8,24 X'14',20          UE,CE
     8384   03 01892    020084D8     RF100B   GEN,8,24 X'02',BA(BUFF2)   READ FWD RECORD A CREEP TEST
     8385   03 01893    14000064 A            GEN,8,24 X'14',100
     8386   03 01894    020084D8     RF16B    GEN,8,24 X'02',BA(BUFF2)   READ FWD RECORD B CREEP TEST
     8387   03 01895    1400000C A            GEN,8,24 X'14',12
     8388   03 01896    020084D8     RFRAND   GEN,8,24 X'02',BA(BUFF2)   READ FWD RANDOM RECORD
     8389   03 01897    14000014 A            GEN,8,24 X'14',20
     8390   03 01898    020084D8     TST3RF   GEN,8,24 X'02',BA(BUFF2)   READ FORWARD RECORD UNIT TEST
     8391   03 01899    140003E8 A            GEN,8,24 X'14',1000        UE,CE
     8392   03 0189A    02008608     RF96B    GEN,8,24 X'02',BA(BUFF1)    READ FWD 96 BYTES
     8393   03 0189B    14000060 A            GEN,8,24 X'14',96
     8394   03 0189C    020084D8     TRFDC48  GEN,8,24 X'02',BA(BUFF2)   READ FWD 48 BYTES DC 48
     8395   03 0189D    84000030 A            GEN,8,24 X'84',48
     8396   03 0189E    02008598              GEN,8,24 X'02',BA(BUFF2+48)
     8397   03 0189F    14000030 A            GEN,8,24 X'14',48
     8398   03 018A0    020084D8     RPBT     GEN,8,24 X'02',BA(BUFF2)   READ 00-FF RECORD PACKED BINARY
     8399   03 018A1    14000101 A            GEN,8,24 X'14',257         CE AND UE BC+1
     8400   03 018A2    020084D8     RLRCPK   GEN,8,24 X'02',BA(BUFF2)   READ PACKED BINARY LRC RECORD
     8401   03 018A3    1400000C A            GEN,8,24 X'14',12
     8402   03 018A4    060084D8     RLRCOP   GEN,8,24 X'06',BA(BUFF2)   READ ODD PARITY LRC RECORD
     8403   03 018A5    14000004 A            GEN,8,24 X'14',4
     8404   03 018A6    0E0084D8     RLRCEP   GEN,8,24 X'0E',BA(BUFF2)   READ EVEN PARITY LRC RECORD
     8405   03 018A7    14000004 A            GEN,8,24 X'14',4
     8406   03 018A8    060084D8     RBINT    GEN,8,24 X'06',BA(BUFF2)   READ TAPE BINARY 00-3F DATA ODD P
     8407   03 018A9    14000040 A            GEN,8,24 X'14',64
     8408   03 018AA    0E0084D8     REPOPR   GEN,8,24 X'0E',BA(BUFF2)   READ TAPE WITH TRANSLATION 00-3F
     8409   03 018AB    14000040 A            GEN,8,24 X'14',64
     8410   03 018AC    0E0084D8     TRBCD    GEN,8,24 X'0E',BA(BUFF2)   READ WITH TRANSLATION(BCD) EVEN P
     8411   03 018AD    14000040 A            GEN,8,24 X'14',64
     8412   03 018AE    060084D8     TRBCDWT  GEN,8,24 X'06',BA(BUFF2)   READ BCD RECORD WITHOUT TRANSLATION
     8413   03 018AF    14000040 A            GEN,8,24 X'14',64
     8414   03 018B0    0E0084D8     TRBCDZ   GEN,8,24 X'0E',BA(BUFF2)   READ ZERO RECORD BCD TRANSLATION
     8415   03 018B1    14000004 A            GEN,8,24 X'14',4
     8416   03 018B2    020084D8     RSPKEC   GEN,8,24 X'02',BA(BUFF2)   READ 6,8,9 BYTES FOR END CONDIT
     8417   03 018B3    14000006 A            GEN,8,24 X'14',6
     8418   03 018B4    4B000000 A   SB100B   GEN,8,24 X'4B',0           SPACE BKW OVER RECORD A CREEP TEST
     8419   03 018B5    14000000 A            GEN,8,24 X'14',0
     8420   03 018B6    4B000000 A   SB16B    GEN,8,24 X'4B',0           SPACE BKW OVER RECORD B CREEP TEST
     8421   03 018B7    14000000 A            GEN,8,24 X'14',0
     8422   03 018B8    4B000000 A   SBR1     GEN,8,24 X'4B',0           SPACE BKW, UE SET,BC=2
     8423   03 018B9    14000002 A            GEN,8,24 X'14',2
     8424   03 018BA    5B000000 A   SBF1     GEN,8,24 X'5B',0           SPACE FILE BKW
     8425   03 018BB    14000000 A            GEN,8,24 X'14',0
     8426   03 018BC    33000000 A   SFR1     GEN,8,24 X'33',0           SPACE RECORD FWD CE SET, BC=2
     8427   03 018BD    10000002 A            GEN,8,24 X'10',2
     8428   03 018BE    43000000 A   SF100    GEN,8,24 X'43',0           SPACE RECORD FWD , UE SET , CE
     8429   03 018BF    14000000 A            GEN,8,24 X'14',0
     8430   03 018C0    4B000000 A   SB100    GEN,8,24 X'4B',0           SPACE RECORD BKW , UE SET , CE
     8431   03 018C1    14000000 A            GEN,8,24 X'14',0
     8432   03 018C2    53000000 A   TSFF     GEN,8,24 X'53',0           SPACE FILE FWD, UE SET, CE
     8433   03 018C3    14000000 A            GEN,8,24 X'14',0
     8434   03 018C4    5B000000 A   TSFB     GEN,8,24 X'5B',0           SPACE FILE BKW, UE SET, CE
     8435   03 018C5    14000000 A            GEN,8,24 X'14',0
     8436   03 018C6    43000000 A   SF16CC   GEN,8,24 X'43',0           SPACE FWD 9 RECORDS USING CC
     8437   03 018C7    24000000 A            GEN,8,24 X'24',0
     8438   03 018C8    43000000 A            GEN,8,24 X'43',0           CC
     8439   03 018C9    24000000 A            GEN,8,24 X'24',0
     8440   03 018CA    43000000 A            GEN,8,24 X'43',0           CC
     8441   03 018CB    24000000 A            GEN,8,24 X'24',0
     8442   03 018CC    43000000 A            GEN,8,24 X'43',0           CC
     8443   03 018CD    24000000 A            GEN,8,24 X'24',0
     8444   03 018CE    43000000 A            GEN,8,24 X'43',0           CC
     8445   03 018CF    24000000 A            GEN,8,24 X'24',0
     8446   03 018D0    43000000 A            GEN,8,24 X'43',0           CC
     8447   03 018D1    24000000 A            GEN,8,24 X'24',0
     8448   03 018D2    43000000 A            GEN,8,24 X'43',0           CC
     8449   03 018D3    24000000 A            GEN,8,24 X'24',0
     8450   03 018D4    43000000 A            GEN,8,24 X'43',0           CC
     8451   03 018D5    24000000 A            GEN,8,24 X'24',0
     8452   03 018D6    43000000 A            GEN,8,24 X'43',0           NO CC
     8453   03 018D7    14000000 A            GEN,8,24 X'14',0
     8454   03 018D8    4B000000 A   SPBRAND  GEN,8,24 X'4B',0           SPACE BKW RANDOM RECORD
     8455   03 018D9    14000000 A            GEN,8,24 X'14',0
     8456   03 018DA    43000000 A   SPFRAND  GEN,8,24 X'43',0           SPACE FWD RANDOM RECORD
     8457   03 018DB    14000000 A            GEN,8,24 X'14',0
     8458   03 018DC    23000000 A   TRWOF    GEN,8,24 X'23',0           REWIND AND PUT OFF LINE
     8459   03 018DD    14000000 A            GEN,8,24 X'14',0
     8460   03 018DE    01008608     TST32W   GEN,8,24 X'01',BA(BUFF1)   WRITE 1 RECORD DATA CHAIN
     8461   03 018DF    C0000190 A            GEN,8,24 X'C0',400         DC AND ZBC
     8462   03 018E0    08000C6F              GEN,8,8,16 X'08',0,DA(TST32W)        TRANSFER IN CHANNEL
     8463   03 018E1    00000000 A            DATA     0
     8464   03 018E2    02008798     TST32RF  GEN,8,24 X'02',BA(BUFF1+100) READ FWD 1 RECORD DATA CHAIN
     8465   03 018E3    C0000190 A            GEN,8,24 X'C0',400         DC AND ZBC
     8466   03 018E4    08000C71              GEN,8,8,16 X'08',0,DA(TST32RF)       TRANSFER IN CHANNEL
     8467   03 018E5    00000000 A            DATA     0
     8468   03 018E6    4B008608     TST33S   GEN,8,24 X'4B',BA(BUFF1)   SPACE BKW
     8469   03 018E7    10000000 A            GEN,8,24 X'10',0
     8470   03 018E8    00008608     TST33R   GEN,8,24 0,BA(BUFF1)       READ FWD OR BKW AND DATA CHAIN
     8471   03 018E9    40000000 A            GEN,8,24 X'40',0
     8472   03 018EA    00008608              GEN,8,24 0,BA(BUFF1)
     8473   03 018EB    40000000 A            GEN,8,24 X'40',0
     8474   03 018EC    00008608              GEN,8,24 0,BA(BUFF1)
     8475   03 018ED    40000000 A            GEN,8,24 X'40',0
     8476   03 018EE    00008608              GEN,8,24 0,BA(BUFF1)
     8477   03 018EF    40000000 A            GEN,8,24 X'40',0
     8478   03 018F0    00008608              GEN,8,24 0,BA(BUFF1)
     8479   03 018F1    40000000 A            GEN,8,24 X'40',0
     8480   03 018F2    00008608              GEN,8,24 0,BA(BUFF1)
     8481   03 018F3    40000000 A            GEN,8,24 X'40',0
     8482   03 018F4    00008608              GEN,8,24 0,BA(BUFF1)
     8483   03 018F5    40000000 A            GEN,8,24 X'40',0
     8484   03 018F6    00008608              GEN,8,24 0,BA(BUFF1)
     8485   03 018F7    40000000 A            GEN,8,24 X'40',0
     8486   03 018F8    00008608              GEN,8,24 0,BA(BUFF1)
     8487   03 018F9    40000000 A            GEN,8,24 X'40',0
     8488   03 018FA    00008608              GEN,8,24 0,BA(BUFF1)
     8489   03 018FB    40000000 A            GEN,8,24 X'40',0
     8490   03 018FC    00008608              GEN,8,24 0,BA(BUFF1)
     8491   03 018FD    40000000 A            GEN,8,24 X'40',0
     8492   03 018FE    02008608     RFSPEC   GEN,8,24 X'02',BA(BUFF1)   READ IN MAX. BUFFER, INT. ON CE *A01
     8493   03 018FF    10001388 A            GEN,8,24 X'10',5000                                        *A01
     8494   03 01900    02008608     RFSPEC1  GEN,8,24 X'02',BA(BUFF1)   READ IN MAX. BUFFER, INT. ON CE,*A01
     8495   03 01901    1A001388 A            GEN,8,24 X'1A',5000          HALT ON TRANSMISSION ERROR    *A01
     8496   03 01902    33000000 A   TPDMP    GEN,8,24 X'33',0           REWIND AND COMMAND CHAIN
     8497   03 01903    20000000 A            GEN,8,24 X'20',0
     8498   03 01904    01000064 A   TPDMP1   GEN,8,24 X'01',100         WRITE WITH DATA CHAIN
     8499   03 01905    80009000 A            GEN,8,24 X'80',X'9000'
     8500   03 01906    01000064 A            GEN,8,24 X'01',100
     8501   03 01907    80009000 A            GEN,8,24 X'80',X'9000'
     8502   03 01908    01000064 A            GEN,8,24 X'01',100         WRITE NO DATA CHAIN
     8503   03 01909    00009000 A            GEN,8,24 X'00',X'9000'
     8504                                     BOUND    8
     8505   03 0190A    00000000 A   TWTALLY  DATA     0,0,0,0,0,0,0,0   TEMP WRITE ERROR TALLY
            03 0190B    00000000 A
            03 0190C    00000000 A
            03 0190D    00000000 A
            03 0190E    00000000 A
            03 0190F    00000000 A
            03 01910    00000000 A
            03 01911    00000000 A
     8506   03 01912    00000000 A   PWTALLY  DATA     0,0,0,0,0,0,0,0   PERM WRITE ERROR TALLY
            03 01913    00000000 A
            03 01914    00000000 A
            03 01915    00000000 A
            03 01916    00000000 A
            03 01917    00000000 A
            03 01918    00000000 A
            03 01919    00000000 A
     8507   03 0191A    00000000 A   PRFTALLY DATA     0,0,0,0,0,0,0,0   PERM READ FWD ERROR TALLY
            03 0191B    00000000 A
            03 0191C    00000000 A
            03 0191D    00000000 A
            03 0191E    00000000 A
            03 0191F    00000000 A
            03 01920    00000000 A
            03 01921    00000000 A
     8508   03 01922    00000000 A   TRFTALLY DATA     0,0,0,0,0,0,0,0   TEMP READ FWD ERROR TALLY
            03 01923    00000000 A
            03 01924    00000000 A
            03 01925    00000000 A
            03 01926    00000000 A
            03 01927    00000000 A
            03 01928    00000000 A
            03 01929    00000000 A
     8509   03 0192A    00000000 A            DATA     0
     8510   03 0192B    00000000 A   LOOPTLY  DATA     0
     8511   03 0192C    00000000 A   SVESEED  DATA     0                 SAVE SEED EACH PASS
     8512   03 0192D    00000000 A   CRTRY    DATA     0                 NUMBER OF RETRIES ALLOWED
     8513   03 0192E    00000000 A   NMLOOP   DATA     0                 LOOP LIMIT FROM USER
     8514   03 0192F    00000000 A   OPFLAG   DATA     0                 RANDOM SET OF EXERCISES
     8515   03 01930    00000000 A   REWRDS   DATA     0                 RANDOM NUMBER OF WORDS
     8516   03 01931    00000000 A   RETIME   DATA     0                 RANDOM TIME DELAY
     8517   03 01932    00000000 A   STDBCD   DATA     0
     8518   03 01933    00000000 A   STDPB    DATA     0
     8519   03 01934    00000000 A   OPTPB    DATA     0
     8520   03 01935    00000000 A   OPTBCD   DATA     0
     8521   03 01936    00000000 A   FL37IPS  DATA     0
     8522   03 01937    00000000 A   FL75IPS  DATA     0
     8523                                     BOUND    8
     8524   03 01938    00000000 A   RTRYSVE  DATA     0,0
            03 01939    00000000 A
     8525   03 0193A    00000000 A   SAVIT    DATA     0,0
            03 0193B    00000000 A
     8526   03 0193C    00000000 A   RTRYRT   DATA     0
     8527                                     BOUND    8
     8528   03 0193E    00000000 A   STDELAY  DATA     0,0
            03 0193F    00000000 A
     8529   03 01940    00000000 A   SAVE45   DATA     0,0
            03 01941    00000000 A
     8530   03 01942    00000001 A   FLGRG    DATA     1
     8531   03 01943    00000000 A   FLAGINC  DATA     0
     8532   03 01944    00000000 A   REWONLY  DATA     0
     8533   03 01945    00000000 A   ST1512   DATA     0
     8534   03 01946    00000000 A   ST15     DATA     0
     8535   03 01947    33100007 A   CLOCK    MTW,1    7                 CLOCK COUNTER
     8536   03 01948    00000000 A   TSNS10   DATA     0
     8537   03 01949    00000000 A   TSC1D    DATA     0
     8538   03 0194A    00000000 A   FLGINT   DATA     0
     8539   03 0194B    00000000 A   FLG1     DATA     0
     8540   03 0194C    00000000 A   CSENSE   DATA     0
     8541   03 0194D    00000000 A   STRTME   DATA     0
     8542   03 0194E    00000000 A   SAVESEED DATA     0
     8543   03 0194F    00000000 A   REWORDS  DATA     0
     8544   03 01950    00000000 A   UNITSAV  DATA     0
     8545   03 01951    01020408 A   CORBYT   DATA     X'01020408',X'10204080'
            03 01952    10204080 A
     8546   03 01953    00000000 A   ST151    DATA     0                 SAVE R15
     8547   03 01954    00000000 A   IRGTM    DATA     0
     8548   03 01955    00000000 A   ERTMAX   DATA     0
     8549   03 01956    00000000 A   ERTMIN   DATA     0
     8550   03 01957    00000000 A   IRGMAX   DATA     0
     8551   03 01958    00000000 A   IRGMIN   DATA     0
     8552   03 01959    00000000 A   CRPMAX   DATA     0
     8553   03 0195A    00000000 A   WTRT     DATA     0
     8554   03 0195B    00000000 A   :DEVADDR DATA     0
     8555   03 0195C                 SAVDEV   RES      8                 DEVICE NUMBERS BEING TESTED
     8556   03 01964    00000000 A   SAVNUMB  DATA     0                 NUMBER OF DEVICE NUMBERS LISTED
     8557   03 01965                 SAVDEVR  RES      8                 DEVICE NUMBERS THAT ARE READY
     8558   03 0196D    00000000 A   PROGLAST DATA     0                 LAST ADDRESS OF PROGRAM
     8559   03 0196E    00000000 A   MAXBYT   DATA     0                 MAXIMUM BYTE COUNT OF BUFFER
     8560   03 0196F    00000000 A   MAXREC   DATA     0                 MEMORY MAXIMUM-BUFF1
     8561   03 01970    00000000 A   MAXREADB DATA     0                 MAX BYTES IN EACH BUFFER
     8562   03 01971    00000000 A   MAXREAD  DATA     0                 BUFF1 TO BUFF2
     8563   03 01972    00000000 A   NOREAD   DATA     0                 TOO LARGE TO READ FLAG
     8564   03 01973    00000000 A   TNS1D    DATA     0
     8565   03 01974    00000000 A   TNS20    DATA     0
     8566   03 01975    00000000 A   TNS10    DATA     0
     8567   03 01976    FF000000 A   TSC2D    DATA     X'FF000000'
     8568   03 01977    FF000000 A   TSNS20   DATA     X'FF000000'
     8569   03 01978    00000000 A   ST1155   DATA     0
     8570   03 01979    00000000 A   TIME1    DATA     0
     8571   03 0197A    00000000 A   TIME2    DATA     0
     8572   03 0197B    00000000 A   TIME3    DATA     0
     8573   03 0197C    000000DC A   CHARTR   DATA     220
     8574   03 0197D    00000000 A   LASTWDW  DATA     0
     8575   03 0197E    00000AF0 A   STOPDIF  DATA     2800
     8576   03 0197F    00000000 A   LASTWDR  DATA     0
     8577   03 01980    00000000 A   BYTECN   DATA     0
     8578                                     BOUND    8
     8579   03 01982    00000000 A   PT00T    DATA     0,0,0,0
            03 01983    00000000 A
            03 01984    00000000 A
            03 01985    00000000 A
     8580   03 01986    00000000 A   PT00     DATA     0                 PATTERNS 00 -80
     8581   03 01987    01010101 A            DATA     X'01010101'
     8582   03 01988    02020202 A            DATA     X'02020202'
     8583   03 01989    04040404 A            DATA     X'04040404'
     8584   03 0198A    08080808 A            DATA     X'08080808'
     8585   03 0198B    10101010 A            DATA     X'10101010'
     8586   03 0198C    20202020 A            DATA     X'20202020'
     8587   03 0198D    40404040 A            DATA     X'40404040'
     8588   03 0198E    80808080 A   PT80     DATA     X'80808080'
     8589   03 0198F    00000000 A            DATA     X'00000000'
     8590   03 01990    5C00AE80 A   CRCDAT   DATA     X'5C00AE80'
     8591   03 01991    AE002E00 A            DATA     X'AE002E00'
     8592   03 01992    EE008E00 A            DATA     X'EE008E00'
     8593   03 01993    BE00A600 A            DATA     X'BE00A600'
     8594   03 01994    AA000000 A            DATA     X'AA000000'
     8595   03 01995    D7000000 A   CRCBL    DATA     X'D7000000'
     8596   03 01996    00000000 A   PTCK1T   DATA     0,0,0
            03 01997    00000000 A
            03 01998    00000000 A
     8597   03 01999    00000000 A   NZFLAG   DATA     0
     8598   03 0199A    00000000 A   P2FLAG   DATA     0
     8599   03 0199B    00000000 A   SPFLAG   DATA     0
     8600   03 0199C    00000000 A   LOOPMAX  DATA     0
     8601   03 0199D    00000000 A   SAVE6    DATA     0
     8602   03 0199E    00000000 A   NZSEQNO  DATA     0
     8603   03 0199F    07070707 A   NZDATA1  DATA     X'07070707'
     8604   03 019A0    17000000 A            DATA     X'17000000'
     8605   03 019A1    00170707 A            DATA     X'00170707'
     8606   03 019A2    07071700 A            DATA     X'07071700'
     8607   03 019A3    00000017 A            DATA     X'00000017'
     8608   03 019A4    3E3E3E3E A   NZDATA2  DATA     X'3E3E3E3E'
     8609   03 019A5    3E1D1D1D A            DATA     X'3E1D1D1D'
     8610   03 019A6    1D1D3737 A            DATA     X'1D1D3737'
     8611   03 019A7    3737371B A            DATA     X'3737371B'
     8612   03 019A8    1B1B1B1B A            DATA     X'1B1B1B1B'
     8613   03 019A9    36363636 A            DATA     X'36363636'
     8614   03 019AA    2E2E2E2E A   NZDATA3  DATA     X'2E2E2E2E'
     8615   03 019AB    3B3B3B3B A            DATA     X'3B3B3B3B'
     8616   03 019AC    1D1D1D1D A            DATA     X'1D1D1D1D'
     8617   03 019AD    37373737 A            DATA     X'37373737'
     8618   03 019AE    3E3E3E3E A            DATA     X'3E3E3E3E'
     8619   03 019AF    1C71C71C A   NZPK1    DATA     X'1C71C71C'
     8620   03 019B0    75C00000 A            DATA     X'75C00000'
     8621   03 019B1    000171C7 A            DATA     X'000171C7'
     8622   03 019B2    FBEFBEF9 A   NZPK2    DATA     X'FBEFBEF9'
     8623   03 019B3    D75DDF7D A            DATA     X'D75DDF7D'
     8624   03 019B4    F7DD6DB6 A            DATA     X'F7DD6DB6'
     8625   03 019B5    DBFBEFBE A            DATA     X'DBFBEFBE'
     8626   03 019B6    BAEBAEBA A   NZPK3    DATA     X'BAEBAEBA'
     8627   03 019B7    EBAEBAEB A            DATA     X'EBAEBAEB'
     8628   03 019B8    AEBAEBAE A            DATA     X'AEBAEBAE'
     8629   03 019B9    EFBEFBEF A            DATA     X'EFBEFBEF'
     8630   03 019BA    BEFBEFBE A            DATA     X'BEFBEFBE'
     8631   03 019BB    FBEFBEFB A            DATA     X'FBEFBEFB'
     8632   03 019BC    75D75D75 A            DATA     X'75D75D75'
     8633   03 019BD    D75D75D7 A            DATA     X'D75D75D7'
     8634   03 019BE    5D75D75D A            DATA     X'5D75D75D'
     8635   03 019BF    DF7DF7DF A            DATA     X'DF7DF7DF'
     8636   03 019C0    7DF7DF7D A            DATA     X'7DF7DF7D'
     8637   03 019C1    F7DF7DF7 A            DATA     X'F7DF7DF7'
     8638   03 019C2    FBEFBEFB A            DATA     X'FBEFBEFB'
     8639   03 019C3    EFBEFBEF A            DATA     X'EFBEFBEF'
     8640   03 019C4    BEFBEFBE A            DATA     X'BEFBEFBE'
     8641   03 019C5    FEEBFEEB A   NZPK4    DATA     X'FEEBFEEB'
     8642   03 019C6    FFBEFFBE A            DATA     X'FFBEFFBE'
     8643   03 019C7    FDD7FDD7 A            DATA     X'FDD7FDD7'
     8644   03 019C8    FF7DFF7D A            DATA     X'FF7DFF7D'
     8645   03 019C9    FFEFFFEF A            DATA     X'FFEFFFEF'
     8646   03 019CA    FFFFFFFF A   LRCPK    DATA     X'FFFFFFFF'       3WORDS EACH RECORD
     8647   03 019CB    FFFFFFFF A            DATA     X'FFFFFFFF'
     8648   03 019CC    FFFFF000 A            DATA     X'FFFFF000'
     8649   03 019CD    FFFFFFFF A            DATA     X'FFFFFFFF'
     8650   03 019CE    FFFFFFFF A            DATA     X'FFFFFFFF'
     8651   03 019CF    FFFFF800 A            DATA     X'FFFFF800'
     8652   03 019D0    FFFFFFFF A            DATA     X'FFFFFFFF'
     8653   03 019D1    FFFFFFFF A            DATA     X'FFFFFFFF'
     8654   03 019D2    FFFFF400 A            DATA     X'FFFFF400'
     8655   03 019D3    FFFFFFFF A            DATA     X'FFFFFFFF'
     8656   03 019D4    FFFFFFFF A            DATA     X'FFFFFFFF'
     8657   03 019D5    FFFFF200 A            DATA     X'FFFFF200'
     8658   03 019D6    FFFFFFFF A            DATA     X'FFFFFFFF'
     8659   03 019D7    FFFFFFFF A            DATA     X'FFFFFFFF'
     8660   03 019D8    FFFFF100 A            DATA     X'FFFFF100'
     8661   03 019D9    FFFFFFFF A            DATA     X'FFFFFFFF'
     8662   03 019DA    FFFFFFFF A            DATA     X'FFFFFFFF'
     8663   03 019DB    FFFFF080 A            DATA     X'FFFFF080'
     8664   03 019DC    FFFFFFFF A            DATA     X'FFFFFFFF'
     8665   03 019DD    FFFFFFFF A            DATA     X'FFFFFFFF'
     8666   03 019DE    FFFFF040 A            DATA     X'FFFFF040'
     8667   03 019DF    3F3F3F00 A   LRCOP    DATA     X'3F3F3F00'       1 WORD EACH RECORD
     8668   03 019E0    3F3F3F20 A            DATA     X'3F3F3F20'
     8669   03 019E1    3F3F3F10 A            DATA     X'3F3F3F10'
     8670   03 019E2    3F3F3F08 A            DATA     X'3F3F3F08'
     8671   03 019E3    3F3F3F04 A            DATA     X'3F3F3F04'
     8672   03 019E4    3F3F3F02 A            DATA     X'3F3F3F02'
     8673   03 019E5    3F3F3F01 A            DATA     X'3F3F3F01'
     8674   03 019E6    4F4F4F4F A   LRCEP    DATA     X'4F4F4F4F'       1 WORD EACH RECORD
     8675   03 019E7    4F4F4F6F A            DATA     X'4F4F4F6F'
     8676   03 019E8    4F4F4F5F A            DATA     X'4F4F4F5F'
     8677   03 019E9    4F4F4FC7 A            DATA     X'4F4F4FC7'
     8678   03 019EA    4F4F4F4B A            DATA     X'4F4F4F4B'
     8679   03 019EB    4F4F4F4D A            DATA     X'4F4F4F4D'
     8680   03 019EC    4F4F4F4E A            DATA     X'4F4F4F4E'
     8681   03 019ED    F0F1F2F3 A   BCDVALID DATA     X'F0F1F2F3'       DATA FOR TRANSLATION
     8682   03 019EE    F4F5F6F7 A            DATA     X'F4F5F6F7'
     8683   03 019EF    F8F9E2E3 A            DATA     X'F8F9E2E3'
     8684   03 019F0    E4E5E6E7 A            DATA     X'E4E5E6E7'
     8685   03 019F1    E8E9D1D2 A            DATA     X'E8E9D1D2'
     8686   03 019F2    D3D4D5D6 A            DATA     X'D3D4D5D6'
     8687   03 019F3    D7D8D9C1 A            DATA     X'D7D8D9C1'
     8688   03 019F4    C2C3C4C5 A            DATA     X'C2C3C4C5'
     8689   03 019F5    C6C7C8C9 A            DATA     X'C6C7C8C9'
     8690   03 019F6    F07B7C7D A            DATA     X'F07B7C7D'
     8691   03 019F7    7E7F6061 A            DATA     X'7E7F6061'
     8692   03 019F8    6B6C6D6E A            DATA     X'6B6C6D6E'
     8693   03 019F9    6F505A5B A            DATA     X'6F505A5B'
     8694   03 019FA    5C5D5E5F A            DATA     X'5C5D5E5F'
     8695   03 019FB    404A4B4C A            DATA     X'404A4B4C'
     8696   03 019FC    4D4E4F40 A            DATA     X'4D4E4F40'
     8697   03 019FD    3A7ABAFA A   BCDZERO  DATA     X'3A7ABAFA'       ZERO TRANSLATION
     8698   03 019FE    F0F0F0F0 A   CPBCDZ   DATA     X'F0F0F0F0'
     8699   03 019FF    0A010203 A   DCDNOTRN DATA     X'0A010203'       NO TRANSLATION CHARACTER SET
     8700   03 01A00    04050607 A            DATA     X'04050607'
     8701   03 01A01    08091213 A            DATA     X'08091213'
     8702   03 01A02    14151617 A            DATA     X'14151617'
     8703   03 01A03    18192122 A            DATA     X'18192122'
     8704   03 01A04    23242526 A            DATA     X'23242526'
     8705   03 01A05    27282931 A            DATA     X'27282931'
     8706   03 01A06    32333435 A            DATA     X'32333435'
     8707   03 01A07    36373839 A            DATA     X'36373839'
     8708   03 01A08    0A0B0C0D A            DATA     X'0A0B0C0D'
     8709   03 01A09    0E0F2011 A            DATA     X'0E0F2011'
     8710   03 01A0A    1B1C1D1E A            DATA     X'1B1C1D1E'
     8711   03 01A0B    1F302A2B A            DATA     X'1F302A2B'
     8712   03 01A0C    2C2D2E2F A            DATA     X'2C2D2E2F'
     8713   03 01A0D    103A3B3C A            DATA     X'103A3B3C'
     8714   03 01A0E    3D3E3F10 A            DATA     X'3D3E3F10'
     8715   03 01A0F    F0F1F2F3 A   BINTRLS  DATA     X'F0F1F2F3'
     8716   03 01A10    F4F5F6F7 A            DATA     X'F4F5F6F7'
     8717   03 01A11    F8F9F07B A            DATA     X'F8F9F07B'
     8718   03 01A12    7C7D7E7F A            DATA     X'7C7D7E7F'
     8719   03 01A13    4061E2E3 A            DATA     X'4061E2E3'
     8720   03 01A14    E4E5E6E7 A            DATA     X'E4E5E6E7'
     8721   03 01A15    E8E96A6B A            DATA     X'E8E96A6B'
     8722   03 01A16    6C6D6E6F A            DATA     X'6C6D6E6F'
     8723   03 01A17    60D1D2D3 A            DATA     X'60D1D2D3'
     8724   03 01A18    D4D5D6D7 A            DATA     X'D4D5D6D7'
     8725   03 01A19    D8D95A5B A            DATA     X'D8D95A5B'
     8726   03 01A1A    5C5D5E5F A            DATA     X'5C5D5E5F'
     8727   03 01A1B    50C1C2C3 A            DATA     X'50C1C2C3'
     8728   03 01A1C    C4C5C6C7 A            DATA     X'C4C5C6C7'
     8729   03 01A1D    C8C94A4B A            DATA     X'C8C94A4B'
     8730   03 01A1E    4C4D4E4F A            DATA     X'4C4D4E4F'
     8731   03 01A1F    00000000 A   PBTSAT   DATA     0
     8732   03 01A20    00000000 A            DATA     0
     8733   03 01A21    00000000 A            DATA     0
     8734   03 01A22    04104104 A            DATA     X'04104104'
     8735   03 01A23    10410410 A            DATA     X'10410410'
     8736   03 01A24    41041041 A            DATA     X'41041041'
     8737   03 01A25    08208208 A            DATA     X'08208208'
     8738   03 01A26    20820820 A            DATA     X'20820820'
     8739   03 01A27    82082082 A            DATA     X'82082082'
     8740   03 01A28    10410410 A            DATA     X'10410410'
     8741   03 01A29    41041041 A            DATA     X'41041041'
     8742   03 01A2A    04104104 A            DATA     X'04104104'
     8743   03 01A2B    20820820 A            DATA     X'20820820'
     8744   03 01A2C    82082082 A            DATA     X'82082082'
     8745   03 01A2D    08208208 A            DATA     X'08208208'
     8746   03 01A2E    41041041 A            DATA     X'41041041'
     8747   03 01A2F    04104104 A            DATA     X'04104104'
     8748   03 01A30    10410410 A            DATA     X'10410410'
     8749   03 01A31    82082082 A            DATA     X'82082082'
     8750   03 01A32    08208208 A            DATA     X'08208208'
     8751   03 01A33    20820820 A            DATA     X'20820820'
     8752   03 01A34    12131415 A   COMPSPD  DATA     X'12131415'
     8753   03 01A35    00333435 A            DATA     X'00333435'
     8754   03 01A36    12131415 A            DATA     X'12131415'
     8755   03 01A37    32003435 A            DATA     X'32003435'
     8756   03 01A38    12131415 A            DATA     X'12131415'
     8757   03 01A39    32330035 A            DATA     X'32330035'
     8758   03 01A3A    12131415 A            DATA     X'12131415'
     8759   03 01A3B    32333400 A            DATA     X'32333400'
     8760   03 01A3C    AAAAAAAA A   COPEC    DATA     X'AAAAAAAA'
     8761   03 01A3D    AAAAFFFF A            DATA     X'AAAAFFFF'
     8762   03 01A3E    FFFFFFFF A            DATA     X'FFFFFFFF'
     8763   03 01A3F    AAAAAAAA A            DATA     X'AAAAAAAA'
     8764   03 01A40    AAAAAA00 A            DATA     X'AAAAAA00'
     8765   03 01A41    FFFFFFFF A            DATA     X'FFFFFFFF'
     8766   03 01A42    AAAAAAAA A            DATA     X'AAAAAAAA'
     8767   03 01A43    AAAAAAAA A            DATA     X'AAAAAAAA'
     8768   03 01A44    00FFFFFF A            DATA     X'00FFFFFF'
     8769   03 01A45    00000000 A   PATTSED  DATA     0                 SEED FOR PATTERN
     8770   03 01A46    00000000 A   PATTYPE  DATA     0                 PATTERN TYPE 0=FIXED,1=RANDOM,5=BIT
     8771   03 01A47    00000000 A   PATTTK   DATA     0                 TRACKS IF BIT CROWDING PATTERN
     8772   03 01A48    00000000 A   PATTTS1  DATA     0                 PATTERN FOR 1ST TRACK
     8773   03 01A49    00000000 A   PATTTS2  DATA     0
     8774   03 01A4A    00000000 A   PATTFIX  DATA     0                 FIXED PATTERN
     8775   03 01A4B    00000000 A   LENGTHB  DATA     0                 LENGTH REVISED
     8776   03 01A4C    00000000 A   LENGTH   DATA     0                 BYTE LENGTH FROM DIRECTIVE
     8777   03 01A4D    00000001 A   NOPKPRT  DATA     1
     8778   03 01A4E    00000001 A   TLOOP    DATA     1
     8779   03 01A4F    00000000 A   CMAX     DATA     0
     8780   03 01A50    00000000 A   RRTT     DATA     0
     8781   03 01A51    00000000 A   MASKBYT  DATA     0
     8782   03 01A52    00001ADA     OPP1     DATA     OPMESGA
     8783   03 01A53    00001AE0              DATA     OPMESG8
     8784   03 01A54    00001AE6              DATA     OPMESG9
     8785   03 01A55    00000055 A   TOL800   DATA     85
     8786   03 01A56    0000001E A            DATA     30
     8787   03 01A57    00000014 A            DATA     20
     8788   03 01A58    00000006 A            DATA     06
     8789   03 01A59    00000046 A   TOL8001  DATA     70
     8790   03 01A5A    0000001D A            DATA     29
     8791   03 01A5B    00000010 A            DATA     16
     8792   03 01A5C    00000005 A            DATA     05
     8793                                     BOUND    8
     8794   03 01A5E    0FE3E2E3 A   DEVPRTO  TEXTC    'TST1-DEV.      '
            03 01A5F    F160C4C5 A
            03 01A60    E54B4040 A
            03 01A61    40404040 A
     8795   03 01A62    0000224A     RESLOC   DATA     BUFF1+200
     8796   03 01A63    00000000 A   CSMEAR   DATA     0,0,0,0,0,0,0,0,0,0,0,0,
            03 01A64    00000000 A
            03 01A65    00000000 A
            03 01A66    00000000 A
            03 01A67    00000000 A
            03 01A68    00000000 A
            03 01A69    00000000 A
            03 01A6A    00000000 A
            03 01A6B    00000000 A
            03 01A6C    00000000 A
            03 01A6D    00000000 A
            03 01A6E    00000000 A
            03 01A6F    00000000 A
     8797   03 01A70    00000000 A   LENBUF1  DATA     0                 LENGTH IN BYTES OF REC BUFFER 1
     8798   03 01A71    00000000 A   LENBUF2  DATA     0                 LENGTH IN BYTES OF REC BUFFER 2
     8799                                     BOUND    8
     8800   03 01A72    08FF0000 A   CHKBITT  DATA     X'08FF0000'
     8801   03 01A73    08BF0000 A   CHKBIT   DATA     X'08BF0000'
     8802   03 01A74    00000000 A   MODEFLAG DATA     0
     8803   03 01A75    0F001A76     XPSD1    XPSD,0   INTSVV            INTERRUPT ADDRESS
     8804                                     BOUND    8
     8805   03 01A76    00000000 A   INTSVV   DATA     0,0,:INTSV,0
            03 01A77    00000000 A
            03 01A78    00001F2A
            03 01A79    00000000 A
     8806   03 01A7A    0F001A7C     XPSD4    XPSD,0   INTMY             INTERRUPT FOR UTILITY TEST 2
     8807                                     BOUND    8
     8808   03 01A7C    00000000 A   INTMY    DATA     0,0,TST3207,0
            03 01A7D    00000000 A
            03 01A7E    00001467
            03 01A7F    00000000 A
     8809                                     BOUND    8
     8810   03 01A80    E66BE66B A   REDAPT   TEXT     'W,W,W,W     '
            03 01A81    E66BE640 A
            03 01A82    40404040 A
     8811   03 01A83    E66BE66B A            TEXT     'W,W,W,SB    '
            03 01A84    E66BE2C2 A
            03 01A85    40404040 A
     8812   03 01A86    E66BE66B A            TEXT     'W,W,SB,SB   '
            03 01A87    E2C26BE2 A
            03 01A88    C2404040 A
     8813   03 01A89    E66BE66B A            TEXT     'W,W,SB,RF   '
            03 01A8A    E2C26BD9 A
            03 01A8B    C6404040 A
     8814   03 01A8C    E66BE2C2 A            TEXT     'W,SB,RF,SB  '
            03 01A8D    6BD9C66B A
            03 01A8E    E2C24040 A
     8815   03 01A8F    E66BE2C2 A            TEXT     'W,SB,SB,RF  '
            03 01A90    6BE2C26B A
            03 01A91    D9C64040 A
     8816   03 01A92    E66BE2C2 A            TEXT     'W,SB,SB,SF  '
            03 01A93    6BE2C26B A
            03 01A94    E2C64040 A
     8817   03 01A95    E2C26BD9 A            TEXT     'SB,RF,W,W   '
            03 01A96    C66BE66B A
            03 01A97    E6404040 A
     8818   03 01A98    E2C26BD9 A            TEXT     'SB,RF,W,SB  '
            03 01A99    C66BE66B A
            03 01A9A    E2C24040 A
     8819   03 01A9B    E2C26BE6 A            TEXT     'SB,W,SB,RF  '
            03 01A9C    6BE2C26B A
            03 01A9D    D9C64040 A
     8820   03 01A9E    E2C26BD9 A            TEXT     'SB,RF,SB,W  '
            03 01A9F    C66BE2C2 A
            03 01AA0    6BE64040 A
     8821   03 01AA1    E2C26BD9 A            TEXT     'SB,RF,SB,RF '
            03 01AA2    C66BE2C2 A
            03 01AA3    6BD9C640 A
     8822   03 01AA4    E2C26BE2 A            TEXT     'SB,SF,W,W   '
            03 01AA5    C66BE66B A
            03 01AA6    E6404040 A
     8823   03 01AA7    E2C26BE6 A            TEXT     'SB,W,SB,SF  '
            03 01AA8    6BE2C26B A
            03 01AA9    E2C64040 A
     8824   03 01AAA    E2C26BD9 A            TEXT     'SB,RF,SB,RF '
            03 01AAB    C66BE2C2 A
            03 01AAC    6BD9C640 A
     8825   03 01AAD    E2C26BE2 A            TEXT     'SB,SF,SB,RF '
            03 01AAE    C66BE2C2 A
            03 01AAF    6BD9C640 A
     8826                                     BOUND    8
     8827   03 01AB0    0DE3C9D4 A   TIMEOUT  TEXTC    'TIMEOUT ERROR'
            03 01AB1    C5D6E4E3 A
            03 01AB2    40C5D9D9 A
            03 01AB3    D6D94040 A
     8828                                     BOUND    8                                                 *A01
     8829   03 01AB4    0540E3E2 A   TIMEOUT1 TEXTC    ' TSTX'                                           *A01
            03 01AB5    E3E74040 A
     8830                                     BOUND    8
     8831   03 01AB6    0DD5D640 A   NOLOAD   TEXTC    'NO LOAD POINT'
            03 01AB7    D3D6C1C4 A
            03 01AB8    40D7D6C9 A
            03 01AB9    D5E34040 A
     8832                                     BOUND    8
     8833   03 01ABA    10C4C5D3 A   DELSUB   TEXTC    'DELAY SUBROUTINE'
            03 01ABB    C1E840E2 A
            03 01ABC    E4C2D9D6 A
            03 01ABD    E4E3C9D5 A
            03 01ABE    C5404040 A
     8834                                     BOUND    8
     8835   03 01AC0    0FD9C5D4 A   OPMESG2  TEXTC    'REMOVE JUMPER  '
            03 01AC1    D6E5C540 A
            03 01AC2    D1E4D4D7 A
            03 01AC3    C5D94040 A
     8836                                     BOUND    8
     8837   03 01AC4    1BD9C5D7 A   OPMESG3  TEXTC    'REPLACE WRITE RING, READY  '
            03 01AC5    D3C1C3C5 A
            03 01AC6    40E6D9C9 A
            03 01AC7    E3C540D9 A
            03 01AC8    C9D5C76B A
            03 01AC9    40D9C5C1 A
            03 01ACA    C4E84040 A
     8838                                     BOUND    8
     8839   03 01ACC    17D9C5E2 A   OPMESG4  TEXTC    'RESTORE UNIT TO READY  '
            03 01ACD    E3D6D9C5 A
            03 01ACE    40E4D5C9 A
            03 01ACF    E340E3D6 A
            03 01AD0    40D9C5C1 A
            03 01AD1    C4E84040 A
     8840                                     BOUND    8
     8841   03 01AD2    1FD9C5E2 A   OPMESG5  TEXTC    'RESET, ATTENTION, FOR INTERRUPT'
            03 01AD3    C5E36B40 A
            03 01AD4    C1E3E3C5 A
            03 01AD5    D5E3C9D6 A
            03 01AD6    D56B40C6 A
            03 01AD7    D6D940C9 A
            03 01AD8    D5E3C5D9 A
            03 01AD9    D9E4D7E3 A
     8842                                     BOUND    8
     8843   03 01ADA    13E2C5E3 A   OPMESGA  TEXTC    'SET DIAL TO 200 BPI'
            03 01ADB    40C4C9C1 A
            03 01ADC    D340E3D6 A
            03 01ADD    40F2F0F0 A
            03 01ADE    40C2D7C9 A
     8844                                     BOUND    8
     8845   03 01AE0    13E2C5E3 A   OPMESG8  TEXTC    'SET DIAL TO 556 BPI'
            03 01AE1    40C4C9C1 A
            03 01AE2    D340E3D6 A
            03 01AE3    40F5F5F6 A
            03 01AE4    40C2D7C9 A
     8846                                     BOUND    8
     8847   03 01AE6    13E2C5E3 A   OPMESG9  TEXTC    'SET DIAL TO 800 BPI'
            03 01AE7    40C4C9C1 A
            03 01AE8    D340E3D6 A
            03 01AE9    40F8F0F0 A
            03 01AEA    40C2D7C9 A
     8848                                     BOUND    8
     8849   03 01AEC    0BD5D6E3 A   ERMSG1   TEXTC    'NOT 200 BPI'
            03 01AED    40F2F0F0 A
            03 01AEE    40C2D7C9 A
     8850                                     BOUND    8
     8851   03 01AF0    0BD5D6E3 A   ERMSG2   TEXTC    'NOT 556 BPI'
            03 01AF1    40F5F5F6 A
            03 01AF2    40C2D7C9 A
     8852                                     BOUND    8
     8853   03 01AF4    0BD5D6E3 A   ERMSG3   TEXTC    'NOT 800 BPI'
            03 01AF5    40F8F0F0 A
            03 01AF6    40C2D7C9 A
     8854                                     BOUND    8
     8855   03 01AF8    26D9C5D4 A   OPMESG6  TEXTC    'REMOVE WRITE RING, READY, CORRECT UNIT'
            03 01AF9    D6E5C540 A
            03 01AFA    E6D9C9E3 A
            03 01AFB    C540D9C9 A
            03 01AFC    D5C76B40 A
            03 01AFD    D9C5C1C4 A
            03 01AFE    E86B40C3 A
            03 01AFF    D6D9D9C5 A
            03 01B00    C3E340E4 A
            03 01B01    D5C9E340 A
     8856                                     BOUND    8
     8857                            MESIRG   TEXTC    'I R G TIME          US  TOLERANCE      ',;
     8858   03 01B02    37C940D9 A                     '     TO         '
            03 01B03    40C740E3 A
            03 01B04    C9D4C540 A
            03 01B05    40404040 A
            03 01B06    40404040 A
            03 01B07    40E4E240 A
            03 01B08    40E3D6D3 A
            03 01B09    C5D9C1D5 A
            03 01B0A    C3C54040 A
            03 01B0B    40404040 A
            03 01B0C    40404040 A
            03 01B0D    40E3D640 A
            03 01B0E    40404040 A
            03 01B0F    40404040 A
     8859                                     BOUND    8
     8860   03 01B10    1BE2E3C1 A   MESSTRT  TEXTC    'START TIME IS            US'
            03 01B11    D9E340E3 A
            03 01B12    C9D4C540 A
            03 01B13    C9E24040 A
            03 01B14    40404040 A
            03 01B15    40404040 A
            03 01B16    4040E4E2 A
     8861                                     BOUND    8
     8862   03 01B18    26E3C1D7 A   MESTPC   TEXTC    'TAPE CREEP      US   TOLERANCE      US'
            03 01B19    C540C3D9 A
            03 01B1A    C5C5D740 A
            03 01B1B    40404040 A
            03 01B1C    40E4E240 A
            03 01B1D    4040E3D6 A
            03 01B1E    D3C5D9C1 A
            03 01B1F    D5C3C540 A
            03 01B20    40404040 A
            03 01B21    40E4E240 A
     8863                                     BOUND    8
     8864   03 01B22    22D5C5C7 A   MESNCR   TEXTC    'NEG. CREEP      IN TAPE CREEP TEST'
            03 01B23    4B40C3D9 A
            03 01B24    C5C5D740 A
            03 01B25    40404040 A
            03 01B26    40C9D540 A
            03 01B27    E3C1D7C5 A
            03 01B28    40C3D9C5 A
            03 01B29    C5D740E3 A
            03 01B2A    C5E2E340 A
     8865                                     BOUND    8
     8866   03 01B2C    23E3D9C1 A   MRTE     TEXTC    'TRANS ERROR  REC XXXXXX  BYT XXXXXX'
            03 01B2D    D5E240C5 A
            03 01B2E    D9D9D6D9 A
            03 01B2F    4040D9C5 A
            03 01B30    C340E7E7 A
            03 01B31    E7E7E7E7 A
            03 01B32    4040C2E8 A
            03 01B33    E340E7E7 A
            03 01B34    E7E7E7E7 A
     8867                                     BOUND    8
     8868   03 01B36    1BD9C5C3 A   RECOUT   TEXTC    'REC  XXXXXX  BYT CNT XXXXXX'
            03 01B37    4040E7E7 A
            03 01B38    E7E7E7E7 A
            03 01B39    4040C2E8 A
            03 01B3A    E340C3D5 A
            03 01B3B    E340E7E7 A
            03 01B3C    E7E7E7E7 A
     8869                                     BOUND    8
     8870   03 01B3E    2EC5D9C1 A   MESEGT   TEXTC    'ERASE TIME      MS, TOLERANCE       -       MS'
            03 01B3F    E2C540E3 A
            03 01B40    C9D4C540 A
            03 01B41    40404040 A
            03 01B42    40D4E26B A
            03 01B43    40E3D6D3 A
            03 01B44    C5D9C1D5 A
            03 01B45    C3C54040 A
            03 01B46    40404040 A
            03 01B47    40604040 A
            03 01B48    40404040 A
            03 01B49    40D4E240 A
     8871                                     BOUND    8
     8872   03 01B4A    13C4C5E2 A   OPMESG7  TEXTC    'DESIGNATE UNIT XXXX'
            03 01B4B    C9C7D5C1 A
            03 01B4C    E3C540E4 A
            03 01B4D    D5C9E340 A
            03 01B4E    E7E7E7E7 A
     8873                                     BOUND    8
     8874   03 01B50    345C5C5C A   MSER1    TEXTC    '****************************************************'
            03 01B51    5C5C5C5C A
            03 01B52    5C5C5C5C A
            03 01B53    5C5C5C5C A
            03 01B54    5C5C5C5C A
            03 01B55    5C5C5C5C A
            03 01B56    5C5C5C5C A
            03 01B57    5C5C5C5C A
            03 01B58    5C5C5C5C A
            03 01B59    5C5C5C5C A
            03 01B5A    5C5C5C5C A
            03 01B5B    5C5C5C5C A
            03 01B5C    5C5C5C5C A
            03 01B5D    5C404040 A
     8875                                     BOUND    8
     8876   03 01B5E    33D9C5C3 A   MESER    TEXTC    'REC 100 PT XXXX WRT ER XXXX  RF ER XXXX INF ER XXXX'
            03 01B5F    40F1F0F0 A
            03 01B60    40D7E340 A
            03 01B61    E7E7E7E7 A
            03 01B62    40E6D9E3 A
            03 01B63    40C5D940 A
            03 01B64    E7E7E7E7 A
            03 01B65    4040D9C6 A
            03 01B66    40C5D940 A
            03 01B67    E7E7E7E7 A
            03 01B68    40C9D5C6 A
            03 01B69    40C5D940 A
            03 01B6A    E7E7E7E7 A
     8877                                     BOUND    8
     8878   03 01B6C    33D9C1D5 A   REMESG1  TEXTC    'RAND. WORD            DEV.        PASS HEX         '
            03 01B6D    C44B40E6 A
            03 01B6E    D6D9C440 A
            03 01B6F    40404040 A
            03 01B70    40404040 A
            03 01B71    404040C4 A
            03 01B72    C5E54B40 A
            03 01B73    40404040 A
            03 01B74    404040D7 A
            03 01B75    C1E2E240 A
            03 01B76    C8C5E740 A
            03 01B77    40404040 A
            03 01B78    40404040 A
     8879                                     BOUND    8
     8880   03 01B7A    1BC6C1C9 A   REMESG2  TEXTC    'FAILING SEQ: W,            '
            03 01B7B    D3C9D5C7 A
            03 01B7C    40E2C5D8 A
            03 01B7D    7A40E66B A
            03 01B7E    40404040 A
            03 01B7F    40404040 A
            03 01B80    40404040 A
     8881                                     BOUND    8
     8882                            REMESG3  TEXTC    'DEVICE XXXX  PERM WRT TALY XXXX  TEMP WRT ',;    *A01
     8883                                              'TALY XXXX
 PERM R F TALY XXXX  TEMP R F ',;      *A01
     8884   03 01B82    5BC4C5E5 A                     'TALY XXXX'                                       *A01
            03 01B83    C9C3C540 A
            03 01B84    E7E7E7E7 A
            03 01B85    4040D7C5 A
            03 01B86    D9D440E6 A
            03 01B87    D9E340E3 A
            03 01B88    C1D3E840 A
            03 01B89    E7E7E7E7 A
            03 01B8A    4040E3C5 A
            03 01B8B    D4D740E6 A
            03 01B8C    D9E340E3 A
            03 01B8D    C1D3E840 A
            03 01B8E    E7E7E7E7 A
            03 01B8F    1540D7C5 A
            03 01B90    D9D440D9 A
            03 01B91    40C640E3 A
            03 01B92    C1D3E840 A
            03 01B93    E7E7E7E7 A
            03 01B94    4040E3C5 A
            03 01B95    D4D740D9 A
            03 01B96    40C640E3 A
            03 01B97    C1D3E840 A
            03 01B98    E7E7E7E7 A
     8885                                     BOUND    8
     8886                            OUTMSG   TEXTC    '                                              ',;
     8887   03 01B9A    4A404040 A                     '                            '
            03 01B9B    40404040 A
            03 01B9C    40404040 A
            03 01B9D    40404040 A
            03 01B9E    40404040 A
            03 01B9F    40404040 A
            03 01BA0    40404040 A
            03 01BA1    40404040 A
            03 01BA2    40404040 A
            03 01BA3    40404040 A
            03 01BA4    40404040 A
            03 01BA5    40404040 A
            03 01BA6    40404040 A
            03 01BA7    40404040 A
            03 01BA8    40404040 A
            03 01BA9    40404040 A
            03 01BAA    40404040 A
            03 01BAB    40404040 A
            03 01BAC    40404040 A
     8888                                     BOUND    8
     8889   03 01BAE    274040C4 A   REMESG32 TEXTC    '  DEV.         FAILING REC HEX         '
            03 01BAF    C5E54B40 A
            03 01BB0    40404040 A
            03 01BB1    40404040 A
            03 01BB2    C6C1C9D3 A
            03 01BB3    C9D5C740 A
            03 01BB4    D9C5C340 A
            03 01BB5    C8C5E740 A
            03 01BB6    40404040 A
            03 01BB7    40404040 A
     8890   03 01BB8    00000000 A   SAVMODEL DATA     0                 MODEL NUMBER BEING TESTED
     8891                            *
     8892                            *
     8893   03 01BB9    35F01C02     ERRPNT1  STW,15   ERREXIT           STORE RETURN ADDR
     8894   03 01BBA    22B00000 A            LI,11    0                 FETCH ZERO
     8895   03 01BBB    226FFFFA A            LI,6     -6                FETCH -6
     8896   03 01BBC    328C1C11              LW,8     :TALLYO+6,6       FETCH OBS. COUNT
     8897   03 01BBD    69301BC0              BNEZ     %+3               BRANCH NOT EQUAL ZERO
     8898   03 01BBE    65601BBC              BIR,6    %-2               BRANCH INCREMENT REG. 6
     8899   03 01BBF    E8001C02              B        *ERREXIT          EXIT - NO ERRORS
     8900   03 01BC0    226FFFFA A            LI,6     -6                FETCH -6
     8901   03 01BC1    32CC1C0B     ERRPNT2  LW,12    :TALLYE+6,6       FETCH EXP. COUNT
     8902   03 01BC2    68301BDD              BEZ      ERRPNT5           BRANCH IF EQUAL ZERO
     8903   03 01BC3    38CC1C11              SW,12    :TALLYO+6,6       IF NOT EQUAL SUBTRACT OBS. COUNT
     8904   03 01BC4    21C02710 A            CI,12    10000             COMPARE IMMEDIATE
     8905   03 01BC5    68301BCD              BE       ERRPNT3A          BRANCH IF EQUAL
     8906   03 01BC6    21C026AC A            CI,12    9900              COMPARE IMMEDIATE
     8907   03 01BC7    68101BD0              BGE      ERRPNT3           BRANCH IF GREATER OR EQUAL
     8908   03 01BC8    21C01388 A            CI,12    5000              COMPARE IMMEDIATE
     8909   03 01BC9    68101BD3              BGE      ERRPNT4           BRANCH IF GREATER OR EQUAL
     8910   03 01BCA    02200030 A   ERRPNT2A LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     8911   03 01BCB    2A801C32              LM,8     ERRNO6            LOAD MULTIPLE
     8912   03 01BCC    68001BD5              B        %+9               BRANCH
     8913   03 01BCD    02200030 A   ERRPNT3A LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     8914   03 01BCE    2A801C35              LM,8     ERRNO7            FETCH MULTIPLE
     8915   03 01BCF    68001BD5              B        %+6               BRANCH
     8916   03 01BD0    02200030 A   ERRPNT3  LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     8917   03 01BD1    2A801C2F              LM,8     ERRNO5            LOAD MUtTIPLE
     8918   03 01BD2    68001BD5              B        %+3               BRANCH
     8919   03 01BD3    02200030 A   ERRPNT4  LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     8920   03 01BD4    2A801C2C              LM,8     ERRNO4            LOAD MULTIPLE
     8921   03 01BD5    55821C29              STH,8    ERRNO3+11,1       STORE HALF WORD INTO ERRNO3
     8922   03 01BD6    02200020 A            LCI      2                 LOAD CONDITION CONTROL IMMEDIATE
     8923   03 01BD7    2B901C2A              STM,9    ERRNO3+12         STORE MULTIPLE
     8924   03 01BD8    EAF00217 A            BAL,15   *:DECC            CONVERSION SUBR.
     8925   03 01BD9    35F01C28              STW,15   ERRNO3+10         STORE THE RESULT INTO ERRNO3
     8926   03 01BDA    EAF00217 A            BAL,15   *:DECC            CONVERSION SUBR.
     8927   03 01BDB    75F61C27              STB,15   ERRNO3+9,3        STORE THE RESULT INTO ERRNO3
     8928   03 01BDC    68001BE5              B        ERRPNT6           BRANCH TO ERRPNT6
     8929   03 01BDD    32CC1C11     ERRPNT5  LW,12    :TALLYO+6,6       FETCH OBS. COUNT
     8930   03 01BDE    21C00000 A            CI,12    0                 COMPARE IMMEDIATE
     8931   03 01BDF    68301BCD              BE       ERRPNT3A          BRANCH IF EQUAL
     8932   03 01BE0    21C00064 A            CI,12    100               COMPARE IMMEDIATE
     8933   03 01BE1    68201BD0              BLE      ERRPNT3           BRANCH IF LESS OR EQUAL
     8934   03 01BE2    21C01388 A            CI,12    5000              COMPARE IMMEDIATE
     8935   03 01BE3    68201BD3              BLE      ERRPNT4           BRANCH IF LESS OR EQUAL
     8936   03 01BE4    68001BCA              B        ERRPNT2A          BRANCH
     8937   03 01BE5    72C6000B A   ERRPNT6  LB,12    11,3              FETCH BYTE
     8938   03 01BE6    EAF00217 A            BAL,15   *:DECC            CONVERSION SUBR.
     8939   03 01BE7    75F41C20              STB,15   ERRNO3+2,2        STORE THE RESULT INTO ERRNO3
     8940   03 01BE8    32C01C04              LW,12    TESTNO            FETCH TEST NO.
     8941   03 01BE9    EAF00217 A            BAL,15   *:DECC            CONVERSION SUBR.
     8942   03 01BEA    55F21C12              STH,15   ERRNO1+1,1        STORE THE RESULT INTO ERRNO1
     8943   03 01BEB    32CC1C0B              LW,12    :TALLYE+6,6       FETCH EXP. COUNT
     8944   03 01BEC    EAF00217 A            BAL,15   *:DECC            CONVERSION SUBR.
     8945   03 01BED    35F01C25              STW,15   ERRNO3+7          STORE THE RESULT INTO ERRNO3
     8946   03 01BEE    EAF00217 A            BAL,15   *:DECC            CONVERSION SUBR.
     8947   03 01BEF    75F61C24              STB,15   ERRNO3+6,3        STORE THE RESULT INTO ERRNO3
     8948   03 01BF0    216FFFFA A            CI,6     -6
     8949   03 01BF1    69301BFD              BNE      LINE3
     8950   03 01BF2    EAF0021C A            BAL,15   *:PRINT           GO TO PRINT SUBR.
     8951   03 01BF3    00001C11              DATA     ERRNO1
     8952   03 01BF4    EAF0021C A            BAL,15   *:PRINT           GO TO PRINT SUBR.
     8953   03 01BF5    00000000 A   :TALLYMA DATA     0
     8954   03 01BF6    32C01C03              LW,12    :TALLYP           FETCH TALLYP
     8955   03 01BF7    EAF00218 A            BAL,15   *:HEXC            CONVERSION SUBR.
     8956   03 01BF8    35F01C1D              STW,15   ERRNO2+6          STORE THE RESULT
     8957   03 01BF9    EAF00218 A            BAL,15   *:HEXC            CONVERSION SUBR.
     8958   03 01BFA    35F01C1C              STW,15   ERRNO2+5          STORE THE RESULT
     8959   03 01BFB    EAF0021C A            BAL,15   *:PRINT           GO TO PRINT SURB.
     8960   03 01BFC    00001C17              DATA     ERRNO2
     8961   03 01BFD    EAF0021C A   LINE3    BAL,15   *:PRINT           GO TO PRINT SUBR.
     8962   03 01BFE    00001C1E              DATA     ERRNO3
     8963   03 01BFF    3310000B A   ERRPNT7  MTW,1    11                ADD 1 TO REG. 11
     8964   03 01C00    65601BC1              BIR,6    ERRPNT2
     8965   03 01C01    E8021C02              B        *ERREXIT,1        ERROR EXIT
     8966   03 01C02    00000000 A   ERREXIT  DATA     0
     8967   03 01C03    00000000 A   :TALLYP  DATA     0
     8968   03 01C04    00000000 A   TESTNO   DATA     0
     8969   03 01C05                 :TALLYE  RES      6
     8970   03 01C0B                 :TALLYO  RES      6
     8971   03 01C11    15E3E2E3 A   ERRNO1   TEXTC    'TST1,XX FAULT SUMMARY'
            03 01C12    F16BE7E7 A
            03 01C13    40C6C1E4 A
            03 01C14    D3E340E2 A
            03 01C15    E4D4D4C1 A
            03 01C16    D9E84040 A
     8972   03 01C17    1BC3E4D9 A   ERRNO2   TEXTC    'CURRENT PATTERN:   XXXXXXXX'
            03 01C18    D9C5D5E3 A
            03 01C19    40D7C1E3 A
            03 01C1A    E3C5D9D5 A
            03 01C1B    7A404040 A
            03 01C1C    E7E7E7E7 A
            03 01C1D    E7E7E7E7 A
     8973                            ERRNO3   TEXTC     ;
     8974   03 01C1E    37C4C1E3 A    'DATA BIT N TOTAL BITS EXP XXXXX   OBS XXXXX            '
            03 01C1F    C140C2C9 A
            03 01C20    E340D540 A
            03 01C21    E3D6E3C1 A
            03 01C22    D340C2C9 A
            03 01C23    E3E240C5 A
            03 01C24    E7D740E7 A
            03 01C25    E7E7E7E7 A
            03 01C26    404040D6 A
            03 01C27    C2E240E7 A
            03 01C28    E7E7E7E7 A
            03 01C29    40404040 A
            03 01C2A    40404040 A
            03 01C2B    40404040 A
     8975   03 01C2C    4040D4C1 A   ERRNO4   TEXT     '  MARGINAL  '
            03 01C2D    D9C7C9D5 A
            03 01C2E    C1D34040 A
     8976   03 01C2F    4040C9D5 A   ERRNO5   TEXT     '  INTERMIT  '
            03 01C30    E3C5D9D4 A
            03 01C31    C9E34040 A
     8977   03 01C32    4040E3D9 A   ERRNO6   TEXT     '  TRACK BAD '
            03 01C33    C1C3D240 A
            03 01C34    C2C1C440 A
     8978   03 01C35    4040E3D9 A   ERRNO7   TEXT     '  TRACK  OK '
            03 01C36    C1C3D240 A
            03 01C37    40D6D240 A
     8979   03 01C38    2BD9C5C1 A   T1ST18M  TEXTC    'READ FORWARD - 100 RECORDS (100 BYTES EACH)'
            03 01C39    C440C6D6 A
            03 01C3A    D9E6C1D9 A
            03 01C3B    C4406040 A
            03 01C3C    F1F0F040 A
            03 01C3D    D9C5C3D6 A
            03 01C3E    D9C4E240 A
            03 01C3F    4DF1F0F0 A
            03 01C40    40C2E8E3 A
            03 01C41    C5E240C5 A
            03 01C42    C1C3C85D A
     8980                            *
     8981                            *
     8982                            *
     8983                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     8984                            *
     8985                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     8986                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     8987                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     8988                            *
     8989                            *       INPUT PARAMETERS:
     8990                            *
     8991                            *         REG 0 -DA(IOCD)-FOR SIO ONLY
     8992                            *         REG 14-STATUS MASK
     8993                            *                  BITS  0-15: DEVICE STATUS MASK
     8994                            *                  BITS 16,17: CONDITION CODES 1,2 MASK
     8995                            *                  BITS 18-23: ZEROS
     8996                            *                  BITS 24-31: PRINT INHIBIT (INHIBIT IF <>0)
     8997                            *
     8998                            *                   (NOTE: ERROR CONDITION EXISTS IF
     8999                            *                     A MASK BIT LOGICALLY AND'D WITH
     9000                            *                     A CORRESPONDING DEVICE STATUS OR
     9001                            *                     CC1,2 BIT EQUALS 1)
     9002                            *         REG 15-RETURN ADDRESS
     9003                            *
     9004                            *       REGISTERS DISTURBED:
     9005                            *
     9006                            *         4,11
     9007                            *
     9008                            *       OUTPUT PARAMETERS:
     9009                            *
     9010                            *         NORMAL EXIT-RETURN ADDRESS
     9011                            *         ERROR EXIT -RETURN ADDRESS+1
     9012                            *         REG 12     -COMMAND ADDRESS
     9013                            *         REG 13     -DEVICE STATUS, BYTE COUNT
     9014                            *         :CC12      -RETURNED CONDITION CODES 1,2 (BIT POSITIONS 30,31)
     9015                            *
     9016                            *          ISSUE SIO
     9017                            *
     9018   03 01C43    CCC0195B     :SIO     SIO,R12  *:DEVADDR         ISSUE SIO
     9019   03 01C44    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     9020   03 01C45    22400002 A            LI,R4    2                 INDEX=2
     9021   03 01C46    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     9022   03 01C47    22400001 A            LI,R4    1                 INDEX=1
     9023   03 01C48    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     9024   03 01C49    4BB0217A              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     9025   03 01C4A    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     9026   03 01C4B    22400000 A            LI,R4    0
     9027   03 01C4C    35401CC8              STW,R4   :TYPE             ISSUE TYPE=0
     9028   03 01C4D    68001C7A              B        :STATEST          REPORT SIO STATUS ERROR
     9029                            *
     9030                            *          ISSUE TIO
     9031                            *
     9032   03 01C4E    CDC0195B     :TIO     TIO,R12  *:DEVADDR         ISSUE TIO
     9033   03 01C4F    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     9034   03 01C50    22400002 A            LI,R4    2                 INDEX=2
     9035   03 01C51    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     9036   03 01C52    22400001 A            LI,R4    1                 INDEX=1
     9037   03 01C53    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     9038   03 01C54    4BB0217A              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     9039   03 01C55    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     9040   03 01C56    22400001 A            LI,R4    1
     9041   03 01C57    35401CC8              STW,R4   :TYPE             ISSUE TYPE=1
     9042   03 01C58    68001C7A              B        :STATEST          REPORT TIO STATUS ERROR
     9043                            *
     9044                            *          ISSUE HIO
     9045                            *
     9046   03 01C59    CFC0195B     :HIO     HIO,R12  *:DEVADDR         ISSUE HIO
     9047   03 01C5A    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     9048   03 01C5B    22400002 A            LI,R4    2                 INDEX=2
     9049   03 01C5C    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     9050   03 01C5D    22400001 A            LI,R4    1                 INDEX=1
     9051   03 01C5E    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     9052   03 01C5F    4BB0217A              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     9053   03 01C60    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     9054   03 01C61    22400002 A            LI,R4    2
     9055   03 01C62    35401CC8              STW,R4   :TYPE             ISSUE TYPE=2
     9056   03 01C63    68001C7A              B        :STATEST          REPORT HIO STATUS ERROR
     9057                            *
     9058                            *          ISSUE TDV
     9059                            *
     9060   03 01C64    CEC0195B     :TDV     TDV,R12  *:DEVADDR         ISSUE TDV
     9061   03 01C65    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     9062   03 01C66    22400002 A            LI,R4    2                 INDEX=2
     9063   03 01C67    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     9064   03 01C68    22400001 A            LI,R4    1                 INDEX=1
     9065   03 01C69    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     9066   03 01C6A    4BB0217A              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     9067   03 01C6B    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     9068   03 01C6C    22400003 A            LI,R4    3
     9069   03 01C6D    35401CC8              STW,R4   :TYPE             ISSUE TYPE=3
     9070   03 01C6E    68001C7A              B        :STATEST          REPORT TDV STATUS ERROR
     9071                            *
     9072                            *          ISSUE AIO
     9073                            *
     9074   03 01C6F    6ED00000 A   :AIO     AIO,R13  0                 ISSUE AIO
     9075   03 01C70    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     9076   03 01C71    22400002 A            LI,R4    2                 INDEX=2
     9077   03 01C72    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     9078   03 01C73    22400001 A            LI,R4    1                 INDEX=1
     9079   03 01C74    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     9080   03 01C75    4BB0217A              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     9081   03 01C76    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     9082   03 01C77    22400004 A            LI,R4    4
     9083   03 01C78    35401CC8              STW,R4   :TYPE             ISSUE TYPE=4
     9084   03 01C79    68001C7A              B        :STATEST          REPORT AIO STATUS ERROR
     9085                            *
     9086                            *                                   PROCESS CC, STATUS ERRORS
     9087   03 01C7A    74000004 A   :STATEST STCF     R4                COND CODES 1-4, FLOAT CTRL
     9088   03 01C7B    72400004 A            LB,R4    R4                MOVE CC1,2 TO BIT POSITIONS 30,31
     9089   03 01C7C    2540007A A            SLS,R4   -6
     9090   03 01C7D    35401CC7              STW,R4   :CC12             SAVE CC1,2
     9091   03 01C7E    3310000F A            MTW,1    R15               RETURN ADDRESS +1
     9092   03 01C7F    22400003 A            LI,R4    3                 INDEX=3
     9093   03 01C80    7248000E A            LB,R4    R14,R4            STATUS MASK PRINT INHIBIT
     9094   03 01C81    E920000F A            BCS,2    *R15              PRINT INHIBIT <>0 -ERROR EXIT
     9095   03 01C82    02200000 A            LCI      0
     9096   03 01C83    2B001CC9              STM,R0   :REGSAVE          SAVE ALL REGISTERS
     9097   03 01C84    22400002 A            LI,R4    2                 INDEX=2
     9098   03 01C85    7248000B A            LB,R4    R11,R4            MASKED CC1,2
     9099   03 01C86    68301CAB              BCR,3    :STATERR          NO CC ERROR-GO TO STATUS ERROR TEST
     9100   03 01C87    32401CC7              LW,R4    :CC12             CC1,2
     9101   03 01C88    21400003 A            CI,R4    3
     9102   03 01C89    68301C9D              BCR,3    :CCERR3           CC1,2=11
     9103   03 01C8A    21400002 A            CI,R4    2
     9104   03 01C8B    68301C97              BCR,3    :CCERR2           CC1,2=10
     9105                            *                                   CC1,2=01
     9106   03 01C8C    32401CC8     :CCERR1  LW,R4    :TYPE             ISSUE TYPE
     9107   03 01C8D    21400003 A            CI,R4    3
     9108   03 01C8E    69301C92              BCS,3    %+4               TYPE NOT 3
     9109   03 01C8F    32C01CC7              LW,R12   :CC12             COND CODES 1,2
     9110   03 01C90    EAF00216 A            BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     9111   03 01C91    55F01D02              STH,R15  :CCERM4+9         ENTER INTO TDV MSG
     9112   03 01C92    32481CD9              LW,R4    :ERRADR1,R4       ERROR MSG ADDRESS
     9113   03 01C93    35401C95              STW,R4   %+2
     9114   03 01C94    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG
     9115   03 01C95    00000000 A            DATA     0
     9116   03 01C96    68001CAB              B        :STATERR          GO TO STATUS ERROR TEST
     9117                            *                                   CC1,2=10
     9118   03 01C97    32401CC8     :CCERR2  LW,R4    :TYPE             ISSUE TYPE
     9119   03 01C98    32481CDE              LW,R4    :ERRADR2,R4       ERROR MSG ADDRESS
     9120   03 01C99    35401C9B              STW,R4   %+2
     9121   03 01C9A    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG
     9122   03 01C9B    00000000 A            DATA     0
     9123   03 01C9C    68001CAB              B        :STATERR          GO TO STATUS ERROR TEST
     9124                            *                                   CC1,2=11
     9125   03 01C9D    32501CC8     :CCERR3  LW,R5    :TYPE             ISSUE TYPE
     9126   03 01C9E    324A1CE3              LW,R4    :ERRADR3,R5       ERROR MSG ADDRESS
     9127   03 01C9F    21500004 A            CI,R5    4
     9128   03 01CA0    68301CA5              BCR,3    %+5               ISSUE TYPE 4-NO DEV ADDR REQ'D
     9129   03 01CA1    32C0195B              LW,R12   :DEVADDR          DEVICE ADDRESS
     9130   03 01CA2    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9131   03 01CA3    22500004 A            LI,R5    4                 INDEX=4
     9132   03 01CA4    B5FA0004 A            STW,R15  *R4,R5            DEV ADDR TO ERROR MSG
     9133   03 01CA5    35401CA7              STW,R4   %+2
     9134   03 01CA6    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG
     9135   03 01CA7    00000000 A            DATA     0
     9136   03 01CA8    02200000 A            LCI      0
     9137   03 01CA9    2A001CC9              LM,R0    :REGSAVE          RESTORE ALL REGISTERS
     9138   03 01CAA    E800000F A            B        *R15              ERROR EXIT
     9139                            *                                   TEST MASKED STATUS
     9140   03 01CAB    5240000B A   :STATERR LH,R4    R11               MASKED STATUS
     9141   03 01CAC    68301CA8              BCR,3    %-4               NO STATUS ERROR-ERROR EXIT
     9142   03 01CAD    EAF0021C A            BAL,R15  *:PRINT           PRINT STATUS ERROR HEADER MSG
     9143   03 01CAE    00001D36              DATA     :STATEM1
     9144   03 01CAF    32401CC8              LW,R4    :TYPE             ISSUE TYPE
     9145   03 01CB0    32481D4D              LW,R4    :STATTYP,R4       ENTER TYPE INTO STATUS ERROR MSG
     9146   03 01CB1    72501D42              LB,R5    :STATEM2          SAVE ERROR MSG BYTE COUNT
     9147   03 01CB2    35401D42              STW,R4   :STATEM2
     9148   03 01CB3    75501D42              STB,R5   :STATEM2          RESTORE BYTE COUNT
     9149   03 01CB4    22500012 A            LI,R5    18                MSG BYTE INDEX=18
     9150   03 01CB5    52C0000D A            LH,R12   R13               DEV STATUS
     9151   03 01CB6    22400004 A            LI,R4    4                 MINOR INDEX=4
     9152   03 01CB7    EAF00216 A            BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     9153   03 01CB8    75FA1D45              STB,R15  :STATEM2+3,R5     STATUS BIT TO ERROR MSG
     9154   03 01CB9    33F00005 A            MTW,-1   R5                BYTE INDEX-1
     9155   03 01CBA    25F00078 A            SLS,R15  -8                ADJUST CONVERTED STATUS BITS
     9156   03 01CBB    64401CB8              BDR,R4   %-3               MINOR INDEX-1 NOT ZERO
     9157   03 01CBC    64501CB6              BDR,R5   %-6               BYTE INDEX-1 NOT ZERO
     9158   03 01CBD    32C01CC7              LW,R12   :CC12             COND CODES 1,2
     9159   03 01CBE    EAF00216 A            BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     9160   03 01CBF    22400001 A            LI,R4    1                 INDEX=1
     9161   03 01CC0    55F81D4A              STH,R15  :STATEM2+8,R4     COND CODES 1,2 TO ERROR MSG
     9162   03 01CC1    32C0195B              LW,R12   :DEVADDR          DEVICE ADDRESS
     9163   03 01CC2    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9164   03 01CC3    35F01D4C              STW,R15  :STATEM2+10       DEV ADDR TO ERROR MSG
     9165   03 01CC4    EAF0021C A            BAL,R15  *:PRINT           PRINT STATUS MSG
     9166   03 01CC5    00001D42              DATA     :STATEM2
     9167   03 01CC6    68001CA8              B        :STATERR-3        GO TO ERROR EXIT
     9168                            *
     9169   03 01CC7    00000000 A   :CC12    DATA     0                 CC1,2
     9170   03 01CC8    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     9171   03 01CC9                 :REGSAVE RES      16                REGISTERS 0-15
     9172   03 01CD9    00001CE8     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     9173   03 01CDA    00001CED              DATA     :CCERM2
     9174   03 01CDB    00001CF3              DATA     :CCERM3
     9175   03 01CDC    00001CF9              DATA     :CCERM4
     9176   03 01CDD    00001D03              DATA     :CCERM5
     9177   03 01CDE    00001D08     :ERRADR2 DATA     :CCERM6
     9178   03 01CDF    00001D0C              DATA     :CCERM7
     9179   03 01CE0    00001D10              DATA     :CCERM8
     9180   03 01CE1    00001D14              DATA     :CCERM9
     9181   03 01CE2    00001D18              DATA     :CCERMA
     9182   03 01CE3    00001D1C     :ERRADR3 DATA     :CCERMB
     9183   03 01CE4    00001D21              DATA     :CCERMC
     9184   03 01CE5    00001D26              DATA     :CCERMD
     9185   03 01CE6    00001D2B              DATA     :CCERME
     9186   03 01CE7    00001D30              DATA     :CCERMF
     9187   03 01CE8    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            03 01CE9    60D5D6E3 A
            03 01CEA    40C1C3C3 A
            03 01CEB    C5D7E3C5 A
            03 01CEC    C4404040 A
     9188   03 01CED    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            03 01CEE    60E2C9D6 A
            03 01CEF    40D5D6E3 A
            03 01CF0    40D7D6E2 A
            03 01CF1    E2C9C2D3 A
            03 01CF2    C5404040 A
     9189   03 01CF3    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            03 01CF4    60C4C5E5 A
            03 01CF5    40C2E4E2 A
            03 01CF6    E840C1E3 A
            03 01CF7    40C8C1D3 A
            03 01CF8    E3404040 A
     9190   03 01CF9    25E3C4E5 A   :CCERM4  TEXTC    'TDV-DEV DEPENDENT CONDITION CC1,2=   '
            03 01CFA    60C4C5E5 A
            03 01CFB    40C4C5D7 A
            03 01CFC    C5D5C4C5 A
            03 01CFD    D5E340C3 A
            03 01CFE    D6D5C4C9 A
            03 01CFF    E3C9D6D5 A
            03 01D00    40C3C3F1 A
            03 01D01    6BF27E40 A
            03 01D02    40404040 A
     9191   03 01D03    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            03 01D04    60E4C540 A
            03 01D05    C9D5E3C5 A
            03 01D06    D9D9E4D7 A
            03 01D07    E3404040 A
     9192   03 01D08    0DE2C9D6 A   :CCERM6  TEXTC    'SIO-BUSY SIOP'
            03 01D09    60C2E4E2 A
            03 01D0A    E840E2C9 A
            03 01D0B    D6D74040 A
     9193   03 01D0C    0DE3C9D6 A   :CCERM7  TEXTC    'TIO-BUSY SIOP'
            03 01D0D    60C2E4E2 A
            03 01D0E    E840E2C9 A
            03 01D0F    D6D74040 A
     9194   03 01D10    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            03 01D11    60C3C3F1 A
            03 01D12    6BF27EF1 A
            03 01D13    F0404040 A
     9195   03 01D14    0DE3C4E5 A   :CCERM9  TEXTC    'TDV-BUSY SIOP'
            03 01D15    60C2E4E2 A
            03 01D16    E840E2C9 A
            03 01D17    D6D74040 A
     9196   03 01D18    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            03 01D19    60C3C3F1 A
            03 01D1A    6BF27EF1 A
            03 01D1B    F0404040 A
     9197   03 01D1C    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            03 01D1D    60D5D640 A
            03 01D1E    C1D960C4 A
            03 01D1F    C5E54040 A
            03 01D20    E7E7E7E7 A
     9198   03 01D21    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            03 01D22    60D5D640 A
            03 01D23    C1D960C4 A
            03 01D24    C5E54040 A
            03 01D25    E7E7E7E7 A
     9199   03 01D26    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            03 01D27    60D5D640 A
            03 01D28    C1D960C4 A
            03 01D29    C5E54040 A
            03 01D2A    E7E7E7E7 A
     9200   03 01D2B    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            03 01D2C    60D5D640 A
            03 01D2D    C1D960C4 A
            03 01D2E    C5E54040 A
            03 01D2F    E7E7E7E7 A
     9201   03 01D30    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            03 01D31    60D5D640 A
            03 01D32    C9D5E3C5 A
            03 01D33    D9D9E4D7 A
            03 01D34    E340D9C5 A
            03 01D35    C3D6C740 A
     9202   03 01D36    2D404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR'
            03 01D37    40404040 A
            03 01D38    40404040 A
            03 01D39    F0F1F2F3 A
            03 01D3A    40F4F5F6 A
            03 01D3B    F740F8F9 A
            03 01D3C    F0F140F2 A
            03 01D3D    F3F4F540 A
            03 01D3E    C3C3F16B A
            03 01D3F    F240C4C5 A
            03 01D40    E540C1C4 A
            03 01D41    C4D94040 A
     9203   03 01D42    2B404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX    XXXX'
            03 01D43    40E2E3C1 A
            03 01D44    E3E4E240 A
            03 01D45    E7E7E7E7 A
            03 01D46    40E7E7E7 A
            03 01D47    E740E7E7 A
            03 01D48    E7E740E7 A
            03 01D49    E7E7E740 A
            03 01D4A    4040E7E7 A
            03 01D4B    40404040 A
            03 01D4C    E7E7E7E7 A
     9204   03 01D4D    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            03 01D4E    40E3C9D6 A
            03 01D4F    40C8C9D6 A
            03 01D50    40E3C4E5 A
            03 01D51    40C1C9D6 A
     9205                                     PAGE
     9206                            *
     9207                            *               *** IO EXECUTE ***
     9208                            *
     9209                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     9210                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     9211                            *
     9212                            *       INPUT PARAMETERS:
     9213                            *
     9214                            *         REG 0   -DA(IOCD)
     9215                            *         REG 15  -RETURN ADDRESS
     9216                            *         :DEVADDR-DEVICE ADDRESS
     9217                            *
     9218                            *       REGISTERS DISTURBED:
     9219                            *
     9220                            *         (NONE)
     9221                            *
     9222                            *       OUTPUT PARAMETERS:
     9223                            *
     9224                            *         REG 12-SIO COMMAND ADDRESS
     9225                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     9226                            *
     9227                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     9228                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     9229                            *                      MANUAL CONDITION IS DETECTED.
     9230                            *
     9231   03 01D52    35401D76     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     9232   03 01D53    35B01D77              STW,R11  :IOSAVE+1
     9233   03 01D54    15E01D78              STD,R14  :IOSAVE+2
     9234   03 01D55    32E0217B     :IOEXEC1 LW,R14   =X'E600C000'      STATUS MASK
     9235   03 01D56    6AF01C4E              BAL,R15  :TIO              ISSUE TIO
     9236   03 01D57    68001D59              B        %+2
     9237   03 01D58    68001D62              B        :IOERR1           TIO STATUS ERROR
     9238   03 01D59    4BD0217C              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     9239   03 01D5A    68301D6E              BCR,3    :IOERR2           DEVICE MANUAL ERROR
     9240   03 01D5B    6AF01C43              BAL,R15  :SIO              ISSUE SIO
     9241   03 01D5C    68001D5E              B        %+2
     9242   03 01D5D    68001D55              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO
     9243   03 01D5E    32401D76              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     9244   03 01D5F    32B01D77              LW,R11   :IOSAVE+1
     9245   03 01D60    12E01D78              LD,R14   :IOSAVE+2
     9246   03 01D61    E800000F A            B        *R15              EXIT
     9247                            *                                   TIO STATUS ERROR
     9248   03 01D62    32E0217D     :IOERR1  LW,R14   =X'80004000'      STATUS MASK
     9249   03 01D63    6AF01C59              BAL,R15  :HIO              ISSUE HIO
     9250   03 01D64    68001D66              B        %+2
     9251   03 01D65    68001D55              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO
     9252   03 01D66    6D000042 A            WD,0     X'42'             IO RESET
     9253   03 01D67    6D000042 A            WD,0     X'42'
     9254   03 01D68    32E0217B              LW,R14   =X'E600C000'      STATUS MASK
     9255   03 01D69    6AF01C4E              BAL,R15  :TIO              ISSUE TIO
     9256   03 01D6A    68001D55              B        :IOEXEC1          LOOP TO ISSUE TIO
     9257                            *                                   ENTER WAIT STATE
     9258   03 01D6B    EAF0022B A   :IOERR1A WAITPROC :IOERM1           CLEAR WAIT TO CONTINUE          *B01
            03 01D6C    00001D7A
     9259   03 01D6D    68001D55              B        :IOEXEC1          LOOP TO ISSUE TIO
     9260                            *                                   DEVICE MANUAL ERROR
     9261   03 01D6E    32C0195B     :IOERR2  LW,R12   :DEVADDR          DEVICE ADDRESS
     9262   03 01D6F    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9263   03 01D70    55F01D82              STH,15   :IOERM2+2         STORE 1ST HALF OF DEV. ADDR     *A01
     9264   03 01D71    25F00070 A            SLS,15   -16               SLIDE TO GET OTHER HALF         *A01
     9265   03 01D72    55F21D81              STH,15   :IOERM2+1,1                                       *A01
     9266   03 01D73    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG
     9267   03 01D74    00001D80              DATA     :IOERM2
     9268   03 01D75    68001D6B              B        :IOERR1A          GO TO WAIT
     9269                            *
     9270                                     BOUND    8
     9271   03 01D76                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
     9272   03 01D7A    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            03 01D7B    C1D940E6 A
            03 01D7C    C1C9E340 A
            03 01D7D    E3D640C3 A
            03 01D7E    D6D5E3C9 A
            03 01D7F    D5E4C540 A
     9273   03 01D80    11C4C5E5 A   :IOERM2  TEXTC    'DEV  XXXX  MANUAL'                               *A01
            03 01D81    4040E7E7 A
            03 01D82    E7E74040 A
            03 01D83    D4C1D5E4 A
            03 01D84    C1D34040 A
     9274                                     PAGE
     9275                            *
     9276                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
     9277                            *
     9278                            *                 THE ALGORITHM
     9279                            *
     9280                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
     9281                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
     9282                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
     9283                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
     9284                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
     9285                            *
     9286                            *                 THE PROCEDURE
     9287                            *
     9288                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
     9289                            *
     9290                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
     9291                            *                 FOUND IN REGISTER-14.
     9292                            *
     9293                            *        OPTION-1 CALLING SEQUENCE
     9294                            *
     9295                            *        BAL,15   :RANDOMX
     9296                            *
     9297                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
     9298                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
     9299                            *
     9300                            *        OPTION-2 CALLING SEQUENCE
     9301                            *
     9302                            *        LW,14    :SEED             SEED IN REGISTER-14.
     9303                            *        BAL,15   :RANDOM
     9304                            *
     9305                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
     9306                            *
     9307                            *        OPTION-3 CALLING SEQUENCE
     9308                            *
     9309                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
     9310                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
     9311                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
     9312                            *        BAL,15   :RANDOMY
     9313                            *
     9314                            *
     9315   03 01D85    35C01D92     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
     9316   03 01D86    35D01D93              STW,13   :M2               SAVE PARAMETERS
     9317                            *
     9318   03 01D87    35E01D94     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
     9319                            *
     9320   03 01D88    33101D92     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
     9321   03 01D89    68301D8B              BCR,3    %+2               TEST, M1 + 1 = 0
     9322   03 01D8A    33F01D93              MTW,-1   :M2               NO, M2 = M2 - 1
     9323   03 01D8B    32E01D94              LW,14    :SEED
     9324   03 01D8C    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
     9325   03 01D8D    30E01D95              AW,14    :K                ADD CONSTANT :K
     9326   03 01D8E    48E01D92              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     9327   03 01D8F    48E01D93              EOR,14   :M2               M(SEED) (+) M1 (+) M2
     9328   03 01D90    35E01D94              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
     9329   03 01D91    E800000F A            B        *15
     9330                            *
     9331   03 01D92    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
     9332   03 01D93    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
     9333   03 01D94    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
     9334   03 01D95    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
     9335                                     PAGE
     9336                            *
     9337                            *                 *** CLEAR BUFFER ***
     9338                            *
     9339                            * THE CLEAR BUFFER SUBROUTINE CLEARS A SPECIFIED BUFFER AREA.
     9340                            *  BUFFER SIZE SPECIFIED IN NUMBER OF WORDS.
     9341                            *
     9342                            *       INPUT PARAMETERS:
     9343                            *
     9344                            *           REG 15  -RETURN ADDRESS
     9345                            *           :CLRADDR-WA(BUFFER)
     9346                            *           :CLRSIZE-BUFFER WORD SIZE
     9347                            *
     9348                            *       REGISTERS DISTURBED:
     9349                            *
     9350                            *           (NONE)
     9351                            *
     9352                            *       OUTPUT PARAMETERS:
     9353                            *
     9354                            *           (NONE)
     9355                            *
     9356   03 01D96    15401DA4     :CLEAR   STD,R4   :CLRSAVE          SAVE REGISTERS 4-6
     9357   03 01D97    35601DA6              STW,R6   :CLRSAVE+2
     9358   03 01D98    32501DA1              LW,R5    :CLRADDR          BUFFER ADDRESS
     9359   03 01D99    30501DA2              AW,R5    :CLRSIZE          BUFFER ADDR + BUFFER SIZE
     9360   03 01D9A    3A401DA2              LCW,R4   :CLRSIZE          -(BUFFER SIZE)
     9361   03 01D9B    22600000 A            LI,R6    0
     9362   03 01D9C    B5680005 A            STW,R6   *R5,R4            0 TO BUFFER
     9363   03 01D9D    65401D9C              BIR,R4   %-1               COUNT NOT 0
     9364   03 01D9E    12401DA4              LD,R4    :CLRSAVE          RESTORE REGISTERS 4-6
     9365   03 01D9F    32601DA6              LW,R6    :CLRSAVE+2
     9366   03 01DA0    E800000F A            B        *R15              EXIT
     9367                            *
     9368   03 01DA1    00000000 A   :CLRADDR DATA     0                 BUFFER ADDRESS
     9369   03 01DA2    00000000 A   :CLRSIZE DATA     0                 BUFFER SIZE
     9370                                     BOUND    8
     9371   03 01DA4                 :CLRSAVE RES      3                 REGISTERS 4-6
     9372                                     PAGE
     9373                            *
     9374                            *                *** PATTERN SPREAD ***
     9375                            *
     9376                            * THE PATTERN SPREAD SUBROUTINE SPREADS A WORD PATTERN ACCORDING TO
     9377                            *  THE TYPE SPECIFIED.
     9378                            *
     9379                            *             TYPE 0 - SPREAD WORD PATTERN
     9380                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
     9381                            *             TYPE 2 - SPREAD RANDOM PATTERN
     9382                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
     9383                            *             TYPE 4 - SPREAD 3-WORD PATTERN
     9384                            *
     9385                            *       INPUT PARAMETERS:
     9386                            *
     9387                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
     9388                            *                     WORD 1 - TYPE (0-4)
     9389                            *                     WORD 2 - PATTERN (TYPE 0,1)
     9390                            *                              RANDOM GENERATOR SEED (TYPE 2)
     9391                            *                              WA(PATTERN) (TYPE 3,4)
     9392                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
     9393                            *                              INCREMENT (TYPE 1)
     9394                            *
     9395                            *           :PATWC  - PATTERN WORD COUNT
     9396                            *           :PATBFR - WA(BUFFER)
     9397                            *
     9398                            *       REGISTERS DISTURBED:
     9399                            *
     9400                            *           (NONE)
     9401                            *
     9402                            *       OUTPUT PARAMETERS:
     9403                            *
     9404                            *           (NONE)
     9405                            *
     9406   03 01DA7    02200050 A   :PATTERN LCI      5
     9407   03 01DA8    2B601DEB              STM,R6   :PATSAVE          SAVE REGISTERS 6-10
     9408   03 01DA9    32701DE6              LW,R7    :PATID            PATTERN ID-TYPE
     9409   03 01DAA    680E1DAB              B        %+1,R7            GO TO SPECIFIED SPREAD TYPE
     9410   03 01DAB    68001DB0              B        :PAT0
     9411   03 01DAC    68001DB9              B        :PAT1
     9412   03 01DAD    68001DC1              B        :PAT2
     9413   03 01DAE    68001DD2              B        :PAT3
     9414   03 01DAF    68001DD9              B        :PAT4
     9415                            *                                   SPREAD FIXED PATTERN
     9416   03 01DB0    32801DE9     :PAT0    LW,R8    :PATWC            WORD COUNT
     9417   03 01DB1    30801DEA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9418   03 01DB2    3A701DE9              LCW,R7   :PATWC            -(WORD COUNT)
     9419   03 01DB3    32901DE7              LW,R9    :PATID+1          PATTERN
     9420   03 01DB4    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9421   03 01DB5    65701DB4              BIR,R7   %-1               WORD COUNT NOT 0
     9422   03 01DB6    02200050 A   :PATEXIT LCI      5
     9423   03 01DB7    2A601DEB              LM,R6    :PATSAVE          RESTORE REGISTERS 6-10
     9424   03 01DB8    E800000F A            B        *R15              EXIT
     9425                            *                                   SPREAD AND INCREMENT FIXED PATTERN
     9426   03 01DB9    32801DE9     :PAT1    LW,R8    :PATWC            WORD COUNT
     9427   03 01DBA    30801DEA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9428   03 01DBB    3A701DE9              LCW,R7   :PATWC            -(WORD COUNT)
     9429   03 01DBC    32901DE7              LW,R9    :PATID+1          PATTERN
     9430   03 01DBD    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9431   03 01DBE    30901DE8              AW,R9    :PATID+2          INCR PATTERN
     9432   03 01DBF    65701DBD              BIR,R7   %-2               WORD COUNT NOT 0
     9433   03 01DC0    68001DB6              B        :PATEXIT          GO TO EXIT
     9434                            *                                   SPREAD RANDOM PATTERN
     9435   03 01DC1    02200050 A   :PAT2    LCI      5
     9436   03 01DC2    2BB01DF0              STM,R11  :PATSAVE+5        SAVE REGISTERS 11-15
     9437   03 01DC3    32801DE9              LW,R8    :PATWC            WORD COUNT
     9438   03 01DC4    30801DEA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9439   03 01DC5    3A701DE9              LCW,R7   :PATWC            -(WORD COUNT)
     9440   03 01DC6    32E01DE7              LW,R14   :PATID+1          RANDOM NUM GEN SEED
     9441   03 01DC7    B5EE0008 A            STW,R14  *R8,R7            SEED TO PATTERN FIRST WORD
     9442   03 01DC8    65701DCA              BIR,R7   %+2               WORD COUNT NOT 0
     9443   03 01DC9    68001DCF              B        :PAT2A            GO TO EXIT
     9444   03 01DCA    32C02169              LW,R12   =314159265        ESTABLISH :M1
     9445   03 01DCB    32D0216A              LW,R13   =271828183        ESTABLISH :M2
     9446   03 01DCC    6AF01D85              BAL,R15  :RANDOMY          RANDOM NUMBER GENERATOR
     9447   03 01DCD    B5EE0008 A            STW,R14  *R8,R7            ENTER NUMBER
     9448   03 01DCE    65701DCC              BIR,R7   %-2               WORD COUNT NOT 0
     9449   03 01DCF    02200050 A   :PAT2A   LCI      5
     9450   03 01DD0    2AB01DF0              LM,R11   :PATSAVE+5        RESTORE REGISTERS 11-15
     9451   03 01DD1    68001DB6              B        :PATEXIT          GO TO EXIT
     9452                            *                                   SPREAD ADDRESS-SPECIFIED PATTERN
     9453   03 01DD2    32801DE9     :PAT3    LW,R8    :PATWC            WORD COUNT
     9454   03 01DD3    30801DEA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9455   03 01DD4    3A701DE9              LCW,R7   :PATWC            -(WORD COUNT)
     9456   03 01DD5    B2901DE7              LW,R9    *:PATID+1         PATTERN
     9457   03 01DD6    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9458   03 01DD7    65701DD6              BIR,R7   %-1               WRD CNT NOT 0
     9459   03 01DD8    68001DB6              B        :PATEXIT          GO TO EXIT
     9460                            *                                   SPREAD 3-WORD,ADDR-SPECIFIED PATTERN
     9461   03 01DD9    32801DE9     :PAT4    LW,R8    :PATWC            WORD COUNT
     9462   03 01DDA    30801DEA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9463   03 01DDB    3A701DE9              LCW,R7   :PATWC            -(WORD COUNT)
     9464   03 01DDC    32A01DE7              LW,R10   :PATID+1          PATTERN ADDR
     9465   03 01DDD    20A00003 A            AI,R10   3                 PATTERN ADDRESS +3
     9466   03 01DDE    226FFFFD A            LI,R6    -3
     9467   03 01DDF    B29C000A A            LW,R9    *R10,R6           PATTERN
     9468   03 01DE0    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9469   03 01DE1    33100007 A            MTW,1    R7                -(WORD COUNT) +1
     9470   03 01DE2    68101DB6              BCR,1    :PATEXIT          WORD COUNT = 0, EXIT
     9471   03 01DE3    65601DDF              BIR,R6   %-4               3 WORDS NOT ENTERED
     9472   03 01DE4    68001DDE              B        %-6
     9473                            *
     9474                                     BOUND    8
     9475   03 01DE6    00000000 A   :PATID   DATA     0,0,0             PATTERN IDENTIFICATION
            03 01DE7    00000000 A
            03 01DE8    00000000 A
     9476   03 01DE9    00000000 A   :PATWC   DATA     0                 WORD COUNT
     9477   03 01DEA    00000000 A   :PATBFR  DATA     0                 BUFFER ADDRESS
     9478   03 01DEB                 :PATSAVE RES      10                REGISTERS 6-15
     9479                                     PAGE
     9480                            *
     9481                            *                   *** C O M P A R E ***
     9482                            *
     9483                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     9484                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     9485                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     9486                            *    UNEQUAL COMPARES SENSED.
     9487                            *
     9488                            *       INPUT PARAMETERS:
     9489                            *
     9490                            *           REG 15  -RETURN ADDRESS
     9491                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     9492                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     9493                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     9494                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     9495                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
     9496                            *
     9497                            *       REGISTERS DISTURBED:
     9498                            *
     9499                            *           (NONE)
     9500                            *
     9501                            *       OUTPUT PARAMETERS:
     9502                            *
     9503                            *           NORMAL EXIT-RETURN ADDRESS
     9504                            *           ERROR EXIT -RETURN ADDRESS +1
     9505                            *           :COMERRT   -COUNT OF COMPARE ERRORS
     9506                            *
     9507   03 01DF5    02200000 A   :COMPARE LCI      0
     9508   03 01DF6    2B001E53              STM,R0   :COMTEM1          SAVE REGISTERS 0-15
     9509   03 01DF7    22500000 A            LI,R5    0
     9510   03 01DF8    15501E66              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     9511   03 01DF9    32401E69              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     9512   03 01DFA    32501E6A              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     9513   03 01DFB    30401E68              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     9514   03 01DFC    30501E68              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     9515   03 01DFD    15401E64              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     9516   03 01DFE    3A401E68              LCW,R4   :COMWCNT          -(WORD COUNT)
     9517   03 01DFF    B2581E64     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     9518   03 01E00    B1581E65              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     9519   03 01E01    69301E09              BCS,3    :COM2             UNEQUAL COMPARISON
     9520   03 01E02    65401DFF              BIR,R4   :COM1             WORD COUNT NOT 0
     9521   03 01E03    32401E66              LW,R4    :COMERRT          ERROR TOTAL
     9522   03 01E04    68301E06              BCR,3    %+2               NO ERROR
     9523   03 01E05    33101E62              MTW,1    :COMTEM1+15       ERROR-RETURN ADDRESS +1
     9524   03 01E06    02200000 A            LCI      0
     9525   03 01E07    2A001E53              LM,R0    :COMTEM1          RESTORE REGISTERS 0-15
     9526   03 01E08    E800000F A            B        *R15              EXIT
     9527                            *                                   COMPARE ERROR
     9528   03 01E09    33101E66     :COM2    MTW,1    :COMERRT          ERROR TOTAL +1
     9529   03 01E0A    32601E6B              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     9530   03 01E0B    69301E02              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     9531   03 01E0C    32601E66              LW,6     :COMERRT          FETCH ERROR COUNT
     9532   03 01E0D    31601E6C              CW,6     :COMPLIN          TEST LIMIT
     9533   03 01E0E    69201E05              BG       :COM1+6           EXIT
     9534   03 01E0F    32601E67              LW,R6    :COMTEM3          HEADER FLAG
     9535   03 01E10    69301E25              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D
     9536                            *                                   PRINT ERROR MSG HEADER
     9537   03 01E11    33101E67              MTW,1    :COMTEM3          SET HDR FLAG
     9538   03 01E12    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9539   03 01E13    00001E6D              DATA     :COMERM1
     9540   03 01E14    32C01E69              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     9541   03 01E15    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9542   03 01E16    22600001 A            LI,R6    1                 INDEX=1
     9543   03 01E17    55F01E76              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     9544   03 01E18    52F0000F A            LH,R15   R15
     9545   03 01E19    55FC1E75              STH,R15  :COMERM2+3,R6
     9546   03 01E1A    32C01E6A              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     9547   03 01E1B    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9548   03 01E1C    35F01E7A              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     9549   03 01E1D    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9550   03 01E1E    00001E72              DATA     :COMERM2
     9551   03 01E1F    31201A4D              CW,2     NOPKPRT           SUPPRESS PACKED PRINTOUT FLAG
     9552   03 01E20    68301E23              BE       %+3
     9553   03 01E21    31101A74              CW,1     MODEFLAG          PACKED INFORMATION
     9554   03 01E22    68301E25              BE       :COM3             GET SPECIAL HEADING FOR PACKED
     9555   03 01E23    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9556   03 01E24    00001E7B              DATA     :COMERM3
     9557                            *                                   PRINT EXPECTED, OBSERVED WORDS
     9558   03 01E25    31101A74     :COM3    CW,1     MODEFLAG          PACKED OPTION SET
     9559   03 01E26    69301E39              BNE      :COM6
     9560   03 01E27    31201A4D              CW,2     NOPKPRT           SUPPRESS PACKED PRINTOUT FLAG
     9561   03 01E28    68301E39              BE       :COM6
     9562   03 01E29    22C00000 A            LI,12    0
     9563   03 01E2A    32D01E68              LW,13    :COMWCNT          GET LINE NO
     9564   03 01E2B    30D00004 A            AW,13    4                 R13 HAS WORD THAT FAILED
     9565   03 01E2C    36C00003 A            DW,12    3                 R12 HAS REMAINDER
     9566   03 01E2D    21C00001 A            CI,12    1
     9567   03 01E2E    69401E33              BCS,4    %+5
     9568   03 01E2F    21C00002 A            CI,12    2
     9569   03 01E30    68401E35              BCR,4    %+5
     9570   03 01E31    22D01EA8              LI,13    :COMPK3           REMAINDER =2
     9571   03 01E32    68001E36              B        :COM5
     9572   03 01E33    22D01E99              LI,13    :COMPK2           REMAINDER =1
     9573   03 01E34    68001E36              B        :COM5
     9574   03 01E35    22D01E8A              LI,13    :COMPK1           REMAINDER =0
     9575   03 01E36    35D01E38     :COM5    STW,13   %+2
     9576   03 01E37    EAF0021C A            BAL,15   *:PRINT           PRINT PACKED HEADING
     9577   03 01E38    00001E8A              DATA     :COMPK1
     9578   03 01E39    32C01E68     :COM6    LW,R12   :COMWCNT          GET LINE NO FOR PRINTOUT
     9579   03 01E3A    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     9580   03 01E3B    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9581   03 01E3C    35F01EC5              STW,R15  :COMERM4+13       WRD CNT TO MSG
     9582   03 01E3D    B2C81E64              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     9583   03 01E3E    22D01EB8              LI,R13   :COMERM4          ERROR MSG ADDR
     9584   03 01E3F    6AE01E48              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     9585   03 01E40    EAF0021C A            BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     9586   03 01E41    00001EB8              DATA     :COMERM4
     9587   03 01E42    B2C81E65              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     9588   03 01E43    22D01EC6              LI,R13   :COMERM5          ERROR MSG ADDR
     9589   03 01E44    6AE01E48              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     9590   03 01E45    EAF0021C A            BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     9591   03 01E46    00001EC6              DATA     :COMERM5
     9592   03 01E47    68001E02              B        :COM1+3           RETURN TO COMPARISON
     9593                            *                                   ENTER STATUS BITS INTO MESSAGE
     9594   03 01E48    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     9595   03 01E49    22700004 A            LI,R7    4                 MINOR INDEX=4
     9596   03 01E4A    EAF00216 A            BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     9597   03 01E4B    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     9598   03 01E4C    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     9599   03 01E4D    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     9600   03 01E4E    64701E4B              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     9601   03 01E4F    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     9602   03 01E50    21600009 A            CI,R6    9                 BYTE INDEX:9
     9603   03 01E51    69201E49              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     9604   03 01E52    E800000E A            B        *R14              ENTER COMPLETE-EXIT
     9605                            *
     9606   03 01E53                 :COMTEM1 RES      16                REGISTERS 0-15
     9607                                     BOUND    8
     9608   03 01E64    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            03 01E65    00000000 A
     9609   03 01E66    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     9610   03 01E67    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     9611   03 01E68    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     9612   03 01E69    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     9613   03 01E6A    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     9614   03 01E6B    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     9615   03 01E6C    00000001 A   :COMPLIN DATA     1                 COMPARE LIMIT COUNT
     9616   03 01E6D    12D9C5C1 A   :COMERM1 TEXTC    'READ COMPARE ERROR'
            03 01E6E    C440C3D6 A
            03 01E6F    D4D7C1D9 A
            03 01E70    C540C5D9 A
            03 01E71    D9D6D940 A
     9617   03 01E72    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            03 01E73    40C2C6D9 A
            03 01E74    40C1C4C4 A
            03 01E75    D940E7E7 A
            03 01E76    E7E740D6 A
            03 01E77    C2E240C2 A
            03 01E78    C6D940C1 A
            03 01E79    C4C4D940 A
            03 01E7A    E7E7E7E7 A
     9618                            :COMERM3 TEXTC    ;
     9619   03 01E7B    38404040 A    '         0123 4567 0123 4567 0123 4567 0123 4567  WD CNT'
            03 01E7C    40404040 A
            03 01E7D    4040F0F1 A
            03 01E7E    F2F340F4 A
            03 01E7F    F5F6F740 A
            03 01E80    F0F1F2F3 A
            03 01E81    40F4F5F6 A
            03 01E82    F740F0F1 A
            03 01E83    F2F340F4 A
            03 01E84    F5F6F740 A
            03 01E85    F0F1F2F3 A
            03 01E86    40F4F5F6 A
            03 01E87    F74040E6 A
            03 01E88    C440C3D5 A
            03 01E89    E3404040 A
     9620                            :COMPK1  TEXTC    ;
     9621   03 01E8A    38404040 A    '         0123 4501 2345 0123 4501 2345 0123 4501  WD CNT'
            03 01E8B    40404040 A
            03 01E8C    4040F0F1 A
            03 01E8D    F2F340F4 A
            03 01E8E    F5F0F140 A
            03 01E8F    F2F3F4F5 A
            03 01E90    40F0F1F2 A
            03 01E91    F340F4F5 A
            03 01E92    F0F140F2 A
            03 01E93    F3F4F540 A
            03 01E94    F0F1F2F3 A
            03 01E95    40F4F5F0 A
            03 01E96    F14040E6 A
            03 01E97    C440C3D5 A
            03 01E98    E3404040 A
     9622                            :COMPK2  TEXTC    ;
     9623   03 01E99    38404040 A    '         2345 0123 4501 2345 0123 4501 2345 0123  WD CNT'
            03 01E9A    40404040 A
            03 01E9B    4040F2F3 A
            03 01E9C    F4F540F0 A
            03 01E9D    F1F2F340 A
            03 01E9E    F4F5F0F1 A
            03 01E9F    40F2F3F4 A
            03 01EA0    F540F0F1 A
            03 01EA1    F2F340F4 A
            03 01EA2    F5F0F140 A
            03 01EA3    F2F3F4F5 A
            03 01EA4    40F0F1F2 A
            03 01EA5    F34040E6 A
            03 01EA6    C440C3D5 A
            03 01EA7    E3404040 A
     9624                            :COMPK3  TEXTC    ;
     9625   03 01EA8    38404040 A    '         4501 2345 0123 4501 2345 0123 4501 2345  WD CNT'
            03 01EA9    40404040 A
            03 01EAA    4040F4F5 A
            03 01EAB    F0F140F2 A
            03 01EAC    F3F4F540 A
            03 01EAD    F0F1F2F3 A
            03 01EAE    40F4F5F0 A
            03 01EAF    F140F2F3 A
            03 01EB0    F4F540F0 A
            03 01EB1    F1F2F340 A
            03 01EB2    F4F5F0F1 A
            03 01EB3    40F2F3F4 A
            03 01EB4    F54040E6 A
            03 01EB5    C440C3D5 A
            03 01EB6    E3404040 A
     9626                                     BOUND    8
     9627   03 01EB8    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            03 01EB9    C5C3E3C5 A
            03 01EBA    C4404040 A
     9628         0000000B                    DO       11
     9629   03 01EBB    40404040 A            DATA     X'40404040'       SPACES
     9630                                     FIN
            03 01EBC    40404040 A
            03 01EBD    40404040 A
            03 01EBE    40404040 A
            03 01EBF    40404040 A
            03 01EC0    40404040 A
            03 01EC1    40404040 A
            03 01EC2    40404040 A
            03 01EC3    40404040 A
            03 01EC4    40404040 A
            03 01EC5    40404040 A
     9631   03 01EC6    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            03 01EC7    C5D9E5C5 A
            03 01EC8    C4404040 A
     9632         0000000B                    DO       11
     9633   03 01EC9    40404040 A            DATA     X'40404040'       SPACES
     9634                                     FIN
            03 01ECA    40404040 A
            03 01ECB    40404040 A
            03 01ECC    40404040 A
            03 01ECD    40404040 A
            03 01ECE    40404040 A
            03 01ECF    40404040 A
            03 01ED0    40404040 A
            03 01ED1    40404040 A
            03 01ED2    40404040 A
            03 01ED3    40404040 A
     9635                                     PAGE
     9636                            *
     9637                            *                *** DELAY FOR I/O INTERRUPT ***
     9638                            *
     9639                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     9640                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     9641                            *
     9642                            *       INPUT PARAMETERS:
     9643                            *
     9644                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     9645                            *         REG 15- RETURN ADDRESS
     9646                            *
     9647                            *       REGISTERS DISTURBED:
     9648                            *
     9649                            *         (NONE)
     9650                            *
     9651                            *       OUTPUT PARAMETERS:
     9652                            *
     9653                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     9654                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     9655                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)
     9656                            *
     9657   03 01ED4    35F01EEA     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     9658   03 01ED5    25E0007F A            SLS,R14  -1                DELAY TIME /2
     9659   03 01ED6    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER
     9660   03 01ED7    35E01EE9              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     9661   03 01ED8    6AF01EE1              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     9662   03 01ED9    32F01F54              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     9663   03 01EDA    68301ED9              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     9664   03 01EDB    6AF01EE5              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     9665   03 01EDC    32F01EEA     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     9666   03 01EDD    E800000F A            B        *R15              EXIT
     9667                            *                                   DELAY TIMEOUT
     9668   03 01EDE    6AF01EE5     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     9669   03 01EDF    33101EEA              MTW,1    :DELSAVE          RETURN ADDRESS +1
     9670   03 01EE0    68001EDC              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT
     9671                            *                                   ARM/ENABLE COUNTER 4 INTERRUPTS
     9672   03 01EE1    35F01EEB     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     9673   03 01EE2    22F01040 A            LI,R15   X'1040'           BITS 19,25
     9674   03 01EE3    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     9675   03 01EE4    E8001EEB              B        *:DELSAVE+1       EXIT
     9676                            *                                   DISARM COUNTER 4 INTERRUPTS
     9677   03 01EE5    35F01EEB     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     9678   03 01EE6    22F01040 A            LI,R15   X'1040'           BITS 19,25
     9679   03 01EE7    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     9680   03 01EE8    E8001EEB              B        *:DELSAVE+1       EXIT
     9681                            *
     9682   03 01EE9    00000000 A   :DELTIME DATA     0                 DELAY TIME CTR 4 DECREMENT POSITION
     9683   03 01EEA    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            03 01EEB    00000000 A
     9684                                     BOUND    8
     9685   03 01EEC    00000000 A   :DELAYTO DATA     0,0
            03 01EED    00000000 A
     9686   03 01EEE    00001EDE              DATA     :DELTO,0
            03 01EEF    00000000 A
     9687   03 01EF0    0F001EEC     :DELXPSD XPSD,0   :DELAYTO
     9688   03 01EF1    33F01EE9     :DELMTW  MTW,-1   :DELTIME
     9689                            *
     9690                            *
     9691                            *                 *** ARM AND ENABLE IO INTERRUPT ***
     9692                            *
     9693   03 01EF2    35F01EFC     :INTAE   STW,15   :INTSAV1          SAVE EXIT ADR
     9694   03 01EF3    22F00000 A            LI,15    0
     9695   03 01EF4    35F01F54              STW,15   :INTRECF          CLEAR IO INTER REC'D FLAG
     9696   03 01EF5    22F00020 A            LI,15    X'20'             ARM AND ENABLE
     9697   03 01EF6    6DF01200 A            WD,15    X'1200'             IO INTERRUPT
     9698   03 01EF7    E8001EFC              B        *:INTSAV1         EXIT
     9699                            *
     9700                            *
     9701                            *                 *** DISARM IO INTERRUPT ***
     9702                            *
     9703   03 01EF8    35F01EFD     :INTD    STW,15   :INTSAV2          SAVE EXIT ADR
     9704   03 01EF9    22F00020 A            LI,15    X'20'
     9705   03 01EFA    6DF01100 A            WD,15    X'1100'           DISARM IO INTERRUPT
     9706   03 01EFB    E8001EFD              B        *:INTSAV2         EXIT
     9707                            *
     9708   03 01EFC    00000000 A   :INTSAV1 DATA     0                 EXIT ADR
     9709   03 01EFD    00000000 A   :INTSAV2 DATA     0
     9710                                     PAGE
     9711                            *
     9712                            *                 *** INTERRUPT ADDRESS TABLE ***
     9713                            *
     9714                            * THIS ROUTINE UPDATES THE INTERRUPT ADDRESS TABLE ACCORDIND TO THE
     9715                            *  ENTRY POINT:
     9716                            *
     9717                            *        :INTADRC - CLEAR INTERRUPT ADR TABLE
     9718                            *        :INTADRM - ENTER CURRENT DEVICE ADR - MULTI UNIT OPERRATION
     9719                            *        :INTADRD - DELETE DEVICE ADR - INDEX VALUE = INTSVX
     9720                            *        :INTADRS - ENTER CURRENT DEVICE ADR - SINGLE UNIT OPERATION
     9721                            *
     9722                            *        INPUT PARAMETERS:
     9723                            *
     9724                            *          REG 15
     9725                            *          :DEVADDR - CURRENT DEVICE ADR
     9726                            *          :INTSVX  - TABLE INDEX OF LAST INTERRUPT
     9727                            *
     9728                            *        REGISTERS DISTURBED:
     9729                            *
     9730                            *          (NONE)
     9731                            *
     9732                            *        OUTPUT PARAMETERS:
     9733                            *
     9734                            *          (NONE)
     9735                            *
     9736   03 01EFE    35F01F28     :INTADRC STW,15   :INTADRE          SAVE EXIT ADR
     9737   03 01EFF    22F00000 A            LI,15    0                 CLEAR
     9738   03 01F00    35F01F27              STW,15   :INTADRX            TABLE INDEX
     9739   03 01F01    22FFFFFF A            LI,15    -1                STORE LAST ENTRY FLAG ( -1 )
     9740   03 01F02    35F01F1E              STW,15   :INTTAB             INTO WORD 1 OF TABLE
     9741   03 01F03    E8001F28              B        *:INTADRE         EXIT
     9742                            *
     9743                            *
     9744   03 01F04    35F01F28     :INTADRD STW,15   :INTADRE          SAVE EXIT ADR
     9745   03 01F05    35401F29              STW,4    :INTADRE+1        SAVE R4
     9746   03 01F06    32401F55              LW,4     :INTSVX           FETCH ADR TABLE INDEX
     9747   03 01F07    22F00000 A            LI,15    0                 CLEAR ONE WORD
     9748   03 01F08    35F81F26              STW,15   :INTTAB8,4          IN ADR TABLE (LAST INTER DEV)
     9749   03 01F09    68001F1B              B        :INTADRZ
     9750                            *
     9751                            *
     9752                            *
     9753   03 01F0A    35401F29     :INTADRM STW,4    :INTADRE+1        SAVE R4
     9754   03 01F0B    32401F27              LW,4     :INTADRX          FETCH CURRENT TABLE INDEX
     9755   03 01F0C    21400007 A            CI,4     7                 COMPARE INDEX TO 7
     9756   03 01F0D    69201F10              BCS,2    :INTADRS+1        BRANCH: INDEX > 7
     9757   03 01F0E    68001F11              B        :INTADRS+2
     9758   03 01F0F    35401F29     :INTADRS STW,4    :INTADRE+1        SAVE R4
     9759   03 01F10    22400000 A            LI,4     0                 CURRENT TABLE INDEX = 0
     9760   03 01F11    35F01F28              STW,15   :INTADRE          SAVE EXIT ADR
     9761   03 01F12    32F0195B              LW,15    :DEVADDR          FETCH CURRENT DEVICE ADR
     9762   03 01F13    35F81F1E              STW,15   :INTTAB,4         STORE DEV ADR IN TABLE
     9763   03 01F14    33100004 A            MTW,1    4                 INCREMENT CURRENT  TABLE INDEX
     9764   03 01F15    22FFFFFF A            LI,15    -1                STORE LAST ENTRY FLAG ( -1 )
     9765   03 01F16    35F81F1E              STW,15   :INTTAB,4           IN TABLE
     9766   03 01F17    35401F27              STW,4    :INTADRX          SAVE CURRENT TABLE INDEX
     9767   03 01F18    22F00000 A            LI,15    0                 CLEAR
     9768   03 01F19    35F01F52              STW,15   :INTSTAT            INTER STATUS AND
     9769   03 01F1A    35F01F53              STW,15   :INTCC              AIO COND CODE
     9770   03 01F1B    32401F29     :INTADRZ LW,4     :INTADRE+1        RESTORE 4
     9771   03 01F1C    E8001F28              B        *:INTADRE
     9772                            *
     9773                            *
     9774                                     BOUND    8
     9775         03 01F1E           :INTTAB  EQU      %                 INTERRUPT
     9776         00000008                    DO       8
     9777   03 01F1E    FFFFFFFF A            DATA     -1                  ADDRESS TABLE
     9778                                     FIN
            03 01F1F    FFFFFFFF A
            03 01F20    FFFFFFFF A
            03 01F21    FFFFFFFF A
            03 01F22    FFFFFFFF A
            03 01F23    FFFFFFFF A
            03 01F24    FFFFFFFF A
            03 01F25    FFFFFFFF A
     9779   03 01F26    FFFFFFFF A   :INTTAB8 DATA     -1                    9 WORDS (INITIAL VALUE = -1)
     9780   03 01F27    00000000 A   :INTADRX DATA     0                 CURRENT ADR TABLE INDEX
     9781   03 01F28    00000000 A   :INTADRE DATA     0,0               TEMP STORAGE
            03 01F29    00000000 A
     9782                                     PAGE
     9783                            *
     9784                            *                 *** INTERRUPT - SERVICE ***
     9785                            *
     9786                            * THIS ROUTINE ACKNOWLEDGES AN IO INTERRUPT AND VERIFIES THE
     9787                            *  INTERRUPT DEVICE ADDRESS. IO INTERRUPT WILL BE DISARMED AND DISABLED
     9788                            *   IF INTERRUPT IS RECOGNIZED AND DEVICE ADDRESS WAS STORED IN TABLE.
     9789                            *        INPUT PARAMETERS
     9790                            *
     9791                            *          (NONE)
     9792                            *
     9793                            *        REGISTERS DISTURBED:
     9794                            *
     9795                            *          (NONE)
     9796                            *
     9797                            *        OUTPUT PARAMETERS:
     9798                            *
     9799                            *          :INTSTAT - INTERRUPT STATUS AND ADR
     9800                            *          :INTCC   - INTERRUPT CONDITION CODE
     9801                            *          :INTRECF - INTERRUPT RECEIVED FLAG; RESET = 0, SET > 0
     9802                            *          :INTSVX  - NEG. INTERRUPT TABLE INDEX;
     9803                            *                       CURRENT TABLE WORD = WA(INTTAB8)-INTSVX
     9804                            *
     9805                            *
     9806   03 01F2A    15401F4C     :INTSV   STD,4    :INTSVSR          SAVE
     9807   03 01F2B    15C01F4E              STD,12   :INTSVSR+2
     9808   03 01F2C    15E01F50              STD,14   :INTSVSR+4          REGISTERS
     9809   03 01F2D    6ED00000 A            AIO,13                     AIO
     9810   03 01F2E    69801F43              BCS,8    :INTSV4           BRANCH: NO INTER RECOG
     9811   03 01F2F    74001F53              STCF     :INTCC            SAVE COND CODE
     9812   03 01F30    22400001 A            LI,4     1
     9813   03 01F31    52C2000D A            LH,12    13,1              LOAD DEV ADR FROM AIO STATUS
     9814   03 01F32    31C0195B     :INTSV1  CW,12    :DEVADDR          COMPARE DEVICE ADDRESS
     9815   03 01F33    69301F3D              BCS,3    :INTSV3           BRANCH: ADR NOT EQUAL
     9816   03 01F34    35D01F52              STW,13   :INTSTAT          SAVE INTERRUPT STATUS
     9817   03 01F35    6AF020FD              BAL,15   :SAVEAIO          SAVE AIO INFO FOR TEST
     9818   03 01F36    35401F55              STW,4    :INTSVX           SAVE ADR TABLE INDEX
     9819   03 01F37    33101F54              MTW,1    :INTRECF          SET INTER RECEIVED FLAG
     9820   03 01F38    6AF01EF8              BAL,15   :INTD             DISARM IO INTERRUPT
     9821   03 01F39    12401F4C     :INTSV2  LD,4     :INTSVSR          RESTORE
     9822   03 01F3A    12C01F4E              LD,12    :INTSVSR+2
     9823   03 01F3B    12E01F50              LD,14    :INTSVSR+4          REGISTERS
     9824   03 01F3C    0E201A76              LPSD,2   INTSVV            GO BACK TO PROGRAM
     9825                            *
     9826   03 01F3D    22401F56     :INTSV3  LI,4     :INTSVM           LOAD MSG ADDRESS -SPURIOUS INTERRUPT
     9827   03 01F3E    22401F56              LI,4     :INTSVM           LOAD MSG ADR (SPURIOUS INTER)
     9828   03 01F3F    35401F46              STW,4    :INTSV6           SAVE MSG ADR
     9829   03 01F40    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9830   03 01F41    35F01F5C              STW,15   :INTSVM+6         DEV ADR TO MSG
     9831   03 01F42    68001F45              B        :INTSV5
     9832   03 01F43    22401D30     :INTSV4  LI,4     :CCERMF           LOAD MSG ADR (NO INTER RECOG)
     9833   03 01F44    35401F46              STW,4    :INTSV6           SAVE MSG ADR
     9834   03 01F45    EAF0021C A   :INTSV5  BAL,15   *:PRINT            PRINT MSG
     9835   03 01F46    00000000 A   :INTSV6  DATA     0                 MSG ADR
     9836   03 01F47    68001F39              B        :INTSV2
     9837                            *
     9838                            *
     9839                                     BOUND    8
     9840   03 01F48    00000000 A   :INTSVDW DATA     0,0,:INTSV,X'04000000'
            03 01F49    00000000 A
            03 01F4A    00001F2A
            03 01F4B    04000000 A
     9841   03 01F4C                 :INTSVSR RES      6                 REGISTERS 4,5,12,13,14,15
     9842   03 01F52    00000000 A   :INTSTAT DATA     0                 AIO STATUS AND DEV ADR
     9843   03 01F53    00000000 A   :INTCC   DATA     0                 AIO COND CODE
     9844   03 01F54    00000000 A   :INTRECF DATA     0                 INTER RECEIVED FLAG
     9845   03 01F55    00000000 A   :INTSVX  DATA     0                 ADR TABLE INDEX
     9846   03 01F56    1BE2D7E4 A   :INTSVM  TEXTC    'SPURIOUS INTERRUPT DEV XXXX'
            03 01F57    D9C9D6E4 A
            03 01F58    E240C9D5 A
            03 01F59    E3C5D9D9 A
            03 01F5A    E4D7E340 A
            03 01F5B    C4C5E540 A
            03 01F5C    E7E7E7E7 A
     9847                            *
     9848                            *
     9849                            *        *** IOCDMSG - PRINT CURRENT IOCD
     9850                            *
     9851   03 01F5D    35F01F6A     IOCDMSG  STW,15   IOCDMSGX          SAVE RETURN
     9852   03 01F5E    EAF00218 A            BAL,15  *:HEXC             CONVERT
     9853   03 01F5F    35F01F6E              STW,15   IOCDMSGM+3
     9854   03 01F60    EAF00218 A            BAL,15  *:HEXC
     9855   03 01F61    35F01F6D              STW,15   IOCDMSGM+2
     9856   03 01F62    32C0000D A            LW,12    13
     9857   03 01F63    EAF00218 A            BAL,15  *:HEXC
     9858   03 01F64    35F01F71              STW,15   IOCDMSGM+6
     9859   03 01F65    EAF00218 A            BAL,15  *:HEXC
     9860   03 01F66    35F01F70              STW,15   IOCDMSGM+5
     9861   03 01F67    EAF0021C A            BAL,15   *:PRINT
     9862   03 01F68    00001F6B              DATA     IOCDMSGM
     9863   03 01F69    E8001F6A              B        *IOCDMSGX         EXIT
     9864   03 01F6A    00000000 A   IOCDMSGX DATA     0
     9865   03 01F6B    1BC9D6C3 A   IOCDMSGM TEXTC    'IOCD = XXXXXXXX    XXXXXXXX'
            03 01F6C    C4407E40 A
            03 01F6D    E7E7E7E7 A
            03 01F6E    E7E7E7E7 A
            03 01F6F    40404040 A
            03 01F70    E7E7E7E7 A
            03 01F71    E7E7E7E7 A
     9866                            *                 *** ERROR ROUTINE ***
     9867                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     9868                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     9869                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     9870                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     9871                            * TRUE OR FALSE CONDITION. A ZERO BYTE   WILL INDICATE THE END OF THE
     9872                            * BYTE STRING. AFTER THE BIT TESTS, THE REMAINING BITS OF THE STATUS
     9873                            * PREVIOUSLY SELECTED WILL BE TESTED.
     9874                            *
     9875                            * THE BYTE HAS THE FOLLOWING FORMAT:
     9876                            *
     9877                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     9878                            * ----------                 -----    ----------
     9879                            * 0 NOT ALLOWED              0 FALSE  0 MASK X'80', BYT   -, COM2<COM1
     9880                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYT = 0, COM2=COM1
     9881                            * 2 OPERATIONAL STATUS (TIO)   TEST   2 MASK X'20', BYT  +1, COM2=COM1+1
     9882                            * 3 HIO STATUS                        3 MASK X'10', BYT  +2, COM2=COM1+2
     9883                            * 4 TDV STATUS                        4 MASK X'08', BYT  +3, COM2=COM1+3
     9884                            * 5 SIO STATUS                        5 MASK X'04', BYT  +4, COM2=COM1+4
     9885                            * 6 AIO STATUS                        6 MASK X'02', BYT  +5, COM2=COM1+5
     9886                            * 7 INTERRUPT STATUS (AIO)            7 MASK X'01', BYT  +6, COM2=COM1+6
     9887                            * 8 NOT ASSIGNED
     9888                            * 9 NOT ASSIGNED
     9889                            * A NOT ASSIGNED
     9890                            * B NOT ASSIGNED
     9891                            * C NOT ASSIGNED
     9892                            * D NOT ASSIGNED
     9893                            * E BYTE COUNT TEST (TIO)
     9894                            * F COMMAND ADDR TEST (TIO)
     9895                            *
     9896                            *
     9897                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     9898                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     9899                            * STORED IN THE TABLE, THE ERROR ROUTINE  SR WILL ISSUE THE APPROPRIATE
     9900                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
     9901                            *
     9902                            * CALLING SEQUENCE: BAL,15 :ERRORT
     9903                            *                   DATA   BA(TSEQNNN)
     9904                            * NORMAL EXIT:      B      (CONTINUE TEST)
     9905                            * ERROR  EXIT:             (IDENTIFY SUBTEST)
     9906                            *
     9907                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
     9908                            *
     9909                            * VARIABLES REQUIRED: STATUS IN SAVE TABLE
     9910                            *                     STARTING COMMAND ADR
     9911                            *
     9912                            * OTHER SUBROUTINES: CLEAR STATUS SAVE TABLE (:SAVECLR)
     9913                            *                    STORE STATUS IN SAVE TABLE (:SAVETIO,:SAVEHIO,
     9914                            *                    :SAVETDV,:SAVESIO,:SAVEAIO,:SAVESSA,SAVESSB,:TIO,
     9915                            *                    :TDV,:HIO)
     9916                            *
     9917                            *
     9918                            * THE FOLLOWING EQUATE STATEMENTS ASSIGN LABELS TO BYTE VALUES
     9919                            *
     9920                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7  :TSEQEQU  X'10'
     9921                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7  :TSEQEQU  X'18'
     9922                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7  :TSEQEQU  X'20'
     9923                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7  :TSEQEQU  X'28'
     9924                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7  :TSEQEQU  X'30'
     9925                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7  :TSEQEQU  X'38'
     9926                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7  :TSEQEQU  X'40'
     9927                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7  :TSEQEQU  X'48'
     9928                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7  :TSEQEQU  X'50'
     9929                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7  :TSEQEQU  X'58'
     9930                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7  :TSEQEQU  X'60'
     9931                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7  :TSEQEQU  X'68'
     9932                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7  :TSEQEQU  X'70'
     9933                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7  :TSEQEQU  X'78'
     9934                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06  :TSEQEQU  X'E0'
     9935                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06  :TSEQEQU  X'F0'
     9936                            *
     9937   03 01F72    02200000 A   :ERRORT  LCI      0
     9938   03 01F73    2B00202B              STM,0    :ERRTMP1          SAVE ALL REGISTERS
     9939   03 01F74    B250000F A            LW,5     *15               FETCH BYTE ADDR
     9940   03 01F75    22000000 A            LI,0     0
     9941   03 01F76    3500203F              STW,0    :ERRTFLG          RESET ERROR FLAG
     9942   03 01F77    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     9943   03 01F78    68302000              BCR,3    :ERRT13           BRANCH: BYTE = 0
     9944   03 01F79    22700000 A            LI,7     0
     9945   03 01F7A    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     9946   03 01F7B    3560203C              STW,6    :ERRTMP3          SAVE INDEX
     9947   03 01F7C    21600008 A            CI,6     8
     9948   03 01F7D    69101F83              BCS,1    :ERRT1            B: RANGE OF INDEX  1 - 7
     9949   03 01F7E    2160000D A            CI,6     13
     9950   03 01F7F    69201FCE              BCS,2    :ERRT11           BRANCH: RANGE OF INDEX 14 - 15
     9951   03 01F80    EAF0022B A            WAITPROC WAITMSG1          /// HALT ///                    *B01
            03 01F81    0000212D
     9952   03 01F82    68001F80              B        %-2               PROGRAM ERRORS                  *B01
     9953                            *
     9954   03 01F83    328C2118     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     9955   03 01F84    69101FA4              BCS,1    :ERRT6            BRANCH: STATUS IN TABLE
     9956   03 01F85    21600005 A            CI,6     5
     9957   03 01F86    69101F8A              BCS,1    :ERRT2            BRANCH: RANGE OF INDEX 1 - 4
     9958   03 01F87    EAF0022B A            WAITPROC WAITMSG1          /// HALT ///                    *B01
            03 01F88    0000212D
     9959   03 01F89    68001F87              B        %-2               PROGRAM ERROR                   *B01
     9960   03 01F8A    21600003 A   :ERRT2   CI,6     3
     9961   03 01F8B    69301F92              BCS,3    :ERRT3            BRANCH: NOT HIO TEST
     9962   03 01F8C    32E0217E              LW,14    =X'00008000'
     9963   03 01F8D    6AF01C59              BAL,15   :HIO              ISSUE HIO AND TEST CC1
     9964   03 01F8E    68001F90              B        %+2
     9965   03 01F8F    68001FCC              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9966   03 01F90    6AF020EE              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     9967   03 01F91    68001F83              B        :ERRT1            FETCH STATUS
     9968                            *
     9969   03 01F92    21600004 A   :ERRT3   CI,6     4
     9970   03 01F93    69301F9A              BCS,3    :ERRT4            BRANCH: NOT TDV TEST
     9971   03 01F94    32E0217E              LW,14    =X'00008000'
     9972   03 01F95    6AF01C64              BAL,15   :TDV              ISSUE TDV AND TEST CC1
     9973   03 01F96    68001F98              B        %+2
     9974   03 01F97    68001FCC              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9975   03 01F98    6AF020F3              BAL,15   :SAVETDV          STORE TDV STATUS
     9976   03 01F99    68001F83              B        :ERRT1            FETCH STATUS
     9977                            *
     9978   03 01F9A    6AF01F9C     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     9979   03 01F9B    68001F83              B        :ERRT1
     9980                            *
     9981   03 01F9C    35F01FA3     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
     9982   03 01F9D    32E0217E              LW,14    =X'00008000'
     9983   03 01F9E    6AF01C4E              BAL,15   :TIO              ISSUE TIO AND TEST CC1
     9984   03 01F9F    68001FA1              B        %+2
     9985   03 01FA0    68001FCC              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9986   03 01FA1    6AF020E0              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
     9987   03 01FA2    E8001FA3              B        *:ERRT5X          EXIT                    IN TABLE
     9988   03 01FA3    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR
     9989                            *
     9990   03 01FA4    22600000 A   :ERRT6   LI,6     0
     9991   03 01FA5    25600301 A            SCD,6    1                 FETCH BIT 4
     9992   03 01FA6    3560203B              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG
     9993   03 01FA7    22600000 A            LI,6     0
     9994   03 01FA8    25600303 A            SCD,6    3                 FETCH BITS 5 - 7
     9995   03 01FA9    356020C9              STW,6    :ERRBITS
     9996   03 01FAA    729C203D              LB,9     :ERRTMSK,6        FETCH MASK
     9997   03 01FAB    49800009 A            OR,8     9                 UPDATE CURRENT MASK
     9998   03 01FAC    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
     9999   03 01FAD    69401FB1              BCS,4    :ERRT7            BRANCH: MATCH BETWEEN STATUS & MASK
    10000   03 01FAE    3300203B              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
    10001   03 01FAF    68301FB4              BCR,3    :ERRT8            BRANCH: FALSE TEST SUCCESSFUL
    10002   03 01FB0    68001FB8              B        :ERRT9            BRANCH: TRUE  TEST UNSUCCESSFUL
    10003                            *
    10004   03 01FB1    3300203B     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
    10005   03 01FB2    68301FB8              BCR,3    :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL
    10006   03 01FB3    68001FB4              B        :ERRT8            BRANCH: TRUE  TEST SUCCESSFUL
    10007                            *
    10008   03 01FB4    3260203C     :ERRT8   LW,6     :ERRTMP3          FETCH INDEX
    10009   03 01FB5    358C2118              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
    10010   03 01FB6    33100005 A   :ERRT8A  MTW,1    5                 INCREMENT BYTE ADDR
    10011   03 01FB7    68001F77              B        :ERRT0            TEST NEXT BYTE
    10012                            *
    10013   03 01FB8    3260203C     :ERRT9   LW,6     :ERRTMP3          FETCH INDEX
    10014   03 01FB9    358C2118              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
    10015   03 01FBA    3260203C     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
    10016   03 01FBB    327C2040              LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
    10017   03 01FBC    357020B7              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT
    10018   03 01FBD    327C20C0              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
    10019   03 01FBE    326020C9              LW,6     :ERRBITS          FETCH BIT SELECTED
    10020   03 01FBF    928C0007 A            LD,8     *7,6              FETCH DOUBLEWORD ERROR MESSAGE
    10021   03 01FC0    158020BA              STD,8    :ERRTMG1+4        STORE DOUBLEWORD TO OUTPUT FORMAT
    10022   03 01FC1    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
    10023   03 01FC2    756220B9              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
    10024   03 01FC3    3260203B              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
    10025   03 01FC4    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
    10026   03 01FC5    756420BD              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT
    10027   03 01FC6    3260203B              LW,6     :ERRTMP2
    10028   03 01FC7    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
    10029   03 01FC8    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
    10030   03 01FC9    756020BF              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT
    10031   03 01FCA    EAF0021C A            BAL,15   *:PRINT
    10032   03 01FCB    000020B6              DATA     :ERRTMG1
    10033                            *
    10034   03 01FCC    3310203F     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
    10035   03 01FCD    68001FB6              B        :ERRT8A
    10036                            *
    10037   03 01FCE    328C2118     :ERRT11  LW,8     :SAVETAB,6        FETCH STATUS
    10038   03 01FCF    69101FD1              BCS,1    %+2               BRANCH: STATUS IN TABLE
    10039   03 01FD0    6AF01F9C              BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
    10040   03 01FD1    4B80217F              AND,8    =X'FFFF'          BITS 16 - 31
    10041   03 01FD2    52820008 A            LH,8     8,1
    10042   03 01FD3    2160000E A            CI,6     14
    10043   03 01FD4    69301FFD              BCS,3    :ERRT12           BRANCH: COMMAND ADDR TEST
    10044   03 01FD5    25600304 A   :ERRT11A SCD,6    4                 FETCH BITS 4 - 7
    10045   03 01FD6    4B602180              AND,6    =X'7'
    10046   03 01FD7    69301FDB              BCS,3    :ERRT11B          BRANCH: NOT EQUAL TO ZERO
    10047   03 01FD8    33000008 A            MTW,0    8                 TEST BYTE COUNT OR COMMAND DIFF
    10048   03 01FD9    69101FB6              BCS,1    :ERRT8A           BRANCH: NEGATIVE TEST SUCCESSFUL
    10049   03 01FDA    68001FE8              B        :ERRT91A          B: NEGATIVE TEST NOT SUCCESSFUL
    10050   03 01FDB    33F00006 A   :ERRT11B MTW,-1   6                 SUBTRACT 1 FROM BITS 5 - 7
    10051   03 01FDC    31600008 A            CW,6     8                 COMPARE R8 TO TEST VALUE
    10052   03 01FDD    68301FB6              BCR,3    :ERRT8A           BRANCH:      TEST SUCCESSFUL
    10053                            *                                   TEST NOT SUCCESSFUL
    10054   03 01FDE    3270203C     :ERRT92A LW,7     :ERRTMP3          FETCH INDEX
    10055   03 01FDF    2170000E A            CI,7     14                BYTE COUNT  OR COMMAND ADDRESS
    10056   03 01FE0    68301FE5              BCR,3    :ERRT92C          BRANCH IF EQUAL TO
    10057   03 01FE1    3290212C              LW,9    :SAVCOM1           FETCH ORIG COMMAND ADDRESS
    10058   03 01FE2    30900006 A            AW,9     6                 SAVCOM1 + 1
    10059   03 01FE3    3590000C A            STW,9    12                STORE IN R12
    10060   03 01FE4    68001FEE              B        :ERRT92B          BRANCH
    10061   03 01FE5    30602181     :ERRT92C AW,6     =X'F0F0F0F0'      CONVERT INDEX TO EBCDIC
    10062   03 01FE6    3560000F A            STW,6    15                STORE  IN R15
    10063   03 01FE7    68001FF2              B        :ERRT91C          BRANCH
    10064   03 01FE8    3270203C     :ERRT91A LW,7     :ERRTMP3          FETCH INDEX
    10065   03 01FE9    2170000E A            CI,7     14                BYTE COUNT  OR  COMMAND ADDRESS
    10066   03 01FEA    68301FF1              BCR,3    :ERRT91B          BRANCH IF EQUAL TO
    10067   03 01FEB    3290212C              LW,9    :SAVCOM1           FETCH ORIG COMMAND ADRS.
    10068   03 01FEC    38900001 A            SW,9     1                 SUBTRACT 1 FROM SAVCOM1
    10069   03 01FED    3590000C A            STW,9    12                STORE IN R12
    10070   03 01FEE    EAF00218 A   :ERRT92B BAL,15   *:HEXC            CONVERT TO EBCDIC
    10071   03 01FEF    12A020D6              LD,10    :ERRTCAM          FETCH COMMAND ADDRESS ID
    10072   03 01FF0    68001FF3              B        %+3               BRANCH
    10073   03 01FF1    32F020D3     :ERRT91B LW,15    :ERRTNEG          FETCH EXPECTED NEGATIVE WORD
    10074   03 01FF2    12A020D4     :ERRT91C LD,10    :ERRTBCM          FETCH BYTE COUNT ID
    10075   03 01FF3    35A020CB              STW,10   :ERRTMG2+1        STORE  ID
    10076   03 01FF4    35B020CC              STW,11   :ERRTMG2+2                  IN MESSAGE
    10077   03 01FF5    35F020CF              STW,15   :ERRTMG2+5        STORE R15 IN MESSAGE
    10078   03 01FF6    3260203C              LW,6     :ERRTMP3          FETCH INDEX
    10079   03 01FF7    32CC2118              LW,12    :SAVETAB,6        LOAD BYTE COUNT OR COMMAND ADR
    10080   03 01FF8    EAF00218 A            BAL,15   *:HEXC            CONVERT INTO EBCDIC
    10081   03 01FF9    35F020D2              STW,15   :ERRTMG2+8        STORE R15 IN MESSAGE
    10082   03 01FFA    EAF0021C A            BAL,15   *:PRINT           BRANCH TO PRINT ROUTINE
    10083   03 01FFB    000020CA              DATA     :ERRTMG2
    10084   03 01FFC    68001FCC              B        :ERRT10           B: TEST NEXT BIT
    10085                            *
    10086   03 01FFD    3290212C     :ERRT12  LW,9     :SAVCOM1          FETCH ORIGINAL COMMAND ADDR
    10087   03 01FFE    38800009 A            SW,8     9                 FIND DIFFERENCE OF COMMAND ADDRESSES
    10088   03 01FFF    68001FD5              B        :ERRT11A
    10089                            *
    10090   03 02000    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
    10091   03 02001    32882122              LW,8     :SAVETAB+10,4     FETCH STATUS
    10092   03 02002    68102011              BCR,1    :ERRT14           BRANCH: NO STATUS
    10093   03 02003    72960008 A            LB,9     8,3               FETCH CURRENT MASK
    10094   03 02004    68302011              BCR,3    :ERRT14           BRANCH: STATUS NOT PREVIOUSLY TESTED
    10095   03 02005    22A00000 A            LI,10    0
    10096   03 02006    75A00008 A            STB,10   8                 RESET STATUS FLAG
    10097   03 02007    35882122              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
    10098   03 02008    22A000FF A            LI,10    X'FF'
    10099   03 02009    4890000A A            EOR,9    10                COMPLEMENT CURRENT MASK
    10100   03 0200A    72A40008 A            LB,10    8,2               FETCH STANDARD MASK
    10101   03 0200B    4B90000A A            AND,9    10                STATUS COMPARE MASK FOR REMAINING
    10102   03 0200C    72A20008 A            LB,10    8,1               FETCH STATUS BYTE              BITS
    10103   03 0200D    4BA00009 A            AND,10   9                 TEST STATUS
    10104   03 0200E    69302017              BCS,3    :ERRT15           BRANCH: STATUS IN ERROR
    10105   03 0200F    3300203F              MTW,0    :ERRTFLG           TEST ERROR FLAG
    10106   03 02010    69302017              BNEZ     :ERRT15           BRANCH: PRINT STATUS
    10107   03 02011    65402001     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
    10108   03 02012    02200000 A            LCI      0
    10109   03 02013    2A00202B              LM,0     :ERRTMP1          RESTORE REGISTERS
    10110   03 02014    3300203F              MTW,0    :ERRTFLG          TEST ERROR FLAG
    10111   03 02015    E832000F A            BCR,3    *15,1             NORMAL EXIT
    10112   03 02016    E804000F A            B        *15,2             ERROR EXIT
    10113                            *
    10114   03 02017    32C8204A     :ERRT15  LW,12    :ERRTYPE+10,4       FETCH STATUS TYPE
    10115   03 02018    35C0204A              STW,12   :ERRTM1+1         STORE SATUS ID
    10116   03 02019    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 1
    10117   03 0201A    00002049              DATA     :ERRTM1           MSG = '   TIO 01234567'
    10118   03 0201B    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
    10119   03 0201C    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    10120   03 0201D    35F02050              STW,15   :ERRTM2+3         STORE IN MSG AREA
    10121   03 0201E    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    10122   03 0201F    35F0204F              STW,15   :ERRTM2+2         STORE IN MSG AREA
    10123   03 02020    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 2
    10124   03 02021    0000204D              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
    10125   03 02022    72C60009 A            LB,12    9,3               FETCH MASK
    10126   03 02023    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    10127   03 02024    35F02054              STW,15   :ERRTM3+3         STORE IN MSG AREA
    10128   03 02025    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    10129   03 02026    35F02053              STW,15   :ERRTM3+2         STORE IN MSG AREA
    10130   03 02027    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 3
    10131   03 02028    00002051              DATA     :ERRTM3           MSG = '  MASK MMMMMMMM'
    10132   03 02029    3310203F              MTW,1    :ERRTFLG          INCR ERROR TALLY
    10133   03 0202A    68002011              B        :ERRT14
    10134                            *
    10135   03 0202B                 :ERRTMP1 RES      16                REGISTER SAVE AREA
    10136   03 0203B    00000000 A   :ERRTMP2 DATA     0                 TRUE/FALSE TEST FLAG
    10137   03 0203C    00000000 A   :ERRTMP3 DATA     0                 INDEX
    10138   03 0203D    80402010 A   :ERRTMSK GEN,8,8,8,8  X'80',X'40',X'20',X'10'   TEST
    10139   03 0203E    08040201 A            GEN,8,8,8,8  X'08',X'04',X'02',X'01'     MASKS
    10140   03 0203F    00000000 A   :ERRTFLG DATA     0
    10141   03 02040    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB ','SB8 '
            03 02041    E3C9D640 A
            03 02042    D6E2C240 A
            03 02043    C8C9D640 A
            03 02044    E3C4E540 A
            03 02045    E2C9D640 A
            03 02046    C1C9D640 A
            03 02047    C9E2C240 A
            03 02048    E2C2F840 A
    10142   03 02049    0F404040 A   :ERRTM1  TEXTC    '   XXX 01234567' STATUS
            03 0204A    E7E7E740 A
            03 0204B    F0F1F2F3 A
            03 0204C    F4F5F6F7 A
    10143   03 0204D    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            03 0204E    E3E4E240 A
            03 0204F    C2C2C2C2 A
            03 02050    C2C2C2C2 A
    10144   03 02051    0F4040D4 A   :ERRTM3  TEXTC    '  MASK MMMMMMMM'   MSGS
            03 02052    C1E2D240 A
            03 02053    D4D4D4D4 A
            03 02054    D4D4D4D4 A
    10145                                     BOUND    8
    10146   03 02056    C9D5E340 A   :ERRTTBA TEXT     'INT PEND'        BIT 0
            03 02057    D7C5D5C4 A
    10147   03 02058    D5D6E340 A            TEXT     'NOT OP ?'        BIT 1   TIO
            03 02059    D6D7406F A
    10148   03 0205A    E4D5C1E5 A            TEXT     'UNAVAIL?'        BIT 2
            03 0205B    C1C9D36F A
    10149   03 0205C    4040C1E4 A            TEXT     '  AUTO  '        BIT 3     SIO                (1)
            03 0205D    E3D64040 A
    10150   03 0205E    404040E4 A            TEXT     '   UE   '        BIT 4                        (3)
            03 0205F    C5404040 A
    10151   03 02060    D5D6E340 A            TEXT     'NOT OP ?'        BIT 5       HIO              (5)
            03 02061    D6D7406F A
    10152   03 02062    E4D5C1E5 A            TEXT     'UNAVAIL?'        BIT 6
            03 02063    C1C9D36F A
    10153   03 02064    D5D6E340 A            TEXT     'NOT USED'        BIT 7         STATUS
            03 02065    E4E2C5C4 A
    10154   03 02066    C9D5C340 A   :ERRTTBB TEXT     'INC LEN '        BIT 0
            03 02067    D3C5D540 A
    10155   03 02068    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            03 02069    E2D44040 A
    10156   03 0206A    E3D9C1D5 A            TEXT     'TRANSMEM'        BIT 2   OPERATIONAL
            03 0206B    E2D4C5D4 A
    10157   03 0206C    D4C5D440 A            TEXT     'MEM ADR '        BIT 3
            03 0206D    C1C4D940 A
    10158   03 0206E    C9D6D740 A            TEXT     'IOP MEM '        BIT 4     STATUS BYTE (OSB)
            03 0206F    D4C5D440 A
    10159   03 02070    C9D6D740 A            TEXT     'IOP CONT'        BIT 5                        (2)
            03 02071    C3D6D5E3 A
    10160   03 02072    C9D6D740 A            TEXT     'IOP HALT'        BIT 6
            03 02073    C8C1D3E3 A
    10161   03 02074    E2C9D6D7 A            TEXT     'SIOPBUSY'        BIT 7
            03 02075    C2E4E2E8 A
    10162   03 02076    D9C1E3C5 A   :ERRTTBC TEXT     'RATE ERR'        BIT 0
            03 02077    40C5D9D9 A
    10163   03 02078    E6D940D7 A            TEXT     'WR PERMT'        BIT 1
            03 02079    C5D9D4E3 A
    10164   03 0207A    E6D940D7 A            TEXT     'WR PROT '        BIT 2     TDV
            03 0207B    D9D6E340 A
    10165   03 0207C    C54BD64B A            TEXT     'E.O.F.  '        BIT 3
            03 0207D    C64B4040 A
    10166   03 0207E    D5D6E340 A            TEXT     'NOT USED'        BIT 4     STATUS (4)
            03 0207F    E4E2C5C4 A
    10167   03 02080    D3D6C1C4 A            TEXT     'LOAD PT '        BIT 5
            03 02081    40D7E340 A
    10168   03 02082    C54BD64B A            TEXT     'E.O.T.  '        BIT 6
            03 02083    E34B4040 A
    10169   03 02084    D9E660D6 A            TEXT     'RW-ONLNE'        BIT 7
            03 02085    D5D3D5C5 A
    10170   03 02086    D9C1E3C5 A   :ERRTTBD TEXT     'RATE ERR'        BIT 0
            03 02087    40C5D9D9 A
    10171   03 02088    C4C5E540 A            TEXT     'DEV END '        BIT 1
            03 02089    C5D5C440 A
    10172   03 0208A    E6D940D7 A            TEXT     'WR PROT '        BIT 2     AIO
            03 0208B    D9D6E340 A
    10173   03 0208C    C54BD64B A            TEXT     'E.O.F.  '        BIT 3            STATUS   (6)
            03 0208D    C64B4040 A
    10174   03 0208E    D5D6E340 A            TEXT     'NOT USED'        BIT 4
            03 0208F    E4E2C5C4 A
    10175   03 02090    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            03 02091    E4E2C5C4 A
    10176   03 02092    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            03 02093    E4E2C5C4 A
    10177   03 02094    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            03 02095    E4E2C5C4 A
    10178   03 02096    C9D5C340 A   :ERRTTBE TEXT     'INC LEN '        BIT 0
            03 02097    D3C5D540 A
    10179   03 02098    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            03 02099    E2D44040 A
    10180   03 0209A    E9C2C340 A            TEXT     'ZBC INT '        BIT 2   INTERRUPT
            03 0209B    C9D5E340 A
    10181   03 0209C    40C3C540 A            TEXT     ' CE INT '        BIT 3
            03 0209D    C9D5E340 A
    10182   03 0209E    40E4C540 A            TEXT     ' UE INT '        BIT 4     STATUS BYTE (ISB)  (7)
            03 0209F    C9D5E340 A
    10183   03 020A0    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            03 020A1    E4E2C5C4 A
    10184   03 020A2    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            03 020A3    E4E2C5C4 A
    10185   03 020A4    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            03 020A5    E4E2C5C4 A
    10186   03 020A6    C440D7C1 A   :ERRTTBF TEXT     'D PAR E '        BIT 0
            03 020A7    D940C540 A
    10187   03 020A8    C3C8D2E6 A            TEXT     'CHKWRT E'        BIT 1
            03 020A9    D9E340C5 A
    10188   03 020AA    E2C5C3E3 A            TEXT     'SECT COM'        BIT 2   SENSE
            03 020AB    40C3D6D4 A
    10189   03 020AC    C8C5C1C4 A            TEXT     'HEAD COM'        BIT 3
            03 020AD    40C3D6D4 A
    10190   03 020AE    C3E8D340 A            TEXT     'CYL COM '        BIT 4     BYTE  8            (8)
            03 020AF    C3D6D440 A
    10191   03 020B0    C8C440C1 A            TEXT     'HD ADR E'        BIT 5
            03 020B1    C4D940C5 A
    10192   03 020B2    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            03 020B3    E4E2C5C4 A
    10193   03 020B4    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            03 020B5    E4E2C5C4 A
    10194   03 020B6    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            03 020B7    E7E7E740 A
            03 020B8    C2C9E340 A
            03 020B9    40E7404D A
            03 020BA    E7E7E7E7 A
            03 020BB    E7E7E7E7 A
            03 020BC    5D40C5E7 A
            03 020BD    D740E740 A
            03 020BE    D6C2E240 A
            03 020BF    E7404040 A
    10195   03 020C0    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,:ERRTTBC,:ERRTTBA
            03 020C1    00002056
            03 020C2    00002066
            03 020C3    00002056
            03 020C4    00002076
            03 020C5    00002056
    10196   03 020C6    00002086              DATA     :ERRTTBD,:ERRTTBE,:ERRTTBF
            03 020C7    00002096
            03 020C8    000020A6
    10197   03 020C9    00000000 A   :ERRBITS DATA     0
    10198   03 020CA    23404040 A   :ERRTMG2 TEXTC    '   XXXXXXX - EXP.  XXXX  OBS.  XXXX'
            03 020CB    E7E7E7E7 A
            03 020CC    E7E7E740 A
            03 020CD    6040C5E7 A
            03 020CE    D74B4040 A
            03 020CF    E7E7E7E7 A
            03 020D0    4040D6C2 A
            03 020D1    E24B4040 A
            03 020D2    E7E7E7E7 A
    10199   03 020D3    40D5C5C7 A   :ERRTNEG TEXT     ' NEG'
    10200                                     BOUND    8
    10201   03 020D4    C2E8E340 A   :ERRTBCM TEXT     'BYT CNT '        BYTE COUNT MESSAGE
            03 020D5    C3D5E340 A
    10202   03 020D6    C3D6D440 A   :ERRTCAM TEXT     'COM ADR '        COMMAND ADDRESS MESSAGE
            03 020D7    C1C4D940 A
    10203                            *
    10204                            *                 *** SAVECLR                                ***
    10205                            *                 *** SAVETIO, -HIO,-TDV,-SIO,-AIO,-SSA,-SSB ***
    10206                            *                     ROUTINES
    10207                            *
    10208                            * THE SUBROUTINES CLEAR THE STATUS SAVE TABLE ('SAVETAB') AND STORE
    10209                            * THE SELECTED STATUS IN THE CELL.
    10210                            *
    10211                            * CALLING SEQUENCE: BAL,15  :SAVE---
    10212                            * NORMAL EXIT:      ---     ---
    10213                            *
    10214                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
    10215                            *
    10216                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
    10217                            *                     R12 - CURRENT COMMAND ADDR
    10218                            *
    10219                            * OTHER SUBROUTINES: NONE
    10220                            *
    10221                            *
    10222   03 020D8    15402128     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
    10223   03 020D9    224FFFE0 A            LI,4     -32               INDEX
    10224   03 020DA    22500000 A            LI,5     0                 0
    10225   03 020DB    55582128              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
    10226   03 020DC    654020DD              BIR,4    %+1               INCR R4
    10227   03 020DD    654020DB              BIR,4    %-2               LOOP
    10228   03 020DE    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10229   03 020DF    E800000F A            B        *15               EXIT
    10230                            *
    10231   03 020E0    15402128     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
    10232   03 020E1    35D0212A              STW,13   :SAVETMP+2       SAVE STATUS
    10233   03 020E2    22402119              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
    10234   03 020E3    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10235   03 020E4    2240211A              LI,4     WA(:SAVETAB+2)    INDEX - OSB
    10236   03 020E5    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10237   03 020E6    32D0212A              LW,13    :SAVETMP+2        FETCH STATUS
    10238   03 020E7    55D22126              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
    10239   03 020E8    225FFFFF A            LI,5     -1
    10240   03 020E9    75502126              STB,5    :SAVETAB+14,0     SET FLAG
    10241   03 020EA    55C22127              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
    10242   03 020EB    75502127              STB,5    :SAVETAB+15,0     SET FLAG
    10243   03 020EC    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10244   03 020ED    E800000F A            B        *15               EXIT
    10245                            *
    10246   03 020EE    15402128     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
    10247   03 020EF    2240211B              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
    10248   03 020F0    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10249   03 020F1    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10250   03 020F2    E800000F A            B        *15               EXIT
    10251   03 020F3    15402128     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
    10252   03 020F4    2240211C              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
    10253   03 020F5    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10254   03 020F6    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10255   03 020F7    E800000F A            B        *15               EXIT
    10256                            *
    10257   03 020F8    15402128     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
    10258   03 020F9    2240211D              LI,4     WA(:SAVETAB+5)    INDEX - SIO
    10259   03 020FA    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10260   03 020FB    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10261   03 020FC    E800000F A            B        *15               EXIT
    10262                            *
    10263   03 020FD    15402128     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
    10264   03 020FE    35D0212A              STW,13   :SAVETMP+2        SAVE STATUS
    10265   03 020FF    2240211E              LI,4      WA(:SAVETAB+6)   INDEX - AIO
    10266   03 02100    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10267   03 02101    2240211F              LI,4      WA(:SAVETAB+7)   INDEX - ISB
    10268   03 02102    6A502110              BAL,5    :SAVEALL          STORE STATUS
    10269   03 02103    32D0212A              LW,13    :SAVETMP+2        FETCH STATUS
    10270   03 02104    12402128              LD,4     :SAVETMP          RESTORE REGISTERS R4 AND R5
    10271   03 02105    E800000F A            B        *15               EXIT
    10272                            *
    10273   03 02106    15402128     :SAVESSA STD,4    :SAVETMP          SAVE R4 AND R5
    10274   03 02107    22402120              LI,4     WA(:SAVETAB+8)    SAVE STATUS
    10275   03 02108    6A502110              BAL,5    :SAVEALL          RESTORE R4 AND R5
    10276   03 02109    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10277   03 0210A    E800000F A            B        *15               EXIT
    10278                            *
    10279   03 0210B    15402128     :SAVESSB STD,4    :SAVETMP          SAVE R4 AND R5
    10280   03 0210C    22402121              LI,4     WA(:SAVETAB+9)    SAVE STATUS
    10281   03 0210D    6A502110              BAL,5    :SAVEALL          RESTORE R4 AND R5
    10282   03 0210E    12402128              LD,4     :SAVETMP          RESTORE R4 AND R5
    10283   03 0210F    E800000F A            B        *15               EXIT
    10284                            *
    10285   03 02110    3550212B     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
    10286   03 02111    22500000 A            LI,5     0
    10287   03 02112    F5560004 A            STB,5    *4,3              CLEAR CURRENT STATUS MASK
    10288   03 02113    25D00208 A            SCS,13   +8
    10289   03 02114    F5D20004 A            STB,13   *4,1              STORE CURRENT STATUS
    10290   03 02115    225FFFFF A            LI,5     -1
    10291   03 02116    F5500004 A            STB,5    *4,0              STORE FLAG
    10292   03 02117    E800212B              B        *:SAVETMP+3        EXIT
    10293                            *
    10294                                     BOUND    8
    10295         03 02118           :SAVETAB EQU      %
    10296   03 02118    00000000 A            DATA     0                 UNDEFINED                    0
    10297   03 02119    0000EE00 A            DATA     X'0000EE00'       TIO STATUS                  1
    10298   03 0211A    0000FF00 A            DATA     X'0000FF00'       OSB STATUS                   2
    10299   03 0211B    0000EE00 A            DATA     X'0000EE00'       HIO STATUS                  3
    10300   03 0211C    0000BB00 A            DATA     X'0000BB00'       TDV STATUS                  4
    10301   03 0211D    0000EE00 A            DATA     X'0000EE00'       SIO STATUS                  5
    10302   03 0211E    0000FF00 A            DATA     X'0000FF00'       AIO STATUS                   6
    10303   03 0211F    0000FF00 A            DATA     X'0000FF00'       ISB STATUS                   7
    10304   03 02120    0000FF00 A            DATA     X'0000FF00'       SBA STATUS                   8
    10305   03 02121    0000FF00 A            DATA     X'0000FF00'       SBB STATUS                   9
    10306   03 02122    00000000 A            DATA     0,0,0,0           NOT ASSIGNED                 10 - 13
            03 02123    00000000 A
            03 02124    00000000 A
            03 02125    00000000 A
    10307   03 02126    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR      14 - 15
            03 02127    00000000 A
    10308   03 02128    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            03 02129    00000000 A
            03 0212A    00000000 A
            03 0212B    00000000 A
    10309   03 0212C    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR
    10310   03 0212D    0DD7D9D6 A   WAITMSG1 TEXTC    'PROGRAM ERROR'                                   *B01
            03 0212E    C7D9C1D4 A
            03 0212F    40C5D9D9 A
            03 02130    D6D94040 A
    10311   03 02131    11E6C1C9 A   WAITMSG2 TEXTC    'WAIT FOR OPERATOR'                               *B01
            03 02132    E340C6D6 A
            03 02133    D940D6D7 A
            03 02134    C5D9C1E3 A
            03 02135    D6D94040 A
    10312                            *
    10313   03 02136    00000000 A   BUFF2    DATA     0                 BUFF1 +BUFF2/2 WORDS
    10314                                     BOUND    8
    10315                            BUFF1    END
            03 02138    00002E01 02
            03 02139    0000FF00 A
            03 0213A    0000BB00 A
            03 0213B    0000FFF8 A
            03 0213C    FFFFFFFE A
            03 0213D    00000080 A
            03 0213E    00000008 A
            03 0213F    06000000 A
            03 02140    05000000 A
            03 02141    08FF0000 A
            03 02142    08BF0000 A
            03 02143    02000000 A
            03 02144    01000000 A
            03 02145    087F0000 A
            03 02146    083F0000 A
            03 02147    FF000000 A
            03 02148    00FFFFFF A
            03 02149    E700C000 A
            03 0214A    EF00C000 A
            03 0214B    BB00C000 A
            03 0214C    08000000 A
            03 0214D    0000C000 A
            03 0214E    88000000 A
            03 0214F    80000000 A
            03 02150    98000002 A
            03 02151    66000000 A
            03 02152    04000000 A
            03 02153    40000000 A
            03 02154    E6000000 A
            03 02155    0000B300 A
            03 02156    0000BF00 A
            03 02157    3F3F3F3F A
            03 02158    00400000 A
            03 02159    00D00000 A
            03 0215A    12131415 A
            03 0215B    32333435 A
            03 0215C    FFFFFFFF A
            03 0215D    000FFFFF A
            03 0215E    00010203 A
            03 0215F    04040404 A
            03 02160    AAAAAAAA A
            03 02161    51F99F15 A
            03 02162    60000000 A
            03 02163    0F0F0F0F A
            03 02164    00000014 A
            03 02165    12000000 A
            03 02166    30303030 A
            03 02167    0000FFF0 A
            03 02168    0000000F A
            03 02169    12B9B0A1 A
            03 0216A    1033C4D7 A
            03 0216B    544B2FBA A
            03 0216C    000003FF A
            03 0216D    0000001F A
            03 0216E    00FF0000 A
            03 0216F    FFFF0000 A
            03 02170    FFFFFF00 A
            03 02171    00000003 A
            03 02172    0D000000 A
            03 02173    01FFFFFF A
            03 02174    02FFFFFF A
            03 02175    91000000 A
            03 02176    50000000 A
            03 02177    0000000C A
            03 02178    7FFFFFFF A
            03 02179    00004E20 A
            03 0217A    FFFFC000 A
            03 0217B    E600C000 A
            03 0217C    10000000 A
            03 0217D    80004000 A
            03 0217E    00008000 A
            03 0217F    0000FFFF A
            03 02180    00000007 A
            03 02181    F0F0F0F0 A

  CONTROL SECTION SUMMARY: 01 0030C   PT 0     02 02EE6   PT 0     03 02182   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:56 JUN 20,'83    SIGMA 5-9 7 CHANNEL MAG TAPE TEST 705735-11/51B01 N0V.27,71           PAGE    3
A  AIOF0           9930-:TSEQEQU
   AIOF1           9930-:TSEQEQU
   AIOF2           9930-:TSEQEQU
   AIOF3           9930-:TSEQEQU
   AIOF4           9930-:TSEQEQU
   AIOF5           9930-:TSEQEQU
   AIOF6           9930-:TSEQEQU
   AIOF7           9930-:TSEQEQU
   AIOT0           9931-:TSEQEQU
   AIOT1           9931-:TSEQEQU
   AIOT2           8269/:TSEQ   9931-:TSEQEQU
   AIOT3           9931-:TSEQEQU
   AIOT4           9931-:TSEQEQU
   AIOT5           9931-:TSEQEQU
   AIOT6           9931-:TSEQEQU
   AIOT7           9931-:TSEQEQU
   ASECTMLT        1419-ASECT
   ASECTPIT        1467-ASECT
   BCDVALID        4262/LI      8364/GEN     8681-DATA
   BCDZERO         8366/GEN     8697-DATA
   BINTRLS         4495/LI      8715-DATA
   BUFF1           1487/DATA    1720/AI      1734/AI      3206/LI      3312/LI      4062/LI      4082/LI
      4087/STW     4088/STW     4153/STW     4156/LI      4433/STW     4439/LI      4558/STW     4559/STW
      4566/LI      4632/STW     4930/LI      4947/STW     4960/LI      4979/STW     4981/STW     5239/STW
      5485/STW     6080/LI      6092/LI      6676/LI      6690/LI      6728/STW     6781/STW     6801/LW
      6903/LW      6905/STW     7003/STW     7176/LI      7277/STW     7301/LI      7377/STW     7614/LW
      7961/LI      8039/STW     8049/STW     8058/STW     8068/STW     8075/AI      8081/STB     8091/LW
      8092/STW     8103/STW     8113/STW     8118/STW     8126/STW     8136/AI      8143/STH     8155/LW
      8156/STW     8173/LI      8182/STB     8190/STB     8195/STB     8203/STB     8208/STB     8288/GEN
      8290/GEN     8292/GEN     8294/GEN     8296/GEN     8298/GEN     8300/GEN     8302/GEN     8304/GEN
      8306/GEN     8308/GEN     8310/GEN     8312/GEN     8314/GEN     8316/GEN     8318/GEN     8320/GEN
      8322/GEN     8324/GEN     8326/GEN     8328/GEN     8330/GEN     8332/GEN     8334/GEN     8336/GEN
      8338/GEN     8340/GEN     8342/GEN     8344/GEN     8346/GEN     8348/GEN     8350/GEN     8352/GEN
      8354/GEN     8362/GEN     8392/GEN     8460/GEN     8464/GEN     8468/GEN     8470/GEN     8472/GEN
      8474/GEN     8476/GEN     8478/GEN     8480/GEN     8482/GEN     8484/GEN     8486/GEN     8488/GEN
      8490/GEN     8492/GEN     8494/GEN     8795/DATA   10315-END
   BUFF2           1736/STW     1886/LW      3203/LW      3316/LW      4067/LW      4119/STD*    4158/LW
      4264/LW      4441/LW      4568/LW      4633/STW*    4724/LW      4932/LW      5296/CB*     5360/CB*
      5524/STW*    5528/CB*     6072/LW      6083/LW      6680/LW      6694/LW      6890/LW*     7298/LW
      7678/CB*     7964/LW      8178/LW*     8188/LW*     8201/LW*     8214/LW      8368/GEN     8370/GEN
      8372/GEN     8374/GEN     8376/GEN     8378/GEN     8380/GEN     8382/GEN     8384/GEN     8386/GEN
      8388/GEN     8390/GEN     8394/GEN     8396/GEN     8398/GEN     8400/GEN     8402/GEN     8404/GEN
      8406/GEN     8408/GEN     8410/GEN     8412/GEN     8414/GEN     8416/GEN    10313-DATA
   BYTECN          7516/STW     7588/LW      7601/LW      8577-DATA
   BYTN0           9934-:TSEQEQU
   BYT00           8253/:TSEQ   8254/:TSEQ   8255/:TSEQ   8256/:TSEQ   8262/:TSEQ   8279/:TSEQ
      9934-:TSEQEQU
   BYT01           8260/:TSEQ   8261/:TSEQ   9934-:TSEQEQU
   BYT02           8249/:TSEQ   8251/:TSEQ   8252/:TSEQ   8273/:TSEQ   9934-:TSEQEQU
   BYT03           9934-:TSEQEQU
   BYT04           9934-:TSEQEQU
   BYT05           9934-:TSEQEQU
   BYT06           9934-:TSEQEQU
   CHARTR          1794/STW     1831/STW     5580/SW      8573-DATA
   CHKBIT          6488/CW      6516/CW      6546/CW      7780/CW      8801-DATA
   CHKBITT         1875/STD     1881/STD     7737/CW      8800-DATA
   CLOCK           3441/LW      5904/LW      8535-MTW
   CLRARM          2558/BAL     2590/BAL     2709/BAL     2738/BAL     2792/BAL     2899/BAL     2920/BAL
      2959/BAL     2999/BAL     3013/BAL     3068/BAL     3090/BAL     3137/BAL     3154/BAL     3214/BAL
      3227/BAL     3324/BAL     3335/BAL     3443/BAL     3447/BAL     3513/BAL     3528/BAL     3542/BAL
      3556/BAL     3571/BAL     3594/BAL     3622/BAL     3637/BAL     3652/BAL     3689/BAL     3704/BAL
      3719/BAL     3733/BAL     3747/BAL     3761/BAL     3777/BAL     3793/BAL     3869/BAL     3885/BAL
      3896/BAL     3907/BAL     3918/BAL     3929/BAL     3940/BAL     3951/BAL     3962/BAL     3992/BAL
      4014/BAL     4025/BAL     4092/BAL     4107/BAL     4118/BAL     4169/BAL     4186/BAL     4197/BAL
      4267/BAL     4282/BAL     4293/BAL     4321/BAL     4332/BAL     4358/BAL     4373/BAL     4384/BAL
      4444/BAL     4459/BAL     4470/BAL     4498/BAL     4509/BAL     4571/BAL     4586/BAL     4597/BAL
      4636/BAL     4651/BAL     4662/BAL     4727/BAL     4742/BAL     4753/BAL     4792/BAL     4807/BAL
      4818/BAL     4855/BAL     4870/BAL     4881/BAL     4989/BAL     5007/BAL     5014/BAL     5020/BAL
      5044/BAL     5050/BAL     5080/BAL     5114/BAL     5148/BAL     5176/BAL     5245/BAL     5258/BAL
      5262/BAL     5275/BAL     5279/BAL     5284/BAL     5289/BAL     5302/BAL     5306/BAL     5317/BAL
      5327/BAL     5337/BAL     5353/BAL     5419/BAL     5424/BAL     5429/BAL     5433/BAL     5437/BAL
      5443/BAL     5490/BAL     5505/BAL     5520/BAL     5543/BAL     5559/BAL     5570/BAL     5628/BAL
      5652/BAL     5668/BAL     5672/BAL     5685/BAL     5696/BAL     5714/BAL     5757/BAL     5770/BAL
      5784/BAL     5817/BAL     5830/BAL     5862/BAL     5906/BAL     5932/BAL     5945/BAL     5959/BAL
      6814/BAL     6828/BAL     6835/BAL     6856/BAL     6882/BAL     6937/BAL     6954/BAL     7048/BAL
      7071/BAL     7082/BAL     7188/BAL     7208/BAL     7392/BAL     7504/BAL     7526/BAL     7540/BAL
      7553/BAL     7567/BAL     7576/BAL     7728/BAL     7732/BAL     7749/BAL     7771/BAL     7775/BAL
      7893-STW     7932/BAL
   CLRDARM         2390/BAL     2400/BAL     2410/BAL     2420/BAL     2438/BAL     2464/BAL     2480/BAL
      2498/BAL     2519/BAL     2618/BAL     2645/BAL     2657/BAL     2695/BAL     2767/BAL     2809/BAL
      2835/BAL     2880/BAL     2941/BAL     2981/BAL     3041/BAL     3114/BAL     3175/BAL     3268/BAL
      3427/BAL     3493/BAL     3609/BAL     3666/BAL     3809/BAL     3824/BAL     3843/BAL     3978/BAL
      4048/BAL     4236/BAL     4406/BAL     4531/BAL     4690/BAL     4906/BAL     5097/BAL     5212/BAL
      5402/BAL     5461/BAL     5637/BAL     5721/BAL     5986/BAL     7810/BAL     7913-STW
   CMAX            7493/STW     7518/CW      7563/CW      7582/CW      8779-DATA
   CODE            1356-CNAME
   COMNG           9935-:TSEQEQU
   COMPSPD         4079/LI      8752-DATA
   COM00           9935-:TSEQEQU
   COM01           9935-:TSEQEQU
   COM02           9935-:TSEQEQU
   COM03           9935-:TSEQEQU
   COM04           9935-:TSEQEQU
   COM05           9935-:TSEQEQU
   COM06           9935-:TSEQEQU
   COPEC           4622/LI      8760-DATA
   CORBYT          8545-DATA
   CPBCDZ          4355/LI      8698-DATA
   CRCBL           8595-DATA
   CRCDAT          8590-DATA
   CRPMAX          1821/STW     1856/STW     5386/CW      5394/LW      8552-DATA
   CRTRY           1950/STW     2071/STW     6416/LW      7285/STW     7725/LW      7748/LW      7758/CW
      7768/LW      8512-DATA
   CSECTDIC        1512-CSECT
   CSENSE          8540-DATA
   CSMEAR          6767/STW     6780/LW      8796-DATA
   DATAADDR         340-DATA
   DATASAVE        1983/STM     2037/LM      2041-RES
   DATTA            340/DATA    1519/:PROCDIC             2294-LW
   DATTA1          2295-CI
   DATTA1A         2299/BNEZ    2302-STW
   DATTA2          2296/BNEZ    2306-CI
   DATTA3          2307/BNEZ    2314-CI      2331/B
   DATTA4          2315/BEZ     2321-STW
   DATTA5          2301/B       2324/BCS     2326/BCS     2330-STW
   DATTA6          2328/B       2332-LW
   DATTA9          2305/B       2313/B       2336-B
   DCDNOTRN        4317/LI      8699-DATA
   DELSUB          7863/DATA    8833-TEXTC
   DEVPRTO         2022/STW     2024/DATA    8794-TEXTC
   DOALL           6102/BAL     6440/BAL     6450/BAL     6481/BAL     6501/BAL     6530/BAL     7306/BAL
      7422/BAL     7929-LI
   DOALL1          6104/BAL     6442/BAL     6452/BAL     6483/BAL     6503/BAL     6532/BAL     7308/BAL
      7424/BAL     7931-STW
   DPM             1281/GOTO    1409-EQU
   DQBN            1827/STW     1862/STW     1928-DATA    7041/LW      7044/LB
   ERMSG1          5891/LI      5926/DATA    8849-TEXTC
   ERMSG2          8851-TEXTC
   ERMSG3          5983/LI      8853-TEXTC
   ERREXIT         8893/STW     8899/B*      8965/B*      8966-DATA
   ERRNO1          8942/STH     8951/DATA    8971-TEXTC
   ERRNO2          8956/STW     8958/STW     8960/DATA    8972-TEXTC
   ERRNO3          8921/STH     8923/STM     8925/STW     8927/STB     8939/STB     8945/STW     8947/STB
      8962/DATA    8973-TEXTC
   ERRNO4          8920/LM      8975-TEXT
   ERRNO5          8917/LM      8976-TEXT
   ERRNO6          8911/LM      8977-TEXT
   ERRNO7          8914/LM      8978-TEXT
   ERRPNT1         3260/BAL     3414/BAL     8893-STW
   ERRPNT2         8901-LW      8964/BIR
   ERRPNT2A        8910-LCI     8936/B
   ERRPNT3         8907/BGE     8916-LCI     8933/BLE
   ERRPNT3A        8905/BE      8913-LCI     8931/BE
   ERRPNT4         8909/BGE     8919-LCI     8935/BLE
   ERRPNT5         8902/BEZ     8929-LW
   ERRPNT6         8928/B       8937-LB
   ERRPNT7         8963-MTW
   ERTMAX          1813/STW     1848/STW     3470/CW      3485/LW      8548-DATA
   ERTMIN          1815/STW     1850/STW     3468/CW      3482/LW      8549-DATA
   FLAGINC         8531-DATA
   FLGINT          8538-DATA
   FLGRG           1800/STW     1805/STW     1834/STW     3996/LW      4060/LW      4407/LW      4532/LW
      4691/LW      4907/LW      4941/LW      5243/LW      5480/LW      5742/LW      6052/LW      6625/LW
      6969/LW      7258/LW      8530-DATA
   FLG1            3294/STW     8539-DATA
   FL37IPS         1808/STW     1841/STW     8521-DATA
   FL75IPS         1810/STW     1843/STW     5889/CW      8522-DATA
   GETTIME         5233/BAL     5479/BAL     7634-STW
   GETT1           7639-LI      7672/B       7690/B
   GETT11          7637/LI      7654-LI      7717/DATA
   GETT12          7668/LI      7673-LI
   GETT13          7686/LI      7691-LI
   GETT2           7635/LI      7662-LI      7715/DATA
   GETT3           7670/LI      7680-LI
   GETT4           7688/LI      7698-LI
   HIOF0           8245/:TSEQ   9924-:TSEQEQU
   HIOF1           9924-:TSEQEQU
   HIOF2           9924-:TSEQEQU
   HIOF3           9924-:TSEQEQU
   HIOF4           9924-:TSEQEQU
   HIOF5           9924-:TSEQEQU
   HIOF6           9924-:TSEQEQU
   HIOF7           9924-:TSEQEQU
   HIOT0           9925-:TSEQEQU
   HIOT1           9925-:TSEQEQU
   HIOT2           9925-:TSEQEQU
   HIOT3           9925-:TSEQEQU
   HIOT4           9925-:TSEQEQU
   HIOT5           9925-:TSEQEQU
   HIOT6           9925-:TSEQEQU
   HIOT7           9925-:TSEQEQU
   I               1255-SET     1257/GEN     1257/GEN     1257/GEN     1257/GEN     1258-SET     1258/SET
   INITIAL1        1867/BE      1877-LW
   INITIAL2        1742/BG      1748-LCH
   INITIAL3        1751-LW      1761/BIR
   INITIAL4        1754/BG      1756/BCR     1758/BCS     1765-LI
   INITIAL5        1752/BEZ     1763/B       1770-LI
   INITIAL6        1776/BE      1784-STW
   INITIAL7        1787/BCR     1830-LI
   INITIAL8        1828/B       1863-LW
   INITIAL9        1876/B       1889-LI      1894/BIR
   INTMY           8806/XPSD    8808-DATA
   INTSVV          8803/XPSD    8805-DATA    9824/LPSD
   IOCDMSG         3077/BAL     3163/BAL     6826/BAL     6877/BAL     6918/BAL     6949/BAL     7976/BAL
      9851-STW
   IOCDMSGM        9853/STW     9855/STW     9858/STW     9860/STW     9862/DATA    9865-TEXTC
   IOCDMSGX        9851/STW     9863/B*      9864-DATA
   IRGMAX          1817/STW     1852/STW     5588/CW      5603/LW      8550-DATA
   IRGMIN          1819/STW     1854/STW     5586/CW      5608/LW      8551-DATA
   IRGTM           5557/STW     5584/STW     5598/LW      8547-DATA
   ISBF0           9932-:TSEQEQU
   ISBF1           9932-:TSEQEQU
   ISBF2           9932-:TSEQEQU
   ISBF3           9932-:TSEQEQU
   ISBF4           9932-:TSEQEQU
   ISBF5           9932-:TSEQEQU
   ISBF6           9932-:TSEQEQU
   ISBF7           9932-:TSEQEQU
   ISBT0           8255/:TSEQ   9933-:TSEQEQU
   ISBT1           8265/:TSEQ   8266/:TSEQ   8267/:TSEQ   9933-:TSEQEQU
   ISBT2           8246/:TSEQ   9933-:TSEQEQU
   ISBT3           8255/:TSEQ   8266/:TSEQ   8267/:TSEQ   9933-:TSEQEQU
   ISBT4           8244/:TSEQ   8255/:TSEQ   8265/:TSEQ   9933-:TSEQEQU
   ISBT5           9933-:TSEQEQU
   ISBT6           9933-:TSEQEQU
   ISBT7           9933-:TSEQEQU
   ITHDLR          1640-STW     1679/LI      2074/LI      2186/LI
   ITHM2           1643/STB     1645/DATA    1665-TEXTC
   ITHM3           1650/STH     1652/DATA    1666-TEXTC   7875/STH     7877/DATA
   ITHM4           1655/STW     1657/DATA    1667-TEXTC
   ITHRST          1658/LW      1663-DATA    1685/STW     2078/STW     2190/STW
   ITHSAVE         1640/STW     1659/B*      1664-DATA
   ITHSUBT         1648/LW      1662-DATA    1683/STW     7873/LW
   ITHTEST         1641/LW      1646/CW      1661-DATA    1681/STW     2076/STW     2188/STW     6459/CW
      6510/CW      6540/CW      7866/LW      7871/CW
   L               2663/LW      2675/LW
   LASTWDR         6683/STW     6860/STW*    6911/LW*     6913/STW*    8576-DATA
   LASTWDW         6679/STW     6716/LW*     6718/STW*    6786/LW*     6788/STW*    6810/LW*     6812/STW*
      6858/LW*     6908/LW*     6910/STW*    8574-DATA
   LEN              382/DATA    1520/:PROCDIC             2264-LW
   LENBUF1         8797-DATA
   LENBUF2         8798-DATA
   LENGTH          2274/STW     6656/LW      6671/LW      6697/LW      8776-DATA
   LENGTHB         8775-DATA
   LENTHADR         382-DATA
   LEN1            2265/BGZ     2271-CW
   LIMTADDR         365-DATA
   LINE3           8949/BNE     8961-BAL
   LOOPMAX         7276/STW     7379/CW      8600-DATA
   LOOPTLY         6047/STW     6412/MTW     6413/LW      7278/STW     7372/MTW     7373/LW      7988/LW
      8006/LW      8009/LW      8510-DATA
   LRCEP           4851/LI      4853/LI      8360/GEN     8674-DATA
   LRCOP           4787/LI      4789/LI      8358/GEN     8667-DATA
   LRCPK           4714/LI      4722/LI      8356/GEN     8646-DATA
   MASKBYT         6670/STW     6717/AND     6787/AND     6811/AND     6859/AND     6909/AND     6912/AND
      8781-DATA
   MAXBYT          1727/STW     4223/CW      7141/AW      7151/LW      7160/LW      7163/SW      7164/AW
      7514/LW      7545/LW      8559-DATA
   MAXREAD         1733/STW     4151/LCW     4971/LCW     6684/CW      6686/LW      8089/LW      8152/LW
      8562-DATA
   MAXREADB        1731/STW     2271/CW      2273/LW      4225/CW      5094/CW      7270/CW      7272/LW
      8561-DATA
   MAXREC          1725/STW     8560-DATA
   MESEGT          3481/STW     3484/STW     3487/STW     3489/DATA    8870-TEXTC
   MESER           3381/STW     3384/STW     3387/STW     3390/STW     3394/DATA    8876-TEXTC
   MESIRG          5600/STW     5602/STW     5605/STW     5607/STW     5610/STW     5612/STW     5614/DATA
      8857-TEXTC
   MESNCR          5382/STW     5384/DATA    8864-TEXTC
   MESSTRT         5595/STW     5597/STW     5616/DATA    8860-TEXTC
   MESTPC          5393/STW     5396/STW     5398/DATA    8862-TEXTC
   MODEFLAG        1789/CW      1798/STW     1806/STW     1832/STW     1866/CW      3201/CW      3236/CW
      3303/CW      3348/CW      4076/CW      4142/CW      4146/CW      4164/CW      4229/CW      4943/CW
      5893/CW      6088/CW      6709/CW      6724/CW      6805/CW      6867/CW      6891/CW      6899/CW
      7007/CW      7177/CW      7374/CW      8041/CW      8802-DATA    9553/CW      9558/CW
   MRTE            7537/STW     7539/STH     7548/STW     7550/STH     7552/DATA    8866-TEXTC
   MSER1           3392/DATA    3396/DATA    8874-TEXTC
   MYDELAY         3071/BAL     3140/BAL     3157/BAL     3217/BAL     3231/BAL     3327/BAL     3339/BAL
      3446/BAL     3516/BAL     3531/BAL     3545/BAL     3559/BAL     3576/BAL     3597/BAL     3625/BAL
      3640/BAL     3655/BAL     3692/BAL     3707/BAL     3721/BAL     3735/BAL     3750/BAL     3764/BAL
      3780/BAL     3796/BAL     3875/BAL     3888/BAL     3899/BAL     3910/BAL     3921/BAL     3932/BAL
      3943/BAL     3954/BAL     3965/BAL     4002/BAL     4017/BAL     4029/BAL     4097/BAL     4110/BAL
      4122/BAL     4174/BAL     4189/BAL     4201/BAL     4270/BAL     4285/BAL     4296/BAL     4324/BAL
      4335/BAL     4361/BAL     4376/BAL     4387/BAL     4447/BAL     4462/BAL     4473/BAL     4501/BAL
      4512/BAL     4574/BAL     4589/BAL     4600/BAL     4639/BAL     4654/BAL     4665/BAL     4730/BAL
      4745/BAL     4756/BAL     4795/BAL     4810/BAL     4821/BAL     4858/BAL     4873/BAL     4884/BAL
      4992/BAL     5010/BAL     5017/BAL     5026/BAL     5047/BAL     5056/BAL     5083/BAL     5248/BAL
      5261/BAL     5265/BAL     5278/BAL     5282/BAL     5287/BAL     5305/BAL     5309/BAL     5320/BAL
      5330/BAL     5341/BAL     5422/BAL     5427/BAL     5432/BAL     5436/BAL     5440/BAL     5446/BAL
      5493/BAL     5508/BAL     5545/BAL     5562/BAL     5631/BAL     5655/BAL     5671/BAL     5677/BAL
      5688/BAL     5699/BAL     5717/BAL     5760/BAL     5774/BAL     5788/BAL     5820/BAL     5833/BAL
      5865/BAL     5935/BAL     5948/BAL     5962/BAL     6455/BAL     6486/BAL     6506/BAL     6536/BAL
      6817/BAL     6831/BAL     6838/BAL     6863/BAL     6885/BAL     6940/BAL     6957/BAL     7395/BAL
      7507/BAL     7529/BAL     7543/BAL     7556/BAL     7570/BAL     7579/BAL     7731/BAL     7735/BAL
      7752/BAL     7755/BAL     7774/BAL     7778/BAL     7855-STD
   MYDELAY1        7858/B       7881-LD
   MYERROR         6471/BAL     6491/BAL     6519/BAL     6555/BAL     6563/BAL     7744/BAL     7790/BAL
      7975-STW
   MYERROR1        7984/BNE     7996-LW
   MYERROR2        7995/B       8027-LW
   MYTSTPT         7294/BAL     8039-STW
   MYTSTPTA        8111/STH     8112-LW      8115/MTW     8116/BIR     8117/BIR
   MYTSTPTB        8124/STH     8125-LW      8128/MTW     8129/BIR     8130/BIR     8133/BL
   MYTSTPTC        8137/STH     8143-STH     8146/BIR     8148/LH      8150/STH     8151/BIR
   MYTSTPTD        8141/STH     8144-AI      8145/MTW
   MYTSTPT1        8046-LI      8053/BIR
   MYTSTPT2        8047/STH     8048-LW      8051/MTW     8052/BIR
   MYTSTPT4        8057-LW      8061/BIR     8062/BIR
   MYTSTPT5        8067-LW      8072/BIR
   MYTSTPT6        8076/STH     8081-STB     8084/BIR     8086/STH     8087/BIR
   MYTSTPT7        8079/STH     8082-AI      8083/MTW
   MYTSTPT8        8042/BE      8100-LI      8107/BIR
   MYTSTPT9        8101/STH     8102-LW      8105/MTW     8106/BIR
   NEW             1281/GOTO    1286-SET
   NMLOOP          1944/STW     2068/STW     6414/CW      8513-DATA
   NOLOAD          7823/DATA    8831-TEXTC
   NOP             1368/LW      1371-NOP
   NOPKPRT         1799/STW     1804/STW     1833/STW     3997/STW     4061/STW     4259/STW     4408/STW
      4429/STW     4533/STW     4563/STW     4692/STW     4720/STW     4785/STW     4848/STW     4908/STW
      4942/STW     5244/STW     5481/STW     5743/STW     6053/STW     6626/STW     6644/STW     6970/STW
      7259/STW     8777-DATA    9551/CW      9560/CW
   NOREAD          4074/STW     4184/CW      4227/STW     8563-DATA
   NZDATA1         8046/LI      8048/LW      8603-DATA
   NZDATA2         8057/LW      8608-DATA
   NZDATA3         8067/LW      8614-DATA
   NZFLAG          6046/STW     7279/STW     7983/CW      8597-DATA
   NZPK1           8100/LI      8102/LW      8619-DATA
   NZPK2           8110/LI      8112/LW      8622-DATA
   NZPK3           8123/LI      8125/LW      8626-DATA
   NZPK4           8140/LW      8641-DATA
   NZSEQNO         7378/STW     8602-DATA
   OLD             1281/GOTO    1282-SET
   OPFLAG          6059/STW     6111/LW      8016/AW      8017/AW      8018/AW      8514-DATA
   OPMESGA         5902/DATA    8782/DATA    8843-TEXTC
   OPMESG2         8835-TEXTC
   OPMESG3         5859/DATA    8837-TEXTC
   OPMESG4         5876/DATA    8839-TEXTC
   OPMESG5         5846/DATA    8841-TEXTC
   OPMESG6         5814/DATA    8855-TEXTC
   OPMESG7         5752/STW     5754/DATA    8872-TEXTC
   OPMESG8         8783/DATA    8845-TEXTC
   OPMESG9         8784/DATA    8847-TEXTC
   OPP1            5899/LW      8782-DATA
   OPTBCD          1837/STW     1840/STW     4256/LW      4427/LW      4781/LW      4846/LW      8520-DATA
   OPTPB           1797/STW     1803/STW     4552/LW      4716/LW      4975/LW      7948/CW      8519-DATA
   OSBF0           8253/:TSEQ   8279/:TSEQ   8281/:TSEQ   9922-:TSEQEQU
   OSBF1           8249/:TSEQ   8250/:TSEQ   8251/:TSEQ   8254/:TSEQ   8258/:TSEQ   8259/:TSEQ   8273/:TSEQ
      8275/:TSEQ   8277/:TSEQ   8278/:TSEQ   8280/:TSEQ   8281/:TSEQ   9922-:TSEQEQU
   OSBF2           8275/:TSEQ   9922-:TSEQEQU
   OSBF3           8275/:TSEQ   9922-:TSEQEQU
   OSBF4           9922-:TSEQEQU
   OSBF5           9922-:TSEQEQU
   OSBF6           9922-:TSEQEQU
   OSBF7           9922-:TSEQEQU
   OSBT0           8260/:TSEQ   8262/:TSEQ   8280/:TSEQ   9923-:TSEQEQU
   OSBT1           8256/:TSEQ   8265/:TSEQ   8266/:TSEQ   8267/:TSEQ   9923-:TSEQEQU
   OSBT2           9923-:TSEQEQU
   OSBT3           9923-:TSEQEQU
   OSBT4           9923-:TSEQEQU
   OSBT5           9923-:TSEQEQU
   OSBT6           9923-:TSEQEQU
   OSBT7           9923-:TSEQEQU
   OUTMSG          7606/STB     7610/STB     7616/STW     7618/STW     7623/DATA    8886-TEXTC
   PAGE            1245/OPEN    1246-CNAME
   PATTFIX         2312/STW     6705/LW      8774-DATA
   PATTSED         2302/STW     6723/LW      8769-DATA
   PATTTK          2327/STW     6730/LW      6738/LW      8771-DATA
   PATTTS1         2333/STW     6751/LW      8772-DATA
   PATTTS2         2335/STW     6752/LW      8773-DATA
   PATTYPE         2297/STW     2308/STW     2321/STW     6702/LW      6799/CW      6888/CW      8770-DATA
   PBTSAT          3291/LI      3307/LI      4939/LI      4962/LI      8731-DATA
   PRFTALLY        6429/LW      7412/LW      7788/MTW     8507-DATA
   PRINT           1361-BAL     1367/BDR
   PROGLAST        8558-DATA
   PTCK1T          8596-DATA
   PT00            3287/LI      3300/LW      4937/LI      4945/LW      6736/LW      6744/LW      8580-DATA
   PT00T           3297/STD     3298/STD     3331/MTW     3343/MTW     3351/MTW     3372/LW      3373/AW
      3374/AW      3382/LW      3385/LW      3388/LW      8579-DATA
   PT80            3419/LI      4951/LI      8588-DATA
   PWTALLY         6423/LW      7406/LW      7742/MTW     8506-DATA
   P2FLAG          7257/STW     7313/LW      8598-DATA
   RBINT           4471/LI      8406-GEN
   RECOUT          7590/STW     7592/STH     7595/STW     7597/STH     7599/DATA    8868-TEXTC
   REDAPT          8015/LI      8810-TEXT
   REMESG1         7998/STW     8002/STW     8005/STW     8008/STW     8012/STW     8014/DATA    8878-TEXTC
   REMESG2         8020/STW     8022/STW     8024/STW     8026/DATA    8880-TEXTC
   REMESG3         6422/STW     6425/STW     6428/STW     6431/STW     6434/STW     6436/DATA    7405/STW
      7408/STW     7411/STW     7414/STW     7417/STW     7419/DATA    8882-TEXTC
   REMESG32        7987/STW     7990/STW     7992/STW     7994/DATA    8889-TEXTC
   REPOPR          4510/LI      8408-GEN
   RESETS          2966/BAL     3006/BAL     3020/BAL     7836-STD     7864/BAL
   RESLOC          3207/STW     3242/LW      3313/STW     3318/STW     3357/LW      3363/LW      8795-DATA
   RETIME          6077/STW     6409/LW      8516-DATA
   REV             1339-CNAME
   REVBRNCH        1369/STW     2227-EQU
   REVCOUNT        1336-SET     1341/DO      1345-SET     1345/SET     1350/GEN     2228/DO
   REVEND          1346/DO      1407-REV
   REVISION        1358/LW      1359/LW      1378-REV
   REVPRINT        1358-LW      2231/BAL
   REVSTART        1337-SET     1342-SET     1349/ORG
   REWONLY         6048/STW     6100/CW      6108/STW     8532-DATA
   REWORDS         6065/STW     8543-DATA
   REWRDS          8515-DATA
   RFBAD           4069/LW      4072/STW     4086/STH     4120/LI      4141/MTW     8378-GEN
   RFCC            4167/STH     4199/LI      4232/STH     8380-GEN
   RFNP            4987/STH     5054/LI      5091/STH     8382-GEN
   RFRAND          1873/STB     1884/STB     6071/STH     6534/LI      6554/LD      6562/LD      7297/STH
      7366/STH     7776/LI      7789/LD      8388-GEN
   RFRTRY          6550/BCS     6552/BCS     7768-LW
   RFRTRY2         7771-BAL     7786/BDR
   RFRTRY3         7775-BAL
   RFRTRY4         7783/B       7785/BCR     7795-MTW
   RFRTRY5         7794/B       7796-LD
   RFSPEC          1728/STH     1916/STB     7469/STB     7505/LI      8492-GEN
   RFSPEC1         1729/STH     1917/STB     7470/STB     7541/LI      8494-GEN
   RF100B          3653/LI      5151/LI      5285/LI      8384-GEN
   RF16B           5291/LI      5354/LI      5525/LI      8386-GEN
   RF95B           3919/LI      8372-GEN
   RF95BS          3963/LI      8376-GEN
   RF96B           3897/LI      5339/LI      5786/LI      5960/LI      8392-GEN
   RF97B           3941/LI      8374-GEN
   RLRCEP          4882/LI      8404-GEN
   RLRCOP          4819/LI      8402-GEN
   RLRCPK          4754/LI      8400-GEN
   RPBT            1896/LI      4598/LI      8398-GEN
   RRTT            7503/STW     7530/MTW     7531/LW      8780-DATA
   RSPKEC          4627/STH     4663/LI      4687/STW     8416-GEN
   RTRYRT          8526-DATA
   RTRYSVE         7727/STD     7761/LD      7770/STD     7796/LD      8524-DATA
   RWTLP           2898/BAL     2958/BAL     2998/BAL     3012/BAL     3040/BAL     3066/BAL     3084/BAL
      3113/BAL     3135/BAL     3151/BAL     3170/BAL     3174/BAL     3212/BAL     3225/BAL     3267/BAL
      3299/BAL     3333/BAL     3510/BAL     3527/BAL     3591/BAL     3608/BAL     3620/BAL     3687/BAL
      3703/BAL     3775/BAL     3791/BAL     3807/BAL     4927/BAL     5096/BAL     5417/BAL     5428/BAL
      5441/BAL     5626/BAL     5633/BAL     5651/BAL     5720/BAL     5816/BAL     6105/BAL     6443/BAL
      6797/BAL     6848/BAL     6853/BAL     6932/BAL     6968/BAL     7035/BAL     7047/BAL     7081/BAL
      7218/BAL     7309/BAL     7425/BAL     7496/BAL     7809-STW
   RWTLP1          7817-LW
   RWTLP2          7820/BCS     7827-LI
   SAVDEV          1759/STW     2018/LW      2184/LW      6420/LW      7389/LW      7403/LW      7933/LW
      8555-RES
   SAVDEVR         8557-RES
   SAVEON          8170/STD     8216/LD      8231-DATA
   SAVEON1         8171/STD     8217/LD      8232-DATA
   SAVEON2         8172/STD     8218/LD      8233-DATA
   SAVESEED        6056/STW     7996/LW      7999/LW      8542-DATA
   SAVESIX         2016/STW     2017/LW      2029/MTW     2030/LW      2042-DATA    2182/STW     2183/LW
      2209/MTW     2210/LW
   SAVE45          7836/STD     7849/LD      7865/STD     7878/LD      8529-DATA
   SAVE6           8064/STW     8074/LW      8119/STW     8135/LW      8601-DATA
   SAVIT           7975/STW     8027/LW      8525-DATA
   SAVMODEL        1784/STW     8890-DATA
   SAVNUMB         1762/STW     2013/LCW     2031/CW      2211/CW      6419/LCW     7388/LCW     7402/LCW
      7930/LCW     8556-DATA
   SBF1            2921/LI      7072/LI      8424-GEN
   SBR1            2900/LI      8422-GEN
   SB100           3543/LI      3557/LI      3595/LI      3778/LI      4283/LI      4322/LI      4374/LI
      4460/LI      4499/LI      4587/LI      4652/LI      4743/LI      4808/LI      4871/LI      8430-GEN
   SB100B          5280/LI      5328/LI      8418-GEN
   SB16B           5276/LI      5303/LI      5318/LI      5506/LI      5560/LI      8420-GEN
   SFR1            3014/LI      8426-GEN
   SF100           3529/LI      3574/LI      3794/LI      5444/LI      5843/LI      8428-GEN
   SF16CC          5573/LI      8436-GEN
   SIOF0           9928-:TSEQEQU
   SIOF1           9928-:TSEQEQU
   SIOF2           9928-:TSEQEQU
   SIOF3           9928-:TSEQEQU
   SIOF4           9928-:TSEQEQU
   SIOF5           9928-:TSEQEQU
   SIOF6           9928-:TSEQEQU
   SIOF7           9928-:TSEQEQU
   SIOT0           9929-:TSEQEQU
   SIOT1           9929-:TSEQEQU
   SIOT2           9929-:TSEQEQU
   SIOT3           9929-:TSEQEQU
   SIOT4           9929-:TSEQEQU
   SIOT5           9929-:TSEQEQU
   SIOT6           9929-:TSEQEQU
   SIOT7           9929-:TSEQEQU
   SMEARPTA        7944/B       7953-STW
   SMEARPTR        3061/BAL     3130/BAL     3196/BAL     3511/BAL     3872/BAL     3995/BAL     4059/BAL
      5113/BAL     5741/BAL     7945-STW
   SMEARSP         3302/BAL     5236/BAL     7943-STW
   SPBRAND         3638/LI      3886/LI      3908/LI      3930/LI      3952/LI      4015/LI      4108/LI
      4187/LI      5008/LI      5024/LI      5081/LI      5686/LI      5697/LI      5715/LI      5772/LI
      5946/LI      6484/LI      6490/LD      6829/LI      6883/LI      6938/LI      6948/LD      7527/LI
      7554/LI      7577/LI      7729/LI      7750/LI      7772/LI      8454-GEN
   SPFLAG          3289/STW     3376/MTW     3422/LW      3573/STW     3583/MTW     3585/LW      3604/MTW
      3606/LW      3871/STW     3895/MTW     3906/MTW     3917/MTW     3928/MTW     3939/MTW     3950/MTW
      3961/MTW     3972/MTW     3973/LW      3994/STW     4013/STW     4024/MTW     4036/MTW     4042/MTW
      4043/LW      4094/STW     4117/MTW     4129/MTW     4134/MTW     4135/LW      4171/STW     4196/MTW
      4208/MTW     4214/MTW     4215/LW      4281/STW     4292/MTW     4303/MTW     4309/MTW     4310/LW
      4320/STW     4331/MTW     4342/MTW     4348/MTW     4349/LW      4372/STW     4383/MTW     4394/MTW
      4400/MTW     4401/LW      4458/STW     4467/MTW     4478/MTW     4486/MTW     4487/LW      4497/STW
      4508/MTW     4519/MTW     4525/MTW     4526/LW      4585/STW     4594/MTW     4605/MTW     4613/MTW
      4614/LW      4650/STW     4661/MTW     4672/MTW     4678/MTW     4679/LW      4741/STW     4752/MTW
      4763/MTW     4769/MTW     4770/LW      4806/STW     4815/MTW     4826/MTW     4834/MTW     4835/LW
      4869/STW     4878/MTW     4891/MTW     4897/MTW     4898/LW      5022/STW     5033/MTW     5034/LW
      5052/STW     5063/MTW     5069/MTW     5070/LW      5674/STW     5684/MTW     5695/MTW     5706/MTW
      5707/LW      8599-DATA
   SPFRAND         5045/LI      6504/LI      6518/LD      6955/LI      7568/LI      8456-GEN
   STDBCD          1811/STW     1846/STW     4254/LW      4425/LW      4783/LW      4844/LW      8517-DATA
   STDELAY         7855/STD     7881/LD      8528-DATA
   STDPB           1809/STW     1844/STW     4550/LW      4718/LW      4973/LW      7946/CW      8518-DATA
   STOPDIF         1825/STW     1860/STW     5370/SW      8575-DATA
   STOPI           7647/LW      7712-XPSD
   STOPIT          7638/STW     7669/STW     7687/STW     7712/XPSD    7717-DATA
   STOP2           7644/LW      7713-XPSD
   STOP2T          7636/STW     7671/STW     7689/STW     7713/XPSD    7715-DATA
   STRTME          5537/STW     5579/SW      5593/LW      8541-DATA
   ST1155          2225/STW     2247/B*      7587/STW     7625/BLE*    7634/STW     7708/BAL*    8569-DATA
   ST15            1716/STW     1747/B*      1769/B*      1783/B*      1926/B*      7809/STW     7829/B*
      7837/STW     7850/B*      8534-DATA
   ST151           7893/STW     7900/B*      7913/STW     7920/B*      7943/STW     7945/STW     7968/B*
      8546-DATA
   ST1512          7931/STW     7935/B*      8533-DATA
   SVESEED         8511-DATA
   SVE15           8169/STW     8219/B*      8229-DATA
   SYTDEVA         1561-DATA    1751/LW      1863/LW
   TDVF0           8255/:TSEQ   8260/:TSEQ   8261/:TSEQ   8262/:TSEQ   8265/:TSEQ   8268/:TSEQ   8277/:TSEQ
      9926-:TSEQEQU
   TDVF1           9926-:TSEQEQU
   TDVF2           9926-:TSEQEQU
   TDVF3           8248/:TSEQ   8273/:TSEQ   9926-:TSEQEQU
   TDVF4           8256/:TSEQ   8266/:TSEQ   9926-:TSEQEQU
   TDVF5           9926-:TSEQEQU
   TDVF6           8264/:TSEQ   9926-:TSEQEQU
   TDVF7           9926-:TSEQEQU
   TDVT0           9927-:TSEQEQU
   TDVT1           8253/:TSEQ   8254/:TSEQ   8274/:TSEQ   8279/:TSEQ   9927-:TSEQEQU
   TDVT2           8269/:TSEQ   9927-:TSEQEQU
   TDVT3           8251/:TSEQ   8257/:TSEQ   8258/:TSEQ   8259/:TSEQ   8274/:TSEQ   8278/:TSEQ   8280/:TSEQ
      8281/:TSEQ   9927-:TSEQEQU
   TDVT4           8267/:TSEQ   8271/:TSEQ   9927-:TSEQEQU
   TDVT5           8248/:TSEQ   8249/:TSEQ   8250/:TSEQ   8257/:TSEQ   8269/:TSEQ   8272/:TSEQ   8278/:TSEQ
      9927-:TSEQEQU
   TDVT6           8263/:TSEQ   8274/:TSEQ   9927-:TSEQEQU
   TDVT7           9927-:TSEQEQU
   TESTNO          3257/STW     3411/STW     8940/LW      8968-DATA
   TEXTADR         1360/STW     1362-DATA
   TIMEOUT         7060/DATA    7094/DATA    7217/DATA    7846/DATA    8827-TEXTC
   TIMEOUT1        7868/STB     7870/DATA    8829-TEXTC
   TIME1           7667/STW     8570-DATA
   TIME2           5300/MW      5362/MW      5534/MW      7685/STW     8571-DATA
   TIME3           5578/MW      7703/STW     8572-DATA
   TIOF0           8244/:TSEQ   8245/:TSEQ   8246/:TSEQ   8247/:TSEQ   8276/:TSEQ   8277/:TSEQ
      9920-:TSEQEQU
   TIOF1           8252/:TSEQ   8253/:TSEQ   8270/:TSEQ   9920-:TSEQEQU
   TIOF2           8252/:TSEQ   8253/:TSEQ   9920-:TSEQEQU
   TIOF3           8270/:TSEQ   9920-:TSEQEQU
   TIOF4           8251/:TSEQ   8253/:TSEQ   8254/:TSEQ   8256/:TSEQ   8258/:TSEQ   8260/:TSEQ   8261/:TSEQ
      8262/:TSEQ   8266/:TSEQ   8267/:TSEQ   8268/:TSEQ   8273/:TSEQ   8276/:TSEQ   8278/:TSEQ   8279/:TSEQ
      9920-:TSEQEQU
   TIOF5           8252/:TSEQ   8253/:TSEQ   8270/:TSEQ   8276/:TSEQ   9920-:TSEQEQU
   TIOF6           8252/:TSEQ   8253/:TSEQ   8270/:TSEQ   8276/:TSEQ   9920-:TSEQEQU
   TIOF7           9920-:TSEQEQU
   TIOT0           9921-:TSEQEQU
   TIOT1           9921-:TSEQEQU
   TIOT2           8270/:TSEQ   9921-:TSEQEQU
   TIOT3           8276/:TSEQ   8277/:TSEQ   9921-:TSEQEQU
   TIOT4           8244/:TSEQ   8247/:TSEQ   8249/:TSEQ   8250/:TSEQ   8252/:TSEQ   8255/:TSEQ   8257/:TSEQ
      8259/:TSEQ   8265/:TSEQ   8269/:TSEQ   8272/:TSEQ   8277/:TSEQ   8280/:TSEQ   8281/:TSEQ
      9921-:TSEQEQU
   TIOT5           9921-:TSEQEQU
   TIOT6           9921-:TSEQEQU
   TIOT7           9921-:TSEQEQU
   TLOOP           7491/STW     7517/LW      7535/LW      7562/LW      7580/MTW     7581/LW      7593/LW
      8778-DATA
   TNS1D           8564-DATA
   TNS10           8566-DATA
   TNS20           8565-DATA
   TOL800          5897/LI      5918/CW      8785-DATA
   TOL8001         5895/LI      8789-DATA
   TPDMP           3827/LI      8496-GEN
   TPDMP1          1919/STB     1920/STB     1921/STB     8498-GEN
   TRBCD           4294/LI      8410-GEN
   TRBCDWT         4333/LI      8412-GEN
   TRBCDZ          4385/LI      8414-GEN
   TRFBC           1889/LI      1915/LB      3152/STH     3155/LI      3162/LD      3172/MTW     6648/LB
      7468/LB      8368-GEN
   TRFDC48         1912/LW      1914/STW     4027/LI      8394-GEN
   TRFTALLY        6432/LW      7415/LW      7782/MTW     7795/MTW     8508-DATA
   TRF100B         3229/LI      3337/LI      8370-GEN
   TRWAI           2810/LI      2836/LI      5177/LI      8312-GEN
   TRWOF           5863/LI      8458-GEN
   TRWOL           2793/LI      7811/LI      8310-GEN
   TSC1D           8537-DATA
   TSC2D           8567-DATA
   TSE             2588/LI      5669/LI      8298-GEN
   TSECC           2711/LI      8300-GEN
   TSEQ001         2579/DATA    8244-:TSEQ
   TSEQ002         2609/DATA    8245-:TSEQ
   TSEQ003         3105/DATA    8246-:TSEQ
   TSEQ004         8247-:TSEQ
   TSEQ005         5880/DATA    8248-:TSEQ
   TSEQ006         2912/DATA    8249-:TSEQ
   TSEQ007         2933/DATA    8250-:TSEQ
   TSEQ008         2973/DATA    8251-:TSEQ
   TSEQ009         8252-:TSEQ
   TSEQ010         3073/DATA    3901/DATA    4031/DATA    4124/DATA    4203/DATA    4298/DATA    4389/DATA
      4475/DATA    4602/DATA    4656/DATA    4667/DATA    4747/DATA    4758/DATA    4812/DATA    4823/DATA
      4875/DATA    4886/DATA    5058/DATA    5343/DATA    5790/DATA    5964/DATA    6873/DATA    6945/DATA
      8253-:TSEQ
   TSEQ011         3518/DATA    3533/DATA    3547/DATA    3578/DATA    3599/DATA    3752/DATA    3877/DATA
      3890/DATA    3912/DATA    3934/DATA    3956/DATA    4004/DATA    4019/DATA    4099/DATA    4112/DATA
      4176/DATA    4191/DATA    4272/DATA    4287/DATA    4326/DATA    4363/DATA    4378/DATA    4449/DATA
      4464/DATA    4503/DATA    4576/DATA    4591/DATA    4641/DATA    4732/DATA    4797/DATA    4860/DATA
      4997/DATA    5028/DATA    5139/DATA    5250/DATA    5267/DATA    5311/DATA    5322/DATA    5332/DATA
      5495/DATA    5510/DATA    5547/DATA    5564/DATA    5762/DATA    5776/DATA    5937/DATA    5950/DATA
      6822/DATA    8254-:TSEQ
   TSEQ012         3159/DATA    3923/DATA    8255-:TSEQ
   TSEQ013         8256-:TSEQ
   TSEQ014         3561/DATA    8257-:TSEQ
   TSEQ015         3627/DATA    3694/DATA    3709/DATA    3723/DATA    3766/DATA    8258-:TSEQ
   TSEQ016         3782/DATA    3798/DATA    8259-:TSEQ
   TSEQ017         3945/DATA    8260-:TSEQ
   TSEQ018         8261-:TSEQ
   TSEQ019         3967/DATA    8262-:TSEQ
   TSEQ020         5679/DATA    5690/DATA    8263-:TSEQ
   TSEQ021         5701/DATA    8264-:TSEQ
   TSEQ022         8265-:TSEQ
   TSEQ023         4337/DATA    4514/DATA    8266-:TSEQ
   TSEQ024         8267-:TSEQ
   TSEQ025         8268-:TSEQ
   TSEQ026         5822/DATA    5835/DATA    8269-:TSEQ
   TSEQ027         5867/DATA    8270-:TSEQ
   TSEQ028         8271-:TSEQ
   TSEQ029         8272-:TSEQ
   TSEQ030         2511/DATA    8273-:TSEQ
   TSEQ031         8274-:TSEQ
   TSEQ032         8275-:TSEQ
   TSEQ033         3835/DATA    8276-:TSEQ
   TSEQ034         2445/DATA    2472/DATA    8277-:TSEQ
   TSEQ035         3737/DATA    8278-:TSEQ
   TSEQ036         3142/DATA    3219/DATA    8279-:TSEQ
   TSEQ037         3657/DATA    8280-:TSEQ
   TSEQ038         3642/DATA    8281-:TSEQ
   TSE1            3444/LI      5015/LI      5259/LI      5434/LI      6836/LI      7753/LI      8294-GEN
   TSE3            2497/LI      8296-GEN
   TSFB            3718/LI      3732/LI      8434-GEN
   TSFF            3705/LI      8432-GEN
   TSNS10          8536-DATA
   TSNS20          8568-DATA
   TSNS4           8304-GEN
   TST0             193/DATA    1515/:PROCDIC             1941-LW
   TST0A           1951-LW      1964/B
   TST0ADDR         193-DATA    1408/USECT
   TST001          1956/LI      1959-LI
   TST002          1959/LI      1962-BAL
   TST1             213/DATA    1516/:PROCDIC             1684/LI      1983-STM     2036/B
   TST1ADDR         213-DATA
   TST101          1958/B       2004/B       2013-LCW
   TST101A         1995/BG      2006-STW
   TST101B         1988/BGE     1997/BG      1999/BG      2011-STW
   TST101C         1993/B       2000-STW
   TST101D         1986/BNEZ    1994-CI
   TST102          2017-LW      2032/BCS
   TST103          1957/STH     2002/LI      2003/STH     2033-B
   TST2             231/DATA    1517/:PROCDIC             2064-LW      2077/LI      2091/B
   TST2ADDR         231-DATA
   TST201          2066/BGZ     2068-STW
   TST201A         2065/BLZ     2081-STW
   TST201B         2070/BLZ     2086-STW
   TST202          1961/B       2071-STW
   TST203          1960/STH     2072/LI      2073/STH     2088-B       6446/B
   TST3             239/DATA    1518/:PROCDIC             2181-LI      2189/LI      2212/BCS     2215/B
   TST3ADDR         239-DATA
   TST3RF          1874/STB     1883/STB     6651/STB     6699/STH     6861/LI      6876/LD      6917/LD
      7036/LI      8390-GEN
   TST3WRT         6650/STB     6698/STH     6706/LB      6815/LI      6825/LD      6896/LB      8346-GEN
   TST31            246/DATA    2193/BEZ     6625-LW
   TST31ADR         246-DATA
   TST310A         6778-LI      6784/BIR     6785/BDR
   TST3101A        6659/BCR     6665-LW
   TST3101B        6660/BE      6667-LW
   TST3101C        6662/BE      6664/B       6666/B       6668/B       6669-LW
   TST3102         6628/BGEZ    6635-LW      6655/B
   TST3103         6636/BGZ     6639-LW
   TST3104         6684-CW
   TST3105         6704/BNEZ    6720-CI
   TST3107         6721/BNEZ    6730-LW
   TST3108         6733/BL      6736-LW
   TST3109         6741/BL      6744-LW
   TST3109A        6748-LI      6770/BL
   TST3110         6751-LW      6766/BIR
   TST3111         6719/B       6729/B       6789-CW
   TST3112         6790/BGE     6797-BAL     6847/BL
   TST3112A        6814-BAL     6834/BL      6839/B
   TST3114         6823/B       6840-AI
   TST3115         6820/BCS     6849-CW
   TST3116         6792/BEZ     6795/B       6850/BNE     6855-LI      6886/B       6929/BL
   TST3117         6867-CW
   TST3117A        6871/BCR     6874/B       6881/BE      6888-CW      6889/BNE
   TST3117B        6898/BE      6914-BAL
   TST3118         6915/B       6922-AI
   TST3119         6794/BE      6866/BCS     6931/BNE     6935-LI      6958/B       6967/BL
   TST3120         6944-BAL
   TST3120A        6946/B       6953/BE      6960-AI
   TST3122         6851/B       6933/B       6943/BCS     6968-BAL
   TST32            266/DATA    2195/BEZ     7001-LI
   TST32ADR         266-DATA
   TST32RF         7006/LW      7015/STW     7083/LI      8464-GEN     8466/GEN
   TST32W          7005/LW      7014/STW     7049/LI      8460-GEN     8462/GEN
   TST3201         7008/BE      7012-AND
   TST3202         7017/BGE     7047-BAL     7058/BCS     7061/B       7068/B       7070/B
   TST3202A        7053/BNEZ    7063-TDV
   TST3202C        7026/BE      7034-HIO     7040/BCS
   TST3202D        7036-LI      7046/B
   TST3203         7021/BEZ     7071-BAL     7080/B       7104/BE      7107/BE
   TST3205         7019/BEZ     7081-BAL     7108/B
   TST3206         7024/BE      7079/BCS     7082-BAL     7095/B       7101/B
   TST3206A        7087/BNEZ    7096-TDV
   TST3207         7092/BCS     7103-CW      8808/DATA
   TST33            278/DATA    2197/BEZ     7132-LW
   TST33ADR         278-DATA
   TST33R          7154/STW     7169/STW     7184/STW     7189/LI      8470-GEN
   TST33S          7209/LI      8468-GEN
   TST3301         7133/BLEZ    7138/B       7146-STW
   TST3302         7144/BGE     7150-LI      7174/B
   TST3303         7160-LW      7166/BIR
   TST3304         7162/BGE     7167-AND
   TST3306         7171/BEZ     7176-LI
   TST3309         7188-BAL     7213/B
   TST3310         7193/B       7196-TDV
   TST3311         7195/B       7202/B       7215-HIO
   TST34            287/DATA    2199/BEZ     7249-LW
   TST34ADR         287-DATA
   TST3401         7251/BL      7257-STW
   TST3403         7306-BAL
   TST3404         7308-BAL     7311/BIR
   TST3405         7313-LW      7380/BLE
   TST3406         7314/BEZ     7316/B       7323-LI
   TST3407         7317/B       7333-LI
   TST3408         7318/B       7343-LI
   TST3408A        7319/B       7353-LI
   TST3409         7320/B       7357-LI
   TST3410         7332/B       7342/B       7352/B       7356/B       7360/B       7363-LH
   TST3411         7424-BAL     7427/BIR
   TST3412         7403-LW      7421/BIR
   TST3413         7286/LI      7382-CW
   TST3413A        7384/BCR     7386/BCS     7401-LI
   TST35            300/DATA    2201/BEZ     7461-LW
   TST35ADR         300-DATA
   TST3501         7473/BL      7479-LW      7483/B       7490/B
   TST3502         7480/BGZ     7484-LW
   TST3503         7486/BL      7491-STW
   TST3504         7497-LW      7583/BLE
   TST3505         7502-LI      7533/BL      7566/BE
   TST3507         7501/BCS     7562-LW
   TST3508         7499/BE      7576-BAL
   TST3509         7524/BCR     7574/B       7580-MTW
   TST3510         7512/BCS     7560/B       7573/BCS     7584-WAITPROC
   TST3511         7522/BAL     7559/BAL     7587-STW
   TST3512         7604/BLE     7609-AI
   TST3513         7608/B       7614-LW      7621/BIR
   TST3514         7603-CI      7626/B
   TST36           2207-CW      6971/B       7110/B       7214/B       7219/B       7428/B       7585/B
   TST37           2208/BNE     2213-BAL
   TWBC            1905/LI      1918/LB      3067/STH     3069/LI      3076/LD      3086/MTW     3088/CH
      6649/LB      8318-GEN
   TWBCD           4268/LI      8364-GEN
   TWBCDZ          4359/LI      8366-GEN
   TWBK            2730/CI      8302-GEN
   TWCREP          5263/LI      5307/LI      5491/LI      5542/LI      8342-GEN
   TWDC02          4000/LI      8328-GEN
   TWNP            4986/STH     4990/LI      5088/LH      5090/STH     8336-GEN
   TWRCC           2740/LI      2759/CI      8306-GEN
   TWRTRY          6466/BCS     7725-LW
   TWRTRY2         7728-BAL     7740/BDR
   TWRTRY3         7732-BAL     7756/B
   TWRTRY4         7738/BCR     7758-CW
   TWRTRY5         7761-LD
   TWRUE           2658/LI      8352-GEN
   TWR1            2437/LI      8288-GEN
   TWR2            2465/LI      8290-GEN
   TWR3            2559/LI      2620/LI      8292-GEN
   TWTALLY         6050/STW     6426/LW      7282/STW     7409/LW      7760/MTW     8505-DATA
   TWTM            2960/LI      3000/LI      3623/LI      3690/LI      3762/LI      5425/LI      7393/LI
      8314-GEN
   TWTM3           5831/LI      8316-GEN
   TW1B            3448/LI      8324-GEN
   TW1BCE          5420/LI      5430/LI      5438/LI      8326-GEN
   TW100B          3138/LI      3215/LI      3325/LI      3514/LI      3748/LI      5818/LI      8322-GEN
   TW1000          5115/LI      5149/LI      5179/LI      5653/LI      5675/LI      5907/LI      8340-GEN
   TW16B           5629/LI      8338-GEN
   TW64            3091/LI      8320-GEN
   T1ST0102        2383/BCS     2390-BAL     2399/B       2409/B
   T1ST0103        2393/B       2400-BAL
   T1ST0104        2403/B       2410-BAL     2419/B
   T1ST0105        2413/B       2421-B
   T1ST0201        2446/B       2453-HIO
   T1ST0202        2456/BCR     2463-LW      2479/B
   T1ST0203        2473/B       2480-BAL
   T1ST0302        2500/B       2507-LI
   T1ST0304        2512/B       2519-BAL
   T1ST0702        2562/B       2569-LI
   T1ST0703        2571/B       2578-BAL
   T1ST0704        2581/B       2588-LI      2598/B       2607/B       2616/B
   T1ST0705        2592/B       2599-LI
   T1ST0706        2601/B       2608-BAL
   T1ST0710        2610/B       2618-BAL     2635/B       2644/B
   T1ST0711        2629/BCS     2636-TIO
   T1ST0712        2638/BCR     2645-BAL
   T1ST0802        2665/BEZ     2672-LI
   T1ST0803        2677/BEZ     2684-LI
   T1ST0804        2688/B       2695-BAL
   T1ST0902        2713/B       2720-LI
   T1ST0903        2722/B       2729-TIO
   T1ST0904        2731/BEZ     2738-BAL     2748/B       2757/B       2766/B
   T1ST0905        2742/B       2749-LI
   T1ST0906        2752/B       2758-TIO
   T1ST0907        2760/BEZ     2767-BAL
   T1ST1102        2795-TIO     2798/BCS
   T1ST1103        2802/BCS     2809-BAL     2823/B       2834/B
   T1ST1104        2814-TIO
   T1ST1105        2817/BCS     2824-HIO
   T1ST1106        2828/BEZ     2835-BAL     2849/B       2859/B       2879/B
   T1ST1107        2843/BCS     2850-AIO
   T1ST1108        2853/BCS     2860-TIO     2869/B
   T1ST1109        2863/BCR     2870-LW
   T1ST1110        2873/BCS     2880-BAL
   T1ST1203        2899-BAL     2910/B       2919/B
   T1ST1204        2904/B       2911-BAL
   T1ST1205        2913/B       2920-BAL     2931/B       2940/B
   T1ST1206        2925/B       2932-BAL
   T1ST1207        2934/B       2941-BAL
   T1ST1302        2964/B       2972-BAL
   T1ST1303        2974/B       2981-BAL
   T1ST1401        3004/B       3012-BAL
   T1ST1402        3018/B       3026-TIO
   T1ST1403        3031/B       3033/BCR     3040-BAL
   T1ST1502        3068-BAL     3085/B       3089/BNE
   T1ST1503        3072-BAL
   T1ST1504        3074/B       3083/B       3086-MTW
   T1ST1505        3090-BAL     3101/B       3112/B
   T1ST1506        3095/B       3102-LI
   T1ST1507        3106/B       3113-BAL
   T1ST1602        3135-BAL
   T1ST1603        3137-BAL     3149/B       3150/BIR
   T1ST1604        3141-BAL
   T1ST1605        3143/B       3150-BIR
   T1ST1606        3151-BAL
   T1ST1607        3154-BAL     3171/B       3173/BIR
   T1ST1608        3158-BAL
   T1ST1609        3160/B       3169/B       3172-MTW
   T1ST18M         3258/LI      3412/LI      8979-TEXTC
   T1ST1802        3212-BAL
   T1ST1803        3214-BAL     3224/BIR
   T1ST1804        3218-BAL
   T1ST1805        3220/B       3224-BIR
   T1ST1806        3227-BAL     3249/BIR
   T1ST1807        3233-BAL
   T1ST1808        3234/B       3249-BIR
   T1ST1809        3261/B       3265-LI
   T1ST1901        3295-LI      3421/BG
   T1ST1902        3304/BNE     3316-LW
   T1ST1903        3290/STH     3300-LW      3417/MTW     3420/CH
   T1ST1904        3292/STH     3307-LI      3418/MTW
   T1ST1905        3357-LW
   T1ST1906        3324-BAL     3332/BIR
   T1ST1907        3328-TIO
   T1ST1908        3331-MTW
   T1ST1909        3330/BCR     3332-BIR
   T1ST1910        3335-BAL     3370/BIR
   T1ST1911        3340-TIO
   T1ST1912        3343-MTW
   T1ST1913        3356/BE      3363-LW
   T1ST1914        3351-MTW
   T1ST1915        3346/B       3362/B       3370-BIR
   T1ST1916        3375/BEZ     3417-MTW
   T1ST1917        3354-LI      3369/BIR
   T1ST2001        3447-BAL     3466/BIR
   T1ST2002        3468-CW
   T1ST2003        3469/BL      3475/B       3477-BAL
   T1ST2004        3471/BL      3493-BAL
   T1ST2005        3456/BCS     3460-XW
   T1ST2101        3513-BAL     3525/B       3526/BIR
   T1ST2102        3517-BAL
   T1ST2103        3519/B       3526-BIR     3540/B       3554/B       3568/B
   T1ST2104        3532-BAL
   T1ST2105        3534/B       3542-BAL
   T1ST2107        3546-BAL
   T1ST2108        3548/B       3556-BAL
   T1ST2109        3562/B       3570-LI      3592/B
   T1ST2110        3560-BAL
   T1ST2111        3571-BAL     3584/BIR
   T1ST2112        3579/B       3584-BIR     3607/BNEZ
   T1ST2113        3577-BAL
   T1ST2114        3586/BEZ     3594-BAL     3605/BIR
   T1ST2116        3598-BAL
   T1ST2117        3541/B       3555/B       3569/B       3590/B       3600/B       3605-BIR
   T1ST2201        3622-BAL     3634/B       3635/BIR
   T1ST2203        3626-BAL
   T1ST2204        3628/B       3635-BIR
   T1ST2205        3637-BAL     3650/BIR
   T1ST2206        3643/B       3650-BIR
   T1ST2207        3652-BAL     3665/BIR
   T1ST2208        3658/B       3665-BIR
   T1ST2301        3689-BAL     3701/B       3702/BIR
   T1ST2303        3693-BAL
   T1ST2304        3695/B       3702-BIR     3716/B       3730/B       3744/B
   T1ST2306        3708-BAL
   T1ST2307        3710/B       3718-LI
   T1ST2309        3722-BAL
   T1ST2310        3724/B       3732-LI
   T1ST2312        3736-BAL
   T1ST2313        3738/B       3746-LI
   T1ST2314        3747-BAL     3759/B       3760/BIR     3776/B       3792/B       3808/B
   T1ST2316        3751-BAL
   T1ST2317        3753/B       3760-BIR
   T1ST2319        3765-BAL
   T1ST2320        3767/B       3777-BAL
   T1ST2322        3781-BAL
   T1ST2323        3783/B       3793-BAL
   T1ST2325        3797-BAL
   T1ST2326        3717/B       3731/B       3745/B       3774/B       3790/B       3799/B       3806/B
      3809-BAL
   T1ST2402        3827-LI      3833/BDR
   T1ST2403        3836/B       3843-BAL
   T1ST2603        3876-BAL
   T1ST2604        3878/B       3885-BAL
   T1ST2606        3889-BAL
   T1ST2607        3891/B       3896-BAL
   T1ST2609        3900-BAL
   T1ST2610        3902/B       3907-BAL
   T1ST2612        3911-BAL
   T1ST2613        3913/B       3918-BAL
   T1ST2615        3922-BAL
   T1ST2616        3924/B       3929-BAL
   T1ST2618        3933-BAL
   T1ST2619        3935/B       3940-BAL
   T1ST2621        3944-BAL
   T1ST2622        3946/B       3951-BAL
   T1ST2624        3955-BAL
   T1ST2625        3957/B       3962-BAL
   T1ST2627        3966-BAL     3968/B
   T1ST2628        3974/BEZ     3978-BAL
   T1ST2703        4003-BAL
   T1ST2704        4005/B       4014-BAL
   T1ST2706        4018-BAL
   T1ST2708        4020/B       4025-BAL
   T1ST2709        4030-BAL
   T1ST2710        4032/B       4037-BAL     4038/B
   T1ST2711        4044/BEZ     4048-BAL
   T1ST2801        4092-BAL     4106/B       4139/B       4145/BIR
   T1ST2803        4098-BAL
   T1ST2804        4100/B       4107-BAL
   T1ST2806        4111-BAL
   T1ST2808        4113/B       4118-BAL
   T1ST2810        4123-BAL
   T1ST2811        4125/B       4130-BAL
   T1ST2812        4131/B       4136/BEZ     4140-MTW
   T1ST2813        4169-BAL     4183/B       4219/B       4235/B
   T1ST2815        4175-BAL
   T1ST2816        4177/B       4184-CW
   T1ST2818        4190-BAL
   T1ST2822        4192/B       4197-BAL
   T1ST2824        4202-BAL
   T1ST2825        4204/B       4209-BAL
   T1ST2828        4185/BEZ     4210/B       4216/BEZ     4220-LW
   T1ST2829        4226/BCS     4228-STH
   T1ST2830        4224/BCS     4236-BAL
   T1ST2901        4267-BAL     4279/B       4315/BIR
   T1ST2902        4273/B       4280-LI      4314/B
   T1ST2903        4288/B       4293-BAL
   T1ST2904        4299/B       4304-BAL     4305/B
   T1ST2905        4311/BEZ     4321-BAL     4353/B
   T1ST2906        4327/B       4332-BAL
   T1ST2907        4338/B       4343-BAL     4344/B
   T1ST2908        4350/BEZ     4355-LI      4370/B
   T1ST2909        4364/B       4373-BAL     4405/B
   T1ST2910        4379/B       4384-BAL
   T1ST2911        4390/B       4395-BAL     4396/B
   T1ST2912        4257/BEZ     4402/BEZ     4406-BAL
   T1ST3001        4444-BAL     4456/B       4492/BIR
   T1ST3002        4450/B       4459-BAL     4491/B
   T1ST3003        4465/B       4470-BAL
   T1ST3004        4476/B       4481-BAL     4482/B
   T1ST3005        4488/BEZ     4492-BIR
   T1ST3006        4498-BAL     4530/B
   T1ST3007        4504/B       4509-BAL
   T1ST3008        4515/B       4520-BAL     4521/B
   T1ST3009        4428/BEZ     4527/BEZ     4531-BAL
   T1ST3101        4551/BNEZ    4554-LI
   T1ST3102        4571-BAL     4583/B       4619/BIR
   T1ST3103        4577/B       4586-BAL     4618/B
   T1ST3104        4592/B       4597-BAL
   T1ST3105        4603/B       4608-BAL     4609/B
   T1ST3106        4615/BEZ     4619-BIR
   T1ST3107        4628-LW      4689/BDR
   T1ST3108        4636-BAL     4648/B
   T1ST3109        4642/B       4649-LI      4683/B
   T1ST3110        4657/B       4662-BAL
   T1ST3111        4668/B       4673-BAL     4674/B
   T1ST3112        4680/BEZ     4684-MTW
   T1ST3113        4553/BEZ     4690-BAL
   T1ST3201        4727-BAL     4739/B       4779/BIR
   T1ST3202        4733/B       4742-BAL     4774/B
   T1ST3203        4748/B       4753-BAL
   T1ST3204        4759/B       4764-BAL     4765/B
   T1ST3205        4719/BEZ     4771/BEZ     4775-LW
   T1ST3206        4792-BAL     4804/B       4842/BIR
   T1ST3207        4798/B       4807-BAL     4839/B
   T1ST3208        4813/B       4818-BAL
   T1ST3209        4824/B       4829-BAL     4830/B
   T1ST3210        4784/BEZ     4836/BEZ     4840-MTW
   T1ST3211        4855-BAL     4867/B       4905/BIR
   T1ST3212        4861/B       4870-BAL     4902/B
   T1ST3213        4876/B       4881-BAL
   T1ST3214        4887/B       4892-BAL     4893/B
   T1ST3215        4899/BEZ     4903-MTW
   T1ST3216        4847/BEZ     4906-BAL
   T1ST3301        4938/STH     4945-LW      4950/MTW     4952/CH      4953/BG
   T1ST3302        4989-BAL     5013/BL      5018/B       5095/BCS
   T1ST3303        4954/B       4974/BNEZ    4976/BNEZ    4980/B       4981-STW
   T1ST3304        4996-BAL
   T1ST3305        4998/B       5005/B       5020-BAL     5048/B
   T1ST3306        4940/STH     4944/BE      4962-LI      4966/MTW     4970/BIR
   T1ST3307        5027-BAL
   T1ST3309        5029/B       5035/BE      5050-BAL     5084/B
   T1ST3311        5057-BAL
   T1ST3312        5059/B       5064-BAL     5065/B
   T1ST3313        5039/B       5043/BE      5071/BEZ     5075/B       5079/BE      5085-LW
   T1ST3314        4995/BCS     5093/BCS     5096-BAL
   T1ST3401        5114-BAL     5128/B       5137/B       5146/B       5147/BIR
   T1ST3402        5119-TIO
   T1ST3403        5122/BEZ     5129-LI
   T1ST3404        5131/B       5138-BAL
   T1ST3405        5140/B       5147-BIR     5161/B       5170/B       5189/B       5202/B
   T1ST3406        5151-LI
   T1ST3407        5155/BEZ     5162-LI
   T1ST3408        5164/B       5171-LI
   T1ST3409        5183/BEZ     5191-LI
   T1ST3410        5190/B       5196/BEZ     5203/B       5204-TDV     5206/BEZ
   T1ST3502        5245-BAL     5257/B       5274/B
   T1ST3504        5249-BAL
   T1ST3505        5251/B       5258-BAL
   T1ST3506        5302-BAL     5316/BIR
   T1ST3508        5268/B       5275-BAL
   T1ST3509        5306-BAL
   T1ST3511        5310-BAL
   T1ST3512        5312/B       5316-BIR
   T1ST3514        5321-BAL
   T1ST3515        5323/B       5327-BAL
   T1ST3517        5331-BAL
   T1ST3518        5333/B       5337-BAL
   T1ST3520        5342-BAL
   T1ST3521        5344/B       5348-BAL
   T1ST3522        5349/B       5353-BAL
   T1ST3523        5372/BCS     5386-CW
   T1ST3524        5389-BAL
   T1ST3525        5371/BEZ     5377/BLE     5385/B       5387/BL      5402-BAL
   T1ST3601        5428-BAL
   T1ST3602        5441-BAL
   T1ST3603        5443-BAL     5450/BCR
   T1ST3604        5452/BCS     5461-BAL
   T1ST3702        5490-BAL     5502/B       5503/BIR
   T1ST3704        5494-BAL
   T1ST3705        5496/B       5503-BIR
   T1ST3706        5505-BAL     5515/BIR
   T1ST3708        5509-BAL
   T1ST3709        5511/B       5515-BIR
   T1ST3710        5520-BAL     5532/BIR
   T1ST3711        5521-LI
   T1ST3712        5528-CB      5529/BNE
   T1ST3714        5538-LI      5555/BIR
   T1ST3715        5542-LI      5554/B
   T1ST3716        5546-BAL
   T1ST3717        5548/B       5555-BIR
   T1ST3718        5559-BAL     5569/BIR
   T1ST3719        5563-BAL
   T1ST3720        5565/B       5569-BIR
   T1ST3721        5584-STW
   T1ST3722        5624/B       5626-BAL
   T1ST3723        5628-BAL     5632/BIR
   T1ST3724        5632-BIR
   T1ST3725        5633-BAL
   T1ST3726        5589/BL      5625/B       5637-BAL
   T1ST3802        5652-BAL     5661/BCR     5667/B       5719/B
   T1ST3803        5656-TDV
   T1ST3804        5658/BCS     5668-BAL
   T1ST3805        5678-BAL
   T1ST3806        5680/B       5685-BAL
   T1ST3807        5691/B       5696-BAL
   T1ST3808        5700-BAL     5702/B
   T1ST3809        5708/BEZ     5712/B       5720-BAL
   T1ST4002        5749-STW     5810/BLE
   T1ST4003        5761-BAL     5769/B       5783/B       5805/B
   T1ST4004        5763/B       5770-BAL
   T1ST4005        5775-BAL
   T1ST4007        5777/B       5784-BAL
   T1ST4008        5789-BAL
   T1ST4009        5791/B       5798-BAL
   T1ST401A        5813-BAL     5829/B
   T1ST4010        5799/B       5806-MTW
   T1ST4011        5816-BAL
   T1ST4012        5821-BAL
   T1ST4013        5823/B       5830-BAL     5842/B
   T1ST4014        5834-BAL
   T1ST4015        5836/B       5843-LI      5857/B
   T1ST4016        5851/B       5858-BAL
   T1ST4017        5866-BAL     5874/B
   T1ST4018        5868/B       5875-BAL     5887/B
   T1ST4019        5881/B       5889-CW
   T1ST4020        5901-BAL     5929/B       5980/MTW     5985/BG
   T1ST4021        5898/STH     5918-CW      5920/CW*     5982/MTW
   T1ST4022        5892/STW     5919/BG      5926-DATA    5981/MTW     5984/CH
   T1ST4023        5921/BGE     5930-LW      5944/B       5957/B       5979/B
   T1ST4024        5938/B       5945-BAL
   T1ST4025        5951/B       5958-BAL
   T1ST4026        5965/B       5972-BAL
   T1ST4027        5973/B       5980-MTW
   T1ST4028        5890/BNE     5986-BAL
   T2RE            2079/B       6037-LW
   T2RERF          6198/B       6212/B       6232/B       6260/B       6277/B       6300/B       6311/B
      6328/B       6334/B       6379/B       6385/B       6402/B       6530-BAL     7331/B       7341/B
      7345/B       7355/B
   T2RERFR         6197/STH     6211/STH     6231/STH     6259/STH     6276/STH     6299/STH     6310/STH
      6327/STH     6333/STH     6378/STH     6384/STH     6401/STH     6569-B       7330/STH     7340/STH
      7344/STH     7354/STH
   T2RESB          6164/B       6178/B       6181/B       6195/B       6209/B       6215/B       6226/B
      6229/B       6243/B       6246/B       6257/B       6274/B       6283/B       6291/B       6297/B
      6308/B       6314/B       6325/B       6331/B       6342/B       6359/B       6365/B       6376/B
      6382/B       6393/B       6399/B       6481-BAL     7328/B       7338/B       7348/B
   T2RESBR         6163/STH     6177/STH     6180/STH     6194/STH     6208/STH     6214/STH     6225/STH
      6228/STH     6242/STH     6245/STH     6256/STH     6273/STH     6282/STH     6290/STH     6296/STH
      6307/STH     6313/STH     6324/STH     6330/STH     6341/STH     6358/STH     6364/STH     6375/STH
      6381/STH     6392/STH     6398/STH     6497-B       7327/STH     7337/STH     7347/STH
   T2RESF          6249/B       6345/B       6368/B       6396/B       6501-BAL     7335/B       7351/B
   T2RESFR         6248/STH     6344/STH     6367/STH     6395/STH     6525-B       7334/STH     7350/STH
   T2REW           6135/B       6138/B       6141/B       6144/B       6147/B       6152/B       6155/B
      6158/B       6161/B       6169/B       6172/B       6175/B       6186/B       6189/B       6192/B
      6203/B       6206/B       6220/B       6223/B       6237/B       6240/B       6254/B       6263/B
      6266/B       6271/B       6280/B       6288/B       6294/B       6305/B       6317/B       6322/B
      6339/B       6348/B       6351/B       6356/B       6362/B       6373/B       6390/B       6450-BAL
      7325/B       7359/B
   T2REWR          6134/STH     6137/STH     6140/STH     6143/STH     6146/STH     6151/STH     6154/STH
      6157/STH     6160/STH     6168/STH     6171/STH     6174/STH     6185/STH     6188/STH     6191/STH
      6202/STH     6205/STH     6219/STH     6222/STH     6236/STH     6239/STH     6253/STH     6262/STH
      6265/STH     6270/STH     6279/STH     6287/STH     6293/STH     6304/STH     6316/STH     6321/STH
      6338/STH     6347/STH     6350/STH     6355/STH     6361/STH     6372/STH     6389/STH     6477-B
      7324/STH     7358/STH
   T2RE01          6054/B       6055-BAL     6415/BLE
   T2RE01A         6058-AND
   T2RE01B         6063/BNEZ    6065-STW
   T2RE01C         6093-LW      6097/BDR
   T2RE015C        6514/B       6518-LD
   T2RE017E        6544/B       6554-LD      7769/BLE
   T2RE02          6041/LI      6089/BE      6102-BAL     6460/BNE     6511/BNE     6541/BNE
   T2RE03          6103/B       6104-BAL     6107/BIR
   T2RE04          6101/BE      6106-AI
   T2RE05A         6123/B       6303-LI
   T2RE05B         6124/B       6320-LI
   T2RE05C         6125/B       6337-LI
   T2RE05D         6126/B       6354-LI
   T2RE05E         6127/B       6371-LI
   T2RE05F         6128/B       6388-LI
   T2RE050         6112/BEZ     6133-LI
   T2RE051         6114/B       6150-LI
   T2RE052         6115/B       6167-LI
   T2RE053         6116/B       6184-LI
   T2RE054         6117/B       6201-LI
   T2RE055         6118/B       6218-LI
   T2RE056         6119/B       6235-LI
   T2RE057         6120/B       6252-LI
   T2RE058         6121/B       6269-LI
   T2RE059         6122/B       6286-LI
   T2RE06A         6451/B       6452-BAL     6476/BIR
   T2RE06B         6463/B       6468/BCS     6470-LD      7726/BLE
   T2RE06C         6042/STH     6460-BNE     7289/STH
   T2RE07          6469/B       6475-AI      7762/B
   T2RE13A         6482/B       6483-BAL     6496/BIR
   T2RE14          6489/BCR     6495-AI
   T2RE15A         6502/B       6503-BAL     6524/BIR
   T2RE15B         6043/STH     6511-BNE     7287/STH
   T2RE17          6517/BCR     6523-AI
   T2RE17F         6044/STH     6541-BNE     7288/STH
   T2RE18B         6531/B       6532-BAL     6568/BIR
   T2RE18C         6560/B       6567-AI
   T2RE18D         6553/B       6559-BAL     7797/B
   T2RE60A         6148/B       6165/B       6182/B       6199/B       6216/B       6233/B       6250/B
      6267/B       6284/B       6301/B       6318/B       6335/B       6352/B       6369/B       6386/B
      6403/B       6406-B
   T2RE60B         6418-LI      6438/BIR
   T2RE60C         6417/BLE     6442-BAL     6445/BIR
   UNITSAV         8544-DATA
   UNPACK          3238/BAL     3350/BAL     8169-STW
   UNPACK1         8178-LW      8213/BLE
   WAITMSG1        9951/WAITPROC             9958/WAITPROC            10310-TEXTC
   WAITMSG2        5815/WAITPROC             5848/WAITPROC             5861/WAITPROC
      5878/WAITPROC             5903/WAITPROC             7584/WAITPROC            10311-TEXTC
   WAITPROC        1279-CNAME
   WAITPRO1        1285/GOTO    1289-PEND
   WBCC            4163/STH     4172/LI      4220/LW      4228/STH     8334-GEN
   WBINT           4445/LI      8362-GEN
   WDCNT           8230-DATA
   WFBAD           4063/LW      4066/STW     4095/LI      4140/MTW     8332-GEN
   WLRCEP          4852/STH     4856/LI      4903/MTW     8360-GEN
   WLRCOP          4788/STH     4793/LI      4840/MTW     8358-GEN
   WLRCPK          4715/STH     4728/LI      4775/LW      4777/STW     8356-GEN
   WPBT            4572/LI      8354-GEN
   WRRAND          6070/STH     6453/LI      6470/LD      7296/STH     7363/LH      7365/STH     7733/LI
      7743/LD      8344-GEN
   WR96B           3873/LI      5246/LI      5758/LI      5933/LI      8348-GEN
   WSPKEC          4626/STH     4637/LI      4684/MTW     4685/LW      8350-GEN
   WTRT            1823/STW     1858/STW     5535/SW      5581/SW      8553-DATA
   X               1282/SET
   XPSD1           2237/LW      8803-XPSD
   XPSD4           8806-XPSD
   :AIO            9074-AIO
   :BCDC           1428-EQU
   :BINC           1430-EQU     9110/BAL*    9152/BAL*    9159/BAL*    9596/BAL*   10119/BAL*   10121/BAL*
     10126/BAL*   10128/BAL*
   :CATALOG        1469/DATA    1574-EQU
   :CCERMA         9181/DATA    9196-TEXTC
   :CCERMB         9182/DATA    9197-TEXTC
   :CCERMC         9183/DATA    9198-TEXTC
   :CCERMD         9184/DATA    9199-TEXTC
   :CCERME         9185/DATA    9200-TEXTC
   :CCERMF         9186/DATA    9201-TEXTC   9832/LI
   :CCERM1         9172/DATA    9187-TEXTC
   :CCERM2         9173/DATA    9188-TEXTC
   :CCERM3         9174/DATA    9189-TEXTC
   :CCERM4         9111/STH     9175/DATA    9190-TEXTC
   :CCERM5         9176/DATA    9191-TEXTC
   :CCERM6         9177/DATA    9192-TEXTC
   :CCERM7         9178/DATA    9193-TEXTC
   :CCERM8         9179/DATA    9194-TEXTC
   :CCERM9         9180/DATA    9195-TEXTC
   :CCERR1         9106-LW
   :CCERR2         9104/BCR     9118-LW
   :CCERR3         9102/BCR     9125-LW
   :CC12           9090/STW     9100/LW      9109/LW      9158/LW      9169-DATA
   :CDB            1541/GEN     1541/GEN     1558-EQU     1740/LH      1748/LCH     1774/LH
   :CDBEND         1541/GEN     1569-EQU
   :CDBM           1541/GEN     1550-EQU     1771/AI      1775/CW
   :CDBMEND        1541/GEN     1556-EQU     1770/LI
   :CDT            1474/DATA    1475/DATA    1540-EQU
   :CDTEND         1475/DATA    1542-EQU
   :CLEAR          3228/BAL     3336/BAL     4026/BAL     4198/BAL     5023/BAL     5053/BAL     5288/BAL
      5338/BAL     5771/BAL     5785/BAL     5958/BAL     6533/BAL     6857/BAL     8175/BAL     9356-STD
   :CLRADDR        6073/STW     6696/STW     7299/STW     7965/STW     8174/STW     8215/STW     9358/LW
      9368-DATA
   :CLRSAVE        9356/STD     9357/STW     9364/LD      9365/LW      9371-RES
   :CLRSIZE        6067/STW     6688/STW     7293/STW     7371/STW     7959/STW     9359/AW      9360/LCW
      9369-DATA
   :COMBFRA        4083/STW     4144/MTW     4157/STW     4263/STW     4318/STW     4356/STW     4440/STW
      4496/STW     4567/STW     4623/STW     4688/MTW     4723/STW     4778/MTW     4790/STW     4841/MTW
      4854/STW     4904/MTW     4931/STW     6082/STW     6693/STW     7302/STW     7963/STW     9511/LW
      9540/LW      9612-DATA
   :COMBFRB        4159/STW     4265/STW     4442/STW     4569/STW     4725/STW     4933/STW     6084/STW
      6695/STW     7300/STW     7966/STW     9512/LW      9546/LW      9613-DATA
   :COMERM1        9539/DATA    9616-TEXTC
   :COMERM2        9543/STH     9545/STH     9548/STW     9550/DATA    9617-TEXTC
   :COMERM3        9556/DATA    9618-TEXTC
   :COMERM4        9581/STW     9583/LI      9586/DATA    9627-TEXT
   :COMERM5        9588/LI      9591/DATA    9631-TEXT
   :COMERRT        9510/STD     9521/LW      9528/MTW     9531/LW      9609-DATA
   :COMFLAG        3232/STW     3266/STW     3344/STW     4075/STW     4929/STW     6086/STW     6701/STW
      7304/STW     7956/STW     9529/LW      9614-DATA
   :COMPARE        3233/BAL     3345/BAL     4037/BAL     4130/BAL     4209/BAL     4304/BAL     4343/BAL
      4395/BAL     4481/BAL     4520/BAL     4608/BAL     4673/BAL     4764/BAL     4829/BAL     4892/BAL
      5064/BAL     5348/BAL     5798/BAL     5972/BAL     6559/BAL     6914/BAL     9507-LCI
   :COMPK1         9574/LI      9577/DATA    9620-TEXTC
   :COMPK2         9572/LI      9622-TEXTC
   :COMPK3         9570/LI      9624-TEXTC
   :COMPLIN        2360/STW     9532/CW      9615-DATA
   :COMTEM1        9508/STM     9523/MTW     9525/LM      9606-RES
   :COMTEM2        9515/STD     9517/LW*     9518/CW*     9582/LW*     9587/LW*     9608-DATA
   :COMTEM3        9534/LW      9537/MTW     9610-DATA
   :COMWCNT        3999/STW     4090/STW     4168/STW     4234/STW     4261/STW     4357/STW     4438/STW
      4565/STW     4621/STW     4721/STW     4786/STW     4850/STW     4935/STW     5085/LW      5087/STW
      5242/STW     5746/STW     6066/STW     6091/LW      6689/STW     6901/LCW     7292/STW     7368/LW
      7370/STW     7960/STW     9513/AW      9514/AW      9516/LCW     9563/LW      9578/LW      9611-DATA
   :COM1           9517-LW      9520/BIR     9530/BCS     9533/BG      9592/B
   :COM2           9519/BCS     9528-MTW
   :COM3           9535/BCS     9554/BE      9558-CW
   :COM4           9584/BAL     9589/BAL     9594-LI      9603/BCS
   :COM5           9571/B       9573/B       9575-STW
   :COM6           9559/BNE     9561/BE      9578-LW
   :CURBCNT        1434-EQU
   :DECC           1431-EQU     1649/BAL*    3383/BAL*    3386/BAL*    3389/BAL*    3480/BAL*    3483/BAL*
      3486/BAL*    5381/BAL*    5392/BAL*    5395/BAL*    5594/BAL*    5596/BAL*    5599/BAL*    5601/BAL*
      5604/BAL*    5606/BAL*    5609/BAL*    5611/BAL*    6424/BAL*    6427/BAL*    6430/BAL*    6433/BAL*
      7407/BAL*    7410/BAL*    7413/BAL*    7416/BAL*    7536/BAL*    7538/BAL*    7547/BAL*    7549/BAL*
      7589/BAL*    7591/BAL*    7594/BAL*    7596/BAL*    7874/BAL*    8924/BAL*    8926/BAL*    8938/BAL*
      8941/BAL*    8944/BAL*    8946/BAL*
   :DELAY          2508/BAL     2570/BAL     2600/BAL     2623/BAL     2687/BAL     2721/BAL     2750/BAL
      2903/BAL     2924/BAL     2963/BAL     3003/BAL     3017/BAL     3094/BAL     5130/BAL     5163/BAL
      5172/BAL     5540/BAL     5850/BAL     6410/BAL     6844/BAL     6926/BAL     6964/BAL     7192/BAL
      7206/BAL     7212/BAL     7857/BAL     9657-STW
   :DELAYAE        9661/BAL     9672-STW
   :DELAYD         9664/BAL     9668/BAL     9677-STW
   :DELAYTO        9685-DATA    9687/XPSD
   :DELEXIT        9665-LW      9670/B
   :DELMTW         2241/LW      3494/LW      5930/LW      7645/LW      7704/LW      9688-MTW
   :DELSAVE        9657/STW     9665/LW      9669/MTW     9672/STW     9675/B*      9677/STW     9680/B*
      9683-DATA
   :DELTIME        7650/STW     7657/STW     7676/STW     7694/STW     9660/STW     9682-DATA    9688/MTW
   :DELTO          9668-BAL     9686/DATA
   :DELXPSD        2239/LW      7706/LW      9687-XPSD
   :DEVADDR        1653/LW      1864/STW     2019/STW     2020/LW      2185/STW     2453/HIO*    2454/TIO*
      2625/HIO*    2636/TIO*    2659/SIO*    2662/TIO*    2674/TIO*    2729/TIO*    2758/TIO*    2794/SIO*
      2795/TIO*    2800/TDV*    2811/SIO*    2814/TIO*    2824/HIO*    2826/TIO*    2837/SIO*    2840/TIO*
      2860/TIO*    2871/TDV*    3026/TIO*    3328/TIO*    3340/TIO*    3453/SIO*    3464/TIO*    3828/SIO*
      3829/TIO*    4993/TDV*    5116/SIO*    5119/TIO*    5150/SIO*    5152/SIO*    5178/SIO*    5180/SIO*
      5193/TIO*    5204/TDV*    5207/TIO*    5294/SIO*    5358/SIO*    5448/TDV*    5526/SIO*    5574/SIO*
      5576/TIO*    5656/TDV*    5659/TIO*    5744/LW      5749/STW     5811/STW     5911/SIO*    6456/TDV*
      6464/TIO*    6487/TIO*    6507/TDV*    6515/TIO*    6537/TDV*    6545/TIO*    6548/TDV*    6818/TDV*
      6864/TDV*    6869/TIO*    6941/TDV*    7034/HIO*    7038/TDV*    7043/HIO*    7050/SIO*    7055/HIO*
      7056/TDV*    7063/TDV*    7069/HIO*    7073/SIO*    7076/HIO*    7077/TDV*    7084/SIO*    7089/HIO*
      7090/TDV*    7096/TDV*    7102/HIO*    7190/SIO*    7196/TDV*    7198/TIO*    7210/SIO*    7215/HIO*
      7390/STW     7510/TDV*    7513/TIO*    7544/TIO*    7571/TDV*    7659/TDV*    7696/TIO*    7736/TIO*
      7779/TIO*    7813/SIO*    7814/TIO*    7818/TDV*    7844/HIO*    7934/STW     7985/LW      8003/LW
      8554-DATA    9018/SIO*    9032/TIO*    9046/HIO*    9060/TDV*    9129/LW      9162/LW      9261/LW
      9761/LW      9814/CW
   :DIC            1471/DATA    1472/DATA    1514-EQU     2008/DATA    2083/DATA    2205/DATA    2269/DATA
      2319/DATA    2352/DATA    6633/DATA    7032/DATA    7148/DATA    7255/DATA    7477/DATA
   :DICEND         1472/DATA    1524-EQU     1540/EQU
   :DICILEN        1453-EQU
   :DICINDX        1452-EQU
   :DTLFLAG        1448-EQU
   :DUMP           1426-EQU
   :ERRADR1        9112/LW      9172-DATA
   :ERRADR2        9119/LW      9177-DATA
   :ERRADR3        9126/LW      9182-DATA
   :ERRBITS        9995/STW    10019/LW     10197-DATA
   :ERROR          1435-EQU     2385/BAL*    2395/BAL*    2405/BAL*    2415/BAL*    2441/BAL*    2448/BAL*
      2458/BAL*    2468/BAL*    2475/BAL*    2502/BAL*    2514/BAL*    2564/BAL*    2573/BAL*    2583/BAL*
      2594/BAL*    2603/BAL*    2612/BAL*    2631/BAL*    2640/BAL*    2667/BAL*    2679/BAL*    2690/BAL*
      2715/BAL*    2724/BAL*    2733/BAL*    2744/BAL*    2753/BAL*    2762/BAL*    2804/BAL*    2819/BAL*
      2830/BAL*    2845/BAL*    2855/BAL*    2865/BAL*    2875/BAL*    2906/BAL*    2915/BAL*    2927/BAL*
      2936/BAL*    2967/BAL*    2976/BAL*    3007/BAL*    3021/BAL*    3029/BAL*    3035/BAL*    3078/BAL*
      3097/BAL*    3108/BAL*    3145/BAL*    3164/BAL*    3222/BAL*    3377/BAL*    3458/BAL*    3473/BAL*
      3477/BAL*    3521/BAL*    3536/BAL*    3550/BAL*    3564/BAL*    3581/BAL*    3602/BAL*    3630/BAL*
      3645/BAL*    3660/BAL*    3697/BAL*    3712/BAL*    3726/BAL*    3740/BAL*    3755/BAL*    3769/BAL*
      3785/BAL*    3801/BAL*    3838/BAL*    3880/BAL*    3893/BAL*    3904/BAL*    3915/BAL*    3926/BAL*
      3937/BAL*    3948/BAL*    3959/BAL*    3970/BAL*    4007/BAL*    4022/BAL*    4034/BAL*    4040/BAL*
      4102/BAL*    4115/BAL*    4127/BAL*    4132/BAL*    4179/BAL*    4194/BAL*    4206/BAL*    4212/BAL*
      4275/BAL*    4290/BAL*    4301/BAL*    4307/BAL*    4329/BAL*    4340/BAL*    4346/BAL*    4366/BAL*
      4381/BAL*    4392/BAL*    4398/BAL*    4452/BAL*    4468/BAL*    4479/BAL*    4484/BAL*    4506/BAL*
      4517/BAL*    4523/BAL*    4579/BAL*    4595/BAL*    4606/BAL*    4611/BAL*    4644/BAL*    4659/BAL*
      4670/BAL*    4676/BAL*    4735/BAL*    4750/BAL*    4761/BAL*    4767/BAL*    4800/BAL*    4816/BAL*
      4827/BAL*    4832/BAL*    4863/BAL*    4879/BAL*    4889/BAL*    4895/BAL*    5000/BAL*    5031/BAL*
      5061/BAL*    5067/BAL*    5124/BAL*    5133/BAL*    5142/BAL*    5157/BAL*    5166/BAL*    5185/BAL*
      5198/BAL*    5253/BAL*    5270/BAL*    5314/BAL*    5325/BAL*    5335/BAL*    5346/BAL*    5351/BAL*
      5378/BAL*    5389/BAL*    5456/BAL*    5498/BAL*    5513/BAL*    5550/BAL*    5567/BAL*    5591/BAL*
      5663/BAL*    5682/BAL*    5693/BAL*    5704/BAL*    5765/BAL*    5779/BAL*    5793/BAL*    5801/BAL*
      5825/BAL*    5838/BAL*    5853/BAL*    5870/BAL*    5883/BAL*    5923/BAL*    5940/BAL*    5953/BAL*
      5967/BAL*    5975/BAL*
   :ERRORC         1443-EQU
   :ERRORT         2444/BAL     2471/BAL     2510/BAL     2578/BAL     2608/BAL     2911/BAL     2932/BAL
      2972/BAL     3072/BAL     3104/BAL     3141/BAL     3158/BAL     3218/BAL     3517/BAL     3532/BAL
      3546/BAL     3560/BAL     3577/BAL     3598/BAL     3626/BAL     3641/BAL     3656/BAL     3693/BAL
      3708/BAL     3722/BAL     3736/BAL     3751/BAL     3765/BAL     3781/BAL     3797/BAL     3834/BAL
      3876/BAL     3889/BAL     3900/BAL     3911/BAL     3922/BAL     3933/BAL     3944/BAL     3955/BAL
      3966/BAL     4003/BAL     4018/BAL     4030/BAL     4098/BAL     4111/BAL     4123/BAL     4175/BAL
      4190/BAL     4202/BAL     4271/BAL     4286/BAL     4297/BAL     4325/BAL     4336/BAL     4362/BAL
      4377/BAL     4388/BAL     4448/BAL     4463/BAL     4474/BAL     4502/BAL     4513/BAL     4575/BAL
      4590/BAL     4601/BAL     4640/BAL     4655/BAL     4666/BAL     4731/BAL     4746/BAL     4757/BAL
      4796/BAL     4811/BAL     4822/BAL     4859/BAL     4874/BAL     4885/BAL     4996/BAL     5027/BAL
      5057/BAL     5138/BAL     5249/BAL     5266/BAL     5310/BAL     5321/BAL     5331/BAL     5342/BAL
      5494/BAL     5509/BAL     5546/BAL     5563/BAL     5678/BAL     5689/BAL     5700/BAL     5761/BAL
      5775/BAL     5789/BAL     5821/BAL     5834/BAL     5866/BAL     5879/BAL     5936/BAL     5949/BAL
      5963/BAL     6821/BAL     6872/BAL     6944/BAL     9937-LCI
   :ERRTBCM       10074/LD     10201-TEXT
   :ERRTCAM       10071/LD     10202-TEXT
   :ERRTFLG        9941/STW    10034/MTW    10105/MTW    10110/MTW    10132/MTW    10140-DATA
   :ERRTMG1       10017/STW    10021/STD    10023/STB    10026/STB    10030/STB    10032/DATA   10194-TEXTC
   :ERRTMG2       10075/STW    10076/STW    10077/STW    10081/STW    10083/DATA   10198-TEXTC
   :ERRTMP1        9938/STM    10109/LM     10135-RES
   :ERRTMP2        9992/STW    10000/MTW    10004/MTW    10024/LW     10027/LW     10136-DATA
   :ERRTMP3        9946/STW    10008/LW     10013/LW     10015/LW     10054/LW     10064/LW     10078/LW
     10137-DATA
   :ERRTMSK        9996/LB     10138-GEN
   :ERRTM1        10115/STW    10117/DATA   10142-TEXTC
   :ERRTM2        10120/STW    10122/STW    10124/DATA   10143-TEXTC
   :ERRTM3        10127/STW    10129/STW    10131/DATA   10144-TEXTC
   :ERRTNEG       10073/LW     10199-TEXT
   :ERRTTB        10018/LW     10195-DATA
   :ERRTTBA       10146-TEXT   10195/DATA   10195/DATA   10195/DATA
   :ERRTTBB       10154-TEXT   10195/DATA
   :ERRTTBC       10162-TEXT   10195/DATA
   :ERRTTBD       10170-TEXT   10196/DATA
   :ERRTTBE       10178-TEXT   10196/DATA
   :ERRTTBF       10186-TEXT   10196/DATA
   :ERRTYPE       10016/LW     10114/LW     10141-DATA
   :ERRT0          9942-LB     10011/B
   :ERRT1          9948/BCS     9954-LW      9967/B       9976/B       9979/B
   :ERRT10         9965/B       9974/B       9985/B      10034-MTW    10084/B
   :ERRT11         9950/BCS    10037-LW
   :ERRT11A       10044-SCD    10088/B
   :ERRT11B       10046/BCS    10050-MTW
   :ERRT12        10043/BCS    10086-LW
   :ERRT13         9943/BCR    10090-LI     10107/BIR
   :ERRT14        10092/BCR    10094/BCR    10107-BIR    10133/B
   :ERRT15        10104/BCS    10106/BNEZ   10114-LW
   :ERRT2          9957/BCS     9960-CI
   :ERRT3          9961/BCS     9969-CI
   :ERRT4          9970/BCS     9978-BAL
   :ERRT5          9978/BAL     9981-STW    10039/BAL
   :ERRT5X         9981/STW     9987/B*      9988-DATA
   :ERRT6          9955/BCS     9990-LI
   :ERRT7          9999/BCS    10004-MTW
   :ERRT8         10001/BCR    10006/B      10008-LW
   :ERRT8A        10010-MTW    10035/B      10048/BCS    10052/BCR
   :ERRT9         10002/B      10005/BCR    10013-LW
   :ERRT9A        10015-LW
   :ERRT91A       10049/B      10064-LW
   :ERRT91B       10066/BCR    10073-LW
   :ERRT91C       10063/B      10074-LD
   :ERRT92A       10054-LW
   :ERRT92B       10060/B      10070-BAL
   :ERRT92C       10056/BCR    10061-AW
   :HEXC           1432-EQU     1642/BAL*    1654/BAL*    2021/BAL*    3380/BAL*    5751/BAL*    6421/BAL*
      7404/BAL*    7615/BAL*    7617/BAL*    7867/BAL*    7986/BAL*    7989/BAL*    7991/BAL*    7997/BAL*
      8001/BAL*    8004/BAL*    8007/BAL*    8011/BAL*    8955/BAL*    8957/BAL*    9130/BAL*    9163/BAL*
      9262/BAL*    9541/BAL*    9547/BAL*    9580/BAL*    9829/BAL*    9852/BAL*    9854/BAL*    9857/BAL*
      9859/BAL*   10070/BAL*   10080/BAL*
   :HIO            2392/BAL     9046-HIO     9249/BAL     9963/BAL
   :INITIAL        1477/DATA    1716-STW
   :INTADRC        9736-STW
   :INTADRD        9744-STW
   :INTADRE        9736/STW     9741/B*      9744/STW     9745/STW     9753/STW     9758/STW     9760/STW
      9770/LW      9771/B*      9781-DATA
   :INTADRM        9753-STW
   :INTADRS        9756/BCS     9757/B       9758-STW
   :INTADRX        9738/STW     9754/LW      9766/STW     9780-DATA
   :INTADRZ        9749/B       9770-LW
   :INTAE          7067/BAL     7100/BAL     9693-STW
   :INTCC          9769/STW     9811/STCF    9843-DATA
   :INTD           9703-STW     9820/BAL
   :INTRECF        3455/LW      5298/LW      5368/LW      5530/LW      5913/LW      6408/STW     6842/STW
      6924/STW     6962/STW     7052/LW      7074/LW      7086/LW      7204/STW     7897/STW     7917/STW
      9662/LW      9695/STW     9819/MTW     9844-DATA
   :INTSAV1        9693/STW     9698/B*      9708-DATA
   :INTSAV2        9703/STW     9706/B*      9709-DATA
   :INTSTAT        9768/STW     9816/STW     9842-DATA
   :INTSV          8805/DATA    9806-STD     9840/DATA
   :INTSVDW        9840-DATA
   :INTSVM         9826/LI      9827/LI      9830/STW     9846-TEXTC
   :INTSVSR        9806/STD     9807/STD     9808/STD     9821/LD      9822/LD      9823/LD      9841-RES
   :INTSVX         9746/LW      9818/STW     9845-DATA
   :INTSV1         9814-CW
   :INTSV2         9821-LD      9836/B
   :INTSV3         9815/BCS     9826-LI
   :INTSV4         9810/BCS     9832-LI
   :INTSV5         9831/B       9834-BAL
   :INTSV6         9828/STW     9833/STW     9835-DATA
   :INTTAB         9740/STW     9762/STW     9765/STW     9775-EQU
   :INTTAB8        9748/STW     9779-DATA
   :IOERM1         9258/WAITPROC             9272-TEXTC
   :IOERM2         9263/STH     9265/STH     9267/DATA    9273-TEXTC
   :IOERR1         9237/B       9248-LW
   :IOERR1A        9258-WAITPROC             9268/B
   :IOERR2         9239/BCR     9261-LW
   :IOEXEC         2901/BAL     2922/BAL     2961/BAL     3001/BAL     3015/BAL     3070/BAL     3092/BAL
      3139/BAL     3156/BAL     3216/BAL     3230/BAL     3326/BAL     3338/BAL     3445/BAL     3515/BAL
      3530/BAL     3544/BAL     3558/BAL     3575/BAL     3596/BAL     3624/BAL     3639/BAL     3654/BAL
      3691/BAL     3706/BAL     3720/BAL     3734/BAL     3749/BAL     3763/BAL     3779/BAL     3795/BAL
      3874/BAL     3887/BAL     3898/BAL     3909/BAL     3920/BAL     3931/BAL     3942/BAL     3953/BAL
      3964/BAL     4001/BAL     4016/BAL     4028/BAL     4096/BAL     4109/BAL     4121/BAL     4173/BAL
      4188/BAL     4200/BAL     4269/BAL     4284/BAL     4295/BAL     4323/BAL     4334/BAL     4360/BAL
      4375/BAL     4386/BAL     4446/BAL     4461/BAL     4472/BAL     4500/BAL     4511/BAL     4573/BAL
      4588/BAL     4599/BAL     4638/BAL     4653/BAL     4664/BAL     4729/BAL     4744/BAL     4755/BAL
      4794/BAL     4809/BAL     4820/BAL     4857/BAL     4872/BAL     4883/BAL     4991/BAL     5009/BAL
      5016/BAL     5025/BAL     5046/BAL     5055/BAL     5082/BAL     5247/BAL     5260/BAL     5264/BAL
      5277/BAL     5281/BAL     5286/BAL     5304/BAL     5308/BAL     5319/BAL     5329/BAL     5340/BAL
      5421/BAL     5426/BAL     5431/BAL     5435/BAL     5439/BAL     5445/BAL     5492/BAL     5507/BAL
      5544/BAL     5561/BAL     5630/BAL     5654/BAL     5670/BAL     5676/BAL     5687/BAL     5698/BAL
      5716/BAL     5759/BAL     5773/BAL     5787/BAL     5819/BAL     5832/BAL     5844/BAL     5864/BAL
      5934/BAL     5947/BAL     5961/BAL     6454/BAL     6485/BAL     6505/BAL     6535/BAL     6816/BAL
      6830/BAL     6837/BAL     6862/BAL     6884/BAL     6939/BAL     6956/BAL     7037/BAL     7394/BAL
      7506/BAL     7528/BAL     7542/BAL     7555/BAL     7569/BAL     7578/BAL     7730/BAL     7734/BAL
      7751/BAL     7754/BAL     7773/BAL     7777/BAL     9231-STW
   :IOEXEC1        9234-LW      9242/B       9251/B       9256/B       9259/B
   :IOSAVE         9231/STW     9232/STW     9233/STD     9243/LW      9244/LW      9245/LD      9271-RES
   :K              9325/AW      9334-DATA
   :KSRADR         1444-EQU
   :LIMIT           365/DATA    1521/:PROCDIC             2347-STW
   :LIM0           2351-BAL     2356/BNE
   :LIM1           2350/BE      2354-STW
   :LIM2           2358/BGZ     2360-STW
   :LOADIN         1442-EQU
   :MACHINE        1445-EQU
   :MEMLAST        1455-EQU     1719/LW
   :MEMSIZE        1454-EQU
   :MLT            1287/BAL*    1421-EQU     1422/EQU     1423/EQU     1424/EQU     1425/EQU     1426/EQU
      1427/EQU     1428/EQU     1429/EQU     1430/EQU     1431/EQU     1432/EQU     1433/EQU     1434/EQU
      1435/EQU     1436/EQU     1437/EQU     1438/EQU     1439/EQU     1440/EQU     1441/EQU     1442/EQU
      1443/EQU     1444/EQU     1445/EQU     1446/EQU     1447/EQU     1448/EQU     1449/EQU     1450/EQU
      1451/EQU     1452/EQU     1453/EQU     1454/EQU     1455/EQU     1456/EQU     1457/EQU     1458/EQU
      1459/EQU     2243/LW
   :MLTEND         1459-EQU
   :MONIOBF        1456-EQU
   :MONITOR        1429-EQU     1965/B*      2009/B*      2038/B*      2084/B*      2092/B*      2206/B*
      2216/B*      2270/B*      2275/B*      2320/B*      2336/B*      2353/B*      2361/B*      6634/B*
      6735/B*      6743/B*      7033/B*      7149/B*      7256/B*      7478/B*
   :MONPBF         1457-EQU
   :MONWAIT        1438-EQU
   :MRECOVR        1439-EQU
   :MSGIN          1441-EQU
   :MSGOUT         1440-EQU
   :M1             9315/STW     9320/MTW     9326/EOR     9331-DATA
   :M2             9316/STW     9322/MTW     9327/EOR     9332-DATA
   :PATBFR         4961/STW     4967/LW      4969/STW     6081/STW     6691/STW     7962/STW     9417/AW
      9427/AW      9438/AW      9454/AW      9462/AW      9477-DATA
   :PATEXIT        9422-LCI     9433/B       9451/B       9459/B       9470/BCR
   :PATID          2303/STW     2304/STW     2309/STW     2311/STW     3301/STW     3306/STW     3308/STW
      3314/STW     3355/CB      3379/LW      3400/CB      3408/LW      4959/STW     4963/STW     5235/STW
      6078/STW     6079/STW     6712/STW     6714/STW     6722/STW     6727/STW     6808/STW     6894/STW
      7953/STW     7955/STW     9408/LW      9419/LW      9429/LW      9431/AW      9440/LW      9456/LW*
      9464/LW      9475-DATA
   :PATSAVE        9407/STM     9423/LM      9436/STM     9450/LM      9478-RES
   :PATTERN        3311/BAL     4964/BAL     6087/BAL     6715/BAL     6809/BAL     6895/BAL     7967/BAL
      9406-LCI
   :PATWC          3310/STW     4957/STW     6068/STW     6687/STW     6772/LW      7958/STW     9416/LW
      9418/LCW     9426/LW      9428/LCW     9437/LW      9439/LCW     9453/LW      9455/LCW     9461/LW
      9463/LCW     9476-DATA
   :PAT0           9410/B       9416-LW
   :PAT1           9411/B       9426-LW
   :PAT2           9412/B       9435-LCI
   :PAT2A          9443/B       9449-LCI
   :PAT3           9413/B       9453-LW
   :PAT4           9414/B       9461-LW
   :PITEND         1483-EQU     1484/DO
   :PITLAST        1482-EQU     1484/DO
   :PIT0           1469-DATA    1483/EQU     1680/STW     2075/STW     2187/STW
   :PIT1           1470-DATA
   :PIT10          1479-DATA    1746/STW     1768/STW     1780/STW     2006/STW     2011/STW     2081/STW
      2086/STW     2203/STW     2267/STW     2317/STW     2330/STW     2347/STW     2354/STW     6631/STW
      7030/STW     7137/STW     7146/STW     7173/STW     7253/STW     7475/STW     7482/STW     7489/STW
   :PIT11          1480-DATA
   :PIT12          1481-DATA    1745/STW     1766/STW     1782/STW     1923/STW
   :PIT2           1471-DATA
   :PIT27          1487-DATA
   :PIT3           1472-DATA
   :PIT4           1473-DATA
   :PIT5           1474-DATA
   :PIT6           1475-DATA
   :PIT7           1476-DATA
   :PIT8           1477-DATA
   :PIT9           1478-DATA
   :PREPORT        1449-EQU     2007/BAL*    2082/BAL*    2204/BAL*    2268/BAL*    2318/BAL*    2351/BAL*
      6632/BAL*    7031/BAL*    7147/BAL*    7254/BAL*    7476/BAL*
   :PRINT          1361/BAL*    1436-EQU     1644/BAL*    1651/BAL*    1656/BAL*    2023/BAL*    3391/BAL*
      3393/BAL*    3395/BAL*    3488/BAL*    5383/BAL*    5397/BAL*    5613/BAL*    5615/BAL*    5753/BAL*
      5813/BAL*    5845/BAL*    5858/BAL*    5875/BAL*    5901/BAL*    5925/BAL*    6435/BAL*    7059/BAL*
      7093/BAL*    7216/BAL*    7418/BAL*    7551/BAL*    7598/BAL*    7622/BAL*    7822/BAL*    7845/BAL*
      7862/BAL*    7869/BAL*    7876/BAL*    7993/BAL*    8013/BAL*    8025/BAL*    8950/BAL*    8952/BAL*
      8959/BAL*    8961/BAL*    9114/BAL*    9121/BAL*    9134/BAL*    9142/BAL*    9165/BAL*    9266/BAL*
      9538/BAL*    9549/BAL*    9555/BAL*    9576/BAL*    9585/BAL*    9590/BAL*    9834/BAL*    9861/BAL*
     10031/BAL*   10082/BAL*   10116/BAL*   10123/BAL*   10130/BAL*
   :PROCDIC        1296-CNAME
   :PROGID         1470/DATA    1577-EQU
   :PSW            1427-EQU     2348/LB
   :P1             1422-EQU     1941/LW      1947/LW      1955/STW     1985/LW      1990/STW     2025/LW
      2064/LW      2191/LW      2207/CW      2264/LW      2294/LW      2355/CW
   :P2             1423-EQU     1945/LW      1953/STW     1984/LW      1992/STW     2069/LW      2298/LW
      2310/LW      2322/LW      2357/LW      6639/LW      6646/STW     6789/CW      6791/CW      6793/CW
      6849/CW      6930/CW      7016/CW      7018/CW      7020/CW      7022/LW      7103/CW      7105/LW
      7170/CW      7249/LW      7382/CW      7385/CW      7461/LW      7465/STW     7471/LW      7494/CW
      7497/LW
   :P3             1424-EQU     2332/LW      6635/LW      6638/STW     6846/CW      6928/CW      6966/CW
      7132/LW      7157/LW      7260/LW      7261/CW      7479/LW      7492/LW
   :P4             1425-EQU     2334/LW      6627/LW      6843/LW      6925/LW      6963/LW      7134/LW
      7205/LW      7484/LW      7520/CW      7557/CW      7565/CW
   :RANDOM         6804/BAL     9318-STW
   :RANDOMX        6055/BAL     9320-MTW
   :RANDOMY        6040/BAL     9315-STW     9446/BAL
   :RECOVER        1473/DATA    1717/BAL     2225-STW
   :REGSAVE        9096/STM     9137/LM      9171-RES
   :RELBIAS        1446-EQU
   :REMOTE         1458-EQU     1718/BAL
   :RLOADER        1447-EQU
   :SAVCOM1       10057/LW     10067/LW     10086/LW     10309-DATA
   :SAVEAIO        9817/BAL    10263-STD
   :SAVEALL       10234/BAL    10236/BAL    10248/BAL    10253/BAL    10259/BAL    10266/BAL    10268/BAL
     10275/BAL    10281/BAL    10285-STW
   :SAVECLR        7895/BAL     7915/BAL    10222-STD
   :SAVEHIO        9966/BAL    10246-STD
   :SAVESIO       10257-STD
   :SAVESSA       10273-STD
   :SAVESSB       10279-STD
   :SAVETAB        1690/STW     1692/STW     3063/STW     3065/STW     3132/STW     3134/STW     3198/STW
      3200/STW     9954/LW     10009/STW    10014/STW    10037/LW     10079/LW     10091/LW     10097/STW
     10225/STH    10233/LI     10235/LI     10238/STH    10240/STB    10241/STH    10242/STB    10247/LI
     10252/LI     10258/LI     10265/LI     10267/LI     10274/LI     10280/LI     10295-EQU
   :SAVETDV        9975/BAL    10251-STD
   :SAVETIO        9986/BAL    10231-STD
   :SAVETMP       10222/STD    10228/LD     10231/STD    10232/STW    10237/LW     10243/LD     10246/STD
     10249/LD     10251/STD    10254/LD     10257/STD    10260/LD     10263/STD    10264/STW    10269/LW
     10270/LD     10273/STD    10276/LD     10279/STD    10282/LD     10285/STW    10292/B*     10308-DATA
   :SCT            1450-EQU
   :SEED           9318/STW     9323/LW      9328/STW     9333-DATA
   :SENSE          1437-EQU     1962/BAL*    2034/BAL*    2089/BAL*    2213/BAL*    2387/BAL*    2397/BAL*
      2407/BAL*    2417/BAL*    2450/BAL*    2460/BAL*    2477/BAL*    2504/BAL*    2516/BAL*    2566/BAL*
      2575/BAL*    2585/BAL*    2596/BAL*    2605/BAL*    2614/BAL*    2633/BAL*    2642/BAL*    2669/BAL*
      2681/BAL*    2692/BAL*    2717/BAL*    2726/BAL*    2735/BAL*    2746/BAL*    2755/BAL*    2764/BAL*
      2806/BAL*    2821/BAL*    2832/BAL*    2847/BAL*    2857/BAL*    2867/BAL*    2877/BAL*    2908/BAL*
      2917/BAL*    2929/BAL*    2938/BAL*    2969/BAL*    2978/BAL*    3009/BAL*    3023/BAL*    3037/BAL*
      3080/BAL*    3099/BAL*    3110/BAL*    3147/BAL*    3166/BAL*    3262/BAL*    3424/BAL*    3490/BAL*
      3523/BAL*    3538/BAL*    3552/BAL*    3566/BAL*    3587/BAL*    3632/BAL*    3647/BAL*    3662/BAL*
      3699/BAL*    3714/BAL*    3728/BAL*    3742/BAL*    3757/BAL*    3771/BAL*    3787/BAL*    3803/BAL*
      3840/BAL*    3882/BAL*    3975/BAL*    4009/BAL*    4045/BAL*    4104/BAL*    4137/BAL*    4181/BAL*
      4217/BAL*    4277/BAL*    4312/BAL*    4351/BAL*    4368/BAL*    4403/BAL*    4454/BAL*    4489/BAL*
      4528/BAL*    4581/BAL*    4616/BAL*    4646/BAL*    4681/BAL*    4737/BAL*    4772/BAL*    4802/BAL*
      4837/BAL*    4865/BAL*    4900/BAL*    5002/BAL*    5036/BAL*    5072/BAL*    5126/BAL*    5135/BAL*
      5144/BAL*    5159/BAL*    5168/BAL*    5187/BAL*    5200/BAL*    5255/BAL*    5272/BAL*    5399/BAL*
      5458/BAL*    5500/BAL*    5552/BAL*    5622/BAL*    5634/BAL*    5665/BAL*    5709/BAL*    5767/BAL*
      5781/BAL*    5795/BAL*    5803/BAL*    5827/BAL*    5840/BAL*    5855/BAL*    5872/BAL*    5885/BAL*
      5927/BAL*    5942/BAL*    5955/BAL*    5969/BAL*    5977/BAL*    6472/BAL*    6492/BAL*    6520/BAL*
      6556/BAL*    6564/BAL*    6919/BAL*    7745/BAL*    7791/BAL*    7824/BAL*    7847/BAL*
   :SIO            2439/BAL     2466/BAL     2499/BAL     2561/BAL     2591/BAL     2621/BAL     2712/BAL
      2741/BAL     9018-SIO     9240/BAL
   :STATEM1        9143/DATA    9202-TEXTC
   :STATEM2        9146/LB      9147/STW     9148/STB     9153/STB     9161/STH     9164/STW     9166/DATA
      9203-TEXTC
   :STATERR        9099/BCR     9116/B       9123/B       9140-LH      9167/B
   :STATEST        9028/B       9042/B       9056/B       9070/B       9084/B       9087-STCF
   :STATTYP        9145/LW      9204-TEXT
   :TALLYE         3252/STW     3402/STW     3405/STW     8901/LW      8943/LW      8969-RES
   :TALLYMA        3259/STW     3413/STW     8953-DATA
   :TALLYO         3210/STW     3245/MTW     3321/STW     3360/MTW     3366/MTW     8896/LW      8903/SW
      8929/LW      8970-RES
   :TALLYP         3255/STW     3409/STW     8954/LW      8967-DATA
   :TDV            2412/BAL     7981/BAL     9060-TDV     9972/BAL
   :TIM            1688-MTW     2421/B       2481/B       2520/B       2527/B       2535/B       2545/B
      2646/B       2696/B       2768/B       2776/B       2881/B       2942/B       2982/B       3042/B
      3115/B       3176/B       3185/B       3269/BAL     3428/B       3496/B       3610/B       3667/B
      3810/B       3844/B       3857/B       3979/B       4049/B       4237/B       4409/B       4534/B
      4693/B       4909/B       5098/B       5213/B       5403/B       5462/B       5638/B       5722/B
      5729/B       5987/B       5993/B
   :TIMRETN        1585/DATA    1674-STW     1693/B       2027/BAL
   :TIO            2402/BAL     7978/BAL     9032-TIO     9235/BAL     9255/BAL     9983/BAL
   :TSEQ           1252-CNAME
   :TSEQEQU        1265-CNAME
   :TYPE           9027/STW     9041/STW     9055/STW     9069/STW     9083/STW     9106/LW      9118/LW
      9125/LW      9144/LW      9170-DATA
   :T1ALL          1697-DATA
   :T1AUTO         1696-DATA    1951/LW      1991/LW
   :T1CUR          1675/LW      1682/LW      1688/MTW     1698-DATA    1954/STW     2000/STW     2026/STW
   :T1LAST         1676/CW      1699-DATA    1952/STW     2001/STW
   :T1MEXIT        1674/STW     1677/BCS*    1700-DATA
   :T1SLT          1585-DATA    1678/AI      1696/DATA    1697/DATA
   :T1SLT1         1622-DATA    1696/DATA
   :T1SLT2         1627-EQU     1697/DATA
   :T1ST01         1586/DATA    2380-LI      2389/B
   :T1ST02         1587/DATA    2436-LW      2452/B       2462/B
   :T1ST03         1588/DATA    2496-LW      2506/B       2518/B
   :T1ST04         1589/DATA    2527-B
   :T1ST05         1590/DATA    2535-B
   :T1ST06         1591/DATA    2545-B
   :T1ST07         1592/DATA    2558-BAL     2568/B       2577/B       2587/B
   :T1ST08         1593/DATA    2657-BAL     2671/B       2683/B       2694/B
   :T1ST09         1594/DATA    2709-BAL     2719/B       2728/B       2737/B
   :T1ST10         1595/DATA    2776-B
   :T1ST11         1596/DATA    2792-BAL     2808/B
   :T1ST12         1597/DATA    2898-BAL
   :T1ST13         1598/DATA    2958-BAL     2971/B       2980/B
   :T1ST14         1599/DATA    2998-BAL     3011/B       3025/B       3039/B
   :T1ST15         1600/DATA    3061-BAL
   :T1ST16         1601/DATA    3130-BAL
   :T1ST17         1602/DATA    3185-B
   :T1ST18         1603/DATA    3196-BAL     3264/B
   :T1ST19         1604/DATA    3287-LI      3426/B
   :T1ST20         1605/DATA    3439-LI      3492/B
   :T1ST21         1606/DATA    3510-BAL
   :T1ST22         1607/DATA    3620-BAL
   :T1ST23         1608/DATA    3687-BAL
   :T1ST24         1609/DATA    3824-BAL
   :T1ST25         1610/DATA    3857-B
   :T1ST26         1611/DATA    3869-BAL     3884/B       3977/B
   :T1ST27         1612/DATA    3992-BAL     4011/B       4047/B
   :T1ST28         1613/DATA    4059-BAL
   :T1ST29         1614/DATA    4254-LW
   :T1ST30         1615/DATA    4425-LW
   :T1ST31         1616/DATA    4550-LW
   :T1ST32         1617/DATA    4714-LI
   :T1ST33         1618/DATA    4927-BAL
   :T1ST34         1619/DATA    5112-LI
   :T1ST35         1620/DATA    5233-BAL     5401/B
   :T1ST36         1621/DATA    5417-BAL     5460/B
   :T1ST37         1622/DATA    5479-BAL     5636/B
   :T1ST38         1623/DATA    5651-BAL
   :T1ST39         1624/DATA    5729-B
   :T1ST40         1625/DATA    5740-LI
   :T1ST41         1626/DATA    5993-B
   :WAIT           1451-EQU
   :1BYTEIN        1433-EQU
