1 C00   21:03 JUN 20,'83                                                                          PAGE    1
A      1                     3.000  +3,3                                                                *H00
       2                     3.010  VERSION  EQU      C'H02'                                            *H02
       3                   109.000  +109,115                                                            *H00
       4                   109.010   REV '   D1: 7315, 7322, 7323 (WANG), OR'                           *H00
       5                   110.010   REV '       75, 120, 150 (POTTER OR STC SHORT COLUMN), OR'         *H00
       6                   110.020   REV '       200 (STC LONG COLUMN)'                                 *H00
       7                   110.030   REV ' '                                                            *H00
       8                   110.040   REV '   D2: 0 (WANG, POTTER, STC LONG COLUMN), OR'                 *H00
       9                   110.050   REV '       800, 1600, 6250 (STC SHORT COLUMN)'                    *H00
      10                   110.060   REV ' '                                                            *H00
      11                   110.070   REV '   D3,...,D10: DEVICE ADDRESSES'                              *H00
      12                   575.000  +575                                                                *H00
      13                   575.010           CI,7     200               LOOK FOR STC LONG COLUMN        *H00
      14                   575.020           BE       INIT:STC           TREAT LIKE STC SHORT COLUMN    *H00
      15                   721.000  +721,721                                                            *H00
      16                   721.010           DATA     46                RECORDS LEFT AFTER ERASE        *H00
      17                   735.000  +735,736                                                            *H02
      18                   735.010           SPACE                                                      *H02
      19                   735.020           LW,R7    :P1               SET PROPER NUMBER               *H02
      20                   735.030           BLZ      TST201A            NUMBER OF RE CYCLES            *H02
      21                   735.040           LC       :PSW                DEFAULT IS 250                *H02
      22                   735.050           BCS,8    %+2                                               *H02
      23                   735.060           LI,R7    250                                               *H02
      24                   735.070           STW,R7   NMLOOP                                            *H02
      25                   735.080           SPACE                                                      *H02
      26                   742.000  +742                                                                *H02
      27                   742.010           SPACE                                                      *H02
      28                  1177.000  +1177,1177                                                          *H02
      29                  1177.010           BLEZ     %+3                                               *H02
      30                  1435.000  +1435,1435                                                          *H00
      31                  1435.010           BEZ      :SKIP              AN STC SHORT COLUMN            *H00
      32                  1619.000  +1619                                                               *H00
      33                  1620.000           BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
      34                  1657.000  +1657,1657                                                          *H00
      35                  1658.000  :T1ST11  BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
      36                  1659.000           BAL,R15  CLRARM             CLEAR AND ARM I/O INTERRUPT    *H00
      37                  1925.000  +1925,1925                                                          *H00
      38                  1925.010           BGE      :SKIP             TERMINATE IF WANG               *H00
      39                  1925.020           SPACE                                                      *H00
      40                  2335.000  +2335                                                               *H00
      41                  2336.000           BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
      42                  3696.000  +3696                                                               *H00
      43                  3697.000           BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
      44                  3877.000  +3877                                                               *H00
      45                  3878.000           BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
      46                  4973.000  +4973                                                               *H00
      47                  4973.010           B        :SKIP                                             *H00
      48                  4973.020           SPACE                                                      *H00
      49                  4973.030  :S2CHECK LW,R0    :P1               EXECUTE SUBTEST IF              *H00
      50                  4973.040           CW,R0    :P2                EXPLICITLY SPECIFIED           *H00
      51                  4973.050           BE       *R15                                              *H00
      52                  4973.060           SPACE                                                      *H00
      53                  4973.070           LH,R0    :CDB,1            SUPPRESS SUBTEST IF             *H00
      54                  4973.080           CI,R0    200                STC LONG COLUMN                *H00
      55                  4973.090           BNE      *R15                                              *H00
      56                  4975.000  +4975,4975                                                          *H00
      57                  4975.010  :SKIP    BAL,R15  *:QSENSE          SUPPRESS SKIP MESSAGE           *H00
      58                  4975.020           BCS,4    :TIM               IF SUBTEST ID SUPPRESSED       *H00
      59                  4975.030           SPACE                                                      *H00
      60                  4975.040           BAL,R15  *:PRINT           INDICATE SUBTEST SKIPPED        *H00
      61                  5542.000  +5542,5542                                                          *H02
      62                  5542.010  MXRAND   DATA     RMAX-1             LIMT,4 MAXIMUM LINKS           *H02
      63                  9999.999  +END
1 C00   21:03 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    3
A       1                                     PCC
        2         TEXT               CATALOG  EQU      C'0600'
        1*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4                            TITLE    EQU      S:PT('T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC',;
        5         TEXT                                 ' 960-',CATALOG,'-',VERSION)

        7                                     SYSTEM   SIG9P

        9         00000000           R0       EQU      0
       10         00000001           R1       EQU      1
       11         00000002           R2       EQU      2
       12         00000003           R3       EQU      3
       13         00000004           R4       EQU      4
       14         00000005           R5       EQU      5
       15         00000006           R6       EQU      6
       16         00000007           R7       EQU      7
       17         00000008           R8       EQU      8
       18         00000009           R9       EQU      9
       19         0000000A           R10      EQU      X'A'
       20         0000000B           R11      EQU      X'B'
       21         0000000C           R12      EQU      X'C'
       22         0000000D           R13      EQU      X'D'
       23         0000000E           R14      EQU      X'E'
       24         0000000F           R15      EQU      X'F'
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    4
A      26                            * PROCEDURE FOR GENERATING CALL TO ERROR ID DISPLAY AND SENSE
       27                                     OPEN     ERROR
       28         00000000           ERROR    CNAME
       29                                     PROC
       30                                     BAL,R15  GENERROR
       31                                     DATA     AF(1)
       32                                     DO       NUM(AF)>1
       33                                     B        AF(2)
       34                                     FIN
       35                                     PEND

       37                            * PROCEDURES FOR GENERATING I/O ERROR BIT TEST PATTERNS
       38         00000000           :TSEQ    CNAME
       39                                     PROC
       40                            LF       EQU      %
       41                            I        SET 1
       42                                     DO       NUM(AF)/4+1
       43                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
       44                            I        SET      I+4
       45                                     FIN
       46                                     PEND

       48         00000000           :TSEQEQU CNAME
       49                                     PROC
       50                            LF(1)    EQU      AF(1)
       51                            LF(2)    EQU      AF(1)+1
       52                            LF(3)    EQU      AF(1)+2
       53                            LF(4)    EQU      AF(1)+3
       54                            LF(5)    EQU      AF(1)+4
       55                            LF(6)    EQU      AF(1)+5
       56                            LF(7)    EQU      AF(1)+6
       57                            LF(8)    EQU      AF(1)+7
       58                                     PEND

       60                            *  PROCEDURE  FOR GENERATING DICTIONARY DOUBLE WORDS
       61         00000000           :PROCDIC CNAME
       62                                     PROC
       63                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
       64                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
       65                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
       66                                     PEND
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    5
A      68         00000000           REVCOUNT SET      0
       69         00000000           REVSTART SET      0

       71         00000000           REV      CNAME
       72                                     PROC
       73                                     DO       REVCOUNT=0
       74                            REVSTART SET      %
       75                            LF       RES      1
       76                                     FIN
       77                            REVCOUNT SET      REVCOUNT+1
       78                                     DO       SCOR(LF,REVEND)
       79                                     TEXTC    AF
       80                                     CODE
       81                                     ORG      REVSTART
       82                                     GEN,32   REVCOUNT
       83                                     ELSE
       84                                     TEXTC    AF
       85                                     FIN
       86                                     PEND

       88         00000000           CODE     CNAME
       89                                     PROC
       90                            REVPRINT LW,3     REVISION
       91                                     LW,4     =REVISION+1
       92                                     STW,4    TEXTADR
       93                            PRINT    BAL,15   *:PRINT
       94                            TEXTADR  DATA     0
       95                                     LB,5     *4
       96                                     AI,5     4
       97                                     SLS,5    -2
       98                                     AW,4     5
       99                                     BDR,3    PRINT-1
      100                                     LW,4     %+2
      101                                     STW,4    REVBRNCH
      102                                     B        REVBRNCH+1
      103                                     PEND
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    6
A     105   01 03000                          ORG      X'3000'
            01 03000
      106   01 03001    01404040 A   REVISION REV ' '
      107   01 03002    15E2E8E2 A    REV 'SYST,D1,D2,D3,...,D10'                                        *G02
            01 03003    E36BC4F1 A
            01 03004    6BC4F26B A
            01 03005    C4F36B4B A
            01 03006    4B4B6BC4 A
            01 03007    F1F04040 A
      108   01 03008    01404040 A    REV ' '
        1*  01 03009    22404040 A    REV '   D1: 7315, 7322, 7323 (WANG), OR'                           *H00
            01 0300A    C4F17A40 A
            01 0300B    F7F3F1F5 A
            01 0300C    6B40F7F3 A
            01 0300D    F2F26B40 A
            01 0300E    F7F3F2F3 A
            01 0300F    404DE6C1 A
            01 03010    D5C75D6B A
            01 03011    40D6D940 A
        2*  01 03012    34404040 A    REV '       75, 120, 150 (POTTER OR STC SHORT COLUMN), OR'         *H00
            01 03013    40404040 A
            01 03014    F7F56B40 A
            01 03015    F1F2F06B A
            01 03016    40F1F5F0 A
            01 03017    404DD7D6 A
            01 03018    E3E3C5D9 A
            01 03019    40D6D940 A
            01 0301A    E2E3C340 A
            01 0301B    E2C8D6D9 A
            01 0301C    E340C3D6 A
            01 0301D    D3E4D4D5 A
            01 0301E    5D6B40D6 A
            01 0301F    D9404040 A
        3*  01 03020    1C404040 A    REV '       200 (STC LONG COLUMN)'                                 *H00
            01 03021    40404040 A
            01 03022    F2F0F040 A
            01 03023    4DE2E3C3 A
            01 03024    40D3D6D5 A
            01 03025    C740C3D6 A
            01 03026    D3E4D4D5 A
            01 03027    5D404040 A
        4*  01 03028    01404040 A    REV ' '                                                            *H00
        5*  01 03029    2C404040 A    REV '   D2: 0 (WANG, POTTER, STC LONG COLUMN), OR'                 *H00
            01 0302A    C4F27A40 A
            01 0302B    F0404DE6 A
            01 0302C    C1D5C76B A
            01 0302D    40D7D6E3 A
            01 0302E    E3C5D96B A
            01 0302F    40E2E3C3 A
            01 03030    40D3D6D5 A
            01 03031    C740C3D6 A
            01 03032    D3E4D4D5 A
            01 03033    5D6B40D6 A
            01 03034    D9404040 A
        6*  01 03035    29404040 A    REV '       800, 1600, 6250 (STC SHORT COLUMN)'                    *H00
            01 03036    40404040 A
            01 03037    F8F0F06B A
            01 03038    40F1F6F0 A
            01 03039    F06B40F6 A
            01 0303A    F2F5F040 A
            01 0303B    4DE2E3C3 A
            01 0303C    40E2C8D6 A
            01 0303D    D9E340C3 A
            01 0303E    D6D3E4D4 A
            01 0303F    D55D4040 A
        7*  01 03040    01404040 A    REV ' '                                                            *H00
        8*  01 03041    1F404040 A    REV '   D3,...,D10: DEVICE ADDRESSES'                              *H00
            01 03042    C4F36B4B A
            01 03043    4B4B6BC4 A
            01 03044    F1F07A40 A
            01 03045    C4C5E5C9 A
            01 03046    C3C540C1 A
            01 03047    C4C4D9C5 A
            01 03048    E2E2C5E2 A
      116   01 03049    01404040 A   REVEND REV ' '
            01 0304A    32303000
            01 0304B    32402258
            01 0304C    3540304E
            01 0304D    EAF0021C
            01 0304E    00000000 A
            01 0304F    F2500004 A
            01 03050    20500004 A
            01 03051    2550007E A
            01 03052    30400005 A
            01 03053    6430304C
            01 03054    32403056
            01 03055    35400560
            01 03056    68000561
            01 03000    0000000C A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    7
A     118                            *  MONITOR LINK TABLE
      119                            *  ------------------
      120                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
      121                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
      122                            *  THE MONITOR (DPM).

      124   01 00200                          ORG      X'200'
            01 00200
      125         01 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
      126         01 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
      127         01 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
      128         01 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
      129         01 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
      130         01 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
      131         01 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
      132         01 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
      133         01 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
      134         01 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION
      135         01 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
      136         01 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
      137         01 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
      138         01 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
      139         01 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
      140         01 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
      141         01 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
      142         01 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
      143         01 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
      144         01 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
      145         01 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
      146         01 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
      147         01 00223           :ERRORC  EQU      :MLT+35           PROGRAM ERROR COUNT
      148         01 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
      149         01 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
      150         01 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
      151         01 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
      152         01 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
      153         01 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
      154         01 0022A           :QSENSE  EQU      :MLT+42           QUICK SENSE ROUTINE
      155         01 0022B           :WAIT    EQU      :MLT+43           WAIT SUBROUTINE
      156         01 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY INDEX
      157         01 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY INDEX
      158         01 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
      159         01 0022F           :MEMLAST EQU      :MLT+47           LAST USABLE MEMORY LOCATION
      160         01 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
      161         01 00231           :MONPBF  EQU      :MLT+49           ADDR OF ABSOLUTE RECOVERY ROUTINE
      162         01 00237           :REMOTE  EQU      :MLT+55           REMOTE CONNECT ROUTINE
      163         01 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    8
A     165                            *  PROGRAM INTERFACE TABLE
      166                            *  -----------------------
      167                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
      168                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
      169                            *  AND THE USER PROGRAM.

      171   01 00300                          ORG      X'300'
            01 00300
      172   01 00300    00000343     :PIT0    DATA     :CATALOG          ADDR OF LOC. CONTAINING CATALOG NO.
      173   01 00301    00000344     :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
      174   01 00302    00000320     :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
      175   01 00303    00000010 A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
      176   01 00304    0000055F     :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
      177   01 00305    00000330     :PIT5    DATA     :CDT              ADDR OF CONTEXT DESCRIPTION TABLE
      178   01 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
      179   01 00307    00000000 A   :PIT7    DATA     0
      180   01 00308    000003D6     :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
      181   01 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
      182   01 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER, PARAMETER IN ERROR
      183   01 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
      184   01 0030C    00000000 A   :PIT12   DATA     0                 RUNFLAG, RUN PROG IF FLAG = -1
      185         01 0030D           :PITLAST EQU      %
      186         01 0031B           :PITEND  EQU      :PIT0+27
      187         0000000E                    DO       :PITEND-:PITLAST  CLEAR LOCATIONS UP TO PIT27
      188   01 0030D    00000000 A            DATA     0
      189                                     FIN
            01 0030E    00000000 A
            01 0030F    00000000 A
            01 00310    00000000 A
            01 00311    00000000 A
            01 00312    00000000 A
            01 00313    00000000 A
            01 00314    00000000 A
            01 00315    00000000 A
            01 00316    00000000 A
            01 00317    00000000 A
            01 00318    00000000 A
            01 00319    00000000 A
            01 0031A    00000000 A
      190   01 0031B    000022A0     :PIT27   DATA     BUFF1             END OF USER PROGRAM
      191   01 0031C    00000000 A            DATA     0,0,0,0
            01 0031D    00000000 A
            01 0031E    00000000 A
            01 0031F    00000000 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE    9
A     193                            *  DIRECTIVE DICTIONARY
      194                            *  --------------------
      195                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
      196                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
      197                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
      198                            *  DEFINED AS FOLLOWS:
      199                            *
      200                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
      201                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
      202                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
      203                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
      204                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
      205                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      206                            *  BITS 48 THRU 63  ROUTINE ADDRESS
      207                            *
      208                            *  TYPE OF PARAMETER CONVERSION
      209                            *
      210                            *  000   HEXADECIMAL CONVERSION
      211                            *  001   DECIMAL CONVERSION TO BINARY
      212                            *  002   ALPHANUMERIC

      214   01 00320                          ORG      X'320'
            01 00320
      215         01 00320           :DIC     EQU      %
      216   01 00320    E3E2E3F0 A            :PROCDIC 'TST0',1,1,0,7,0,TST0     COMPREHENSIVE TEST
                        247004B4
      217   01 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1     FUNCTIONAL TEST
                        27F004D3
      218   01 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,1,0,7,0,TST2     RANDOM EXERCISER
                        2470050C
      219   01 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,1,1,0,TST3     UTILITY TESTS
                        2490052B
      220   01 00328    E3E2E3F4 A            :PROCDIC 'TST4',0,0,0,0,0,TST4     RANDOM FUNCTIONAL
                        0000054F
      221   01 0032A    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,0,0,DATTA    DATA
                        2000057A
      222   01 0032C    00D3C5D5 A            :PROCDIC 'LEN',1,7,7,7,0,LEN       LENGTH
                        3FF0056F
      223   01 0032E    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,7,7,0,:LIMIT   LIMIT
                        27F005A1
      224         01 00330           :DICEND  EQU      %
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   10
A     226                            *  CONTEXT DESCRIPTION TABLE
      227                            *  -------------------------
      228                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
      229                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
      230                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
      231                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
      232                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
      233                            *
      234                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
      235                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      236                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
      237                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
      238                            *
      239         01 00330           :CDT     EQU      :DICEND
      240   01 00330    05000007 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000339
      241         01 00332           :CDTEND  EQU      %
      242                            *
      243                            *
      244                            *  CONTEXT DATA BLOCK
      245                            *  ------------------
      246                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
      247                            *  INFORMATION FOR THE TEST PROGRAM.
      248                            *
      249         01 00332           :CDBM    EQU      %
      250   01 00332    00001C93 A            DATA     7315              75 IPS WANG
      251   01 00333    00001C9A A            DATA     7322              75 IPS WANG
      252   01 00334    00001C9B A            DATA     7323              150 IPS WANG
      253   01 00335    0000004B A            DATA     75                75 IPS POTTER OR STC
      254   01 00336    00000078 A            DATA     120               120 IPS POTTER OR STC
      255   01 00337    00000096 A            DATA     150               150 IPS POTTER OR STC
      256   01 00338    000000C8 A            DATA     200               200 IPS STC
      257         01 00339           :CDBMEND EQU      %
      258                            *
      259         01 00339           :CDB     EQU      %
      260   01 00339    00031C9A A            GEN,16,16 3,7322           PARAMETER COUNT, MODEL/SPEED
      261   01 0033A    00000000 A            DATA     0                 DENSITY (FOR STC TAPES)
      262   01 0033B    00000080 A   SYTDEVA  DATA     X'080'            DEVICE ADDRESS OF FIRST UNIT
      263   01 0033C    00000000 A            DATA     0                 DEVICE ADDRESS OF SECOND UNIT
      264   01 0033D    00000000 A            DATA     0                 DEVICE ADDRESS OF THIRD UNIT
      265   01 0033E    00000000 A            DATA     0                 DEVICE ADDRESS OF FOURTH UNIT
      266   01 0033F    00000000 A            DATA     0                 DEVICE ADDRESS OF FIFTH UNIT    *G02
      267   01 00340    00000000 A            DATA     0                 DEVICE ADDRESS OF SIXTH UNIT
      268   01 00341    00000000 A            DATA     0                 DEVICE ADDRESS OF SEVENTH UNIT
      269   01 00342    00000000 A            DATA     0                 DEVICE ADDRESS OF EIGHTH UNIT
      270         01 00343           :CDBEND  EQU      %
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   11
A     272         01 00343           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
      273   01 00343    00927E58 A            DATA     9600600
      274                            *
      275         01 00344           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
      276   01 00344    38E360E2 A            TEXTC    TITLE
            01 00345    C5D9C9C5 A
            01 00346    E240F960 A
            01 00347    C3C8C1D5 A
            01 00348    D5C5D340 A
            01 00349    D4C1C7D5 A
            01 0034A    C5E3C9C3 A
            01 0034B    40E3C1D7 A
            01 0034C    C540C4C9 A
            01 0034D    C1C7D5D6 A
            01 0034E    E2E3C9C3 A
            01 0034F    40F9F6F0 A
            01 00350    60F0F6F0 A
            01 00351    F060C8F0 A
            01 00352    F2404040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   12
A     278                            *  SUBTEST LINK TABLE
      279                            *
      280   01 00353    000003AB     :T1SLT   DATA     :TIMRETN
      281   01 00354    000005C9              DATA     :T1ST01           THESE SUBTESTS
      282   01 00355    000005ED              DATA     :T1ST02             CAN BE EXECUTED IN THE
      283   01 00356    00000610              DATA     :T1ST03               AUTOMATIC MODE.
      284   01 00357    00000620              DATA     :T1ST04                 NO MANUAL INTERVENTION
      285   01 00358    0000065E              DATA     :T1ST05                   IS REQUIRED.
      286   01 00359    0000069D              DATA     :T1ST06
      287   01 0035A    000006BD              DATA     :T1ST07
      288   01 0035B    0000070A              DATA     :T1ST08
      289   01 0035C    00000729              DATA     :T1ST09
      290   01 0035D    00000754              DATA     :T1ST10
      291   01 0035E    0000076F              DATA     :T1ST11
      292   01 0035F    000007C2              DATA     :T1ST12
      293   01 00360    000007EC              DATA     :T1ST13
      294   01 00361    0000080E              DATA     :T1ST14
      295   01 00362    00000832              DATA     :T1ST15
      296   01 00363    00000842              DATA     :T1ST16
      297   01 00364    0000085B              DATA     :T1ST17
      298   01 00365    000008FA              DATA     :T1ST18
      299   01 00366    00000931              DATA     :T1ST19
      300   01 00367    000009A2              DATA     :T1ST20
      301   01 00368    000009DE              DATA     :T1ST21
      302   01 00369    00000A1E              DATA     :T1ST22
      303   01 0036A    00000A4B              DATA     :T1ST23
      304   01 0036B    00000A88              DATA     :T1ST24
      305   01 0036C    00000A99              DATA     :T1ST25
      306   01 0036D    00000ACF              DATA     :T1ST26
      307   01 0036E    00000B1F              DATA     :T1ST27
      308   01 0036F    00000B4B              DATA     :T1ST28
      309   01 00370    00000BF2              DATA     :T1ST29
      310   01 00371    00000C74              DATA     :T1ST30
      311   01 00372    00000CA3              DATA     :T1ST31
      312   01 00373    00000D2D              DATA     :T1ST32
      313   01 00374    00000DA5              DATA     :T1ST33
      314   01 00375    00000DF7              DATA     :T1ST34
      315   01 00376    00000E56              DATA     :T1ST35
      316   01 00377    00000ED6              DATA     :T1ST36
      317   01 00378    00000F02     :T1SLT1  DATA     :T1ST37           THE FOLLOWING TESTS REQUIRE
      318   01 00379    00000F81              DATA     :T1ST38            OPERATOR INTERVENTION.
      319   01 0037A    00000FC4              DATA     :T1ST39
      320   01 0037B    0000108A              DATA     :T1ST40
      321   01 0037C    0000110B              DATA     :T1ST41
      322   01 0037D    00001122              DATA     :T1ST42
      323   01 0037E    00001183              DATA     :T1ST43
      324         01 0037F           :T1SLT2  EQU      %                 END OF TABLE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   13
A     326                            *           ***  INTERRUPT/TRAP HANDLER  ***
      327                            *
      328                            * PARAMETERS REQUIRED:
      329                            * ---------- --------
      330                            *   ITHTEST - TEST BEING PERFORMED (0=TST0,1=TST1,2=TST2,3=TST3)
      331                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
      332                            *   ITHRST  - RESTART ADDRESS
      333                            *
      334   01 0037F    35F0039C     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
      335   01 00380    32C00399              LW,12    ITHTEST           TEST NUMBER
      336   01 00381    EAF00218              BAL,15   *:HEXC              CONVERT TO EBCDIC
      337   01 00382    75F2039E              STB,15   ITHM2+1,1           PLACE IN MSG
      338   01 00383    EAF0021C              BAL,15   *:PRINT
      339   01 00384    0000039D              DATA     ITHM2             'TSTX WILL BE RESTARTED'
      340   01 00385    31200399              CW,2     ITHTEST           SKIP IF TST2 OR TST3
      341   01 00386    6830038A              BE       %+4
      342   01 00387    31300399              CW,3     ITHTEST
      343   01 00388    6830038A              BE       %+2
      344   01 00389    6AF00391              BAL,R15  ITHDIS              ELSE DISPLAY SUBTEST NUMBER
      345   01 0038A    32C01B8C              LW,12    :DEVADDR          DEVICE ADDRESS
      346   01 0038B    EAF00218              BAL,15   *:HEXC              CONVERT TO EBCDIC
      347   01 0038C    35F003AA              STW,15   ITHM4+3             PLACE IN MSG
      348   01 0038D    EAF0021C              BAL,15   *:PRINT
      349   01 0038E    000003A7              DATA     ITHM4             'DEVICE NO.XXXX'
      350   01 0038F    32F0039B              LW,15    ITHRST            (R15)=RESTART ADDRESS
      351   01 00390    E800039C              B        *ITHSAVE          RETURN TO MONITOR INTER/TRAP

      353         01 00391           ITHDIS   EQU      %
      354   01 00391    35F00398              STW,15   ITHSAV
      355   01 00392    32C0039A              LW,12    ITHSUBT           SUBTEST NUMBER
      356   01 00393    EAF00217              BAL,15   *:DECC              CONVERT TO EBCDIC
      357   01 00394    55F203A6              STH,15   ITHM3+3,1           PLACE IN MSG
      358   01 00395    EAF0021C              BAL,15   *:PRINT
      359   01 00396    000003A3              DATA     ITHM3             'SUBTEST NO. XX'
      360   01 00397    E8000398              B        *ITHSAV

      362   01 00398    00000000 A   ITHSAV   DATA     0
      363   01 00399    00000000 A   ITHTEST  DATA     0
      364   01 0039A    00000000 A   ITHSUBT  DATA     0
      365   01 0039B    00000000 A   ITHRST   DATA     0
      366   01 0039C    00000000 A   ITHSAVE  DATA     0
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   14
A     368   01 0039D    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            01 0039E    E3E740E6 A
            01 0039F    C9D3D340 A
            01 003A0    C2C540D9 A
            01 003A1    C5E2E3C1 A
            01 003A2    D9E3C5C4 A
      369   01 003A3    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            01 003A4    C2E3C5E2 A
            01 003A5    E340D5D6 A
            01 003A6    4B40E7E7 A
      370   01 003A7    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            01 003A8    E5C9C3C5 A
            01 003A9    40D5D64B A
            01 003AA    E7E7E7E7 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   15
A     372                            *  TEST 1 SEQUENCER (MONITOR)
      373                            *
      374   01 003AB    35F003D4     :TIMRETN STW,15   :T1MEXIT          SAVE EXIT ADDRESS

      376   01 003AC    324003D2              LW,R4    :T1CUR            GET CURRENT SUBTEST
      377   01 003AD    330003D5              MTW,0    :T1DIR            CHECK TESTING DIRECTION
      378   01 003AE    692003B3              BGZ      :TIM0             SKIP IF FORWARD
      379   01 003AF    683003C1              BEZ      :TIM2              SKIP IF RANDOM FUNCTIONAL

      381   01 003B0    314003D3              CW,R4    :T1LAST           TEST FOR BOUNDARY
      382   01 003B1    E91003D4              BL       *:T1MEXIT         AND STOP IF BELOW BOTTOM
      383   01 003B2    680003B5              B        :TIM1

      385         01 003B3           :TIM0    EQU      %
      386   01 003B3    314003D3              CW,R4    :T1LAST           TEST FOR BOUNDARY
      387   01 003B4    E92003D4              BG       *:T1MEXIT         AND STOP IF ABOVE TOP

      389         01 003B5           :TIM1    EQU      %
      390   01 003B5    2250037F              LI,5     ITHDLR            TRAP HANDLER ADDRESS
      391   01 003B6    3550030F              STW,5    :PIT0+15          INTO PIT + 15
      392   01 003B7    325003D2              LW,5     :T1CUR            CURRENT SUBTEST
      393   01 003B8    3550039A              STW,5    ITHSUBT           INTO ITHSUBT
      394   01 003B9    225004D4              LI,5     TST1+1            RESTART ADDRESS
      395   01 003BA    3550039B              STW,5    ITHRST            INTO ITHRST PARAMETER

      397   01 003BB    EAF0022A              BAL,R15  *:QSENSE          CHECK SENSE SWITCHES
      398   01 003BC    694003BE              BCS,4    %+2                AND SKIP DISPLAY OF SUBTEST
      399   01 003BD    6AF00391              BAL,R15  ITHDIS              NUMBER IF SSW2 IS SET

      401   01 003BE    20400353              AI,4     :T1SLT            BRANCH TO SUBTEST
      402   01 003BF    B2500004 A            LW,5     *4                NEXT SUBTEST POINTER
      403   01 003C0    E8000005 A            B        *5                BRANCH TO NEXT SUBTEST
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   16
A     405         01 003C1           :TIM2    EQU      %
      406   01 003C1    6AF01EFB              BAL,R15  :RANDOMX          GET A RANDOM NUMBER
      407   01 003C2    7244000E A            LB,R4    R14,R2             EXTRACT A BYTE
      408   01 003C3    31400201              CW,R4    :P1                 AND CONSTRAIN TO FIT
      409   01 003C4    691003C1              BL       :TIM2                RANGE OF SUBTESTS
      410   01 003C5    31400202              CW,R4    :P2
      411   01 003C6    692003C1              BG       :TIM2             (INTRODUCES SOME KIND OF
      412   01 003C7    354003D2              STW,R4   :T1CUR             RANDOM DELAY, OF COURSE)
      413   01 003C8    680003B5              B        :TIM1

      415         01 003C9           :TIM     EQU      %
      416   01 003C9    320003D5              LW,R0    :T1DIR            GET DIRECTION OF TESTING
      417   01 003CA    660003D2              AWM,R0   :T1CUR            AND INCREMENT TO NEXT SUBTEST

      419   01 003CB    220FFFFF A            LI,0     -1                RESET INTERRUPT DELAY
      420   01 003CC    35001B88              STW,0    JAHTC

      422   01 003CD    6AF01273              BAL,R15  SETTE             SET TE BIT IN VARIOUS MASKS

      424   01 003CE    330003D5              MTW,0    :T1DIR            RETURN IF IN
      425   01 003CF    E83003D4              BEZ      *:T1MEXIT          RANDOM FUNCTIONAL
      426   01 003D0    680003AC              B        :TIMRETN+1          ELSE LOOP

      428   01 003D1    00000025 A   :T1AUTO  DATA     :T1SLT1-:T1SLT    NUMBER OF SUBTESTS IN AUTOMATIC MODE
      429   01 003D2    00000000 A   :T1CUR   DATA     0                 CURRENT SUBTEST LINK TABLE INDEX
      430   01 003D3    00000000 A   :T1LAST  DATA     0                 LAST SUBTEST TO BE EXECUTED
      431   01 003D4    00000000 A   :T1MEXIT DATA     0                 STORAGE FOR REGISTER 15
      432   01 003D5    00000000 A   :T1DIR   DATA     0                 0=> UP TESTING, -1=>DOWN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   17
A     434                            *                                   INITIAL ENTRY TO PROGRAM
      435                            *                                   ------------------------------------
      436                            *
      437                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
      438                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.

      440   01 003D6    35F01B5C     :INITIAL STW,15   ST15              SAVE RETURN ADDRESS
      441   01 003D7    6AF00237              BAL,15   :REMOTE           CONNECT REMOTE USERS
      442   01 003D8    6AF0055F              BAL,15   :RECOVER          DO DPM RECOVERY
      443   01 003D9    32900339              LW,9     :CDB
      444   01 003DA    4B902259              AND,9    =X'FFFF'
      445   01 003DB    21901C93 A            CI,9     7315
      446   01 003DC    693003E1              BNE      INIT0
      447   01 003DD    35901B89              STW,9    FLG7315
      448   01 003DE    22901C9A A            LI,9     7322
      449   01 003DF    55920339              STH,9    :CDB,1
      450   01 003E0    680003E3              B        %+3

      452   01 003E1    22900000 A   INIT0    LI,9     0
      453   01 003E2    35901B89              STW,9    FLG7315

      455   01 003E3    3290022F              LW,9     :MEMLAST
      456   01 003E4    209FDD60 N            AI,9     -BUFF1            GENERATE BUFFER SIZE
      457   01 003E5    21904000 A            CI,9     X'4000'           WORD COUNT TOO LARGE
      458   01 003E6    691003E8              BL       %+2
      459   01 003E7    22903FF8 A            LI,9     X'3FF8'
      460   01 003E8    4B90225A              AND,9    =X'FFF8'          MAKE DOUBLE WORD
      461   01 003E9    35901B98              STW,9    MAXREC            NUMBER OF WORDS IN I/O AREA

      463   01 003EA    25900002 A            SLS,9    2
      464   01 003EB    35901B97              STW,9    MAXBYT            MAX BYTES IN I/O AREA
      465   01 003EC    55921A4B              STH,9    RFSPEC+1,1
      466   01 003ED    55921A4D              STH,9    RFSPEC1+1,1

      468   01 003EE    2590007F A            SLS,9    -1
      469   01 003EF    35901B99              STW,9    MAXREADB          MAX BYTES IN ONE BUFFER
      470   01 003F0    55921ACD              STH,R9   TST3RF+1,R1       FOR TST3,1 USE MAXIMUM
      471   01 003F1    53121ACD              MTH,1    TST3RF+1,R1        BLOCK SIZE IN BOTH
      472   01 003F2    55921ACB              STH,R9   TST3RB+1,R1         DIRECTIONS
      473   01 003F3    53121ACB              MTH,1    TST3RB+1,R1          WHEN READING

      475   01 003F4    2590007E A            SLS,9    -2                MAX WORDS IN I/O AREA
      476   01 003F5    35901B9A              STW,9    MAXREAD           WORDS IN ONE BUFFER

      478   01 003F6    209022A0              AI,9     WA(BUFF1)
      479   01 003F7    4B90225B              AND,9    =X'FFFFFFFE'      MAKE DOUBLE WORD ADDRESS
      480   01 003F8    35902256              STW,9    BUFF2             WA(BUFF1)+ WORDS/2
      481   01 003F9    25900002 A            SLS,9    2                 GET BYTE ADDRESS
      482   01 003FA    35902257              STW,R9   BUFF2BA           SAVE BA(BUFF2)
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   18
A     484                            * SETUP ALL READ BUFFER ADDRESSES
      485   01 003FB    22AFFFE0 A            LI,R10   (BACKBEG-BACKEND)/2
      486   01 003FC    22801A96              LI,R8    BACKBEG
      487   01 003FD    32C00009 A            LW,R12   R9
      488   01 003FE    32D0225C              LW,R13   =X'FFFFFF'

      490   01 003FF    C7C00008 A            STS,R12  *R8
      491   01 00400    20800002 A            AI,R8    2
      492   01 00401    65A003FF              BIR,R10  %-2

      494   01 00402    47C01A8E              STS,R12  TST30R            ADDRESS FOR TST1,30
      495   01 00403    33301A8E              MTW,3    TST30R             BA(BUFF2)+3

      497                            * SETUP ADDRESSES FOR READ BACKWARDS
      498   01 00404    32901A9C              LW,9     TRB100B
      499   01 00405    20900063 A            AI,9     99
      500   01 00406    35901A9C              STW,9    TRB100B
      501   01 00407    35901A9E              STW,9    TRB100C
      502   01 00408    32901AC2              LW,9     RB1000
      503   01 00409    209003E7 A            AI,9     999
      504   01 0040A    35901AC2              STW,9    RB1000
      505   01 0040B    32901AB6              LW,9     RBNP
      506   01 0040C    20900013 A            AI,9     19
      507   01 0040D    35901AB6              STW,9    RBNP
      508   01 0040E    32901AD4              LW,9     TRFDC48+2
      509   01 0040F    20900030 A            AI,9     48
      510   01 00410    35901AD4              STW,9    TRFDC48+2
      511   01 00411    32901ACE              LW,9     TRBDC06
      512   01 00412    20900063 A            AI,9     99
      513   01 00413    35901ACE              STW,9    TRBDC06
      514   01 00414    32901AD0              LW,9     TRBDC06+2
      515   01 00415    2090005D A            AI,9     93
      516   01 00416    35901AD0              STW,9    TRBDC06+2

      518   01 00417    52A00339              LH,10    :CDB              CHECK FOR DEVICE NUMBERS
      519   01 00418    21A00002 A            CI,10    2
      520   01 00419    6920041E              BG       INITIAL2

      522                            * ERROR NO DEVICE NUMBERS GIVEN
      523   01 0041A    22000000 A            LI,0     0
      524   01 0041B    3500030C              STW,0    :PIT12            RESET RUN FLAG
      525   01 0041C    3530030A              STW,R3   :PIT10            PARAMETER 3 IN ERROR
      526   01 0041D    E8001B5C              B        *ST15             EXIT FROM INITIALIZER
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   19
A     528   01 0041E    5A500339     INITIAL2 LCH,5    :CDB
      529   01 0041F    20500002 A            AI,5     2                 NUMBER OF DEVICES TO CHECK
      530   01 00420    22600000 A            LI,6     0
      531   01 00421    327C033B     INITIAL3 LW,7     SYTDEVA,6
      532   01 00422    3170225D              CW,7     =X'1FFF'          WITHIN LIMITS
      533   01 00423    6920042D              BG       INITIAL4
      534   01 00424    3170225E              CW,7     =X'00000080'      CORRECT BIT SET
      535   01 00425    6840042D              BCR,4    INITIAL4
      536   01 00426    3170225F              CW,7     =X'00000008'      0-7 ONLY
      537   01 00427    6940042D              BCS,4    INITIAL4
      538   01 00428    357C1B8E              STW,7    SAVDEV,6          SAVE DEVICE NUMBER IN TABLE
      539   01 00429    20600001 A            AI,6     1
      540   01 0042A    65500421              BIR,5    INITIAL3
      541   01 0042B    35601B96              STW,6    SAVNUMB           SAVE NUMBER OF DEVICES
      542   01 0042C    68000432              B        INITIAL5

      544                            * DEVICE NUMBER INCORRECT
      545   01 0042D    22000000 A   INITIAL4 LI,0     0
      546   01 0042E    3500030C              STW,0    :PIT12            RESET RUN FLAG
      547   01 0042F    20600003 A            AI,6     3
      548   01 00430    3560030A              STW,6    :PIT10            PARAMETER IN ERROR
      549   01 00431    E8001B5C              B        *ST15             EXIT FROM INITIALIZER

      551         01 00432           INITIAL5 EQU      %
      552   01 00432    52720339              LH,7     :CDB,1            GET MODEL NUMBER
      553   01 00433    35701B5A              STW,7    SAVMODEL
      554   01 00434    3200033A              LW,0     :CDB+1
      555   01 00435    68300440              BEZ      INIT:OLD
      556   01 00436    21000320 A            CI,0     800
      557   01 00437    68300454              BE       INIT:STC
      558   01 00438    21000640 A            CI,0     1600
      559   01 00439    68300454              BE       INIT:STC
      560   01 0043A    2100186A A            CI,0     6250
      561   01 0043B    68300454              BE       INIT:STC

      563                            * ERROR - DENSITY NOT POSSIBLE (800,1600,6250)
      564   01 0043C    3520030A              STW,2    :PIT10            PARAMETER 2 IN ERROR
      565   01 0043D    22000000 A            LI,0     0
      566   01 0043E    3500030C              STW,0    :PIT12
      567   01 0043F    E8001B5C              B        *ST15             EXIT - RUN FLAG RESET

      569         01 00440           INIT:OLD EQU      %
      570   01 00440    2170004B A            CI,7     75
      571   01 00441    6830044C              BE       INITP75
      572   01 00442    21700078 A            CI,7     120
      573   01 00443    6830044E              BE       INITP120
      574   01 00444    21700096 A            CI,7     150
      575   01 00445    68300450              BE       INITP150
        1*  01 00446    217000C8 A            CI,7     200               LOOK FOR STC LONG COLUMN        *H00
        2*  01 00447    68300454              BE       INIT:STC           TREAT LIKE STC SHORT COLUMN    *H00
      576   01 00448    21701C9B A            CI,7     7323
      577   01 00449    68300452              BE       INITIAL7
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   20
A     579                            ***  75 IPS, 800 BPI  ***
      580   01 0044A    2290046B              LI,9     K75800-1
      581   01 0044B    68000456              B        INITIAL8
      582                            ***  75 IPS, 1600 BPI  ***
      583         01 0044C           INITP75  EQU     %
      584   01 0044C    22900477              LI,9     K751600-1
      585   01 0044D    68000456              B        INITIAL8
      586                            ***  120 IPS, 1600 BPI  ***
      587         01 0044E           INITP120 EQU     %
      588   01 0044E    22900483              LI,9     K1201600-1
      589   01 0044F    68000456              B        INITIAL8
      590                            ***  150 IPS, 1600 BPI  ***
      591         01 00450           INITP150 EQU     %
      592   01 00450    2290049B              LI,9     K1501600-1
      593   01 00451    68000456              B        INITIAL8
      594                            ***  150 IPS, 800 BPI  ***
      595         01 00452           INITIAL7 EQU     %
      596   01 00452    2290048F              LI,9     K150800-1
      597   01 00453    68000456              B        INITIAL8
      598                            *** ANY STC TAPE UNIT ***
      599         01 00454           INIT:STC EQU      %
      600   01 00454    229004A7              LI,9     KSTC-1
      601   01 00455    68000456              B        INITIAL8

      603         01 00456           INITIAL8 EQU     %
      604   01 00456    2270000C A            LI,7     :KTABLEL
      605   01 00457    22A0045F              LI,10    :KTABLE-1
      606   01 00458    B28E0009 A            LW,8     *9,7
      607   01 00459    B58E000A A            STW,8    *10,7
      608   01 0045A    64700458              BDR,7    %-2

      610   01 0045B    3270033B              LW,7     SYTDEVA           SET UP FIRST DEVICE
      611   01 0045C    35701B8C              STW,7    :DEVADDR
      612   01 0045D    227FFFFF A            LI,7     -1
      613   01 0045E    3570030C              STW,7    :PIT12            RUN PROGRAM FLAG SET
      614   01 0045F    E8001B5C              B        *ST15             EXIT FROM INITIALIZER

      616         01 00460           :KTABLE  EQU      %
      617   01 00460    00000000 A   CHARTR   DATA     0                 TRANS TIME (9*16 BYTES, MICRO)
      618   01 00461    00000000 A   ERTMAX   DATA     0                 ERASE TIME MAX (MILLISECONDS)
      619   01 00462    00000000 A   ERTMIN   DATA     0                 ERASE TIME MIN
      620   01 00463    00000000 A   IRGMAX   DATA     0                 GAP MAX (MICRO)
      621   01 00464    00000000 A   IRGMIN   DATA     0                 GAP MIN (MICRO)
      622   01 00465    00000000 A   CRPMAX   DATA     0                 TAPE CREEP MAXIMUM POSITIVE
      623   01 00466    00000000 A   WTRT     DATA     0                 WRITE TO READ TIME
      624   01 00467    00000000 A   STOPDIF  DATA     0                 TAPE CREEP NEGATIVE DIFFERENCE
      625   01 00468    00000000 A   DQBN     DATA     0                 CAPSTAN SLIPPAGE
      626   01 00469    00000000 A   ERECORDS DATA     0                 RECORD MAX AFTER ERASE
      627   01 0046A    00000000 A   WDTIME   DATA     0                 WRITE DELAY TIME
      628   01 0046B    00000000 A   DEVBUSY  DATA     0                 TIME TILL RDY AFTER RWD
      629         0000000C           :KTABLEL EQU      %-:KTABLE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   21
A     631                            ***  75 IPS, 800 BPI CONSTANTS  *** 7315, 7322
      632                            *
      633         01 0046C           K75800   EQU      %
      634   01 0046C    00000D63 A            DATA     3427
      635   01 0046D    00000038 A            DATA     56
      636   01 0046E    0000002E A            DATA     46
      637   01 0046F    0000270F A            DATA     9999
      638   01 00470    00001A0A A            DATA     6666
      639   01 00471    00000578 A            DATA     1400
      640   01 00472    00000802 A            DATA     2050
      641   01 00473    00000190 A            DATA     400
      642   01 00474    FFFFE890 A            DATA    -6000
      643   01 00475    0000002C A            DATA     44
      644   01 00476    000005DC A            DATA     1500
      645   01 00477    00000005 A            DATA     5
      646                            *
      647                            ***  75 IPS, 1600 BPI CONSTANTS  *** POTTER
      648                            *
      649         01 00478           K751600  EQU      %
      650   01 00478    00001CB6 A            DATA     7350
      651   01 00479    00000035 A            DATA     53
      652   01 0047A    00000029 A            DATA     41
      653   01 0047B    00002BC0 A            DATA     11200
      654   01 0047C    00001A04 A            DATA     6660
      655   01 0047D    00000C80 A            DATA     3200
      656   01 0047E    000007D0 A            DATA     2000
      657   01 0047F    00000000 A            DATA     0
      658   01 00480    FFFFE890 A            DATA    -6000
      659   01 00481    0000002D A            DATA     45
      660   01 00482    00000105 A            DATA     261
      661   01 00483    00000008 A            DATA     8                                                 *G02
      662                            *
      663                            ***  120 IPS, 1600 BPI CONSTANTS  *** POTTER
      664                            *
      665         01 00484           K1201600 EQU      %
      666   01 00484    000011F3 A            DATA     4595
      667   01 00485    00000021 A            DATA     33
      668   01 00486    00000019 A            DATA     25
      669   01 00487    00001E78 A            DATA     7800
      670   01 00488    00001482 A            DATA     5250
      671   01 00489    00000683 A            DATA     1667
      672   01 0048A    000004E2 A            DATA     1250
      673   01 0048B    00000000 A            DATA     0
      674   01 0048C    FFFFEBB0 A            DATA    -5200
      675   01 0048D    0000002D A            DATA     45
      676   01 0048E    00000105 A            DATA     261
      677   01 0048F    00000008 A            DATA     8                                                 *G02
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   22
A     679                            ***  150 IPS, 800 BPI CONSTANTS  *** 7323
      680                            *
      681         01 00490           K150800  EQU      %
      682   01 00490    000006CE A            DATA     1742
      683   01 00491    0000001B A            DATA     27
      684   01 00492    00000017 A            DATA     23
      685   01 00493    00001770 A            DATA     6000
      686   01 00494    00000D05 A            DATA     3333
      687   01 00495    000004B0 A            DATA     1200
      688   01 00496    00000401 A            DATA     1025
      689   01 00497    00000190 A            DATA     400
      690   01 00498    FFFFEDC5 A            DATA    -4667
      691   01 00499    0000002C A            DATA     44
      692   01 0049A    000005DC A            DATA     1500
      693   01 0049B    00000005 A            DATA     5
      694                            *
      695                            ***  150 IPS, 1600 BPI CONSTANTS  *** POTTER
      696                            *
      697         01 0049C           K1501600 EQU      %
      698   01 0049C    00000E5B A            DATA     3675
      699   01 0049D    0000001B A            DATA     27
      700   01 0049E    00000014 A            DATA     20
      701   01 0049F    000019C8 A            DATA     6600
      702   01 004A0    00001068 A            DATA     4200
      703   01 004A1    000004B0 A            DATA     1200
      704   01 004A2    000003E8 A            DATA     1000
      705   01 004A3    00000000 A            DATA     0
      706   01 004A4    FFFFEDC5 A            DATA    -4667
      707   01 004A5    0000002E A            DATA     46
      708   01 004A6    00000105 A            DATA     261
      709   01 004A7    00000008 A            DATA     8                                                 *G02

      711                            *** CONSTANTS FOR STC TAPE DRIVES
      712                            *** 75, 125, 200 IPS, 800, 1600, 6250 BPI

      714         01 004A8           KSTC     EQU      %
      715   01 004A8    00000000 A            DATA     0
      716   01 004A9    00000000 A            DATA     0                 ERASE TIME MAX
      717   01 004AA    00000000 A            DATA     0                 ERASE TIME MIN
      718         00000006                    DO       6
      719   01 004AB    00000000 A            DATA     0
      720                                     FIN
            01 004AC    00000000 A
            01 004AD    00000000 A
            01 004AE    00000000 A
            01 004AF    00000000 A
            01 004B0    00000000 A
        1*  01 004B1    0000002E A            DATA     46                RECORDS LEFT AFTER ERASE        *H00
      722   01 004B2    00000000 A            DATA     0
      723   01 004B3    00000044 A            DATA     68                DELAY (MS) FOR CONTROLLER READY *G02
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   23
A     725                            *                 *** TST0 - COMPREHENSIVE TEST
      726                            *                      ------------------------
      727                            * THIS DIRECTIVE ALLOWS THE USER TO TEST ALL FUNCTIONS ASSOCIATED WITH
      728                            * THE 9-TRACK MAGNETIC TAPE SYSTEM AND CONCLUDES THE TEST WITH A RANDOM
      729                            * EXERCISER AFTER A SUCCESSFUL COMPLETION OF THE FUNCTIONAL TESTS.

      731         01 004B4           TST0     EQU      %

      733   01 004B4    22000000 A            LI,R0    0                 INDICATE TEST ZERO
      734   01 004B5    35000399              STW,R0   ITHTEST           IS NOW IN PROGRESS

        2*  01 004B6    32700201              LW,R7    :P1               SET PROPER NUMBER               *H02
        3*  01 004B7    6910051F              BLZ      TST201A            NUMBER OF RE CYCLES            *H02
        4*  01 004B8    70200211              LC       :PSW                DEFAULT IS 250                *H02
        5*  01 004B9    698004BB              BCS,8    %+2                                               *H02
        6*  01 004BA    227000FA A            LI,R7    250                                               *H02
        7*  01 004BB    35701B58              STW,R7   NMLOOP                                            *H02

      737   01 004BC    32700202              LW,R7    :P2               GET P2 FROM TST0 LINE
      738   01 004BD    69100523              BLZ      TST201B            SKIP IF IN ERROR
      739   01 004BE    70200211              LC       :PSW              EXAMINE PARAMETER LINE
      740   01 004BF    694004C1              BCS,4    %+2                PRESENCE FLAGS, SKIP IF P2
      741   01 004C0    22700001 A            LI,R7    1                 NO P2 - DEFAULT
      742   01 004C1    35701B57              STW,7    CRTRY             RETRIES FOR RANDOM EXER

      743   01 004C2    220FFFFF A            LI,0     -1                RESET INTERRUPT DELAY
      744   01 004C3    35001B88              STW,0    JAHTC

      746   01 004C4    327003D1     TST0A    LW,7     :T1AUTO
      747   01 004C5    357003D3              STW,7    :T1LAST           LAST SUBTEST
      748   01 004C6    35700202              STW,7    :P2
      749   01 004C7    351003D2              STW,1    :T1CUR            FIRST SUBTEST
      750   01 004C8    35100201              STW,1    :P1
      751   01 004C9    351003D5              STW,R1   :T1DIR            FORWARD TESTING
      752   01 004CA    680004F2              B        TST101            GO TO TST1 MONITOR

      754         01 004CB           TST001   EQU      %                 RETURN FROM TST1 MONITOR
      755   01 004CB    33001B58              MTW,0    NMLOOP            IF RE CYCLES NEEDED
      756   01 004CC    683004D0              BEZ      TST002            THEN EVENTUALLY SKIP TO RE

      758   01 004CD    EAF0021C              BAL,R15  *:PRINT           DISPLAY RE-WARNING MESSAGE
      759   01 004CE    00001D2E              DATA     TST00MG0
      760   01 004CF    68000519              B        TST202+1           AND SKIP TO RE

      762   01 004D0    EAF0022A     TST002   BAL,R15  *:QSENSE          CONTINUE TESTING
      763   01 004D1    E8800214              BCR,8    *:MONITOR         IF SSW 1 IS SET,
      764   01 004D2    680004C4              B        TST0A             ELSE RETURN TO DPM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   24
A     766                            *                 *** TST1 - FUNCTIONAL TEST
      767                            *                     ----------------------
      768                            * THIS DIRECTIVE PREFORMS A SYSTEMATIC TEST OF ALL LOGIC FUNCTIONS
      769                            * ASSOCIATED WITH THE 9-TRACK MAGNETIC TAPE SYSTEM. THE FUNCTIONAL
      770                            * TEST CONSISTS OF A NUMBER OF SUBTESTS WHICH MAY BE SELECTED
      771                            * INDIVIDUALLY OR IN GROUPS.

      773         01 004D3           TST1     EQU      %
      774   01 004D3    220FFFFF A            LI,0     -1                RESET INTERRUPT DELAY
      775   01 004D4    35001B88              STW,0    JAHTC
      776   01 004D5    32800202              LW,8     :P2               LAST TEST
      777   01 004D6    32700201              LW,7     :P1               FIRST SUBTEST
      778   01 004D7    682004EC              BLEZ     TST101A           ERROR IF P1.LE.0

      780   01 004D8    2170002B A            CI,7     :T1SLT2-:T1SLT-1  CHECK P1.GT.MAX
      781   01 004D9    692004EC              BG       TST101A
      782   01 004DA    2180002B A            CI,8     :T1SLT2-:T1SLT-1  CHECK P2.GT.MAX
      783   01 004DB    692004F0              BG       TST101B
      784   01 004DC    31700008 A            CW,7     8                 CHECK P1.GT.P2 AND
      785   01 004DD    682004E2              BLE      TST101C           SKIP IF NOT (FORWARD)

      787   01 004DE    21800000 A            CI,8     0
      788   01 004DF    693004E2              BNE      TST101C           SKIP IF P2.NE.0 (BACKWARD)
      789   01 004E0    32800007 A            LW,8     7                 ELSE SINGLE TEST EXECUTE
      790   01 004E1    35800202              STW,8    :P2

      792   01 004E2    357003D2     TST101C  STW,7    :T1CUR            FIRST SUBTEST
      793   01 004E3    358003D3              STW,8    :T1LAST           LAST SUBTEST
      794   01 004E4    38800007 A            SW,8     7                 FORM DIRECTION FLAG
      795   01 004E5    25800461 A            SAS,8    -31               -1=>BACKWARD TESTING
      796   01 004E6    33000008 A            MTW,0    R8
      797   01 004E7    693004E9              BNEZ     %+2
      798   01 004E8    22800001 A            LI,8     1                 +1=>FOREWARD TESTING
      799   01 004E9    358003D5              STW,8    :T1DIR
      800   01 004EA    35100399              STW,R1   ITHTEST           INDICATE TST1 IN PROGRESS
      801   01 004EB    680004F2              B        TST101

      803                            * PARAMETER P1 INCORRECT
      804   01 004EC    3510030A     TST101A  STW,1    :PIT10            P1 IN ERROR
      805   01 004ED    EAF00229              BAL,15   *:PREPORT         REPORT BAD PARAMETER
      806   01 004EE    00000322              DATA     :DIC+2
      807   01 004EF    E8000214              B        *:MONITOR         RETURN TO MONITOR

      809                            * PARAMETER P2 INCORRECT
      810   01 004F0    3520030A     TST101B  STW,2    :PIT10            P2 IN ERROR
      811   01 004F1    680004ED              B        %-4
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   25
A     813         01 004F2           TST101   EQU      %                 (FROM TST0 ALSO)
      814   01 004F2    22600000 A            LI,R6    0                 PREPARE TO SCAN DEVICES
      815   01 004F3    35601B8D              STW,R6   SAVESIX

      817   01 004F4    32601B8D     TST102   LW,6     SAVESIX
      818   01 004F5    327C1B8E              LW,7     SAVDEV,6
      819   01 004F6    35701B8C              STW,7    :DEVADDR          ADDRESS OF DEVICE TO BE TESTED

      821   01 004F7    32C01B8C              LW,12    :DEVADDR          DEVICE
      822   01 004F8    EAF00218              BAL,15   *:HEXC            CONVERT
      823   01 004F9    35F01CAF              STW,15   DEVPRTO+3         STORE

      825   01 004FA    EAF0022A              BAL,R15  *:QSENSE          CHECK CURRENT SWITCHES
      826   01 004FB    694004FE              BCS,4    TST103             AND SKIP DISPLAY IF SSW2=1

      828   01 004FC    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
      829   01 004FD    00001CAC              DATA     DEVPRTO

      831         01 004FE           TST103   EQU      %
      832   01 004FE    32700201              LW,7     :P1               RESTORE FIRST TEST
      833   01 004FF    357003D2              STW,7    :T1CUR
      834   01 00500    6AF003AB              BAL,15   :TIMRETN          GO TO SEQUENCER

      836                            * ALL SUBTESTS DONE ON ONE UNIT
      837   01 00501    33101B8D              MTW,1    SAVESIX           INCREMENT UNIT INDEX
      838   01 00502    32601B8D              LW,6     SAVESIX            AND CONTINUE IF MORE
      839   01 00503    31601B96              CW,6     SAVNUMB             UNITS IN THE LIST
      840   01 00504    691004F4              BL       TST102

      842   01 00505    32F00399              LW,R15   ITHTEST           COMPLETE IF TST0
      843   01 00506    683004CB              BEZ      TST001
      844   01 00507    21F00004 A            CI,R15   4                 RECYLE IF TST4
      845   01 00508    683004F2              BE       TST101

      847   01 00509    EAF0022A              BAL,R15  *:QSENSE          CONTINUE TESTING
      848   01 0050A    E8800214              BCR,8    *:MONITOR         IF SSW 1 IS SET,
      849   01 0050B    680004D3              B        TST1              ELSE RETURN TO DPM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   26
A     851                            *                 *** TST2 - RANDOM EXERCISER
      852                            *                     -----------------------
      853                            * THIS DIRECTIVE OPERATES A TAPE SYSTEM WITH A PSEUDO-RANDOM
      854                            * ORDER SEQUENCE, RANDOM DATA PATTERN, I/O AREA, TIME
      855                            * DELAY, AND RECORD SIZE FOR THE PURPOSE OF DETECTING INTERMITTENT
      856                            * FAILURES AND EXERCISING ALL TAPE UNITS SPECIFIED IN SYST.
      857                            *
      858                            *     P1  NUMBER OF CYCLES TO BE PERFORMED (DEFAULTS TO 1000).
      859                            *     P2  ERROR RETRY COUNT

      861         01 0050C           TST2     EQU      %
      862   01 0050C    220FFFFF A            LI,0     -1                RESET INTERRUPT DELAY
      863   01 0050D    35001B88              STW,0    JAHTC
      864   01 0050E    32700201              LW,7     :P1               NUMBER OF CYCLES
      865   01 0050F    6910051F              BLZ      TST201A           P1<0
      866   01 00510    69200512              BGZ      TST201            P1>0
      867   01 00511    22701388 A            LI,7     5000              NO CYCLES - DEFAULT
      868   01 00512    35701B58     TST201   STW,7    NMLOOP            NUMBER OF CYCLES STORED
      869   01 00513    32700202              LW,R7    :P2               GET P2 FROM TST0 LINE
      870   01 00514    69100523              BLZ      TST201B            SKIP IF IN ERROR
      871   01 00515    70200211              LC       :PSW              EXAMINE PARAMETER LINE
      872   01 00516    69400518              BCS,4    %+2                PRESENCE FLAGS, SKIP IF P2
      873   01 00517    22700001 A            LI,R7    1                 NO P2 - DEFAULT
      874   01 00518    35701B57     TST202   STW,7    CRTRY             NUMBER OF RETRIES STORED
      875   01 00519    2270037F              LI,7     ITHDLR            TRAP HANDLER ADDRESS
      876   01 0051A    3570030F              STW,7    :PIT0+15          INTO PIT + 15
      877   01 0051B    35200399              STW,2    ITHTEST           TEST NUMBER INTO ITHTEST
      878   01 0051C    2270050C              LI,7     TST2              RESTART ADDRESS
      879   01 0051D    3570039B              STW,7    ITHRST            INTO ITHRST PARAMETER
      880   01 0051E    68001297              B        T2RE

      882                            * PARAMETER P1 INCORRECT
      883   01 0051F    3510030A     TST201A  STW,1    :PIT10            P1 IN ERROR
      884   01 00520    EAF00229              BAL,15   *:PREPORT         REPORT BAD PARAMETER
      885   01 00521    00000324              DATA     :DIC+4
      886   01 00522    E8000214              B        *:MONITOR         RETURN TO MONITOR

      888                            * PARAMETER P2 INCORRECT
      889   01 00523    3520030A     TST201B  STW,2    :PIT10            P2 IN ERROR
      890   01 00524    68000520              B        %-4

      892         01 00525           TST203   EQU      %                 RE RETURNS TO THIS POINT
      893   01 00525    32F00399              LW,R15   ITHTEST
      894   01 00526    21F00002 A            CI,R15   2
      895   01 00527    693004F4              BNE      TST102            RETURN TO TST0 IF NOT TST2

      897   01 00528    EAF0022A              BAL,R15  *:QSENSE          CONTINUE TESTING
      898   01 00529    E8800214              BCR,8    *:MONITOR         IF SSW 1 IS SET,
      899   01 0052A    6800050C              B        TST2              ELSE RETURN TO DPM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   27
A     901                            *                 *** TST3 - UTILITY TEST
      902                            *                     -------------------
      903                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT SEVERAL UTILITY TESTS BY
      904                            * SPECIFYING IN PARAMETER 1 THE DESIRED TEST. PARAMETERS 2,3, AND 4
      905                            * ARE SPECIFICALLY INDICATED IN THE DESCRIPTION OF THE SUBTEST IF
      906                            * APPLICABLE.
      907                            *
      908                            *     P1 =1 TAPE TEST
      909                            *     ---------------
      910                            *                   THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD,
      911                            *                   READ BACKWARD, OR READ FORWARD AND BACKWARD P3
      912                            *                   RECORDS. THE 'DATA' AND 'LEN' DIRECTIVES CAN BE
      913                            *                   SELECTED TO DEFINE THE PATTERN AND RECORD SIZE.
      914                            *
      915                            *     P1 =2 DESKEW TEST
      916                            *     -----------------
      917                            *                   THIS TEST IS PROVIDED AS A SCOPING AID DURING
      918                            *                   CHECKING AND ADJUSTING THE READ/WRITE SKEW. A
      919                            *                   PATTERN OF ALL ONES WILL BE RECORDED AS A
      920                            *                   CONTINUOUS RECORD.
      921                            *
      922                            *     P1 =3 SYNC ON A CHARACTER TEST
      923                            *     ------------------------------
      924                            *                   THIS TEST IS PROVIDED AS A SCOPING AID BY EXECUTING
      925                            *                   A UNIQUE I/O INSTRUCTION (TDV) AFTER THE BYTE COUNT
      926                            *                   SPECIFIED HAS BEEN REACHED.
      927                            *
      928                            *     P1 =4 COMPATIBILITY AND NOISE PATTERN TEST
      929                            *     -----------------------------------------
      930                            *                   THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD,
      931                            *                   READ BACKWARD, OR READ FORWARD AND BACKWARD A
      932                            *                   PREDETERMINED, INCREMENTED RECORD PATTERN. WHEN
      933                            *                   THE MAXIMUM RECORD COUNT iS REACHED A PERMANENT
      934                            *                   AND TEMPORARY WRITE AND READ ERROR TALLY IS PRINTED.
      935                            *
      936                            *     P1 =5 READ/SPACE TEST
      937                            *     ---------------------
      938                            *        THIS TEST ALLOWS THE USER TO READ OR SPACE N RECS.
      939                            *        WITH OR WITHOUT REWIND. ONLY NON-RECOVERABLE TRANSMISSION
      940                            *        ERRORS WILL CAUSE ERROR PRINTOUT,BACKSPACE AND A HALT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   28
A     942         01 0052B           TST3     EQU      %
      943   01 0052B    22600000 A            LI,R6    0                 RESET DEVICE NUMBER
      944   01 0052C    35601B8D              STW,6    SAVESIX
      945   01 0052D    220FFFFF A            LI,0     -1                RESET INTERRUPT DELAY
      946   01 0052E    35001B88              STW,0    JAHTC
      947   01 0052F    32601B8D              LW,6     SAVESIX
      948   01 00530    327C1B8E              LW,7     SAVDEV,6
      949   01 00531    35701B8C              STW,7    :DEVADDR          SET UP DEVICE ADDRESS
      950   01 00532    2270037F              LI,7     ITHDLR            TRAP HANDLER ADDRESS
      951   01 00533    3570030F              STW,7    :PIT0+15          INTO PIT + 15
      952   01 00534    35300399              STW,3    ITHTEST           TEST NUMBER INTO ITHTEST
      953   01 00535    2270052B              LI,7     TST3              RESTART ADDRESS
      954   01 00536    3570039B              STW,7    ITHRST            INTO ITHRST PARAMETER
      955   01 00537    32700201              LW,7     :P1               P1
      956   01 00538    21700001 A            CI,7     1
      957   01 00539    683014D2              BEZ      TST31             GO TO TST3,1
      958   01 0053A    21700002 A            CI,7     2
      959   01 0053B    6830165E              BEZ      TST32             GO TO TST3,2
      960   01 0053C    21700003 A            CI,7     3
      961   01 0053D    683016C3              BEZ      TST33             GO TO TST3,3
      962   01 0053E    21700004 A            CI,7     4
      963   01 0053F    6830171A              BEZ      TST34             GO TO TST3,4
      964   01 00540    21700005 A            CI,7     5
      965   01 00541    6830177F              BE       TST35             GO TO TST3,5

      967                            * ERROR P1 INCORRECT
      968   01 00542    3510030A              STW,1    :PIT10            P1 IN ERROR
      969   01 00543    EAF00229              BAL,15   *:PREPORT         REPORT BAD PARAMETER
      970   01 00544    00000326              DATA     :DIC+6
      971   01 00545    E8000214              B        *:MONITOR         RETURN TO MONITOR

      973   01 00546    31100201     TST36    CW,1     :P1               CHANGE DEVICES FOR TST3,1 ONLY
      974   01 00547    6930054C              BNE      TST37
      975   01 00548    33101B8D              MTW,1    SAVESIX
      976   01 00549    32601B8D              LW,6     SAVESIX
      977   01 0054A    31601B96              CW,6     SAVNUMB           ALL UNITS TESTED
      978   01 0054B    6910052C              BCS,1    TST3+1

      980         01 0054C           TST37    EQU      %
      981   01 0054C    EAF0022A              BAL,R15  *:QSENSE          CONTINUE TESTING
      982   01 0054D    E8800214              BCR,8    *:MONITOR         IF SSW 1 IS SET,
      983   01 0054E    6800052B              B        TST3              ELSE RETURN TO DPM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   29
A     985                            *                 *** TST4 - RANDOM FUNCTIONAL TEST
      986                            *                     -----------------------------
      987                            * THIS DIRECTIVE PREFORMS A SYSTEMATIC TEST OF ALL LOGIC FUNCTIONS
      988                            * ASSOCIATED WITH THE 9-TRACK MAGNETIC TAPE SYSTEM. THE FUNCTIONAL
      989                            * TEST CONSISTS OF A NUMBER OF SUBTESTS WHICH WILL BE
      990                            * RANDOMLY SELECTED.

      992         01 0054F           TST4     EQU      %
      993   01 0054F    22000004 A            LI,R0    4                 SET TEST IDENTIFICATION
      994   01 00550    35000399              STW,R0   ITHTEST

      996   01 00551    220FFFFF A            LI,R0    -1                CLEAR INTERRUPT DELAY
      997   01 00552    35001B88              STW,R0   JAHTC

      999   01 00553    320003D1              LW,R0    :T1AUTO           SET LAST
     1000   01 00554    35000202              STW,R0   :P2                AND FIRST SUBTESTS
     1001   01 00555    350003D3              STW,R0   :T1LAST             IN EXECUTION RANGE
     1002   01 00556    351003D2              STW,R1   :T1CUR
     1003   01 00557    35100201              STW,R1   :P1

     1005   01 00558    22000000 A            LI,R0    0
     1006   01 00559    350003D5              STW,R0   :T1DIR

     1008   01 0055A    32C02260              LW,R12   =X'12B9B0A1'      INITIALIZE RANDOM
     1009   01 0055B    32D02261              LW,R13   =X'1033C4D7'       NUMBER GENERATION
     1010   01 0055C    32E02262              LW,R14   =X'544B2FBA'
     1011   01 0055D    6AF01EF8              BAL,R15  :RANDOMY
     1012   01 0055E    680004F2              B        TST101
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   30
A    1014                            *                                   ABSOLUTE RECOVERY ROUTINE
     1015                            *                                   -------------------------
     1016   01 0055F    35F01BA0     :RECOVER STW,15   ST1155
     1017         01 00560           REVBRNCH EQU      %                 REVISION MESSAGES ARE
     1018   01 00560    6800304A              B        REVPRINT          PRINTED ONLY ONE TIME

     1020   01 00561    22100001 A            LI,1     1                 RESTORE REGISTERS 1,2,3
     1021   01 00562    22200002 A            LI,2     2
     1022   01 00563    22300003 A            LI,3     3
     1023   01 00564    32401BEC              LW,4     XPSD1             I/O INTERRUPT
     1024   01 00565    3540005C A            STW,4    X'5C'
     1025   01 00566    3240203A              LW,4     :DELXPSD          ZERO INTERRUPT
     1026   01 00567    3540005B A            STW,4    X'5B'
     1027   01 00568    3240203B              LW,4     :DELMTW           CLOCK INTERRUPT
     1028   01 00569    35400055 A            STW,4    X'55'
     1029   01 0056A    32400200              LW,4     :MLT              ABSOLUTE RECOVERY
     1030   01 0056B    35400026 A            STW,4    X'26'
     1031   01 0056C    22400020 A            LI,4     X'20'             DISARM INTERRUPT
     1032   01 0056D    6D401100 A            WD,4     X'1100'
     1033   01 0056E    E8001BA0              B        *ST1155
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   31
A    1035                            *                 *** LEN DIRECTIVE
     1036                            *                     -------------
     1037                            * THIS DIRECTIVE DEFINES THE RECORD LENGTH TO BE USED IN THE UTILITY
     1038                            * TESTS TO ALTER DEFAULT BYTE COUNT.  THE LENGTH IS ADJUSTED TO
     1039                            * THE MEMORY AVAILABLE (MAXIMUM 32752 BYTES).
     1040                            *
     1041                            *     P1 FIXED RECORD LENGTH OF N BYTES

     1043   01 0056F    32700201     LEN      LW,7     :P1               LENGTH INTO R7
     1044   01 00570    69200575              BGZ      LEN1

     1046                            * ERROR P1 =0 OR P1 NEGATIVE
     1047   01 00571    3510030A              STW,1    :PIT10            P1 IN ERROR
     1048   01 00572    EAF00229              BAL,15   *:PREPORT         REPORT BAD PARAMETER
     1049   01 00573    0000032A              DATA     :DIC+10
     1050   01 00574    E8000214              B        *:MONITOR

     1052   01 00575    31701B99     LEN1     CW,7     MAXREADB          MAXIMUM READ BYTE SIZE
     1053   01 00576    68200578              BLE      %+2
     1054   01 00577    32701B99              LW,7     MAXREADB          MAXIMUM READ SIZE
     1055   01 00578    35701BDA              STW,7    LENGTH
     1056   01 00579    E8000214              B        *:MONITOR         GO TO MONITOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   32
A    1058                            *                 *** DATA DIRECTIVE
     1059                            *                     --------------
     1060                            * THIS DIRECTIVE DEFINES THE DATA PATTERN TO BE USED IN THE UTILITY
     1061                            * TESTS TO ALTER PREDEFINED DATA PATTERNS.
     1062                            *
     1063                            *     P1 =0 FIXED PATTERN (PATTERN IN P2)
     1064                            *        =1 FIXED PATTERN (PATTERN IN BUFF1, NOT CHANGED)
     1065                            *        =2 RANDOM PATTERN (SEED IN P2)
     1066                            *        =5 BIT CROWDING PATTERN (TRACKS IN P2, DATA IN P3 AND P4)
     1067                            *     P2 FIXED PATTERN IF P1 =0.
     1068                            *        RANDOM PATTERN SEED IF P1 =2.
     1069                            *        TRACK NUMBERS IF P1=5 (TWO TRACKS 12 TO 98)
     1070                            *     P3 BINARY DIGIT STRING FOR FIRST TRACK IF P1 =5.
     1071                            *     P4 BINARY DIGIT STRING FOR SECOND TRACK IF P1 =5.

     1073   01 0057A    32700201     DATTA    LW,7     :P1               PATTERN TYPE
     1074   01 0057B    21700002 A            CI,7     2                 P1 =2
     1075   01 0057C    69300584              BNEZ     DATTA2
     1076   01 0057D    35701BD4              STW,7    PATTYPE           RANDOM PATTERN
     1077   01 0057E    32700202              LW,7     :P2               SEED IF P1 =2
     1078   01 0057F    6830059A              BEZ      DATTA5            ERROR IF SEED IS ZERO

     1080   01 00580    35701BD3     DATTA1A  STW,7    PATTSED
     1081   01 00581    35701F59              STW,7    :PATID+1          SEED
     1082   01 00582    35201F58              STW,2    :PATID            TYPE RANDOM
     1083   01 00583    E8000214              B        *:MONITOR

     1085   01 00584    21700001 A   DATTA2   CI,7     1                 P1.EQ.0.OR.P1.EQ.1
     1086   01 00585    6920058C              BG       DATTA3             SKIP IF NOT

     1088   01 00586    35701BD4              STW,7    PATTYPE           FIXED PATTERN
     1089   01 00587    35701F58              STW,7    :PATID            TYPE OF PATTERN
     1090   01 00588    32700202              LW,7     :P2               FIXED PATTERN IF P1 =0
     1091   01 00589    35701F59              STW,7    :PATID+1          WORD TO SMEAR
     1092   01 0058A    35701BD8              STW,7    PATTFIX           PATTERN =0 OR NEGATIVE OK
     1093   01 0058B    E8000214              B        *:MONITOR

     1095   01 0058C    21700005 A   DATTA3   CI,7     5
     1096   01 0058D    68300592              BEZ      DATTA4

     1098                            * ERROR IF P1 IS NOT 0,1,2,5
     1099   01 0058E    3510030A              STW,1    :PIT10            P1 IN ERROR
     1100   01 0058F    EAF00229              BAL,15   *:PREPORT         REPORT BAD PARAMETER
     1101   01 00590    00000328              DATA     :DIC+8
     1102   01 00591    E8000214              B        *:MONITOR         GO TO MONITOR

     1104   01 00592    35701BD4     DATTA4   STW,7    PATTYPE           P1 =5
     1105   01 00593    32700202              LW,7     :P2               BIT CROWDING
     1106   01 00594    21700012 A            CI,7     X'12'             MINIMUM
     1107   01 00595    6910059A              BCS,1    DATTA5
     1108   01 00596    21700098 A            CI,7     X'98'             MAXIMUM
     1109   01 00597    6920059A              BCS,2    DATTA5
     1110   01 00598    35701BD5              STW,7    PATTTK            STORE TRACKS TO CROWD
     1111   01 00599    6800059C              B        DATTA6

     1113                            * ERROR, TRACKS NOT WITHIN LIMITS OR SEED IS ZERO
     1114   01 0059A    3520030A     DATTA5   STW,2    :PIT10            P2 IN ERROR
     1115   01 0059B    6800058F              B        DATTA3+3

     1117   01 0059C    32700203     DATTA6   LW,7     :P3               BINARY STRING FOR 1 ST DIGIT
     1118   01 0059D    35701BD6              STW,7    PATTTS1
     1119   01 0059E    32700204              LW,7     :P4               BINARY STRING FOR 2 ND DIGIT
     1120   01 0059F    35701BD7              STW,7    PATTTS2
     1121   01 005A0    E8000214              B        *:MONITOR         GO TO MONITOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   33
A    1123                            *                  *******LIMIT DIRECTIVE**********
     1124                            *                         ---------------
     1125                            *        THIS DIRECTIVE ALLOWS THE USER TO LIMIT PROGRAM OPERATIONS
     1126                            *        SPECIFIED BY PARAMETERS P1 AND P2.
     1127                            *
     1128                            *                  P1 =1 LIMIT COMPARE ERROR PRINTOUT TO P2 LINES.
     1129                            *                  P1 =2 SET WRETRY (TST3,1) TO P2
     1130                            *                  P1 =3 SET RRETRY (TST3,1) TO P2
     1131                            *                  P1 =4 SET MXRAND (MAX TST2 I/O LINKS) TO P2
     1132                            *
     1133   01 005A1    3520030A     :LIMIT   STW,2    :PIT10            SET ILLEGAL PARAMETER NO.
     1134   01 005A2    72820211              LB,8     :PSW,1            FETCH PAR COUNT
     1135   01 005A3    21800002 A            CI,8     2
     1136   01 005A4    683005A8              BE       :LIM1             B: PAR COUNT =2

     1138   01 005A5    EAF00229     :LIM0    BAL,15   *:PREPORT         REPORT PAR ERROR
     1139   01 005A6    0000032C              DATA     :DIC+12
     1140   01 005A7    E8000214              B        *:MONITOR         RETURN TO MONITOR

     1142   01 005A8    3510030A     :LIM1    STW,1    :PIT10            SET PAR NO =1
     1143   01 005A9    31100201              CW,1     :P1
     1144   01 005AA    693005B0              BNE      :LIM2             LOOK FOR P1=2,3
     1145   01 005AB    32800202              LW,8     :P2               FETCH PAR P2
     1146   01 005AC    692005AE              BGZ      %+2
     1147   01 005AD    2280FFFF A            LI,8     X'FFFF'           SET LIMIT TO HI NUMBER
     1148   01 005AE    35801FD2              STW,8    :COMPLIN          SAVE COMPARE LIMIT COUNT
     1149   01 005AF    E8000214              B        *:MONITOR         RETURN TO PROGRAM

     1151         01 005B0           :LIM2    EQU      %
     1152   01 005B0    31200201              CW,2     :P1               LOOK FOR P1=2
     1153   01 005B1    693005B7              BNE      :LIM3              (SET WRETRY)

     1155   01 005B2    32800202              LW,8     :P2               FETCH P2
     1156   01 005B3    681005B5              BGEZ     %+2                SKIP IF .GE. 0
     1157   01 005B4    22800000 A            LI,8     0                 ELSE SET DEFAULT
     1158   01 005B5    35801B86              STW,8    WRETRY            THEN SET WRETRY
     1159   01 005B6    E8000214              B        *:MONITOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   34
A    1161         01 005B7           :LIM3    EQU      %
     1162   01 005B7    31300201              CW,3     :P1               LOOK FOR P1=3
     1163   01 005B8    693005BE              BNE      :LIM4              (SET RRETRY)

     1165   01 005B9    32800202              LW,8     :P2               FETCH P2
     1166   01 005BA    681005BC              BGEZ     %+2                SKIP IF .GE. 0
     1167   01 005BB    22800000 A            LI,8     0                 ELSE SET DEFAULT
     1168   01 005BC    35801B87              STW,8    RRETRY            THEN SET RRETRY
     1169   01 005BD    E8000214              B        *:MONITOR

     1171         01 005BE           :LIM4    EQU      %
     1172   01 005BE    32000201              LW,R0    :P1               LOOK FOR P1=4
     1173   01 005BF    21000004 A            CI,R0    4
     1174   01 005C0    693005A5              BNE      :LIM0

     1176   01 005C1    32000202              LW,R0    :P2               LOOK FOR P2.GT.0
        1*  01 005C2    682005C5              BLEZ     %+3                                               *H02

     1179   01 005C3    21000014 A            CI,R0    RMAX              AND .LE. ABSOLUTE MAXIMUM
     1180   01 005C4    682005C6              BLE      %+2                LINKS IN TST2 I/O LIST

     1182   01 005C5    22000014 A            LI,R0    RMAX              ENFORCE DEFAULT
     1183   01 005C6    200FFFFF A            AI,R0    -1                 REDUCE COUNT FOR TESTING
     1184   01 005C7    35001404              STW,R0   MXRAND              AND SAVE FOR TST2.RBUILD

     1186   01 005C8    E8000214              B        *:MONITOR         RETURN TO MONITOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   35
A    1188                            *                                   TST1,1 AIO,HIO,TIO,TDV TEST
     1189                            *                                   ------------------------------------
     1190                            *
     1191                            * CHECK THE ABILITY OF THE 9-TRACK MAG TAPE SYSTEM TO CORRECTLY
     1192                            * RESPOND TO THE AIO, HIO AND THE TDV INSTRUCTIONS. AIO WILL ONLY
     1193                            * CHECK THE NO INTERRUPT PENDING CONDITION. VERIFY ADDRESS RECOGNITION
     1194                            * AND STATUS RESPONSE TO THESE INSTRUCTIONS. ANY ERROR IN THIS TEST
     1195                            * MAY INDICATE A POSSIBLE PROBLEM IN THE SUB-CONTROLLER AREA.
     1196   01 005C9    22500020 A   :T1ST01  LI,5     X'20'             AIO
     1197   01 005CA    6D501100 A            WD,5     X'1100'           DISABLE I/O INTERRUPT
     1198   01 005CB    6EC00000 A            AIO,12   0                 AIO
     1199   01 005CC    698005D6              BCS,8    T1ST0102          NO IP
     1200   01 005CD    EAF00218              BAL,R15  *:HEXC
     1201   01 005CE    35F02070              STW,R15  :INTSVM+7
     1202   01 005CF    EAF00218              BAL,R15  *:HEXC
     1203   01 005D0    35F0206F              STW,R15  :INTSVM+6
     1204   01 005D1    EAF0021C              BAL,R15  *:PRINT
     1205   01 005D2    00002069              DATA     :INTSVM           DISPLAY AIO STATUS
     1206   01 005D3    6AF0123F              ERROR    101,:T1ST01       NO INTERRUPT EXPECTED ON AIO
            01 005D4    00000065 A
            01 005D5    680005C9
     1207   01 005D6    6AF018CE     T1ST0102 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1208   01 005D7    32E02263              LW,14    =X'E700C000'      MASK AUTOMATIC ONLY
     1209   01 005D8    6AF01DC9              BAL,15   :HIO              HIO
     1210   01 005D9    680005DD              B        T1ST0103
     1211   01 005DA    6AF0123F              ERROR    102,T1ST0102      INCORRECT HIO STATUS
            01 005DB    00000066 A
            01 005DC    680005D6
     1212   01 005DD    6AF018CE     T1ST0103 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1213   01 005DE    32E02264              LW,14    =X'EF00C000'      MASK AUTOMATIC ONLY
     1214   01 005DF    6AF01DC0              BAL,15   :TIO              TIO
     1215   01 005E0    680005E4              B        T1ST0104
     1216   01 005E1    6AF0123F              ERROR    103,T1ST0102      INCORRECT TIO STATUS
            01 005E2    00000067 A
            01 005E3    680005D6
     1217   01 005E4    6AF018CE     T1ST0104 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1218   01 005E5    32E02265              LW,14    =X'B300C000'      WRITE PERMIT AND LOAD PT OK
     1219   01 005E6    6AF01DD2              BAL,15   :TDV
     1220   01 005E7    680005EC              B        T1ST0105
     1221   01 005E8    6AF0123F              ERROR    104,T1ST0104      INCORRECT TDV STATUS
            01 005E9    00000068 A
            01 005EA    680005E4
     1222   01 005EB    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1223   01 005EC    680003C9     T1ST0105 B        :TIM              GO TO SEQUENCER


     1225                            *                                   TST1,2 INVALID ORDER TEST
     1226                            *                                   ------------------------------------
     1227                            *
     1228                            * CHECK THE INVALID ORDER DETECTION BY ISSUING TWO SIO'S WITH INVALID
     1229                            * ORDER CODES (X'09', X'7B'). THIS TEST IS DESIGNED TO CHECK ORDER
     1230                            * DECODING, ORDER-OUTPUT AND ORDER-INPUT PHASES IN THE CONTROLLER AND
     1231                            * UNUSUAL END DETECTION. THE REMAINING BYTE COUNT WILL BE TESTED TO
     1232                            * VERIFY THAT NO DATA PHASES WERE EXECUTED. CHECK THE ABILITY OF THE
     1233                            * HIO TO RESET UE CONDITION.
     1234   01 005ED    32E02263     :T1ST02  LW,14    =X'E700C000'      AUTOMATIC ONLY
     1235   01 005EE    22000CE6              LI,0     DA(TWR1)          INVALID WRITE BACKWARD
     1236   01 005EF    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1237   01 005F0    6AF01DB7              BAL,15   :SIO
     1238   01 005F1    680005F6              B        T1ST0200
     1239   01 005F2    6AF0123F              ERROR    201,:T1ST02       SIO NOT ACCEPTED
            01 005F3    000000C9 A
            01 005F4    680005ED
     1240   01 005F5    680005FA              B        T1ST0201
     1241   01 005F6    22006690     T1ST0200 LI,R0    BA(TSEQ034)       NO IP, UE
     1242   01 005F7    6AF01241              BAL,R15  GENFAIL
     1243   01 005F8    000000CA A            DATA     202
     1244   01 005F9    680005ED              B        :T1ST02
     1245   01 005FA    CFA01B8C     T1ST0201 HIO,10   *:DEVADDR         HIO TO RESET UE
     1246   01 005FB    CDC01B8C              TIO,12   *:DEVADDR         UE SHOULD BE RESET
     1247   01 005FC    31D02266              CW,13    =X'08000000'
     1248   01 005FD    68400601              BCR,4    T1ST0202          UE SHOULD BE RESET
     1249   01 005FE    6AF0123F              ERROR    203,:T1ST02       INCORRECT TIO STATUS
            01 005FF    000000CB A
            01 00600    680005ED
     1250   01 00601    32E02263     T1ST0202 LW,14    =X'E700C000'      AUTOMATIC ONLY
     1251   01 00602    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1252   01 00603    22000CE7              LI,0     DA(TWR2)          INVALID WRITE TM BACKWARD
     1253   01 00604    6AF01DB7              BAL,15   :SIO
     1254   01 00605    6800060A              B        T1ST0204
     1255   01 00606    6AF0123F              ERROR    204,T1ST0202      SIO NOT ACCEPTED
            01 00607    000000CC A
            01 00608    68000601
     1256   01 00609    6800060E              B        T1ST0203
     1257   01 0060A    22006690     T1ST0204 LI,R0    BA(TSEQ034)       NO IP, UE
     1258   01 0060B    6AF01241              BAL,R15  GENFAIL
     1259   01 0060C    000000CD A            DATA     205
     1260   01 0060D    68000601              B        T1ST0202
     1261   01 0060E    6AF018CE     T1ST0203 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1262   01 0060F    680003C9              B        :TIM              GO TO SEQUENCER


     1264                            *                                   TST1,3 ERASE ORDER TEST
     1265                            *                                   ------------------------------------
     1266                            *
     1267                            * CHECK THE EXECUTION OF THE FIRST VALID ORDER. THIS TEST IS DESIGNED
     1268                            * TO FURTHER CHECK ORDER DECODING, ORDER-OUTPUT AND ORDER-INPUT PHASES
     1269                            * IN THE CONTROLLER, AND ORDER TERMINATION WITHOUT UNUSUAL END. THE
     1270                            * REMAINING BYTE COUNT WILL BE TESTED TO VARIFY THAT NO DATA PHASES
     1271                            * WERE EXECUTED. THE STATUS RESPONSE WILL BE TESTED.
     1272   01 00610    32E02267     :T1ST03  LW,14    =X'0000C000'      AUTOMATIC ONLY
     1273   01 00611    22000CEA              LI,0     DA(TSE3)          SET ERASE BC = 2 NO INTERRUPT
     1274   01 00612    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1275   01 00613    6AF01DB7              BAL,15   :SIO              SET ERASE
     1276   01 00614    68000618              B        T1ST0302
     1277   01 00615    6AF0123F              ERROR    301,:T1ST03       INCORRECT SIO STATUS
            01 00616    0000012D A
            01 00617    68000610
     1278   01 00618    22E00400 A   T1ST0302 LI,R14   1024              DELAY ABOUT ONE SECOND          *G02
     1279   01 00619    6AF01239              BAL,R15  GENDELAY           AT LOAD POINT                  *G02

     1281   01 0061A    22006680              LI,R0    BA(TSEQ030)       READY, BC=2, NO UE
     1282   01 0061B    6AF01241              BAL,R15  GENFAIL
     1283   01 0061C    0000012E A            DATA     302
     1284   01 0061D    68000610              B        :T1ST03
     1285   01 0061E    6AF018CE     T1ST0304 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1286   01 0061F    680003C9              B        :TIM              GO TO SEQUENCER


     1288                            *                                   TST1,4 SET CORRECTION ORDER TEST
     1289                            *                                   ------------------------------------
     1290                            *
     1291                            * THIS TEST IS DESIGNED TO VERIFY THE DATA-OUTPUT PHASE IN THE
     1292                            * CONTROLLER AND ORDER TERMINATION.
     1293                            * THREE SET CORRECTIONS WILL BE USED:
     1294                            * 1. BYTE COUNT =1, DATA BYTE = X'FF'
     1295                            * 2. BYTE COUNT =1, DATA BYTE = X'00'
     1296                            * 3. BYTE COUNT =2
     1297                            * THE REMAINING BYTE COUNT WILL BE TESTED TO VARIFY THAT DATA
     1298                            * TRANSFER CAN BE TERMINATED BY THE CONTROLLER AND THAT A DATA-OUTPUT
     1299                            * OPERATION WAS ACTUALLY PERFORMED. THE STATUS RESPONSE WILL BE TESTED.
     1300         01 00620           :T1ST04  EQU     %
     1301   01 00620    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     1302   01 00621    22E00000 A            LI,14    0                 CLEAR BUFFER
     1303   01 00622    35E01B5F              STW,14   TSC1D
     1304   01 00623    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS ACCEPTED
     1305   01 00624    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1306   01 00625    22000D12              LI,0     DA(TSC1)          SET CORRECTION BC=1,INFORMATION =00
     1307   01 00626    6AF01DB7              BAL,15   :SIO              SET CORRECTION
     1308   01 00627    6800062B              B        T1ST0402
     1309   01 00628    6AF0123F              ERROR    401,:T1ST04       INCORRECT SIO STATUS
            01 00629    00000191 A
            01 0062A    68000620
     1310   01 0062B    22EFFED4 A   T1ST0402 LI,14    -300              DELAY
     1311   01 0062C    65E0062C              BIR,14   %
     1312   01 0062D    22006688              LI,R0    BA(TSEQ033)       READY, NO UE
     1313   01 0062E    6AF01241              BAL,R15  GENFAIL
     1314   01 0062F    00000192 A            DATA     402
     1315   01 00630    68000620              B        :T1ST04
     1316   01 00631    32701B5F     T1ST0404 LW,7     TSC1D             DATA IN REGISTER
     1317   01 00632    31702268              CW,7     L(X'00000000')    INFORMATION CHANGED
     1318   01 00633    68300637              BEZ      T1ST0405
     1319   01 00634    6AF0123F              ERROR    403,:T1ST04       SET CORRECT CHANGED ITS DATA
            01 00635    00000193 A
            01 00636    68000620
     1320   01 00637    32E02267     T1ST0405 LW,14    =X'0000C000'      DEVICE ADDRESS ACCEPTED
     1321   01 00638    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1322   01 00639    22000CEB              LI,0     DA(TSC2)          SET CORRECTION BC=1, INFO =FF
     1323   01 0063A    6AF01DB7              BAL,15   :SIO              SET CORRECTION
     1324   01 0063B    6800063C              B        T1ST0406
     1325   01 0063C    22EFFED4 A   T1ST0406 LI,14    -300              DELAY
     1326   01 0063D    65E0063D              BIR,14   %
     1327   01 0063E    22006688              LI,R0    BA(TSEQ033)       READY, NO UE
     1328   01 0063F    6AF01241              BAL,R15  GENFAIL
     1329   01 00640    00000195 A            DATA     405
     1330   01 00641    68000637              B        T1ST0405
     1331   01 00642    32701B9D     T1ST0408 LW,7     TSC2D             DATA IN REGISTER
     1332   01 00643    31702269              CW,7     L(X'FF000000')    INFO CHANGED
     1333   01 00644    68300648              BEZ      T1ST0409
     1334   01 00645    6AF0123F              ERROR    406,T1ST0405      SET CORRECTION CHANGED ITS DATA
            01 00646    00000196 A
            01 00647    68000637
     1335   01 00648    32E02267     T1ST0409 LW,14    =X'0000C000'      DEVICE ADDRESS ACCEPTED
     1336   01 00649    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1337   01 0064A    22000CEC              LI,0     DA(TSC3)          SET CORRECTION BC=2, INFO =00
     1338   01 0064B    6AF01DB7              BAL,15   :SIO              SET CORRECTION
     1339   01 0064C    68000650              B        T1ST0410
     1340   01 0064D    6AF0123F              ERROR    407,T1ST0409      INCORRECT SIO STATUS
            01 0064E    00000197 A
            01 0064F    68000648
     1341   01 00650    22EFFED4 A   T1ST0410 LI,14    -300              DELAY
     1342   01 00651    65E00651              BIR,14   %
     1343   01 00652    22006648              LI,R0    BA(TSEQ018)       READY, NO UE, BC=1
     1344   01 00653    6AF01241              BAL,R15  GENFAIL
     1345   01 00654    00000198 A            DATA     408
     1346   01 00655    68000648              B        T1ST0409
     1347   01 00656    32701B5F     T1ST0412 LW,7     TSC1D             DATA IN REGISTER
     1348   01 00657    31702268              CW,7     L(X'00000000')    INFO CHANGED
     1349   01 00658    6830065C              BEZ      T1ST0413
     1350   01 00659    6AF0123F              ERROR    409,T1ST0409      SET CORRECTION CHANGED ITS DATA
            01 0065A    00000199 A
            01 0065B    68000648
     1351   01 0065C    6AF018CE     T1ST0413 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1352   01 0065D    680003C9              B        :TIM              GO TO SEQUENCER


     1354                            *                                   TST1,5 SENSE ORDER TEST
     1355                            *                                   ------------------------------------
     1356                            *
     1357                            * THIS TEST IS DESIGNED TO VERIFY THE DATA-INPUT PHASE IN THE
     1358                            * CONTROLLER AND ORDER TERMINATION.
     1359                            * THREE SENSE ORDERS WILL BE USED  (EXPECTED DATA IS X'00'):
     1360                            * 1. BYTE COUNT =1, DATA BYTE IN BUFFER =X'FF'
     1361                            * 2. BYTE COUNT =1, DATA BYTE IN BUFFER =X'00'
     1362                            * 3. BYTE COUNT =2
     1363                            *  THE REMAINING BYTE COUNT WILL BE TESTED TO VERIFY THAT DATA TRANSFER
     1364                            *  CAN BE TERMINATED BY THE CONTROLLER AND THAT A DATA INPUT OPERATION
     1365                            *  WAS ACTUALLY PERFORMED. THE STATUS RESPONSE WILL BE TESTED.
     1366         01 0065E           :T1ST05  EQU     %
     1367   01 0065E    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     1368   01 0065F    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1369   01 00660    22000CED              LI,0     DA(TSNS1)
     1370   01 00661    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1371   01 00662    6AF01DB7              BAL,15   :SIO              SENSE BC=1, INFO =00
     1372   01 00663    68000667              B        T1ST0502
     1373   01 00664    6AF0123F              ERROR    501,:T1ST05       INCORRECT SIO STATUS
            01 00665    000001F5 A
            01 00666    6800065E
     1374   01 00667    22EFFED4 A   T1ST0502 LI,14    -300              DELAY
     1375   01 00668    65E00668              BIR,14   %
     1376   01 00669    2200662C              LI,R0    BA(TSEQ013)       READY, NO UE, BC=0
     1377   01 0066A    6AF01241              BAL,R15  GENFAIL
     1378   01 0066B    000001F6 A            DATA     502
     1379   01 0066C    6800065E              B        :T1ST05
     1380   01 0066D    32701B5E     T1ST0505 LW,7     TSNS10            DATA
     1381   01 0066E    31702268              CW,7     L(X'00000000')    DATA CHANGED
     1382   01 0066F    68300673              BEZ      T1ST0506
     1383   01 00670    6AF0123F              ERROR    503,:T1ST05       INFORMATION CHANGED ON SENSE
            01 00671    000001F7 A
            01 00672    6800065E
     1384   01 00673    6AF018C6     T1ST0506 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1385   01 00674    22000CEE              LI,0     DA(TSNS2)
     1386   01 00675    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1387   01 00676    6AF01DB7              BAL,15   :SIO              SENSE BC=1, INFO =FF
     1388   01 00677    6800067B              B        T1ST0507
     1389   01 00678    6AF0123F              ERROR    504,T1ST0506      INCORRECT SIO STATUS
            01 00679    000001F8 A
            01 0067A    68000673
     1390   01 0067B    22EFFED4 A   T1ST0507 LI,14    -300              DELAY
     1391   01 0067C    65E0067C              BIR,14   %
     1392   01 0067D    2200662C              LI,R0    BA(TSEQ013)       READY, NO UE, BC=0
     1393   01 0067E    6AF01241              BAL,R15  GENFAIL
     1394   01 0067F    000001F9 A            DATA     505
     1395   01 00680    68000673              B        T1ST0506
     1396   01 00681    32701B9E     T1ST0510 LW,7     TSNS20            DATA
     1397   01 00682    31702268              CW,7     =X'00000000'      DATA SHOULD BE CHANGED
     1398   01 00683    68300687              BEZ      T1ST0511
     1399   01 00684    6AF0123F              ERROR    506,T1ST0506      INFORMATION CHANGED ON SENSE
            01 00685    000001FA A
            01 00686    68000673
     1400   01 00687    6AF018C6     T1ST0511 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1401   01 00688    22000CEF              LI,0     DA(TSNS3)
     1402   01 00689    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1403   01 0068A    6AF01DB7              BAL,15   :SIO              SENSE BC=2, INFO =00
     1404   01 0068B    6800068F              B        T1ST0512
     1405   01 0068C    6AF0123F              ERROR    507,T1ST0511      INCORRECT SIO STATUS
            01 0068D    000001FB A
            01 0068E    68000687
     1406   01 0068F    22EFFED4 A   T1ST0512 LI,14    -300              DELAY
     1407   01 00690    65E00690              BIR,14   %
     1408   01 00691    22006648              LI,R0    BA(TSEQ018)       READY, NO UE, BC=1
     1409   01 00692    6AF01241              BAL,R15  GENFAIL
     1410   01 00693    000001FC A            DATA     508
     1411   01 00694    68000687              B        T1ST0511
     1412   01 00695    32701B9C     T1ST0515 LW,7     TNS1D             DATA
     1413   01 00696    31702268              CW,7     L(X'00000000')    DATA CHANGED
     1414   01 00697    6830069B              BEZ      T1ST0516
     1415   01 00698    6AF0123F              ERROR    509,T1ST0511      INFORMATION CHANGED ON SENSE
            01 00699    000001FD A
            01 0069A    68000687
     1416   01 0069B    6AF018CE     T1ST0516 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1417   01 0069C    680003C9              B        :TIM              GO TO SEQUENCER


     1419                            *                                   TST1,6 TAPE RUNAWAY TEST
     1420                            *                                   ------------------------
     1421                            *
     1422                            * CHECK THE ABILITY OF THE CONTROLLER TO RECOGNIZE TAPE RUNAWAY
     1423                            * CONDITIONS.  AT THE START OF THIS TEST, THE TAPE IS REWOUND AND
     1424                            * ERASED FOR 5 SECONDS.  THE TAPE IS REWOUND AGAIN AND AN ATTEMPT
     1425                            * IS MADE TO READ 6 BYTES.  THE TAPE CONTROLLER SHOULD STOP THE
     1426                            * MOVEMENT AND GENERATE AN UNUSUAL-END.  IF A TIMEOUT OCCURS, THE
     1427                            * HIO (ISSUED AUTOMATICALLY AT TIMEOUT) SHOULD STOP THE MOVEMENT
     1428                            * INSTEAD.  THE TAPE IS LEFT AT THE LOAD POINT AT THE COMPLETION
     1429                            * OF THIS TEST.
     1430                            *
     1431                            * THIS TEST IS RESTRICTED TO STC TAPES ONLY (BECAUSE OF THE
     1432                            * IMMEDIATE NATURE OF THE ERASE ORDER).
     1433         01 0069D           :T1ST06  EQU      %
     1434   01 0069D    3300033A              MTW,0    :CDB+1            SKIP TEST IF UNIT IS NOT
        1*  01 0069E    6830128E              BEZ      :SKIP              AN STC SHORT COLUMN            *H00
     1436         01 0069F           T1ST06A  EQU      %
     1437   01 0069F    6AF01277              BAL,R15  CLRTE             RESET CHECK ON TE STATUS
     1438   01 006A0    6AF0187C              BAL,R15  RWTLP             REWIND TO LOAD POINT
     1439   01 006A1    22000D42              LI,R0    DA(TST06E)        INFINITE COMMAND-CHAIN LOOP
     1440   01 006A2    6AF01EC7              BAL,R15  :IOEXEC           ON THE ERASE ORDER...
     1441   01 006A3    22E01388 A            LI,R14   1000*5            WAIT 5 SECONDS
     1442   01 006A4    6AF01239              BAL,R15  GENDELAY
     1443   01 006A5    6AF01892              BAL,R15  RESETS            STOP TAPE MOTION
     1444   01 006A6    220066CC              LI,R0    BA(TSEQ0600)      DEV/CNTR BUSY, AUTO,
     1445   01 006A7    6AF01241              BAL,R15  GENFAIL           NO IL, NO TE, RING
     1446   01 006A8    00000258 A            DATA     0600              (ERROR ID)
     1447   01 006A9    6800069F              B        T1ST06A           (LOOP EXIT)
     1448   01 006AA    6AF0187C              BAL,R15  RWTLP             REWIND TO LOAD POINT
     1449   01 006AB    6AF018C6              BAL,R15  CLRARM            CLEAR AND SET THE I/O INTERRUPT
     1450   01 006AC    22000D44              LI,R0    DA(TST06R)        READ 6 BYTES (CE, UE, HTE, SIL)
     1451   01 006AD    6AF01EC7              BAL,R15  :IOEXEC
     1452   01 006AE    22E01388 A            LI,R14   1000*5            WAIT 5 SECONDS
     1453   01 006AF    6AF02018              BAL,R15  :DELAY
     1454   01 006B0    680006B7              B        T1ST06B           INTERRUPT RECEIVED
     1455   01 006B1    6AF01892              BAL,R15  RESETS            STOP TAPE MOTION
     1456   01 006B2    220066D4              LI,R0    BA(TSEQ0601)      TIOF7, OSBF7, TDVT1
     1457   01 006B3    6AF01243              BAL,R15  GENFAILS          (FORCED STATUS DISPLAY)
     1458   01 006B4    00000259 A            DATA     0601              (ERROR ID)
     1459   01 006B5    6800069F              B        T1ST06A           (LOOP EXIT)
     1460   01 006B6    680006BB              B        T1ST06C           (NORMAL EXIT)
     1461         01 006B7           T1ST06B  EQU      %
     1462   01 006B7    220066D8              LI,R0    BA(TSEQ0602)      BC=6, CA=ORIG, UE, NO RE,
     1463   01 006B8    6AF01241              BAL,R15  GENFAIL           IL, NO TE, UEI, RING
     1464   01 006B9    0000025A A            DATA     0602              (ERROR ID)
     1465   01 006BA    6800069F              B        T1ST06A           (LOOP EXIT)
     1466         01 006BB           T1ST06C  EQU      %
     1467   01 006BB    6AF0187C              BAL,R15  RWTLP             RETURN TAPE TO LOAD POINT
     1468   01 006BC    680003C9              B        :TIM


     1470                            *                                   TST1,7 IWT. ON UE,CE,ZBC, AND AIO
     1471                            *                                   ------------------------------------
     1472                            *
     1473                            *  CHECK THE ABILITY OF THE CONTROLLER TO GENERATE AN INTERRUPT ON
     1474                            *  UNUSUAL END, CHANNEL END, AND ZERO BYTE COUNT USING A WRITE
     1475                            *  BACKWARD, ERASE, AND SENSE ORDER RESPECTIVELY. CHECK THE EXECUTION
     1476                            *  OF THE AIO INSTRUCTION. VERIFY THAT AIO AND HIO CAN RESET THE
     1477                            *  INTERRUPT PENDING CONDITION. ALL STATUS RESPONSES WILL BE TESTED.
     1478         01 006BD           :T1ST07  EQU     %
     1479   01 006BD    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     1480   01 006BE    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1481   01 006BF    22000CE8              LI,0     DA(TWR3)          WRITE BKW UE SET
     1482   01 006C0    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1483   01 006C1    6AF01DB7              BAL,15   :SIO              WRITE BKW UE SET
     1484   01 006C2    680006C6              B        T1ST0702
     1485   01 006C3    6AF0123F              ERROR    701,:T1ST07       INCORRECT SIO STATUS
            01 006C4    000002BD A
            01 006C5    680006BD
     1486   01 006C6    22E00064 A   T1ST0702 LI,14    100               100 MS DELAY
     1487   01 006C7    6AF02018              BAL,15   :DELAY
     1488   01 006C8    680006CC              B        T1ST0703
     1489   01 006C9    6AF0123F              ERROR    702,:T1ST07       TIMEOUT ON SIO
            01 006CA    000002BE A
            01 006CB    680006BD
     1490   01 006CC    220065D0     T1ST0703 LI,R0    BA(TSEQ001)       NO IP, HIO:UE, TIO:NO UE
     1491   01 006CD    6AF01241              BAL,R15  GENFAIL
     1492   01 006CE    000002BF A            DATA     703
     1493   01 006CF    680006BD              B        :T1ST07
     1494   01 006D0    22000CF1     T1ST0704 LI,0     DA(TSE)
     1495   01 006D1    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1496   01 006D2    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1497   01 006D3    6AF01DB7              BAL,15   :SIO              ERASE CE SET
     1498   01 006D4    680006D8              B        T1ST0705
     1499   01 006D5    6AF0123F              ERROR    704,T1ST0704      INCORRECT SIO STATUS
            01 006D6    000002C0 A
            01 006D7    680006D0
     1500   01 006D8    22E00064 A   T1ST0705 LI,14    100               100 MSDELAY
     1501   01 006D9    6AF02018              BAL,15   :DELAY
     1502   01 006DA    680006DE              B        T1ST0706
     1503   01 006DB    6AF0123F              ERROR    705,T1ST0704      TIMEOUT ON SIO
            01 006DC    000002C1 A
            01 006DD    680006D0
     1504   01 006DE    220065D4     T1ST0706 LI,R0    BA(TSEQ002)       AIO-ICE, TIO-NO IP
     1505   01 006DF    6AF01241              BAL,R15  GENFAIL
     1506   01 006E0    000002C2 A            DATA     706
     1507   01 006E1    680006D0              B        T1ST0704
     1508   01 006E2    22000CF4     T1ST0707 LI,0     DA(TSNS4)
     1509   01 006E3    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1510   01 006E4    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1511   01 006E5    6AF01DB7              BAL,15   :SIO              SENSE BC=1,IZC SET
     1512   01 006E6    680006EA              B        T1ST0708
     1513   01 006E7    6AF0123F              ERROR    707,T1ST0707      INCORRECT STATUS
            01 006E8    000002C3 A
            01 006E9    680006E2
     1514   01 006EA    22E00064 A   T1ST0708 LI,14    100               100 MS DELAY
     1515   01 006EB    6AF02018              BAL,15   :DELAY
     1516   01 006EC    680006F0              B        T1ST0709
     1517   01 006ED    6AF0123F              ERROR    708,T1ST0707      TIMEOUT ON SIO
            01 006EE    000002C4 A
            01 006EF    680006E2
     1518   01 006F0    220065D8     T1ST0709 LI,R0    BA(TSEQ003)       AIO-ZBC, TIO-IP
     1519   01 006F1    6AF01241              BAL,R15  GENFAIL
     1520   01 006F2    000002C5 A            DATA     709
     1521   01 006F3    680006E2              B        T1ST0707
     1522   01 006F4    6AF018CE     T1ST0710 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1523   01 006F5    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1524   01 006F6    22000CE8              LI,0     DA(TWR3)          WRITE BKW
     1525   01 006F7    6AF01DB7              BAL,15   :SIO              SIO
     1526   01 006F8    22E00064 A            LI,14    100
     1527   01 006F9    6AF01239              BAL,15   GENDELAY          DELAY 100 MILLISECONDS
     1528   01 006FA    CFC01B8C              HIO,12   *:DEVADDR         HIO
     1529   01 006FB    22EFFF38 A            LI,14    -200              DELAY
     1530   01 006FC    65E006FC              BIR,14   %
     1531   01 006FD    31D0226A              CW,13    =X'88000000'      UE AND IP SET
     1532   01 006FE    69400702              BCS,4    T1ST0711
     1533   01 006FF    6AF0123F              ERROR    710,T1ST0707      INCORRECT STATUS
            01 00700    000002C6 A
            01 00701    680006E2
     1534   01 00702    CDC01B8C     T1ST0711 TIO,12   *:DEVADDR         TIO
     1535   01 00703    31D0226B              CW,13    =X'80000000'      IP SET
     1536   01 00704    68400708              BCR,4    T1ST0712
     1537   01 00705    6AF0123F              ERROR    711,T1ST0707      INCORRECT TIO STATUS
            01 00706    000002C7 A
            01 00707    680006E2
     1538   01 00708    6AF018CE     T1ST0712 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1539   01 00709    680003C9              B        :TIM              GO TO SEQUENCER


     1541                            *                                   TST1,8 I/O INTERRUPT TEST
     1542                            *                                   ------------------------------------
     1543                            *
     1544                            *  CHECK THE ABILITY OF THE IOP AND CPU TO INTERRUPT THE PROGRAM
     1545                            *  WHENEVER AN INTERRUPT CALL IS GENERATED BY THE CONTROLLER. VERIFY
     1546                            *  PROPER OPERATION OF INTERRUPT ARM/DISARM AND ENABLE/DISABLE MODES.
     1547   01 0070A    6AF018CE     :T1ST08  BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1548   01 0070B    22000D11              LI,0     DA(TWRUE)
     1549   01 0070C    CCC01B8C              SIO,12   *:DEVADDR         WRITE BKW  UE SET
     1550   01 0070D    228FFFE2 A            LI,8     -30               DELAY
     1551   01 0070E    6580070E              BIR,8    %
     1552   01 0070F    CDC01B8C              TIO,12   *:DEVADDR         TIO
     1553   01 00710    32E0226C              LW,14    L(X'98000002')
     1554   01 00711    31E0000D A            CW,14    13                AUTOMATIC AND UE SET- IP SET
     1555   01 00712    68300716              BEZ      T1ST0802
     1556   01 00713    6AF0123F              ERROR    801,:T1ST08       INCORRECT TIO STATUS
            01 00714    00000321 A
            01 00715    6800070A
     1557   01 00716    22F00020 A   T1ST0802 LI,15    X'20'
     1558   01 00717    6DF01300 A            WD,15    X'1300'           ARM AND DISABLE INTERRUPT
     1559   01 00718    CDC01B8C              TIO,12   *:DEVADDR         TIO
     1560   01 00719    32E0226C              LW,14    L(X'98000002')
     1561   01 0071A    31E0000D A            CW,14    13
     1562   01 0071B    6830071F              BEZ      T1ST0803
     1563   01 0071C    6AF0123F              ERROR    802,:T1ST08       INCORRECT TIO STATUS
            01 0071D    00000322 A
            01 0071E    6800070A
     1564   01 0071F    22F00020 A   T1ST0803 LI,15    X'20'
     1565   01 00720    6DF01400 A            WD,15    X'1400'           ENABLE INTERRUPT
     1566   01 00721    22E00064 A            LI,14    100               100 MS DELAY
     1567   01 00722    6AF02018              BAL,15   :DELAY
     1568   01 00723    68000727              B        T1ST0804
     1569   01 00724    6AF0123F              ERROR    803,:T1ST08       TIMEOUT ON SIO
            01 00725    00000323 A
            01 00726    6800070A
     1570   01 00727    6AF018CE     T1ST0804 BAL,15   CLRDARM           CLEAR AND DISARM AND DISABLE INT
     1571   01 00728    680003C9              B        :TIM              GO TO SEQUENCER
     1572                            *                                   TST1,9 COMMAND CHAINING


     1574                            *                                   ------------------------------------
     1575                            *
     1576                            *  TEST THE COMMAND CHAINING ABILITY OF THE CONTROLLER BY ISSUING AN
     1577                            *  ERASE/SET CORRECTION/SENSE ORDER SEQUENCE. TEST THE TERMINATION OF
     1578                            *  THE COMMAND CHAINING SEQUENCE BY ISSUING A WRITE-BACKWARD/SENSE
     1579                            *  ORDER SEQUENCE. ALL STATUS RESPONSES WILL BE TESTED
     1580         01 00729           :T1ST09  EQU     %
     1581   01 00729    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     1582   01 0072A    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1583   01 0072B    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1584   01 0072C    22000CF2              LI,0     DA(TSECC)
     1585   01 0072D    6AF01DB7              BAL,15   :SIO              SIO CC ERASE SET CORRECT,SENSE
     1586   01 0072E    68000732              B        T1ST0902
     1587   01 0072F    6AF0123F              ERROR    901,:T1ST09       INCORRECT SIO STATUS
            01 00730    00000385 A
            01 00731    68000729
     1588   01 00732    22E00064 A   T1ST0902 LI,14    100               100 MS DELAY
     1589   01 00733    6AF02018              BAL,15   :DELAY
     1590   01 00734    68000738              B        T1ST0903
     1591   01 00735    6AF0123F              ERROR    902,:T1ST09       TIMEOUT ON SIO
            01 00736    00000386 A
            01 00737    68000729
     1592   01 00738    CDC01B8C     T1ST0903 TIO,12   *:DEVADDR         TIO
     1593   01 00739    21C00CF4              CI,12    DA(TSNS4)         LAST DOUBLE WORD
     1594   01 0073A    6830073E              BEZ      T1ST0904
     1595   01 0073B    6AF0123F              ERROR    903,:T1ST09       IMPROPER COMMAND CHAINING
            01 0073C    00000387 A
            01 0073D    68000729
     1596   01 0073E    6AF018C6     T1ST0904 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1597   01 0073F    32E02267              LW,14    =X'0000C000'      DEVICE ADDRESS OK
     1598   01 00740    22000CF5              LI,0     DA(TWRCC)
     1599   01 00741    6AF01DB7              BAL,15   :SIO              SIO CC WRITE BKW,SENSE
     1600   01 00742    68000746              B        T1ST0905
     1601   01 00743    6AF0123F              ERROR    904,T1ST0904      INCORRECT SIO STATUS
            01 00744    00000388 A
            01 00745    6800073E
     1602   01 00746    22E00064 A   T1ST0905 LI,14    100               100 MS DELAY
     1603   01 00747    6AF02018              BAL,15   :DELAY
     1604   01 00748    6800074C              B        T1ST0906
     1605   01 00749    6AF0123F              ERROR    905,T1ST0904      TIMEOUT ON SIO
            01 0074A    00000389 A
            01 0074B    6800073E
     1606   01 0074C    CDC01B8C     T1ST0906 TIO,12   *:DEVADDR         TIO
     1607   01 0074D    21C00CF5              CI,12    DA(TWRCC)         LAST DOUBLE WORD
     1608   01 0074E    68300752              BEZ      T1ST0907
     1609   01 0074F    6AF0123F              ERROR    906,T1ST0904      IMPROPER COMMAND CHAINING
            01 00750    0000038A A
            01 00751    6800073E
     1610   01 00752    6AF018CE     T1ST0907 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1611   01 00753    680003C9              B        :TIM              GO TO SEQUENCER


     1613                            *                                   TST1,10 DEVICE-END RESET TEST
     1614                            *                                   -----------------------------
     1615                            *
     1616                            * THIS IS A SIMPLE TEST TO VERIFY THAT THE CONTROLLER IS
     1617                            * CAPABLE OF RESETTING THE DEVICE-END INTERRUPT MECHANISM,
     1618                            * BEFORE THE INTERRUPT IS ACTUALLY PRODUCED.
     1619         01 00754           :T1ST10  EQU      %
        1*  01 00754    6AF01288              BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
     1620   01 00755    6AF01277              BAL,R15  CLRTE             DONT LOOK AT TE
     1621   01 00756    6AF0187C              BAL,R15  RWTLP             REWIND TAPE TO BOT
     1622   01 00757    22000D49              LI,R0    DA(TST10W)        START INFINITE DATA-
     1623   01 00758    6AF01EC7              BAL,R15  :IOEXEC           CHAIN WRITE
     1624   01 00759    22E00BB8 A            LI,R14   3*1000            MOVE THE TAPE ABOUT
     1625   01 0075A    6AF01239              BAL,R15  GENDELAY
     1626   01 0075B    6AF01892              BAL,R15  RESETS            STOP TAPE MOTION
     1627   01 0075C    22006704              LI,R0    BA(TSEQ1000)      CHECK FOR BUSY, ETC.
     1628   01 0075D    6AF01241              BAL,R15  GENFAIL
     1629   01 0075E    000003E9 A            DATA     1001              (ERROR ID)
     1630   01 0075F    68000754              B        :T1ST10           (LOOP EXIT)
     1631   01 00760    6AF018CE              BAL,R15  CLRDARM           RESET THE I/O INTERRUPT
     1632   01 00761    22000CF9              LI,R0    DA(TRWAI)         REWIND WITH DEVICE-END
     1633   01 00762    6AF01EC7              BAL,R15  :IOEXEC
     1634   01 00763    22E00040 A            LI,R14   64                SHORT DELAY
     1635   01 00764    6AF01239              BAL,R15  GENDELAY          (GOOD FOR EXPERIMENTING)
     1636   01 00765    22E00000 A            LI,R14   0                 RESET DEVICE-END INTERRUPT
     1637   01 00766    6AF01DC9              BAL,R15  :HIO               AND PERHAPS TAPE MOTION
     1638   01 00767    22E00BB8 A            LI,R14   3*1000            WAIT 3 SECONDS
     1639   01 00768    6AF01239              BAL,R15  GENDELAY
     1640   01 00769    22006710              LI,R0    BA(TSEQ1001)      CHECK FOR READY,
     1641   01 0076A    6AF01241              BAL,R15  GENFAIL            AND NOT INTERRUPT PRESENT
     1642   01 0076B    000003EA A            DATA     1002              (ERROR ID)
     1643   01 0076C    68000754              B        :T1ST10           (LOOP EXIT)
     1644   01 0076D    6AF0187C              BAL,R15  RWTLP             REWIND TO BE SURE
     1645   01 0076E    680003C9              B        :TIM              TEST COMPLETED


     1647                            *                                   T1ST,11 REWIND TEST
     1648                            *                                   ------------------------------------
     1649                            *  CHECK THE EXECUTION OF A REWIND ON-LINE ORDER. THE TEST WILL VERIFY
     1650                            *  THAT THE TAPE IS POSITIONED AT LOAD POINT AFTER COMPLETION OF THE
     1651                            *  REWIND ORDER  CHECK THE EXECUTION OF A REWIND AND INTERRUPT ORDER.
     1652                            *  THIS TEST WILL VERIFY THAT THE TAPE REMAINS AT LOAD POINT AND THAT
     1653                            *  THE DEVICE INITIATES AN INTERRUPT REQUEST. VERIFY THAT AN AIO AND HIO
     1654                            *  INSTRUCTION CAN RESET THE INTERRUPT PENDING CONDITION IN THE TAPE
     1655                            *  CONTROLLER AND THE TAPE STATION. VERIFY THAT DEVICE END STATUS IS
     1656                            *  RETURNED DURING THE AIO. ALL STATUS RESPONSES WILL BE TESTED.
        1*  01 0076F    6AF01288     :T1ST11  BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
        2*  01 00770    6AF018C6              BAL,R15  CLRARM             CLEAR AND ARM I/O INTERRUPT    *H00
     1658   01 00771    22000CF8              LI,0     DA(TRWOL)         REWIND ON LINE
     1659   01 00772    CCC01B8C              SIO,12   *:DEVADDR         SIO
     1660   01 00773    CDA01B8C     T1ST1102 TIO,10   *:DEVADDR         TIO FOR BUSY
     1661   01 00774    32E0226D              LW,14    =X'66000000'      BUSY OR REWINDING
     1662   01 00775    31E0000B A            CW,14    11                STATUS
     1663   01 00776    69400773              BCS,4    T1ST1102          LOOP TILL NOT BUSY
     1664   01 00777    32E0226E              LW,14    =X'04000000'      LOAD POINT ONLY
     1665   01 00778    CEC01B8C              TDV,12   *:DEVADDR         TDV AFTER REWIND
     1666   01 00779    31D0000E A            CW,13    14
     1667   01 0077A    6940077E              BCS,4    T1ST1103
     1668   01 0077B    6AF0123F              ERROR    1101,:T1ST11      INCORRECT STATUS
            01 0077C    0000044D A
            01 0077D    6800076F
     1669   01 0077E    6AF018CE     T1ST1103 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1670   01 0077F    22000CF9              LI,0     DA(TRWAI)         REWIND AND INTERRUPT
     1671   01 00780    CCC01B8C              SIO,12   *:DEVADDR
     1672   01 00781    22E00032 A            LI,14    50                50 MILLISECOND DELAY
     1673   01 00782    6AF01239              BAL,15   GENDELAY
     1674   01 00783    CDA01B8C     T1ST1104 TIO,10   *:DEVADDR
     1675   01 00784    32E0226B              LW,14    =X'80000000'      INTERRUPT PENDING
     1676   01 00785    31E0000B A            CW,14    11                STATUS INT PENDING SET
     1677   01 00786    6940078A              BCS,4    T1ST1105
     1678   01 00787    6AF0123F              ERROR    1102,T1ST1103     INCORRECT TIO STATUS
            01 00788    0000044E A
            01 00789    6800077E
     1679   01 0078A    CFA01B8C     T1ST1105 HIO,10   *:DEVADDR
     1680   01 0078B    32E0226B              LW,14    =X'80000000'      INTERRUPT PENDING
     1681   01 0078C    CDC01B8C              TIO,12   *:DEVADDR         TIO
     1682   01 0078D    4BE0000D A            AND,14   13
     1683   01 0078E    68300792              BEZ      T1ST1106
     1684   01 0078F    6AF0123F              ERROR    1103,T1ST1103     INCORRECT HIO STATUS
            01 00790    0000044F A
            01 00791    6800077E
     1685   01 00792    6AF018CE     T1ST1106 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1686   01 00793    22000CF9              LI,0     DA(TRWAI)         REWIND AND INTERRUPT
     1687   01 00794    CCC01B8C              SIO,12   *:DEVADDR
     1688   01 00795    22E00032 A            LI,14    50                50 MILLISECOND DELAY
     1689   01 00796    6AF01239              BAL,15   GENDELAY
     1690   01 00797    CDA01B8C              TIO,10   *:DEVADDR
     1691   01 00798    32E0226B              LW,14    =X'80000000'      INTERRUPT PENDING
     1692   01 00799    31E0000B A            CW,14    11                STATUS INT PENDING SET
     1693   01 0079A    6940079E              BCS,4    T1ST1107
     1694   01 0079B    6AF0123F              ERROR    1104,T1ST1106     INCORRECT SIO STATUS
            01 0079C    00000450 A
            01 0079D    68000792
     1695   01 0079E    6EB00000 A   T1ST1107 AIO,11   0                 AIO
     1696   01 0079F    31B0226F              CW,R11   =X'40000000'      LOOK FOR DEVICE-END
     1697   01 007A0    684007A4              BAZ      %+4
     1698   01 007A1    52B2000B A            LH,R11   R11,R1            CLEAR UPPER HALF
     1699   01 007A2    31B01B8C              CW,R11   :DEVADDR          TEST FOR VALID ADDRESS
     1700   01 007A3    683007A7              BE       T1ST1108
     1701   01 007A4    6AF0123F              ERROR    1105,T1ST1106     INCORRECT AIO STATUS
            01 007A5    00000451 A
            01 007A6    68000792
     1702   01 007A7    CDA01B8C     T1ST1108 TIO,10   *:DEVADDR         TIO
     1703   01 007A8    32E0226B              LW,14    =X'80000000'      INTERRUPT PENDING
     1704   01 007A9    31E0000B A            CW,14    11                STATUS INT PENDING
     1705   01 007AA    684007AE              BCR,4    T1ST1109
     1706   01 007AB    6AF0123F              ERROR    1106,T1ST1108     INCORRECT TIO STATUS
            01 007AC    00000452 A
            01 007AD    680007A7
     1707   01 007AE    32E0226E     T1ST1109 LW,14    =X'04000000'      LOAD POINT ONLY
     1708   01 007AF    CEC01B8C              TDV,12   *:DEVADDR         TDV AFTER REWIND
     1709   01 007B0    31D0000E A            CW,13    14
     1710   01 007B1    694007B5              BCS,4    T1ST1110
     1711   01 007B2    6AF0123F              ERROR    1107,T1ST1106     INCORRECT STATUS
            01 007B3    00000453 A
            01 007B4    68000792
     1712   01 007B5    6AF018CE     T1ST1110 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1713   01 007B6    3300033A              MTW,0    :CDB+1            TEST FOR STC DRIVE
     1714   01 007B7    693003C9              BNEZ     :TIM              DO NOT LOOP FOR STC DRIVES
     1715   01 007B8    32F01B5A              LW,15    SAVMODEL
     1716   01 007B9    21F01C9A A            CI,15    7322
     1717   01 007BA    681003C9              BGE      :TIM              NOT POTTER  - EXIT
     1718   01 007BB    32F01BBA              LW,15    P:T11CNT
     1719   01 007BC    20FFFFFF A            AI,15    -1
     1720   01 007BD    683003C9              BEZ      :TIM              TEST 11 FOR POTTER COMPLETED
     1721   01 007BE    35F01BBA              STW,15   P:T11CNT
     1722   01 007BF    6920076F              BGZ      :T1ST11           REPEAT 50 TIMES FOR POTTER
     1723   01 007C0    22F00032 A            LI,15    50                INITIALIZE LOOP COUNTER
     1724   01 007C1    680007BE              B        %-3


     1726                            *                                   TST1,12 READ,SPACE RECORD AND FILE
     1727                            *                                           BACKWARD FROM BOT TEST
     1728                            *                                   ------------------------------------
     1729                            *
     1730                            *  CHECK THE EXECUTION OF A READ, SPACE RECORD, AND SPACE FILE ORDER
     1731                            *  IN THE BACKWARD DIRECTION WITH TAPE POSITIONED AT LOAD POINT
     1732                            *  VERIFY THAT THE CONTROLLER RESPONDS WITH UNUSUAL END, END OF FILE
     1733                            *  (TDV AND AIO) AND LOAD POINT STATUS. THE TEST WILL CHECK THAT THE
     1734                            *  TAPE REMAINS AT LOAD POINT. THE BYTE COUNT FOR ALL ORDERS SPECIFIED
     1735                            *  MUST REMAIN UNCHANGED.
     1736   01 007C2    6AF0187C     :T1ST12  BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     1737   01 007C3    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1738   01 007C4    22000D4B              LI,0     DA(TRB1)          READ BACKWARA UE SET, BC=2
     1739   01 007C5    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO
     1740   01 007C6    32E00064 A            LW,14    100               100 MS DELAY
     1741   01 007C7    6AF02018              BAL,15   :DELAY
     1742   01 007C8    680007CC              B        T1ST1202
     1743   01 007C9    6AF0123F              ERROR    1201,:T1ST12      TIMEOUT ON SIO
            01 007CA    000004B1 A
            01 007CB    680007C2
     1744   01 007CC    220065E0     T1ST1202 LI,R0    BA(TSEQ006)       UE, BOT, BC=2
     1745   01 007CD    6AF01241              BAL,R15  GENFAIL
     1746   01 007CE    000004B2 A            DATA     1202
     1747   01 007CF    680007C2              B        :T1ST12
     1748   01 007D0    6AF018C6     T1ST1203 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1749   01 007D1    22000D15              LI,0     DA(SBR1)          SPACE BKW UE SET BC=2
     1750   01 007D2    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO
     1751   01 007D3    32E00064 A            LW,14    100               100 MS DELAY
     1752   01 007D4    6AF02018              BAL,15   :DELAY
     1753   01 007D5    680007D9              B        T1ST1204
     1754   01 007D6    6AF0123F              ERROR    1203,T1ST1203     TIMEOUT ON SIO
            01 007D7    000004B3 A
            01 007D8    680007D0
     1755   01 007D9    220065E0     T1ST1204 LI,R0    BA(TSEQ006)       UE, BOT, BC=2
     1756   01 007DA    6AF01241              BAL,R15  GENFAIL
     1757   01 007DB    000004B4 A            DATA     1204
     1758   01 007DC    680007D0              B        T1ST1203
     1759   01 007DD    6AF018C6     T1ST1205 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1760   01 007DE    22000D16              LI,0     DA(SBF1)          SPACE FILE BACKWARD
     1761   01 007DF    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO
     1762   01 007E0    32E00064 A            LW,14    100               100 MS DELAY
     1763   01 007E1    6AF02018              BAL,15   :DELAY
     1764   01 007E2    680007E6              B        T1ST1206
     1765   01 007E3    6AF0123F              ERROR    1205,T1ST1205     TIMEOUT ON SIO
            01 007E4    000004B5 A
            01 007E5    680007DD
     1766   01 007E6    220065E8     T1ST1206 LI,R0    BA(TSEQ007)       UE, BOT, NO EOF
     1767   01 007E7    6AF01241              BAL,R15  GENFAIL
     1768   01 007E8    000004B6 A            DATA     1206
     1769   01 007E9    680007DD              B        T1ST1205
     1770   01 007EA    6AF018CE     T1ST1207 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1771   01 007EB    680003C9              B        :TIM              GO TO SEQUENCER


     1773                            *                                   TST1,13 WRITE TAPE MARK TEST AT BOT
     1774                            *                                   ------------------------------------
     1775                            *
     1776                            *  CHECK THE EXECUTION OF A WRITE TAPE MARK ORDER. THE TEST WILL
     1777                            *  VERIFY THAT TAPE CAN BE MOVED OFF LOAD POINT AND THAT THE ORDER CAN
     1778                            *  BE TERMINATED WITH BOTH CONTROLLER AND STATION RETURNING TO READY.
     1779                            *  IF TAPE RUN-AWAY, ISSUE HIO. REWIND TAPE AND TEST LOAD POINT. END
     1780                            *  OF FILE STATUS WILL NOT BE TESTED. THE BYTE COUNT FOR THE ORDER
     1781                            *  MUST REMAIN UNCHANGED.
     1782   01 007EC    6AF0187C     :T1ST13  BAL,15   RWTLP             REWIND TAPE TEST FOR LOAD PT
     1783   01 007ED    22000CFA              LI,R0    DA(TWTM)
     1784   01 007EE    6AF011C6              BAL,R15  GENIOXEQ          WRITE TAPE MARK
     1785   01 007EF    220065EC              LI,R0    BA(TSEQ008)       LOOK FOR STANDARD STATUS
     1786   01 007F0    6AF01241              BAL,R15  GENFAIL           (READY, NO UE, EOF, BYT=2)
     1787   01 007F1    00000515 A            DATA     1301              (ERROR ID)
     1788   01 007F2    680007EC              B        :T1ST13           (LOOP EXIT)
     1789   01 007F3    32F01B5A              LW,R15   SAVMODEL          ABORT TEST                      *G02
     1790   01 007F4    21F01C84 A            CI,R15   7300               IF UNIT IS POTTER              *G02
     1791   01 007F5    681007F8              BGE      %+3                                               *G02
     1792   01 007F6    3300033A              MTW,0    :CDB+1                                            *G02
     1793   01 007F7    683003C9              BEZ      :TIM                                              *G02
     1794   01 007F8    CF001B8C              HIO,R0   *:DEVADDR         RESET EOF BIT
     1795   01 007F9    22006680              LI,R0    BA(TSEQ030)       VERIFY EOF BIT RESET
     1796   01 007FA    6AF01241              BAL,R15  GENFAIL
     1797   01 007FB    00000516 A            DATA     1302              (ERROR ID)
     1798   01 007FC    680007EC              B        :T1ST13           (LOOP EXIT)
     1799   01 007FD    6AF0127B              BAL,R15  :S0CHECK          ABORT IF STC IN TST0
     1800   01 007FE    22000CFB     T1ST1303 LI,R0    DA(TWTMS)         WRITE EOF + WRITE 100 BYTES
     1801   01 007FF    6AF011C6              BAL,R15  GENIOXEQ
     1802   01 00800    220065F4              LI,R0    BA(TSEQ008S)      READY, NO EOF, BC=0, NO UE
     1803   01 00801    6AF01241              BAL,R15  GENFAIL
     1804   01 00802    00000517 A            DATA     1303
     1805   01 00803    680007FE              B        T1ST1303
     1806   01 00804    3300033A              MTW,0    :CDB+1            ABORT TEST IF                   *G02
     1807   01 00805    683003C9              BEZ      :TIM               NOT STC                        *G02
     1808   01 00806    22000CFD     T1ST1304 LI,R0    DA(TWTMU)         WRITE EOF + ILLEGAL ORDER
     1809   01 00807    6AF011C6              BAL,R15  GENIOXEQ
     1810   01 00808    220065FC              LI,R0    BA(TSEQ008U)      READY, NO EOF, BC=0, UE
     1811   01 00809    6AF01241              BAL,R15  GENFAIL
     1812   01 0080A    00000518 A            DATA     1304
     1813   01 0080B    68000806              B        T1ST1304
     1814   01 0080C    6AF018CE              BAL,R15  CLRDARM           RESET I/O INTERRUPT
     1815   01 0080D    680003C9              B        :TIM              GO TO SEQUENCER


     1817                            *                                   TST1,14 SPACE RECORD FORWARD TEST
     1818                            *                                   ------------------------------------
     1819                            *
     1820                            * CHECK THE EXECUTION OF A SPACE FORWARD ORDER. THE TEST WILL VERIFY
     1821                            * THAT TAPE CAN BE MOVED OFF THE LOAD POINT AND THAT THE ORDER CAN BE
     1822                            * TERMINATED WITH BOTH CONTROLLER AND STATION RETURNING TO READY.
     1823                            * IF TAPE RUN-AWAY, ISSUE HIO. REWIND TAPE AND TEST FOR LOAD POINT.
     1824                            * END OF FILE AND UNUSUAL END STATUS WILL NOT BE TESTED. THE BYTE
     1825                            * COUNT FOR THE ORDER MUST REMAIN UNCHANGED.
     1826   01 0080E    6AF0187C     :T1ST14  BAL,15   RWTLP             REWIND TAPE AND TEST FOR LOAD PT
     1827   01 0080F    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1828   01 00810    22000CFA              LI,0     DA(TWTM)          WRITE TAPE MARK
     1829   01 00811    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO
     1830   01 00812    22E00400 A            LI,R14   1024              DELAY ABOUT ONE SECOND          *G02
     1831   01 00813    6AF02018              BAL,15   :DELAY
     1832   01 00814    68000819              B        T1ST1401
     1833   01 00815    6AF01892              BAL,15   RESETS            RESET WITH HIO, TAPE RUNAWAY
     1834   01 00816    6AF0123F              ERROR    1401,:T1ST14      TIMEOUT ON SIO (RUNAWAY)
            01 00817    00000579 A
            01 00818    6800080E
     1835   01 00819    6AF0187C     T1ST1401 BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     1836   01 0081A    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     1837   01 0081B    22000D17              LI,0     DA(SFR1)          SPACE FWD CE SET, BC=2
     1838   01 0081C    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO
     1839   01 0081D    22E00200 A            LI,14    512               512 MS
     1840   01 0081E    6AF02018              BAL,15   :DELAY
     1841   01 0081F    68000824              B        T1ST1402
     1842   01 00820    6AF01892              BAL,15   RESETS            RESET WITH HIO, TAPE RUNAWAY
     1843   01 00821    6AF0123F              ERROR    1402,:T1ST14      TIMEOUT ON SIO (RUNAWAY)
            01 00822    0000057A A
            01 00823    6800080E
     1844   01 00824    CDA01B8C     T1ST1402 TIO,10   *:DEVADDR         TIO
     1845   01 00825    21B00002 A            CI,11    2                 BC=2
     1846   01 00826    6940082A              BANZ     T1ST1404
     1847   01 00827    6AF0123F              ERROR    1403,:T1ST14      BC .NE. 2
            01 00828    0000057B A
            01 00829    6800080E
     1848   01 0082A    31B02270     T1ST1404 CW,11    =X'E6000000'      READY
     1849   01 0082B    6840082F              BAZ      T1ST1403
     1850   01 0082C    6AF0123F              ERROR    1404,:T1ST14      INCORRECT TIO STATUS
            01 0082D    0000057C A
            01 0082E    6800080E
     1851   01 0082F    6AF0187C     T1ST1403 BAL,15   RWTLP
     1852   01 00830    6AF018CE              BAL,15   CLRDARM
     1853   01 00831    680003C9              B        :TIM              GO TO SEQUENCER


     1855                            *                                   TST1,15 WRITE TEST (BYTE 1 TO 64)
     1856                            *                                   ------------------------------------
     1857                            *
     1858                            * CHECK THE EXECUTION OF WRITE ORDERS USING X'FF' AS DATA PATTERN AND
     1859                            * A STARTING AT A BYTE OF ONE UP TO A MAXIMUM BYTE COUNT OF 64. THE
     1860                            * TEST WILL VERIFY THAT TAPE CAN BE MOVED OFF THE LOAD POINT, THAT THE
     1861                            * ORDER CAN BE TERMINATED WITH BOTH CONTROLLER AND TAPE STATION
     1862                            * RETURNING TO READY, THAT A DATA-OUTPUT OPERATION IS ACTUALLY
     1863                            * PERFORMED, AND THAT THE BYTE COUNT IS ALWAYS REDUCED TO ZERO. VERIFY
     1864                            * THAT INCORRECT LENGTH IS NOT DETECTED. REWIND TAPE AND TEST FOR LOAD
     1865                            * POINT. TRANSMISSION ERRORS NOT CHECKED IN THIS TEST.
     1866   01 00832    6AF018FB     :T1ST15  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     1867   01 00833    6AF01277              BAL,R15  CLRTE             DELETE TE BIT FROM MASKS
     1868   01 00834    55121A01              STH,1    TWBC+1,1          SET BYTE COUNT =1 OF TWBC
     1869   01 00835    6AF0187C              BAL,15   RWTLP             REWIND TAPE,TEST FOR LOAD POINT
     1870   01 00836    22000D00     T1ST1502 LI,R0    DA(TWBC)          WRITE
     1871   01 00837    6AF011C6              BAL,R15  GENIOXEQ
     1872   01 00838    22006604              LI,R0    BA(TSEQ010)       READY, NO IL, BC=0
     1873   01 00839    6AF01241              BAL,R15  GENFAIL
     1874   01 0083A    000005DD A            DATA     1501
     1875   01 0083B    68000835              B        T1ST1502-1
     1876   01 0083C    33101A01     T1ST1504 MTW,1    TWBC+1            BC=BC+1
     1877   01 0083D    22700040 A            LI,7     64
     1878   01 0083E    51721A01              CH,7     TWBC+1,1          BC =64
     1879   01 0083F    69300836              BNE      T1ST1502
     1880   01 00840    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1881   01 00841    680003C9              B        :TIM              GO TO SEQUENCER


     1883                            *                                   TST1,16 READ TEST
     1884                            *                                   ------------------------------------
     1885                            *
     1886                            * TEST THE EXECUTION OF READ ORDERS USING A STARTING BYTE COUNT OF ONE
     1887                            * UP TO A MAXIMUM COUNT OF 64. WRITE 64 RECORDS WITH A FIXED BYTE
     1888                            * COUNT OF 100 BYTES (PATTERN =X'FF') AND REWIND TAPE. THIS TEST WILL
     1889                            * CHECK THE RESPONSE TO A READ FORWARD OPERATION (OFF LOAD POINT,
     1890                            * ORDER TRANSMISSION, DATA INPUT OPERATION, BYTE COUNT REDUCED TO
     1891                            * ZERO). REWIND TAPE AND TEST LOAD POINT.
     1892                            * TE ( TRANSMISSION ERRORS) NOT CHECKED IN THIS TEST.
     1893                            *
     1894   01 00842    6AF018FB     :T1ST16  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     1895   01 00843    6AF01277              BAL,R15  CLRTE             DELETE TE BIT FROM MASKS
     1896   01 00844    6AF0187C              BAL,15   RWTLP             REWIND TAPE, TEST FOR LOAD POINT
     1897   01 00845    22AFFFC0 A            LI,10    -64
     1898   01 00846    22000D01     T1ST1603 LI,R0    DA(TW100B)        WRITE 100 BYTES (FF)
     1899   01 00847    6AF011C6              BAL,R15  GENIOXEQ
     1900   01 00848    220066A0              LI,R0    BA(TSEQ036)       NO UE, BC=00, READY
     1901   01 00849    6AF01241              BAL,R15  GENFAIL
     1902   01 0084A    00000641 A            DATA     1601
     1903   01 0084B    68000846              B        T1ST1603
     1904   01 0084C    65A00846              BIR,10   T1ST1603          DO 64 RECORDS OF 100 BYTES
     1905   01 0084D    55121A99              STH,1    TRFBC+1,1         SET BYTE COUNT =1
     1906   01 0084E    22AFFFC0 A            LI,10    -64
     1907   01 0084F    6AF0187C     T1ST1606 BAL,15   RWTLP             REWIND TAPE
     1908   01 00850    22000D4C     T1ST1607 LI,R0    DA(TRFBC)         READ FORWARD
     1909   01 00851    6AF011C6              BAL,R15  GENIOXEQ
     1910   01 00852    220066B8              LI,R0    BA(TSEQ039)       READY, UE, IL
     1911   01 00853    6AF01241              BAL,R15  GENFAIL
     1912   01 00854    00000642 A            DATA     1602
     1913   01 00855    6800084F              B        T1ST1606
     1914   01 00856    33101A99              MTW,1    TRFBC+1           BYTE COUNT =BYTE CONT+1
     1915   01 00857    65A00850              BIR,10   T1ST1607          DO 1 TO 64 BYTES
     1916   01 00858    6AF0187C              BAL,15   RWTLP             REWIND TAPE
     1917   01 00859    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     1918   01 0085A    680003C9              B        :TIM              GO TO SEQUENCER


     1920                            *                                   TST1,17 EOF TEST FOR POTTER ONLY
     1921                            *                                   --------------------------------
     1922         01 0085B           :T1ST17  EQU      %
     1923   01 0085B    32F01B5A              LW,15    SAVMODEL
     1924   01 0085C    21F01C9A A            CI,15    7322
        1*  01 0085D    6810128E              BGE      :SKIP             TERMINATE IF WANG               *H00

     1926   01 0085E    6AF0187C              BAL,15   RWTLP             REW TO LP
     1927   01 0085F    22900014 A            LI,9     20                **
     1928   01 00860    55921A13              STH,9    TWNP+1,1             RESTORE IOCD
     1929   01 00861    55921AB7              STH,9    RBNP+1,1             BYTE COUNT
     1930   01 00862    55921AB9              STH,9    RFNP+1,1          **
     1931   01 00863    32901AB6              LW,9     RBNP              **
     1932   01 00864    4B902269              AND,9    =X'FF000000'         RESTORE
     1933   01 00865    32802256              LW,8     BUFF2                READ
     1934   01 00866    25800002 A            SLS,8    2                    BACKWARD
     1935   01 00867    30900008 A            AW,9     8                    IOCD
     1936   01 00868    20900013 A            AI,9     19                   BUFFER ADDRESS
     1937   01 00869    35901AB6              STW,9    RBNP              **
     1938                            *  WRITE 50 EOF - RECORD PAIRS WITH RECORDS NUMBERED
     1939   01 0086A    22900001 A            LI,9     1                 INITIALIZE RECORD #
     1940         01 0086B           T1ST1701 EQU      %
     1941   01 0086B    359022A0              STW,9    BUFF1             STORE RECORD #
     1942   01 0086C    22000CFA              LI,0     DA(TWTM)          WRITE EOF
     1943   01 0086D    6AF018C6              BAL,15   CLRARM            CLEAR-ARM
     1944   01 0086E    6AF01EC7              BAL,15   :IOEXEC           TIO-SIO
     1945   01 0086F    6AF0189C              BAL,15   MYDELAY           WAIT
     1946   01 00870    6AF008C2              BAL,15   P:T17%WR          WRITE RECORD
     1947   01 00871    329022A0              LW,9     BUFF1
     1948   01 00872    20900001 A            AI,9     1
     1949   01 00873    21900033 A            CI,9     51
     1950   01 00874    6910086B              BL       T1ST1701          CONTINUE EOF - RECORD PAIR WRITE
     1951                            *  READ RECORDS BACKWARD (VERIFY RECORD #'S)
     1952   01 00875    22900032 A            LI,9     50                INITIALIZE
     1953   01 00876    359008F0              STW,9    P:T17R#           RECORD # REFERENCE
     1954         01 00877           T1ST1702 EQU      %
     1955   01 00877    22E00D5B              LI,14    DA(RBNP)
     1956   01 00878    6AF008CB              BAL,15   P:T17%RR          READ BACKWARD
     1957   01 00879    6AF008DD              BAL,15   P:T17%R#          CHECK RECORD #
     1958   01 0087A    CEA01B8C              TDV,10   *:DEVADDR         RECORD # OK; CHECK FOR LP
     1959   01 0087B    31B0226E              CW,11    =X'04000000'
     1960   01 0087C    68400882              BAZ      T1ST1703          NO LP
     1961   01 0087D    33F008F0              MTW,-1   P:T17R#           DECREMENT RECORD # REFERENCE
     1962   01 0087E    6910088E              BLZ      T1ST1706          OK (LP, R# = 0)
     1963   01 0087F    6AF01254              BAL,R15  GENERR            #1702
     1964   01 00880    000006A6 A            DATA     1702              INCORRECT LP
     1965   01 00881    680008BF              B        T1ST1799          EXIT
     1966         01 00882           T1ST1703 EQU      %
     1967   01 00882    33F008F0              MTW,-1   P:T17R#           DECREMENT RECORD # REFERENCE
     1968   01 00883    68100887              BGEZ     T1ST1704          OK (NO LP, R# GT 0)
     1969   01 00884    6AF01254              BAL,R15  GENERR            #1703
     1970   01 00885    000006A7 A            DATA     1703              LP EXPECTED
     1971   01 00886    680008BF              B        T1ST1799          EXIT
     1972         01 00887           T1ST1704 EQU      %
     1973   01 00887    6AF008D7              BAL,15   P:T17ROK          CHECK READ OK
     1974   01 00888    6800088A              B        T1ST1705          YES
     1975   01 00889    680008E4              B        P:T17RBE          #1704 - RBKW ERROR
     1976         01 0088A           T1ST1705 EQU      %
     1977   01 0088A    22E00D1B              LI,14    DA(TSFB)
     1978   01 0088B    6AF008CF              BAL,15   P:T17%SF          SPACE FILE BACKWARD
     1979   01 0088C    68000877              B        T1ST1702          CONTINUE
     1980   01 0088D    680008E7              B        P:T17SBE          #1705 - SFBKW ERROR
     1981                            *  READ RECORDS FORWARD (VERIFY RECORD #'S); REWIND
     1982         01 0088E           T1ST1706 EQU      %
     1983   01 0088E    22F00001 A            LI,15    1                 INITIALIZE
     1984   01 0088F    35F008F0              STW,15   P:T17R#           RECORD # REFERENCE
     1985         01 00890           T1ST1707 EQU      %
     1986   01 00890    22E00D1A              LI,14    DA(TSFF)
     1987   01 00891    6AF008CF              BAL,15   P:T17%SF          SPACE FILE FORWARD
     1988   01 00892    68000894              B        T1ST1708          CONTINUE
     1989   01 00893    680008EA              B        P:T17SFE          #1706 - SFFWD ERROR
     1990         01 00894           T1ST1708 EQU      %
     1991   01 00894    22E00D5C              LI,14    DA(RFNP)
     1992   01 00895    6AF008CB              BAL,15   P:T17%RR          READ FORWARD
     1993   01 00896    6AF008D7              BAL,15   P:T17ROK          CHECK READ OK
     1994   01 00897    68000899              B        T1ST1709          YES
     1995   01 00898    680008ED              B        P:T17RFE          #1707 - RFWD ERROR
     1996         01 00899           T1ST1709 EQU      %
     1997   01 00899    6AF008DD              BAL,15   P:T17%R#          CHECK RECORD #
     1998   01 0089A    20F00001 A            AI,15    1                 RECORD # OK
     1999   01 0089B    35F008F0              STW,15   P:T17R#           INCREMENT RECORD # REFERENCE
     2000   01 0089C    21F00033 A            CI,15    51
     2001   01 0089D    69100890              BL       T1ST1707          CONTINUE
     2002   01 0089E    6AF0187C              BAL,15   RWTLP             REW TO LP
     2003                            *  SPACE FILE FORWARD; HIO AT EOF; SPACE RECORD FORWARD; CHECK EOF
     2004   01 0089F    22F00000 A            LI,15    0                 INITIALIZE
     2005   01 008A0    35F008F0              STW,15   P:T17R#           RECORD # REFERENCE
     2006         01 008A1           T1ST1710 EQU      %
     2007   01 008A1    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM
     2008   01 008A2    22000D1A              LI,0     DA(TSFF)
     2009   01 008A3    CCE01B8C              SIO,14   *:DEVADDR         SPACE FILE FORWARD
     2010   01 008A4    22F00000 A            LI,15    0
     2011   01 008A5    CEE01B8C              TDV,14   *:DEVADDR
     2012   01 008A6    31F02271              CW,15    =X'10000000'
     2013   01 008A7    684008A5              BAZ      %-2               NO EOF
     2014   01 008A8    CFE01B8C              HIO,14   *:DEVADDR
     2015   01 008A9    22000D18              LI,0     DA(SF100)
     2016   01 008AA    CCE01B8C              SIO,14   *:DEVADDR         SPACE RECORD FORWARD
     2017   01 008AB    CDE01B8C              TIO,14   *:DEVADDR
     2018   01 008AC    31F02272              CW,15    =X'06000000'
     2019   01 008AD    694008AB              BANZ     %-2               BUSY
     2020   01 008AE    CEE01B8C              TDV,14   *:DEVADDR
     2021   01 008AF    31F02271              CW,15    =X'10000000'
     2022   01 008B0    684008BA              BAZ      T1ST1711          OK - NO DOUBLE EOF
     2023   01 008B1    6AF01254              BAL,R15  GENERR            DOUBLE EOF ERROR
     2024   01 008B2    000006AD A            DATA     1709
     2025   01 008B3    32C008F0              LW,12    P:T17R#           * CONVERT
     2026   01 008B4    20C00001 A            AI,12    1                 * RECORD #
     2027   01 008B5    EAF00217              BAL,15   *:DECC            * TO DECIMAL,
     2028   01 008B6    35F008F9              STW,15   DEOFMSG+7         * STORE AND
     2029   01 008B7    EAF0021C              BAL,15   *:PRINT           * PRINT
     2030   01 008B8    000008F2              DATA     DEOFMSG           * ERROR MESSAGE
     2031   01 008B9    680008BF              B        T1ST1799          EXIT
     2032         01 008BA           T1ST1711 EQU      %
     2033   01 008BA    32F008F0              LW,15    P:T17R#
     2034   01 008BB    20F00001 A            AI,15    1
     2035   01 008BC    35F008F0              STW,15   P:T17R#
     2036   01 008BD    21F00032 A            CI,15    50
     2037   01 008BE    691008A1              BL       T1ST1710          CONTINUE
     2038         01 008BF           T1ST1799 EQU      %
     2039   01 008BF    6AF0187C              BAL,15   RWTLP             REW TO LP
     2040   01 008C0    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2041   01 008C1    680003C9              B        :TIM              GO TO SEQUENCER
     2042                            ************************************************************************
     2043                            *                                                                      *
     2044                            *  WRITE 20 BYTE RECORD                                                *
     2045                            *                                                                      *
     2046                            *     BAL,15   P:T17%WR                                                *
     2047                            *                                                                      *
     2048                            ************************************************************************
     2049         01 008C2           P:T17%WR EQU      %
     2050   01 008C2    35F008F1              STW,15   P:T17RA
     2051   01 008C3    22000D09              LI,R0    DA(TWNP)
     2052   01 008C4    6AF011C6              BAL,R15  GENIOXEQ
     2053   01 008C5    6AF0207D              BAL,R15  :ERRORT
     2054   01 008C6    00006610              DATA     BA(TSEQ011)
     2055   01 008C7    E80008F1              B        *P:T17RA
     2056   01 008C8    6AF01254              BAL,R15  GENERR
     2057   01 008C9    000006A5 A            DATA     1701
     2058   01 008CA    680008BF              B        T1ST1799
     2059                            ************************************************************************
     2060                            *                                                                      *
     2061                            *  READ FORWARD OR BACKWARD                                            *
     2062                            *                                                                      *
     2063                            *     LI,0   DA(READ FWD OR READ BKW IOCD)                             *
     2064                            *     BAL,15   P:T17%RR                                                *
     2065                            *                                                                      *
     2066                            ************************************************************************
     2067         01 008CB           P:T17%RR EQU      %
     2068   01 008CB    35F008F1              STW,15   P:T17RA
     2069   01 008CC    3200000E A            LW,0     14
     2070   01 008CD    6AF011C6              BAL,R15  GENIOXEQ
     2071   01 008CE    E80008F1              B        *P:T17RA
     2072                            ************************************************************************
     2073                            *                                                                      *
     2074                            *  SPACE FILE FORWARD OR BACKWARD                                      *
     2075                            *                                                                      *
     2076                            *     LI,0   DA(SPACE FILE FWD OR SPACE FILE BKW IOCD)                 *
     2077                            *     BAL,15   P:T17%SF                                                *
     2078                            *                                                                      *
     2079                            ************************************************************************
     2080         01 008CF           P:T17%SF EQU      %
     2081   01 008CF    35F008F1              STW,15   P:T17RA
     2082   01 008D0    3200000E A            LW,0     14
     2083   01 008D1    6AF011C6              BAL,R15  GENIOXEQ
     2084   01 008D2    6AF0207D              BAL,15   :ERRORT
     2085   01 008D3    00006638              DATA     BA(TSEQ015)
     2086   01 008D4    E80008F1              B        *P:T17RA
     2087   01 008D5    331008F1              MTW,1    P:T17RA
     2088   01 008D6    E80008F1              B        *P:T17RA
     2089                            ************************************************************************
     2090                            *                                                                      *
     2091                            * READ ERROR CHECK                                                     *
     2092                            *                                                                      *
     2093                            *     BAL,15   P:T17ROK                                                *
     2094                            *                                                                      *
     2095                            ************************************************************************
     2096         01 008D7           P:T17ROK EQU      %
     2097   01 008D7    35F008F1              STW,15   P:T17RA
     2098   01 008D8    6AF0207D              BAL,15   :ERRORT
     2099   01 008D9    00006604              DATA     BA(TSEQ010)
     2100   01 008DA    E80008F1              B        *P:T17RA
     2101   01 008DB    331008F1              MTW,1    P:T17RA
     2102   01 008DC    E80008F1              B        *P:T17RA
     2103                            ************************************************************************
     2104                            *                                                                      *
     2105                            *  RECORD # CHECK                                                      *
     2106                            *                                                                      *
     2107                            *     P:T17R# CONTAINS REFERENCE #                                     *
     2108                            *     BAL,15   P:T17%R#                                                *
     2109                            *                                                                      *
     2110                            ************************************************************************
     2111         01 008DD           P:T17%R# EQU      %
     2112   01 008DD    32E008F0              LW,14    P:T17R#
     2113   01 008DE    E830000F A            BEZ      *15
     2114   01 008DF    B1E02256              CW,14    *BUFF2
     2115   01 008E0    E830000F A            BE       *15
     2116   01 008E1    6AF01254              BAL,R15  GENERR
     2117   01 008E2    000006AC A            DATA     1708
     2118   01 008E3    680008BF              B        T1ST1799
     2119         01 008E4           P:T17RBE EQU      %
     2120   01 008E4    6AF01254              BAL,R15  GENERR
     2121   01 008E5    000006A8 A            DATA     1704
     2122   01 008E6    680008BF              B        T1ST1799
     2123         01 008E7           P:T17SBE EQU      %
     2124   01 008E7    6AF01254              BAL,R15  GENERR
     2125   01 008E8    000006A9 A            DATA     1705
     2126   01 008E9    680008BF              B        T1ST1799
     2127         01 008EA           P:T17SFE EQU      %
     2128   01 008EA    6AF01254              BAL,R15  GENERR
     2129   01 008EB    000006AA A            DATA     1706
     2130   01 008EC    680008BF              B        T1ST1799
     2131         01 008ED           P:T17RFE EQU      %
     2132   01 008ED    6AF01254              BAL,R15  GENERR
     2133   01 008EE    000006AB A            DATA     1707
     2134   01 008EF    680008BF              B        T1ST1799
     2135   01 008F0    00000000 A   P:T17R#  DATA     0
     2136   01 008F1    00000000 A   P:T17RA  DATA     0
     2137   01 008F2    1FC4D6E4 A   DEOFMSG  TEXTC    'DOUBLE FILE MARK   RECORD      '
            01 008F3    C2D3C540 A
            01 008F4    C6C9D3C5 A
            01 008F5    40D4C1D9 A
            01 008F6    D2404040 A
            01 008F7    D9C5C3D6 A
            01 008F8    D9C44040 A
            01 008F9    40404040 A


     2139                            *                                   TST1,18 WRITE READ DATA TEST
     2140                            *                                   ------------------------------------
     2141                            *
     2142                            * WRITE N RECORDS WITH A FIXED BYTE COUNT AND DATA PATTERN OF X'FF'.
     2143                            * REWIND TAPE AND READ N RECORDS IN THE FORWARD DIRECTION. VERIFY THAT
     2144                            * DATA CAN BE RECORDED AND READ FROM EACH TRACK.
     2145                            * TE ( TRANSMISSION ERRORS) NOT CHECKED IN THIS TEST.
     2146   01 008FA    6AF018FB     :T1ST18  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     2147   01 008FB    6AF01277              BAL,R15  CLRTE             DELETE TE BIT FROM MASKS
     2148   01 008FC    225FFFF8 A            LI,5     -8
     2149   01 008FD    22600000 A            LI,6     0                 CLEAR TALLY ERROR AREA
     2150   01 008FE    356A1D90              STW,6    :TALLYO+8,5
     2151   01 008FF    655008FE              BIR,5    %-1
     2152   01 00900    6AF0187C     T1ST1802 BAL,15   RWTLP             RWIND TAPE, TEST FOR LOAD POINT
     2153   01 00901    22AFFF9C A            LI,10    -100
     2154   01 00902    22000D01     T1ST1803 LI,R0    DA(TW100B)        WRITE 100 BYTES (FF)
     2155   01 00903    6AF011C6              BAL,R15  GENIOXEQ
     2156   01 00904    6AF0207D     T1ST1804 BAL,15   :ERRORT           GO TO SUBR.
     2157   01 00905    000066A0              DATA     BA(TSEQ036)       NO UE, BC=00, READY
     2158   01 00906    68000909              B        T1ST1805
     2159   01 00907    6AF01254              BAL,R15  GENERR            1801
     2160   01 00908    00000709 A            DATA     1801              INCORRECT BITS SET ON TEST
     2161   01 00909    65A00902     T1ST1805 BIR,10   T1ST1803
     2162   01 0090A    6AF0187C              BAL,15   RWTLP             REWIND TAPE, TEST FOR LOAD POINT
     2163   01 0090B    22AFFF9C A            LI,10    -100
     2164   01 0090C    22000D4D     T1ST1806 LI,R0    DA(TRF100B)       READ FORWARD 100 BYTES
     2165   01 0090D    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     2166   01 0090E    35101FD1              STW,1    :COMFLAG          INHIBIT PRINTOUT
     2167   01 0090F    6AF01F68     T1ST1807 BAL,15   :COMPARE          COMPARE INFORMATION
     2168   01 00910    6800091C              B        T1ST1808
     2169   01 00911    225FFFF8 A            LI,5     -8                FETCH -8
     2170   01 00912    22800080 A            LI,8     X'80'             FETCH X'80'
     2171   01 00913    226FFF9C A            LI,6     -100              FETCH -100
     2172   01 00914    32E02256              LW,14    BUFF2
     2173   01 00915    20E00019 A            AI,14    25
     2174   01 00916    F18C000E A            CB,8     *14,6             COMPARE
     2175   01 00917    69400919              BCS,4    %+2               BRANCH CONDITION CODE SET
     2176   01 00918    331A1D90              MTW,1    :TALLYO+8,5       ADD 1 TO TALLYO
     2177   01 00919    65600916              BIR,6    %-3               BRANCH INCREMENT REG.
     2178   01 0091A    2580027F A            SCS,8    -1                SHIFT ONE SPACE
     2179   01 0091B    65500913              BIR,5    %-8               BRANCH INCREMENT REG.
     2180   01 0091C    65A0090C     T1ST1808 BIR,10   T1ST1806          READ 100 RECORDS
     2181   01 0091D    225FFFF8 A            LI,5     -8
     2182   01 0091E    22A02710 A            LI,10    10000             FETCH 10000
     2183   01 0091F    35AA1D88              STW,10   :TALLYE+8,5       STORE 10000 INTO TALLYE
     2184   01 00920    6550091F              BIR,5    %-1               BRANCH INCREMENT REG.5
     2185   01 00921    32A02273              LW,10    =X'FFFFFFFF'      FETCH WORD
     2186   01 00922    35A01D7E              STW,10   :TALLYP           STORE INTO TALLP
     2187   01 00923    22A00012 A            LI,10    18                FETCH TEST NO.
     2188   01 00924    35A01D7F              STW,10   TESTNO            STORE INTO TESTNO
     2189   01 00925    22801EBC              LI,8     T1ST18M           FETCH MSG
     2190   01 00926    35801D70              STW,8    :TALLYMA          STORE INTO TALLYMA
     2191   01 00927    6AF01D34              BAL,15   ERRPNT1           GO TO ERROR PRINT SUBR.
     2192   01 00928    6800092C              B        T1ST1809          BRANCH
     2193   01 00929    EAF0021D              BAL,15   *:SENSE           TEST SENSE SW
     2194   01 0092A    2E00092A              WAIT     %
     2195   01 0092B    680008FA              B        :T1ST18           LOOP ON ERROR
     2196   01 0092C    22000000 A   T1ST1809 LI,0     0                 FETCH ZERO
     2197   01 0092D    35001FD1              STW,0    :COMFLAG          RESET COMFLAG
     2198   01 0092E    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     2199   01 0092F    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2200   01 00930    680003C9              B        :TIM              GO TO SEQUENCER


     2202                            *                                   TST1,19 WRITE, READ DATA TEST
     2203                            *                                           DATA X'00' TO X'80'
     2204                            *                                   ------------------------------------
     2205                            *
     2206                            * WRITE N RECORDS WITH A FIXED BYTE COUNT AND THE CURRENT DATA PATTERN
     2207                            * DATA WILL BE VARIED FROM X'00' THRU X'80'. REWIND TAPE AND READ N
     2208                            * RECORDS IN THE FORWARD DIRECTION. VERIFY FOR EACH PASS THAT ONLY ONE
     2209                            * TRACK CONTAINS INFORMATION AND THAT ALL OTHER TRACKS ARE ZERO. AFTER
     2210                            * EACH PASS LOOP ON THE DATA PATTERN WHICH HAS CAUSED AN ERROR AND
     2211                            * CONTINUE TESTING UNTIL A SUCCESSFUL PASS HAS BEEN MADE.
     2212   01 00931    22701BAA     :T1ST19  LI,7     PT00
     2213   01 00932    5572093B              STH,7    T1ST1903,1        STARTING ADDRESS OF PATTERN
     2214   01 00933    22F00000 A            LI,15    0
     2215   01 00934    35F01BBC              STW,15   SPFLAG            RESET FLAG
     2216   01 00935    35F01B60              STW,15   FLG1              CLEAR 1 ONLY FLAG
     2217   01 00936    22600000 A   T1ST1901 LI,6     0                 CLEAR TALLY AREA
     2218   01 00937    22700000 A            LI,7     0
     2219   01 00938    15601BA6              STD,6    PT00T
     2220   01 00939    15601BA8              STD,6    PT00T+2
     2221   01 0093A    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     2222   01 0093B    32701BAA     T1ST1903 LW,7     PT00
     2223   01 0093C    35701F59              STW,7    :PATID+1
     2224   01 0093D    6AF018F9              BAL,15   SMEARSP           SMEAR SPECIAL PATTERN
     2225   01 0093E    225FFFF8 A            LI,5     -8
     2226   01 0093F    22600000 A            LI,6     0                 CLEAR TALLY ERROR AREA
     2227   01 00940    356A1D90              STW,6    :TALLYO+8,5
     2228   01 00941    65500940              BIR,5    %-1
     2229   01 00942    22AFFF9C A            LI,10    -100
     2230   01 00943    22000D01     T1ST1906 LI,R0    DA(TW100B)        WRITE 100 BYTES
     2231   01 00944    6AF011C6              BAL,R15  GENIOXEQ
     2232   01 00945    CDC01B8C              TIO,12   *:DEVADDR         TEST FOR ERRORS
     2233   01 00946    31D02274              CW,13    =X'00400000'      TE ONLY
     2234   01 00947    68400949              BCR,4    T1ST1909
     2235   01 00948    33101BA6              MTW,1    PT00T             WRITE ERROR TALLY+1
     2236   01 00949    65A00943     T1ST1909 BIR,10   T1ST1906          WRITE 100 RECORDS
     2237   01 0094A    6AF0187C              BAL,15   RWTLP             REWIND AND TEST FOR LOAD POINT
     2238   01 0094B    22AFFF9C A            LI,10    -100
     2239   01 0094C    22000D4D     T1ST1910 LI,R0    DA(TRF100B)       READ FORWARD 100 BYTES
     2240   01 0094D    6AF011C3              BAL,R15  GENIOXEC           CLEAR BUFFER BEFORE READ
     2241   01 0094E    CDC01B8C              TIO,12   *:DEVADDR         TEST FOR ERRORS
     2242   01 0094F    31D02274              CW,13    =X'00400000'      TE ONLY
     2243   01 00950    68400952              BCR,4    %+2
     2244   01 00951    33101BA7              MTW,1    PT00T+1           READ ERROR TALLY+1
     2245   01 00952    35101FD1              STW,1    :COMFLAG          INHIBIT PRINTOUT
     2246   01 00953    6AF01F68              BAL,15   :COMPARE          COMPARE INFORMATION
     2247   01 00954    6800096A              B        T1ST1915
     2248   01 00955    33101BA8              MTW,1    PT00T+2           INFO ERROR TALLY+1
     2249   01 00956    225FFFF8 A            LI,5     -8                FETCH -8
     2250   01 00957    22800080 A            LI,8     X'80'             FETCH X'80'
     2251   01 00958    226FFF9C A   T1ST1917 LI,6     -100              FETCH TOTAL NUMBER OF BYTES
     2252   01 00959    71801F59              CB,8     :PATID+1          COMPARE PATTERNS
     2253   01 0095A    68300962              BE       %+8
     2254   01 0095B    32E02256              LW,14    BUFF2
     2255   01 0095C    20E00019 A            AI,14    25
     2256   01 0095D    F18C000E A            CB,8     *14,6             COMPARE
     2257   01 0095E    68400960              BCR,4    %+2
     2258   01 0095F    331A1D90              MTW,1    :TALLYO+8,5       ADD 1 TO ERROR NO. COUNT
     2259   01 00960    6560095D              BIR,6    %-3
     2260   01 00961    68000968              B        T1ST1915-2        OK
     2261   01 00962    32E02256              LW,14    BUFF2
     2262   01 00963    20E00019 A            AI,14    25
     2263   01 00964    F18C000E A            CB,8     *14,6             COMPARE
     2264   01 00965    69400967              BCS,4    %+2
     2265   01 00966    331A1D90              MTW,1    :TALLYO+8,5       ADD 1 TO ERROR COUNT
     2266   01 00967    65600964              BIR,6    %-3
     2267   01 00968    2580027F A            SCS,8    -1                SHIFT ONE BIT
     2268   01 00969    65500958              BIR,5    T1ST1917
     2269   01 0096A    65A0094C     T1ST1915 BIR,10   T1ST1910          READ 100 RECORDS
     2270                            * PRINTOUT PATTERN THAT FAILED, WRITE ERRORS, READ ERRORS
     2271   01 0096B    32601BA6              LW,6     PT00T
     2272   01 0096C    30601BA7              AW,6     PT00T+1
     2273   01 0096D    30601BA8              AW,6     PT00T+2
     2274   01 0096E    68300997              BEZ      T1ST1916          NO PRINTOUT ON THIS PATTERN
     2275   01 0096F    33101BBC              MTW,1    SPFLAG            ERROR +1
     2276   01 00970    6AF01254              BAL,R15  GENERR            1901
     2277   01 00971    0000076D A            DATA     1901              WRITE, READ, OR INFO ERRORS
     2278   01 00972    32C01F59              LW,12    :PATID+1
     2279   01 00973    EAF00218              BAL,15   *:HEXC            CONVERT FOR MESSAGE
     2280   01 00974    35F01CC6              STW,15   MESER+3
     2281   01 00975    32C01BA6              LW,12    PT00T
     2282   01 00976    EAF00217              BAL,15   *:DECC            CONVERT FOR PRINTOUT
     2283   01 00977    35F01CC9              STW,15   MESER+6
     2284   01 00978    32C01BA7              LW,12    PT00T+1
     2285   01 00979    EAF00217              BAL,15   *:DECC            CONVERT FOR PRINTOUT
     2286   01 0097A    35F01CCC              STW,15   MESER+9
     2287   01 0097B    32C01BA8              LW,12    PT00T+2
     2288   01 0097C    EAF00217              BAL,15   *:DECC            CONVERT FOR PRINTOUT
     2289   01 0097D    35F01CCF              STW,15   MESER+12
     2290   01 0097E    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     2291   01 0097F    00001CB5              DATA     MSER1
     2292   01 00980    EAF0021C              BAL,15   *:PRINT           PRINT OUT MESSAGE
     2293   01 00981    00001CC3              DATA     MESER
     2294   01 00982    EAF0021C              BAL,15   *:PRINT           PRINT
     2295   01 00983    00001CB5              DATA     MSER1
     2296   01 00984    22800080 A            LI,8     X'80'             FETCH NO. X'80'
     2297   01 00985    225FFFF8 A            LI,5     -8
     2298   01 00986    22A00000 A            LI,10    0                 FETCH EXP. COUNT
     2299   01 00987    71801F59              CB,8     :PATID+1          COMPARE BYTES
     2300   01 00988    6830098B              BE       %+3
     2301   01 00989    35AA1D88              STW,10   :TALLYE+8,5       STORE EXP. COUNT
     2302   01 0098A    6800098D              B        %+3
     2303   01 0098B    22B02710 A            LI,11    10000             FETCH EXP. COUNT
     2304   01 0098C    35BA1D88              STW,11   :TALLYE+8,5       STORE EXP. COUNT
     2305   01 0098D    2580027F A            SCS,8    -1                SHIFT ONE BIT
     2306   01 0098E    65500987              BIR,5    %-7
     2307   01 0098F    32A01F59              LW,10    :PATID+1          FETCH PATTERN
     2308   01 00990    35A01D7E              STW,10   :TALLYP           STORE PATTERN
     2309   01 00991    22A00013 A            LI,10    19                FETCH TEST NO.
     2310   01 00992    35A01D7F              STW,10   TESTNO            STORE TEST NO.
     2311   01 00993    22801EBC              LI,8     T1ST18M
     2312   01 00994    35801D70              STW,8    :TALLYMA
     2313   01 00995    6AF01D34              BAL,15   ERRPNT1
     2314   01 00996    68000997              B        %+1
     2315                            * CHANGE PATTERN
     2316   01 00997    3310093B     T1ST1916 MTW,1    T1ST1903          DO NEXT PATTERN
     2317   01 00998    22701BB3              LI,7     PT80+1
     2318   01 00999    5172093B              CH,7     T1ST1903,1
     2319   01 0099A    69200936              BG       T1ST1901
     2320   01 0099B    32F01BBC              LW,15    SPFLAG
     2321   01 0099C    683009A0              BEZ      %+4
     2322   01 0099D    EAF0021D              BAL,15   *:SENSE
     2323   01 0099E    2E00099E              WAIT     %
     2324   01 0099F    68000931              B        :T1ST19
     2325   01 009A0    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2326   01 009A1    680003C9              B        :TIM              GO TO SEQUENCER


     2328                            *                                   T1ST,20 SET ERASE-WRITE TEST
     2329                            *                                   ------------------------------------
     2330                            *
     2331                            * CHECK THE CAPABILITY OF THE TAPE STATION TO SKIP OVER AN AREA ON THE
     2332                            * TAPE BY CHECKING THE DELAY BETWEEN THE START OF THE WRITE ORDER AND
     2333                            * THE START OF THE DATA TRANSFER.
     2334         01 009A2           :T1ST20  EQU      %                 RETURN TO MONITOR IF STC
     2335   01 009A2    6AF0127B              BAL,R15  :S0CHECK          AND TST0 OR NOT SINGLE TEST
        1*  01 009A3    6AF01288              BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
     2336   01 009A4    22500000 A            LI,R5    0                 CLEAR TALLY
     2337   01 009A5    226FFFF0 A            LI,6     -16
     2338   01 009A6    32801B5D              LW,8     CLOCK             CHANGE CLOCK INTERRUPT FOR THIS SECT
     2339   01 009A7    35800055 A            STW,8    X'55'
     2340         01 009A8           T1ST2001 EQU      %
     2341   01 009A8    3300033A              MTW,0    :CDB+1            CHECK FOR STC DRIVES
     2342   01 009A9    683009AC              BEZ      T1ST2011
     2343   01 009AA    22000D02              LI,R0    DA(ERASE)         POINT TO ERASE PROGRAM
     2344   01 009AB    680009AF              B        T1ST2012
     2345         01 009AC           T1ST2011 EQU      %
     2346   01 009AC    22000CE9              LI,R0    DA(TSE1)          SET ERASE
     2347   01 009AD    6AF011C6              BAL,R15  GENIOXEQ
     2348   01 009AE    22000D03              LI,0     DA(TW1B)          WRITE 1 BYTE BCZ SET
     2349   01 009AF    6AF018C6     T1ST2012 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     2350   01 009B0    22F01040 A            LI,15    X'1040'            ARM AND ENABLE CLOCK
     2351   01 009B1    6DF01200 A            WD,15    X'1200'
     2352   01 009B2    22800000 A            LI,8     0
     2353   01 009B3    32E0226B              LW,14    =X'80000000'      SET DELAY TIMEOUT LIMIT
     2354   01 009B4    CCA01B8C              SIO,10   *:DEVADDR         SIO
     2355   01 009B5    46700008 A            XW,7     8
     2356   01 009B6    32F02068              LW,15    :INTRECF          INTERRUPT RECEIVED FLAG
     2357   01 009B7    693009BB              BCS,3    T1ST2005            INT. RECEIVED
     2358   01 009B8    65E009B6              BIR,14   %-2               CHECK FOR TIMEOUT
     2359   01 009B9    6AF01254              BAL,R15  GENERR              TIMEOUT ERROR
     2360   01 009BA    000007D3 A            DATA     2003                2003
     2361   01 009BB    46800007 A   T1ST2005 XW,8     7                 R8 NOW HAS TALLY
     2362   01 009BC    22F01040 A            LI,15    X'1040'           DISARM INTERRUPT
     2363   01 009BD    6DF01100 A            WD,15    X'1100'
     2364   01 009BE    30500008 A            AW,5     8
     2365   01 009BF    CDC01B8C              TIO,12   *:DEVADDR         WAIT FOR DEVICE
     2366   01 009C0    69C009BF              BCS,12   %-1
     2367   01 009C1    656009A8              BIR,6    T1ST2001          DO 16 TIMES
     2368   01 009C2    2550007D A            SLS,5    -3                R5 HAS AVERAGE TIME IN MS
     2369   01 009C3    31500462              CW,5     ERTMIN            MINIMUM
     2370   01 009C4    691009CA              BL       T1ST2003
     2371   01 009C5    31500461              CW,5     ERTMAX            MAXIMUM
     2372   01 009C6    691009DA              BL       T1ST2004
     2373   01 009C7    6AF01254              BAL,R15  GENERR            2001
     2374   01 009C8    000007D1 A            DATA     2001              ERASE TIME TOO LONG
     2375   01 009C9    680009CC              B        T1ST2003+2        GO TO MESSAGE PRINTOUT
     2376   01 009CA    6AF01254     T1ST2003 BAL,R15  GENERR            2002
     2377   01 009CB    000007D2 A            DATA     2002              ERASE TIME TOO SHORT
     2378   01 009CC    32C00005 A            LW,12    5                 ERASE TIME IN MS
     2379   01 009CD    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     2380   01 009CE    35F01C9F              STW,15   MESEGT+3
     2381   01 009CF    32C00462              LW,12    ERTMIN            MINIMUM
     2382   01 009D0    EAF00217              BAL,15   *:DECC            CONVERT
     2383   01 009D1    55F01CA4              STH,15   MESEGT+8
     2384   01 009D2    32C00461              LW,12    ERTMAX            MAXIMUM
     2385   01 009D3    EAF00217              BAL,15   *:DECC            CONVERT
     2386   01 009D4    55F01CA5              STH,15   MESEGT+9
     2387   01 009D5    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     2388   01 009D6    00001C9C              DATA     MESEGT
     2389   01 009D7    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2390   01 009D8    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2391   01 009D9    680009A2              B        :T1ST20
     2392   01 009DA    6AF018CE     T1ST2004 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2393   01 009DB    3280203B              LW,8     :DELMTW           RESTORE CLOCK FOR DELAY
     2394   01 009DC    35800055 A            STW,8    X'55'
     2395   01 009DD    680003C9              B        :TIM              GO TO SEQUENCER


     2397                            *                                   TST1,21 WRITE,SPACE FWD AND BKW TEST
     2398                            *
     2399                            *                                   ------------------------------------
     2400                            *
     2401                            * WRITE N RECORDS WITH A FIXED BYTE COUNT. REWIND TAPE TO LOAD POINT.
     2402                            * SPACE ONE RECORD IN THE FORWARD AND BACKWARD DIRECTION. SPACE ANOTHER
     2403                            * RECORD IN THE BACKWARD DIRECTION AND CHECK LOAD POINT INDICATOR.
     2404                            * SPACE N RECORDS IN THE FORWARD DIRECTION AND THEN THE REVERSE
     2405                            * DIRECTION. CHECK ALL STATUS RESPONSE. REWIND TO LOAD POINT.
     2406   01 009DE    6AF0187C     :T1ST21  BAL,15   RWTLP             REWIND TO LOAD POINT
     2407   01 009DF    6AF018FB              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     2408   01 009E0    228FFF9C A            LI,8     -100
     2409         01 009E1           T1ST2101 EQU      %
     2410   01 009E1    22000D01              LI,R0    DA(TW100B)        WRITE 100 BYTES
     2411   01 009E2    6AF011C6              BAL,R15  GENIOXEQ
     2412   01 009E3    22006610              LI,R0    BA(TSEQ011)       CHECK FOR STANDARD
     2413   01 009E4    6AF01241              BAL,R15  GENFAIL           ERROR CONDITIONS
     2414   01 009E5    00000835 A            DATA     2101              (ERROR ID)
     2415   01 009E6    680009E1              B        T1ST2101          (LOOP EXIT)
     2416   01 009E7    658009E1              BIR,R8   T1ST2101
     2417   01 009E8    6AF0187C     T1ST2102 BAL,R15  RWTLP             RETURN TAPE TO BOT
     2418   01 009E9    22000D18              LI,R0    DA(SF100)         SKIP A RECORD
     2419   01 009EA    6AF011C6              BAL,R15  GENIOXEQ          IN FORWARD DIRECTION
     2420   01 009EB    22006610              LI,R0    BA(TSEQ011)       LOOK FOR STANDARD
     2421   01 009EC    6AF01241              BAL,R15  GENFAIL           ERROR CONDITIONS
     2422   01 009ED    00000836 A            DATA     2102              (ERROR ID)
     2423   01 009EE    680009E8              B        T1ST2102          (LOOP EXIT)
     2424   01 009EF    22000D19     T1ST2103 LI,R0    DA(SB100)         SPACE BACKWARD
     2425   01 009F0    6AF011C6              BAL,R15  GENIOXEQ
     2426   01 009F1    22006610              LI,R0    BA(TSEQ011)       LOOK FOR STANDARD
     2427   01 009F2    6AF01241              BAL,R15  GENFAIL           ERROR CONDITIONS
     2428   01 009F3    00000837 A            DATA     2103              (ERROR ID)
     2429   01 009F4    680009EF              B        T1ST2103          (LOOP EXIT)
     2430         01 009F5           T1ST2104 EQU      %
     2431   01 009F5    22000D19              LI,R0    DA(SB100)         SPACE RECORD BACKWARD
     2432   01 009F6    6AF011C6              BAL,R15  GENIOXEQ
     2433   01 009F7    22006634              LI,R0    BA(TSEQ014)       LOOK FOR LOAD POINT
     2434   01 009F8    6AF01241              BAL,R15  GENFAIL
     2435   01 009F9    00000838 A            DATA     2104              (ERROR ID)
     2436   01 009FA    680009F5              B        T1ST2104          (LOOP EXIT)
     2437   01 009FB    228FFF9C A   T1ST2109 LI,8     -100
     2438   01 009FC    22F00000 A   T1ST2111 LI,15    0
     2439   01 009FD    35F01BBC              STW,15   SPFLAG            RESET FLAG
     2440   01 009FE    22000D18              LI,0     DA(SF100)         SPACE FORWARD 100 BYTES
     2441   01 009FF    6AF011C6              BAL,R15  GENIOXEQ
     2442   01 00A00    6AF0207D              BAL,15   :ERRORT           TEST
     2443   01 00A01    00006610              DATA     BA(TSEQ011)       NO UE,READY, BC=00
     2444   01 00A02    68000A06              B        T1ST2112
     2445   01 00A03    6AF01254              BAL,R15  GENERR            #2105
     2446   01 00A04    00000839 A            DATA     2105              INCORRECT BITS ON TEST
     2447   01 00A05    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2448   01 00A06    658009FC     T1ST2112 BIR,8    T1ST2111          SPACE FWD 100 RECORDS
     2449   01 00A07    32F01BBC              LW,15    SPFLAG
     2450   01 00A08    68300A0F              BEZ      T1ST2114-1        ERROR FLAG =0
     2451   01 00A09    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2452   01 00A0A    2E000000 A            WAIT
     2453   01 00A0B    68000A0D              B        %+2               LOOP ON ERROR BRANCH
     2454   01 00A0C    68000A1B              B        T1ST2117+3        GO TO END OF TEST
     2455   01 00A0D    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     2456   01 00A0E    680009FB              B        T1ST2109
     2457   01 00A0F    228FFF9C A            LI,8     -100
     2458   01 00A10    22000D19     T1ST2114 LI,R0    DA(SB100)         SPACE RECORD BACKWARD
     2459   01 00A11    6AF011C6              BAL,R15  GENIOXEQ
     2460   01 00A12    6AF0207D              BAL,15   :ERRORT           TEST
     2461   01 00A13    00006610              DATA     BA(TSEQ011)       NO UE, READY, BC=00
     2462   01 00A14    68000A18              B        T1ST2117
     2463   01 00A15    6AF01254              BAL,R15  GENERR            #2106
     2464   01 00A16    0000083A A            DATA     2106              INCORRECT BITS ON TEST
     2465   01 00A17    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2466   01 00A18    65800A10     T1ST2117 BIR,8    T1ST2114          SPACE 100 RECORDS FORWARD
     2467   01 00A19    32F01BBC              LW,15    SPFLAG
     2468   01 00A1A    69300A09              BNEZ     T1ST2112+3
     2469   01 00A1B    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     2470   01 00A1C    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2471   01 00A1D    680003C9              B        :TIM              GO TO SEQUENCER


     2473                            *                                   TST1,22 WRITE TAPE MARK TEST
     2474                            *                                   ------------------------------------
     2475                            *
     2476                            * WRITE N TAPE MARKS AND VERIFY THAT END OF FILE STATUS IS REPORTED
     2477                            * AFTER EACH ORDER. ALL TAPE MARKS ARE READ FORWARD AND BACKWARD.
     2478         00000100           TST22CNT EQU      256               NUMBER OF EOFS TO WRITE
     2479   01 00A1E    6AF0187C     :T1ST22  BAL,15   RWTLP             REWIND TO LOAD POINT
     2480                            * WRITE FILEMARKS FORWARDS
     2481   01 00A1F    228FFF00 A            LI,8     -TST22CNT
     2482   01 00A20    22000CFA     T1ST2201 LI,R0    DA(TWTM)          WRITE TAPEMARK
     2483   01 00A21    6AF011C6              BAL,R15  GENIOXEQ
     2484   01 00A22    6AF0207D              BAL,15   :ERRORT           TEST
     2485   01 00A23    00006638              DATA     BA(TSEQ015)       READY, NO UE, TM
     2486   01 00A24    68000A27              B        T1ST2204
     2487   01 00A25    22000899 A            LI,R0    2201
     2488   01 00A26    6AF00A3C              BAL,R15  TST22DSP          DISPLAY COUNT AND ERROR
     2489   01 00A27    65800A20     T1ST2204 BIR,8    T1ST2201
     2490                            * READ FILEMARKS BACKWARDS
     2491   01 00A28    228FFF00 A            LI,8     -TST22CNT
     2492   01 00A29    22000D61     T1ST2205 LI,R0    DA(RB1000)        READ BACKWARDS OVER TAPEMARK
     2493   01 00A2A    6AF011C6              BAL,R15  GENIOXEQ
     2494   01 00A2B    6AF0207D              BAL,15   :ERRORT           TEST
     2495   01 00A2C    000066A8              DATA     BA(TSEQ037)       UE, TAPE MARK
     2496   01 00A2D    68000A30              B        T1ST2206
     2497   01 00A2E    2200089A A            LI,R0    2202
     2498   01 00A2F    6AF00A3C              BAL,R15  TST22DSP          DISPLAY COUNT AND ERROR
     2499   01 00A30    65800A29     T1ST2206 BIR,8    T1ST2205
     2500                            * READ FILEMARKS FORWARDS
     2501   01 00A31    228FFF00 A            LI,8     -TST22CNT
     2502   01 00A32    22000D62     T1ST2207 LI,R0    DA(RF100B)        READ FORWARD OVER TAPEMARK
     2503   01 00A33    6AF011C6              BAL,R15  GENIOXEQ
     2504   01 00A34    6AF0207D              BAL,15   :ERRORT           TEST
     2505   01 00A35    000066A8              DATA     BA(TSEQ037)       UE, EOF, NOT BOT, NOT TE
     2506   01 00A36    68000A39              B        T1ST2208
     2507   01 00A37    2200089B A            LI,R0    2203
     2508   01 00A38    6AF00A3C              BAL,R15  TST22DSP          DISPLAY COUNT AND ERROR
     2509   01 00A39    65800A32     T1ST2208 BIR,8    T1ST2207
     2510   01 00A3A    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2511   01 00A3B    680003C9              B        :TIM              GO TO SEQUENCER
     2512         01 00A3C           TST22DSP EQU      %
     2513   01 00A3C    35000A45              STW,R0   TST22ERR          SAVE ERROR ID
     2514   01 00A3D    35F00A4A              STW,R15  TST22LNK          SAVE RETURN ADDRESS
     2515   01 00A3E    22C00101 A            LI,R12   TST22CNT+1        COMPUTE I/O COUNT
     2516   01 00A3F    30C00008 A            AW,R12   R8
     2517   01 00A40    EAF00217              BAL,R15  *:DECC
     2518   01 00A41    35F01D0B              STW,R15  TST22MSG+3
     2519   01 00A42    EAF0021C              BAL,R15  *:PRINT
     2520   01 00A43    00001D08              DATA     TST22MSG
     2521   01 00A44    6AF01254              BAL,R15  GENERR            #2203
     2522   01 00A45    0000089B A   TST22ERR DATA     2203              ERROR ID
     2523   01 00A46    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2524   01 00A47    2E000000 A            WAIT
     2525   01 00A48    E8000A4A              B        *TST22LNK         DO NOT LOOP
     2526   01 00A49    E8000A4A              B        *TST22LNK         NORMAL RETURN
     2527   01 00A4A    00000000 A   TST22LNK DATA     0                 RETURN ADDRESS


     2529                            *                                   TST1,23 WRITE TAPE MARK -SPACE FILE
     2530                            *                                           AND SPACE RECORD TEST
     2531                            *                                   ------------------------------------
     2532                            *
     2533                            * WRITE N TAPE MARKS AND REWIND TO LOAD POINT. SPACE FILE IN THE
     2534                            * FORWARD DIRECTION AND VERIFY END OF FILE AND NO UNUSUAL END STATUS.
     2535                            * SPACE FILE BACKWARD AND CHECK END OF FILE AND NO UNUSUAL END. SPACE
     2536                            * FILE BACKWARD AGAIN AND CHECK END OF FILE, BEGINNING OF TAPE AND NO
     2537                            * UNUSUAL END. VERIFY ALL OTHER STATUS. VERIFY THAT UNUSUAL END AND
     2538                            * END OF FILE STATUS IS REPORTED WHEN SPACING OR READING OVER A TAPE
     2539                            * MARK. WRITE N RECORDS FOLLOWED BY A TAPE MARK. VERIFY SPACE RECORD
     2540                            * IN BOTH DIRECTIONS.
     2541   01 00A4B    6AF0187C     :T1ST23  BAL,15   RWTLP             REWIND TO LOAD POINT
     2542   01 00A4C    228FFF9C A            LI,8     -100
     2543   01 00A4D    22000CFA     T1ST2301 LI,R0    DA(TWTM)          WRITE TAPEMARK
     2544   01 00A4E    6AF011C6              BAL,R15  GENIOXEQ
     2545   01 00A4F    22006638              LI,R0    BA(TSEQ015)       READY, EOF, NO UE
     2546   01 00A50    6AF01241              BAL,R15  GENFAIL
     2547   01 00A51    000008FD A            DATA     2301
     2548   01 00A52    68000A4D              B        T1ST2301
     2549   01 00A53    65800A4D              BIR,8    T1ST2301
     2550   01 00A54    6AF0187C     T1ST2304 BAL,15   RWTLP             REWIND TO LOAD POINT
     2551   01 00A55    228FFF9C A            LI,8     -100
     2552   01 00A56    22000D1A     T1ST2305 LI,R0    DA(TSFF)          SPACE FILE FORWARD
     2553   01 00A57    6AF011C6              BAL,R15  GENIOXEQ
     2554   01 00A58    22006638              LI,R0    BA(TSEQ015)       READY, NO UE, EOF
     2555   01 00A59    6AF01241              BAL,R15  GENFAIL
     2556   01 00A5A    000008FE A            DATA     2302
     2557   01 00A5B    68000A54              B        T1ST2304
     2558   01 00A5C    65800A56              BIR,8    T1ST2305
     2559   01 00A5D    228FFF9C A            LI,8     -100
     2560   01 00A5E    22000D1B     T1ST2307 LI,R0    DA(TSFB)          SPACE FILE BACKWARDS
     2561   01 00A5F    6AF011C6              BAL,R15  GENIOXEQ
     2562   01 00A60    220066B0              LI,R0    BA(TSEQ038)       READY, NO UE, EOF, NO BOT
     2563   01 00A61    6AF01241              BAL,R15  GENFAIL
     2564   01 00A62    000008FF A            DATA     2303
     2565   01 00A63    68000A54              B        T1ST2304
     2566   01 00A64    65800A5E              BIR,8    T1ST2307
     2567   01 00A65    22000D1B              LI,R0    DA(TSFB)          SPACE FILE BACKWARD TO BOT
     2568   01 00A66    6AF011C6              BAL,R15  GENIOXEQ
     2569   01 00A67    22006698              LI,R0    BA(TSEQ035)       EOF, BOT, NO UE
     2570   01 00A68    6AF01241              BAL,R15  GENFAIL
     2571   01 00A69    00000900 A            DATA     2304
     2572   01 00A6A    68000A54              B        T1ST2304
     2573   01 00A6B    6AF0187C     T1ST2318 BAL,R15  RWTLP             SET TAPE AT BOT, ALL CASES
     2574   01 00A6C    228FFFEC A            LI,8     -20
     2575   01 00A6D    22000D01     T1ST2314 LI,R0    DA(TW100B)        WRITE 100 BYTES
     2576   01 00A6E    6AF011C6              BAL,R15  GENIOXEQ
     2577   01 00A6F    22006610              LI,R0    BA(TSEQ011)       NO UE, BC=0
     2578   01 00A70    6AF01241              BAL,R15  GENFAIL
     2579   01 00A71    00000901 A            DATA     2305
     2580   01 00A72    68000A6D              B        T1ST2314
     2581   01 00A73    65800A6D              BIR,8    T1ST2314
     2582   01 00A74    22000CFA              LI,R0    DA(TWTM)          WRITE TAPE MARK
     2583   01 00A75    6AF011C6              BAL,R15  GENIOXEQ
     2584   01 00A76    22006638              LI,R0    BA(TSEQ015)       READY, EOF
     2585   01 00A77    6AF01241              BAL,R15  GENFAIL
     2586   01 00A78    00000902 A            DATA     2306
     2587   01 00A79    68000A6B              B        T1ST2318
     2588   01 00A7A    22000D19              LI,R0    DA(SB100)         SPACE RECORD BACKWARD
     2589   01 00A7B    6AF011C6              BAL,R15  GENIOXEQ
     2590   01 00A7C    2200663C              LI,R0    BA(TSEQ016)       READY, UE, EOF
     2591   01 00A7D    6AF01241              BAL,R15  GENFAIL
     2592   01 00A7E    00000903 A            DATA     2307
     2593   01 00A7F    68000A6B              B        T1ST2318
     2594   01 00A80    22000D18              LI,R0    DA(SF100)         SPACE FORWARD
     2595   01 00A81    6AF011C6              BAL,R15  GENIOXEQ
     2596   01 00A82    2200663C              LI,R0    BA(TSEQ016)       READY, UE, EOF
     2597   01 00A83    6AF01241              BAL,R15  GENFAIL
     2598   01 00A84    00000904 A            DATA     2308
     2599   01 00A85    68000A6B              B        T1ST2318
     2600   01 00A86    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2601   01 00A87    680003C9              B        :TIM              GO TO SEQUENCER


     2603                            *                                   TST1,24  TAPE LOOP TEST
     2604                            *                                   ------------------------------------
     2605                            *
     2606                            * REWIND WITH COMMAND CHAIN. WRITE WITH DATA CHAIN 27,000 WORDS LOOP
     2607                            * BACK TO REWIND. THIS SEQUENCE IS REPEATED 10 TIMES IN AN EFFORT
     2608                            * TO CAUSE THE TAPE TO LOOP OUT IN THE VACUUM COLUMNS.
     2609                            *
     2610                            * ERROR DISPLAY (TIO, OSB, TDV STATUS) OCCURS ONLY ON TIMEOUT.
     2611         01 00A88           :T1ST24  EQU      %
     2612   01 00A88    6AF01277              BAL,R15  CLRTE             SUPPRESS DEFAULT TE CHECK
     2613   01 00A89    6AF0187C              BAL,R15  RWTLP             RETURN TAPE TO LOAD POINT
     2614   01 00A8A    2270000A A            LI,R7    10                SET NUMBER OF CYCLES
     2615         01 00A8B           T1ST2401 EQU      %
     2616   01 00A8B    6AF018C6              BAL,R15  CLRARM            SET I/O INTERRUPT
     2617   01 00A8C    22000D2A              LI,R0    DA(TPDMP)         START REWIND, WRITE
     2618   01 00A8D    6AF01EC7              BAL,R15  :IOEXEC
     2619   01 00A8E    22E01388 A            LI,R14   5*1000            5 SECOND DELAY
     2620   01 00A8F    6AF02018              BAL,R15  :DELAY
     2621   01 00A90    68000A96              B        T1ST2403          NORMAL INTERRUPT
     2622   01 00A91    6AF01892              BAL,R15  RESETS            ELSE ISSUE HIO, ETC.
     2623   01 00A92    220066D4              LI,R0    BA(TSEQ0601)      DISPLAY TIO, OSB, AND TDV
     2624   01 00A93    6AF01243              BAL,R15  GENFAILS          STATUS
     2625   01 00A94    00000961 A            DATA     2401              (ERROR ID)
     2626   01 00A95    68000A96              B        %+1               (LOOP EXIT)
     2627         01 00A96           T1ST2403 EQU      %
     2628   01 00A96    64700A8B              BDR,R7   T1ST2401          CONTINUE CYCLING
     2629   01 00A97    6AF0187C              BAL,R15  RWTLP             RETURN TAPE TO LOAD POINT
     2630   01 00A98    680003C9              B        :TIM              RETURN TO SEQUENCER


     2632                            *                                   TST1,25 WRITE, READ BACKWARD DATA
     2633                            *                                   ------------------------------------
     2634                            *
     2635                            * WRITE N RECORDS WITH A FIXED BYTE COUNT. READ N RECORDS BACKWARD AND
     2636                            * VERIFY DATA AND STATUS. READ ANOTHER RECORD BACKWARD AND TEST
     2637                            * BEGINNING OF TAPE STATUS.
     2638   01 00A99    6AF0187C     :T1ST25  BAL,15   RWTLP             REWIND TO LOAD POINT
     2639   01 00A9A    6AF018FB              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     2640   01 00A9B    22AFFF9C A            LI,10    -100
     2641   01 00A9C    22000D01     T1ST2502 LI,R0    DA(TW100B)        WRITE 100 BYTES
     2642   01 00A9D    6AF011C6              BAL,R15  GENIOXEQ
     2643   01 00A9E    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     2644   01 00A9F    6AF01241              BAL,R15  GENFAIL
     2645   01 00AA0    000009C5 A            DATA     2501
     2646   01 00AA1    68000AA3              B        %+2               ERROR LOOP EXIT
     2647   01 00AA2    68000AA6              B        T1ST2505           CONTINUE/NORMAL EXIT
     2648   01 00AA3    22000D27              LI,R0    DA(SPBRAND)       SPACE RECORD BACKWARDS
     2649   01 00AA4    6AF011C6              BAL,R15  GENIOXEQ
     2650   01 00AA5    68000A9C              B        T1ST2502          LOOP ON ERROR
     2651   01 00AA6    65A00A9C     T1ST2505 BIR,10   T1ST2502          WRITE 100 RECORDS AT BOT
     2652   01 00AA7    22F00000 A            LI,15    0
     2653   01 00AA8    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     2654   01 00AA9    22AFFF9C A            LI,10    -100
     2655   01 00AAA    220FFF80 A   T1ST2506 LI,0     -128              SET INTERRUPT DELAY
     2656   01 00AAB    35001B88              STW,0    JAHTC
     2657   01 00AAC    22000D4F              LI,R0    DA(TRB100C)       READ BACKWARDS, IZBC, IUE
     2658   01 00AAD    6AF011C3              BAL,R15  GENIOXEC           CLEAR INPUT BUFFER
     2659   01 00AAE    227F4AC4 A            LI,7     -46396            WAIT FOR CONTROLLER READY
     2660   01 00AAF    CDC01B8C              TIO,12   *:DEVADDR          TEST CONTROLLER STATUS
     2661   01 00AB0    4BD02272              AND,13   =X'06000000'
     2662   01 00AB1    68300AB3              BCR,3    %+2                CONTROLLER READY
     2663   01 00AB2    65700AAF              BIR,7    %-3                TIME OUT TEST
     2664   01 00AB3    6AF0207D              BAL,15   :ERRORT           TEST
     2665   01 00AB4    00006610              DATA     BA(TSEQ011)       READY, NO UE, BC=00
     2666   01 00AB5    68000AB9              B        T1ST2509
     2667   01 00AB6    6AF01254              BAL,R15  GENERR            #2502
     2668   01 00AB7    000009C6 A            DATA     2502              INCORRECT BITS ON TEST
     2669   01 00AB8    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2670   01 00AB9    6AF01F68     T1ST2509 BAL,15   :COMPARE          COMPARE INFORMATION
     2671   01 00ABA    68000ABE              B        T1ST2510
     2672   01 00ABB    6AF01254              BAL,R15  GENERR            #2503
     2673   01 00ABC    000009C7 A            DATA     2503              INCORRECT INFORMATION
     2674   01 00ABD    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2675   01 00ABE    65A00AAA     T1ST2510 BIR,10   T1ST2506          READ 100 RECORDS BACKWARD
     2676   01 00ABF    220FFFFF A            LI,0     -1                RESET INTERRUPT DELAY
     2677   01 00AC0    35001B88              STW,0    JAHTC
     2678   01 00AC1    32F01BBC              LW,15    SPFLAG
     2679   01 00AC2    68300AC7              BEZ      T1ST2512          NO ERROR TALLY
     2680   01 00AC3    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2681   01 00AC4    2E000000 A            WAIT
     2682   01 00AC5    68000A99              B        :T1ST25           GO TO START OF TEST
     2683   01 00AC6    68000ACD              B        T1ST2511
     2684   01 00AC7    22000D4E     T1ST2512 LI,R0    DA(TRB100B)       READ BACKWARDS AT BOT
     2685   01 00AC8    6AF011C6              BAL,R15  GENIOXEQ
     2686   01 00AC9    22006634              LI,R0    BA(TSEQ014)       UE, BOT, EOF
     2687   01 00ACA    6AF01241              BAL,R15  GENFAIL
     2688   01 00ACB    000009C8 A            DATA     2504
     2689   01 00ACC    68000A99              B        :T1ST25
     2690   01 00ACD    6AF018CE     T1ST2511 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2691   01 00ACE    680003C9              B        :TIM              GO TO SEQUENCER


     2693                            *                                   TST1,26 INCORRECT LENGTH TEST
     2694                            *                                   ------------------------------------
     2695                            *
     2696                            * WRITE A RECORD AND READ IN BOTH DIRECTIONS BY USING BYTE COUNT-1
     2697                            * BYTE COUNT +1 FOR THE READ ORDERS. VERIFY INCORRECT LENGTH AND ALL
     2698                            * OTHER STATUS INDICATIONS. SUPPRESS INCORRECT LENGTH FEATURE IN THE
     2699                            * IOP WILL ALSO BE TESTED.
     2700         01 00ACF           :T1ST26  EQU      %
     2701   01 00ACF    22F00000 A            LI,15    0                 CLEAR ERROR FLAG
     2702   01 00AD0    35F01BBC              STW,15   SPFLAG             SMEAR PATTERN AND
     2703   01 00AD1    6AF018FB              BAL,15   SMEARPTR            SET UP COMPARE
     2704   01 00AD2    22000D01              LI,R0    DA(TW100B)        WRITE 100 BYTES
     2705   01 00AD3    6AF011C6              BAL,R15  GENIOXEQ
     2706   01 00AD4    22006610              LI,R0    BA(TSEQ011)       READY, BC=0, NO UE
     2707   01 00AD5    6AF01241              BAL,R15  GENFAIL
     2708   01 00AD6    00000A29 A            DATA     2601
     2709   01 00AD7    68000ACF              B        :T1ST26
     2710   01 00AD8    22000D4E              LI,R0    DA(TRB100B)       READ BACKWARDS 100 BYTES
     2711   01 00AD9    6AF011C6              BAL,R15  GENIOXEQ
     2712   01 00ADA    6AF0207D              BAL,15   :ERRORT           BC=0, READY, NO UE, NO IL
     2713   01 00ADB    00006604              DATA     BA(TSEQ010)
     2714   01 00ADC    68000AE0              B        T1ST2607
     2715   01 00ADD    6AF01254              BAL,R15  GENERR            #2602
     2716   01 00ADE    00000A2A A            DATA     2602              INCORRECT BITS ON TEST
     2717   01 00ADF    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2718   01 00AE0    22000D4D     T1ST2607 LI,R0    DA(TRF100B)       READ 100 BYTES
     2719   01 00AE1    6AF011C6              BAL,R15  GENIOXEQ
     2720   01 00AE2    6AF0207D              BAL,15   :ERRORT           BC=0, READY, NO UE, NO IL
     2721   01 00AE3    00006604              DATA     BA(TSEQ010)
     2722   01 00AE4    68000AE8              B        T1ST2610
     2723   01 00AE5    6AF01254              BAL,R15  GENERR            #2603
     2724   01 00AE6    00000A2B A            DATA     2603              INCORRECT BITS ON TEST
     2725   01 00AE7    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2726   01 00AE8    22000D50     T1ST2610 LI,R0    DA(RB099B)        READ BACKWARDS 99 BYTES
     2727   01 00AE9    6AF011C6              BAL,R15  GENIOXEQ
     2728   01 00AEA    6AF0207D              BAL,15   :ERRORT           BC=0, READY, UE, IL
     2729   01 00AEB    00006624              DATA     BA(TSEQ012)
     2730   01 00AEC    68000AF0              B        T1ST2613
     2731   01 00AED    6AF01254              BAL,R15  GENERR            #2604
     2732   01 00AEE    00000A2C A            DATA     2604              INCORRECT BITS ON TEST
     2733   01 00AEF    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2734   01 00AF0    22000D51     T1ST2613 LI,R0    DA(RF099B)        READ 99 BYTES
     2735   01 00AF1    6AF011C6              BAL,R15  GENIOXEQ
     2736   01 00AF2    6AF0207D              BAL,15   :ERRORT           TEST
     2737   01 00AF3    00006624              DATA     BA(TSEQ012)       BC=0, INC LENGTH, UE, READY
     2738   01 00AF4    68000AF8              B        T1ST2616
     2739   01 00AF5    6AF01254              BAL,R15  GENERR            #2605
     2740   01 00AF6    00000A2D A            DATA     2605              INCORRECT BITS ON TEST
     2741   01 00AF7    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2742   01 00AF8    22000D54     T1ST2616 LI,R0    DA(RB101BS)       READ BACKWARDS 101 BYTES (SIL)
     2743   01 00AF9    6AF011C6              BAL,R15  GENIOXEQ
     2744   01 00AFA    6AF0207D              BAL,15   :ERRORT           TEST
     2745   01 00AFB    00006640              DATA     BA(TSEQ017)       BC=1, NO UE, INC LENGTH SET
     2746   01 00AFC    68000B00              B        T1ST2619
     2747   01 00AFD    6AF01254              BAL,R15  GENERR            #2606
     2748   01 00AFE    00000A2E A            DATA     2606              INCORRECT BITS ON TEST
     2749   01 00AFF    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2750   01 00B00    22000D53     T1ST2619 LI,R0    DA(RF101B)        READ 101 BYTES
     2751   01 00B01    6AF011C6              BAL,R15  GENIOXEQ
     2752   01 00B02    6AF0207D              BAL,15   :ERRORT           TEST
     2753   01 00B03    00006640              DATA     BA(TSEQ017)       BC=1, NO UE, INC LENGTH SET
     2754   01 00B04    68000B08              B        T1ST2622
     2755   01 00B05    6AF01254              BAL,R15  GENERR            #2607
     2756   01 00B06    00000A2F A            DATA     2607              INCORRECT BITS ON TEST
     2757   01 00B07    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2758   01 00B08    22000D56     T1ST2622 LI,R0    DA(RB099BS)       READ BACKWARDS 99 BYTES (SIL)
     2759   01 00B09    6AF011C6              BAL,R15  GENIOXEQ
     2760   01 00B0A    6AF0207D              BAL,15   :ERRORT           TEST
     2761   01 00B0B    0000664C              DATA     BA(TSEQ019)       BC =0, NO UE, INC LENGTH
     2762   01 00B0C    68000B10              B        T1ST2625
     2763   01 00B0D    6AF01254              BAL,R15  GENERR            #2608
     2764   01 00B0E    00000A30 A            DATA     2608              INCORRECT BITS ON TEST
     2765   01 00B0F    33101BBC              MTW,1    SPFLAG            ERROR +1
     2766   01 00B10    22000D55     T1ST2625 LI,R0    DA(RF099BS)       READ FORWARDS 99 BYTES (SIL)
     2767   01 00B11    6AF011C6              BAL,R15  GENIOXEQ
     2768   01 00B12    6AF0207D              BAL,15   :ERRORT           TEST
     2769   01 00B13    0000664C              DATA     BA(TSEQ019)       READY,NO UE, BC=00, INC LENGTH
     2770   01 00B14    68000B18              B        T1ST2624
     2771   01 00B15    6AF01254              BAL,R15  GENERR            #2609
     2772   01 00B16    00000A31 A            DATA     2609              INCORRECT BITS ON TEST
     2773   01 00B17    33101BBC              MTW,1    SPFLAG            ERROR +1
     2774   01 00B18    32F01BBC     T1ST2624 LW,15    SPFLAG
     2775   01 00B19    68300B1D              BEZ      T1ST2628          ERROR FLAG =0
     2776   01 00B1A    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2777   01 00B1B    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2778   01 00B1C    68000ACF              B        :T1ST26
     2779   01 00B1D    6AF018CE     T1ST2628 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2780   01 00B1E    680003C9              B        :TIM              GO TO SEQUENCER


     2782                            *                                   TST1,27 DATA CHAINING TEST
     2783                            *                                   ------------------------------------
     2784                            *
     2785                            * TEST THE DATA CHAINING CAPABILITY OF THE IOP USING WRITE AND READ
     2786                            * ORDERS.  TAPE IS NOT REWOUND BEFORE OR AFTER THIS TEST.
     2787   01 00B1F    22F00000 A   :T1ST27  LI,15    0
     2788   01 00B20    35F01BBC              STW,15   SPFLAG            RESET FLAG
     2789   01 00B21    6AF018FB              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     2790   01 00B22    22000D05              LI,R0    DA(TWDC02)        WRITE 2 BYTES, DC 98 BYTES
     2791   01 00B23    6AF011C6              BAL,R15  GENIOXEQ
     2792   01 00B24    6AF0207D              BAL,15   :ERRORT           TEST
     2793   01 00B25    00006610              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     2794   01 00B26    68000B2A              B        T1ST2704
     2795   01 00B27    6AF0123F              ERROR    2701,:T1ST27      INCORRECT STATUS
            01 00B28    00000A8D A
            01 00B29    68000B1F
     2796   01 00B2A    22000D67     T1ST2704 LI,R0    DA(TRBDC06)       READ BACKWARDS 6, DC 94
     2797   01 00B2B    6AF011C3              BAL,R15  GENIOXEC           CLEAR INPUT BUFFER
     2798   01 00B2C    6AF0207D              BAL,R15  :ERRORT
     2799   01 00B2D    00006604              DATA     BA(TSEQ010)       READY,NO UE, NO INC LENGTH BC=00
     2800   01 00B2E    68000B32              B        T1ST2707
     2801   01 00B2F    6AF01254              BAL,R15  GENERR            #2702
     2802   01 00B30    00000A8E A            DATA     2702              INCORRECT BITS ON TEST
     2803   01 00B31    33101BBC              MTW,1    SPFLAG            ERROR +1
     2804   01 00B32    6AF01F68     T1ST2707 BAL,15   :COMPARE          COMPARE INFORMATION
     2805   01 00B33    68000B37              B        T1ST2708
     2806   01 00B34    6AF01254              BAL,R15  GENERR            #2703
     2807   01 00B35    00000A8F A            DATA     2703              INCORRECT INFORMATION
     2808   01 00B36    33101BBC              MTW,1    SPFLAG            ERROR +1
     2809   01 00B37    22000D69     T1ST2708 LI,R0    DA(TRFDC48)       READ FORWARD 48, DC 52
     2810   01 00B38    6AF011C3              BAL,R15  GENIOXEC           CLEAR INPUT BUFFER
     2811   01 00B39    6AF0207D              BAL,R15  :ERRORT
     2812   01 00B3A    00006604              DATA     BA(TSEQ010)       READY,NO UE, NO INC. LENGTH, BC=00
     2813   01 00B3B    68000B3F              B        T1ST2710
     2814   01 00B3C    6AF01254              BAL,R15  GENERR            #2704
     2815   01 00B3D    00000A90 A            DATA     2704              INCORRECT BITS ON TEST
     2816   01 00B3E    33101BBC              MTW,1    SPFLAG            ERROR +1
     2817   01 00B3F    6AF01F68     T1ST2710 BAL,15   :COMPARE          COMPARE INFORMATION
     2818   01 00B40    68000B44              B        T1ST2710+5
     2819   01 00B41    6AF01254              BAL,R15  GENERR            #2705
     2820   01 00B42    00000A91 A            DATA     2705              INCORRECT INFORMATION
     2821   01 00B43    33101BBC              MTW,1    SPFLAG            ERROR +1
     2822   01 00B44    32F01BBC              LW,15    SPFLAG
     2823   01 00B45    68300B49              BEZ      T1ST2711          ERROR FLAG =0
     2824   01 00B46    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2825   01 00B47    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2826   01 00B48    68000B1F              B        :T1ST27           REPEAT TEST
     2827   01 00B49    6AF018CE     T1ST2711 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     2828   01 00B4A    680003C9              B        :TIM              GO TO SEQUENCER


     2830                            *                                   TST1,28 BYTE BOUNDRY TEST
     2831                            *                                   ------------------------------------
     2832                            *
     2833                            * THIS TEST PERFORMS READ AND WRITE OPERATIONS FROM ALL POSSIBLE
     2834                            * MEMORY BOUNDARIES.
     2835   01 00B4B    6AF018FB     :T1ST28  BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     2836   01 00B4C    22808A80              LI,8     BA(BUFF1)         BC=4, WORD ADDRESS CHANGES
     2837   01 00B4D    32701A0E              LW,7     WFBAD
     2838   01 00B4E    4B702269              AND,7    =X'FF000000'
     2839   01 00B4F    30700008 A            AW,7     8
     2840   01 00B50    35701A0E              STW,7    WFBAD             INITIALIZE BYTE ADDRESS
     2841   01 00B51    32702256              LW,7     BUFF2             OBSERVED PATTERN
     2842   01 00B52    25700002 A            SLS,7    2
     2843   01 00B53    32801AB0              LW,8     RFBAD
     2844   01 00B54    4B802269              AND,8    =X'FF000000'
     2845   01 00B55    30800007 A            AW,8     7
     2846   01 00B56    35801AB0              STW,8    RFBAD
     2847   01 00B57    32801AAE              LW,8     RBBAD
     2848   01 00B58    4B802269              AND,8    =X'FF000000'
     2849   01 00B59    30800007 A            AW,8     7
     2850   01 00B5A    20800003 A            AI,8     3
     2851   01 00B5B    35801AAE              STW,8    RBBAD
     2852   01 00B5C    22500000 A            LI,5     0
     2853   01 00B5D    35501B9B              STW,5    NOREAD            RESET READ FLAG
     2854   01 00B5E    35501FD1              STW,5    :COMFLAG          PRINTOUT FLAG
     2855   01 00B5F    32802275              LW,8     =X'12345678'      SET UP SPECIAL PATTERN FOR TEST
     2856   01 00B60    32902276              LW,9     =X'9ABCDEF0'
     2857   01 00B61    358022A0              STW,8    BUFF1
     2858   01 00B62    359022A1              STW,9    BUFF1+1
     2859   01 00B63    32601B5A              LW,6     SAVMODEL
     2860   01 00B64    21601C9A A            CI,6     7322
     2861   01 00B65    68100B70              BGE      T1ST2801-3        NOT POTTER
     2862                            *  MODIFY IOCD'S FOR 8 BYTE OPERATION FOR POTTER
     2863   01 00B66    2260000B A            LI,6     11
     2864   01 00B67    55621A0F              STH,6    WFBAD+1,1
     2865   01 00B68    55621AB1              STH,6    RFBAD+1,1
     2866   01 00B69    55621AAF              STH,6    RBBAD+1,1
     2867   01 00B6A    33701AAE              MTW,7    RBBAD
     2868   01 00B6B    02200020 A            LCI      2                 PROPERLY INITIALIZE
     2869   01 00B6C    2B8022A2              STM,8    BUFF1+2           THE REST OF THE BUFFERS
     2870   01 00B6D    AB842256              STM,8    *BUFF2,2
     2871   01 00B6E    22500004 A            LI,5     4
     2872   01 00B6F    68000B71              B        %+2
     2873   01 00B70    22500002 A            LI,5     2
     2874   01 00B71    35501FCE              STW,5    :COMWCNT          SET UP COMPARE
     2875   01 00B72    226FFFFC A            LI,6     -4
     2876   01 00B73    22F00000 A   T1ST2801 LI,R15   0                 CLEAR ERROR FLAG
     2877   01 00B74    35F01BBC              STW,R15  SPFLAG
     2878   01 00B75    22000D07              LI,R0    DA(WFBAD)         WRITE ALL POSSIBLE BOUNDARIES
     2879   01 00B76    6AF011C6              BAL,R15  GENIOXEQ
     2880   01 00B77    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     2881   01 00B78    6AF01241              BAL,R15  GENFAIL
     2882   01 00B79    00000AF1 A            DATA     2801
     2883   01 00B7A    68000B73              B        T1ST2801
     2884   01 00B7B    95802256              STD,R8   *BUFF2            INITIALIZE INPUT BUFFER
     2885   01 00B7C    22000D57              LI,R0    DA(RBBAD)          READ INTO ALL POSSIBLE
     2886   01 00B7D    6AF011C6              BAL,R15  GENIOXEQ            BOUNDARIES
     2887   01 00B7E    6AF0207D              BAL,15   :ERRORT           TEST
     2888   01 00B7F    00006604              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE, BC=00
     2889   01 00B80    68000B84              B        T1ST2807
     2890   01 00B81    6AF01254              BAL,R15  GENERR            #2802
     2891   01 00B82    00000AF2 A            DATA     2802              INCORRECT BITS ON TEST
     2892   01 00B83    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2893   01 00B84    6AF01F68     T1ST2807 BAL,15   :COMPARE          COMPARE INFORMATION
     2894   01 00B85    68000B89              B        T1ST2808
     2895   01 00B86    6AF01254              BAL,R15  GENERR            #2803
     2896   01 00B87    00000AF3 A            DATA     2803              INCORRECT INFORMATION
     2897   01 00B88    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2898   01 00B89    95802256     T1ST2808 STD,8    *BUFF2
     2899   01 00B8A    22000D58              LI,R0    DA(RFBAD)         READ INTO ALL POSSIBLE
     2900   01 00B8B    6AF011C6              BAL,R15  GENIOXEQ           BOUNDARIES
     2901   01 00B8C    6AF0207D              BAL,15   :ERRORT           TEST
     2902   01 00B8D    00006604              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE, BC=00
     2903   01 00B8E    68000B92              B        T1ST2811
     2904   01 00B8F    6AF01254              BAL,R15  GENERR            #2804
     2905   01 00B90    00000AF4 A            DATA     2804              INCORRECT BITS ON TEST
     2906   01 00B91    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2907   01 00B92    6AF01F68     T1ST2811 BAL,15   :COMPARE          COMPARE
     2908   01 00B93    68000B97              B        T1ST2812-5        GO CHECK ERROR FLAG
     2909   01 00B94    6AF01254              BAL,R15  GENERR            #2805
     2910   01 00B95    00000AF5 A            DATA     2805              INCORRECT INFORMATION
     2911   01 00B96    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2912   01 00B97    32F01BBC              LW,15    SPFLAG
     2913   01 00B98    68300B9C              BEZ      T1ST2812          NO ERRORS
     2914   01 00B99    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2915   01 00B9A    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2916   01 00B9B    68000B73              B        T1ST2801          LOOP ON ERROR
     2917   01 00B9C    33101A0E     T1ST2812 MTW,1    WFBAD             WA= WA+1 BYTE, ETC
     2918   01 00B9D    33101AAE              MTW,1    RBBAD
     2919   01 00B9E    33101AB0              MTW,1    RFBAD
     2920   01 00B9F    65600B73              BIR,6    T1ST2801          DO 4 TIMES
     2921                            *  RESTORE IOCD'S FOR 4 BYTE OPERATION
     2922   01 00BA0    22800004 A            LI,8     4
     2923   01 00BA1    55821A0F              STH,8    WFBAD+1,1
     2924   01 00BA2    55821AB1              STH,8    RFBAD+1,1
     2925   01 00BA3    55821AAF              STH,8    RBBAD+1,1
     2926   01 00BA4    6AF018FB              BAL,15   SMEARPTR          SMEAR AND SET UP 100 BYTE COMPARE
     2927                            * WORD ADDRESS, BYTE COUNT CHANGES
     2928                            * START WITH 1 WORD IN THIS SECTION
     2929   01 00BA5    32801AB2              LW,8     RBCC              SET UP BYTE COUNT FOR READ BACKWARD
     2930   01 00BA6    4B802269              AND,8    =X'FF000000'
     2931   01 00BA7    32902256              LW,9     BUFF2
     2932   01 00BA8    25900002 A            SLS,9    2
     2933   01 00BA9    20900003 A            AI,9     3
     2934   01 00BAA    30900008 A            AW,9     8
     2935   01 00BAB    35901AB2              STW,9    RBCC
     2936   01 00BAC    22400004 A            LI,4     4                 START WITH 1 WORD
     2937   01 00BAD    55421AB3              STH,4    RBCC+1,1          INITIALIZE BYTE COUNT
     2938   01 00BAE    55421A11              STH,4    WBCC+1,1
     2939   01 00BAF    55421AB5              STH,4    RFCC+1,1
     2940   01 00BB0    35101FCE              STW,1    :COMWCNT          COMPARE 1 WORD
     2941   01 00BB1    22F00000 A   T1ST2813 LI,15    0
     2942   01 00BB2    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     2943   01 00BB3    22000D08              LI,R0    DA(WBCC)          WRITE
     2944   01 00BB4    6AF011C6              BAL,R15  GENIOXEQ
     2945   01 00BB5    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     2946   01 00BB6    6AF01241              BAL,R15  GENFAIL
     2947   01 00BB7    00000AF6 A            DATA     2806
     2948   01 00BB8    68000BB1              B        T1ST2813
     2949   01 00BB9    31101B9B              CW,1     NOREAD            RECORD TOO LARGE TO READ
     2950   01 00BBA    68300BDA              BEZ      T1ST2828          BYPASS READS
     2951   01 00BBB    22000D59              LI,R0    DA(RBCC)          READ BACKWARDS
     2952   01 00BBC    6AF011C3              BAL,R15  GENIOXEC           CLEAR BUFFER BEFORE READ
     2953   01 00BBD    6AF0207D              BAL,15   :ERRORT           TEST
     2954   01 00BBE    00006604              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE, BC=00
     2955   01 00BBF    68000BC3              B        T1ST2819
     2956   01 00BC0    6AF01254              BAL,R15  GENERR            #2807
     2957   01 00BC1    00000AF7 A            DATA     2807              INCORRECT BITS ON TEST
     2958   01 00BC2    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2959   01 00BC3    6AF01F68     T1ST2819 BAL,15   :COMPARE          COMPARE INFORMATION
     2960   01 00BC4    68000BC8              B        T1ST2822
     2961   01 00BC5    6AF01254              BAL,R15  GENERR            2808
     2962   01 00BC6    00000AF8 A            DATA     2808              INCORRECT INFORMATION ON READ BKW.
     2963   01 00BC7    33101BBC              MTW,1    SPFLAG            ERROR +1
     2964   01 00BC8    22000D5A     T1ST2822 LI,R0    DA(RFCC)          READ FORWARDS
     2965   01 00BC9    6AF011C3              BAL,R15  GENIOXEC           CLEAR BUFFER BEFORE READ
     2966   01 00BCA    6AF0207D              BAL,15   :ERRORT           TEST
     2967   01 00BCB    00006604              DATA     BA(TSEQ010)       NO INC LENGTH, READY, NO UE, BC=00
     2968   01 00BCC    68000BD0              B        T1ST2825
     2969   01 00BCD    6AF01254              BAL,R15  GENERR            2809
     2970   01 00BCE    00000AF9 A            DATA     2809              INCORRECT BITS SET ON TEST
     2971   01 00BCF    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2972   01 00BD0    6AF01F68     T1ST2825 BAL,15   :COMPARE          COMPARE INFORMATION
     2973   01 00BD1    68000BD5              B        T1ST2828-5
     2974   01 00BD2    6AF01254              BAL,R15  GENERR            2810
     2975   01 00BD3    00000AFA A            DATA     2810              INCORRECT INFO ON READ FWD.
     2976   01 00BD4    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     2977   01 00BD5    32F01BBC              LW,15    SPFLAG
     2978   01 00BD6    68300BDA              BEZ      T1ST2828          NO ERROR SET
     2979   01 00BD7    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     2980   01 00BD8    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     2981   01 00BD9    68000BB1              B        T1ST2813          LOOP ON ERROR
     2982   01 00BDA    32701A11     T1ST2828 LW,7     WBCC+1
     2983   01 00BDB    4B702277              AND,7    =X'000FFFFF'      OLD BYTE COUNT
     2984   01 00BDC    25700001 A            SLS,7    1                 SHIFT I BIT TO LEFT
     2985   01 00BDD    31701B97              CW,7     MAXBYT            RECORD GREATER THAN I/O AREA
     2986   01 00BDE    69200BF0              BCS,2    T1ST2830
     2987   01 00BDF    31701B99              CW,7     MAXREADB          RECORD TOO LARGE TO READ
     2988   01 00BE0    69100BE2              BCS,1    T1ST2829
     2989   01 00BE1    35101B9B              STW,1    NOREAD
     2990   01 00BE2    55721A11     T1ST2829 STH,7    WBCC+1,1          STORE NEW BYTE COUNT
     2991   01 00BE3    55721AB3              STH,7    RBCC+1,1
     2992   01 00BE4    55721AB5              STH,7    RFCC+1,1
     2993   01 00BE5    32801AB2              LW,8     RBCC              SET UP BYTE COUNT FOR READ BACKWARD
     2994   01 00BE6    4B802269              AND,8    =X'FF000000'
     2995   01 00BE7    32902256              LW,9     BUFF2
     2996   01 00BE8    25900002 A            SLS,9    2
     2997   01 00BE9    30900008 A            AW,9     8
     2998   01 00BEA    30900007 A            AW,9     7
     2999   01 00BEB    209FFFFF A            AI,9     -1
     3000   01 00BEC    35901AB2              STW,9    RBCC
     3001   01 00BED    2570007E A            SLS,7    -2                DEVIDE BY 4
     3002   01 00BEE    35701FCE              STW,7    :COMWCNT          WORD COUNT FOR COMPARE
     3003   01 00BEF    68000BB1              B        T1ST2813
     3004   01 00BF0    6AF018CE     T1ST2830 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3005   01 00BF1    680003C9              B        :TIM              GO TO SEQUENCER


     3007                            *                                   TST1,29 DATA TEST, NOISE PATTERNS
     3008                            *                                           AND BIT CROWDING
     3009                            *                                   ------------------------------------
     3010                            *
     3011                            * THIS TEST WILL WRITE AND READ VARIABLE DATA PATTERNS. THE SEQUENCE
     3012                            * WILL ALWAYS BE WRITE, READ REVERSE AND READ FORWARD. THE RECORD
     3013                            * SIZE WILL BE VARIED AFTER EACH RECORD. NOISE SENSITIVE AND BIT
     3014                            * CROWDING DATA PATTERN WILL BE USED. WRITE AND READ RETRIES WILL BE
     3015                            * ALLOWED IF SENSE SWITCH 1 IS SET.  STARTING RECORD LENGTH IS 20 BYTES,
     3016                            * AND WILL CONTINUE IN STEPS OF 40 BYTES UNTIL 4096.
     3017   01 00BF2    6AF0187C     :T1ST29  BAL,15   RWTLP             REWIND TO LOAD POINT
     3018   01 00BF3    22500000 A            LI,5     0
     3019   01 00BF4    35501FD1              STW,5    :COMFLAG          PRINTOUT ERRORS
     3020   01 00BF5    227022A0              LI,7     WA(BUFF1)
     3021   01 00BF6    35701FCF              STW,7    :COMBFRA          BUFFER EXPECTED
     3022   01 00BF7    32702256              LW,7     BUFF2
     3023   01 00BF8    35701FD0              STW,7    :COMBFRB          BUFFER OBSERVED
     3024   01 00BF9    22700005 A            LI,7     5
     3025   01 00BFA    35701FCE              STW,7    :COMWCNT          NUMBER OF WORDS TO COMPARE = 5
     3026   01 00BFB    22600000 A            LI,6     0
     3027   01 00BFC    22C01BAA              LI,12    PT00              SET UP FIRST TRK SATURATION PTRN
     3028   01 00BFD    55C20BFE              STH,12   T1ST2901,1
     3029   01 00BFE    32E01BAA     T1ST2901 LW,14    PT00              PATTERNS 00 TO 80
     3030   01 00BFF    22DFFFF6 A            LI,13    -10               10 WORDS EACH TRACK
     3031   01 00C00    35EC22A0              STW,14   BUFF1,6           STORE PATTERN
     3032   01 00C01    33100006 A            MTW,1    6
     3033   01 00C02    65D00C00              BIR,13   %-2
     3034   01 00C03    33100BFE              MTW,1    T1ST2901          CHANGE PATTERN
     3035   01 00C04    22801BB3              LI,8     PT80+1            LAST PATTERN DONE
     3036   01 00C05    51820BFE              CH,8     T1ST2901,1
     3037   01 00C06    69200BFE              BG       T1ST2901
     3038   01 00C07    3A501B9A              LCW,5    MAXREAD           MAXIMUM RECORD SIZE
     3039   01 00C08    32E02278              LW,14    =X'51F99F15'      PATTERN
     3040   01 00C09    35EC22A0              STW,14   BUFF1,6           STORE WORD
     3041   01 00C0A    25E00204 A            SCS,14   4                 SHIFT CIRCULAR
     3042   01 00C0B    33100006 A            MTW,1    6
     3043   01 00C0C    65500C09              BIR,5    %-3               SMEAR TO MAXIMUM I/O AREA
     3044   01 00C0D    22500014 A            LI,5     X'14'             20 BYTES
     3045   01 00C0E    55521A13              STH,5    TWNP+1,1
     3046   01 00C0F    55521AB7              STH,5    RBNP+1,1
     3047   01 00C10    55521AB9              STH,5    RFNP+1,1
     3048   01 00C11    32601AB6              LW,6     RBNP              RESTORE READ BACKWARD BA
     3049   01 00C12    4B602269              AND,6    =X'FF000000'
     3050   01 00C13    32802256              LW,8     BUFF2
     3051   01 00C14    25800002 A            SLS,8    2
     3052   01 00C15    30600008 A            AW,6     8
     3053   01 00C16    20600013 A            AI,6     X'13'
     3054   01 00C17    35601AB6              STW,6    RBNP
     3055   01 00C18    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     3056   01 00C19    22000D09     T1ST2902 LI,R0    DA(TWNP)          WRITE SPECIAL PATTERN
     3057   01 00C1A    6AF011C6              BAL,R15  GENIOXEQ
     3058   01 00C1B    CEA01B8C              TDV,10   *:DEVADDR         TDV FOR EOT TEST
     3059   01 00C1C    31B02279              CW,11    =X'02000000'
     3060   01 00C1D    69400C72              BCS,4    T1ST2914
     3061   01 00C1E    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     3062   01 00C1F    6AF01241              BAL,R15  GENFAIL
     3063   01 00C20    00000B55 A            DATA     2901
     3064   01 00C21    68000C23              B        %+2               ERROR LOOP EXIT
     3065   01 00C22    68000C2B              B        T1ST2905-1         CONTINUE/NORMAL EXIT
     3066   01 00C23    22000D27              LI,R0    DA(SPBRAND)       SPACE BACKWARDS
     3067   01 00C24    6AF011C6              BAL,R15  GENIOXEQ
     3068   01 00C25    33100009 A            MTW,1    9                 TALLY +1
     3069   01 00C26    21900005 A            CI,9     5                 TALLY =5
     3070   01 00C27    69100C19              BL       T1ST2902
     3071   01 00C28    22000CE9              LI,R0    DA(TSE1)          SET ERASE
     3072   01 00C29    6AF011C6              BAL,R15  GENIOXEQ
     3073   01 00C2A    68000C18              B        T1ST2902-1        GO RETRY AFTER SET ERASE
     3074   01 00C2B    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     3075   01 00C2C    22F00000 A   T1ST2905 LI,15    0
     3076   01 00C2D    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     3077   01 00C2E    22000D5B              LI,R0    DA(RBNP)          READ BACKWARDS
     3078   01 00C2F    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3079   01 00C30    6AF0207D              BAL,15   :ERRORT           TEST
     3080   01 00C31    00006604              DATA     BA(TSEQ010)       NO UE, BC=O0,READY,NO INC LENGTH
     3081   01 00C32    68000C36              B        T1ST2908
     3082   01 00C33    6AF01254              BAL,R15  GENERR            #2902
     3083   01 00C34    00000B56 A            DATA     2902              INCORRECT BITS ON TEST
     3084   01 00C35    33101BBC              MTW,1    SPFLAG            ERROR +1
     3085   01 00C36    6AF01F68     T1ST2908 BAL,15   :COMPARE          COMPARE INFORMATION
     3086   01 00C37    68000C3B              B        T1ST2908+5        GO TO ERROR CHECK
     3087   01 00C38    6AF01254              BAL,R15  GENERR            #2903
     3088   01 00C39    00000B57 A            DATA     2903              INCORRECT INFORMATION
     3089   01 00C3A    33101BBC              MTW,1    SPFLAG            ERROR +1
     3090   01 00C3B    32F01BBC              LW,15    SPFLAG
     3091   01 00C3C    68300C47              BE       T1ST2909-1
     3092   01 00C3D    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3093   01 00C3E    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3094   01 00C3F    68000C41              B        %+2               LOOP ON ERROR
     3095   01 00C40    68000C47              B        T1ST2909-1        GO TO NEXT SIZE RECORD
     3096                            * READ BACKWARD RETRY
     3097   01 00C41    33100009 A            MTW,1    9                 TALLY +1
     3098   01 00C42    21900006 A            CI,9     6
     3099   01 00C43    68300C63              BE       T1ST2913          GO TO NEXT SIZE RECORD
     3100   01 00C44    22000D28              LI,R0    DA(SPFRAND)       SPACE FORWARD
     3101   01 00C45    6AF011C6              BAL,R15  GENIOXEQ
     3102   01 00C46    68000C2C              B        T1ST2905          RETRY READ
     3103   01 00C47    22900000 A            LI,9     0                 CLEAR RETRY TALLY
     3104   01 00C48    22F00000 A   T1ST2909 LI,15    0
     3105   01 00C49    35F01BBC              STW,15   SPFLAG            RESET FLAG
     3106   01 00C4A    22000D5C              LI,R0    DA(RFNP)          READ FORWARDS
     3107   01 00C4B    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3108   01 00C4C    6AF0207D              BAL,15   :ERRORT           TEST
     3109   01 00C4D    00006604              DATA     BA(TSEQ010)       NO UE, BC=00,READY, NO INC LENGHT
     3110   01 00C4E    68000C52              B        T1ST2912
     3111   01 00C4F    6AF01254              BAL,R15  GENERR            #2904
     3112   01 00C50    00000B58 A            DATA     2904              INCORRECT BITS ON TEST
     3113   01 00C51    33101BBC              MTW,1    SPFLAG            ERROR +1
     3114   01 00C52    6AF01F68     T1ST2912 BAL,15   :COMPARE          COMPARE INFORMATION
     3115   01 00C53    68000C57              B        T1ST2912+5
     3116   01 00C54    6AF01254              BAL,R15  GENERR            #2905
     3117   01 00C55    00000B59 A            DATA     2905              INCORRECT INFORMATION
     3118   01 00C56    33101BBC              MTW,1    SPFLAG            ERROR +1
     3119   01 00C57    32F01BBC              LW,15    SPFLAG
     3120   01 00C58    68300C63              BEZ      T1ST2913          NO ERRORS
     3121   01 00C59    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3122   01 00C5A    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3123   01 00C5B    68000C5D              B        %+2               LOOP ON ERROR
     3124   01 00C5C    68000C63              B        T1ST2913          GO TO NEXT SIZE RECORD
     3125                            * READ FORWARD RETRY
     3126   01 00C5D    33100009 A            MTW,1    9                 TALLYH61
     3127   01 00C5E    21900006 A            CI,9     6
     3128   01 00C5F    68300C63              BE       T1ST2913          GO TO NEXT SIZE RECORD
     3129   01 00C60    22000D27              LI,R0    DA(SPBRAND)       SPACE BACKWARD
     3130   01 00C61    6AF011C6              BAL,R15  GENIOXEQ
     3131   01 00C62    68000C48              B        T1ST2909          RETRY READ
     3132   01 00C63    32701FCE     T1ST2913 LW,7     :COMWCNT          INCREMENT RECORD SIZE
     3133   01 00C64    2070000A A            AI,7     10                10 WORDS
     3134   01 00C65    35701FCE              STW,7    :COMWCNT
     3135   01 00C66    52721A13              LH,7     TWNP+1,1
     3136   01 00C67    20700028 A            AI,7     40                40 BYTE INCREMENT
     3137   01 00C68    55721A13              STH,7    TWNP+1,1
     3138   01 00C69    55721AB7              STH,7    RBNP+1,1
     3139   01 00C6A    55721AB9              STH,7    RFNP+1,1
     3140   01 00C6B    32801AB6              LW,8     RBNP
     3141   01 00C6C    20800028 A            AI,8     40
     3142   01 00C6D    35801AB6              STW,8    RBNP              SET UP READ BACKWARD
     3143   01 00C6E    21701000 A            CI,7     4096              MAXIMUM RECORD SIZE
     3144   01 00C6F    69200C72              BCS,2    T1ST2914
     3145   01 00C70    31701B99              CW,7     MAXREADB          RECORD TOO LARGE TO READ
     3146   01 00C71    69100C18              BCS,1    T1ST2902-1        BRANCH IF LESS THAN MAXIMUM BYTES
     3147   01 00C72    6AF0187C     T1ST2914 BAL,15   RWTLP             REWIND TO LOAD POINT
     3148   01 00C73    680003C9              B        :TIM              GO TO SEQUENCER


     3150                            *                                   TST1,30 RATE ERROR DETECTION
     3151                            *                                   ----------------------------
     3152                            *
     3153                            * TEST THE ABILITY OF THE CONTROLLER TO DETECT RATE ERRORS BY
     3154                            * STARTING AN INFINITE DATA-CHAIN LOOP FOR BOTH READ AND
     3155                            * WRITE OPERATIONS.
     3156                            *
     3157                            * AT THE START OF THIS TEST, THE TAPE IS REWOUND AND ONE
     3158                            * RECORD OF 1000 BYTES IS WRITTEN (NO TEST FOR TE).  THE
     3159                            * SECOND RECORD IS WRITTEN WITH THE INFINITE DATA-CHAIN LOOP
     3160                            * (NOT THE FIRST, TO AVOID TIMING PROBLEMS ASSOCIATED WITH THE
     3161                            * PROCESSING OF THE ID-BURST AT LOAD POINT).  TIMEOUT INDICATES
     3162                            * FAILURE TO GENERATE A RATE ERROR.
     3163                            *
     3164                            * THE TAPE IS AGAIN REWOUND AND THE FIRST RECORD ABOVE IS
     3165                            * READ WITH AN INFINITE DATA-CHAIN LOOP.  TIMEOUT SHOULD NEVER
     3166                            * OCCUR, STATUS CHECK WILL INDICATE POSSIBLE FAILURE TO GENERATE
     3167                            * A RATE ERROR.
     3168                            *
     3169                            * THE TAPE IS LEFT AT LOAD POINT AT THE COMPLETION OF THIS TEST
     3170         01 00C74           :T1ST30  EQU      %                 TEST IS SKIPPED IF NOT STC OR
     3171   01 00C74    6AF01281              BAL,R15  :S1CHECK           STC<1600, UNLESS EXPLICIT
     3172         01 00C75           :T1ST30C EQU      %
     3173   01 00C75    6AF01277              BAL,R15  CLRTE             REMOVE TE BIT FROM STATUS CHECK
     3174   01 00C76    6AF0187C              BAL,R15  RWTLP             REWIND TO LOAD POINT
     3175   01 00C77    32F0227A              LW,R15   =X'01020304'      SET SPECIAL PATTERN
     3176   01 00C78    35F01F59              STW,R15  :PATID+1
     3177   01 00C79    22F000FA A            LI,R15   1000/4            SET SIZE OF BUFFER
     3178   01 00C7A    35F01F5B              STW,R15  :PATWC
     3179   01 00C7B    6AF018F7              BAL,R15  SMEAR             SMEAR PATTERN
     3180   01 00C7C    22000D0E              LI,R0    DA(TW1000)        WRITE 1000 BYTES (MOVES TAPE
     3181   01 00C7D    6AF011C6              BAL,R15  GENIOXEQ           AWAY FROM BOT)
     3182   01 00C7E    22006604              LI,R0    BA(TSEQ010)       CHECK STANDARD STATUS:
     3183   01 00C7F    6AF01241              BAL,R15  GENFAIL           NO UE, NO IL, BC=0, ETC.
     3184   01 00C80    00000BB9 A            DATA     3001              (ERROR ID)
     3185   01 00C81    68000C74              B        :T1ST30           (LOOP EXIT)
     3186   01 00C82    6AF018C6              BAL,R15  CLRARM            SET I/O INTERRUPT
     3187   01 00C83    22000D45              LI,R0    DA(TST30W)        START INFINITE DATA-CHAIN
     3188   01 00C84    6AF01EC7              BAL,R15  :IOEXEC           LOOP WITH WRITE ONE BYTE
     3189   01 00C85    22E00FA0 A            LI,R14   4*1000            4 SECOND TIMER
     3190   01 00C86    6AF02018              BAL,R15  :DELAY
     3191   01 00C87    68000C89              B        %+2               SKIP IF INTERRUPTED
     3192   01 00C88    6AF01892              BAL,R15  RESETS            ELSE RESET AND ANNOUNCE
     3193   01 00C89    220066E8              LI,R0    BA(TSEQ3000)      UE, CA=ORIG, TE, RE,
     3194   01 00C8A    6AF01241              BAL,R15  GENFAIL           IOPHALT, UEI, CEI
     3195   01 00C8B    00000BBA A            DATA     3002              (ERROR ID)
     3196   01 00C8C    68000C74              B        :T1ST30           (LOOP EXIT)
     3197         01 00C8D           :T1ST30A EQU      %
     3198   01 00C8D    6AF0187C              BAL,R15  RWTLP
     3199   01 00C8E    22F00001 A            LI,R15   1                 SET SPECIAL BUFFER SIZE
     3200   01 00C8F    35F01FCE              STW,R15  :COMWCNT
     3201   01 00C90    32F0227A              LW,R15   =X'01020304'      INITIALIZE BUFFER
     3202   01 00C91    B5F02256              STW,R15  *BUFF2
     3203   01 00C92    6AF018C6              BAL,R15  CLRARM
     3204   01 00C93    22000D47              LI,R0    DA(TST30R)        START INFINITE DATA-CHAIN
     3205   01 00C94    6AF01EC7              BAL,R15  :IOEXEC           LOOP WITH READ ONE BYTE
     3206   01 00C95    22E00FA0 A            LI,R14   4*1000            4 SECOND TIMER
     3207   01 00C96    6AF02018              BAL,R15  :DELAY
     3208   01 00C97    68000C99              B        %+2               SKIP IF INTERRUPTED
     3209   01 00C98    6AF01892              BAL,R15  RESETS            ELSE RESET AND ANNOUNCE
     3210   01 00C99    6AF0207D              BAL,R15  :ERRORT           UE, CA=ORIG, TE, RE,
     3211   01 00C9A    000066F4              DATA     BA(TSEQ3001)      IL, UEI, CEI, IOPHALT
     3212   01 00C9B    68000CA1              B        :T1ST30B          RATE ERROR DETECTED
     3213   01 00C9C    6AF0123F              ERROR    3003,:T1ST30A      NO RATE ERROR
            01 00C9D    00000BBB A
            01 00C9E    68000C8D
     3214   01 00C9F    6AF01F68              BAL,R15  :COMPARE            COMPARE IF NO RATE ERROR
     3215   01 00CA0    68000CA1              B        %+1                  (ONLY DISPLAY RESULTS)
     3216         01 00CA1           :T1ST30B EQU      %
     3217   01 00CA1    6AF0187C              BAL,R15  RWTLP             RETURN TAPE TO LOAD POINT
     3218   01 00CA2    680003C9              B        :TIM


     3220                            *                                   TST1,31 CRC TEST
     3221                            *                                   ------------------------------------
     3222                            *
     3223                            * CHECK THE ABILITY TO SET ALL BITS IN THE CRC CHARACTER. A BLANK CRC
     3224                            * CHARACTER WILL ALSO BE WRITTEN, READ FWD, AND READ BKW 100 TIMES.
     3225                            * CRC REGISTER BITS 123456789  WHERE 1 = PARITY BIT
     3226                            *                              WHERE 2 = MSB
     3227                            *                              WHERE 9 = LSB
     3228         01 00CA3           :T1ST31  EQU     %
     3229   01 00CA3    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     3230   01 00CA4    22706ED0              LI,7     BA(CRCDAT)        INITIALIZE WRITE INSTRUCTION
     3231   01 00CA5    32801A14              LW,8     TWCRC
     3232   01 00CA6    4B802269              AND,8    =X'FF000000'
     3233   01 00CA7    30800007 A            AW,8     7
     3234   01 00CA8    35801A14              STW,8    TWCRC
     3235   01 00CA9    32801ABA              LW,8     RBCRC             INITIALIZE READ BACKWARDS
     3236   01 00CAA    4B802269              AND,8    =X'FF000000'
     3237   01 00CAB    32702256              LW,7     BUFF2
     3238   01 00CAC    25700002 A            SLS,7    2                 GET BYTE ADDRESS
     3239   01 00CAD    20700001 A            AI,7     1
     3240   01 00CAE    30800007 A            AW,8     7
     3241   01 00CAF    35801ABA              STW,8    RBCRC
     3242   01 00CB0    22400000 A            LI,4     0
     3243   01 00CB1    22AFFFF7 A            LI,10    -9
     3244   01 00CB2    22900001 A            LI,9     1
     3245   01 00CB3    22000D0A     T1ST3102 LI,R0    DA(TWCRC)         WRITE RECORD (1 BIT IN CRC)
     3246   01 00CB4    6AF011C6              BAL,R15  GENIOXEQ
     3247   01 00CB5    6AF0207D              BAL,15   :ERRORT           TEST
     3248   01 00CB6    00006610              DATA     BA(TSEQ011)       BC=0, READY, NO UE
     3249   01 00CB7    68000CC2              B        T1ST3105
     3250   01 00CB8    6AF01254              BAL,R15  GENERR            #3101
     3251   01 00CB9    00000C1D A            DATA     3101              INCORRECT BITS ON TEST
     3252   01 00CBA    32C00009 A            LW,12    9
     3253   01 00CBB    EAF00217              BAL,15   *:DECC            CONVERT
     3254   01 00CBC    75F61C8E              STB,15   MESCRC+3,3        STORE
     3255   01 00CBD    EAF0021C              BAL,15   *:PRINT           MESSAGE ON CRC
     3256   01 00CBE    00001C8B              DATA     MESCRC
     3257   01 00CBF    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3258   01 00CC0    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3259   01 00CC1    68000CB3              B        T1ST3102          LOOP ON ERROR
     3260   01 00CC2    22F00000 A   T1ST3105 LI,15    0
     3261   01 00CC3    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     3262   01 00CC4    22000D5D              LI,R0    DA(RBCRC)         READ BACKWARDS (1 BIT IN CRC)
     3263   01 00CC5    6AF011C6              BAL,R15  GENIOXEQ
     3264   01 00CC6    6AF0207D              BAL,15   :ERRORT           TEST
     3265   01 00CC7    00006604              DATA     BA(TSEQ010)       NO UE,BC=0, READY, NO INC LENGTH
     3266   01 00CC8    68000CCC              B        T1ST3108
     3267   01 00CC9    6AF01254              BAL,R15  GENERR            #3102
     3268   01 00CCA    00000C1E A            DATA     3102              INCORRECT BITS ON TEST
     3269   01 00CCB    33101BBC              MTW,1    SPFLAG            ERROR +1
     3270   01 00CCC    52781BB4     T1ST3108 LH,7     CRCDAT,4          CORRECT INFORMATION
     3271   01 00CCD    D1702256              CH,7     *BUFF2            INFOR READ
     3272   01 00CCE    68300CD2              BEZ      T1ST3109
     3273   01 00CCF    6AF01254              BAL,R15  GENERR            #3103
     3274   01 00CD0    00000C1F A            DATA     3103              INCORRECT INFORMATION
     3275   01 00CD1    33101BBC              MTW,1    SPFLAG            ERROR +1
     3276   01 00CD2    22000D5E     T1ST3109 LI,R0    DA(RFCRC)         READ FORWARD (1 BIT IN CRC)
     3277   01 00CD3    6AF011C6              BAL,R15  GENIOXEQ
     3278   01 00CD4    6AF0207D              BAL,15   :ERRORT           TEST
     3279   01 00CD5    00006604              DATA     BA(TSEQ010)       NO UE, BC=0, READY, NO INC LENGTH
     3280   01 00CD6    68000CDA              B        T1ST3112
     3281   01 00CD7    6AF01254              BAL,R15  GENERR            #3104
     3282   01 00CD8    00000C20 A            DATA     3104              INCORRECT BITS ON TEST
     3283   01 00CD9    33101BBC              MTW,1    SPFLAG            ERROR +1
     3284   01 00CDA    52781BB4     T1ST3112 LH,7     CRCDAT,4          CORRECT INFORMATION
     3285   01 00CDB    D1702256              CH,7     *BUFF2            INFOR READ
     3286   01 00CDC    68300CE0              BEZ      T1ST3112+6        GO TO CHECK ERROR FLAG
     3287   01 00CDD    6AF01254              BAL,R15  GENERR            #3105
     3288   01 00CDE    00000C21 A            DATA     3105              INCORRECT INFORMATION
     3289   01 00CDF    33101BBC              MTW,1    SPFLAG            ERROR +1
     3290   01 00CE0    32F01BBC              LW,15    SPFLAG            CHECK ERROR FLAG
     3291   01 00CE1    68300CEA              BEZ      T1ST3113
     3292   01 00CE2    32C00009 A            LW,12    9
     3293   01 00CE3    EAF00217              BAL,15   *:DECC            CONVERT
     3294   01 00CE4    75F61C8E              STB,15   MESCRC+3,3        STORE
     3295   01 00CE5    EAF0021C              BAL,15   *:PRINT           MESSAGE ON CRC
     3296   01 00CE6    00001C8B              DATA     MESCRC
     3297   01 00CE7    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3298   01 00CE8    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3299   01 00CE9    68000CC2              B        T1ST3105          LOOP ON ERROR
     3300   01 00CEA    33201A14     T1ST3113 MTW,2    TWCRC             ADDRESS +2 BYTES
     3301   01 00CEB    33100009 A            MTW,1    9
     3302   01 00CEC    20400001 A            AI,4     1
     3303   01 00CED    65A00CB3              BIR,10   T1ST3102          DO 9 TIMES
     3304   01 00CEE    22F00000 A            LI,15    0
     3305   01 00CEF    35F01BBC              STW,15   SPFLAG
     3306   01 00CF0    22AFFF9C A            LI,10    -100
     3307   01 00CF1    22000D0B     T1ST3114 LI,R0    DA(TWCRCB)        WRITE RECORD (BLANK CRC)
     3308   01 00CF2    6AF011C6              BAL,R15  GENIOXEQ
     3309   01 00CF3    6AF0207D              BAL,15   :ERRORT
     3310   01 00CF4    00006610              DATA     BA(TSEQ011)       BC=0, READY, BO UE
     3311   01 00CF5    68000CFD              B        T1ST3116
     3312   01 00CF6    6AF01254              BAL,R15  GENERR            #3106
     3313   01 00CF7    00000C22 A            DATA     3106              INCORRECT BITS ON TEST
     3314   01 00CF8    EAF0021C              BAL,15   *:PRINT           BLANK CRC PRINTOUT
     3315   01 00CF9    00001C91              DATA     MESCRCB
     3316   01 00CFA    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3317   01 00CFB    2E000000 A            WAIT
     3318   01 00CFC    68000CF1              B        T1ST3114          LOOP ON ERROR
     3319   01 00CFD    65A00CF1     T1ST3116 BIR,10   T1ST3114          DO 100 TIMES
     3320   01 00CFE    22AFFF9C A            LI,10    -100
     3321   01 00CFF    22000D5F     T1ST3117 LI,R0    DA(RBCRCB)        READ BACKWARDS (BLANK CRC)
     3322   01 00D00    6AF011C6              BAL,R15  GENIOXEQ
     3323   01 00D01    6AF0207D              BAL,15   :ERRORT           TEST
     3324   01 00D02    00006604              DATA     BA(TSEQ010)       BC=0, READY, NO UE, NO INC LENGTH
     3325   01 00D03    68000D09              B        T1ST3119
     3326   01 00D04    6AF01254              BAL,R15  GENERR            #3107
     3327   01 00D05    00000C23 A            DATA     3107              INCORRECT BITS ON TEST
     3328   01 00D06    33101BBC              MTW,1    SPFLAG            ERROR +1
     3329   01 00D07    EAF0021C              BAL,15   *:PRINT           BLANK CRC ERROR PRINTOUT
     3330   01 00D08    00001C91              DATA     MESCRCB
     3331   01 00D09    72701BB9     T1ST3119 LB,7     CRCBL             CORRECT INFORMATION
     3332   01 00D0A    F1702256              CB,7     *BUFF2            COMPARE BYTE
     3333   01 00D0B    68300D11              BEZ      T1ST3120
     3334   01 00D0C    6AF01254              BAL,R15  GENERR            #3108
     3335   01 00D0D    00000C24 A            DATA     3108              INCORRECT INFORMATION
     3336   01 00D0E    33101BBC              MTW,1    SPFLAG            ERROR +1
     3337   01 00D0F    EAF0021C              BAL,15   *:PRINT           BLANK CRC PRINTOUT
     3338   01 00D10    00001C91              DATA     MESCRCB
     3339   01 00D11    65A00CFF     T1ST3120 BIR,10   T1ST3117          DO 100 TIMES
     3340   01 00D12    22AFFF9C A            LI,10    -100
     3341   01 00D13    22000D60     T1ST3121 LI,R0    DA(RFCRCB)        READ FORWARDS (BLANK CRC)
     3342   01 00D14    6AF011C6              BAL,R15  GENIOXEQ
     3343   01 00D15    6AF0207D              BAL,15   :ERRORT           TEST
     3344   01 00D16    00006604              DATA     BA(TSEQ010)       BC=0, READY, NO UE, NO INC LENGTH
     3345   01 00D17    68000D1D              B        T1ST3123
     3346   01 00D18    6AF01254              BAL,R15  GENERR            #3109
     3347   01 00D19    00000C25 A            DATA     3109              INCORRECT BITS ON TEST
     3348   01 00D1A    33101BBC              MTW,1    SPFLAG            ERROR +1
     3349   01 00D1B    EAF0021C              BAL,15   *:PRINT           BLANK CRC PRINTOUT
     3350   01 00D1C    00001C91              DATA     MESCRCB
     3351   01 00D1D    72701BB9     T1ST3123 LB,7     CRCBL             CORRECT INFORMATION
     3352   01 00D1E    F1702256              CB,7     *BUFF2            COMPARE BYTE
     3353   01 00D1F    68000D25              B        T1ST3124
     3354   01 00D20    6AF01254              BAL,R15  GENERR            #3110
     3355   01 00D21    00000C26 A            DATA     3110              INCORRECT INFORMATION
     3356   01 00D22    33101BBC              MTW,1    SPFLAG            ERROR +1
     3357   01 00D23    EAF0021C              BAL,15   *:PRINT           BLANK CRC PRINTOUT
     3358   01 00D24    00001C91              DATA     MESCRCB
     3359   01 00D25    65A00D13     T1ST3124 BIR,10   T1ST3121          DO 100 TIMES
     3360   01 00D26    32F01BBC              LW,15    SPFLAG            CHECK SPECIAL ERROR FLAG
     3361   01 00D27    68300D2B              BEZ      %+4
     3362   01 00D28    EAF0021D              BAL,15   *:SENSE           CHECK SENSE INFO
     3363   01 00D29    2E000000 A            WAIT
     3364   01 00D2A    68000CEE              B        T1ST3114-3        LOOP ON BLANK CRC TEST
     3365   01 00D2B    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3366   01 00D2C    680003C9              B        :TIM              GO TO SEQUENCER


     3368                            *                                   TST1,32 READ-SET CORRECTION TEST
     3369                            *                                   ------------------------------------
     3370                            *
     3371                            * THE TEST WILL WRITE ONE ERROR FREE RECORD AND SEQUENTIALLY SET ONE
     3372                            * BIT AT A TIME IN THE ERROR PATTERN REGISTER FOR BOTH FORWARD AND
     3373                            * AND REVERSE READ MODES. THE DATA WILL BE VERIFIED AFTER EACH READ
     3374                            * ORDER TO INSURE THAT THE DATA REMAINS UNCHANGED.
     3375         01 00D2D           :T1ST32  EQU     %
     3376   01 00D2D    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     3377   01 00D2E    22706D88              LI,7     BA(CORBYT)
     3378   01 00D2F    58721A18              SH,7     SCBYT,1           INITIALIZE CORRECTION BYTE
     3379   01 00D30    6AF018FB              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3380                            * VERIFY RECORD TO CORRECT
     3381   01 00D31    22F00000 A   T1ST3202 LI,15    0
     3382   01 00D32    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     3383   01 00D33    22000D01              LI,R0    DA(TW100B)        WRITE 100 BYTES
     3384   01 00D34    6AF011C6              BAL,R15  GENIOXEQ
     3385   01 00D35    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     3386   01 00D36    6AF01241              BAL,R15  GENFAIL
     3387   01 00D37    00000C81 A            DATA     3201
     3388   01 00D38    68000D31              B        T1ST3202          ERROR LOOP EXIT
     3389   01 00D39    22000D4E              LI,R0    DA(TRB100B)       READ BACKWARDS 100 BYTES
     3390   01 00D3A    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3391   01 00D3B    6AF0207D              BAL,15   :ERRORT           TEST
     3392   01 00D3C    00006604              DATA     BA(TSEQ010)       NO UE, READY, BC=0, NO INC LENGTH
     3393   01 00D3D    68000D41              B        T1ST3208
     3394   01 00D3E    6AF01254              BAL,R15  GENERR            #3202
     3395   01 00D3F    00000C82 A            DATA     3202              INCORRECT BITS ON TEST
     3396   01 00D40    33101BBC              MTW,1    SPFLAG            ERROR +1
     3397   01 00D41    6AF01F68     T1ST3208 BAL,15   :COMPARE          COMPARE INFORMATION
     3398   01 00D42    68000D46              B        T1ST3209
     3399   01 00D43    6AF01254              BAL,R15  GENERR            #3203
     3400   01 00D44    00000C83 A            DATA     3203              INCORRECT INFORMATION
     3401   01 00D45    33101BBC              MTW,1    SPFLAG            ERROR +1
     3402   01 00D46    22000D4D     T1ST3209 LI,R0    DA(TRF100B)       READ FORWARDS 100 BYTES
     3403   01 00D47    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3404   01 00D48    6AF0207D              BAL,15   :ERRORT
     3405   01 00D49    00006604              DATA     BA(TSEQ010)       NO UE, READY, BC=0, NO INC LENGTH
     3406   01 00D4A    68000D4E              B        T1ST3212
     3407   01 00D4B    6AF01254              BAL,R15  GENERR            #3204
     3408   01 00D4C    00000C84 A            DATA     3204              INCORRECT BITS ON TEST
     3409   01 00D4D    33101BBC              MTW,1    SPFLAG            ERROR +1
     3410   01 00D4E    6AF01F68     T1ST3212 BAL,15   :COMPARE          COMPARE INFORMATION
     3411   01 00D4F    68000D53              B        T1ST3213-7        GO TO CHECK ERROR FLAG
     3412   01 00D50    6AF01254              BAL,R15  GENERR            #3205
     3413   01 00D51    00000C85 A            DATA     3205              INCORRECT INFORMATION
     3414   01 00D52    33101BBC              MTW,1    SPFLAG            ERROR +1
     3415   01 00D53    32F01BBC              LW,15    SPFLAG            CHECK ERROR FLAG
     3416   01 00D54    68300D59              BEZ      T1ST3213-1        OK
     3417   01 00D55    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3418   01 00D56    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3419   01 00D57    68000D31              B        T1ST3202          LOOP ON ERROR
     3420   01 00D58    68000DA1              B        T1ST3227          TRY NEXT BYTE ON CONTINUE
     3421   01 00D59    22AFFFF8 A            LI,10    -8                RECORD VARIFIED. TRY TO CORRECT
     3422   01 00D5A    22F00000 A   T1ST3213 LI,15    0
     3423   01 00D5B    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     3424   01 00D5C    22000D0C              LI,R0    DA(SCBYT)         SET CORRECTION
     3425   01 00D5D    6AF011C6              BAL,R15  GENIOXEQ
     3426   01 00D5E    6AF0207D              BAL,15   :ERRORT           TEST
     3427   01 00D5F    00006610              DATA     BA(TSEQ011)       NO UE, BC=0, READY
     3428   01 00D60    68000D6C              B        T1ST3216
     3429   01 00D61    6AF01254              BAL,R15  GENERR            #3206
     3430   01 00D62    00000C86 A            DATA     3206              INCORRECT BITS ON TEST
     3431   01 00D63    3260000A A            LW,6     10
     3432   01 00D64    72CC1B64              LB,12    CORBYT+2,6
     3433   01 00D65    EAF00218              BAL,15   *:HEXC
     3434   01 00D66    55F21C79              STH,15   MESBADB+3,1       ERROR SET CORRECTION BYTE
     3435   01 00D67    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3436   01 00D68    00001C76              DATA     MESBADB
     3437   01 00D69    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3438   01 00D6A    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3439   01 00D6B    68000D5A              B        T1ST3213          LOOP ON ERROR
     3440   01 00D6C    22000D4E     T1ST3216 LI,R0    DA(TRB100B)       READ BACKWARDS 100 BYTES
     3441   01 00D6D    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3442   01 00D6E    6AF0207D              BAL,15   :ERRORT           TEST
     3443   01 00D6F    00006604              DATA     BA(TSEQ010)       NO UE, READY, BC=0, NO INC LENGTH
     3444   01 00D70    68000D74              B        T1ST3219
     3445   01 00D71    6AF01254              BAL,R15  GENERR            #3207
     3446   01 00D72    00000C87 A            DATA     3207              INCORRECT BITS ON TEST
     3447   01 00D73    33101BBC              MTW,1    SPFLAG            ERROR +1
     3448   01 00D74    6AF01F68     T1ST3219 BAL,15   :COMPARE
     3449   01 00D75    68000D79              B        T1ST3220
     3450   01 00D76    6AF01254              BAL,R15  GENERR            #3208
     3451   01 00D77    00000C88 A            DATA     3208              INCORRECT INFORMATION
     3452   01 00D78    33101BBC              MTW,1    SPFLAG            ERROR +1
     3453   01 00D79    22000D0C     T1ST3220 LI,R0    DA(SCBYT)         SET CORRECTION
     3454   01 00D7A    6AF011C6              BAL,R15  GENIOXEQ
     3455   01 00D7B    6AF0207D              BAL,15   :ERRORT           TEST
     3456   01 00D7C    00006610              DATA     BA(TSEQ011)       NO UE, READY, BC=0
     3457   01 00D7D    68000D89              B        T1ST3223
     3458   01 00D7E    6AF01254              BAL,R15  GENERR            #3209
     3459   01 00D7F    00000C89 A            DATA     3209              INCORRECT BITS ON TEST
     3460   01 00D80    3260000A A            LW,6     10
     3461   01 00D81    72CC1B64              LB,12    CORBYT+2,6
     3462   01 00D82    EAF00218              BAL,15   *:HEXC            CONVERT
     3463   01 00D83    55F21C79              STH,15   MESBADB+3,1       ERROR SET CORRECTION BYTE
     3464   01 00D84    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3465   01 00D85    00001C76              DATA     MESBADB
     3466   01 00D86    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3467   01 00D87    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3468   01 00D88    68000D79              B        T1ST3220          LOOP ON ERROR
     3469   01 00D89    22000D4D     T1ST3223 LI,R0    DA(TRF100B)       READ FORWARDS 100 BYTES
     3470   01 00D8A    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3471   01 00D8B    6AF0207D              BAL,15   :ERRORT           TEST
     3472   01 00D8C    00006604              DATA     BA(TSEQ010)       NO UE, READY, BC=0, NO INC LENGTH
     3473   01 00D8D    68000D91              B        T1ST3226
     3474   01 00D8E    6AF01254              BAL,R15  GENERR            #3210
     3475   01 00D8F    00000C8A A            DATA     3210              INCORRECT BITS ON TEST
     3476   01 00D90    33101BBC              MTW,1    SPFLAG            ERROR +1
     3477   01 00D91    6AF01F68     T1ST3226 BAL,15   :COMPARE          COMPARE
     3478   01 00D92    68000D96              B        T1ST3226+5
     3479   01 00D93    6AF01254              BAL,R15  GENERR            #3211
     3480   01 00D94    00000C8B A            DATA     3211              INCORRECT INFORMATION
     3481   01 00D95    33101BBC              MTW,1    SPFLAG            ERROR +1
     3482   01 00D96    32F01BBC              LW,15    SPFLAG            CHECK ERROR FLAG
     3483   01 00D97    68300DA1              BEZ      T1ST3227
     3484   01 00D98    3260000A A            LW,6     10
     3485   01 00D99    72CC1B64              LB,12    CORBYT+2,6
     3486   01 00D9A    EAF00218              BAL,15   *:HEXC            CONVERT
     3487   01 00D9B    55F21C79              STH,15   MESBADB+3,1       ERROR SET CORRECTION BYTE
     3488   01 00D9C    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3489   01 00D9D    00001C76              DATA     MESBADB
     3490   01 00D9E    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3491   01 00D9F    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3492   01 00DA0    68000D5A              B        T1ST3213          LOOP ON ERROR
     3493   01 00DA1    73261A18     T1ST3227 MTB,2    SCBYT,3           ADDRESS +2 BYTES
     3494   01 00DA2    65A00D5A              BIR,10   T1ST3213
     3495   01 00DA3    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3496   01 00DA4    680003C9              B        :TIM              GO TO SEQUENCER

     3498                            *                                   TST1,33 READ - SENSE TEST
     3499                            *                                   ------------------------------------
     3500                            *
     3501                            * WRITE ONE ERROR FREE RECORD IN BOTH DIRECTIONS. THE SENSE ORDER
     3502                            * AFTER EACH READ ORDER SHOULD RETURN A BYTE OF ALL ZEROS TO THE IOP.
     3503         01 00DA5           :T1ST33  EQU     %
     3504   01 00DA5    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     3505   01 00DA6    6AF018FB              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     3506   01 00DA7    22500000 A            LI,5     0
     3507   01 00DA8    75501B5F              STB,5    TSC1D             CLEAR BYTE
     3508   01 00DA9    22000D01     T1ST3302 LI,R0    DA(TW100B)        WRITE 100 BYTES
     3509   01 00DAA    6AF011C6              BAL,R15  GENIOXEQ
     3510   01 00DAB    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     3511   01 00DAC    6AF01241              BAL,R15  GENFAIL
     3512   01 00DAD    00000CE5 A            DATA     3301
     3513   01 00DAE    68000DA9              B        T1ST3302          ERROR LOOP EXIT
     3514   01 00DAF    22F00000 A   T1ST3305 LI,15    0
     3515   01 00DB0    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     3516   01 00DB1    22000D4E              LI,R0    DA(TRB100B)       READ BACKWARDS 100 BYTES
     3517   01 00DB2    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3518   01 00DB3    6AF0207D              BAL,15   :ERRORT           TEST
     3519   01 00DB4    00006604              DATA     BA(TSEQ010)       NO UE, BC=0, READY, NO INC LENGTH
     3520   01 00DB5    68000DB9              B        T1ST3308
     3521   01 00DB6    6AF01254              BAL,R15  GENERR            #3302
     3522   01 00DB7    00000CE6 A            DATA     3302              INCORRECT BITS ON TEST
     3523   01 00DB8    33101BBC              MTW,1    SPFLAG            ERROR +1
     3524   01 00DB9    6AF01F68     T1ST3308 BAL,15   :COMPARE          COMPARE INFO
     3525   01 00DBA    68000DBE              B        T1ST3309
     3526   01 00DBB    6AF01254              BAL,R15  GENERR            #3303
     3527   01 00DBC    00000CE7 A            DATA     3303              INCORRECT INFORMATION
     3528   01 00DBD    33101BBC              MTW,1    SPFLAG            ERROR +1
     3529   01 00DBE    22000D0D     T1ST3309 LI,R0    DA(TSENSE)        SENSE WITH BYTE SET TO 00
     3530   01 00DBF    6AF011C6              BAL,R15  GENIOXEQ
     3531   01 00DC0    6AF0207D              BAL,15   :ERRORT           TEST
     3532   01 00DC1    0000662C              DATA     BA(TSEQ013)       NO UE, BC=0, READY
     3533   01 00DC2    68000DC6              B        T1ST3312
     3534   01 00DC3    6AF01254              BAL,R15  GENERR            #3304
     3535   01 00DC4    00000CE8 A            DATA     3304              INCORRECT BITS ON TEST
     3536   01 00DC5    33101BBC              MTW,1    SPFLAG            ERROR +1
     3537   01 00DC6    71501B5F     T1ST3312 CB,5     TSC1D             INFORMATION CHANGED
     3538   01 00DC7    68300DD0              BEZ      T1ST3313
     3539   01 00DC8    6AF01254              BAL,R15  GENERR            #3305
     3540   01 00DC9    00000CE9 A            DATA     3305              INCORRECT INFORMATION
     3541   01 00DCA    72C01B5F              LB,12    TSC1D             SENSE INFORMATION
     3542   01 00DCB    EAF00218              BAL,15   *:HEXC            CONVERT
     3543   01 00DCC    55F01C83              STH,15   MESSNS+3
     3544   01 00DCD    EAF0021C              BAL,15   *:PRINT           PRINT INFORMATION
     3545   01 00DCE    00001C80              DATA     MESSNS
     3546   01 00DCF    33101BBC              MTW,1    SPFLAG            ERROR +1
     3547   01 00DD0    75501B5F     T1ST3313 STB,5    TSC1D             CLEAR BYTE
     3548   01 00DD1    22000D4D              LI,R0    DA(TRF100B)       READ FORWARDS 100 BYTES
     3549   01 00DD2    6AF011C6              BAL,R15  GENIOXEQ
     3550   01 00DD3    6AF0207D              BAL,15   :ERRORT           TEST
     3551   01 00DD4    00006604              DATA     BA(TSEQ010)       NO UE, BC=0, READY, NO INC LENGTH
     3552   01 00DD5    68000DD9              B        T1ST3316
     3553   01 00DD6    6AF01254              BAL,R15  GENERR            #3306
     3554   01 00DD7    00000CEA A            DATA     3306              INCORRECT BITS ON TEST
     3555   01 00DD8    33101BBC              MTW,1    SPFLAG            ERROR +1
     3556   01 00DD9    6AF01F68     T1ST3316 BAL,15   :COMPARE          COMPARE INFO
     3557   01 00DDA    68000DDE              B        T1ST3317
     3558   01 00DDB    6AF01254              BAL,R15  GENERR            #3307
     3559   01 00DDC    00000CEB A            DATA     3307              INCORRECT INFORMATION
     3560   01 00DDD    33101BBC              MTW,1    SPFLAG            ERROR +1
     3561   01 00DDE    22000D0D     T1ST3317 LI,R0    DA(TSENSE)        SENSE WITH BYTE SET TO 00
     3562   01 00DDF    6AF011C6              BAL,R15  GENIOXEQ
     3563   01 00DE0    6AF0207D              BAL,15   :ERRORT           TEST
     3564   01 00DE1    0000662C              DATA     BA(TSEQ013)       NO UE, BC=0, READY
     3565   01 00DE2    68000DE6              B        T1ST3320
     3566   01 00DE3    6AF01254              BAL,R15  GENERR            #3308
     3567   01 00DE4    00000CEC A            DATA     3308              INCORRECT BITS ON TEST
     3568   01 00DE5    33101BBC              MTW,1    SPFLAG            ERROR +1
     3569   01 00DE6    71501B5F     T1ST3320 CB,5     TSC1D             INFORMATION CHANGED
     3570   01 00DE7    68300DF0              BE       T1ST3321-5        GO CHECK ERROR FLAG
     3571   01 00DE8    6AF01254              BAL,R15  GENERR            #3309
     3572   01 00DE9    00000CED A            DATA     3309              INCORRECT INFORMATION
     3573   01 00DEA    72C01B5F              LB,12    TSC1D             SENSE INFORMATION
     3574   01 00DEB    EAF00218              BAL,15   *:HEXC            CONVERT
     3575   01 00DEC    55F01C83              STH,15   MESSNS+3
     3576   01 00DED    EAF0021C              BAL,15   *:PRINT           PRINT INFORMATION
     3577   01 00DEE    00001C80              DATA     MESSNS
     3578   01 00DEF    33101BBC              MTW,1    SPFLAG            ERROR +1
     3579   01 00DF0    32F01BBC              LW,15    SPFLAG            CHECK ERROR FLAG
     3580   01 00DF1    68300DF5              BEZ      T1ST3321
     3581   01 00DF2    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3582   01 00DF3    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3583   01 00DF4    68000DAF              B        T1ST3305          LOOP ON ERROR
     3584   01 00DF5    6AF018CE     T1ST3321 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3585   01 00DF6    680003C9              B        :TIM              GO TO SEQUENCER


     3587                            *                                   TST1, 34 READY - BUSY TEST
     3588                            *                                   ------------------------------------
     3589                            *
     3590                            * CHECK THE BUSY CONDITION AFTER ISSUANCE OF AN ORDER. THE TEST WILL
     3591                            * ALSO ATTEMPT TO ISSUE AN SIO TO A BUSY CONTROLLER AND TO A READY
     3592                            * CONTROLLER AND A BUSY STATION.
     3593   01 00DF7    22AFFF9C A   :T1ST34  LI,10    -100
     3594   01 00DF8    6AF018FB              BAL,R15  SMEARPTR          SMEAR PATTERN
     3595   01 00DF9    6AF01277              BAL,R15  CLRTE             SUPPRESS TEST FOR TE
     3596   01 00DFA    6AF0187C              BAL,R15  RWTLP             REWIND TAPE TO LOAD POINT
     3597   01 00DFB    6AF018C6     T1ST3401 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3598   01 00DFC    22000D0E              LI,0     DA(TW1000)        WRITE 1000 BYTES
     3599   01 00DFD    CCC01B8C              SIO,12   *:DEVADDR         SIO

     3601   01 00DFE    32501B5A              LW,5     SAVMODEL
     3602   01 00DFF    2150004B A            CI,5     75
     3603   01 00E00    69300E05              BNE      T1ST3402          SKIP NOT SPECIAL POTTER         *G02
     3604   01 00E01    3300033A              MTW,0    :CDB+1             OR SLOW STC DRIVE              *G02
     3605   01 00E02    69300E05              BNEZ     T1ST3402                                          *G02
     3606   01 00E03    225FEFB5 A            LI,5     -4171             ** SPECIAL 5.7 MS DELAY FOR
     3607   01 00E04    68000E06              B        %+2               ** POTTER 'L AND N' UNIT

     3609   01 00E05    225FFFE2 A   T1ST3402 LI,R5    -30               VERY SHORT DELAY                *G02
     3610   01 00E06    65500E06              BIR,5    %

     3612   01 00E07    CD801B8C              TIO,8    *:DEVADDR         TIO WITH CONTROLLER BUSY
     3613   01 00E08    74020009 A            STCF     R9,R1             SAVE CONDITION CODES
     3614   01 00E09    4B90227B              AND,9    =X'60C00000'      DEVICE BUSY
     3615   01 00E0A    3190227C              CW,9     =X'60400000'
     3616   01 00E0B    68300E0F              BE       T1ST3403
     3617   01 00E0C    6AF0123F              ERROR    3401,T1ST3401     INCORRECT TIO STATUS
            01 00E0D    00000D49 A
            01 00E0E    68000DFB
     3618   01 00E0F    22E00400 A   T1ST3403 LI,R14   1024              DELAY ABOUT 1 SECOND            *G02
     3619   01 00E10    6AF02018              BAL,15   :DELAY            DELAY
     3620   01 00E11    68000E15              B        T1ST3404
     3621   01 00E12    6AF0123F              ERROR    3402,T1ST3401     TIMEOUT ON SIO
            01 00E13    00000D4A A
            01 00E14    68000DFB
     3622   01 00E15    22006604     T1ST3404 LI,R0    BA(TSEQ010)       READY, NO UE, BC=0
     3623   01 00E16    6AF01241              BAL,R15  GENFAIL
     3624   01 00E17    00000D4B A            DATA     3403
     3625   01 00E18    68000DFB              B        T1ST3401
     3626   01 00E19    65A00DFB              BIR,10   T1ST3401
     3627   01 00E1A    6AF018C6     T1ST3405 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3628   01 00E1B    22000D0E              LI,0     DA(TW1000)        WRITE 1000 BYTES
     3629   01 00E1C    CCC01B8C              SIO,12   *:DEVADDR         SIO
     3630   01 00E1D    22000D61              LI,0     DA(RB1000)        READ 1000 BYTES BKW
     3631   01 00E1E    CC801B8C              SIO,8    *:DEVADDR         SIO BUSY CHANNEL
     3632   01 00E1F    74020009 A            STCF     R9,R1             SAVE CONDITION CODES
     3633   01 00E20    4B90227D              AND,9    =X'06C00000'      BUSY
     3634   01 00E21    3190227E              CW,9     =X'06400000'      CONTROLLER BUSY
     3635   01 00E22    68300E26              BE       T1ST3407
     3636   01 00E23    6AF0123F              ERROR    3404,T1ST3405     INCORRECT SIO STATUS
            01 00E24    00000D4C A
            01 00E25    68000E1A
     3637         01 00E26           T1ST3407 EQU      %
     3638   01 00E26    6AF011DD              BAL,R15  TST34NXT          FIND ANOTHER UNIT (R7)
     3639   01 00E27    6AF011FA              BAL,R15  TST34SNP          SNAPSHOT ALL I/O STATUS
     3640   01 00E28    22E0012C A            LI,14    300               300 MS
     3641   01 00E29    6AF02018              BAL,15   :DELAY            DELAY
     3642   01 00E2A    68000E2E              B        T1ST3408
     3643   01 00E2B    6AF0123F              ERROR    3405,T1ST3405     TIMEOUT ON SIO
            01 00E2C    00000D4D A
            01 00E2D    68000E1A
     3644         01 00E2E           T1ST3408 EQU      %
     3645   01 00E2E    6AF01211              BAL,R15  TST34DSP          DISPLAY ALL I/O STATUS
     3646   01 00E2F    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3647   01 00E30    22000CF8              LI,0     DA(TRWOL)         REWIND NO INTERRUPT
     3648   01 00E31    CCC01B8C              SIO,12   *:DEVADDR         SIO
     3649   01 00E32    22000D0E              LI,0     DA(TW1000)        WRITE RECORD
     3650   01 00E33    CC801B8C              SIO,8    *:DEVADDR         SIO WHILE REWINDING
     3651   01 00E34    74020009 A            STCF     R9,R1             SAVE CONDITION CODES
     3652   01 00E35    4B90227D              AND,9    =X'06C00000'      CONTROLLER BUSY
     3653   01 00E36    3190227E              CW,9     =X'06400000'
     3654   01 00E37    68300E3B              BE       T1ST3409
     3655   01 00E38    6AF0123F              ERROR    3406              INCORRECT SIO STATUS
            01 00E39    00000D4E A
     3656   01 00E3A    68000E3B              B        %+1                DONT LOOP ON ERROR
     3657         01 00E3B           T1ST3409 EQU      %
     3658   01 00E3B    32E0046B              LW,R14   DEVBUSY           WAIT FOR DEVICE
     3659   01 00E3C    6AF01239              BAL,R15  GENDELAY          TO LOOK BUSY
     3660   01 00E3D    CD801B8C              TIO,R8   *:DEVADDR         CAPTURE STATUS
     3661   01 00E3E    74020009 A            STCF     R9,R1             SAVE CONDITION CODES
     3662   01 00E3F    4B90227F              AND,R9   =X'FFC00000'      DEVICE BUSY
     3663   01 00E40    31902280              CW,R9    =X'70400000'      CONTROLLER READY
     3664   01 00E41    68300E45              BE       T1ST3410          SIO NOT POSSIBLE
     3665   01 00E42    6AF0123F              ERROR    3407              INCORRECT TIO STATUS
            01 00E43    00000D4F A
     3666   01 00E44    68000E45              B        %+1                DONT LOOP ON ERROR
     3667         01 00E45           T1ST3410 EQU      %
     3668   01 00E45    CEF01B8C              TDV,R15  *:DEVADDR
     3669   01 00E46    72F0000F A            LB,R15   R15               LOOK FOR THE ONLINE
     3670   01 00E47    21F00001 A            CI,R15   1                 REWINDING BIT
     3671   01 00E48    69400E4C              BANZ     T1ST3411
     3672   01 00E49    6AF0123F              ERROR    3408              INCORRECT TDV STATUS
            01 00E4A    00000D50 A
     3673   01 00E4B    68000E4C              B        %+1                DONT LOOP ON ERROR
     3674         01 00E4C           T1ST3411 EQU      %
     3675   01 00E4C    6AF011DD              BAL,R15  TST34NXT          FIND ANOTHER UNIT (R7)
     3676   01 00E4D    22600001 A            LI,R6    1                 SNAPSHOT ALL I/O STATUS
     3677   01 00E4E    6AF011FC              BAL,R15  TST34SNS          EXCEPT FOR SIO
     3678   01 00E4F    6AF01212              BAL,R15  TST34DSS          AND DISPLAY IMMEDIATELY
     3679   01 00E50    6AF018CE              BAL,R15  CLRDARM           RESET I/O INTERRUPT
     3680   01 00E51    CDF01B8C              TIO,R15  *:DEVADDR         NOW WAIT FOR DEVICE
     3681   01 00E52    72F0000F A            LB,R15   R15               TO BECOME READY
     3682   01 00E53    21F00060 A            CI,R15   X'60'
     3683   01 00E54    69400E51              BANZ     %-3
     3684   01 00E55    680003C9              B        :TIM


     3686                            *                                   TST1,35 TAPE CREEP TEST
     3687                            *                                   ------------------------------------
     3688                            *
     3689                            * THIS TEST WILL WRITE ONE RECORD FOLLOWED BY A SET ERASE ORDER AND
     3690                            * ANOTHER WRITE ORDER. A SPACE RECORD BACKWARD AND REWRITE SEQUENCE
     3691                            * WILL NOW BE REPEATED N TIMES. AFTER READING AND VERIFYING THE DATA
     3692                            * OF THE FIRST RECORD, READ THE SECOND RECORD AND COMPUTE THE DELAY
     3693                            * BETWEEN THE START OF THE READ ORDER AND THE START OF THE DATA
     3694                            * TRANSFER. THE DIRECTION OF THE CREEP WILL BE DETERMINED BY COMPARING
     3695                            * THE DELAY TO THE ORIGINAL VALUE.
     3696   01 00E56    6AF0127B     :T1ST35  BAL,R15  :S0CHECK          RETURN IF STC AND TST0
        1*  01 00E57    6AF01288              BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
     3697   01 00E58    6AF01826              BAL,15   GETTIME           GET TIMES ON LOOPS
     3698   01 00E59    32902281              LW,9     =X'0F0F0F0F'      CHECKERBOARD PATTERN
     3699   01 00E5A    35901F59              STW,9    :PATID+1
     3700   01 00E5B    6AF018F9              BAL,15   SMEARSP           SMEAR SPECIAL PATTERN A
     3701   01 00E5C    32802273              LW,8     =X'FFFFFFFF'
     3702   01 00E5D    224FFFFC A            LI,4     -4                PATTERN FOR RECORD B
     3703   01 00E5E    35882308              STW,8    BUFF1+104,4
     3704   01 00E5F    65400E5E              BIR,4    %-1
     3705   01 00E60    22000D01     T1ST3502 LI,R0    DA(TW100B)        WRITE 100 BYTES
     3706   01 00E61    6AF011C6              BAL,R15  GENIOXEQ
     3707   01 00E62    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     3708   01 00E63    6AF01241              BAL,R15  GENFAIL
     3709   01 00E64    00000DAD A            DATA     3501
     3710   01 00E65    68000E60              B        T1ST3502          ERROR LOOP EXIT
     3711   01 00E66    3300033A              MTW,0    :CDB+1            LOOK FOR STC DRIVES
     3712   01 00E67    68300E6A              BEZ      T1ST3503          SKIP IF NOT
     3713   01 00E68    22000D0F              LI,0     DA(TWERSE)
     3714   01 00E69    68000E6D              B        T1ST3507
     3715         01 00E6A           T1ST3503 EQU      %
     3716   01 00E6A    22000CE9              LI,R0    DA(TSE1)          SET ERASE
     3717   01 00E6B    6AF011C6              BAL,R15  GENIOXEQ
     3718   01 00E6C    22000D10              LI,0     DA(TWCREP)        WRITE RECORD B
     3719         01 00E6D           T1ST3507 EQU      %
     3720   01 00E6D    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3721   01 00E6E    22600010 A            LI,6     X'10'             16 BYTES
     3722   01 00E6F    22500000 A            LI,5     0                 TALLY IN R5
     3723   01 00E70    22400000 A            LI,4     0
     3724   01 00E71    CCC01B8C              SIO,12   *:DEVADDR         WRITE RECORD B
     3725   01 00E72    33100005 A            MTW,1    5                 TALLY =TALLY+1
     3726   01 00E73    CEA01B8C              TDV,10   *:DEVADDR         TEST DEVICE FOR BYTE COUNT REDUCED
     3727   01 00E74    5162000B A            CH,6     11,1
     3728   01 00E75    68200E72              BCR,2    %-3
     3729   01 00E76    32C02068              LW,12    :INTRECF          WAIT FOR INTERRUPT
     3730   01 00E77    68300E76              BCR,3    %-1
     3731   01 00E78    37401BA1              MW,4     TIME1             R5 HAS TIME IN US
     3732   01 00E79    22AFFFC0 A            LI,10    -64
     3733   01 00E7A    22000D14     T1ST3506 LI,R0    DA(SB16B)         SPACE BACKWARDS
     3734   01 00E7B    6AF011C6              BAL,R15  GENIOXEQ
     3735   01 00E7C    6AF0207D              BAL,15   :ERRORT           TEST
     3736   01 00E7D    00006610              DATA     BA(TSEQ011)       READY, BC=00, NO UE
     3737   01 00E7E    68000E81              B        T1ST3509
     3738   01 00E7F    6AF01254              BAL,R15  GENERR            #3502
     3739   01 00E80    00000DAE A            DATA     3502              INCORRECT BITS ON TEST
     3740   01 00E81    22000D10     T1ST3509 LI,R0    DA(TWCREP)        REWRITE RECORD
     3741   01 00E82    6AF011C6              BAL,R15  GENIOXEQ
     3742   01 00E83    6AF0207D              BAL,15   :ERRORT           TEST
     3743   01 00E84    00006610              DATA     BA(TSEQ011)       READY, BC=00, NO UE
     3744   01 00E85    68000E88              B        T1ST3512
     3745   01 00E86    6AF01254              BAL,R15  GENERR            #3503
     3746   01 00E87    00000DAF A            DATA     3503              INCORRECT BITS ON TEST
     3747   01 00E88    65A00E7A     T1ST3512 BIR,10   T1ST3506
     3748   01 00E89    22000D14              LI,R0    DA(SB16B)         SPACE BACKWARDS
     3749   01 00E8A    6AF011C6              BAL,R15  GENIOXEQ
     3750   01 00E8B    6AF0207D              BAL,15   :ERRORT           TEST
     3751   01 00E8C    00006610              DATA     BA(TSEQ011)       READY, BC=00, NO UE
     3752   01 00E8D    68000E90              B        T1ST3515
     3753   01 00E8E    6AF01254              BAL,R15  GENERR            #3504
     3754   01 00E8F    00000DB0 A            DATA     3504              INCORRECT BITS ON TEST
     3755   01 00E90    22000D13     T1ST3515 LI,R0    DA(SB100B)        SPACE BACKWARDS
     3756   01 00E91    6AF011C6              BAL,R15  GENIOXEQ
     3757   01 00E92    6AF0207D              BAL,15   :ERRORT           TEST
     3758   01 00E93    00006610              DATA     BA(TSEQ011)       READY, BC=0, NO UE
     3759   01 00E94    68000E97              B        T1ST3518
     3760   01 00E95    6AF01254              BAL,R15  GENERR            #3505
     3761   01 00E96    00000DB1 A            DATA     3505              INCORRECT BITS ON TEST
     3762   01 00E97    22000D62     T1ST3518 LI,R0    DA(RF100B)        READ FORWARDS
     3763   01 00E98    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     3764   01 00E99    6AF0207D              BAL,15   :ERRORT
     3765   01 00E9A    00006604              DATA     BA(TSEQ010)       READY, NO UE, BC=0, NO INC LENGTH
     3766   01 00E9B    68000E9E              B        T1ST3521
     3767   01 00E9C    6AF01254              BAL,R15  GENERR            #3506
     3768   01 00E9D    00000DB2 A            DATA     3506              INCORRECT BITS ON TEST
     3769   01 00E9E    6AF01F68     T1ST3521 BAL,15   :COMPARE          COMPARE INFORMATION
     3770   01 00E9F    68000EA2              B        T1ST3522
     3771   01 00EA0    6AF01254              BAL,R15  GENERR            #3507
     3772   01 00EA1    00000DB3 A            DATA     3507              INCORRECT INFORMATION
     3773   01 00EA2    6AF018C6     T1ST3522 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3774   01 00EA3    22000D63              LI,0     DA(RF16B)         READ FWD 16 BYTES
     3775   01 00EA4    32A02273              LW,10    =X'FFFFFFFF'      B PATTERN
     3776   01 00EA5    22800000 A            LI,8     0
     3777   01 00EA6    22900000 A            LI,9     0
     3778   01 00EA7    CCC01B8C              SIO,12   *:DEVADDR         INIATE WRITE
     3779   01 00EA8    33100009 A            MTW,1    9                 TALLY =TALLY+1
     3780   01 00EA9    F1A02256              CB,10    *BUFF2            INFO IN YET
     3781   01 00EAA    69300EA8              BNEZ     %-2
     3782   01 00EAB    37801BA2              MW,8     TIME2             R9 HAS TIME IN US
     3783   01 00EAC    35900008 A            STW,9    8                 R8=R9
     3784   01 00EAD    35500006 A            STW,5    6                 R5 = R6
     3785   01 00EAE    38900005 A            SW,9     5                 T2-T1
     3786   01 00EAF    69100EB7              BLZ      %+8               CHECK FOR NEGATIVE CREEP
     3787   01 00EB0    38900466              SW,9     WTRT              -WRITE TO READ TIME
     3788   01 00EB1    2590007A A            SLS,9    -6                TIME/64
     3789   01 00EB2    32C02068              LW,12    :INTRECF          WAIT FOR INTERRUPT
     3790   01 00EB3    68300EB2              BCR,3    %-1
     3791   01 00EB4    38900467              SW,9     STOPDIF           - REVERSE DIFFERENTIAL
     3792   01 00EB5    68300ED4              BEZ      T1ST3525          NO CREEP
     3793   01 00EB6    69200EC5              BCS,2    T1ST3523          POSITIVE CREEP
     3794   01 00EB7    38600008 A            SW,6     8                 T1-T2
     3795   01 00EB8    38600466              SW,6     WTRT              - WRITE TO READ TIME
     3796   01 00EB9    69100EBD              BLZ      %+4
     3797   01 00EBA    2560007A A            SLS,6    -6                TIME/64
     3798   01 00EBB    31602282              CW,6     =X'00000014'      NEGATIVE TOLLERANCE
     3799   01 00EBC    68200ED4              BLE      T1ST3525          OK
     3800   01 00EBD    6AF01254              BAL,R15  GENERR            NEGATIVE CREEP PRINTOUT
     3801   01 00EBE    00000DB5 A            DATA     3509
     3802   01 00EBF    32C00006 A            LW,12    6
     3803   01 00EC0    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3804   01 00EC1    35F01C70              STW,15   MESNCR+3          STORE
     3805   01 00EC2    EAF0021C              BAL,15   *:PRINT           NEGATIVE CREEP PRINTOUT
     3806   01 00EC3    00001C6D              DATA     MESNCR
     3807   01 00EC4    68000ED1              B        T1ST3525-3        GO CHECK SENSE SWITCHES
     3808   01 00EC5    31900465     T1ST3523 CW,9     CRPMAX            MAXIMUM
     3809   01 00EC6    69100ED4              BL       T1ST3525
     3810   01 00EC7    6AF01254              BAL,R15  GENERR            3508
     3811   01 00EC8    00000DB4 A            DATA     3508              TAPE CREEP ERROR
     3812   01 00EC9    32C00009 A            LW,12    9
     3813   01 00ECA    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3814   01 00ECB    35F01C66              STW,15   MESTPC+3
     3815   01 00ECC    32C00465              LW,12    CRPMAX
     3816   01 00ECD    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3817   01 00ECE    35F01C6B              STW,15   MESTPC+8
     3818   01 00ECF    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3819   01 00ED0    00001C63              DATA     MESTPC
     3820   01 00ED1    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     3821   01 00ED2    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     3822   01 00ED3    68000E56              B        :T1ST35           RESTART TEST
     3823   01 00ED4    6AF018CE     T1ST3525 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3824   01 00ED5    680003C9              B        :TIM              GO TO SEQUENCER


     3826                            *                                   TST1,36 ERASE VERIFICATION TEST
     3827                            *                                   -------------------------------
     3828                            *
     3829                            * THIS TEST WILL TEST THE ERASE ORDER BY REWINDING TAPE AND THEN
     3830                            * WRITING N ONE BYTE RECORDS.  THE RECORDS ARE FOLLOWED BY A TAPE
     3831                            * MARK.  AFTER A REWIND, WRITE ONE RECORD, SET ERASE, AND WRITE
     3832                            * ONE RECORD.  THE TAPE IS REWOUND.  THE RECORDS ARE COUNTED TO
     3833                            * VERIFY THE ERASE ORDER EXECUTION.
     3834   01 00ED6    6AF0187C     :T1ST36  BAL,15   RWTLP             REWIND TO LOAD POINT
     3835   01 00ED7    229FFFCE A            LI,9     -50               SET LOOP COUNT
     3836   01 00ED8    22000D04     T1ST3600 LI,R0    DA(TW1BCE)        WRITE 1 BYTE
     3837   01 00ED9    6AF011C6              BAL,R15  GENIOXEQ
     3838   01 00EDA    65900ED8              BIR,R9   T1ST3600          LOOP (NO ERROR CHECKING)
     3839   01 00EDB    22000CFA              LI,R0    DA(TWTM)          WRITE TAPEMARK
     3840   01 00EDC    6AF011C6              BAL,R15  GENIOXEQ           (NO ERROR CHECKING)
     3841   01 00EDD    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     3842   01 00EDE    22000D04              LI,R0    DA(TW1BCE)        WRITE 1 BYTE
     3843   01 00EDF    6AF011C6              BAL,R15  GENIOXEQ
     3844   01 00EE0    22000CE9              LI,R0    DA(TSE1)          SET ERASE
     3845   01 00EE1    6AF011C6              BAL,R15  GENIOXEQ
     3846   01 00EE2    22000D04              LI,R0    DA(TW1BCE)        WRITE 1 BYTE
     3847   01 00EE3    6AF011C6              BAL,R15  GENIOXEQ
     3848   01 00EE4    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     3849   01 00EE5    229FFFFF A            LI,9     -1                CLEAR TALLY
     3850   01 00EE6    22000D18     T1ST3603 LI,R0    DA(SF100)         SPACE FORWARD
     3851   01 00EE7    6AF011C6              BAL,R15  GENIOXEQ
     3852   01 00EE8    20900001 A            AI,9     1                 TALLY + 1
     3853   01 00EE9    CEA01B8C              TDV,10   *:DEVADDR         TDV
     3854   01 00EEA    4BB02283              AND,11   =X'12000000'      EOF OR EOT SET
     3855   01 00EEB    68300EE6              BCR,3    T1ST3603            NO
     3856   01 00EEC    31900469              CW,9     ERECORDS          CORRECT NUMBER OF RECORDS LEFT
     3857   01 00EED    69100EF8              BL       T1ST3604            YES, NORMAL EXIT
     3858   01 00EEE    6AF01254              BAL,R15  GENERR            REPORT ERROR
     3859   01 00EEF    00000E11 A            DATA     3601                #3601
     3860   01 00EF0    32C00009 A            LW,R12   R9
     3861   01 00EF1    EAF00217              BAL,R15  *:DECC            CONVERT EOF COUNT
     3862   01 00EF2    35F00F01              STW,R15  MESEVT+7          TO DECIMAL AND DISPLAY
     3863   01 00EF3    EAF0021C              BAL,R15  *:PRINT
     3864   01 00EF4    00000EFA              DATA     MESEVT
     3865   01 00EF5    EAF0021D              BAL,15   *:SENSE           TEST SENSE SWITCHES
     3866   01 00EF6    2E000000 A            WAIT                         WAIT
     3867   01 00EF7    68000ED6              B        :T1ST36             LOOP ON ERROR
     3868   01 00EF8    6AF018CE     T1ST3604 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     3869   01 00EF9    680003C9              B        :TIM              GO TO SEQUENCER
     3870   01 00EFA    1FD5E4D4 A   MESEVT   TEXTC    'NUMBER OF RECORDS SKIPPED: XXXX'
            01 00EFB    C2C5D940 A
            01 00EFC    D6C640D9 A
            01 00EFD    C5C3D6D9 A
            01 00EFE    C4E240E2 A
            01 00EFF    D2C9D7D7 A
            01 00F00    C5C47A40 A
            01 00F01    E7E7E7E7 A


     3872                            *                                   TST1,37 GAP LENGTH TIMING TEST
     3873                            *                                   ------------------------------------
     3874                            * THIS ROUTINE VERIFIES GAP TIMING AND IS INTENDED AS A SCOPING AID
     3875                            * FOR ADJUSTING THE FORWARD AND REVERSE RAMP. THE TEST CAN ONLY BE RUN
     3876                            * ON A SYSTEM WITH A REAL TIME CLOCK.
     3877   01 00F02    6AF0127B     :T1ST37  BAL,R15  :S0CHECK          RETURN IF STC AND TST0
        1*  01 00F03    6AF01288              BAL,R15  :S2CHECK          SKIP SUBTEST IF LONG COLUMN     *H00
     3878   01 00F04    6AF0187C              BAL,R15  RWTLP                                             *G02
     3879   01 00F05    6AF01826              BAL,15   GETTIME           GET TIMES ON LOOPS
     3880   01 00F06    22AFFFF0 A            LI,10    -16
     3881   01 00F07    32902284              LW,9     =X'F0F0F0F0'      CHECKERBOARD PATTER
     3882   01 00F08    224FFFFC A            LI,4     -4                SMEAR PATTERN
     3883   01 00F09    35982308              STW,9    BUFF1+104,4
     3884   01 00F0A    65400F09              BIR,4    %-1
     3885   01 00F0B    22E00005 A            LI,R14   5                 5 MILLISECOND DELAY             *G02
     3886   01 00F0C    6AF01239              BAL,R15  GENDELAY           TO STOP THE TAPE               *G02
     3887                            * START TIME
     3888   01 00F0D    22000D10     T1ST3702 LI,R0    DA(TWCREP)        WRITE 16 BYTES
     3889   01 00F0E    6AF011C6              BAL,R15  GENIOXEQ
     3890   01 00F0F    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     3891   01 00F10    6AF01241              BAL,R15  GENFAIL
     3892   01 00F11    00000E75 A            DATA     3701
     3893   01 00F12    68000F0D              B        T1ST3702          ERROR LOOP EXIT
     3894   01 00F13    65A00F0B     T1ST3705 BIR,10   T1ST3702-2        DO 16 TIMES
     3895   01 00F14    22AFFFF0 A            LI,10    -16
     3896   01 00F15    22000D14     T1ST3706 LI,R0    DA(SB16B)         SPACE BACKWARDS
     3897   01 00F16    6AF011C6              BAL,R15  GENIOXEQ
     3898   01 00F17    6AF0207D              BAL,15   :ERRORT           TEST
     3899   01 00F18    00006610              DATA     BA(TSEQ011)       NO UE, READY, BC=0
     3900   01 00F19    68000F1C              B        T1ST3709
     3901   01 00F1A    6AF01254              BAL,R15  GENERR            #3702
     3902   01 00F1B    00000E76 A            DATA     3702              INCORRECT BITS ON TEST
     3903   01 00F1C    65A00F15     T1ST3709 BIR,10   T1ST3706          DO 16 TIMES
     3904   01 00F1D    32602284              LW,6     =X'F0F0F0F0'      START TIME ON 16 RECORDS
     3905   01 00F1E    22AFFFF0 A            LI,10    -16
     3906   01 00F1F    22400000 A            LI,4     0
     3907   01 00F20    22500000 A            LI,5     0
     3908   01 00F21    6AF018C6     T1ST3710 BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3909   01 00F22    22EFEC78 A            LI,14    -5000             DELAY TO STOP TAPE
     3910   01 00F23    65E00F23              BIR,14   %
     3911   01 00F24    22900000 A            LI,9     0                 NO INTERRUPT EXPECTED
     3912   01 00F25    B5902256              STW,9    *BUFF2            CLEAR AREA
     3913   01 00F26    22000D63              LI,0     DA(RF16B)         READ FWD 16 BYTES
     3914   01 00F27    CCC01B8C              SIO,12   *:DEVADDR         SIO
     3915   01 00F28    33100005 A            MTW,1    5                 TALLY =TALLY+1
     3916   01 00F29    F1602256     T1ST3712 CB,6     *BUFF2            INFO IN YET
     3917   01 00F2A    69300F28              BNE      T1ST3712-1
     3918   01 00F2B    32C02068              LW,12    :INTRECF          WAIT FOR INTERRUPT
     3919   01 00F2C    68300F2B              BCR,3    %-1
     3920   01 00F2D    65A00F21              BIR,10   T1ST3710          DO 16 TIMES
     3921   01 00F2E    2550007C A            SLS,5    -4                R5/16
     3922   01 00F2F    37401BA2              MW,4     TIME2             R5 HAS TIME IN US
     3923   01 00F30    38500466              SW,5     WTRT              - WRITE TO READ TIME
     3924   01 00F31    3850046A              SW,5     WDTIME            - WRITE DELAY TIME
     3925   01 00F32    35501B61              STW,5    STRTME            START TIME
     3926   01 00F33    22AFFFF7 A   T1ST3714 LI,10    -9                IRG TIME
     3927   01 00F34    32E00008 A            LW,14    8                 8 MS DELAY TIME TO STOP TAPE
     3928   01 00F35    6AF02018              BAL,15   :DELAY            DELAY
     3929   01 00F36    68000F37              B        %+1
     3930   01 00F37    22000D10     T1ST3715 LI,R0    DA(TWCREP)        WRITE 16 BYTES
     3931   01 00F38    6AF011C6              BAL,R15  GENIOXEQ
     3932   01 00F39    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     3933   01 00F3A    6AF01241              BAL,R15  GENFAIL
     3934   01 00F3B    00000E77 A            DATA     3703
     3935   01 00F3C    68000F37              B        T1ST3715          ERROR LOOP EXIT
     3936   01 00F3D    65A00F34              BIR,10   T1ST3714+1        LOOP
     3937   01 00F3E    22600000 A            LI,6     0
     3938   01 00F3F    35601B8B              STW,6    IRGTM             CLEAR TIME
     3939   01 00F40    22AFFFF7 A            LI,10    -9
     3940   01 00F41    22000D14     T1ST3718 LI,R0    DA(SB16B)         SPACE BACKWARDS
     3941   01 00F42    6AF011C6              BAL,R15  GENIOXEQ
     3942   01 00F43    6AF0207D              BAL,15   :ERRORT           TEST
     3943   01 00F44    00006610              DATA     BA(TSEQ011)       READY, NO UE, BC=0
     3944   01 00F45    68000F48              B        T1ST3720
     3945   01 00F46    6AF01254              BAL,R15  GENERR            #3704
     3946   01 00F47    00000E78 A            DATA     3704              INCORRECT BITS ON TEST
     3947   01 00F48    65A00F41     T1ST3720 BIR,10   T1ST3718          LOOP
     3948   01 00F49    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     3949   01 00F4A    22600000 A            LI,6     0
     3950   01 00F4B    22700000 A            LI,7     0
     3951   01 00F4C    22000D1C              LI,0     DA(SF16CC)        SPACE FWD 9 RECORDS USING CC
     3952   01 00F4D    CC401B8C              SIO,4    *:DEVADDR         SIO
     3953   01 00F4E    33100007 A            MTW,1    7                 TALLY =TALLY+1
     3954   01 00F4F    CDC01B8C              TIO,12   *:DEVADDR         WAIT WHILE BUSY
     3955   01 00F50    69C00F4E              BCS,12   %-2
     3956   01 00F51    32C01B5A              LW,12    SAVMODEL
     3957   01 00F52    21C01C9A A            CI,12    7322
     3958   01 00F53    68100F55              BGE     %+2                **  NOT POTTER
     3959   01 00F54    33B01BA3              MTW,-5   TIME3             **  ADJUST LOOP TIME FOR POTTER
     3960   01 00F55    37601BA3              MW,6     TIME3             R7 HAS TIME IN US
     3961   01 00F56    38701B61              SW,7     STRTME            - START TIME
     3962   01 00F57    38700460              SW,7     CHARTR            - CHARACTER TIME FOR 9 RECORDS
     3963   01 00F58    38700466              SW,7     WTRT              - WRITE TO READ TIME
     3964   01 00F59    3870046A              SW,7     WDTIME            - WRITE DELAY TIME
     3965   01 00F5A    2570007D A            SLS,7    -3                TIME/8
     3966   01 00F5B    35701B8B              STW,7    IRGTM             SAVE IRG TIME
     3967                            * COMPARE TIMES TO CORRECT TIMES AND PRINTOUT IF INCORRECT
     3968   01 00F5C    31700464              CW,7     IRGMIN            MINIMUM
     3969   01 00F5D    69100F60              BL       %+3
     3970   01 00F5E    31700463              CW,7     IRGMAX            MAXIMUM
     3971   01 00F5F    69100F7F              BL       T1ST3726          GO TO END OF TEST
     3972   01 00F60    6AF01254              BAL,R15  GENERR            ERROR PRINTOUT
     3973   01 00F61    00000E79 A            DATA     3705              TIME NOT WITHIN TOLERANCE
     3974   01 00F62    32C01B61              LW,12    STRTME            START TIME
     3975   01 00F63    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3976   01 00F64    35F01C61              STW,15   MESSTRT+4
     3977   01 00F65    32C01B8B              LW,12    IRGTM             I R G TIME
     3978   01 00F66    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3979   01 00F67    35F01C54              STW,15   MESIRG+3
     3980   01 00F68    32C00463              LW,12    IRGMAX            IRG MAXIMUM
     3981   01 00F69    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3982   01 00F6A    35F01C5B              STW,15   MESIRG+10
     3983   01 00F6B    32C00464              LW,12    IRGMIN            IRG MINIMUM
     3984   01 00F6C    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     3985   01 00F6D    35F01C59              STW,15   MESIRG+8
     3986   01 00F6E    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3987   01 00F6F    00001C51              DATA     MESIRG
     3988   01 00F70    EAF0021C              BAL,15   *:PRINT
     3989   01 00F71    00001C5D              DATA     MESSTRT           START TIME
     3990                            * PRINTOUT START TIME, IRG TIMES
     3991                            * IF SS1 SET OPERATOR CAN SCOPE
     3992                            * START/STOP TIMES. 1000 RECORDS
     3993   01 00F72    EAF0021D              BAL,15   *:SENSE           CHECK SS1 AND SS3
     3994   01 00F73    2E000000 A            WAIT
     3995   01 00F74    68000F76              B        T1ST3722          SS1 ON
     3996   01 00F75    68000F7F              B        T1ST3726     BYPASS SCOPING AID FOR START/STOP
     3997   01 00F76    6AF0187C     T1ST3722 BAL,15   RWTLP             REWIND TO LOAD POINT
     3998   01 00F77    226FFC18 A            LI,6     -1000
     3999   01 00F78    22000D64     T1ST3723 LI,R0    DA(TW16B)         WRITE 16 BYTES
     4000   01 00F79    6AF011C6              BAL,R15  GENIOXEQ
     4001   01 00F7A    65600F78              BIR,6    T1ST3723
     4002   01 00F7B    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     4003   01 00F7C    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4004   01 00F7D    2E000000 A            WAIT
     4005   01 00F7E    68000F02              B        :T1ST37           RESTART TEST
     4006   01 00F7F    6AF018CE     T1ST3726 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4007   01 00F80    680003C9              B        :TIM              GO TO SEQUENCER


     4009                            *                                   TST1,38 END OF TAPE TEST
     4010                            *                                   ------------------------------------
     4011                            *
     4012                            * THIS TEST WILL CONTINUE TO WRITE N RECORDS UNTIL THE END OF TAPE
     4013                            * INDICATOR IS DETECTED. ONE ADDITIONAL RECORD WILL BE RECORDED AND
     4014                            * THE EOT CONDITION WILL BE VERIFIED AGAIN. K RECORDS,(WHERE K=4 FOR
     4015                            * POTTER OR ELSE K=2), WILL BE READ IN THE BACKWARD DIRECTION.  AFTER
     4016                            * THE LAST READ ORDER THE PROGRAM VERIFIES THAT THE EOT INDICATOR IS
     4017                            * RESET, AND THEN THE TAPE IS REWOUND.
     4018         01 00F81           :T1ST38  EQU     %
     4019   01 00F81    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     4020   01 00F82    22000D0E     T1ST3802 LI,R0    DA(TW1000)        WRITE 1000 BYTES
     4021   01 00F83    6AF011C6              BAL,R15  GENIOXEQ
     4022   01 00F84    CEA01B8C              TDV,10   *:DEVADDR         TDV
     4023   01 00F85    31B02279              CW,11    =X'02000000'      EOT SET
     4024   01 00F86    69400F8D              BCS,4    T1ST3804
     4025   01 00F87    CDA01B8C              TIO,10   *:DEVADDR         TIO
     4026   01 00F88    31B02266              CW,11    =X'08000000'      UE SET
     4027   01 00F89    68400F82              BCR,4    T1ST3802          LOOP TILL EOT
     4028   01 00F8A    6AF0123F              ERROR    3801,T1ST3802     INCORRECT STATUS
            01 00F8B    00000ED9 A
            01 00F8C    68000F82
     4029   01 00F8D    22000CF1     T1ST3804 LI,R0    DA(TSE)           SET ERASE
     4030   01 00F8E    6AF011C6              BAL,R15  GENIOXEQ
     4031   01 00F8F    22F00000 A            LI,15    0
     4032   01 00F90    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     4033   01 00F91    22000D0E              LI,R0    DA(TW1000)        WRITE BEYOND EOT
     4034   01 00F92    6AF011C6              BAL,R15  GENIOXEQ
     4035   01 00F93    6AF0207D              BAL,15   :ERRORT           TEST
     4036   01 00F94    00006654              DATA     BA(TSEQ020)       EOT SET
     4037   01 00F95    68000F99              B        T1ST3806
     4038   01 00F96    6AF01254              BAL,R15  GENERR            #3802
     4039   01 00F97    00000EDA A            DATA     3802              INCORRECT BITS ON TEST
     4040   01 00F98    33101BBC              MTW,1    SPFLAG            ERROR +1
     4041   01 00F99    22000D61     T1ST3806 LI,R0    DA(RB1000)        READ BACKWARD OVER EOF
     4042   01 00F9A    6AF011C6              BAL,R15  GENIOXEQ
     4043   01 00F9B    6AF0207D              BAL,15   :ERRORT           TEST
     4044   01 00F9C    00006654              DATA     BA(TSEQ020)       EOT SET
     4045   01 00F9D    68000FA1              B        T1ST3807
     4046   01 00F9E    6AF01254              BAL,R15  GENERR            #3803
     4047   01 00F9F    00000EDB A            DATA     3803              INCORRECT BITS ON TEST
     4048   01 00FA0    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     4049   01 00FA1    32001B5A     T1ST3807 LW,0     SAVMODEL          IS THIS POTTER
     4050   01 00FA2    21001C84 A            CI,0     7300
     4051   01 00FA3    68100FB0              BGE      T1ST3808+4        B IF NOT
     4052   01 00FA4    22000D61              LI,R0    DA(RB1000)        READY BACKWARDS
     4053   01 00FA5    6AF011C6              BAL,R15  GENIOXEQ
     4054   01 00FA6    6AF0207D              BAL,15   :ERRORT           TEST
     4055   01 00FA7    00006654              DATA     BA(TSEQ020)       EOT SET
     4056   01 00FA8    68000FAC              B        T1ST3808
     4057   01 00FA9    6AF01254              BAL,R15  GENERR            #3808
     4058   01 00FAA    00000EDB A            DATA     3803              INCORRECT BITS ON TEST
     4059   01 00FAB    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     4060   01 00FAC    22000D61     T1ST3808 LI,R0    DA(RB1000)        READ BACKWARDS
     4061   01 00FAD    6AF011C6              BAL,R15  GENIOXEQ
     4062   01 00FAE    22000D61              LI,R0    DA(RB1000)        READ BACKWARDS
     4063   01 00FAF    6AF011C6              BAL,R15  GENIOXEQ
     4064   01 00FB0    6AF0207D              BAL,15   :ERRORT           TEST
     4065   01 00FB1    00006658              DATA     BA(TSEQ021)       EOT RESET
     4066   01 00FB2    68000FB6              B        T1ST3809
     4067   01 00FB3    6AF01254              BAL,R15  GENERR            #3804
     4068   01 00FB4    00000EDC A            DATA     3804              INCORRECT BITS ON TEST
     4069   01 00FB5    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     4070   01 00FB6    32F01BBC     T1ST3809 LW,15    SPFLAG
     4071   01 00FB7    68300FC1              BEZ      T1ST3810
     4072   01 00FB8    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4073   01 00FB9    2E000000 A            WAIT                       HALT ON ERROR IF SS3 RESET
     4074   01 00FBA    68000FBC              B        %+2               LOOP ON ERROR
     4075   01 00FBB    68000FC1              B        T1ST3810          CONTINUE
     4076   01 00FBC    22BFFFEC A            LI,11    -20               SPACE BACKWARD 20 RECORDS FOR RETRY
     4077   01 00FBD    22000D27              LI,R0    DA(SPBRAND)       SPACE BACKWARDS
     4078   01 00FBE    6AF011C6              BAL,R15  GENIOXEQ
     4079   01 00FBF    65B00FBB              BIR,11   %-4
     4080   01 00FC0    68000F82              B        T1ST3802          GO RETRY EOT TEST
     4081   01 00FC1    6AF0187C     T1ST3810 BAL,15   RWTLP             REWIND TO LOAD POINT
     4082   01 00FC2    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4083   01 00FC3    680003C9              B        :TIM              GO TO SEQUENCER


     4085                            *                                   TST1,39 SET CORRECTION TEST
     4086                            *                                   ------------------------------------
     4087                            * THIS ROUTINE REQUIRES THE USER TO FORCE A READ ERROR AS SPECIFIED BY
     4088                            * THE PROGRAM. THIS TEST WILL VERIFY THAT READ ERRORS CAN BE CORRECTED
     4089                            * AND THAT A NONCORRECTABLE STATUS WILL BE RETURNED IF THE ERROR IS
     4090                            * CAUSED BY AT LEAST TWO TRACKS.
     4091                            *  FOR THE READ WITH CORRECTION TEST TO PREVENT SETTING READ REGISTER
     4092                            *  F/F WHEN THE AR SIGNAL IS MISSING IN ALL DUAL THRESHOLD.
     4093                            *        PUT JUMPER FROM GND TO  7W43
     4094                            *                        GND TO 15W41
     4095                            *                        GND TO 15W07
     4096                            *
     4097                            *  TO INSTALL JUMPERS FOR RECOVERABLE READ ERRORS:
     4098                            *        TRACK 1 (CH 0 -DATA BIT 0 )  3V23 (LRCT) TO 19W43
     4099                            *        TRACK 2 (CH 1 -DATA BIT 1 )  3V23 (LRCT) TO 19W28
     4100                            *        TRACK 3 (CH 2 -DATA BIT 2 )  3V23 (LRCT) TO 19W12
     4101                            *        TRACK 4 (CH 3 -DATA BIT 3 )  3V23 (LRCT) TO 19W33
     4102                            *        TRACK 5 (CH 4 -DATA BIT 4 )  3V23 (LRCT) TO 19W17
     4103                            *        TRACK 6 (CH 5 -DATA BIT 5 )  3V23 (LRCT) TO 19W02
     4104                            *        TRACK 7 (CH 6 -DATA BIT 6 )  3V23 (LRCT) TO 18W13
     4105                            *        TRACK 8 (CH 7 -DATA BIT 7 )  3V23 (LRCT) TO 18W33
     4106                            *        TRACK 9 (CH P -DATA PARITY)  3V23 (LRCT) TO 18W18
     4107         01 00FC4           :T1ST39  EQU     %
     4108   01 00FC4    6AF01293              BAL,15  :PCHECK            NO TEST IF POTTER
     4109   01 00FC5    22500001 A            LI,5     1                 TRACKS 1-9 THEN ANY 2
     4110   01 00FC6    32F02285              LW,15    =X'DC76BBDD'      BIT PATTERN
     4111   01 00FC7    35F01F59              STW,15   :PATID+1
     4112   01 00FC8    6AF018F9              BAL,15   SMEARSP           SMEAR SPECIAL PATTERN
     4113   01 00FC9    22400000 A            LI,4     0
     4114   01 00FCA    22600000 A            LI,6     0
     4115   01 00FCB    68000FCE              B        T1ST3901          FIRST TIME BYPASS PRINTOUT
     4116   01 00FCC    EAF0022B              BAL,15   *:WAIT            PRINT MESSAGE TO OPERATOR
     4117   01 00FCD    00001C2E              DATA     OPMESG2
     4118   01 00FCE    22000D01     T1ST3901 LI,R0    DA(TW100B)        WRITE 100 BYTES
     4119   01 00FCF    6AF011C6              BAL,R15  GENIOXEQ
     4120   01 00FD0    22006610              LI,R0    BA(TSEQ011)       READY, NO UE, BC=0
     4121   01 00FD1    6AF01241              BAL,R15  GENFAIL
     4122   01 00FD2    00000F3D A            DATA     3901
     4123   01 00FD3    68000FCE              B        T1ST3901          ERROR LOOP EXIT
     4124   01 00FD4    22000D4E              LI,R0    DA(TRB100B)
     4125   01 00FD5    6AF011C6              BAL,R15  GENIOXEQ          READ BACKWARDS
     4126   01 00FD6    22006604              LI,R0    BA(TSEQ010)
     4127   01 00FD7    6AF01241              BAL,R15  GENFAIL
     4128   01 00FD8    68000FCE              B        T1ST3901          ERROR LOOP EXIT
     4129   01 00FD9    6AF01F68              BAL,15   :COMPARE          COMPARE INFORMATION
     4130   01 00FDA    68000FDE              B        T1ST3905
     4131   01 00FDB    6AF0123F              ERROR    3916,T1ST3901     COMPARE ERROR - TRY REWRITE
            01 00FDC    00000F4C A
            01 00FDD    68000FCE
     4132   01 00FDE    22000D4D     T1ST3905 LI,R0    DA(TRF100B)       READ FORWARDS
     4133   01 00FDF    6AF011C6              BAL,R15  GENIOXEQ
     4134   01 00FE0    22006604              LI,R0    BA(TSEQ010)       READY, NO UE, BC=0
     4135   01 00FE1    6AF01241              BAL,R15  GENFAIL
     4136   01 00FE2    00000F3F A            DATA     3903
     4137   01 00FE3    68000FCE              B        T1ST3901          ERROR LOOP EXIT
     4138   01 00FE4    6AF01F68              BAL,15   :COMPARE          COMPARE INFORMATION
     4139   01 00FE5    68000FE9              B        T1ST3906
     4140   01 00FE6    6AF0123F              ERROR    3917,T1ST3901     INFORMATION ERROR
            01 00FE7    00000F4D A
            01 00FE8    68000FCE
     4141                            * MESSAGE TO OPERATOR TO INSTALL JUMPERS
     4142   01 00FE9    32C00005 A   T1ST3906 LW,12    5                 SET UP TRACK INFORMATION
     4143   01 00FEA    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     4144   01 00FEB    35F01C26              STW,15   OPMESG1+5
     4145   01 00FEC    EAF0022B              BAL,15   *:WAIT            PRINT MESSAGE TO OPERATOR
     4146   01 00FED    00001C21              DATA     OPMESG1
     4147                            * START OF READ BACKWARD TEST
     4148   01 00FEE    22000D4E     T1ST3900 LI,R0    DA(TRB100B)       READ BACKWARDS (ERROR TRACK)
     4149   01 00FEF    6AF011C6              BAL,R15  GENIOXEQ
     4150   01 00FF0    2150000A A            CI,5     10                TWO TRACKS IN ERROR
     4151   01 00FF1    68300FFA              BEZ      T1ST3907
     4152   01 00FF2    2200665C              LI,R0    BA(TSEQ023)       CORRECTABLE TE
     4153   01 00FF3    6AF01241              BAL,R15  GENFAIL
     4154   01 00FF4    00000F40 A            DATA     3904
     4155   01 00FF5    68000FF7              B        %+2               ERROR LOOP EXIT
     4156   01 00FF6    68000FFF              B        T1ST3908           CONTINUE/NORMAL EXIT
     4157   01 00FF7    22000D18     T1ST3902 LI,R0    DA(SF100)         SPACE FORWARDS
     4158   01 00FF8    6AF011C6              BAL,R15  GENIOXEQ
     4159   01 00FF9    68000FEE              B        T1ST3900
     4160   01 00FFA    22006664     T1ST3907 LI,R0    BA(TSEQ024)       UNCORRECTABLE TE
     4161   01 00FFB    6AF01241              BAL,R15  GENFAIL
     4162   01 00FFC    00000F41 A            DATA     3905
     4163   01 00FFD    68000FF7              B        T1ST3902          ERROR LOOP EXIT
     4164   01 00FFE    68001034              B        T1ST3914           CONTINUE/NORMAL EXIT
     4165                            * SENSE, SPACE BKW, SET CORRECTION
     4166   01 00FFF    2280FFFF A   T1ST3908 LI,8     X'FFFF'
     4167   01 01000    75801B5F              STB,8    TSC1D
     4168   01 01001    22000D0D              LI,R0    DA(TSENSE)        SENSE
     4169   01 01002    6AF011C6              BAL,R15  GENIOXEQ
     4170   01 01003    2200666C              LI,R0    BA(TSEQ025)       READY, NO UE
     4171   01 01004    6AF01241              BAL,R15  GENFAIL
     4172   01 01005    00000F42 A            DATA     3906
     4173   01 01006    68000FFF              B        T1ST3908          ERROR LOOP EXIT
     4174   01 01007    72701B5F              LB,7     TSC1D             CHECK SENSE INFORMATION
     4175   01 01008    717C1BB2              CB,7     PT80,6            COMPARE BYTE 80,40,20,10,08,04,02,01
     4176   01 01009    68301018              BE       T1ST3910
     4177   01 0100A    6AF01254              BAL,R15  GENERR            3907
     4178   01 0100B    00000F43 A            DATA     3907              INCORRECT BITS SET ON SENSE
     4179   01 0100C    72C01B5F              LB,12    TSC1D             SENSE INFO
     4180   01 0100D    EAF00218              BAL,15   *:HEXC            CONVERT
     4181   01 0100E    55F01C98              STH,15   MESSEN+3
     4182   01 0100F    72CC1BB2              LB,12    PT80,6            EXPECTED INFO
     4183   01 01010    EAF00218              BAL,15   *:HEXC            CONVERT
     4184   01 01011    55F01C9B              STH,15   MESSEN+6
     4185   01 01012    EAF0021C              BAL,15   *:PRINT           GO TO PRINT SUBR.
     4186   01 01013    00001C95              DATA     MESSEN
     4187   01 01014    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4188   01 01015    2E000000 A            WAIT
     4189   01 01016    68000FF5              B        T1ST3907-5        SPACE FWD AND RETRY
     4190   01 01017    68001034              B        T1ST3914
     4191   01 01018    22000D18     T1ST3910 LI,R0    DA(SF100)         SPACE FORWARD
     4192   01 01019    6AF011C6              BAL,R15  GENIOXEQ
     4193   01 0101A    22000CF0              LI,R0    DA(TSC5)          SET CORRECTION
     4194   01 0101B    6AF011C6              BAL,R15  GENIOXEQ
     4195   01 0101C    22006698              LI,R0    BA(TSEQ035)       READY, NO UE
     4196   01 0101D    6AF01241              BAL,R15  GENFAIL
     4197   01 0101E    00000F44 A            DATA     3908
     4198   01 0101F    68001018              B        T1ST3910          ERROR LOOP EXIT
     4199   01 01020    22F00000 A            LI,15    0
     4200   01 01021    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     4201   01 01022    22000D4E              LI,R0    DA(TRB100B)       READ BACKWARDS (CORRECTION)
     4202   01 01023    6AF011C6              BAL,R15  GENIOXEQ
     4203   01 01024    6AF0207D              BAL,15   :ERRORT           TEST
     4204   01 01025    00006604              DATA     BA(TSEQ010)       NO ERROR EXPECTED ON READ
     4205   01 01026    6800102A              B        T1ST3930
     4206   01 01027    6AF01254              BAL,R15  GENERR            3909
     4207   01 01028    00000F45 A            DATA     3909              INCORRECT STATUS RESPONSE ON SIO
     4208   01 01029    33101BBC              MTW,1    SPFLAG            ERROR FLAG +1
     4209   01 0102A    6AF01F68     T1ST3930 BAL,15   :COMPARE          COMPARE INFORMATION
     4210   01 0102B    6800102F              B        T1ST3930+5        GO CHECK FLAG
     4211   01 0102C    6AF01254              BAL,R15  GENERR            INFORMATION ERROR
     4212   01 0102D    00000F4E A            DATA     3918
     4213   01 0102E    33101BBC              MTW,1    SPFLAG            ERROR +1
     4214   01 0102F    32F01BBC              LW,15    SPFLAG
     4215   01 01030    68301034              BEZ      T1ST3914
     4216   01 01031    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4217   01 01032    2E000000 A            WAIT
     4218   01 01033    68001018              B        T1ST3910          LOOP ON ERROR
     4219                            * START OF READ FORWARD TEST
     4220   01 01034    22000D4D     T1ST3914 LI,R0    DA(TRF100B)       READ FORWARDS
     4221   01 01035    6AF011C6              BAL,R15  GENIOXEQ
     4222   01 01036    2150000A A            CI,5     10                TWO TRACKS IN ERROR
     4223   01 01037    68301042              BEZ      T1ST3916
     4224   01 01038    6AF0207D              BAL,15   :ERRORT           TEST
     4225   01 01039    0000665C              DATA     BA(TSEQ023)       TRANS ERROR, CORRECTABLE
     4226   01 0103A    68001047              B        T1ST3917
     4227   01 0103B    6AF0123F              ERROR    3910              INCORRECT SIO STATUS
            01 0103C    00000F46 A
     4228   01 0103D    6800103F              B        %+2
     4229   01 0103E    6800107A              B        T1ST3925
     4230   01 0103F    22000D19     T1ST3915 LI,R0    DA(SB100)         RETRY=>BACKSPACE
     4231   01 01040    6AF011C6              BAL,R15  GENIOXEQ
     4232   01 01041    68001034              B        T1ST3914           THEN REREAD
     4233   01 01042    22006664     T1ST3916 LI,R0    BA(TSEQ024)       TE, UNCORRECTABLE
     4234   01 01043    6AF01241              BAL,R15  GENFAIL
     4235   01 01044    00000F47 A            DATA     3911
     4236   01 01045    6800103F              B        T1ST3915          BACKSPACE AND RETRY
     4237   01 01046    68001083              B        T1ST3926           SKIP CORRECTION SECTION
     4238   01 01047    2280FFFF A   T1ST3917 LI,8     X'FFFF'
     4239   01 01048    75801B5F              STB,8    TSC1D
     4240   01 01049    22000D0D              LI,R0    DA(TSENSE)        SENSE
     4241   01 0104A    6AF011C6              BAL,R15  GENIOXEQ
     4242   01 0104B    2200666C              LI,R0    BA(TSEQ025)       READY, NO UE
     4243   01 0104C    6AF01241              BAL,R15  GENFAIL
     4244   01 0104D    00000F48 A            DATA     3912
     4245   01 0104E    68001047              B        T1ST3917          RETRY LOOP
     4246   01 0104F    72701B5F              LB,7     TSC1D             CHECK SENSE INFORMATION
     4247   01 01050    717C1BB2              CB,7     PT80,6            COMPARE 80,40,20,10,08,04,02,01,00
     4248   01 01051    6830105E              BE       T1ST3920
     4249   01 01052    72C01B5F              LB,12    TSC1D             SENSE INFO
     4250   01 01053    EAF00218              BAL,15   *:HEXC            CONVERT
     4251   01 01054    55F01C98              STH,15   MESSEN+3
     4252   01 01055    72CC1BB2              LB,12    PT80,6            EXPECTED INFO
     4253   01 01056    EAF00218              BAL,15   *:HEXC            CONVERT
     4254   01 01057    55F01C9B              STH,15   MESSEN+6
     4255   01 01058    EAF0021C              BAL,15   *:PRINT           MESSAGE
     4256   01 01059    00001C95              DATA     MESSEN
     4257   01 0105A    6AF0123F              ERROR    3913,T1ST3915     INCORRECT SENSE BITS
            01 0105B    00000F49 A
            01 0105C    6800103F
     4258   01 0105D    6800107A              B        T1ST3925
     4259   01 0105E    22000D19     T1ST3920 LI,R0    DA(SB100)         SPACE BACKWARDS
     4260   01 0105F    6AF011C6              BAL,R15  GENIOXEQ
     4261   01 01060    22000CF0     T1ST3921 LI,R0    DA(TSC5)          SET CORRECTION
     4262   01 01061    6AF011C6              BAL,R15  GENIOXEQ
     4263   01 01062    2200666C              LI,R0    BA(TSEQ025)       READY, NO UE
     4264   01 01063    6AF01241              BAL,R15  GENFAIL
     4265   01 01064    00000F4A A            DATA     3914
     4266   01 01065    68001060              B        T1ST3921          RETRY LOOP
     4267   01 01066    22F00000 A            LI,15    0
     4268   01 01067    35F01BBC              STW,15   SPFLAG            CLEAR ERROR FLAG
     4269   01 01068    22000D4D              LI,R0    DA(TRF100B)       READ FORWARD WITH CORRECTION
     4270   01 01069    6AF011C6              BAL,R15  GENIOXEQ
     4271   01 0106A    6AF0207D              BAL,15   :ERRORT           TEST
     4272   01 0106B    00006604              DATA     BA(TSEQ010)       NO ERROR EXPECTED ON READ
     4273   01 0106C    68001070              B        T1ST3931
     4274   01 0106D    6AF01254              BAL,R15  GENERR            3915
     4275   01 0106E    00000F4B A            DATA     3915              INCORRECT STATUS RESPONSE ON SIO
     4276   01 0106F    33101BBC              MTW,1    SPFLAG            ERROR +1
     4277   01 01070    6AF01F68     T1ST3931 BAL,15   :COMPARE          COMPARE INFORMATION
     4278   01 01071    68001075              B        T1ST3931+5        GO CHECK FLAG
     4279   01 01072    6AF01254              BAL,R15  GENERR            INFORMATION ERROR
     4280   01 01073    00000F4F A            DATA     3919
     4281   01 01074    33101BBC              MTW,1    SPFLAG            ERROR +1
     4282   01 01075    32F01BBC              LW,15    SPFLAG
     4283   01 01076    6830107A              BEZ      T1ST3925
     4284   01 01077    EAF0021D              BAL,15   *:SENSE           CHECK SENSE SWITCH SETTINGS
     4285   01 01078    2E000000 A            WAIT
     4286   01 01079    6800105E              B        T1ST3920          LOOP ON ERROR
     4287   01 0107A    33100005 A   T1ST3925 MTW,1    5                 NEXT TRACK
     4288   01 0107B    206FFFFC A            AI,6     -4                SET UP NEXT BYTE
     4289   01 0107C    20400001 A            AI,4     1                 SET UP FORWARD BYTE
     4290   01 0107D    2150000A A            CI,5     10                1,2,3,4,5,6,7,8,9 AND ANY 2
     4291   01 0107E    69100FE9              BCS,1    T1ST3906          GO TO  PRINTOUT MESSAGE
     4292                            * CHANGE INFO FOR OPERATOR MESSAGE
     4293   01 0107F    69201083              BCS,2    T1ST3926
     4294   01 01080    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE TO OPERATOR
     4295   01 01081    00001CB0              DATA     OPMESG8
     4296   01 01082    68000FEE              B        T1ST3906+5        GO TO WAIT
     4297                            * MESSAGE FOR OPERATOR TO REMOVE JUMPERS
     4298   01 01083    EAF0022B     T1ST3926 BAL,15   *:WAIT            PRINTOUT MESSAGE
     4299   01 01084    00001C2E              DATA     OPMESG2
     4300   01 01085    22800000 A            LI,8     0
     4301   01 01086    75801B5F              STB,8    TSC1D
     4302   01 01087    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4303   01 01088    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     4304   01 01089    680003C9              B        :TIM              GO TO SEQUENCER
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   36
A    4306                            *                                   TST1,40 OPERATOR CONTROL PANEL TEST
     4307                            *                                   ------------------------------------
     4308                            * THIS TEST WILL CHECK EVERY SWITCH ON THE OPERATOR CONTROL PANEL IN
     4309                            * THE SEQUENCE SPECIFIED BY THE PROGRAM AND VERIFY THE WRITE PROTECT
     4310                            * FEATURE

     4312   01 0108A    229FFFF8 A   :T1ST40  LI,9     -8
     4313   01 0108B    6AF018FB              BAL,15   SMEARPTR          SMEAR PATTERN AND SET UP COMPARE
     4314   01 0108C    3300033A              MTW,0    :CDB+1            LOOK FOR STC UNITS
     4315   01 0108D    693010BD              BNEZ     T1ST40XX          SKIP UNIT DESIGNATION TEST
     4316   01 0108E    32801B8C              LW,8     :DEVADDR          SAVE DEVICE ADDRESS
     4317   01 0108F    32500008 A            LW,5     8                 SET UP UNITS
     4318   01 01090    4B502286              AND,5    =X'1FF0'
     4319   01 01091    35501B8C     T1ST4002 STW,5    :DEVADDR          CHANGE DEVICE DESIGNATION
     4320   01 01092    32C00005 A            LW,12    5
     4321   01 01093    EAF00218              BAL,15   *:HEXC            CONVERT FOR MESSAGE
     4322   01 01094    35F01CAB              STW,15   OPMESG7+4
     4323                            * MESSAGE TO OPERATOR TO DESIGNATE UNIT 0(1,2,3,4,5,6,7)
     4324   01 01095    EAF0022B              BAL,15   *:WAIT            PRINT MESSAGE
     4325   01 01096    00001CA7              DATA     OPMESG7

     4327   01 01097    22000D01     T1ST4003 LI,R0    DA(TW100B)        WRITE A BLOCK
     4328   01 01098    6AF011C6              BAL,R15  GENIOXEQ
     4329   01 01099    22006610              LI,R0    BA(TSEQ011)       NO UE, BC=0, READY
     4330   01 0109A    6AF01241              BAL,R15  GENFAIL
     4331   01 0109B    00000FA1 A            DATA     4001
     4332   01 0109C    68001097              B        T1ST4003          RETRY LOOP

     4334   01 0109D    22000D4E              LI,R0    DA(TRB100B)        READ BACKWARDS
     4335   01 0109E    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND
     4336   01 0109F    22006604              LI,R0    BA(TSEQ010)       NO UE, BC=0, READY, NO IL
     4337   01 010A0    6AF01241              BAL,R15  GENFAIL
     4338   01 010A1    00000FA2 A            DATA     4002
     4339   01 010A2    68001097              B        T1ST4003          RETRY LOOP
     4340   01 010A3    6AF01F68              BAL,15   :COMPARE          COMPARE INFO
     4341   01 010A4    680010A8              B        T1ST4007
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   37
A    4344   01 010A5    6AF0123F              ERROR    4003              INFORMATION ERROR
            01 010A6    00000FA3 A
     4345   01 010A7    680010A8              B        %+1                LOOPING NOT DEFINED
     4346   01 010A8    22000D62     T1ST4007 LI,R0    DA(RF100B)         READ FORWARD
     4347   01 010A9    6AF011C6              BAL,R15  GENIOXEQ           CLEARING BUFFER BEFOREHAND
     4348   01 010AA    22006604              LI,R0    BA(TSEQ010)       NO UE, BC=0, READY, NO IL
     4349   01 010AB    6AF01241              BAL,R15  GENFAIL
     4350   01 010AC    00000FA4 A            DATA     4004
     4351   01 010AD    680010AE              B        %+1               CANNOT LOOP ON THIS ERROR
     4352   01 010AE    6AF01F68              BAL,15   :COMPARE          COMPARE
     4353   01 010AF    680010B0              B        T1ST4010
     4354   01 010B0    33100005 A   T1ST4010 MTW,1    5
     4355   01 010B1    32700005 A            LW,7     5                 LAST DEVICE ADDRESS USED
     4356   01 010B2    6AF0123F              ERROR    4005,T1ST4003     INFORMATION ERROR
            01 010B3    00000FA5 A
            01 010B4    68001097
     4357   01 010B5    33001B89              MTW,0    FLG7315
     4358   01 010B6    683010BA              BEZ      %+4
     4359   01 010B7    21700002 A            CI,7     2
     4360   01 010B8    69101091              BL       T1ST4002
     4361   01 010B9    680010BC              B        %+3
     4362   01 010BA    21700007 A            CI,7     7
     4363   01 010BB    68201091              BCR,2    T1ST4002
     4364   01 010BC    35801B8C              STW,8    :DEVADDR          RESTORE UNIT DESIGNATION
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   38
A    4366                            * REMOVE WRITE RING FOR WRITE VIOLATION TESTING...
     4367   01 010BD    EAF0022B     T1ST40XX BAL,R15  *:WAIT            SIGNAL OPERATOR
     4368   01 010BE    00001C47              DATA     OPMESG6
     4369   01 010BF    6AF0187C              BAL,R15  RWTLP             REWIND TO LOAD POINT

     4371   01 010C0    22000D0E     T1ST4011 LI,R0    DA(TW1000)        WRITE 1000 BYTES
     4372   01 010C1    6AF011C6              BAL,R15  GENIOXEQ

     4374   01 010C2    22006670              LI,R0    BA(TSEQ026)       TEST FOR UE, WRITE VIOLATION
     4375   01 010C3    6AF01241              BAL,R15  GENFAIL           NO RING, BOT, NOT TE
     4376   01 010C4    00000FA6 A            DATA     4006              (ERROR ID)
     4377   01 010C5    680010C0              B        T1ST4011          (LOOP EXIT)

     4379   01 010C6    CF001B8C              HIO,R0   *:DEVADDR         RESET WRITE VIOLATION
     4380   01 010C7    22E00001 A            LI,R14   1                 DELAY ONE MILLISECOND
     4381   01 010C8    6AF01239              BAL,R15  GENDELAY

     4383   01 010C9    22006678              LI,R0    BA(TSEQ026P)      VERIFY WRITE VIOLATION RESET
     4384   01 010CA    6AF01241              BAL,R15  GENFAIL
     4385   01 010CB    00000FBA A            DATA     4026              (ERROR ID)
     4386   01 010CC    680010C0              B        T1ST4011          (LOOP EXIT ON ERROR)

     4388   01 010CD    22000CFF     T1ST4012 LI,R0    DA(TWTM3)         WRITE TAPE MARK
     4389   01 010CE    6AF011C6              BAL,R15  GENIOXEQ

     4391   01 010CF    22006670              LI,R0    BA(TSEQ026)       TEST FOR UE, WRITE VIOLATION,
     4392   01 010D0    6AF01241              BAL,R15  GENFAIL           NO RING, BOT, NOT TE
     4393   01 010D1    00000FA7 A            DATA     4007              (ERROR ID)
     4394   01 010D2    680010CD              B        T1ST4012          (LOOP EXIT)

     4396   01 010D3    CF001B8C              HIO,R0   *:DEVADDR         RESET WRITE VIOLATION
     4397   01 010D4    22E00001 A            LI,R14   1                 DELAY ONE MILLISECOND
     4398   01 010D5    6AF01239              BAL,R15  GENDELAY

     4400   01 010D6    22006678              LI,R0    BA(TSEQ026P)      VERIFY WRITE VIOLATION RESET
     4401   01 010D7    6AF01241              BAL,R15  GENFAIL
     4402   01 010D8    00000FBB A            DATA     4027              (ERROR ID)
     4403   01 010D9    680010CD              B        T1ST4012          (LOOP EXIT ON ERROR)

     4405   01 010DA    3300033A     T1ST4013 MTW,0    :CDB+1            SKIP ERASE TESTING
     4406   01 010DB    683010F5              BEZ      T1ST4016          IF UNIT IS NOT STC

     4408   01 010DC    22000D2E              LI,R0    DA(TST3ERS)       ERASE TAPE SECTION
     4409   01 010DD    6AF011C6              BAL,R15  GENIOXEQ

     4411   01 010DE    22006670              LI,R0    BA(TSEQ026)       TEST FOR UE, WRITE VIOLATION,
     4412   01 010DF    6AF01241              BAL,R15  GENFAIL           NO RING, BOT, NOT TE
     4413   01 010E0    00000FA0 A            DATA     4000              (ERROR ID)
     4414   01 010E1    680010DA              B        T1ST4013          (LOOP EXIT)

     4416   01 010E2    CF001B8C              HIO,R0   *:DEVADDR         RESET WRITE VIOLATION
     4417   01 010E3    22E00001 A            LI,R14   1                 DELAY ONE MILLISECOND
     4418   01 010E4    6AF01239              BAL,R15  GENDELAY

     4420   01 010E5    22006678              LI,R0    BA(TSEQ026P)      VERIFY WRITE VIOLATION RESET
     4421   01 010E6    6AF01241              BAL,R15  GENFAIL
     4422   01 010E7    00000FB4 A            DATA     4020              (ERROR ID)
     4423   01 010E8    680010DA              B        T1ST4013          (LOOP EXIT ON ERROR)
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   39
A    4425                            * ISSUE MESSAGE TO OPERATOR TO RESET, ATTENTION, START
     4426                            * (NO TEST MADE FOR PROPER DEVICE-END BITS)
     4427         01 010E9           T1ST4014 EQU      %
     4428   01 010E9    3300033A              MTW,0    :CDB+1            SKIP TEST IF UNIT IS STC
     4429   01 010EA    693010F5              BNEZ     T1ST4016

     4431   01 010EB    6AF018CE              BAL,R15  CLRDARM           RESET I/O INTERRUPT
     4432   01 010EC    EAF0022B              BAL,R15  *:WAIT
     4433   01 010ED    00001C3F              DATA     OPMESG5

     4435   01 010EE    6AF02071              BAL,R15  :INTAE            ARM-ENABLE I/O INTERRUPT
     4436   01 010EF    22E0012C A            LI,R14   300
     4437   01 010F0    6AF02018              BAL,R15  :DELAY            DELAY FOR 300 MILLISECONDS
     4438   01 010F1    680010F5              B        T1ST4016          AND CONTINUE IF INTERRUPT

     4440   01 010F2    6AF0123F              ERROR    4004,T1ST4014     TIMEOUT ON SIO
            01 010F3    00000FA4 A
            01 010F4    680010E9

     4442                            * MESSAGE FOR OPERATOR TO MAKE UNIT READY, WRITE RING, UNIT OK
     4443   01 010F5    EAF0022B     T1ST4016 BAL,15   *:WAIT            MESSAGE TO OPERATOR
     4444   01 010F6    00001C32              DATA     OPMESG3

     4446   01 010F7    22A00064 A            LI,R10   100               SET TO WRITE 100 RECORDS

     4448         01 010F8           T1ST4017 EQU      %
     4449   01 010F8    22000D0E              LI,R0    DA(TW1000)        WRITE 1000 BYTES
     4450   01 010F9    6AF011C6              BAL,R15  GENIOXEQ
     4451   01 010FA    64A010F8              BDR,R10  T1ST4017          DO NOT CHECK ERRORS

     4453   01 010FB    22000D29              LI,R0    DA(TRWOF)         REWIND - OFFLINE
     4454   01 010FC    6AF011C6              BAL,R15  GENIOXEQ

     4456   01 010FD    22006718              LI,R0    BA(TSEQ4001)
     4457   01 010FE    6AF01241              BAL,R15  GENFAIL
     4458   01 010FF    00000FA9 A            DATA     4009              (ERROR ID)
     4459   01 01100    680010F5              B        T1ST4016          (LOOP EXIT)

     4461                            * MESSAGE TO OPERATOR TO PUT DEVICE AUTOMATIC
     4462   01 01101    EAF0022B     T1ST4018 BAL,15   *:WAIT            MESSAGE TO OPERATOR
     4463   01 01102    00001C39              DATA     OPMESG4

     4465   01 01103    6AF0207D              BAL,15   :ERRORT           TEST
     4466   01 01104    000065DC              DATA     BA(TSEQ005)       LOAD POINT
     4467   01 01105    68001109              B        T1ST4019

     4469   01 01106    6AF0123F              ERROR    4010,T1ST4018     INCORRECT STATUS
            01 01107    00000FAA A
            01 01108    68001101

     4471   01 01109    6AF018CE     T1ST4019 BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT
     4472   01 0110A    680003C9              B        :TIM              GO TO SEQUENCER
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   40
A    4474                            *                                   TST1,41 INTERRUPT LATCH TEST
     4475                            *                                   ----------------------------
     4476                            *
     4477                            * THE PURPOSE OF THIS TEST IS TO DETERMINE HOW A CONTROLLER
     4478                            * RESPONDS TO I/O INSTRUCTIONS WHEN INTERRUPTS ARE PENDING.
     4479                            *
     4480                            * FOR EACH OF TWO CASES (DEVICE-END PENDING AND CHANNEL-END PENDING),
     4481                            * A SET OF I/O INSTRUCTIONS (HIO, TIO, AND TDV) IS ISSUED TO ANOTHER
     4482                            * UNIT ON THE SAME CONTROLLER AS THE UNIT CURRENTLY UNDER TEST.
     4483                            * ANOTHER SET OF I/O INSTRUCTIONS (SIO, HIO, TIO, AND TDV) IS THEN
     4484                            * ISSUED TO THE ACTUAL UNIT UNDER TEST.  THE RESULTS OF EACH I/O
     4485                            * INSTRUCTION (STATUS AND CONDITION CODES) ARE DISPLAYED.

     4487         01 0110B           :T1ST41  EQU      %
     4488   01 0110B    6AF0187C              BAL,R15  RWTLP             REWIND TO LOAD POINT

     4490         01 0110C           T1ST4101 EQU      %
     4491   01 0110C    EAF0021C              BAL,R15  *:PRINT           DISPLAY DEVICE-END MESSAGE
     4492   01 0110D    00001D1E              DATA     TST41MG0

     4494   01 0110E    22000CF9              LI,R0    DA(TRWAI)         REWIND AND INTERRUPT
     4495   01 0110F    6AF01EC7              BAL,R15  :IOEXEC

     4497   01 01110    22E001F4 A            LI,R14   500               WAIT FOR CONTROLLER TO
     4498   01 01111    6AF01239              BAL,R15  GENDELAY           RETURN TO THE READY STATE

     4500   01 01112    22006720              LI,R0    BA(TSEQ4101)      OLD TAPES (WANGS) TURN
     4501   01 01113    6AF01241              BAL,R15  GENFAIL           ON EOF BIT (TDV 3)
     4502   01 01114    00001005 A            DATA     4101              (ERROR ID)
     4503   01 01115    6800110C              B        T1ST4101          (LOOP EXIT)

     4505   01 01116    6AF011CC              BAL,R15  TST41SNP          GATHER/DISPLAY STATUS

     4507         01 01117           T1ST4102 EQU      %
     4508   01 01117    EAF0021C              BAL,R15  *:PRINT           DISPLAY CHANNEL-END MESSAGE
     4509   01 01118    00001D26              DATA     TST41MG1

     4511   01 01119    22000CE8              LI,R0    DA(TWR3)          GENERATE AN INTERRUPT
     4512   01 0111A    6AF01EC7              BAL,R15  :IOEXEC           (UE OR CE)

     4514   01 0111B    22006728              LI,R0    BA(TSEQ4102)      CHECK UE AND INTERRUPT
     4515   01 0111C    6AF01241              BAL,R15  GENFAIL
     4516   01 0111D    00001006 A            DATA     4102              (ERROR ID)
     4517   01 0111E    68001117              B        T1ST4102          (LOOP EXIT)

     4519   01 0111F    6AF011CC              BAL,R15  TST41SNP          GATHER/DISPLAY STATUS

     4521   01 01120    6AF018CE              BAL,R15  CLRDARM           CLEAR INTERRUPT (SECURITY)
     4522   01 01121    680003C9              B        :TIM              TEST COMPLETE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   41
A    4524                            *                                   TST1,42 INTERRUPT TIMING TESTS
     4525                            *                                   ------------------------------
     4526                            *
     4527                            * THIS TEST WILL DETERMINE THE ELAPSED TIME BETWEEN
     4528                            * REWIND START AND CHANNEL-END OR DEVICE-END WHEN THE
     4529                            * TAPE UNIT IS IN VARIOUS CONDITIONS (AT BOT, IN READ STATUS,
     4530                            * OR IN WRITE STATUS).

     4532         01 01122           :T1ST42  EQU      %
     4533   01 01122    6AF01156              BAL,R15  REWDLY

     4535   01 01123    22000CF7              LI,R0    DA(TRWOI)         REWIND/CE AT BOT
     4536   01 01124    6AF0113D              BAL,R15  TIMDLY
     4537   01 01125    00001164              DATA     TIMMSG0

     4539   01 01126    6AF01156              BAL,R15  REWDLY

     4541   01 01127    22000CF9              LI,R0    DA(TRWAI)         REWIND/DE AT BOT
     4542   01 01128    6AF0113D              BAL,R15  TIMDLY
     4543   01 01129    00001169              DATA     TIMMSG1

     4545   01 0112A    6AF01156              BAL,R15  REWDLY
     4546   01 0112B    6AF01150              BAL,R15  TIMWRT            WRITE 100 1000-BYTE BLOCKS

     4548   01 0112C    22000CF7              LI,R0    DA(TRWOI)         REWIND/CE IN WRITE STATUS
     4549   01 0112D    6AF0113D              BAL,R15  TIMDLY
     4550   01 0112E    0000116E              DATA     TIMMSG2

     4552   01 0112F    6AF01156              BAL,R15  REWDLY
     4553   01 01130    6AF01150              BAL,R15  TIMWRT            WRITE 100 1000-BYTE BLOCKS

     4555   01 01131    22000CF9              LI,R0    DA(TRWAI)         REWIND/DE IN WRITE STATUS
     4556   01 01132    6AF0113D              BAL,R15  TIMDLY
     4557   01 01133    00001175              DATA     TIMMSG3

     4559   01 01134    6AF01156              BAL,R15  REWDLY
     4560   01 01135    6AF01150              BAL,R15  TIMWRT            WRITE 100 1000-BYTE BLOCKS

     4562   01 01136    22000D19              LI,R0    DA(SB100)         BACKSPACE TO CLEAR WRITE
     4563   01 01137    6AF011C6              BAL,R15  GENIOXEQ

     4565   01 01138    22000CF7              LI,R0    DA(TRWOI)         REWIND/CE IN READ STATUS
     4566   01 01139    6AF0113D              BAL,R15  TIMDLY
     4567   01 0113A    0000117C              DATA     TIMMSG4

     4569   01 0113B    6AF01156              BAL,R15  REWDLY
     4570   01 0113C    680003C9              B        :TIM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   42
A    4572         01 0113D           TIMDLY   EQU      %
     4573   01 0113D    35F0115C              STW,R15  TIMLNK

     4575   01 0113E    B2F0000F A            LW,R15   *R15              FETCH MESSAGE POINTER
     4576   01 0113F    3310115C              MTW,1    TIMLNK             UPDATE RETURN ADDRESS
     4577   01 01140    35F01142              STW,R15  %+2                 PUT MESSAGE POINTER IN PLACE

     4579   01 01141    EAF0021C              BAL,R15  *:PRINT           DISPLAY START MESSAGE
     4580   01 01142    00000000 A            DATA     0

     4582   01 01143    6AF018C6              BAL,R15  CLRARM            SET THE I/O INTERRUPT
     4583   01 01144    6AF01EC7              BAL,R15  :IOEXEC           START THE I/O PROGRAM

     4585   01 01145    22E01388 A            LI,R14   5000              INITIALIZE THE TIMEOUT
     4586   01 01146    6AF02018              BAL,R15  :DELAY
     4587   01 01147    6800114A              B        TIMDLZ            SKIP IF NO TIMEOUT

     4589   01 01148    6AF01892              BAL,R15  RESETS            HIO TO RESET THE DEVICE
     4590   01 01149    22E01388 A            LI,R14   5000               AND SET TIMEOUT VALUE

     4592         01 0114A           TIMDLZ   EQU      %
     4593   01 0114A    32C0000E A            LW,R12   R14               CONVERT ELAPSED TIME
     4594   01 0114B    EAF00217              BAL,R15  *:DECC             TO DECIMAL AND DISPLAY
     4595   01 0114C    35F01163              STW,R15  TIMMSG+6

     4597   01 0114D    EAF0021C              BAL,R15  *:PRINT
     4598   01 0114E    0000115D              DATA     TIMMSG

     4600   01 0114F    E800115C              B        *TIMLNK

     4602         01 01150           TIMWRT   EQU      %
     4603   01 01150    35F0115C              STW,R15  TIMLNK

     4605   01 01151    228FFF9C A            LI,R8    -100              SET FOR 100 BLOCKS

     4607   01 01152    22000D0E              LI,R0    DA(TW1000)        WRITE A 1000-BYTE BLOCK
     4608   01 01153    6AF011C6              BAL,R15  GENIOXEQ
     4609   01 01154    65801152              BIR,R8   %-2                AND LOOP ON TOTAL BLOCKS

     4611   01 01155    E800115C              B        *TIMLNK

     4613         01 01156           REWDLY   EQU      %
     4614   01 01156    35F0115C              STW,R15  TIMLNK

     4616   01 01157    CDF01B8C              TIO,R15  *:DEVADDR         GATHER I/O STATUS
     4617   01 01158    31F0226D              CW,R15   =X'66000000'       AND WAIT IF BUSY
     4618   01 01159    69401157              BANZ     %-2

     4620   01 0115A    6AF0187C              BAL,R15  RWTLP             REWIND UNIT TO BOT

     4622   01 0115B    E800115C              B        *TIMLNK
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   43
A    4624   01 0115C                 TIMLNK   RES      1
     4625   01 0115D    1BC9D5E3 A   TIMMSG   TEXTC    'INTERRUPT TIME IN MS:  XXXX'
            01 0115E    C5D9D9E4 A
            01 0115F    D7E340E3 A
            01 01160    C9D4C540 A
            01 01161    C9D540D4 A
            01 01162    E27A4040 A
            01 01163    E7E7E7E7 A
     4626   01 01164    10D9C5E6 A   TIMMSG0  TEXTC    'REWIND/CE AT BOT'
            01 01165    C9D5C461 A
            01 01166    C3C540C1 A
            01 01167    E340C2D6 A
            01 01168    E3404040 A
     4627   01 01169    10D9C5E6 A   TIMMSG1  TEXTC    'REWIND/DE AT BOT'
            01 0116A    C9D5C461 A
            01 0116B    C4C540C1 A
            01 0116C    E340C2D6 A
            01 0116D    E3404040 A
     4628   01 0116E    19D9C5E6 A   TIMMSG2  TEXTC    'REWIND/CE IN WRITE STATUS'
            01 0116F    C9D5C461 A
            01 01170    C3C540C9 A
            01 01171    D540E6D9 A
            01 01172    C9E3C540 A
            01 01173    E2E3C1E3 A
            01 01174    E4E24040 A
     4629   01 01175    19D9C5E6 A   TIMMSG3  TEXTC    'REWIND/DE IN WRITE STATUS'
            01 01176    C9D5C461 A
            01 01177    C4C540C9 A
            01 01178    D540E6D9 A
            01 01179    C9E3C540 A
            01 0117A    E2E3C1E3 A
            01 0117B    E4E24040 A
     4630   01 0117C    18D9C5E6 A   TIMMSG4  TEXTC    'REWIND/CE IN READ STATUS'
            01 0117D    C9D5C461 A
            01 0117E    C3C540C9 A
            01 0117F    D540D9C5 A
            01 01180    C1C440E2 A
            01 01181    E3C1E3E4 A
            01 01182    E2404040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   44
A    4632                            *                                   TST1,43 DENSITY SELECT TEST
     4633                            *                                   ---------------------------
     4634                            *
     4635                            * THIS TEST WILL CHECK THE INTEGRITY OF THE AUTOMATIC DENSITY
     4636                            * SELECTION MECHANISM FOR STC MAGNETIC TAPE SYSTEMS.  POSITIONS
     4637                            * TAPE AT BOT (SUPPRESSABLE WITH SSW2), ATTEMPTS TO SET DENSITY,
     4638                            * WRITES, REWINDS, AND SKIPS A BLOCK UNDER STATUS CHECK FOR
     4639                            * PROPER DENSITY SELECTION.

     4641         01 01183           :T1ST43  EQU      %                 AUTOMATIC DENSITY SELECTION
     4642   01 01183    22000040 A            LI,R0    X'40'              INITIALIZED TO 800 BPI
     4643   01 01184    750011A4              STB,R0   DENSITY

     4645   01 01185    EAF0022A     T1ST4300 BAL,R15  *:QSENSE          SAMPLE SENSE SWITCHES
     4646   01 01186    69401188              BCS,4    %+2                SKIP REWIND IF SSW2 IS SET
     4647   01 01187    6AF0187C              BAL,R15  RWTLP

     4649   01 01188    220008D7              LI,R0    DA(SETDEN)        SAMPLE SENSE SWITCHES
     4650   01 01189    EAF0022A              BAL,R15  *:QSENSE           SET DENSITY ONLY IF
     4651   01 0118A    6940118C              BCS,4    %+2                 SSW2 IS SET, ELSE
     4652   01 0118B    220008D8              LI,R0    DA(SETWRT)           SET AND WRITE
     4653   01 0118C    6AF011C6              BAL,R15  GENIOXEQ

     4655   01 0118D    724011A4              LB,R4    DENSITY           SELECT PROPER TEST SEQUENCE
     4656   01 0118E    2540007A A            SLS,R4   -6                 FOR CORRESPONDING DENSITY
     4657   01 0118F    320811A4              LW,R0    T1ST43SQ,R4
     4658   01 01190    6AF01241              BAL,R15  GENFAIL           READY, NO UE, X TE, DENSITY
     4659   01 01191    000010CC A            DATA     4300               STATUS ERROR OF ANY KIND
     4660   01 01192    68001185              B        T1ST4300            ERROR AND SSW1 IS SET

     4662   01 01193    EAF0022A              BAL,R15  *:QSENSE          SAMPLE SWITCHES
     4663   01 01194    6940119E              BCS,4    T1ST4302           SKIP IF REWIND SUPPRESSED

     4665   01 01195    6AF0187C     T1ST4301 BAL,R15  RWTLP             REWIND TAPE

     4667   01 01196    220008DA              LI,R0    DA(SETSKP)        SKIP A RECORD
     4668   01 01197    6AF011C6              BAL,R15  GENIOXEQ

     4670   01 01198    724011A4              LB,R4    DENSITY           SELECT PROPER TEST SEQUENCE
     4671   01 01199    2540007A A            SLS,R4   -6                 FOR CORRESPONDING DENSITY
     4672   01 0119A    320811A4              LW,R0    T1ST43SQ,R4
     4673   01 0119B    6AF01241              BAL,R15  GENFAIL           READY, NO UE, X TE, DENSITY
     4674   01 0119C    000010CD A            DATA     4301               STATUS ERROR OF ANY KIND
     4675   01 0119D    68001195              B        T1ST4301            ERROR AND SSW1 SET

     4677   01 0119E    720011A4     T1ST4302 LB,R0    DENSITY           INCREMENT DENSITY
     4678   01 0119F    20000040 A            AI,R0    X'40'              THROUGH 1600, 6250,
     4679   01 011A0    750011A4              STB,R0   DENSITY             AND STOP
     4680   01 011A1    730011A4              MTB,0    DENSITY
     4681   01 011A2    69301185              BNEZ     T1ST4300
     4682   01 011A3    680003C9              B        :TIM

     4684   01 011A4                 DENSITY  RES      1
     4685         01 011A4           T1ST43SQ EQU      %-1
     4686   01 011A5    000046A0              DATA     BA(SEQ43NRZ),BA(SEQ43PE),BA(SEQ43GCR)
            01 011A6    000046A8
            01 011A7    000046B0
     4687   01 011A8    1B14D466 A   SEQ43NRZ :TSEQ    TIOT3,TIOF4,AIOX4,AIOF6,AIOT7       800 BPI
            01 011A9    6F000000 A
     4688   01 011AA    1B14D46E A   SEQ43PE  :TSEQ    TIOT3,TIOF4,AIOX4,AIOT6,AIOF7       1600 BPI
            01 011AB    67000000 A
     4689   01 011AC    1B14D46E A   SEQ43GCR :TSEQ    TIOT3,TIOF4,AIOX4,AIOT6,AIOT7       6250 BPI
            01 011AD    6F000000 A

     4691                                     BOUND    8
     4692   01 011AE    0B004690     SETDEN   GEN,8,24 X'0B',BA(DENSITY) SET DENSITY
     4693   01 011AF    1C000001 A            GEN,8,24 X'1C',1
     4694   01 011B0    0B004690     SETWRT   GEN,8,24 X'0B',BA(DENSITY) SET DENSITY
     4695   01 011B1    2C000001 A            GEN,8,24 X'2C',1            WITH COMMAND CHAINING
     4696   01 011B2    01008A80              GEN,8,24 X'01',BA(BUFF1)   WRITE A BLOCK
     4697   01 011B3    14000800 A            GEN,8,24 X'14',2048         OF 2048 BYTES
     4698   01 011B4    43000000 A   SETSKP   GEN,8,24 X'43',0           SKIP A BLOCK
     4699   01 011B5    14000000 A            GEN,8,24 X'14',0

     4701                            *******************************************
     4702                            *        0 1      SET DENSITY BITS        *
     4703                            *        -------------------------        *
     4704                            *        0 0      NO CHANGE               *
     4705                            *        0 1      800                     *
     4706                            *        1 0      1600                    *
     4707                            *        1 1      6250                    *
     4708                            *        -------------------------        *
     4709                            *        6 7      AIO DENSITY BITS        *
     4710                            *******************************************
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   45
A    4712   01 011B6    35F011CB     IOCDMSG  STW,R15  GENIOXES          DISPLAY IOCD IN HEX
     4713   01 011B7    EAF00218              BAL,15  *:HEXC             (GIVEN IN R12/R13)
     4714   01 011B8    35F01D1A              STW,15   IOCDMSGM+3
     4715   01 011B9    EAF00218              BAL,15  *:HEXC
     4716   01 011BA    35F01D19              STW,15   IOCDMSGM+2
     4717   01 011BB    32C0000D A            LW,12    13
     4718   01 011BC    EAF00218              BAL,15  *:HEXC
     4719   01 011BD    35F01D1D              STW,15   IOCDMSGM+6
     4720   01 011BE    EAF00218              BAL,15  *:HEXC
     4721   01 011BF    35F01D1C              STW,15   IOCDMSGM+5
     4722   01 011C0    EAF0021C              BAL,15   *:PRINT
     4723   01 011C1    00001D17              DATA     IOCDMSGM
     4724   01 011C2    E80011CB              B        *GENIOXES

     4726   01 011C3    35F011CB     GENIOXEC STW,R15  GENIOXES          GENERAL I/O WITH CLEAR

     4728   01 011C4    6AF01F09              BAL,R15  :CLEAR            CLEAR INPUT BUFFER
     4729   01 011C5    680011C7              B        GENIOXET           MERGE FOR I/O EXECUTE

     4731   01 011C6    35F011CB     GENIOXEQ STW,R15  GENIOXES

     4733   01 011C7    6AF018C6     GENIOXET BAL,R15  CLRARM            SET THE I/O INTERRUPT
     4734   01 011C8    6AF01EC7              BAL,R15  :IOEXEC           EXECUTE THE I/O PROGRAM
     4735   01 011C9    6AF0189C              BAL,R15  MYDELAY           DELAY FOR INTERRUPT

     4737   01 011CA    E80011CB              B        *GENIOXES         RETURN TO USER
     4738   01 011CB    00000000 A   GENIOXES DATA     0

     4740   01 011CC    35F011CB     TST41SNP STW,R15  GENIOXES

     4742   01 011CD    6AF011DD              BAL,R15  TST34NXT          FIND ANOTHER UNIT (R7)
     4743   01 011CE    22600001 A            LI,R6    1                 START WITH HIO STATUS
     4744   01 011CF    6AF011FC              BAL,R15  TST34SNS          GATHER STATUS
     4745   01 011D0    6AF0120D              BAL,R15  TST34XSS          DISPLAY STATUS

     4747   01 011D1    22700000 A            LI,R7    0                 POINT TO ORIGINAL UNIT
     4748   01 011D2    6AF011FA              BAL,R15  TST34SNP          GATHER ALL STATUS
     4749   01 011D3    6AF0120C              BAL,R15  TST34XSP          DISPLAY ALL STATUS

     4751   01 011D4    E80011CB              B        *GENIOXES         RETURN

     4753   01 011D5    00E2C9D6 A   TST34IDS DATA     'SIO','HIO','TIO','TDV'
            01 011D6    00C8C9D6 A
            01 011D7    00E3C9D6 A
            01 011D8    00E3C4E5 A
     4754   01 011D9    CCFE1B8C     TST34XEQ SIO,R15  *:DEVADDR,R7      SIO - 0
     4755   01 011DA    CFFE1B8C              HIO,R15  *:DEVADDR,R7      HIO - 1
     4756   01 011DB    CDFE1B8C              TIO,R15  *:DEVADDR,R7      TIO - 2
     4757   01 011DC    CEFE1B8C              TDV,R15  *:DEVADDR,R7      TDV - 3

     4759   01 011DD    32701B96     TST34NXT LW,R7    SAVNUMB           IF ONLY ONE UNIT
     4760   01 011DE    21700001 A            CI,R7    1                  IN SYST THEN USE NEXT
     4761   01 011DF    E830000F A            BE       *R15                UNIT FOR TESTING (+1)

     4763   01 011E0    22700000 A            LI,R7    0                 IF THIS IS NOT THE FIRST
     4764   01 011E1    31701B8D              CW,R7    SAVESIX            UNIT IN THE SYST USE 0
     4765   01 011E2    693011E4              BNE      %+2                 ELSE USE 1 AS THE INDEX
     4766   01 011E3    22700001 A            LI,R7    1

     4768   01 011E4    327E1B8E              LW,R7    SAVDEV,R7         GET INDEXED DEVICE
     4769   01 011E5    38701B8C              SW,R7    :DEVADDR           COMPUTE DIFFERENCE
     4770   01 011E6    E800000F A            B        *R15                FOR POST-INDEXNG
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   46
A    4772         01 011E7           TST34TST EQU      %
     4773   01 011E7    3300033A              MTW,0    :CDB+1            DO NOT TEST NON-STC TAPES
     4774   01 011E8    E830000F A            BEZ      *R15              (ALWAYS SUCCEEDS)

     4776   01 011E9    720C1209              LB,R0    TST34CCS,R6       FETCH CONDITION CODES
     4777   01 011EA    4B002287              AND,R0   =X'C0'            MASK FOR CC1, CC2

     4779   01 011EB    210000C0 A            CI,R0    X'C0'             NOT THERE, THEN NO TESTING
     4780   01 011EC    E830000F A            BE       *R15              (ALWAYS SUCCEEDS)

     4782   01 011ED    33001208              MTW,0    TST34REG          SKIP IF SCAN ALL STATUS
     4783   01 011EE    683011F2              BEZ      TST34TS0

     4785   01 011EF    21000080 A            CI,R0    X'80'             PARTIAL SCAN:
     4786   01 011F0    E942000F A            BANZ     *R15,R1           DISPLAY IF CC1.NE.0
     4787   01 011F1    680011F6              B        TST34TS1

     4789         01 011F2           TST34TS0 EQU      %
     4790   01 011F2    21000080 A            CI,R0    X'80'             TOTAL SCAN:
     4791   01 011F3    E932000F A            BNE      *R15,R1           DISPLAY IF CC1,2.NE.1,0

     4793   01 011F4    520C120A              LH,R0    TST34STK,R6       DISPLAY IF STATUS.NE.0
     4794   01 011F5    E932000F A            BNEZ     *R15,R1           (REALLY A CPU CHECK)

     4796         01 011F6           TST34TS1 EQU      %
     4797   01 011F6    20600001 A            AI,R6    1                 UPDATE STATUS INDEX
     4798   01 011F7    21600004 A            CI,R6    4                 AND CHECK FOR LIMIT
     4799   01 011F8    693011E7              BNE      TST34TST
     4800   01 011F9    E800000F A            B        *R15              RETURN NORMALLY

     4802   01 011FA    22600000 A   TST34SNP LI,R6    0                 SET TO SCAN ALL STATUS
     4803   01 011FB    22000CE6              LI,R0    DA(TWR1)          POINT TO INVALID ORDER

     4805   01 011FC    35F01207     TST34SNS STW,R15  TST34LNK          SAVE RETURN ADDRESS
     4806   01 011FD    35601208              STW,R6   TST34REG          SAVE STATUS INDEX

     4808   01 011FE    670C11D9     TST34SN0 EXU      TST34XEQ,R6       EXECUTE STATUS INSTRUCTION
     4809   01 011FF    740C1209              STCF     TST34CCS,R6       SAVE CONDITION CODES
     4810   01 01200    52F0000F A            LH,R15   R15               POSITION UPPER 16 BITS
     4811   01 01201    55FC120A              STH,R15  TST34STK,R6       SAVE I/O STATUS

     4813   01 01202    20600001 A            AI,R6    1                 POINT TO NEXT STATUS
     4814   01 01203    21600004 A            CI,R6    4                 (SIO,HIO,TIO,TDV)
     4815   01 01204    693011FE              BNE      TST34SN0

     4817   01 01205    32601208              LW,R6    TST34REG          RESTORE ORIGINAL INDEX
     4818   01 01206    E8001207              B        *TST34LNK

     4820   01 01207    00000000 A   TST34LNK DATA     0                 RETURN ADDRESS
     4821   01 01208    00000000 A   TST34REG DATA     0                 ORIGINAL STATUS INDEX
     4822   01 01209    00000000 A   TST34CCS DATA     0                 CONDITION CODES
     4823   01 0120A                 TST34STK RES      2                 I/O STATUS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   47
A    4825   01 0120C    22600000 A   TST34XSP LI,R6    0                 FULL STATUS DISPLAY
     4826   01 0120D    22800000 A   TST34XSS LI,R8    0                 PARTIAL STATUS DISPLAY
     4827   01 0120E    35601208              STW,R6   TST34REG           SAVE ORIGINAL INDEX
     4828   01 0120F    35F01207              STW,R15  TST34LNK           SAVE RETURN ADDRESS
     4829   01 01210    68001218              B        TST34DST          ENTER AFTER STATUS CHECK

     4831   01 01211    22600000 A   TST34DSP LI,R6    0                 FULL STATUS DISPLAY
     4832   01 01212    22800000 A   TST34DSS LI,R8    0                 SET FIRST LINE FLAG
     4833   01 01213    35601208              STW,R6   TST34REG          SAVE ORIGINAL INDEX
     4834   01 01214    35F01207              STW,R15  TST34LNK          SAVE RETURN ADDRESS

     4836   01 01215    6AF011E7              BAL,R15  TST34TST          DO NOT DISPLAY
     4837   01 01216    E8001207              B        *TST34LNK         IF NO STATUS ERRORS

     4839   01 01217    32601208              LW,R6    TST34REG          RESTORE ORIGINAL INDEX

     4841   01 01218    EAF0021C     TST34DST BAL,R15  *:PRINT           DISPLAY HEADER
     4842   01 01219    00001EA0              DATA     :STATEM1

     4844   01 0121A    324C11D5     TST34DS0 LW,R4    TST34IDS,R6       GET NAME OF STATUS
     4845   01 0121B    72501EAC              LB,R5    :STATEM2          GET TEXTC LENGTH
     4846   01 0121C    35401EAC              STW,R4   :STATEM2          INSERT NAME IN LINE
     4847   01 0121D    75501EAC              STB,R5   :STATEM2          INSERT TEXTC LENGTH IN LINE

     4849   01 0121E    22500012 A            LI,R5    18                END OF STATUS STRING
     4850   01 0121F    52CC120A              LH,R12   TST34STK,R6       FETCH ACTUAL STATUS

     4852   01 01220    22400004 A   TST34DS1 LI,R4    4                 FOUR HEX DIGITS
     4853   01 01221    EAF00216              BAL,R15  *:BINC            CONVERT PART OF STATUS

     4855   01 01222    75FA1EAF              STB,R15  :STATEM2+3,R5     SAVE HEX DIGIT IN LINE
     4856   01 01223    205FFFFF A            AI,R5    -1                POINT TO NEXT DIGIT
     4857   01 01224    25F00078 A            SLS,R15  -8                POSITION NEXT DIGIT
     4858   01 01225    64401222              BDR,R4   %-3
     4859   01 01226    64501220              BDR,R5   TST34DS1          GET NEXT FOUR DIGITS

     4861   01 01227    72CC1209              LB,R12   TST34CCS,R6       GET CONDITION CODES
     4862   01 01228    25C0007A A            SLS,R12  -6                SHIFT FOR CC1,2
     4863   01 01229    EAF00216              BAL,R15  *:BINC
     4864   01 0122A    55F21EB4              STH,R15  :STATEM2+8,R1     INSERT INTO LINE

     4866   01 0122B    32F01EA1              LW,R15   :STATEM1+1        FETCH BLANKS
     4867   01 0122C    21800000 A            CI,R8    0                 SKIP ADDRESS CONVERSION
     4868   01 0122D    69301231              BNE      TST34DS2          IF NOT FIRST STATUS LINE

     4870   01 0122E    32C01B8C              LW,R12   :DEVADDR          ELSE GET UNIT ADDRESS
     4871   01 0122F    30C00007 A            AW,R12   R7                ADD DISPLACEMENT TO NEXT UNIT
     4872   01 01230    EAF00218              BAL,R15  *:HEXC

     4874   01 01231    35F01EB6     TST34DS2 STW,R15  :STATEM2+10       SAVE BLANKS OR UNIT ADDRESS

     4876   01 01232    EAF0021C              BAL,R15  *:PRINT
     4877   01 01233    00001EAC              DATA     :STATEM2          THEN DISPLAY STATUS LINE

     4879   01 01234    20800001 A            AI,R8    1                 CLEAR FIRST LINE FLAG
     4880   01 01235    20600001 A            AI,R6    1                 POINT TO NEXT STATUS
     4881   01 01236    21600004 A            CI,R6    4
     4882   01 01237    6930121A              BNE      TST34DS0
     4883   01 01238    E8001207              B        *TST34LNK
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   48
A    4885   01 01239    35F0123E     GENDELAY STW,R15  GENDY0            GENERAL DELAY - MILLISECONDS
     4886   01 0123A    6AF018CE              BAL,R15  CLRDARM
     4887   01 0123B    6AF02018              BAL,R15  :DELAY            DELAY FOR I/O INTERRUPT
     4888   01 0123C    E800123E              B        *GENDY0           INT. FLG. SET (NEVER)
     4889   01 0123D    E800123E              B        *GENDY0           TIMEOUT (REAL TIME ELAPSED)
     4890   01 0123E    00000000 A   GENDY0   DATA     0

     4892   01 0123F    22E0124C     GENERROR LI,R14   GENFAILV          NULL ERROR HANDLER
     4893   01 01240    68001244              B        GENFAIL0

     4895   01 01241    22E0207D     GENFAIL  LI,R14   :ERRORT           GENERAL ERROR HANDLER
     4896   01 01242    68001244              B        GENFAIL0

     4898   01 01243    22E0207C     GENFAILS LI,R14   :ERRORS           FORCED ERROR HANDLER

     4900   01 01244    35F01253     GENFAIL0 STW,R15  GENFAILZ          SAVE RETURN ADDRESS

     4902   01 01245    B2F0000F A            LW,R15   *R15              FETCH ERROR ID AND
     4903   01 01246    35F0124D              STW,R15  GENFAILY          SAVE IN MONITOR CALL

     4905   01 01247    3500124A              STW,R0   GENFAILX          SAVE POINTER TO ERROR PATTERN
     4906   01 01248    33101253              MTW,1    GENFAILZ          POINT TO ERROR EXIT

     4908   01 01249    EAF0000E A            BAL,R15  *R14              CALL ERROR PATTERN CHECKER
     4909   01 0124A    00000000 A   GENFAILX DATA     0
     4910   01 0124B    68001251              B        GENFAILW          NORMAL EXIT

     4912   01 0124C    6AF01254     GENFAILV BAL,R15  GENERR
     4913   01 0124D    00000000 A   GENFAILY DATA     0                 DISPLAY ERROR ID

     4915   01 0124E    EAF0021D              BAL,R15  *:SENSE
     4916   01 0124F    2E000000 A            WAIT
     4917   01 01250    E8001253              B        *GENFAILZ         LOOP EXIT

     4919   01 01251    33101253     GENFAILW MTW,1    GENFAILZ          SKIP ERROR EXIT
     4920   01 01252    E8001253              B        *GENFAILZ
     4921   01 01253    00000000 A   GENFAILZ DATA     0
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   49
A    4923   01 01254    35F01268     GENERR   STW,R15  GENERRL           GENERAL ERROR ROUTINE
     4924   01 01255    33101268              MTW,1    GENERRL            POINT TO RETURN ADDRESS

     4926   01 01256    B2C0000F A            LW,R12   *R15              DISPLAY ERROR ID
     4927   01 01257    EAF00217              BAL,R15  *:DECC
     4928   01 01258    32E02288              LW,R14   =' LO:'
     4929   01 01259    25E00318 A            SCD,R14  24
     4930   01 0125A    35E0126A              STW,R14  GENERRM+1
     4931   01 0125B    35F0126B              STW,R15  GENERRM+2

     4933   01 0125C    32C01253              LW,R12   GENFAILZ          DISPLAY PROBABLE CALLING ADDRESS
     4934   01 0125D    20CFFFFE A            AI,R12   -2
     4935   01 0125E    EAF00218              BAL,R15  *:HEXC

     4937   01 0125F    32E02289              LW,R14   ='  C:'
     4938   01 01260    25E00310 A            SCD,R14  16
     4939   01 01261    35E0126C              STW,R14  GENERRM+3
     4940   01 01262    35F0126D              STW,R15  GENERRM+4

     4942   01 01263    EAF0021C              BAL,R15  *:PRINT
     4943   01 01264    00001D07              DATA     SPACE
     4944   01 01265    EAF0021C              BAL,R15  *:PRINT
     4945   01 01266    00001269              DATA     GENERRM
     4946   01 01267    E8001268              B        *GENERRL

     4948   01 01268                 GENERRL  RES      1
     4949   01 01269    11C5D9D9 A   GENERRM  TEXTC    'ERR:XXXX LOC:XXXX'
            01 0126A    7AE7E7E7 A
            01 0126B    E740D3D6 A
            01 0126C    C37AE7E7 A
            01 0126D    E7E74040 A
     4950   01 0126E    104B4B4B A   GENSKPM  TEXTC    '...SKIPPED (N/A)'                                *G02
            01 0126F    E2D2C9D7 A
            01 01270    D7C5C440 A
            01 01271    4DD561C1 A
            01 01272    5D404040 A
     4951   01 01273    220000FF A   SETTE    LI,R0    X'FF'             SET TE BIT IN DEFAULT MASKS
     4952   01 01274    75042232              STB,R0   :SAVETAB+2,R2      OSB MASK
     4953   01 01275    75042237              STB,R0   :SAVETAB+7,R2      ISB MASK
     4954   01 01276    E800000F A            B        *R15

     4956   01 01277    220000BF A   CLRTE    LI,R0    X'BF'             RESET TE BIT IN DEFAULT MASKS
     4957   01 01278    75042232              STB,R0   :SAVETAB+2,R2      OSB MASK
     4958   01 01279    75042237              STB,R0   :SAVETAB+7,R2      ISB MASK
     4959   01 0127A    E800000F A            B        *R15

     4961   01 0127B    3300033A     :S0CHECK MTW,0    :CDB+1            FILTER VARIOUS TESTS
     4962   01 0127C    E830000F A            BEZ      *R15               CONTINUE IF NOT STC
     4963   01 0127D    32000201              LW,0     :P1
     4964   01 0127E    31000202              CW,0     :P2
     4965   01 0127F    E830000F A            BE       *R15              CONTINUE IF SINGLE SUBTEST
     4966   01 01280    6800128E              B        :SKIP              ELSE RETURN TO MONITOR         *G02

     4968   01 01281    32000201     :S1CHECK LW,R0    :P1               EXECUTE IF EXPLICIT SUBTEST
     4969   01 01282    31000202              CW,R0    :P2                WAS SPECIFIED
     4970   01 01283    E830000F A            BE       *R15
     4971   01 01284    3200033A              LW,R0    :CDB+1            EXECUTE IF DENSITY
     4972   01 01285    21000320 A            CI,R0    800                IS .GE. 1600
     4973   01 01286    E920000F A            BG       *R15
        1*  01 01287    6800128E              B        :SKIP                                             *H00

        3*  01 01288    32000201     :S2CHECK LW,R0    :P1               EXECUTE SUBTEST IF              *H00
        4*  01 01289    31000202              CW,R0    :P2                EXPLICITLY SPECIFIED           *H00
        5*  01 0128A    E830000F A            BE       *R15                                              *H00

        7*  01 0128B    52020339              LH,R0    :CDB,1            SUPPRESS SUBTEST IF             *H00
        8*  01 0128C    210000C8 A            CI,R0    200                STC LONG COLUMN                *H00
        9*  01 0128D    E930000F A            BNE      *R15                                              *H00

        1*  01 0128E    EAF0022A     :SKIP    BAL,R15  *:QSENSE          SUPPRESS SKIP MESSAGE           *H00
        2*  01 0128F    694003C9              BCS,4    :TIM               IF SUBTEST ID SUPPRESSED       *H00

        4*  01 01290    EAF0021C              BAL,R15  *:PRINT           INDICATE SUBTEST SKIPPED        *H00
     4976   01 01291    0000126E              DATA     GENSKPM                                           *G02
     4977   01 01292    680003C9              B        :TIM              RETURN TO MONITOR               *G02

     4979   01 01293    32701B5A     :PCHECK  LW,7     SAVMODEL          DISTINGUISH BETWEEN
     4980   01 01294    21701C84 A            CI,7     7300              WANG AND (STC,POTTER)
     4981   01 01295    6910128E              BL       :SKIP             RETURN IF NOT WANG              *G02
     4982   01 01296    E800000F A            B        *15               ELSE CONTINUE WITH TEST
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   50
A    4984                            *                                   TST2 RANDOM EXERCISER
     4985                            *                                   -----------------------------------
     4986                            *                    THIS TEST PROVIDES A MEANS OF OPERATING A MAGNETIC
     4987                            *                    TAPE SYSTEM WITH PSEUDO-RANDOM OPERATION, ORDER
     4988                            *                    SEQUENCE, DATA PATTERN, I/O AREA, TIME DELAY, AND
     4989                            *                    RECORD SIZE FOR THE PURPOSE OF DETECTING INTERMIT-
     4990                            *                    TENT FAILURES AND EXERCISING ALL TAPE UNITS.
     4991                            *
     4992                            *                    THE RANDOM EXERCISER TEST WILL REPORT ERRORS AS
     4993                            *                    THEY OCCUR, BUT ONLY AS TO THE FUNCTION THAT
     4994                            *                    FAILED. NO ERROR LOOPING IS PROVIDED EXCEPT FOR
     4995                            *                    LIMITED RETRIES.
     4996                            *
     4997                            * FROM THE APPRIOPRATELY RIGHT-SHIFTED RANDOM NUMBER, THE FOLLOWING
     4998                            * MASKS ARE USED TO DETERMINE THE RECORD LENGTH IN BYTES,
     4999                            * THE TIME DELAY IN MILLISECONDS, AND THE OPERATION SET.
     5000                            *
     5001                            *        X'00003FF0' RECORD WORD SIZE
     5002                            *        X'0000C000' BYTE DECREMENT FROM ABOVE
     5003                            *        X'FFFF0000' TIME DELAY IN MILLISECONDS (MASKED FURTHER BY P3)
     5004                            *
     5005                            *        X'0000000F' OPERATION SET:
     5006                            *
     5007                            *                 0  WRITE,WRITE,WRITE,WRITE,WRITE
     5008                            *                 1  WRITE,WRITE,WRITE,WRITE,READ BKW
     5009                            *                 2  WRITE,WRITE,WRITE,WRITE,SPACE BKW
     5010                            *                 3  WRITE,WRITE,WRITE,READ BKW,READ BKW
     5011                            *                 4  WRITE,WRITE,WRITE,READ BKW,SPACE BKW
     5012                            *                 5  WRITE,WRITE,WRITE,SPACE BKW,READ BKW
     5013                            *                 6  WRITE,WRITE,WRITE,SPACE BKW,SPACE BKW
     5014                            *                 7  WRITE,WRITE,WRITE,SPACE BKW,READ FWD
     5015                            *                 8  WRITE,WRITE,WRITE,READ BKW,SPACE FWD
     5016                            *                 9  WRITE,WRITE,READ BKW,READ BKW,READ FWD
     5017                            *                 A  WRITE,WRITE,READ BKW,READ BKW,SPACE FWD
     5018                            *                 B  WRITE,WRITE,SPACE BKW,SPACE BKW,READ FWD
     5019                            *                 C  WRITE,WRITE,SPACE BKW,READ BKW,SPACE FWD
     5020                            *                 D  WRITE,READ BKW,READ FWD,READ BKW,READ FWD
     5021                            *                 E  WRITE,READ BKW,READ FWD,SPACE BKW,READ FWD
     5022                            *                 F  WRITE,SPACE BKW,SPACE FWD,READ BKW,READ FWD
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   51
A    5024   01 01297    32C02260     T2RE     LW,12    =X'12B9B0A1'      M1
     5025   01 01298    32D02261              LW,13    =X'1033C4D7'      M2
     5026   01 01299    32E02262              LW,14    =X'544B2FBA'      SEED
     5027   01 0129A    6AF01EF8              BAL,15   :RANDOMY          RANDOM SEQUENCE IS FIXED

     5029   01 0129B    35101B56              STW,1    LOOPTLY           SET FIRST LOOP TO 1

     5031   01 0129C    227FFFD0 A            LI,7     -48               CLEAR TALLIES
     5032   01 0129D    22600000 A            LI,6     0
     5033   01 0129E    356E1B06              STW,6    TWTALLY+48,7
     5034   01 0129F    6570129E              BIR,7    %-1

     5036   01 012A0    6AF018EE     T2RE00   BAL,R15  RWALL             REWIND ALL UNITS UNDER TEST

     5038   01 012A1    6AF01EFB     T2RE01   BAL,R15  :RANDOMX          SELECT NEW RANDOM NUMBER

     5040   01 012A2    35E0000D A            STW,R14  R13               SAVE RANDOM NUMBER

     5042   01 012A3    4BD0228A              AND,13   =X'0000000F'      GET RANDOM OPERATION SET
     5043   01 012A4    35D01B59              STW,13   OPFLAG

     5045   01 012A5    35E0000D A            STW,14   13
     5046   01 012A6    25D0007C A            SLS,13   -4
     5047   01 012A7    4BD0228B              AND,13   =X'000003FF'      GET RANDOM WORD SIZE
     5048   01 012A8    693012AA              BNEZ     %+2
     5049   01 012A9    20D00001 A            AI,13    1                 DO AT LEAST 1 WORD

     5051   01 012AA    31D01B9A              CW,13    MAXREAD           MAXIMUM WORD SIZE
     5052   01 012AB    682012AD              BLE      %+2
     5053   01 012AC    32D01B9A              LW,13    MAXREAD

     5055   01 012AD    35D01FCE              STW,13   :COMWCNT          COMPARE WORD COUNT
     5056   01 012AE    35D01F18              STW,13   :CLRSIZE          CLEAR BUFFER WORD COUNT
     5057   01 012AF    35D01F5B              STW,13   :PATWC            SPREAD PATTERN SIZE
     5058   01 012B0    25D00002 A            SLS,13   2                 COMPUTE BYTE LENGTH
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   52
A    5060   01 012B1    3270000E A            LW,R7    R14               MASK FOR 2-BIT RANDOM
     5061   01 012B2    25700072 A            SLS,R7   -14                DECREMENT AND COMPUTE
     5062   01 012B3    4B700003 A            AND,R7   R3                  A PROPER RANDOM LENGTH
     5063   01 012B4    38D00007 A            SW,R13   R7
     5064   01 012B5    35D01BD9              STW,R13  LNGTST            SAVE EXPECTED ARS

     5066   01 012B6    23700008 A            MI,R7    8                 COMPUTE BIT SHIFT
     5067   01 012B7    220FFFFF A            LI,R0    -1                 AND PREPARE PARTIAL-WORD
     5068   01 012B8    250E0000 A            SLS,R0   0,R7                MASK FOR PROPER COMPARE
     5069   01 012B9    35001BC2              STW,R0   MASKBYT              OPERATIONS

     5071   01 012BA    6AF01484              BAL,R15  RBUILD            BUILD RANDOM I/O CHAINS

     5073   01 012BB    32F02256              LW,15    BUFF2
     5074   01 012BC    35F01F17              STW,15   :CLRADDR          CLEAR ADDRESS

     5076   01 012BD    35201F58              STW,2    :PATID            SET UP RANDOM PATTERNED AREA
     5077   01 012BE    35E01F59              STW,14   :PATID+1
     5078   01 012BF    22C022A0              LI,12    WA(BUFF1)
     5079   01 012C0    35C01F5C              STW,12   :PATBFR           RANDOM PATTERN
     5080   01 012C1    35C01FCF              STW,12   :COMBFRA          COMPARE EXPECTED BUFFER
     5081   01 012C2    32C02256              LW,12    BUFF2
     5082   01 012C3    35C01FD0              STW,12   :COMBFRB          COMPARE OBSERVED PATTERN
     5083   01 012C4    22C00000 A            LI,12    0
     5084   01 012C5    35C01FD1              STW,12   :COMFLAG          ERROR PRINTOUT
     5085   01 012C6    6AF01F19              BAL,15   :PATTERN          SMEAR PATTERN

     5087   01 012C7    32701FCE              LW,R7    :COMWCNT          SET UP POINTER
     5088   01 012C8    320E229F              LW,R0    BUFF1-1,R7         PICK UP THE LAST WORD AND
     5089   01 012C9    4B001BC2              AND,R0   MASKBYT             MASK OFF THE UNUSED BYTES
     5090   01 012CA    350E229F              STW,R0   BUFF1-1,R7           SO COMPARE FUNCTIONS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   53
A    5092   01 012CB    22500004 A            LI,R5    4                 5 OPERATIONS PER SET
     5093   01 012CC    355012F5              STW,R5   T2RECNT
     5094   01 012CD    32501B59              LW,R5    OPFLAG
     5095   01 012CE    325A12E4              LW,R5    T2RELST,R5        FETCH POINTER TO SET
     5096   01 012CF    355012F4              STW,R5   T2RESET

     5098         01 012D0           T2RE05   EQU      %
     5099   01 012D0    325012F5              LW,R5    T2RECNT           LOAD POINTER TO OPERATION
     5100   01 012D1    F25A12F4              LB,R5    *T2RESET,R5       FETCH OPERATION INDEX

     5102   01 012D2    670A12FC              EXU      T2REXEQ,R5        EXECUTE PROPER BAL

     5104   01 012D3    33F012F5              MTW,-1   T2RECNT           UPDATE POINTER TO OPERATION
     5105   01 012D4    681012D0              BGEZ     T2RE05            AND CONTINUE

     5107   01 012D5    33101B56              MTW,1    LOOPTLY           TALLY OF PASSES +1

     5109   01 012D6    EAF0022A              BAL,R15  *:QSENSE          CHECK SENSE SWITCHES            *G02
     5110   01 012D7    694012DB              BCS,4    T2RE06             STOP IF SSW2 IS SET            *G02

     5112   01 012D8    32601B56              LW,6     LOOPTLY
     5113   01 012D9    31601B58              CW,6     NMLOOP
     5114   01 012DA    682012A1              BLE      T2RE01

     5116   01 012DB    32C01B56     T2RE06   LW,R12   LOOPTLY           CONVERT PASS TALLY              *G02
     5117   01 012DC    20CFFFFF A            AI,R12   -1                                                *G02
     5118   01 012DD    EAF00218              BAL,R15  *:HEXC             TO HEX AND DISPLAY             *G02
     5119   01 012DE    35F01B26              STW,R15  REMSG34+5                                         *G02

     5121   01 012DF    EAF0021C              BAL,R15  *:PRINT                                           *G02
     5122   01 012E0    00001B21              DATA     REMSG34                                           *G02

     5124   01 012E1    6AF01B2A              BAL,R15  T2RESUM           DISPLAY DECIMAL ERROR STATISTICS

     5126   01 012E2    6AF018EE              BAL,R15  RWALL             REWIND ALL UNITS UNDER TEST
     5127   01 012E3    68000525              B        TST203             AND RETURN TO TST2
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   54
A    5129         01 012E4           T2RELST  EQU      %
     5130   01 012E4    00001301              DATA     T2RE050
     5131   01 012E5    00001303              DATA     T2RE051
     5132   01 012E6    00001305              DATA     T2RE052
     5133   01 012E7    00001307              DATA     T2RE053
     5134   01 012E8    00001309              DATA     T2RE054
     5135   01 012E9    0000130B              DATA     T2RE055
     5136   01 012EA    0000130D              DATA     T2RE056
     5137   01 012EB    0000130F              DATA     T2RE057
     5138   01 012EC    00001311              DATA     T2RE058
     5139   01 012ED    00001313              DATA     T2RE059
     5140   01 012EE    00001315              DATA     T2RE05A
     5141   01 012EF    00001317              DATA     T2RE05B
     5142   01 012F0    00001319              DATA     T2RE05C
     5143   01 012F1    0000131B              DATA     T2RE05D
     5144   01 012F2    0000131D              DATA     T2RE05E
     5145   01 012F3    0000131F              DATA     T2RE05F

     5147   01 012F4                 T2RESET  RES      1                 POINTER TO OPERATION SET
     5148   01 012F5                 T2RECNT  RES      1                 POINTER WITHIN OPERATION SET
     5149   01 012F6                 T2REBAD  RES      1                 ERROR FLAG
     5150   01 012F7                 T2RETRY  RES      1                 REMAINING RETRIES
     5151   01 012F8                 T2RELNK0 RES      1                 VARIOUS
     5152   01 012F9                 T2RELNK1 RES      1                  RETURN
     5153   01 012FA                 T2RELNK2 RES      1                   ADDRESSES
     5154   01 012FB                 T2RELINK RES      1

     5156         01 012FC           T2REXEQ  EQU      %
     5157   01 012FC    6AF01321              BAL,R15  T2REW             0 - WRITE FORWARD
     5158   01 012FD    6AF01366              BAL,R15  T2RESB            1 - SPACE BACKWARD
     5159   01 012FE    6AF0135A              BAL,R15  T2RESF            2 - SPACE FORWARD
     5160   01 012FF    6AF01346              BAL,R15  T2RERB            3 - READ BACKWARD
     5161   01 01300    6AF01332              BAL,R15  T2RERF            4 - READ FORWARD
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   55
A    5163         00000000           REDATA   CNAME
     5164                                     PROC
     5165                                     LOCAL    INDEX
     5166                                     BOUND    4
     5167                            LF       EQU      %
     5168                            INDEX    DO       NUM(AF)
     5169                                     DATA,1   AF(NUM(AF)+1-INDEX)
     5170                                     FIN
     5171                                     BOUND    4
     5172                                     PEND

     5174         00000000           WF       EQU      0                 WRITE FORWARD
     5175         00000001           SB       EQU      1                 SPACE BACKWARD
     5176         00000002           SF       EQU      2                 SPACE FORWARD
     5177         00000003           RB       EQU      3                 READ BACKWARD
     5178         00000004           RF       EQU      4                 READ FORWARD
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   56
A    5180   01 01301    00       A   T2RE050  REDATA   WF,WF,WF,WF,WF    0
            01 01301 1  00       A
            01 01301 2  00       A
            01 01301 3  00       A
            01 01302    00       A
     5181   01 01303    03       A   T2RE051  REDATA   WF,WF,WF,WF,RB    1
            01 01303 1  00       A
            01 01303 2  00       A
            01 01303 3  00       A
            01 01304    00       A
     5182   01 01305    01       A   T2RE052  REDATA   WF,WF,WF,WF,SB    2
            01 01305 1  00       A
            01 01305 2  00       A
            01 01305 3  00       A
            01 01306    00       A
     5183   01 01307    03       A   T2RE053  REDATA   WF,WF,WF,RB,RB    3
            01 01307 1  03       A
            01 01307 2  00       A
            01 01307 3  00       A
            01 01308    00       A
     5184   01 01309    01       A   T2RE054  REDATA   WF,WF,WF,RB,SB    4
            01 01309 1  03       A
            01 01309 2  00       A
            01 01309 3  00       A
            01 0130A    00       A
     5185   01 0130B    03       A   T2RE055  REDATA   WF,WF,WF,SB,RB    5
            01 0130B 1  01       A
            01 0130B 2  00       A
            01 0130B 3  00       A
            01 0130C    00       A
     5186   01 0130D    01       A   T2RE056  REDATA   WF,WF,WF,SB,SB    6
            01 0130D 1  01       A
            01 0130D 2  00       A
            01 0130D 3  00       A
            01 0130E    00       A
     5187   01 0130F    04       A   T2RE057  REDATA   WF,WF,WF,SB,RF    7
            01 0130F 1  01       A
            01 0130F 2  00       A
            01 0130F 3  00       A
            01 01310    00       A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   57
A    5189   01 01311    02       A   T2RE058  REDATA   WF,WF,WF,RB,SF    8
            01 01311 1  03       A
            01 01311 2  00       A
            01 01311 3  00       A
            01 01312    00       A
     5190   01 01313    04       A   T2RE059  REDATA   WF,WF,RB,RB,RF    9
            01 01313 1  03       A
            01 01313 2  03       A
            01 01313 3  00       A
            01 01314    00       A
     5191   01 01315    02       A   T2RE05A  REDATA   WF,WF,RB,RB,SF    A
            01 01315 1  03       A
            01 01315 2  03       A
            01 01315 3  00       A
            01 01316    00       A
     5192   01 01317    04       A   T2RE05B  REDATA   WF,WF,SB,SB,RF    B
            01 01317 1  01       A
            01 01317 2  01       A
            01 01317 3  00       A
            01 01318    00       A
     5193   01 01319    02       A   T2RE05C  REDATA   WF,WF,SB,RB,SF    C
            01 01319 1  03       A
            01 01319 2  01       A
            01 01319 3  00       A
            01 0131A    00       A
     5194   01 0131B    04       A   T2RE05D  REDATA   WF,RB,RF,RB,RF    D
            01 0131B 1  03       A
            01 0131B 2  04       A
            01 0131B 3  03       A
            01 0131C    00       A
     5195   01 0131D    04       A   T2RE05E  REDATA   WF,RB,RF,SB,RF    E
            01 0131D 1  01       A
            01 0131D 2  04       A
            01 0131D 3  03       A
            01 0131E    00       A
     5196   01 0131F    04       A   T2RE05F  REDATA   WF,SB,SF,RB,RF    F
            01 0131F 1  03       A
            01 0131F 2  02       A
            01 0131F 3  01       A
            01 01320    00       A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   58
A    5198         01 01321           T2REW    EQU      %                 WRITE
     5199   01 01321    35F012FB              STW,R15  T2RELINK           SAVE RETURN ADDRESS
     5200   01 01322    6AF018D6              BAL,R15  DOALL               SETUP ALL UNITS

     5202         01 01323           T2REW0   EQU      %
     5203   01 01323    6AF013E7              BAL,R15  T2RELUP           INITIALIZE RETRY AND ERROR

     5205   01 01324    22000A03              LI,R0    DA(WRRAND)        PERFORM WRITE
     5206   01 01325    6AF011C6              BAL,R15  GENIOXEQ

     5208   01 01326    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5209   01 01327    6AF013EC              BAL,R15  T2REEOT            TEST FOR EOT CONDITION

     5211   01 01328    21C008FF A            CI,R12   X'08FF'           EXAMINE I/O STATUS FOR ERRORS
     5212   01 01329    6840132B              BAZ      %+2                SKIP IF NORMAL
     5213   01 0132A    6AF01374              BAL,R15  T2REWER             ELSE ERROR RECOVERY

     5215   01 0132B    22400A03              LI,R4    DA(WRRAND)        ACCUMULATE REQUESTED BYTES
     5216   01 0132C    6AF014C7              BAL,R15  TST2LEN            FROM ALL LINKS PROCESSED
     5217   01 0132D    6AF0162A              BAL,R15  TST3LEN             COMPARE WITH EXPECTED ARS
     5218   01 0132E    68001330              B        %+2                  SKIP IF EQUAL
     5219   01 0132F    6AF013E5              BAL,R15  TST2ILE               ELSE SET ERROR FLAG

     5221   01 01330    6AF018DB              BAL,R15  DONEXT            DISPLAY SUMMARY IF ERROR
     5222   01 01331    68001323              B        T2REW0             CONTINUE AFTER DELAY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   59
A    5224         01 01332           T2RERF   EQU      %                 READ FORWARDS
     5225   01 01332    35F012FB              STW,R15  T2RELINK           SAVE RETURN ADDRESS
     5226   01 01333    6AF018D6              BAL,R15  DOALL               SETUP ALL UNITS

     5228         01 01334           T2RERF0  EQU      %
     5229   01 01334    6AF013E7              BAL,R15  T2RELUP           INITIALIZE RETRY AND ERROR

     5231   01 01335    22000A17              LI,R0    DA(RFRAND)        PERFORM READ FORWARDS
     5232   01 01336    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND

     5234   01 01337    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5235   01 01338    6AF013EC              BAL,R15  T2REEOT            CHECK FOR EOT CONDITION

     5237   01 01339    21C0087F A            CI,R12   X'087F'           EXAMINE I/O STATUS FOR ERRORS
     5238   01 0133A    6840133C              BAZ      %+2                SKIP IF OK (IGNORE IL)
     5239   01 0133B    6AF01386              BAL,R15  T2RERFER            ELSE ERROR RECOVERY

     5241   01 0133C    22400A17              LI,R4    DA(RFRAND)        ACCUMULATE REQUESTED BYTES
     5242   01 0133D    6AF014C7              BAL,R15  TST2LEN            FROM ALL PROCESSED LINKS
     5243   01 0133E    6AF0162A              BAL,R15  TST3LEN             COMPARE WITH EXPECTED ARS
     5244   01 0133F    68001341              B        %+2                  SKIP IF EQUAL
     5245   01 01340    6AF013E5              BAL,R15  TST2ILE               ELSE SET ERROR FLAG

     5247   01 01341    6AF01F68              BAL,R15  :COMPARE          COMPARE EXP AND OBS DATA
     5248   01 01342    68001344              B        %+2                SKIP IF EQUAL
     5249   01 01343    6AF013E5              BAL,R15  TST2ILE             ELSE SET ERROR FLAG

     5251   01 01344    6AF018DB              BAL,R15  DONEXT            DISPLAY SUMMARY IF ERROR
     5252   01 01345    68001334              B        T2RERF0            CONTINUE AFTER DELAY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   60
A    5254         01 01346           T2RERB   EQU      %                 READ FORWARDS
     5255   01 01346    35F012FB              STW,R15  T2RELINK           SAVE RETURN ADDRESS
     5256   01 01347    6AF018D6              BAL,R15  DOALL               SETUP ALL UNITS

     5258         01 01348           T2RERB0  EQU      %
     5259   01 01348    6AF013E7              BAL,R15  T2RELUP           INITIALIZE RETRY AND ERROR

     5261   01 01349    22000A2B              LI,R0    DA(RBRAND)        PERFORM READ FORWARDS
     5262   01 0134A    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND

     5264   01 0134B    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5265   01 0134C    6AF013EC              BAL,R15  T2REEOT            CHECK FOR EOT CONDITION

     5267   01 0134D    21C0087F A            CI,R12   X'087F'           EXAMINE I/O STATUS FOR ERRORS
     5268   01 0134E    68401350              BAZ      %+2                SKIP IF OK (IGNORE IL)
     5269   01 0134F    6AF013A3              BAL,R15  T2RERBER            ELSE ERROR RECOVERY

     5271   01 01350    22400A2B              LI,R4    DA(RBRAND)        ACCUMULATE REQUESTED BYTES
     5272   01 01351    6AF014C7              BAL,R15  TST2LEN            FROM ALL PROCESSED LINKS
     5273   01 01352    6AF0162A              BAL,R15  TST3LEN             COMPARE WITH EXPECTED ARS
     5274   01 01353    68001355              B        %+2                  SKIP IF EQUAL
     5275   01 01354    6AF013E5              BAL,R15  TST2ILE               ELSE SET ERROR FLAG

     5277   01 01355    6AF01F68              BAL,R15  :COMPARE          COMPARE EXP AND OBS DATA
     5278   01 01356    68001358              B        %+2                SKIP IF EQUAL
     5279   01 01357    6AF013E5              BAL,R15  TST2ILE             ELSE SET ERROR FLAG

     5281   01 01358    6AF018DB              BAL,R15  DONEXT            DISPLAY SUMMARY IF ERROR
     5282   01 01359    68001348              B        T2RERB0            CONTINUE AFTER DELAY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   61
A    5284         01 0135A           T2RESF   EQU      %                 SPACE FORWARDS
     5285   01 0135A    35F012FB              STW,R15  T2RELINK           SAVE RETURN ADDRESS
     5286   01 0135B    6AF018D6              BAL,R15  DOALL               SETUP ALL UNITS

     5288         01 0135C           T2RESF0  EQU      %
     5289   01 0135C    6AF013E7              BAL,R15  T2RELUP           INITIALIZE RETRY AND ERROR

     5291   01 0135D    22000D28              LI,R0    DA(SPFRAND)       PERFORM SPACE FORWARDS
     5292   01 0135E    6AF011C6              BAL,R15  GENIOXEQ

     5294   01 0135F    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5295   01 01360    6AF013EC              BAL,R15  T2REEOT            CHECK FOR EOT CONDITION

     5297   01 01361    21C008FF A            CI,R12   X'08FF'           EXAMINE I/O STATUS FOR ERRORS
     5298   01 01362    68401364              BAZ      %+2                SKIP IF OK
     5299   01 01363    6AF01372              BAL,R15  T2RESFER            ELSE ERROR RECOVERY

     5301   01 01364    6AF018DB              BAL,R15  DONEXT            DISPLAY SUMMARY IF ERROR
     5302   01 01365    6800135C              B        T2RESF0            CONTINUE AFTER DELAY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   62
A    5304         01 01366           T2RESB   EQU      %                 SPACE BACKWARDS
     5305   01 01366    35F012FB              STW,R15  T2RELINK           SAVE RETURN ADDRESS
     5306   01 01367    6AF018D6              BAL,R15  DOALL               SETUP ALL UNITS

     5308         01 01368           T2RESB0  EQU      %
     5309   01 01368    6AF013E7              BAL,R15  T2RELUP           INITIALIZE RETRY AND ERROR

     5311   01 01369    22000D27              LI,R0    DA(SPBRAND)       PERFORM SPACE BACKWARDS
     5312   01 0136A    6AF011C6              BAL,R15  GENIOXEQ

     5314   01 0136B    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5315   01 0136C    6AF013EC              BAL,R15  T2REEOT            CHECK FOR EOT CONDITION

     5317   01 0136D    21C008FF A            CI,R12   X'08FF'           EXAMINE I/O STATUS FOR ERRORS
     5318   01 0136E    68401370              BAZ      %+2                SKIP IF OK
     5319   01 0136F    6AF01372              BAL,R15  T2RESBER            ELSE ERROR RECOVERY

     5321   01 01370    6AF018DB              BAL,R15  DONEXT            DISPLAY SUMMARY IF ERROR
     5322   01 01371    68001368              B        T2RESB0            CONTINUE AFTER DELAY

     5324         01 01372           T2RESFER EQU      %                 BACK AND FORWARD SPACING
     5325         01 01372           T2RESBER EQU      %                  ERROR RECOVERY SIMPLY MEANS
     5326   01 01372    331012F6              MTW,1    T2REBAD             SET ERROR FLAG
     5327   01 01373    680013C0              B        TST2IOE              DISPLAY I/O STATUS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   63
A    5329         01 01374           T2REWER  EQU      %                 WRITE ERROR RECOVERY
     5330   01 01374    35F012F8              STW,R15  T2RELNK0           SAVE RETURN ADDRESS

     5332         01 01375           WER0     EQU      %
     5333   01 01375    331E1AD6              MTW,1    TWTALLY,R7        TALLY TEMP WRITE ERROR
     5334   01 01376    33F012F7              MTW,-1   T2RETRY            DECREMENT RETRY COUNTER
     5335   01 01377    6810137C              BGEZ     WER1                AND SKIP IF RETRIES REMAIN

     5337   01 01378    331012F6              MTW,1    T2REBAD           ELSE SET ERROR FLAG
     5338   01 01379    331E1ADE              MTW,1    PWTALLY,R7         TALLY PERM WRITE ERROR

     5340   01 0137A    6AF013C0              BAL,R15  TST2IOE           DISPLAY I/O STATUS
     5341   01 0137B    E80012F8              B        *T2RELNK0          RETURN

     5343         01 0137C           WER1     EQU      %
     5344   01 0137C    22000D27              LI,R0    DA(SPBRAND)       BACKSPACE OVER BAD BLOCK
     5345   01 0137D    6AF011C6              BAL,R15  GENIOXEQ
     5346   01 0137E    22000CE9              LI,R0    DA(TSE1)          ERASE SECTION OF TAPE
     5347   01 0137F    6AF011C6              BAL,R15  GENIOXEQ
     5348   01 01380    22000A03              LI,R0    DA(WRRAND)        REWRITE BLOCK
     5349   01 01381    6AF011C6              BAL,R15  GENIOXEQ

     5351   01 01382    6AF013F4              BAL,R15  T2RETIO           GATHER TIO STATUS
     5352   01 01383    21C008FF A            CI,R12   X'08FF'            CHECK FOR ERRORS
     5353   01 01384    69401375              BANZ     WER0                CONTINUE RECOVERY IF ERRORS
     5354   01 01385    E80012F8              B        *T2RELNK0            ELSE RETURN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   64
A    5356         01 01386           T2RERFER EQU      %                 READ FORWARD ERROR RECOVERY
     5357   01 01386    35F012F8              STW,R15  T2RELNK0           SAVE RETURN ADDRESS

     5359         01 01387           RFER0    EQU      %
     5360   01 01387    331E1AFE              MTW,1    TRFTALLY,R7       TALLY TEMP RF ERROR
     5361   01 01388    33F012F7              MTW,-1   T2RETRY            DECREMENT RETRY COUNT
     5362   01 01389    6810138E              BGEZ     RFER1               SKIP IF RETRIES REMAINING

     5364   01 0138A    331012F6              MTW,1    T2REBAD           ELSE SET ERROR FLAG
     5365   01 0138B    331E1AF6              MTW,1    PRFTALLY,R7        TALLY PERM RF ERROR

     5367   01 0138C    6AF013C0              BAL,R15  TST2IOE           DISPLAY I/O STATUS
     5368   01 0138D    E80012F8              B        *T2RELNK0          RETURN

     5370         01 0138E           RFER1    EQU      %
     5371   01 0138E    6AF013FF              BAL,R15  T2RETIOS          RETRIEVE TIO STATUS
     5372   01 0138F    21C008C0 A            CI,R12   X'08C0'            LOOK FOR SIMPLE TRANSMISSION
     5373   01 01390    69301394              BNE      RFER2               ERROR, ELSE UNCORRECTABLE

     5375   01 01391    72C22234              LB,R12   :SAVETAB+4,R1     EXAMINE TDV STATUS
     5376   01 01392    21C00008 A            CI,R12   X'08'              LOOK FOR UNCORRECTABLE
     5377   01 01393    68401397              BAZ      RFER3               SKIP IF NOT SET

     5379         01 01394           RFER2    EQU      %                 UNCORRECTABLE TE
     5380   01 01394    22000D27              LI,R0    DA(SPBRAND)        SPACE BACKWARDS
     5381   01 01395    6AF011C6              BAL,R15  GENIOXEQ            OVER BAD BLOCK
     5382   01 01396    6800139D              B        RFER4                ATTEMPT REREAD

     5384         01 01397           RFER3    EQU      %                 CORRECTABLE TE
     5385   01 01397    22000D0D              LI,R0    DA(TSENSE)         READ DEAD-TRACK REGISTER
     5386   01 01398    6AF011C6              BAL,R15  GENIOXEQ
     5387   01 01399    22000D27              LI,R0    DA(SPBRAND)       BACKSPACE OVER BAD BLOCK
     5388   01 0139A    6AF011C6              BAL,R15  GENIOXEQ
     5389   01 0139B    22000CF0              LI,R0    DA(TSC5)          SET CORRECTION STATE
     5390   01 0139C    6AF011C6              BAL,R15  GENIOXEQ

     5392         01 0139D           RFER4    EQU      %
     5393   01 0139D    22000A17              LI,R0    DA(RFRAND)        REREAD FORWARDS
     5394   01 0139E    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND

     5396   01 0139F    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5397   01 013A0    21C0087F A            CI,R12   X'087F'            EXAMINE FOR ERRORS (NO IL)
     5398   01 013A1    69401387              BANZ     RFER0               CONTINUE RECOVERY IF ERROR
     5399   01 013A2    E80012F8              B        *T2RELNK0            ELSE RETURN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   65
A    5401         01 013A3           T2RERBER EQU      %                 READ BACKWARD ERROR RECOVERY
     5402   01 013A3    35F012F8              STW,R15  T2RELNK0           SAVE RETURN ADDRESS

     5404         01 013A4           RBER0    EQU      %
     5405   01 013A4    331E1AEE              MTW,1    TRBTALLY,R7       TALLY TEMP RB ERROR
     5406   01 013A5    33F012F7              MTW,-1   T2RETRY            DECREMENT RETRY COUNT
     5407   01 013A6    681013AB              BGEZ     RBER1               SKIP IF RETRIES REMAINING

     5409   01 013A7    331012F6              MTW,1    T2REBAD           ELSE SET ERROR FLAG
     5410   01 013A8    331E1AE6              MTW,1    PRBTALLY,R7        TALLY PERM RB ERROR

     5412   01 013A9    6AF013C0              BAL,R15  TST2IOE           DISPLAY I/O STATUS
     5413   01 013AA    E80012F8              B        *T2RELNK0          RETURN

     5415         01 013AB           RBER1    EQU      %
     5416   01 013AB    6AF013FF              BAL,R15  T2RETIOS          RETRIEVE TIO STATUS
     5417   01 013AC    21C008C0 A            CI,R12   X'08C0'            LOOK FOR SIMPLE TRANSMISSION
     5418   01 013AD    693013B1              BNE      RBER2               ERROR, ELSE UNCORRECTABLE

     5420   01 013AE    72C22234              LB,R12   :SAVETAB+4,R1     EXAMINE TDV STATUS
     5421   01 013AF    21C00008 A            CI,R12   X'08'              LOOK FOR UNCORRECTABLE
     5422   01 013B0    684013B4              BAZ      RBER3               SKIP IF NOT SET

     5424         01 013B1           RBER2    EQU      %                 UNCORRECTABLE TE
     5425   01 013B1    22000D28              LI,R0    DA(SPFRAND)        SPACE FORWARD
     5426   01 013B2    6AF011C6              BAL,R15  GENIOXEQ            OVER BAD BLOCK
     5427   01 013B3    680013BA              B        RBER4                AND ATTEMPT REREAD

     5429         01 013B4           RBER3    EQU      %                 CORRECTABLE TE
     5430   01 013B4    22000D0D              LI,R0    DA(TSENSE)         READ DEAD-TRACK REGISTER
     5431   01 013B5    6AF011C6              BAL,R15  GENIOXEQ
     5432   01 013B6    22000D28              LI,R0    DA(SPFRAND)       SPACE FORWARD OVER BAD BLOCK
     5433   01 013B7    6AF011C6              BAL,R15  GENIOXEQ
     5434   01 013B8    22000CF0              LI,R0    DA(TSC5)          SET CORRECTION STATE
     5435   01 013B9    6AF011C6              BAL,R15  GENIOXEQ

     5437         01 013BA           RBER4    EQU      %
     5438   01 013BA    22000A2B              LI,R0    DA(RBRAND)        REREAD BACKWARD
     5439   01 013BB    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND

     5441   01 013BC    6AF013F4              BAL,R15  T2RETIO           GATHER I/O STATUS
     5442   01 013BD    21C0087F A            CI,R12   X'087F'            EXAMINE FOR ERRORS (NO IL)
     5443   01 013BE    694013A4              BANZ     RBER0               CONTINUE RECOVERY IF ERROR
     5444   01 013BF    E80012F8              B        *T2RELNK0            ELSE RETURN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   66
A    5446         01 013C0           TST2IOE  EQU      %                 I/O STATUS DISPLAY
     5447   01 013C0    35F012F9              STW,R15  T2RELNK1           SAVE RETURN ADDRESS

     5449   01 013C1    6AF013F4              BAL,R15  T2RETIO           GET FULL TIO AND TDV STATUS

     5451   01 013C2    32C0223F              LW,R12   :SAVETAB+15       DISPLAY DA(CDW)
     5452   01 013C3    EAF00218              BAL,R15  *:HEXC
     5453   01 013C4    35F01D10              STW,R15  T2REMSG4+2

     5455   01 013C5    6AF013FF              BAL,R15  T2RETIOS          RETRIEVE TIO AND OSB
     5456   01 013C6    EAF00218              BAL,R15  *:HEXC             FOR DISPLAY
     5457   01 013C7    22E04040 A            LI,R14   X'4040'
     5458   01 013C8    25E00110 A            SLD,R14  16
     5459   01 013C9    35E01D11              STW,R14  T2REMSG4+3        STORE TIO
     5460   01 013CA    22E04040 A            LI,R14   X'4040'
     5461   01 013CB    25E00170 A            SLD,R14  -16
     5462   01 013CC    35F01D12              STW,R15  T2REMSG4+4        STORE OSB

     5464   01 013CD    32C0223E              LW,R12   :SAVETAB+14       RETRIEVE REMAINING BYTES
     5465   01 013CE    EAF00218              BAL,R15  *:HEXC             FOR DISPLAY
     5466   01 013CF    22E04040 A            LI,R14   X'4040'
     5467   01 013D0    25E00110 A            SLD,R14  16
     5468   01 013D1    35E01D13              STW,R14  T2REMSG4+5
     5469   01 013D2    20F06B40 A            AI,R15   ', '
     5470   01 013D3    35F01D14              STW,R15  T2REMSG4+6

     5472   01 013D4    72C22234              LB,R12   :SAVETAB+4,R1     RETRIEVE TDV STATUS
     5473   01 013D5    EAF00218              BAL,R15  *:HEXC             FOR DISPLAY
     5474   01 013D6    25F00010 A            SLS,R15  16
     5475   01 013D7    20F04040 A            AI,R15   X'4040'
     5476   01 013D8    25F00210 A            SCS,R15  16
     5477   01 013D9    35F01D16              STW,R15  T2REMSG4+8

     5479   01 013DA    EAF0021C              BAL,R15  *:PRINT           PRINT BLANK LINE
     5480   01 013DB    00001D07              DATA     SPACE
     5481   01 013DC    EAF0021C              BAL,R15  *:PRINT           PRINT THE I/O STATUS
     5482   01 013DD    00001D0E              DATA     T2REMSG4
     5483   01 013DE    EAF0021C              BAL,R15  *:PRINT           PRINT BLANK LINE
     5484   01 013DF    00001D07              DATA     SPACE

     5486   01 013E0    32C0223F              LW,R12   :SAVETAB+15       FETCH DA(CDW)
     5487   01 013E1    25C00001 A            SLS,R12  1                  MAKE WA(CDW)
     5488   01 013E2    92C0000C A            LD,R12   *R12                RETRIEVE THE CDW
     5489   01 013E3    6AF011B6              BAL,R15  IOCDMSG              FOR DISPLAY

     5491   01 013E4    E80012F9              B        *T2RELNK1         RETURN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   67
A    5493         01 013E5           TST2ILE  EQU      %
     5494   01 013E5    331012F6              MTW,1    T2REBAD           SET ERROR FLAG
     5495   01 013E6    E800000F A            B        *R15               RETURN

     5497         01 013E7           T2RELUP  EQU      %
     5498   01 013E7    22000000 A            LI,R0    0                 CLEAR THE ERROR FLAG
     5499   01 013E8    350012F6              STW,R0   T2REBAD
     5500   01 013E9    32001B57              LW,R0    CRTRY             SET REMAINING RETRIES
     5501   01 013EA    350012F7              STW,R0   T2RETRY
     5502   01 013EB    E800000F A            B        *R15

     5504         01 013EC           T2REEOT  EQU      %                 EOT AND EOF (TST3,4) CHECKING
     5505   01 013EC    72B22234              LB,R11   :SAVETAB+4,R1      RETRIEVE TDV STATUS
     5506   01 013ED    21B00012 A            CI,R11   X'12'               CHECK EOT AND EOF
     5507   01 013EE    E840000F A            BAZ      *R15                 EXIT IF BOTH OFF

     5509   01 013EF    31200399              CW,R2    ITHTEST           IF NOT IN TST2
     5510   01 013F0    6930176D              BNE      TST3413            RETURN TO TST3,4

     5512   01 013F1    21B00002 A            CI,R11   X'02'             ELSE CHECK EOT AGAIN
     5513   01 013F2    694012A0              BANZ     T2RE00             EXIT TO TST2 IF SET
     5514   01 013F3    E800000F A            B        *R15                ELSE SIMPLY RETURN

     5516         01 013F4           T2RETIO  EQU      %                 GATHER TIO AND TDV STATUS
     5517   01 013F4    35F012FA              STW,R15  T2RELNK2           SAVE RETURN ADDRESS

     5519   01 013F5    33002234              MTW,0    :SAVETAB+4        CHECK TDV STATUS
     5520   01 013F6    691013F9              BLZ      %+3                SKIP IF PRESENT

     5522   01 013F7    CEC01B8C              TDV,R12  *:DEVADDR         ELSE GATHER IT NOW
     5523   01 013F8    6AF02215              BAL,R15  :SAVETDV

     5525   01 013F9    33002231              MTW,0    :SAVETAB+1        CHECK TIO STATUS
     5526   01 013FA    691013FD              BLZ      %+3                SKIP IF PRESENT

     5528   01 013FB    CDC01B8C              TIO,R12  *:DEVADDR         ELSE GATHER IT NOW
     5529   01 013FC    6AF02202              BAL,R15  :SAVETIO

     5531   01 013FD    52C0000D A            LH,R12   R13               POSITION TIO/OSB
     5532   01 013FE    E80012FA              B        *T2RELNK2          RETURN

     5534         01 013FF           T2RETIOS EQU      %                 RETRIEVE TIO/OSB STATUS
     5535   01 013FF    72B22231              LB,R11   :SAVETAB+1,R1      TIO
     5536   01 01400    25B00008 A            SLS,R11  8
     5537   01 01401    72C22232              LB,R12   :SAVETAB+2,R1      OSB
     5538   01 01402    30C0000B A            AW,R12   R11
     5539   01 01403    E800000F A            B        *R15              RETURN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   68
A    5541         00000014           RMAX     EQU      20                ABSOLUTE MAXIMUM
        1*  01 01404    00000013 A   MXRAND   DATA     RMAX-1             LIMT,4 MAXIMUM LINKS           *H02

     5544                                     BOUND    8
     5545   01 01406                 WRRAND   RES      RMAX*2            WRITE I/O
     5546   01 0142E                 RFRAND   RES      RMAX*2            READ I/O
     5547   01 01456                 RBRAND   RES      RMAX*2            READ-BACKWARDS I/O

     5549   01 0147E                 RABA     RES      1                 CURRENT ACTUAL BA(BUFFER)
     5550   01 0147F                 RABC     RES      1                 CURRENT REMAINING BYTE COUNT
     5551   01 01480                 RCBC     RES      1                 CURRENT LINK BYTE COUNT

     5553   01 01481                 RIOCD    RES      1                 IOCD POINTER
     5554   01 01482                 RORDER   RES      1                 ORDER BYTE
     5555   01 01483                 RLINK    RES      1                 RETURN ADDRESS

     5557         01 01484           RBUILD   EQU      %                 BUILD THREE RANDOM CHANNEL
     5558   01 01484    35F01483              STW,R15  RLINK              PROGRAMS (WF, RF, RB)

     5560   01 01485    22008A80              LI,R0    BA(BUFF1)         SET START OF WRITE BUFFER
     5561   01 01486    3500147E              STW,R0   RABA
     5562   01 01487    22001406              LI,R0    WRRAND            POINT TO WF IOCD LIST
     5563   01 01488    6AF01494              BAL,R15  RBUILD0            AND GENERATE PROGRAM

     5565   01 01489    32002257              LW,R0    BUFF2BA           SET START OF READ BUFFER
     5566   01 0148A    3500147E              STW,R0   RABA
     5567   01 0148B    2200142E              LI,R0    RFRAND            POINT TO RF IOCD LIST
     5568   01 0148C    6AF01496              BAL,R15  RBUILD1            AND GENERATE PROGRAM

     5570   01 0148D    32002257              LW,R0    BUFF2BA           COMPUTE END OF READ BUFFER
     5571   01 0148E    30001BD9              AW,R0    LNGTST
     5572   01 0148F    200FFFFF A            AI,R0    -1
     5573   01 01490    3500147E              STW,R0   RABA
     5574   01 01491    22001456              LI,R0    RBRAND            POINT TO RB IOCD LIST
     5575   01 01492    6AF01498              BAL,R15  RBUILD2            AND GENERATE PROGRAM
     5576   01 01493    E8001483              B        *RLINK              THEN RETURN TO USER
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   69
A    5578         01 01494           RBUILD0  EQU      %
     5579   01 01494    22400001 A            LI,R4    X'01'             FETCH WRITE ORDER
     5580   01 01495    68001499              B        RBUILD3

     5582         01 01496           RBUILD1  EQU      %
     5583   01 01496    22400002 A            LI,R4    X'02'             FETCH READ ORDER
     5584   01 01497    68001499              B        RBUILD3

     5586         01 01498           RBUILD2  EQU      %
     5587   01 01498    2240000C A            LI,R4    X'0C'             FETCH READ-BACKWARDS ORDER

     5589         01 01499           RBUILD3  EQU      %
     5590   01 01499    35401482              STW,R4   RORDER            SAVE ORDER
     5591   01 0149A    35001481              STW,R0   RIOCD              AND IOCD LIST POINTER

     5593   01 0149B    22400000 A            LI,R4    0                 CLEAR IOCD INDEX
     5594   01 0149C    32001BD9              LW,R0    LNGTST             AND SET NUMBER OF
     5595   01 0149D    3500147F              STW,R0   RABC                BYTES TO TRANSMIT

     5597         01 0149E           RBUILD4  EQU      %
     5598   01 0149E    21400001 A            CI,R4    1                 SKIP IF ODD PASS
     5599   01 0149F    694014A5              BANZ     RBUILD5

     5601   01 014A0    22000001 A            LI,R0    1                 EVEN PASS: CBC IS
     5602   01 014A1    32500004 A            LW,R5    R4                 1**(PASS/2+3)
     5603   01 014A2    2550007F A            SLS,R5   -1
     5604   01 014A3    250A0003 A            SLS,R0   3,R5
     5605   01 014A4    680014A8              B        RBUILD6

     5607         01 014A5           RBUILD5  EQU      %
     5608   01 014A5    72021F07              LB,R0    :SEED,R1          ODD PASS: RANDOM
     5609   01 014A6    4B00228C              AND,R0   =3                 NUMBER BETWEEN
     5610   01 014A7    20000001 A            AI,R0    1                   1 AND 4

     5612         01 014A8           RBUILD6  EQU      %
     5613   01 014A8    35001480              STW,R0   RCBC              SAVE CURRENT BYTE COUNT

     5615   01 014A9    3100147F              CW,R0    RABC              SKIP IF BUFFER NOT
     5616   01 014AA    691014B6              BL       RBUILD8            EXHAUSTED
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   70
A    5618         01 014AB           RBUILD7  EQU      %                 FINALIZE IOCD LIST
     5619   01 014AB    32001482              LW,R0    RORDER             GET ORDER BYTE
     5620   01 014AC    3270147F              LW,R7    RABC                SET ACTUAL BYTES REMAINING
     5621   01 014AD    21000001 A            CI,R0    1                    IF WRITING, ELSE SET MAXIMUM
     5622   01 014AE    694014B0              BANZ     %+2
     5623   01 014AF    22700FFD A            LI,R7    X'3FF'**2+1

     5625   01 014B0    3260147E              LW,R6    RABA              GET CURRENT BA(BUFFER)
     5626   01 014B1    75000006 A            STB,R0   R6                 SAVE ORDER BYTE

     5628   01 014B2    2200001E A            LI,R0    X'1E'             SET STANDARD FLAGS
     5629   01 014B3    75000007 A            STB,R0   R7

     5631   01 014B4    95681481              STD,R6   *RIOCD,R4         AND SAVE FINAL LINK IN LIST
     5632   01 014B5    E800000F A            B        *R15

     5634         01 014B6           RBUILD8  EQU      %
     5635   01 014B6    31401404              CW,R4    MXRAND            SKIP IF MAXIMUM NUMBER OF
     5636   01 014B7    681014AB              BGE      RBUILD7            ALLOWABLE LINKS REACHED

     5638   01 014B8    2200008E A            LI,R0    X'8E'             SET FLAGS (DC) AND
     5639   01 014B9    32701480              LW,R7    RCBC               CURRENT BYTE COUNT
     5640   01 014BA    75000007 A            STB,R0   R7

     5642   01 014BB    32001482              LW,R0    RORDER            SET ORDER BYTE AND
     5643   01 014BC    3260147E              LW,R6    RABA               CURRENT BA(BUFFER)
     5644   01 014BD    75000006 A            STB,R0   R6

     5646   01 014BE    95681481              STD,R6   *RIOCD,R4         SAVE LINK IN IOCD LIST

     5648   01 014BF    3A701480              LCW,R7   RCBC              UPDATE REMAINING BYTES
     5649   01 014C0    6670147F              AWM,R7   RABC

     5651   01 014C1    2100000C A            CI,R0    X'0C'             SKIP IF READING BACKWARDS
     5652   01 014C2    683014C4              BE       %+2

     5654   01 014C3    3A700007 A            LCW,R7   R7                ELSE POSITIVE DISPLACEMENT
     5655   01 014C4    6670147E              AWM,R7   RABA              (ADVANCE OR RETRACT POINTER)

     5657   01 014C5    20400001 A            AI,R4    1                 INCREMENT IOCD LIST INDEX
     5658   01 014C6    6800149E              B        RBUILD4
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   71
A    5660         01 014C7           TST2LEN  EQU      %                 COMPUTE REQUESTED BYTES
     5661   01 014C7    22C00000 A            LI,R12   0                  R4=>WA(IOCD LIST)

     5663         01 014C8           TST2LUP  EQU      %
     5664   01 014C8    5142223F              CH,R4    :SAVETAB+15,R1    STOP IF CURRENT DA
     5665   01 014C9    E920000F A            BG       *R15               IS .GT. SAMPLED DA FROM TIO

     5667   01 014CA    12880000 A            LD,R8    0,R4              FETCH CURRENT IOCD
     5668   01 014CB    25800108 A            SLD,R8   8                  SEPARATE FLAGS
     5669   01 014CC    25900178 A            SLD,R9   -8                  FROM REMAINING COUNT
     5670   01 014CD    30C00009 A            AW,R12   R9                ACCUMULATE BYTE COUNT

     5672   01 014CE    21800080 A            CI,R8    X'80'             STOP IF NOT DC
     5673   01 014CF    E840000F A            BAZ      *R15

     5675   01 014D0    20400001 A            AI,R4    1                 POINT TO NEXT DA
     5676   01 014D1    680014C8              B        TST2LUP            AND CONTINUE SUMMATION
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   72
A    5678                            *                                   UTILITY TESTS TST3
     5679                            *                                   ------------------------------------
     5680                            *
     5681                            *                                   TST3,1 - TAPE TEST
     5682                            *
     5683                            *                    THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD,
     5684                            *                    READ BACKWARD, READ FORWARD AND THEN BACKWARD, OR
     5685                            *                    WRITE FOLLOWED BY REWIND AND READ FORWARD AND READ
     5686                            *                    BACKWARD N RECORDS OR UNTIL EOT IS REACHED.
     5687                            *
     5688                            *                           D1 1 TAPE TEST
     5689                            *
     5690                            *                              D2 0 WRITE, REWIND, READ FORWARD, READ
     5691                            *                                   BACKWARD D3 RECORDS.
     5692                            *                                 1 WRITE D3 RECORDS.
     5693                            *                                 2 READ FORWARD D3 RECORDS.
     5694                            *                                 3 READ BACKWARD D3 RECORDS.
     5695                            *                                 4 READ FORWARD AND BACKWARD D3
     5696                            *                                   RECORDS IN SEQUENCE.
     5697                            *                                 5 ERASE D3 SECTIONS (STC ONLY)
     5698                            *                                 6 WRITE D3 FILEMARKS
     5699                            *
     5700                            *                              D3 NUMBER OF RECORDS TO BE WRITTEN OR
     5701                            *                                 READ. IF D3 =0 CONTINUE UNTIL EOT
     5702                            *                                 OR BOT IS REACHED.
     5703                            *
     5704                            *                              D4 DELAY IN MILLISECONDS BETWEEN
     5705                            *                                 OPERATIONS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   73
A    5707   01 014D2    32700204     TST31    LW,7     :P4               TIME DELAY
     5708   01 014D3    681014D9              BGEZ     TST3102

     5710                            * ERROR P4 INCORRECT
     5711   01 014D4    22700004 A            LI,7     4
     5712   01 014D5    3570030A              STW,7    :PIT10            REPORT BAD PARAMETER
     5713   01 014D6    EAF00229              BAL,15   *:PREPORT
     5714   01 014D7    00000326              DATA     :DIC+6
     5715   01 014D8    E8000214              B        *:MONITOR         GO TO MONITOR

     5717   01 014D9    32700203     TST3102  LW,7     :P3               NUMBER OF RECORDS TO BE WRITTEN
     5718   01 014DA    692014DD              BGZ      TST3103           P3 >0
     5719   01 014DB    3270228D              LW,7     =X'7FFFFFFF'      P3 =0  WRITE TILL EOT
     5720   01 014DC    35700203              STW,7    :P3               P3 SET TO LARGEST COUNT

     5722   01 014DD    32600202     TST3103  LW,6     :P2
     5723   01 014DE    21600006 A            CI,6     6
     5724   01 014DF    682014E2              BLE      %+3
     5725   01 014E0    22700002 A            LI,7     2
     5726   01 014E1    680014D5              B        TST31+3           GO TO ERROR PRINTOUT

     5728   01 014E2    220FFFFF A            LI,R0    -1                PREPARE PARTIAL-WORD MASK
     5729   01 014E3    32701BDA              LW,R7    LENGTH             GET LENGTH AND MASK FOR
     5730   01 014E4    4B700003 A            AND,R7   R3                  ODD BYTES, SKIP IF FULL
     5731   01 014E5    683014EA              BEZ      TST3101A

     5733   01 014E6    3A700007 A            LCW,R7   R7                COMPUTE SHIFT COUNT AS
     5734   01 014E7    20700004 A            AI,R7    4                  8*(4-RESIDUE) AND
     5735   01 014E8    23700008 A            MI,R7    8                   SHIFT TO FIND MASK
     5736   01 014E9    250E0000 A            SLS,R0   0,R7

     5738   01 014EA    35001BC2     TST3101A STW,R0   MASKBYT           SAVE MASK FOR COMPARE

     5740   01 014EB    32701BDA              LW,7     LENGTH            LENGTH OF RECORD
     5741   01 014EC    35701BD9              STW,R7   LNGTST            SAVE FOR ARS TESTING
     5742   01 014ED    31700003 A            CW,R7    R3
     5743   01 014EE    684014F0              BAZ      %+2
     5744   01 014EF    20700004 A            AI,7     4                 GO TO NEXT WORD SIZE FOR COMPARE
     5745   01 014F0    2570007E A            SLS,7    -2                GET WORD SIZE
     5746   01 014F1    228022A0              LI,8     BUFF1             WRITE AREA
     5747   01 014F2    30800007 A            AW,8     7                 WORD COUNT
     5748   01 014F3    33F00008 A            MTW,-1   8
     5749   01 014F4    35801BA4              STW,8    LASTWDW           LOCATION OF LAST WORD WRITTEN
     5750   01 014F5    32802256              LW,8     BUFF2             READ AREA
     5751   01 014F6    30800007 A            AW,8     7                 WORD COUNT
     5752   01 014F7    33F00008 A            MTW,-1   8
     5753   01 014F8    35801BA5              STW,8    LASTWDR           LOCATION OF LAST WORD IN READ AREA
     5754   01 014F9    35701F5B              STW,7    :PATWC            SET UP WORD SIZE IN SMEAR
     5755   01 014FA    35701F18              STW,7    :CLRSIZE          SET UP WORD SIZE FOR CLEAR
     5756   01 014FB    35701FCE              STW,7    :COMWCNT          SET UP WORD SIZE IN COMPARE
     5757   01 014FC    228022A0              LI,8     BUFF1
     5758   01 014FD    35801F5C              STW,8    :PATBFR           BUFFER FOR PATTERN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   74
A    5760                            * COMPARE INFORMATION SETUP
     5761   01 014FE    35801FCF              STW,8    :COMBFRA          CORRECT INFORMATION
     5762   01 014FF    32702256              LW,7     BUFF2             OBSERVED PATTERN
     5763   01 01500    35701FD0              STW,7    :COMBFRB          OBSERVED INFORMATION
     5764   01 01501    35701F17              STW,7    :CLRADDR          CLEAR ADDRESS
     5765   01 01502    32E01BDA              LW,14    LENGTH            BYTE SIZE
     5766   01 01503    55E21A5F              STH,14   TST3WRT+1,1       SET UP IOCD

     5768   01 01504    25700002 A            SLS,7    2                 GET BA ADDRESS OF READ BUFFER
     5769   01 01505    32801ACA              LW,8     TST3RB            SET UP READ BKW
     5770   01 01506    4B802269              AND,8    =X'FF000000'
     5771   01 01507    30800007 A            AW,8     7
     5772   01 01508    3080000E A            AW,8     14
     5773   01 01509    208FFFFF A            AI,8     -1
     5774   01 0150A    35801ACA              STW,8    TST3RB
     5775   01 0150B    22700000 A            LI,7     0
     5776   01 0150C    35701FD1              STW,7    :COMFLAG          PRINTOUT ERRORS

     5778   01 0150D    32701BD4              LW,7     PATTYPE           CHECK PATTERN TYPE
     5779   01 0150E    21700000 A            CI,7     0
     5780   01 0150F    69301516              BNE      TST3105

     5782   01 01510    32701BD8              LW,7     PATTFIX           FIXED PATTERN
     5783   01 01511    35701F59              STW,7    :PATID+1          PATTERN TO SPREAD
     5784   01 01512    22800000 A            LI,8     0
     5785   01 01513    35801F58              STW,8    :PATID            FIXED WORD PATTERN
     5786   01 01514    6AF01F19              BAL,15   :PATTERN          SMEAR PATTERN
     5787   01 01515    68001554              B        TST3111

     5789   01 01516    21700002 A   TST3105  CI,7     2                 DATA P1 =2 RANDOM PATTERN
     5790   01 01517    6930151D              BNE      TST3107

     5792   01 01518    35201F58              STW,2    :PATID            RANDOM PATTERN
     5793   01 01519    32701BD3              LW,7     PATTSED
     5794   01 0151A    35701F59              STW,7    :PATID+1          SEED FOR RANDOM PATTERN
     5795   01 0151B    357022A0              STW,7    BUFF1
     5796   01 0151C    68001554              B        TST3111

     5798   01 0151D    21700005 A   TST3107  CI,7     5                 SKIP INITIALIZATION IF
     5799   01 0151E    69301554              BNE      TST3111            P1.EQ.1

     5801   01 0151F    32701BD5              LW,7     PATTTK            DATA P1=5 BIT CROWDING
     5802   01 01520    2570007C A            SLS,7    -4                SHIFT
     5803   01 01521    2170000A A            CI,7     10
     5804   01 01522    69101524              BL       TST3108
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   75
A    5806                            * ERROR IN DATA COMMAND, TRACK NUMBERS TOO LARGE
     5807   01 01523    E8000214              B        *:MONITOR

     5809   01 01524    329E1BAA     TST3108  LW,9     PT00,7            X'01010101' TO X'80808080'
     5810   01 01525    25900068 A            SLS,9    -24               R9 1ST TRACK INFO
     5811   01 01526    32701BD5              LW,7     PATTTK
     5812   01 01527    4B70228A              AND,7    =X'0000000F'
     5813   01 01528    2170000A A            CI,7     10
     5814   01 01529    6910152B              BL       TST3109

     5816                            * ERROR IN DATA COMMAND, TRACK NUMBERS TOO LARGE
     5817   01 0152A    E8000214              B        *:MONITOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   76
A    5819   01 0152B    32AE1BAA     TST3109  LW,10    PT00,7            X'01010101' TO X'80808080'
     5820   01 0152C    25A00068 A            SLS,10   -24               R10 2ND TRACK INFO
     5821   01 0152D    22600000 A            LI,6     0
     5822   01 0152E    22500000 A            LI,5     0
     5823   01 0152F    22EFFFFC A   TST3109A LI,14    -4
     5824   01 01530    22700000 A            LI,7     0
     5825   01 01531    22B00000 A            LI,11    0
     5826   01 01532    32C01BD6     TST3110  LW,12    PATTTS1           1ST TRACK PATTERN
     5827   01 01533    32D01BD7              LW,13    PATTTS2           2ND TRACK PATTERN
     5828   01 01534    25CC0061 A            SLS,12   -31,6
     5829   01 01535    25DC0061 A            SLS,13   -31,6
     5830   01 01536    31C00001 A            CW,12    1
     5831   01 01537    68401539              BCR,4    %+2
     5832   01 01538    49B00009 A            OR,11    9
     5833   01 01539    31D00001 A            CW,13    1
     5834   01 0153A    6840153C              BCR,4    %+2
     5835   01 0153B    49B0000A A            OR,11    10
     5836   01 0153C    20700001 A            AI,7     1
     5837   01 0153D    21700004 A            CI,7     4
     5838   01 0153E    68301540              BE       %+2               BYPASS SHIFT
     5839   01 0153F    25B00008 A            SLS,11   8                 SHIFT WORD
     5840   01 01540    20600001 A            AI,6     1
     5841   01 01541    65E01532              BIR,14   TST3110
     5842   01 01542    35BA1BDB              STW,11   CSMEAR,5          STORE INFO FOR BOTH TRACKS
     5843   01 01543    20500001 A            AI,5     1
     5844   01 01544    21500008 A            CI,5     8
     5845   01 01545    6910152F              BL       TST3109A          LOOP

     5847                            * 8 WORDS OF TRACK INFO TO SMEAR
     5848   01 01546    32A01F5B              LW,10    :PATWC            WORD SIZE
     5849   01 01547    31A00003 A            CW,10    3                 ODD WORD COUNT
     5850   01 01548    6840154A              BCR,4    %+2
     5851   01 01549    20A00008 A            AI,10    8
     5852   01 0154A    25A0007D A            SLS,10   -3                NUMBER OF LOOPS
     5853   01 0154B    22700000 A            LI,7     0

     5855   01 0154C    228FFFF8 A   TST310A  LI,8     -8
     5856   01 0154D    22600000 A            LI,6     0
     5857   01 0154E    329C1BDB              LW,9     CSMEAR,6          LOAD BIT STRING WORD
     5858   01 0154F    359E22A0              STW,9    BUFF1,7           STORE
     5859   01 01550    33100006 A            MTW,1    6
     5860   01 01551    33100007 A            MTW,1    7
     5861   01 01552    6580154E              BIR,8    TST310A+2         8 WORDS EACH PASS
     5862   01 01553    64A0154C              BDR,10   TST310A           FILL WORD COUNT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   77
A    5864         01 01554           TST3111  EQU      %
     5865   01 01554    32000202              LW,R0    :P2
     5866   01 01555    21000002 A            CI,R0    2
     5867   01 01556    683015B1              BE       TST3116A          READ FWD
     5868   01 01557    21000004 A            CI,R0    4
     5869   01 01558    683015B1              BE       TST3116A          READ FWD AND BKW
     5870   01 01559    21000003 A            CI,R0    3
     5871   01 0155A    683015F2              BE       TST3119           READ BKW
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   78
A    5873                            * WRITE, ERASE, OR WRITE TAPEMARK
     5874         01 0155B           TST3112  EQU      %
     5875   01 0155B    21000005 A            CI,R0    5                 LOOK FOR ERASE
     5876   01 0155C    69101562              BL       %+6               FOUND WRITE
     5877   01 0155D    69201560              BG       %+3               FOUND WRITE TAPEMARK
     5878   01 0155E    22F00D2E              LI,R15   DA(TST3ERS)
     5879   01 0155F    68001563              B        %+4
     5880   01 01560    22F00CFF              LI,R15   DA(TWTM3)
     5881   01 01561    68001563              B        %+2
     5882   01 01562    22F00D2F              LI,R15   DA(TST3WRT)
     5883   01 01563    35F01B9F              STW,R15  TST3OPR           SAVE COMMAND DA

     5885   01 01564    21000006 A            CI,R0    6                 LOOK FOR WRITE TAPEMARK
     5886   01 01565    69301568              BNE      %+3
     5887   01 01566    22F06618              LI,R15   BA(TSEQ011P)      EOF SHOULD BE SET
     5888   01 01567    68001569              B        %+2
     5889   01 01568    22F06610              LI,R15   BA(TSEQ011)       EOF IS AN ERROR
     5890   01 01569    35F01597              STW,R15  TST3SEQ

     5892   01 0156A    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     5893   01 0156B    22A00000 A            LI,10    0                 RESET COUNT OF WRITES

     5895         01 0156C           TST3112B EQU      %
     5896   01 0156C    31201BD4              CW,2     PATTYPE           RANDOM PATTERN
     5897   01 0156D    69301574              BNE      %+7
     5898   01 0156E    32E022A0              LW,14    BUFF1             CHANGE RANDOM SEED
     5899   01 0156F    21A00000 A            CI,10    0                 FIRST PASS
     5900   01 01570    68301572              BE       %+2
     5901   01 01571    6AF01EFA              BAL,15   :RANDOM           GET NEW SEED
     5902   01 01572    35E01F59              STW,14   :PATID+1          STORE
     5903   01 01573    6AF01F19              BAL,15   :PATTERN          CHANGE PATTERN
     5904   01 01574    B2801BA4              LW,8     *LASTWDW
     5905   01 01575    4B801BC2              AND,8    MASKBYT           MASK INFO
     5906   01 01576    B5801BA4              STW,8    *LASTWDW
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   79
A    5908   01 01577    22900000 A   TST3112C LI,9     0                 CLEAR RETRY TALLY

     5910   01 01578    6AF018C6     TST3112A BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     5911   01 01579    32001B9F              LW,R0    TST3OPR           FETCH PROPER COMMAND DA
     5912   01 0157A    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO

     5914                            * IF SSW2 IS SET FOR TST3,1,1:
     5915                            * EVEN CYCLES => ATTEMPT OVERRUN GENERATION, SIGNAL WITH TDV
     5916                            *  ODD CYCLES => WRITE NORMALLY, DO NOT ISSUE TDV

     5918   01 0157B    31100202              CW,R1    :P2
     5919   01 0157C    69301592              BNE      TST3112D          SKIP IF NOT WRITE

     5921   01 0157D    EAF0022A              BAL,R15  *:QSENSE          GATHER SENSE SWITCH DATA
     5922   01 0157E    68401592              BCR,4    TST3112D          SKIP IF SSW2 RESET

     5924   01 0157F    21A00001 A            CI,R10   1                 LOOK FOR ODD CYCLE
     5925   01 01580    6940158A              BANZ     TST3112E

     5927   01 01581    CDE01B8C              TIO,R14  *:DEVADDR         LOAD MIOP ENOUGH
     5928   01 01582    69401581              BCS,4    %-1               TO CAUSE RATE ERRORS

     5930   01 01583    31F0228E              CW,R15   =X'08C00000'      LOOK FOR UE, IL, TE
     5931   01 01584    68401592              BAZ      TST3112D          NORMAL ERROR RECOVERY IF NOT

     5933   01 01585    6AF0189C              BAL,R15  MYDELAY           DELAY FOR INTERRUPT

     5935   01 01586    CEE01B8C              TDV,R14  *:DEVADDR         ISSUE TDV FOR TRIGGERRING
     5936   01 01587    31F02279              CW,R15   =X'02000000'      LOOK FOR EOT
     5937   01 01588    694015AB              BANZ     TST3115           AND TERMINATE TEST
     5938   01 01589    680015A6              B        TST3114           ELSE CONTINUE TEST

     5940   01 0158A    6AF0189C     TST3112E BAL,R15  MYDELAY           ODD CYCLE: WAIT FOR INTERRUPT
     5941   01 0158B    6AF0207D              BAL,R15  :ERRORT           DO STATUS CHECK MINUS TDV
     5942   01 0158C    00006620              DATA     BA(TSEQ011Q)
     5943   01 0158D    680015A6              B        TST3114           NORMAL EXIT

     5945   01 0158E    EAF0021D     TST3112F BAL,R15  *:SENSE           ERROR EXIT                      *G02
     5946   01 0158F    2E000000 A            WAIT
     5947   01 01590    68001591              B        %+1               LOOP SUPPRESSED
     5948   01 01591    680015A6              B        TST3114           CONTINUE

     5950         01 01592           TST3112D EQU      %
     5951   01 01592    6AF0189C              BAL,15   MYDELAY           DELAY FOR INTERRUPT

     5953   01 01593    CEE01B8C              TDV,14   *:DEVADDR         TDV
     5954   01 01594    31F02279              CW,15    =X'02000000'      EOT SET
     5955   01 01595    694015AB              BANZ     TST3115           GO TO REWIND

     5957   01 01596    6AF0207D              BAL,15   :ERRORT           TEST
     5958   01 01597    00006610     TST3SEQ  DATA     BA(TSEQ011)       READY, NO UE, ETC
     5959   01 01598    680015A6              B        TST3114
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   80
A    5961   01 01599    32F00202              LW,R15   :P2               DO NOT RETRY
     5962   01 0159A    21F00005 A            CI,R15   5                 FAILING ERASE
     5963   01 0159B    683015A6              BE       TST3114

     5965   01 0159C    33001B86              MTW,0    WRETRY
     5966   01 0159D    6830158E              BEZ      TST3112F          SKIP IF NO RETRY                *G02

     5968                            * SPACE BACKWARD TO LOOP ON ERROR
     5969   01 0159E    22000D27              LI,R0    DA(SPBRAND)       SPACE BKW
     5970   01 0159F    6AF011C6              BAL,R15  GENIOXEQ

     5972   01 015A0    33100009 A            MTW,1    9                 TALLY +1
     5973   01 015A1    31901B86              CW,9     WRETRY
     5974   01 015A2    68201578              BLE      TST3112A          GO WRITE RECORD
     5975   01 015A3    22000CE9              LI,R0    DA(TSE1)          SET ERASE
     5976   01 015A4    6AF011C6              BAL,R15  GENIOXEQ
     5977   01 015A5    68001577              B        TST3112C          LOOP ON ERROR

     5979         01 015A6           TST3114  EQU      %
     5980   01 015A6    32E00204              LW,14    :P4               ALL RECORDS WRITTEN
     5981   01 015A7    6AF01239              BAL,R15  GENDELAY          DELAY :P4 MILLISECONDS

     5983   01 015A8    20A00001 A            AI,10    1                 TEST FOR COMPLETION
     5984   01 015A9    31A00203              CW,10    :P3               LOOP TILL EOT OR RECORD COUNT DONE
     5985   01 015AA    6910156C              BL       TST3112B

     5987         01 015AB           TST3115  EQU      %
     5988   01 015AB    35A00203              STW,R10  :P3               SET MAXIMUM RECORD REACHED

     5990   01 015AC    6AF0161D              BAL,R15  TST3DSP           DISPLAY COUNT
     5991   01 015AD    00001645              DATA     TS3WFMSG

     5993   01 015AE    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT

     5995   01 015AF    33000202              MTW,0    :P2               DONE WITH ALL WRITE PHASES
     5996   01 015B0    69300546              BNEZ     TST36
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   81
A    5998                            * READ RECORDS FORWARD
     5999   01 015B1    6AF0187C     TST3116A BAL,15   RWTLP             REWIND TO LOAD POINT
     6000   01 015B2    22A00000 A            LI,10    0                 RESET COUNT OF FWD READS

     6002   01 015B3    22900000 A   TST3116  LI,9     0                 CLEAR RETRY TALLY
     6003   01 015B4    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6004   01 015B5    6AF01F09              BAL,15   :CLEAR            CLEAR AREA
     6005   01 015B6    22000D66              LI,0     DA(TST3RF)        READ RECORD FORWARD
     6006   01 015B7    6AF01EC7              BAL,15   :IOEXEC           EXECUTE SIO

     6008                            * IF SSW2 IS SET FOR TST3,1,2:
     6009                            * EVEN CYCLES => ATTEMPT OVERRUN GENERATION, COMPARE IF NO ERROR.
     6010                            *  ODD CYCLES => READ NORMALLY, ERROR CHECK AND COMPARE.

     6012   01 015B8    31200202              CW,R2    :P2               SKIP IF NOT READ FORWARD
     6013   01 015B9    693015C7              BNE      TST3116B

     6015   01 015BA    EAF0022A              BAL,R15  *:QSENSE          GATHER SENSE SWITCHES
     6016   01 015BB    684015C7              BCR,4    TST3116B          SKIP IF SSW2 RESET

     6018   01 015BC    21A00001 A            CI,R10   1                 LOOK FOR ODD CYCLE
     6019   01 015BD    694015C7              BANZ     TST3116B          AND DO NORMAL READ

     6021   01 015BE    CDE01B8C              TIO,R14  *:DEVADDR         LOAD MIOP TO PRODUCE
     6022   01 015BF    694015BE              BCS,4    %-1               OVERRUN CONDITIONS

     6024   01 015C0    31F0228F              CW,R15   =X'08400000'      LOOK FOR UE, TE
     6025   01 015C1    684015C7              BAZ      TST3116B          NORMAL ERROR CHECK IF NOT

     6027   01 015C2    6AF0189C              BAL,R15  MYDELAY           WAIT FOR INTERRUPT

     6029   01 015C3    CEF01B8C              TDV,R15  *:DEVADDR         GET TDV STATUS
     6030   01 015C4    31F02279              CW,R15   =X'02000000'      LOOK FOR EOT
     6031   01 015C5    694015EB              BANZ     TST3118A          TERMINATE TESTING IF SET
     6032   01 015C6    680015E6              B        TST3118           ELSE CONTINUE TESTING

     6034   01 015C7    6AF0189C     TST3116B BAL,15   MYDELAY           DELAY FOR INTERRUPT

     6036   01 015C8    CEE01B8C              TDV,14   *:DEVADDR         TDV
     6037   01 015C9    31F02279              CW,15    =X'02000000'      EOT SET
     6038   01 015CA    694015EB              BANZ     TST3118A

     6040   01 015CB    6AF0207D              BAL,15   :ERRORT           TEST
     6041   01 015CC    000066C0              DATA     BA(TSEQ040)       READY, NO UE
     6042   01 015CD    680015D4              B        TST3117A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   82
A    6044                            * SPACE BACKWARD TO LOOP ON ERROR
     6045   01 015CE    33100009 A            MTW,1    9                 TALLY +1
     6046   01 015CF    31901B87              CW,9     RRETRY
     6047   01 015D0    692015D4              BG       TST3117A

     6049   01 015D1    22000D27              LI,R0    DA(SPBRAND)       SPACE BKWD
     6050   01 015D2    6AF011C6              BAL,R15  GENIOXEQ
     6051   01 015D3    680015B4              B        TST3116+1         GO RETRY READ
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   83
A    6053                            * COMPARE INFORMATION
     6054   01 015D4    32C01ACD     TST3117A LW,R12   TST3RF+1          COMPUTE AND TEST
     6055   01 015D5    6AF0162A              BAL,R15  TST3LEN            ACTUAL RECORD SIZE
     6056   01 015D6    680015D7              B        TST3117C            SKIP IF NORMAL

     6058   01 015D7    31201BD4     TST3117C CW,2     PATTYPE           RANDOM PATTERN
     6059   01 015D8    693015DC              BNE      TST3117B

     6061   01 015D9    B2802256              LW,8     *BUFF2            GET SEED FOR RECORD
     6062   01 015DA    35801F59              STW,8    :PATID+1          STORE WORD SEED
     6063   01 015DB    6AF01F19              BAL,15   :PATTERN          SPREAD PATTERN FOR COMPARE

     6065   01 015DC    B2801BA4     TST3117B LW,8     *LASTWDW          SET UP FOR ODD BYTE COUNT
     6066   01 015DD    4B801BC2              AND,8    MASKBYT
     6067   01 015DE    B5801BA4              STW,8    *LASTWDW
     6068   01 015DF    B2801BA5              LW,8     *LASTWDR
     6069   01 015E0    4B801BC2              AND,8    MASKBYT
     6070   01 015E1    B5801BA5              STW,8    *LASTWDR

     6072   01 015E2    3200000A A            LW,R0    R10               POSITION BLOCK NUMBER
     6073   01 015E3    20000001 A            AI,R0    1
     6074   01 015E4    6AF01F67              BAL,R15  :COMPXRE          COMPARE WITH BLOCK DISPLAY
     6075   01 015E5    680015E6              B        TST3118

     6077         01 015E6           TST3118  EQU      %
     6078   01 015E6    32E00204              LW,R14   :P4
     6079   01 015E7    6AF01239              BAL,R15  GENDELAY          DELAY :P4 MILLISECONDS

     6081   01 015E8    20A00001 A            AI,10    1                 TEST FOR COMPLETION
     6082   01 015E9    31A00203              CW,10    :P3               LOOP TILL EOT OR RECORD COUNT DONE
     6083   01 015EA    691015B3              BL       TST3116

     6085         01 015EB           TST3118A EQU      %
     6086   01 015EB    35A00203              STW,R10  :P3               SET MAXIMUM RECORD REACHED

     6088   01 015EC    6AF0161D              BAL,R15  TST3DSP           DISPLAY COUNT
     6089   01 015ED    0000164C              DATA     TS3RFMSG

     6091   01 015EE    31200202              CW,2     :P2
     6092   01 015EF    693015F2              BNE      TST3119           P2 =2 END OF READ FWD

     6094   01 015F0    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     6095   01 015F1    68000546              B        TST36             RETURN TO CONTROL PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   84
A    6097                            * READ RECORDS BACKWARD
     6098   01 015F2    22A00000 A   TST3119  LI,10    0                 RESET COUNT OF BACKWARD READS
     6099   01 015F3    22900000 A            LI,9     0                 CLEAR RETRY TALLY

     6101         01 015F4           TST3119B EQU      %

     6103   01 015F4    22000D65              LI,R0    DA(TST3RB)        READ RECORD BACKWARDS
     6104   01 015F5    6AF011C3              BAL,R15  GENIOXEC           CLEARING BUFFER BEFOREHAND

     6106   01 015F6    CEE01B8C              TDV,14   *:DEVADDR         CHECK FOR BOT
     6107   01 015F7    31F0226E              CW,15    =X'04000000'       AND STOP IF SET
     6108   01 015F8    69401619              BANZ     TST3122

     6110   01 015F9    6AF0207D              BAL,R15  :ERRORT           CHECK FOR NORMAL
     6111   01 015FA    000066C0              DATA     BA(TSEQ040)        ERRORS (NOT READY, UE, TE)
     6112   01 015FB    68001602              B        TST3120A

     6114                            * SPACE FORWARD TO LOOP ON ERROR
     6115   01 015FC    33100009 A            MTW,1    9                 TALLY +1
     6116   01 015FD    31901B87              CW,9     RRETRY
     6117   01 015FE    69201602              BG       TST3120A          RETRIES DONE

     6119   01 015FF    22000D28              LI,R0    DA(SPFRAND)       SPACE FORWARD
     6120   01 01600    6AF011C6              BAL,R15  GENIOXEQ
     6121   01 01601    680015F4              B        TST3119B          GO RETRY READ
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   85
A    6123                            * COMPARE INFORMATION READ
     6124   01 01602    32C01ACB     TST3120A LW,R12   TST3RB+1          COMPUTE AND CHECK
     6125   01 01603    6AF0162A              BAL,R15  TST3LEN            ACTUAL RECORD SIZE
     6126   01 01604    68001605              B        TST3120C            SKIP IF NORMAL

     6128   01 01605    31201BD4     TST3120C CW,2     PATTYPE           RANDOM PATTERN
     6129   01 01606    6930160A              BNE      TST3120B

     6131   01 01607    B2802256              LW,8     *BUFF2            GET SEED FOR RECORD
     6132   01 01608    35801F59              STW,8    :PATID+1          STORE WORD SEED
     6133   01 01609    6AF01F19              BAL,15   :PATTERN          SPREAD PATTERN FOR COMPARE

     6135   01 0160A    B2801BA4     TST3120B LW,8     *LASTWDW          SET UP FOR ODD BYTE COUNT
     6136   01 0160B    4B801BC2              AND,8    MASKBYT
     6137   01 0160C    B5801BA4              STW,8    *LASTWDW
     6138   01 0160D    B2801BA5              LW,8     *LASTWDR
     6139   01 0160E    4B801BC2              AND,8    MASKBYT
     6140   01 0160F    B5801BA5              STW,8    *LASTWDR

     6142   01 01610    32000203              LW,R0    :P3               POSITION BLOCK NUMBER
     6143   01 01611    3800000A A            SW,R0    R10
     6144   01 01612    6AF01F67              BAL,R15  :COMPXRE          DISPLAY WITH BLOCK NUMBER
     6145   01 01613    68001614              B        TST3121

     6147         01 01614           TST3121  EQU      %
     6148   01 01614    32E00204              LW,R14   :P4
     6149   01 01615    6AF01239              BAL,R15  GENDELAY          DELAY :P4 MILLISECONDS

     6151   01 01616    20A00001 A            AI,10    1                 TEST FOR COMPLETION
     6152   01 01617    31A00203              CW,10    :P3               LOOP TILL BOT OR RECORD COUNT DONE
     6153   01 01618    691015F3              BL       TST3119+1

     6155         01 01619           TST3122  EQU      %
     6156   01 01619    6AF0161D              BAL,R15  TST3DSP           DISPLAY COUNT
     6157   01 0161A    00001655              DATA     TS3RBMSG

     6159   01 0161B    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     6160   01 0161C    68000546              B        TST36             RETURN TO CONTROL PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   86
A    6162         01 0161D           TST3DSP  EQU      %                 DISPLAY COUNTS
     6163   01 0161D    B2C0000F A            LW,R12   *R15              FETCH MESSAGE POINTER
     6164   01 0161E    35C01627              STW,R12  TST3DSPM
     6165   01 0161F    20F00001 A            AI,R15   1                 POINT TO RETURN ADDRESS
     6166   01 01620    35F01629              STW,R15  TST3DSPL

     6168   01 01621    32C0000A A            LW,R12   R10               FETCH COUNT
     6169   01 01622    EAF00217              BAL,R15  *:DECC            CONVERT TO DECIMAL
     6170   01 01623    B5F41627              STW,R15  *TST3DSPM,R2      AND STORE IN MESSAGE
     6171   01 01624    EAF00217              BAL,R15  *:DECC            CONVERT REST TO DECIMAL
     6172   01 01625    D5F61627              STH,R15  *TST3DSPM,R3      SAVE 2 DIGITS IN MESSAGE

     6174   01 01626    EAF0021C              BAL,R15  *:PRINT           DISPLAY COUNT MESSAGE
     6175   01 01627    00000000 A   TST3DSPM DATA     0                 POINTER TO MESSAGE

     6177   01 01628    E8001629              B        *TST3DSPL
     6178   01 01629    00000000 A   TST3DSPL DATA     0

     6180   01 0162A    35F01629     TST3LEN  STW,R15  TST3DSPL

     6182   01 0162B    38C0223E              SW,R12   :SAVETAB+14       COMPUTE REQ - REM (ARS)
     6183   01 0162C    4BC02259              AND,R12  =X'FFFF'
     6184   01 0162D    31C01BD9              CW,R12   LNGTST            COMPARE WITH EXPECTED
     6185   01 0162E    E830000F A            BE       *R15               RETURN IF NORMAL

     6187   01 0162F    EAF00218              BAL,R15  *:HEXC            CONVERT ARS
     6188   01 01630    35F0163E              STW,R15  TS3LEMSG+5         TO HEX AND STORE

     6190   01 01631    32C01BD9              LW,R12   LNGTST            CONVERT EXPECTED
     6191   01 01632    EAF00218              BAL,R15  *:HEXC             LENGTH TO HEX
     6192   01 01633    35F01641              STW,R15  TS3LEMSG+8          AND STORE

     6194   01 01634    EAF0021C              BAL,R15  *:PRINT           PRINT A BLANK LINE
     6195   01 01635    00001D07              DATA     SPACE
     6196   01 01636    EAF0021C              BAL,R15  *:PRINT           PRINT LENGTH ERROR MESSAGE
     6197   01 01637    00001639              DATA     TS3LEMSG
     6198   01 01638    E8021629              B        *TST3DSPL,R1      TAKE ERROR EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   87
A    6200   01 01639    2FD3C5D5 A   TS3LEMSG TEXTC    'LENGTH ERROR, OBS: XXXX, EXP:  XXXX (HEX BYTES)'
            01 0163A    C7E3C840 A
            01 0163B    C5D9D9D6 A
            01 0163C    D96B40D6 A
            01 0163D    C2E27A40 A
            01 0163E    E7E7E7E7 A
            01 0163F    6B40C5E7 A
            01 01640    D77A4040 A
            01 01641    E7E7E7E7 A
            01 01642    404DC8C5 A
            01 01643    E740C2E8 A
            01 01644    E3C5E25D A
     6201   01 01645    1BC5D5C4 A   TS3WFMSG TEXTC    'END: 123456 RECORDS WRITTEN'
            01 01646    7A40F1F2 A
            01 01647    F3F4F5F6 A
            01 01648    40D9C5C3 A
            01 01649    D6D9C4E2 A
            01 0164A    40E6D9C9 A
            01 0164B    E3E3C5D5 A
     6202   01 0164C    20C5D5C4 A   TS3RFMSG TEXTC    'END: 123456 RECORDS READ FORWARD'
            01 0164D    7A40F1F2 A
            01 0164E    F3F4F5F6 A
            01 0164F    40D9C5C3 A
            01 01650    D6D9C4E2 A
            01 01651    40D9C5C1 A
            01 01652    C440C6D6 A
            01 01653    D9E6C1D9 A
            01 01654    C4404040 A
     6203   01 01655    21C5D5C4 A   TS3RBMSG TEXTC    'END: 123456 RECORDS READ BACKWARD'
            01 01656    7A40F1F2 A
            01 01657    F3F4F5F6 A
            01 01658    40D9C5C3 A
            01 01659    D6D9C4E2 A
            01 0165A    40D9C5C1 A
            01 0165B    C440C2C1 A
            01 0165C    C3D2E6C1 A
            01 0165D    D9C44040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   88
A    6205                            *                                   TST3,2 DESKEW UTILITY TEST
     6206                            *                                   -----------------------------------
     6207                            *                 A SCOPING AID FOR ADJUSTING AND CHECKING SKEW.
     6208                            *                 WRITES CONTINUOUS PATTERN OF ONES.
     6209                            *
     6210                            *                              D2 0,1 WRITE UNTIL EOT IS REACHED AND
     6211                            *                                   REWIND.
     6212                            *                                 2 READ FORWARD UTIL EOT AND REWIND.
     6213                            *                                 3 READ BACKWARD UNTIL BOT IS REACHED.
     6214                            *                                 4 READ FWD TILL EOT, READ BKW TILL
     6215                            *                                   BOT, NO REWINDS.
     6216                            *                                 5 CAPSTAN SLIPPAGE EXERCISER.

     6218   01 0165E    22700064 A   TST32    LI,7     100               SMEAR PATTERN
     6219   01 0165F    32802273              LW,8     =X'FFFFFFFF'      ALL BITS ON
     6220   01 01660    358E229F              STW,8    BUFF1-1,7         STORE WORD 400 BYTE RECORD
     6221   01 01661    64701660              BDR,7    %-1
     6222   01 01662    31100202              CW,1     :P2               P2 =0,1 WRITE CONTINUOUS
     6223   01 01663    6810167E              BGE      TST3202
     6224   01 01664    31200202              CW,2     :P2               P2 =2    READ FWD TIL EOT
     6225   01 01665    683016A8              BEZ      TST3205
     6226   01 01666    31300202              CW,3     :P2               P2 =3  READ BKW UNTIL BOT
     6227   01 01667    68301694              BEZ      TST3203
     6228   01 01668    32700202              LW,7     :P2
     6229   01 01669    21700004 A            CI,7     4
     6230   01 0166A    683016A9              BE       TST3206      P2=4 READ FWD,BKWD,NO REWINDS
     6231   01 0166B    21700005 A            CI,7     5                 P2 =5 CAPSTAN SLIPPAGE TEST
     6232   01 0166C    68301671              BE       TST3202C

     6234                            * ERROR P2 IS NOT 0,1,2,3,4,5
     6235   01 0166D    3520030A              STW,2    :PIT10            REPORT BAD PARAMETER
     6236   01 0166E    EAF00229              BAL,15   *:PREPORT
     6237   01 0166F    00000326              DATA     :DIC+6
     6238   01 01670    E8000214              B        *:MONITOR

     6240   01 01671    CF801B8C     TST3202C HIO,8    *:DEVADDR         HALT DEVICE
     6241   01 01672    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT

     6243   01 01673    22000D66     TST3202D LI,0     DA(TST3RF)        READ MAXIMUM BYTES
     6244   01 01674    6AF01EC7              BAL,15   :IOEXEC
     6245   01 01675    CE801B8C              TDV,8    *:DEVADDR         TDV
     6246   01 01676    4B902279              AND,9    =X'02000000'        CHECK FOR END OF TAPE
     6247   01 01677    69301671              BCS,3    TST3202C            EOT - REWIND AND CONTINUE
     6248   01 01678    32800468              LW,8     DQBN              DELAY
     6249   01 01679    65801679              BIR,8    %
     6250   01 0167A    CF801B8C              HIO,8    *:DEVADDR         HALT DEVICE
     6251   01 0167B    32800468              LW,8     DQBN              DELAY
     6252   01 0167C    6580167C              BIR,8    %
     6253   01 0167D    68001673              B        TST3202D          CONTINUE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   89
A    6255   01 0167E    6AF0187C     TST3202  BAL,15   RWTLP             REWIND TO LOAD POINT
     6256   01 0167F    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6257   01 01680    22000D30              LI,0     DA(TST32W)        WRITE RECORD WITH DATA CHAINING
     6258   01 01681    CC801B8C              SIO,8    *:DEVADDR         **NO CHECK FOR REJECT**
     6259   01 01682    2277FFFF A            LI,7     X'7FFFF'          (MAXIMUM DELAY AT BOT)
     6260   01 01683    32C02068              LW,12    :INTRECF          WAIT FOR INTERRUPT
     6261   01 01684    6930168C              BNEZ     TST3202A
     6262   01 01685    64701683              BDR,7    %-2
     6263   01 01686    CFC01B8C              HIO,12   *:DEVADDR         HIO
     6264   01 01687    CEA01B8C              TDV,10   *:DEVADDR         TDV
     6265   01 01688    31B02279              CW,11    =X'02000000'      EOT SET
     6266   01 01689    6940167E              BCS,4    TST3202
     6267   01 0168A    6AF01899              BAL,R15  MYTIMOUT          DISPLAY TIMEOUT MESSAGE
     6268   01 0168B    6800167F              B        TST3202+1         CONTINUE WITH OPERATION
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   90
A    6270                            * TAPE WRITTEN ALL BITS ON CONTINUOUSLY
     6271   01 0168C    CEC01B8C     TST3202A TDV,12   *:DEVADDR         LOOK FOR EOT
     6272   01 0168D    31D02279              CW,13    =X'02000000'      EOT
     6273   01 0168E    69401692              BCS,4    %+4
     6274   01 0168F    2270E000 A            LI,7     X'E000'
     6275   01 01690    6AF02071              BAL,15   :INTAE            ARM INTERRUPT
     6276   01 01691    68001683              B        TST3202+5
     6277   01 01692    CFC01B8C              HIO,12   *:DEVADDR         HIO
     6278   01 01693    6800167E              B        TST3202           GO TO REWIND

     6280   01 01694    6AF018C6     TST3203  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6281   01 01695    22000D32              LI,0     DA(TST32RB)       READ BKW WITH DATA CHAIN
     6282   01 01696    CC801B8C              SIO,8    *:DEVADDR         **NO CHECK FOR REJECT**
     6283   01 01697    2270E000 A            LI,7     X'E000'
     6284   01 01698    32C02068              LW,12    :INTRECF          WAIT FOR INTERRUPT
     6285   01 01699    693016A0              BNEZ     TST3203A
     6286   01 0169A    CEA01B8C              TDV,10   *:DEVADDR         TDV
     6287   01 0169B    31B0226E              CW,11    =X'04000000'      BOT SET
     6288   01 0169C    694016A6              BCS,4    TST3205-2
     6289   01 0169D    64701698              BDR,7    %-5
     6290   01 0169E    6AF01899              BAL,R15  MYTIMOUT          HALT DISPLAY TIMEOUT MESSAGE
     6291   01 0169F    68001694              B        TST3203           CONTINUE WITH OPERATION

     6293   01 016A0    CEC01B8C     TST3203A TDV,12   *:DEVADDR         LOOK FOR BOT
     6294   01 016A1    31D0226E              CW,13    =X'04000000'      BOT SET
     6295   01 016A2    694016A6              BCS,4    %+4
     6296   01 016A3    2270E000 A            LI,7     X'E000'
     6297   01 016A4    6AF02071              BAL,15   :INTAE            ARM INTERRUPT
     6298   01 016A5    68001698              B        TST3203+4
     6299   01 016A6    CFC01B8C              HIO,12   *:DEVADDR
     6300   01 016A7    680016A9              B        TST3206           GO READ FWD

     6302   01 016A8    6AF0187C     TST3205  BAL,15   RWTLP             REWIND TO LOAD POINT
     6303   01 016A9    6AF018C6     TST3206  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6304   01 016AA    22000D34              LI,0     DA(TST32RF)       READ FWD TILL EOT  P2 =2
     6305   01 016AB    CC801B8C              SIO,8    *:DEVADDR         **NO CHECK FOR REJECT**
     6306   01 016AC    2270E000 A            LI,7     X'E000'
     6307   01 016AD    32C02068              LW,12    :INTRECF          WAIT FOR INTERRUPT
     6308   01 016AE    693016B6              BNEZ     TST3206A
     6309   01 016AF    647016AD              BDR,7    %-2
     6310   01 016B0    CFC01B8C              HIO,12   *:DEVADDR         HIO
     6311   01 016B1    CEA01B8C              TDV,10   *:DEVADDR         TDV
     6312   01 016B2    31B02279              CW,11    =X'02000000'      EOT SET
     6313   01 016B3    694016BD              BCS,4    TST3207
     6314   01 016B4    6AF01899              BAL,R15  MYTIMOUT          DISPLAY TIMEOUT MESSAGE
     6315   01 016B5    680016A9              B        TST3206           CONTINUE WITH OPERATION
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   91
A    6317   01 016B6    CEC01B8C     TST3206A TDV,12   *:DEVADDR         LOOK FOR EOT
     6318   01 016B7    31D02279              CW,13    =X'02000000'      EOT
     6319   01 016B8    694016BC              BCS,4    %+4
     6320   01 016B9    2270E000 A            LI,7     X'E000'
     6321   01 016BA    6AF02071              BAL,15   :INTAE            ARM INTERRUPT
     6322   01 016BB    680016AD              B        TST3206+4
     6323   01 016BC    CFC01B8C              HIO,12   *:DEVADDR

     6325   01 016BD    31300202     TST3207  CW,3     :P2               P2 =3
     6326   01 016BE    68301694              BEZ      TST3203           GO READ BACKWARDS
     6327   01 016BF    32700202              LW,7     :P2
     6328   01 016C0    21700004 A            CI,7     4
     6329   01 016C1    68301694              BE       TST3203           P2 =4 NO REWINDS, READ BACKWARD
     6330   01 016C2    680016A8              B        TST3205           REWIND AND READ FORWARD AGAIN
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   92
A    6332                            *                                   TST3,3 SYNC ON A CHARACTER UTILITY
     6333                            *                                   ------------------------------------
     6334                            *
     6335                            *                    THIS TEST IS PROVIDED AS A SCOPING AID BY EXECUTING
     6336                            *                    A UNIQUE I/O INSTRUCTION (TDV) AFTER THE BYTE COUNT
     6337                            *                    SPECIFIED IN THE TEST HAS BEEN REACHED.
     6338                            *                           D1 3 SYNC ON A CHARACTER TEST
     6339                            *                              D2 1 READ FORWARD AND SPACE RECORD
     6340                            *                                   BACKWARD.
     6341                            *                                 2 READ BACKWARD AND SPACE RECORD
     6342                            *                                   FORWARD.
     6343                            *                              D3 BYTE TO SYNC ON.
     6344                            *                              D4 DELAY IN MIL/SECS BETWEEN SYNCS.

     6346   01 016C3    32700203     TST33    LW,7     :P3               GET BYTE COUNT TO SYNC ON
     6347   01 016C4    21700000 A            CI,7     0
     6348   01 016C5    682016D1              BLEZ     TST3301
     6349   01 016C6    32700204              LW,7     :P4               P4 =0 OK
     6350   01 016C7    681016CB              BGEZ     %+4
     6351   01 016C8    22700004 A            LI,7     4
     6352   01 016C9    3570030A              STW,7    :PIT10            PARAMETER 4 ERROR
     6353   01 016CA    680016D2              B        TST3301+1
     6354   01 016CB    229FFFF5 A            LI,9     -11               MAX BYTE BUFFER AREA
     6355   01 016CC    22800000 A            LI,8     0
     6356   01 016CD    30801B97              AW,8     MAXBYT
     6357   01 016CE    659016CD              BIR,9    %-1               11 X MAXBYTE LIMIT
     6358   01 016CF    31800007 A            CW,8     7
     6359   01 016D0    681016D5              BGE      TST3302           P3 OK

     6361                            * ERROR EXIT P3 TOO LARGE, NEGATIVE OR ZERO
     6362   01 016D1    3530030A     TST3301  STW,3    :PIT10            PARAMETER 3 ERROR
     6363   01 016D2    EAF00229              BAL,15   *:PREPORT
     6364   01 016D3    00000326              DATA     :DIC+6
     6365   01 016D4    E8000214              B        *:MONITOR

     6367   01 016D5    22700000 A   TST3302  LI,7     0
     6368   01 016D6    32801B97              LW,8     MAXBYT            MAX BYTE SIZE OF I/O AREA
     6369   01 016D7    30802290              AW,8     =X'91000000'      DC,CE,SKIP
     6370   01 016D8    225FFFF5 A            LI,5     -11
     6371   01 016D9    358E1A6F              STW,8    TST33R+1,7        SET UP DC FLAG
     6372   01 016DA    33200007 A            MTW,2    7
     6373   01 016DB    655016D9              BIR,5    %-2               SET UP DATA CHAIN FLAG IN ALL IOCD
     6374   01 016DC    32700203              LW,7     :P3               GET BYTE TO SYNC ON
     6375   01 016DD    229FFFF5 A            LI,9     -11
     6376   01 016DE    22600000 A            LI,6     0
     6377   01 016DF    32801B97     TST3303  LW,8     MAXBYT            LARGEST RECORD POSSIBLE IN I/O AREA
     6378   01 016E0    31800007 A            CW,8     7
     6379   01 016E1    681016E6              BGE      TST3304           LAST BYTE SET UP
     6380   01 016E2    38701B97              SW,7     MAXBYT
     6381   01 016E3    30801B97              AW,8     MAXBYT
     6382   01 016E4    33200006 A            MTW,2    6
     6383   01 016E5    659016DF              BIR,9    TST3303           LOOP
     6384   01 016E6    4B70225C     TST3304  AND,7    =X'00FFFFFF'      GET LAST BYTE COUNT
     6385   01 016E7    30702291              AW,7     =X'50000000'      ZBC AND CE INTERRUPT
     6386   01 016E8    357C1A6F              STW,7    TST33R+1,6
     6387   01 016E9    31100202              CW,1     :P2               READ FWD, SPACE BKW
     6388   01 016EA    683016F4              BEZ      TST3306
     6389   01 016EB    31200202              CW,2     :P2               READ BKW, SPACE FWD
     6390   01 016EC    683016EF              BEZ      TST3307

     6392                            * ERROR EXIT P2 NOT 1,2
     6393   01 016ED    3520030A              STW,2    :PIT10            REPORT BAD PARAMETER
     6394   01 016EE    680016D2              B        TST3302-3
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   93
A    6396                            * BACKWARD READ SET UP
     6397   01 016EF    32602292     TST3307  LW,6     =X'43000000'      SPACE FWD
     6398   01 016F0    3290022F              LW,9     :MEMLAST          LAST WORD IN MEMORY TO USE
     6399   01 016F1    25900002 A            SLS,9    2                 GET BA
     6400   01 016F2    30902293              AW,9     =X'0C000000'      READ BACKWARD
     6401   01 016F3    680016F7              B        %+4

     6403                            * FORWARD READ SET UP
     6404   01 016F4    32602294     TST3306  LW,6     =X'4B000000'      SPACE BKW
     6405   01 016F5    22908A80              LI,9     BA(BUFF1)
     6406   01 016F6    30902279              AW,9     =X'02000000'      READ FWD
     6407   01 016F7    35601A6C              STW,6    TST33S            SPACE FWD OR BKW
     6408   01 016F8    22700000 A            LI,7     0
     6409   01 016F9    226FFFF5 A            LI,6     -11
     6410   01 016FA    359E1A6E              STW,9    TST33R,7          SET UP ALL READS
     6411   01 016FB    33200007 A            MTW,2    7
     6412   01 016FC    656016FA              BIR,6    %-2

     6414                            * READ RECORD FWD OR BKW
     6415   01 016FD    6AF018C6     TST3309  BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6416   01 016FE    22000D37              LI,0     DA(TST33R)        READ
     6417   01 016FF    CC801B8C              SIO,8    *:DEVADDR         SIO READ
     6418   01 01700    22E02328 A            LI,14    9000              9 SEC DELAY
     6419   01 01701    6AF02018              BAL,15   :DELAY            WAIT FOR INTERRUPT
     6420   01 01702    68001704              B        TST3310
     6421   01 01703    68001717              B        TST3311           DELAY TIMEOUT

     6423   01 01704    CEC01B8C     TST3310  TDV,12   *:DEVADDR         TDV SIGNAL AT ZBC
     6424   01 01705    32702295              LW,7     =X'00FF0000'      DELAY
     6425   01 01706    CDC01B8C              TIO,12   *:DEVADDR         TIO
     6426   01 01707    31D0226D              CW,13    =X'66000000'      DEVICE OR CONTROLLER BUSY
     6427   01 01708    6840170B              BCR,4    %+3
     6428   01 01709    64701706              BDR,7    %-3               LOOP
     6429   01 0170A    68001717              B        TST3311           TIMEOUT ERROR
     6430   01 0170B    22E00000 A            LI,14    0
     6431   01 0170C    35E02068              STW,14   :INTRECF          CLEAR INTERRUPT FLAG
     6432   01 0170D    32E00204              LW,14    :P4               DELAY FOR SMALL RECORDS
     6433   01 0170E    6AF02018              BAL,15   :DELAY
     6434   01 0170F    68001710              B        %+1
     6435   01 01710    6AF018C6              BAL,15   CLRARM            CLEAR AND ARM INTERRUPT
     6436   01 01711    22000D36              LI,0     DA(TST33S)        SPACE
     6437   01 01712    CC801B8C              SIO,8    *:DEVADDR         SIO SPACE
     6438   01 01713    22E01F40 A            LI,14    8000              8 SEC DELAY
     6439   01 01714    6AF02018              BAL,15   :DELAY
     6440   01 01715    680016FD              B        TST3309
     6441   01 01716    68000546              B        TST36

     6443   01 01717    6AF01899     TST3311  BAL,R15  MYTIMOUT          HALT AND DISPLAY TIMEOUT MESSAGE
     6444   01 01718    6AF0187C              BAL,15   RWTLP             REWIND TO LOAD POINT
     6445   01 01719    68000546              B        TST36
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   94
A    6447                            *                  TST3,4 COMPATIBILITY AND NOISE PATTERN TEST
     6448                            *                  -----------------------------------------------
     6449                            *
     6450                            *                    THIS TEST ALLOWS THE USER TO WRITE, READ FORWARD,
     6451                            *                    READ BACKWARD, OR READ FORWARD AND BACKWARD A PRE-
     6452                            *                    DETERMINED INCREMENTED NOISE PATTERN.
     6453                            *
     6454                            *                           D1 4 COMPATABILITY AND NOISE PATTERN TEST
     6455                            *                              D2 0,1 WRITE, READ BACKWARD, AND READ
     6456                            *                                   FORWARD ALL RECORDS.
     6457                            *                                 2 SPACE FORWARD, READ BACKWARD, READ
     6458                            *                                   FORWARD ALL RECORDS.
     6459                            *                                 3 READ FORWARD, READ BACKWARD, SPACE
     6460                            *                                   FORWARD ALL RECORDS.
     6461                            *                                 4 READ FORWARD ALL RECORDS.
     6462                            *                                 5 WRITE ALL RECORDS.
     6463                            *                              D3 THE NUMBER OF RECORDS TO BE
     6464                            *                                 WRITTEN. (1 - 1500)

     6466         01 0171A           TST34    EQU      %
     6467   01 0171A    32800202              LW,8     :P2               FETCH OPERATION FLAG
     6468   01 0171B    35801BBB              STW,8    P2FLAG             AND SAVE
     6469   01 0171C    21800006 A            CI,8     6
     6470   01 0171D    69101722              BL       TST3401

     6472   01 0171E    3520030A              STW,2    :PIT10            SIGNAL :P2 IN ERROR
     6473   01 0171F    EAF00229              BAL,15   *:PREPORT
     6474   01 01720    00000326              DATA     :DIC+6
     6475   01 01721    E8000214              B        *:MONITOR         GO TO MONITOR

     6477   01 01722    32800203     TST3401  LW,8     :P3               USE DEFAULT RECORD COUNT
     6478   01 01723    31100203              CW,1     :P3                OF 300 IF NONE PRESENT
     6479   01 01724    68201726              BLE      %+2
     6480   01 01725    2280012C A            LI,8     300

     6482   01 01726    25800003 A            SLS,8    3                 COMPUTE LARGEST RECORD SIZE
     6483   01 01727    20800004 A            AI,8     4                  (COUNT*8+4) BUT LIMIT
     6484   01 01728    21802EE4 A            CI,8     12004               SIZE TO 1500*8+4
     6485   01 01729    6910172B              BL       %+2
     6486   01 0172A    22802EE4 A            LI,8     12004

     6488   01 0172B    31801B99              CW,8     MAXREADB          COMPARE WITH MAXIMUM
     6489   01 0172C    6910172E              BL       %+2
     6490   01 0172D    32801B99              LW,8     MAXREADB

     6492   01 0172E    208FFFFC A            AI,8     -4                NOW COMPUTE REAL
     6493   01 0172F    2580007D A            SLS,8    -3                 NUMBER OF RECORDS POSSIBLE
     6494   01 01730    35801BBD              STW,8    LOOPMAX             AND SAVE THIS VALUE

     6496   01 01731    351022A0              STW,1    BUFF1             SEQUENCE NUMBER 1
     6497   01 01732    35101B56              STW,1    LOOPTLY           RECORD 1

     6499   01 01733    22600000 A            LI,6     0                 CLEAR TALLIES OF ERRORS
     6500   01 01734    227FFFD0 A            LI,7     -48
     6501   01 01735    356E1B06              STW,6    TWTALLY+48,7
     6502   01 01736    65701735              BIR,7    %-1

     6504   01 01737    22700005 A            LI,7     5                 SET UP 5 RETRIES
     6505   01 01738    35701B57              STW,7    CRTRY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   95
A    6507                            * SMEAR PATTERN ALL OVER THE BUFFER
     6508   01 01739    22D00003 A            LI,13    3                 START WITH 3 WORDS
     6509   01 0173A    35D01FCE              STW,13   :COMWCNT          COMPARE
     6510   01 0173B    35D01F18              STW,13   :CLRSIZE          CLEAR
     6511   01 0173C    6AF0193F              BAL,15   MYTSTPT           PATTERNS IN BUFFER AREA

     6513   01 0173D    2250000C A            LI,5     12                INITIALIZE
     6514   01 0173E    35501BD9              STW,5    LNGTST             LENGTH OF RECORD
     6515   01 0173F    6AF01484              BAL,R15  RBUILD              COMPUTE CHANNEL PROGRAMS

     6517   01 01740    32F02256              LW,15    BUFF2
     6518   01 01741    35F01F17              STW,15   :CLRADDR          CLEAR ADDRESS
     6519   01 01742    35F01FD0              STW,15   :COMBFRB          COMPARE OBSERVED LOCATION

     6521   01 01743    22F022A0              LI,15    BUFF1             OUTPUT AREA
     6522   01 01744    35F01FCF              STW,15   :COMBFRA          PATTERN
     6523   01 01745    22C00000 A            LI,12    0
     6524   01 01746    35C01FD1              STW,12   :COMFLAG          ERROR PRINTOUT

     6526   01 01747    6AF018EE              BAL,R15  RWALL             REWIND ALL UNITS

     6528   01 01748    32401BBB     TST3405  LW,4     P2FLAG            GET TYPE OF OPERATION
     6529   01 01749    68301750              BEZ      TST3406
     6530   01 0174A    6808174A              B        %,4
     6531   01 0174B    68001750              B        TST3406           WRITE, READ BKW, READ FWD
     6532   01 0174C    68001754              B        TST3407           SPACE FWD, READ BKW, READ FWD
     6533   01 0174D    68001758              B        TST3408           READ FWD, READ BKW, SPACE FWD
     6534   01 0174E    6800175C              B        TST3408A          READ FWD ONLY
     6535   01 0174F    6800175E              B        TST3409           WRITE ONLY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   96
A    6537         01 01750           TST3406  EQU      %
     6538   01 01750    6AF01321              BAL,R15  T2REW             WRITE
     6539   01 01751    6AF01346              BAL,R15  T2RERB            READ BACKWARD
     6540   01 01752    6AF01332              BAL,R15  T2RERF            READ FORWARD
     6541   01 01753    68001760              B        TST3410

     6543         01 01754           TST3407  EQU      %
     6544   01 01754    6AF0135A              BAL,R15  T2RESF            SPACE FORWARD
     6545   01 01755    6AF01346              BAL,R15  T2RERB            READ BACKWARD
     6546   01 01756    6AF01332              BAL,R15  T2RERF            READ FORWARD
     6547   01 01757    68001760              B        TST3410

     6549         01 01758           TST3408  EQU      %
     6550   01 01758    6AF01332              BAL,R15  T2RERF            READ FORWARD
     6551   01 01759    6AF01346              BAL,R15  T2RERB            READ BACKWARD
     6552   01 0175A    6AF0135A              BAL,R15  T2RESF            SPACE FORWARD
     6553   01 0175B    68001760              B        TST3410

     6555         01 0175C           TST3408A EQU      %
     6556   01 0175C    6AF01332              BAL,R15  T2RERF            READ FORWARD
     6557   01 0175D    68001760              B        TST3410

     6559         01 0175E           TST3409  EQU      %
     6560   01 0175E    6AF01321              BAL,R15  T2REW             WRITE
     6561   01 0175F    68001760              B        TST3410

     6563   01 01760    32901BD9     TST3410  LW,9     LNGTST            INCREMENT RECORD SIZE
     6564   01 01761    20900008 A            AI,9     8
     6565   01 01762    35901BD9              STW,9    LNGTST

     6567   01 01763    6AF01484              BAL,R15  RBUILD            COMPUTE CHANNEL PROGRAMS

     6569   01 01764    32901FCE              LW,9     :COMWCNT          INCREMENT WORD SIZE
     6570   01 01765    20900002 A            AI,9     2                 WORD SIZE +2
     6571   01 01766    35901FCE              STW,9    :COMWCNT          COMPARE WORDS
     6572   01 01767    35901F18              STW,9    :CLRSIZE          CLEAR

     6574   01 01768    33101B56              MTW,1    LOOPTLY
     6575   01 01769    32901B56              LW,9     LOOPTLY
     6576   01 0176A    359022A0              STW,9    BUFF1             SET UP NEXT SEQUENCE NO. IN RECORD
     6577   01 0176B    31901BBD              CW,9     LOOPMAX           ALL PASSES DONE
     6578   01 0176C    68201748              BLE      TST3405           DO ANOTHER LOOP
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   97
A    6580   01 0176D    31100202     TST3413  CW,1     :P2               CHECK OPERATIONS
     6581   01 0176E    68101772              BGE      %+4               BRANCH = :P2 = 0/1
     6582   01 0176F    6840177C              BAZ      TST3413A          BRANCH = :P2 = 4
     6583   01 01770    31200202              CW,2     :P2
     6584   01 01771    6940177C              BANZ     TST3413A          BRANCH = :P2 = 2/3

     6586   01 01772    22700000 A            LI,7     0                 WRITE OPERATIONS
     6587   01 01773    3A501B96              LCW,5    SAVNUMB           NUMBER OF DEVICES

     6589   01 01774    32FE1B8E     TST3414  LW,15    SAVDEV,7          NEXT UNIT
     6590   01 01775    35F01B8C              STW,15   :DEVADDR

     6592   01 01776    229FFFFD A            LI,9     -3                WRITE 3 TAPE MARKS
     6593   01 01777    22000CFA              LI,R0    DA(TWTM)          WRITE FILEMARK
     6594   01 01778    6AF011C6              BAL,R15  GENIOXEQ
     6595   01 01779    65901777              BIR,R9   %-2

     6597   01 0177A    20700001 A            AI,7     1                 BUMP DEVICE TABLE INDEX
     6598   01 0177B    65501774              BIR,R5   TST3414

     6600                            *ALL PASSES COMPLETED
     6601         01 0177C           TST3413A EQU      %
     6602   01 0177C    6AF01B2A              BAL,R15  T2RESUM           DISPLAY DECIMAL ERROR STATISTICS

     6604   01 0177D    6AF018EE              BAL,R15  RWALL             REWIND ALL UNITS
     6605   01 0177E    68000546              B        TST36              AND RETURN TO MONITOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   98
A    6607                            *                 TST3,5  READ/SPACE TEST
     6608                            *                 -------------------------
     6609                            *
     6610                            *        THIS TEST ALLOWS THE USER TO READ OR SPACE N RECORDS
     6611                            *        WITH OR WITHOUT REWIND. ONLY NON-RECOVERABLE TRANSMISSION
     6612                            *        ERRORS WILL CAUSE ERROR PRINTOUT,BACKSPACE AND A HALT.
     6613                            *
     6614                            *                           D1 5 READ/SPACE TEST
     6615                            *                           D2 0 REWIND AND READ FWD N RECORDS.
     6616                            *                              1 REWIND AND SPACE FWD N RECORDS.
     6617                            *                              2 DONT REWIND, READ FWD N RECORDS
     6618                            *                              3 DONT REWIND, SPACE FWD N RECORDS.
     6619                            *                              4 DONT REWIND, SPACE BKW N RECORDS.
     6620                            *                           D3 NUMBER OF RECORDS TO READ OR SPACE
     6621                            *                           D4 0 DONT PRINTOUT RECORD
     6622                            *                              1 PRINTOUT IF TE
     6623                            *                              2 PRINTOUT IF LAST
     6624                            *                              3 PRINTOUT ALL

     6626   01 0177F    32700202     TST35    LW,7     :P2
     6627   01 01780    21700005 A            CI,7     5
     6628   01 01781    69101786              BL       TST3501

     6630                            * PARAMETER ERROR
     6631   01 01782    3520030A              STW,2    :PIT10
     6632   01 01783    EAF00229              BAL,15   *:PREPORT
     6633   01 01784    00000326              DATA     :DIC+6
     6634   01 01785    E8000214              B        *:MONITOR         GO TO MONITOR

     6636   01 01786    32700203     TST3501  LW,7     :P3
     6637   01 01787    6920178A              BGZ      TST3502

     6639                            * PARAMETER ERROR
     6640   01 01788    3530030A              STW,3    :PIT10
     6641   01 01789    68001783              B        TST3501-3

     6643   01 0178A    32700204     TST3502  LW,7     :P4
     6644   01 0178B    21700004 A            CI,7     4
     6645   01 0178C    69101790              BL       TST3503

     6647                            * PARAMETER ERROR
     6648   01 0178D    22700004 A            LI,7     4
     6649   01 0178E    3570030A              STW,7    :PIT10
     6650   01 0178F    68001783              B        TST3501-3
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE   99
A    6652   01 01790    35101BBF     TST3503  STW,1    TLOOP             START WITH LOOP 1
     6653   01 01791    32700203              LW,7     :P3
     6654   01 01792    35701BC0              STW,7    CMAX
     6655   01 01793    31100202              CW,1     :P2
     6656   01 01794    69101796              BL       %+2
     6657   01 01795    6AF0187C              BAL,15   RWTLP             0,1 REWIND TO LOAD POINT

     6659   01 01796    32700202     TST3504  LW,7     :P2
     6660   01 01797    21700004 A            CI,7     4
     6661   01 01798    683017ED              BE       TST3508           BACKSPACE ONLY
     6662   01 01799    21700001 A            CI,7     1
     6663   01 0179A    694017E2              BCS,4    TST3507           SPACE FWD ONLY
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  100
A    6665   01 0179B    22700000 A   TST3505  LI,7     0
     6666   01 0179C    35701BC1              STW,7    RRTT              CLEAR RETRY TALLY

     6668   01 0179D    22000D25              LI,R0    DA(RFSPEC)        READ FORWARD INTO FULL BUFF
     6669   01 0179E    6AF011C6              BAL,R15  GENIOXEQ

     6671   01 0179F    CE801B8C              TDV,8    *:DEVADDR         TDV TO SEE IF AT EOT
     6672   01 017A0    31902279              CW,9     =X'02000000'      EOT
     6673   01 017A1    694017F3              BANZ     TST3510           GO TO HALT,EXIT

     6675   01 017A2    CDA01B8C              TIO,10   *:DEVADDR         TIO
     6676   01 017A3    32C01B97              LW,12    MAXBYT            MAXIMUM BYTES
     6677   01 017A4    4BB02259              AND,11   =X'FFFF'          BYTE COUNT LEFT
     6678   01 017A5    38C0000B A            SW,12    11
     6679   01 017A6    35C01BBE              STW,12   BYTECN

     6681   01 017A7    31300204              CW,R3    :P4
     6682   01 017A8    693017AB              BNE      TST3505C          LOOK FOR PRINT-ALL
     6683   01 017A9    6AF017F4              BAL,R15  TST3511
     6684   01 017AA    680017EF              B        TST3509

     6686         01 017AB           TST3505C EQU      %
     6687   01 017AB    32801BBF              LW,8     TLOOP
     6688   01 017AC    31801BC0              CW,8     CMAX
     6689   01 017AD    693017B2              BNE      TST3505D
     6690   01 017AE    31200204              CW,2     :P4               PRINTOUT NTH RECORD
     6691   01 017AF    693017B2              BNE      TST3505D
     6692   01 017B0    6AF017F4              BAL,15   TST3511           GO TO PRINTOUT
     6693   01 017B1    680017EF              B        TST3509

     6695         01 017B2           TST3505D EQU      %
     6696   01 017B2    31902274              CW,R9    =X'00400000'      TE ONLY
     6697   01 017B3    684017EF              BCR,4    TST3509
     6698   01 017B4    31902266              CW,9     =X'08000000'      NON-CORRECTABLE READ ERROR
     6699   01 017B5    694017BA              BCS,4    TST3505A
     6700   01 017B6    35101B60              STW,1    FLG1              SET CORRECTABLE READ ERROR
     6701   01 017B7    22000D0D              LI,R0    DA(TSENSE)        SENSE
     6702   01 017B8    6AF011C6              BAL,R15  GENIOXEQ
     6703   01 017B9    680017BC              B        TST3505E
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  101
A    6705   01 017BA    22000000 A   TST3505A LI,0     0                 RESET READ ERROR FLAG
     6706   01 017BB    35001B60              STW,0    FLG1

     6708                            * TRANSMISSION ERROR RETRY ROUTINE
     6709         01 017BC           TST3505E EQU      %
     6710   01 017BC    22000D27              LI,R0    DA(SPBRAND)       SPACE BKW
     6711   01 017BD    6AF011C6              BAL,R15  GENIOXEQ
     6712   01 017BE    33101BC1              MTW,1    RRTT              RETRY+1
     6713   01 017BF    32701BC1              LW,7     RRTT              RETRYS MAXIMUM
     6714   01 017C0    2170000B A            CI,7     11
     6715   01 017C1    6910179D              BL       TST3505+2
     6716   01 017C2    31101B60              CW,1     FLG1              TEST READ ERROR FLAG
     6717   01 017C3    684017CB              BCR,4    TST3505B
     6718   01 017C4    22000000 A            LI,0     0
     6719   01 017C5    35001B60              STW,0    FLG1              RESET CORRECT/NON-CORRECT FLAG
     6720   01 017C6    72C01B5F              LB,12    TSC1D             SENSE INFO
     6721   01 017C7    EAF00218              BAL,15   *:HEXC            CONVERT
     6722   01 017C8    55F01C8A              STH,15   MESSNS1+3
     6723   01 017C9    EAF0021C              BAL,15   *:PRINT           GO TO PRINT SUBR.
     6724   01 017CA    00001C87              DATA     MESSNS1

     6726                            * 10 RETRIES, PRINTOUT AND HALT
     6727   01 017CB    32C01BBF     TST3505B LW,12    TLOOP             RECORD IN ERROR
     6728   01 017CC    EAF00217              BAL,15   *:DECC            CONVERT
     6729   01 017CD    35F01CE2              STW,15   MRTE+5            STORE
     6730   01 017CE    EAF00217              BAL,15   *:DECC            CONVERT
     6731   01 017CF    55F21CE1              STH,15   MRTE+4,1          STORE
     6732   01 017D0    22000D26              LI,R0    DA(RFSPEC1)       READ FWD WITH HTE
     6733   01 017D1    6AF011C6              BAL,R15  GENIOXEQ
     6734   01 017D2    CDA01B8C              TIO,10   *:DEVADDR         TIO
     6735   01 017D3    32C01B97              LW,12    MAXBYT            MAXIMUM BYTES
     6736   01 017D4    4BB02259              AND,11   =X'FFFF'          BYTE COUNT FROM TIO
     6737   01 017D5    38C0000B A            SW,12    11
     6738   01 017D6    EAF00217              BAL,15   *:DECC            CONVERT
     6739   01 017D7    35F01CE5              STW,15   MRTE+8            STORE
     6740   01 017D8    EAF00217              BAL,15   *:DECC            CONVERT
     6741   01 017D9    55F21CE4              STH,15   MRTE+7,1          STORE
     6742   01 017DA    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     6743   01 017DB    00001CDD              DATA     MRTE
     6744   01 017DC    22000D27              LI,R0    DA(SPBRAND)       SPACE BKW
     6745   01 017DD    6AF011C6              BAL,R15  GENIOXEQ
     6746   01 017DE    31100204              CW,1     :P4               PRINTOUT ERROR RECORD
     6747   01 017DF    693017E1              BNE      %+2
     6748   01 017E0    6AF017F4              BAL,15   TST3511           GO TO PRINTOUT
     6749   01 017E1    680017F3              B        TST3510
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  102
A    6751                            * SPACE FORWARD N RECORDS
     6752   01 017E2    32701BBF     TST3507  LW,7     TLOOP             NTH RECORD
     6753   01 017E3    31701BC0              CW,7     CMAX
     6754   01 017E4    693017E7              BNE      %+3               NO
     6755   01 017E5    31200204              CW,2     :P4               YES
     6756   01 017E6    6830179B              BE       TST3505           READ NTH RECORD IF P4=2
     6757   01 017E7    22000D28              LI,R0    DA(SPFRAND)       SPACE FWD
     6758   01 017E8    6AF011C6              BAL,R15  GENIOXEQ
     6759   01 017E9    CEA01B8C              TDV,10   *:DEVADDR         TDV TO SEE IF AT EOT
     6760   01 017EA    31B02279              CW,11    =X'02000000'      EOT
     6761   01 017EB    694017F3              BCS,4    TST3510           GO TO HALT,EXIT
     6762   01 017EC    680017EF              B        TST3509

     6764                            * SPACE BKW N RECORDS
     6765         01 017ED           TST3508  EQU      %
     6766   01 017ED    22000D27              LI,R0    DA(SPBRAND)       SPACE BKW
     6767   01 017EE    6AF011C6              BAL,R15  GENIOXEQ
     6768   01 017EF    33101BBF     TST3509  MTW,1    TLOOP             TALLY+1
     6769   01 017F0    32701BBF              LW,7     TLOOP
     6770   01 017F1    31701BC0              CW,7     CMAX              MAXIMUM LOOPS
     6771   01 017F2    68201796              BLE      TST3504
     6772         01 017F3           TST3510  EQU      %
     6773   01 017F3    68000546              B        TST36             RETURN TO CONTROL PROGRAM

     6775                            * PRINT RECORD
     6776   01 017F4    35F01BA0     TST3511  STW,15   ST1155            SAVE RETURN ADDRESS
     6777   01 017F5    32C01BBE              LW,12    BYTECN            NUMBER OF BYTES
     6778   01 017F6    EAF00218              BAL,R15  *:HEXC
     6779   01 017F7    35F01CEB              STW,R15  RECOUT+5
     6780   01 017F8    32C01BBF              LW,12    TLOOP             RECORD NUMBER
     6781   01 017F9    EAF00218              BAL,R15  *:HEXC
     6782   01 017FA    35F01CE8              STW,R15  RECOUT+2
     6783   01 017FB    EAF0021C              BAL,R15  *:PRINT           PRINT BLANK LINE
     6784   01 017FC    00001D07              DATA     SPACE
     6785   01 017FD    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     6786   01 017FE    00001CE6              DATA     RECOUT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  103
A    6788   01 017FF    22000040 A            LI,R0    X'40'
     6789   01 01800    35001B64              STW,R0   OUTMSG            OUTMSG IS USED AS OUTPUT BUFFER

     6791   01 01801    22E00040 A            LI,R14   64                STANDARD LINE LENGTH
     6792   01 01802    EAF0022A              BAL,R15  *:QSENSE
     6793   01 01803    68401805              BCR,4    %+2               SKIP IF SSW2 RESET
     6794   01 01804    22E00078 A            LI,R14   120                ELSE USE EXTENDED LINE LENGTH

     6796   01 01805    22600000 A            LI,R6    0                 RESET BUFFER POINTER
     6797   01 01806    32701BBE              LW,R7    BYTECN            FETCH RECORD LENGTH
     6798   01 01807    25700001 A            SLS,R7   1                 COMPUTE NUMBER OF HEX DIGITS

     6800   01 01808    3170000E A   TST3514  CW,R7    R14               ARE WE FINISHED
     6801   01 01809    6820180D              BLE      TST3512           SKIP IF LESS THAN ONE LINE

     6803   01 0180A    75E01B64              STB,R14  OUTMSG            SET TEXTC COUNT

     6805   01 0180B    3870000E A            SW,R7    R14               UPDATE REMAING BYTE COUNT
     6806   01 0180C    6800180F              B        TST3515

     6808   01 0180D    75701B64     TST3512  STB,R7   OUTMSG            SET TEXTC COUNT
     6809   01 0180E    22700000 A            LI,R7    0                 SET REMAINING BYTES TO NULL

     6811   01 0180F    3AB0000E A   TST3515  LCW,R11  R14               COMPUTE NUMBER OF WORDS
     6812   01 01810    25B0047D A            SAS,R11  -3                OF HEX DIGITS TO STORE
     6813   01 01811    22500000 A            LI,R5    0                 INITIALIZE THE OUTPUT POINTER

     6815   01 01812    32C00006 A            LW,R12   R6                GET INPUT BUFFER INDEX
     6816   01 01813    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEX

     6818   01 01814    3280000F A            LW,R8    R15
     6819   01 01815    2290FFFF A            LI,R9    X'FFFF'
     6820   01 01816    25800108 A            SLD,R8   8                 SHIFT MASK AND DATA
     6821   01 01817    47801B64              STS,R8   OUTMSG            AND PLACE AT HEAD OF LINE
     6822   01 01818    73301B64              MTB,3    OUTMSG            UPDATE TEXTC COUNT TO INCLUDE OFFSET
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  104
A    6824   01 01819    32CC22A0     TST3513  LW,12    BUFF1,6           GET WORD FROM READ AREA
     6825   01 0181A    EAF00218              BAL,15   *:HEXC            CONVERT
     6826   01 0181B    35FA1B66              STW,15   OUTMSG+2,5        STORE
     6827   01 0181C    EAF00218              BAL,15   *:HEXC            CONVERT
     6828   01 0181D    35FA1B65              STW,15   OUTMSG+1,5        STORE
     6829   01 0181E    33200005 A            MTW,2    5
     6830   01 0181F    33100006 A            MTW,1    6
     6831   01 01820    65B01819              BIR,11   TST3513
     6832   01 01821    EAF0021C              BAL,15   *:PRINT           PRINT ONE LINE
     6833   01 01822    00001B64              DATA     OUTMSG

     6835   01 01823    21700000 A            CI,7     0
     6836   01 01824    69201808              BG       TST3514
     6837   01 01825    E8001BA0              B        *ST1155
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  105
A    6839                            *                                   SUBROUTINE TO DETERMINE TIMING LOOP
     6840                            *                                   -----------------------------------
     6841                            *
     6842   01 01826    35F01BA0     GETTIME  STW,15   ST1155            SAVE RETURN ADDRESS
     6843   01 01827    22F01842              LI,15    GETT2             SET UP RETURN ADDRESS ON ZBC
     6844   01 01828    35F01876              STW,15   STOP2T+2
     6845   01 01829    22F0183A              LI,15    GETT11            SET UP FIRST TIME ADDRESS
     6846   01 0182A    35F0187A              STW,15   STOPIT+2

     6848   01 0182B    22500000 A   GETT1    LI,5     0                 CLEAR REGISTERS
     6849   01 0182C    22700000 A            LI,7     0
     6850   01 0182D    32E0228D              LW,14    =X'7FFFFFFF'
     6851   01 0182E    22900000 A            LI,9     0
     6852   01 0182F    22400000 A            LI,4     0
     6853   01 01830    32D01872              LW,13    STOP2
     6854   01 01831    32F0203B              LW,15    :DELMTW
     6855   01 01832    35F00055 A            STW,15   X'55'             CLOCK COUNTER INTERRUPT
     6856   01 01833    32F01871              LW,15    STOPI
     6857   01 01834    35F0005B A            STW,15   X'5B'             INTERRUPT ON ZERO COUNT
     6858   01 01835    2280000A A            LI,8     10
     6859   01 01836    35202031              STW,2    :DELTIME
     6860   01 01837    22F01040 A            LI,15    X'1040'
     6861   01 01838    6DF01200 A            WD,15    X'1200'
     6862   01 01839    68001839              B        %                 WAIT TO GET IN SYNC.

     6864   01 0183A    22F01040 A   GETT11   LI,15    X'1040'           START CLOCK
     6865   01 0183B    6DF01200 A            WD,15    X'1200'
     6866   01 0183C    35D0005B A            STW,13   X'5B'             CHANGE INTERRUPT
     6867   01 0183D    35802031              STW,8    :DELTIME          RESET TIME TO 10
     6868   01 0183E    33100005 A            MTW,1    5                 TALLY =TALLY+1
     6869   01 0183F    CEA01B8C              TDV,10   *:DEVADDR
     6870   01 01840    51E2000B A            CH,14    11,1
     6871   01 01841    6920183E              BCS,2    %-3

     6873   01 01842    22F01040 A   GETT2    LI,15    X'1040'           DISARM CLOCK
     6874   01 01843    6DF01100 A            WD,15    X'1100'
     6875   01 01844    22A00000 A            LI,10    0
     6876   01 01845    32B02296              LW,11    =20000            SET UP DIVISION IN R10 AND R11
     6877   01 01846    36A00005 A            DW,10    5                 TIME/ LOOP TALLY
     6878   01 01847    35B01BA1              STW,11   TIME1             R11 HAS TALLY VALUE
     6879   01 01848    22F0184D              LI,15    GETT12
     6880   01 01849    35F0187A              STW,15   STOPIT+2
     6881   01 0184A    22F01854              LI,15    GETT3             SET UP RETURN ADDRESS ON ZBC
     6882   01 0184B    35F01876              STW,15   STOP2T+2
     6883   01 0184C    6800182B              B        GETT1
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  106
A    6885   01 0184D    22F01040 A   GETT12   LI,15    X'1040'           START CLOCK
     6886   01 0184E    6DF01200 A            WD,15    X'1200'
     6887   01 0184F    35D0005B A            STW,13   X'5B'             CHANGE INTERRUPT
     6888   01 01850    35802031              STW,8    :DELTIME          RESET TIME TO 10
     6889   01 01851    33100009 A            MTW,1    9                 TALLY =TALLY+1
     6890   01 01852    F1A02256              CB,10    *BUFF2
     6891   01 01853    68001851              B        %-2

     6893   01 01854    22F01040 A   GETT3    LI,15    X'1040'           DISARM CLOCK
     6894   01 01855    6DF01100 A            WD,15    X'1100'
     6895   01 01856    22A00000 A            LI,10    0
     6896   01 01857    32B02296              LW,11    =20000            SET UP DIVISION IN R10 AND R11
     6897   01 01858    36A00009 A            DW,10    9                 TIME/ LOOP TALLY
     6898   01 01859    35B01BA2              STW,11   TIME2             R11 HAS TALLY VALUE
     6899   01 0185A    22F0185F              LI,15    GETT13
     6900   01 0185B    35F0187A              STW,15   STOPIT+2
     6901   01 0185C    22F01866              LI,15    GETT4             SET UP RETURN ADDRESS ON ZBC
     6902   01 0185D    35F01876              STW,15   STOP2T+2
     6903   01 0185E    6800182B              B        GETT1

     6905   01 0185F    22F01040 A   GETT13   LI,15    X'1040'           START CLOCK
     6906   01 01860    6DF01200 A            WD,15    X'1200'
     6907   01 01861    35D0005B A            STW,13   X'5B'             CHANGE INTERRUPT
     6908   01 01862    35802031              STW,8    :DELTIME          RESET TIME TO 10
     6909   01 01863    33100007 A            MTW,1    7                 TALLY =TALLY+1
     6910   01 01864    CDA01B8C              TIO,10   *:DEVADDR
     6911   01 01865    68C01863              BCR,12   %-2

     6913   01 01866    22F01040 A   GETT4    LI,15    X'1040'           DISARM CLOCK
     6914   01 01867    6DF01100 A            WD,15    X'1100'
     6915   01 01868    22A00000 A            LI,10    0
     6916   01 01869    32B02296              LW,11    =20000            SET UP DIVISION IN R10 AND R11
     6917   01 0186A    36A00007 A            DW,10    7                 TIME/ LOOP TALLY
     6918   01 0186B    35B01BA3              STW,11   TIME3             R11 HAS TALLY VALUE
     6919   01 0186C    3280203B              LW,8     :DELMTW           CLOCK INTERRUPT
     6920   01 0186D    35800055 A            STW,8    X'55'
     6921   01 0186E    3280203A              LW,8     :DELXPSD          RESTORE CLOCK 5B INTERRUPT
     6922   01 0186F    3580005B A            STW,8    X'5B'
     6923   01 01870    EAF01BA0              BAL,15   *ST1155           GO BACK TO PROGRAM

     6925   01 01871    0F001878     STOPI    XPSD,0   STOPIT
     6926   01 01872    0F001874     STOP2    XPSD,0   STOP2T

     6928                                     BOUND    8
     6929   01 01874    00000000 A   STOP2T   DATA     0,0,GETT2,0
            01 01875    00000000 A
            01 01876    00001842
            01 01877    00000000 A
     6930   01 01878    00000000 A   STOPIT   DATA     0,0,GETT11,0
            01 01879    00000000 A
            01 0187A    0000183A
            01 0187B    00000000 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  107
A    6932                            *                                   REWIND AND TEST FOR LOAD POINT
     6933                            *                                   ------------------------------------
     6934   01 0187C    35F01B5C     RWTLP    STW,15   ST15              SAVE RETURN ADDRESS
     6935   01 0187D    6AF018CE              BAL,15   CLRDARM           CLEAR AND DISARM INTERRUPT

     6937   01 0187E    22000CF8              LI,0     DA(TRWOL)         REWIND ON LINE
     6938   01 0187F    32E02297              LW,R14   =X'E600C000'      AUTO, UE ARE OK
     6939   01 01880    6AF01DB7              BAL,R15  :SIO              ISSUE SIO FORMALLY
     6940   01 01881    68001883              B        %+2               NO STATUS OR CC ERRORS
     6941   01 01882    6800188C              B        RWTLP3            STATUS OR CC FAILURE

     6943         01 01883           RWTLP0   EQU      %
     6944   01 01883    CDC01B8C              TIO,12   *:DEVADDR         TIO
     6945   01 01884    31D0226D              CW,R13   =X'66000000'      BUSY OR REWINDING
     6946   01 01885    69401883              BANZ     %-2

     6948   01 01886    32E0226E     RWTLP1   LW,14    =X'04000000'      LOAD POINT ONLY
     6949   01 01887    CEC01B8C              TDV,12   *:DEVADDR         TDV AFTER REWIND
     6950   01 01888    31D0000E A            CW,13    14
     6951   01 01889    6940188F              BANZ     RWTLP2

     6953                            * ERROR EXIT NO LOAD POINT
     6954   01 0188A    EAF0021C              BAL,15   *:PRINT           PRINTOUT MESSAGE
     6955   01 0188B    00001C1D              DATA     NOLOAD

     6957   01 0188C    EAF0021D     RWTLP3   BAL,15   *:SENSE           CHECK SENSE SWITCHES
     6958   01 0188D    2E000000 A            WAIT
     6959   01 0188E    6800188F              B        %+1

     6961         01 0188F           RWTLP2   EQU      %                 DELAY AT LOAD POINT
     6962   01 0188F    22E00001 A            LI,R14   1                 (SOME UNITS PROBABLY NOT
     6963   01 01890    6AF01239              BAL,R15  GENDELAY           REALLY READY YET...)
     6964   01 01891    E8001B5C              B        *ST15             GO BACK TO PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  108
A    6966                            *                                   I/O RESET ROUTINE
     6967                            *                                   ------------------------------------
     6968                            *
     6969         01 01892           RESETS   EQU      %                 MYDELAY SUBROUTINE ENTRY
     6970   01 01892    35F01B5C              STW,15   ST15              SAVE R15

     6972   01 01893    CFC01B8C              HIO,R12  *:DEVADDR
     6973   01 01894    6AF02202              BAL,R15  :SAVETIO          SAVE HIO STATUS AS TIO

     6975   01 01895    22CFFFFF A            LI,R12   -1
     6976   01 01896    22DFFFFF A            LI,R13   -1
     6977   01 01897    6AF0221F              BAL,R15  :SAVEAIO          FAKE AIO STATUS
     6978   01 01898    E8001B5C              B        *ST15             RETURN TO PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  109
A    6980                            *                                   DELAY AND WAIT FOR INTERRUPT
     6981                            *                                   ------------------------------------
     6982   01 01899    15E01B52     MYTIMOUT STD,R14  STDELAY           FORCE-TIMEOUT ENTRY
     6983   01 0189A    35F011CB              STW,R15  GENIOXES           FAKE CALLING ADDRESS
     6984   01 0189B    680018A0              B        MYDELAY4

     6986   01 0189C    15E01B52     MYDELAY  STD,14   STDELAY           SAVE R14,R15
     6987   01 0189D    22E00640 A            LI,14    1600
     6988   01 0189E    6AF02018              BAL,15   :DELAY            DELAY SUBROUTINE
     6989   01 0189F    680018C1              B        MYDELAY2

     6991                            * ERROR MESSAGE TIMEOUT - NO INTERRUPT
     6992   01 018A0    22E00020 A   MYDELAY4 LI,14    X'20'             DISARM I/O INTERRUPT
     6993   01 018A1    6DE01100 A            WD,14    X'1100'
     6994   01 018A2    6AF01892              BAL,15   RESETS            RESET OR HIO IN CASE OF TAPE RUNAWAY
     6995   01 018A3    15C01B54              STD,12   SAVE45            SAVE (R12 & R13)

     6997   01 018A4    32C00399              LW,R12   ITHTEST           CHECK FOR TST1
     6998   01 018A5    31C00001 A            CW,R12   R1                 AND SKIP IF NOT
     6999   01 018A6    692018B2              BG       MYDELAY0

     7001   01 018A7    32C0039A              LW,R12   ITHSUBT           ELSE DISPLAY SUBSTEST
     7002   01 018A8    EAF00217              BAL,R15  *:DECC
     7003   01 018A9    25F00010 A            SLS,R15  16
     7004   01 018AA    20F04040 A            AI,R15   X'4040'
     7005   01 018AB    32E00399              LW,R14   ITHTEST           ALONG WITH TST0/1 ID
     7006   01 018AC    25E00008 A            SLS,R14  8
     7007   01 018AD    30E02298              AW,R14   =' T0,'
     7008   01 018AE    25E00308 A            SCD,R14  8
     7009   01 018AF    35E01CF2              STW,R14  TIMEOUT+3
     7010   01 018B0    35F01CF3              STW,R15  TIMEOUT+4
     7011   01 018B1    680018B9              B        MYDELAY1

     7013   01 018B2    EAF00217     MYDELAY0 BAL,R15  *:DECC            DISPLAY TSTN ID
     7014   01 018B3    25F00018 A            SLS,R15  24
     7015   01 018B4    30F02299              AW,R15   =X'4040E3'
     7016   01 018B5    25F00278 A            SCS,R15  -8
     7017   01 018B6    35F01CF2              STW,R15  TIMEOUT+3
     7018   01 018B7    32F0229A              LW,R15   ='    '
     7019   01 018B8    35F01CF3              STW,R15  TIMEOUT+4

     7021   01 018B9    32C011CB     MYDELAY1 LW,R12   GENIOXES          PROBABLE CALLING LOCATION
     7022   01 018BA    20CFFFFF A            AI,R12   -1
     7023   01 018BB    EAF00218              BAL,R15  *:HEXC
     7024   01 018BC    35F01CF5              STW,R15  TIMEOUT+6

     7026   01 018BD    EAF0021C              BAL,R15  *:PRINT
     7027   01 018BE    00001D07              DATA     SPACE
     7028   01 018BF    EAF0021C              BAL,R15  *:PRINT
     7029   01 018C0    00001CEF              DATA     TIMEOUT

     7031   01 018C1    12C01B54     MYDELAY2 LD,12    SAVE45
     7032   01 018C2    22E00020 A            LI,14    X'20'             ARM AND ENABLE I/O INTERRUPT
     7033   01 018C3    6DE01200 A            WD,14    X'1200'

     7035   01 018C4    12E01B52              LD,14    STDELAY           RESTORE REGISTERS
     7036   01 018C5    E800000F A            B        *R15
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  110
A    7038                            *                                   RESET AND ARM I/O INTERRUPT
     7039                            *                                   ---------------------------
     7040   01 018C6    35F01B8A     CLRARM   STW,15   ST151             SAVE RETURN ADDRESS
     7041   01 018C7    6ED00000 A            AIO,13   0                 RESET INTERRUPT IF ANY
     7042   01 018C8    6AF021FA              BAL,15   :SAVECLR          CLEAR TEST FLAGS
     7043   01 018C9    22F00000 A            LI,15    0
     7044   01 018CA    35F02068              STW,15   :INTRECF          CLEAR INTERRUPT FLAG
     7045   01 018CB    22F00020 A            LI,15    X'20'             ARM INTERRUPT
     7046   01 018CC    6DF01200 A            WD,15    X'1200'
     7047   01 018CD    E8001B8A              B        *ST151            RETURN TO PROGRAM

     7049                            *                                   RESET AND DISARM I/O INTERRUPT
     7050                            *                                   ------------------------------
     7051                            *
     7052   01 018CE    35F01B8A     CLRDARM  STW,15   ST151             SAVE RETURN ADDRESS
     7053   01 018CF    6ED00000 A            AIO,13   0                 RESET INTERRUPT IF ANY
     7054   01 018D0    6AF021FA              BAL,15   :SAVECLR          CLEAR TEST FLAGS
     7055   01 018D1    22F00000 A            LI,15    0
     7056   01 018D2    35F02068              STW,15   :INTRECF          CLEAR INTERRUPT FLAG
     7057   01 018D3    22F00020 A            LI,15    X'20'             DISARM INTERRUPT
     7058   01 018D4    6DF01100 A            WD,15    X'1100'
     7059   01 018D5    E8001B8A              B        *ST151            RETURN TO PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  111
A    7061                            *                                   SET INTERRUPT AND DEVICE ADDRESS
     7062                            *                                   --------------------------------
     7063   01 018D6    22700000 A   DOALL    LI,7     0                 RESET UNIT POINTERS
     7064   01 018D7    3A501B96              LCW,5    SAVNUMB

     7066   01 018D8    320E1B8E     DOALL1   LW,R0    SAVDEV,7          FETCH UNIT POINTERS
     7067   01 018D9    35001B8C              STW,R0   :DEVADDR           AND CLEAR/ARM INTERRUPT
     7068   01 018DA    680018C6              B        CLRARM

     7070   01 018DB    35F01B5B     DONEXT   STW,R15  ST1512            ADVANCE TO NEXT UNIT

     7072   01 018DC    330012F6              MTW,0    T2REBAD           SKIP DISPLAY IF NO ERROR
     7073   01 018DD    683018E3              BEZ      DONEXT1            ELSE SUMMARY DISPLAY

     7075   01 018DE    6AF0190E              BAL,R15  MYERROR           BASIC SUMMARY
     7076   01 018DF    EAF0021D              BAL,R15  *:SENSE           STANDARD SENSE
     7077   01 018E0    2E000000 A            WAIT                        SWITCH TESTING
     7078   01 018E1    680018E3              B        DONEXT1             BUT NO LOOPING
     7079   01 018E2    680018E3              B        DONEXT1              IS DEFINED

     7081   01 018E3    31200399     DONEXT1  CW,R2    ITHTEST           SKIP DELAY
     7082   01 018E4    693018EA              BNE      DONEXT2            IF NOT IN TST2

     7084   01 018E5    32E01F07              LW,R14   :SEED             GET CURRENT RANDOM NUMBER
     7085   01 018E6    25E00070 A            SLS,R14  -16                SHIFT INTO POSITION
     7086   01 018E7    4BE00203              AND,R14  :P3                 MASK BY EXPLICIT PARAMETER
     7087   01 018E8    683018EA              BEZ      %+2                  SKIP DELAY IF ZERO RESULT
     7088   01 018E9    6AF01239              BAL,R15  GENDELAY              DELAY IN MILLISECONDS

     7090   01 018EA    32F01B5B     DONEXT2  LW,R15   ST1512            RESTORE RETURN ADDRESS

     7092   01 018EB    20700001 A            AI,R7    1                 ADVANCE UNIT POINTER
     7093   01 018EC    655018D8              BIR,R5   DOALL1             RETURN TO TST2 MONITOR
     7094   01 018ED    E80012FB              B        *T2RELINK           IF ALL UNITS PROCESSED
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  112
A    7096                            *                                   REWIND ALL UNITS UNDER TEST
     7097                            *                                   ---------------------------
     7098   01 018EE    35F018F6     RWALL    STW,R15  RWLINK
     7099   01 018EF    6AF018D6              BAL,R15  DOALL             SET UP UNIT POINTERS
     7100   01 018F0    680018F2              B        %+2                AND SKIP TO REWIND LOOP
     7101   01 018F1    6AF018D8              BAL,R15  DOALL1            SET UP UNIT POINTERS
     7102   01 018F2    6AF0187C              BAL,R15  RWTLP              AND REWIND TO LOAD POINT
     7103   01 018F3    20700001 A            AI,R7    1                 ADVANCE TO NEXT UNIT
     7104   01 018F4    655018F1              BIR,R5   %-3                CONTINUE IF MORE UNITS
     7105   01 018F5    E80018F6              B        *RWLINK
     7106   01 018F6                 RWLINK   RES      1
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  113
A    7108                            *                                   SMEAR PATTERN AND SET UP COMPARE
     7109                            *                                   --------------------------------
     7110   01 018F7    35F01B8A     SMEAR    STW,R15  ST151
     7111   01 018F8    68001900              B        SMEARPTS

     7113   01 018F9    35F01B8A     SMEARSP  STW,15   ST151             SAVE RETURN ADDRESS
     7114   01 018FA    680018FE              B        SMEARPTR+3

     7116   01 018FB    35F01B8A     SMEARPTR STW,15   ST151             SAVE RETURN ADDRESS
     7117   01 018FC    32F02273              LW,15    =X'FFFFFFFF'      ALL BITS ON
     7118   01 018FD    35F01F59              STW,15   :PATID+1

     7120   01 018FE    22F00019 A            LI,R15   25                DEFAULT WORD COUNT
     7121   01 018FF    35F01F5B              STW,R15  :PATWC

     7123   01 01900    32F01F5B     SMEARPTS LW,R15   :PATWC
     7124   01 01901    35F01F18              STW,15   :CLRSIZE          WORD COUNT FOR BUFFER CLEARING
     7125   01 01902    35F01FCE              STW,15   :COMWCNT          NUMBER OF WORDS TO COMPARE

     7127   01 01903    22F00000 A            LI,15    0
     7128   01 01904    35F01F58              STW,15   :PATID            FIXED WORD PATTERN
     7129   01 01905    35F01FD1              STW,15   :COMFLAG          ERROR PRINTOUT WANTED

     7131   01 01906    22F022A0              LI,15    BUFF1
     7132   01 01907    35F01F5C              STW,15   :PATBFR           EXPECTED PATTERN
     7133   01 01908    35F01FCF              STW,15   :COMBFRA

     7135   01 01909    32F02256              LW,15    BUFF2
     7136   01 0190A    35F01F17              STW,15   :CLRADDR          ADDRESS FOR CLEAR BUFFER
     7137   01 0190B    35F01FD0              STW,15   :COMBFRB          OBSERVED PATTERN

     7139   01 0190C    6AF01F19              BAL,R15  :PATTERN          SMEAR PATTERN TO BUFFER ONE

     7141   01 0190D    E8001B8A              B        *ST151            RETURN TO PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  114
A    7143                            *                  RANDOM EXERCISER ERROR MESSAGE SUMMARY
     7144                            *                  ----------------------------------------
     7145         01 0190E           MYERROR  EQU      %
     7146   01 0190E    35F012FA              STW,R15  T2RELNK2          SAVE RETURN ADDRESS

     7148   01 0190F    31200399              CW,R2    ITHTEST           SKIP IF IN TST2
     7149   01 01910    6830191C              BE       MYERROR1

     7151   01 01911    32C01B8C              LW,12    :DEVADDR          DEVICE
     7152   01 01912    EAF00218              BAL,15   *:HEXC            CONVERT
     7153   01 01913    35F01CFF              STW,15   REMESG32+2        IN PRINTOUT
     7154   01 01914    32C01B56              LW,12    LOOPTLY           CURRENT RECORD TALLY
     7155   01 01915    EAF00218              BAL,15   *:HEXC            CONVERT
     7156   01 01916    35F01D06              STW,15   REMESG32+9
     7157   01 01917    EAF00218              BAL,15   *:HEXC            CONVERT
     7158   01 01918    35F01D05              STW,15   REMESG32+8
     7159   01 01919    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     7160   01 0191A    00001CFD              DATA     REMESG32
     7161   01 0191B    E80012FA              B        *T2RELNK2         RETURN TO TEST

     7163   01 0191C    32C01F07     MYERROR1 LW,12    :SEED
     7164   01 0191D    EAF00218              BAL,15   *:HEXC            CONVERT
     7165   01 0191E    35F01CD4              STW,15   REMESG1+4
     7166   01 0191F    EAF00218              BAL,15   *:HEXC            CONVERT FOR MESSAGE
     7167   01 01920    35F01CD3              STW,15   REMESG1+3         SEED IN PRINTOUT
     7168   01 01921    32C01B8C              LW,12    :DEVADDR          DEVICE NUMBER
     7169   01 01922    EAF00218              BAL,15   *:HEXC            CONVERT
     7170   01 01923    35F01CD7              STW,15   REMESG1+7
     7171   01 01924    32C01B56              LW,12    LOOPTLY           CURRENT TALLY OF PASSES
     7172   01 01925    EAF00218              BAL,15   *:HEXC            CONVERT
     7173   01 01926    35F01CDC              STW,15   REMESG1+12        STORE
     7174   01 01927    EAF00218              BAL,15   *:HEXC            CONVERT
     7175   01 01928    35F01CDB              STW,15   REMESG1+11        STORE

     7177   01 01929    EAF0021C              BAL,R15  *:PRINT           PRINT A BLANK LINE
     7178   01 0192A    00001D07              DATA     SPACE
     7179   01 0192B    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     7180   01 0192C    00001CD0              DATA     REMESG1
     7181   01 0192D    22C01BED              LI,12    REDAPT            ADDRESS OF FIRST SET
     7182   01 0192E    30C01B59              AW,12    OPFLAG
     7183   01 0192F    30C01B59              AW,12    OPFLAG
     7184   01 01930    30C01B59              AW,12    OPFLAG
     7185   01 01931    B2F0000C A            LW,15    *12               FIRST WORD OF MESSAGE
     7186   01 01932    35F01CFA              STW,15   REMESG2+4
     7187   01 01933    B2F2000C A            LW,15    *12,1             SECOND WORD
     7188   01 01934    35F01CFB              STW,15   REMESG2+5
     7189   01 01935    B2F4000C A            LW,15    *12,2             THIRD WORD OF MESSAGE
     7190   01 01936    35F01CFC              STW,15   REMESG2+6

     7192   01 01937    22C00005 A            LI,R12   5                 COMPUTE AND
     7193   01 01938    38C012F5              SW,R12   T2RECNT            CURRENT OPERATION
     7194   01 01939    25C00008 A            SLS,R12  8                   POINTER
     7195   01 0193A    30C0229B              AW,R12   =' (0)'
     7196   01 0193B    35C01CF8              STW,R12  REMESG2+2

     7198   01 0193C    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     7199   01 0193D    00001CF6              DATA     REMESG2
     7200   01 0193E    E80012FA              B        *T2RELNK2         RETURN TO TEST
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  115
A    7202                            *                            SMEAR NOISE PATTERNS
     7203                            *                            -------------------------------
     7204   01 0193F    351022A0     MYTSTPT  STW,1    BUFF1             SET UP FIRST SEQ NO
     7205   01 01940    22600001 A            LI,6     1                 WORD COUNT
     7206   01 01941    229FFFFB A            LI,9     -5
     7207   01 01942    22700000 A            LI,7     0
     7208   01 01943    225FFFFB A            LI,5     -5
     7209   01 01944    22D01BC3     MYTSTPT1 LI,13    NZDATA1           PULSE CROWDING AND WRITE SKEW
     7210   01 01945    55D21946              STH,13   MYTSTPT2,1        STARTING PATTERN
     7211   01 01946    32E01BC3     MYTSTPT2 LW,14    NZDATA1           DATA PATTERN
     7212   01 01947    35EC22A0              STW,14   BUFF1,6           STORE PATTERN
     7213   01 01948    33100006 A            MTW,1    6
     7214   01 01949    33101946              MTW,1    MYTSTPT2
     7215   01 0194A    65501946              BIR,5    MYTSTPT2          5 PATTERNS
     7216   01 0194B    65901942              BIR,9    MYTSTPT1-2        5 TIMES
     7217   01 0194C    22CFFFF6 A            LI,12    -10
     7218   01 0194D    229FFFFA A            LI,9     -6
     7219   01 0194E    22700000 A            LI,7     0
     7220   01 0194F    32EE1BC8     MYTSTPT4 LW,14    NZDATA2,7         WRITE CROSS TALK AND READ SKEW
     7221   01 01950    35EC22A0              STW,14   BUFF1,6           STORE PATTERN
     7222   01 01951    33100006 A            MTW,1    6
     7223   01 01952    33100007 A            MTW,1    7
     7224   01 01953    6590194F              BIR,9    MYTSTPT4          6 PATTERNS
     7225   01 01954    65C0194D              BIR,12   MYTSTPT4-2        10 TIMES
     7226   01 01955    22CFFFFB A            LI,12    -5
     7227   01 01956    35600008 A            STW,6    8                 SAVE WORD LOCATION
     7228   01 01957    22700000 A            LI,7     0
     7229   01 01958    229FFFCE A            LI,9     -50
     7230   01 01959    32EE1BCE     MYTSTPT5 LW,14    NZDATA3,7         BASELINE NOISE PATTERN
     7231   01 0195A    35EC22A0              STW,14   BUFF1,6           STORE PATTERN
     7232   01 0195B    33100006 A            MTW,1    6
     7233   01 0195C    6590195A              BIR,9    %-2               50 WORDS OF PATTERN
     7234   01 0195D    33100007 A            MTW,1    7
     7235   01 0195E    65C01958              BIR,12   MYTSTPT5-1        CHANGE PATTERNS
     7236   01 0195F    22E0FFFF A            LI,14    X'FFFF'           ALL BITS ON
     7237   01 01960    32600008 A            LW,6     8                 RESTORE STARTING ADDRESS OF PATTERNS
     7238   01 01961    206022A0              AI,6     BUFF1
     7239   01 01962    55621967              STH,6    MYTSTPT6,1
     7240   01 01963    229FFFFB A            LI,9     -5
     7241   01 01964    22700000 A            LI,7     0
     7242   01 01965    55221968              STH,2    MYTSTPT7,1
     7243   01 01966    22AFFFEC A            LI,10    -20
     7244   01 01967    75EE22A0     MYTSTPT6 STB,14   BUFF1,7           STORE ALL BITS SPACING XYXXYXXXY

     7246   01 01968    20700002 A   MYTSTPT7 AI,7     2                   CHANGE SPACING
     7247   01 01969    33101968              MTW,1    MYTSTPT7
     7248   01 0196A    65A01967              BIR,10   MYTSTPT6
     7249   01 0196B    65901965              BIR,9    MYTSTPT6-2        CHANGE PATTERNS
     7250   01 0196C    22500000 A            LI,5     0
     7251   01 0196D    32601B9A              LW,6     MAXREAD           SMEAR REMAINING I/O AREA
     7252   01 0196E    206FFEB5 A            AI,6     -331
     7253   01 0196F    32CA22A1              LW,12    BUFF1+1,5
     7254   01 01970    35CA23EA              STW,12   BUFF1+330,5       STORE
     7255   01 01971    33100005 A            MTW,1    5
     7256   01 01972    6460196F              BDR,6    %-3
     7257   01 01973    E800000F A            B        *15               RETURN TO PROGRAM
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  116
A    7259   01 01974    7C101C00 A   TSEQ001  :TSEQ    ISBT4,TIOF0,TIOT4
     7260   01 01975    30100000 A   TSEQ002  :TSEQ    HIOF0,TIOF0
     7261   01 01976    797A1000 A   TSEQ003  :TSEQ    ISBT1,ISBT2,TIOF0
     7262   01 01977    434D0000 A   TSEQ005  :TSEQ    TDVF3,TDVT5
     7263   01 01978    1C4D21F3 A   TSEQ006  :TSEQ    TIOT4,TDVT5,OSBF1,BYT02
            01 01979    00000000 A
     7264   01 0197A    1C4D2100 A   TSEQ007  :TSEQ    TIOT4,TDVT5,OSBF1
     7265   01 0197B    144B21F3 A   TSEQ008  :TSEQ    TIOF4,TDVT3,OSBF1,BYT02
            01 0197C    00000000 A
     7266   01 0197D    1B144391 A   TSEQ008S :TSEQ    TIOT3,TIOF4,TDVF3,OSBX1,BYT00
            01 0197E    F1000000 A
     7267   01 0197F    1B1C4391 A   TSEQ008U :TSEQ    TIOT3,TIOT4,TDVF3,OSBX1,BYT00
            01 01980    F1000000 A
     7268   01 01981    11121415 A   TSEQ010  :TSEQ    TIOF1,TIOF2,TIOF4,TIOF5,TIOF6,OSBF0,BYT00,TDVT1
            01 01982    1620F149 A
            01 01983    00000000 A
     7269   01 01984    144921F1 A   TSEQ011  :TSEQ    TIOF4,TDVT1,OSBF1,BYT00
            01 01985    00000000 A
     7270   01 01986    14494B21 A   TSEQ011P :TSEQ    TIOF4,TDVT1,TDVT3,OSBF1,BYT02
            01 01987    F3000000 A
     7271   01 01988    1421F100 A   TSEQ011Q :TSEQ    TIOF4,OSBF1,BYT00
     7272   01 01989    1C787B7C A   TSEQ012  :TSEQ    TIOT4,ISBT0,ISBT3,ISBT4,TDVF0,BYT00
            01 0198A    40F10000 A
     7273   01 0198B    144429F1 A   TSEQ013  :TSEQ    TIOF4,TDVF4,OSBT1,BYT00
            01 0198C    00000000 A
     7274   01 0198D    1C4B4D00 A   TSEQ014  :TSEQ    TIOT4,TDVT3,TDVT5
     7275   01 0198E    144B2100 A   TSEQ015  :TSEQ    TIOF4,TDVT3,OSBF1
     7276   01 0198F    1C4B2100 A   TSEQ016  :TSEQ    TIOT4,TDVT3,OSBF1
     7277   01 01990    142840F2 A   TSEQ017  :TSEQ    TIOF4,OSBT0,TDVF0,BYT01
            01 01991    00000000 A
     7278   01 01992    1440F200 A   TSEQ018  :TSEQ    TIOF4,TDVF0,BYT01
     7279   01 01993    142840F1 A   TSEQ019  :TSEQ    TIOF4,OSBT0,TDVF0,BYT00
            01 01994    00000000 A
     7280   01 01995    4E000000 A   TSEQ020  :TSEQ    TDVT6
     7281   01 01996    46000000 A   TSEQ021  :TSEQ    TDVF6
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  117
A    7283   01 01997    29797B44 A   TSEQ023  :TSEQ    OSBT1,ISBT1,ISBT3,TDVF4,TIOF4
            01 01998    14000000 A
     7284   01 01999    29797B4C A   TSEQ024  :TSEQ    OSBT1,ISBT1,ISBT3,TDVT4,TIOF4
            01 0199A    14000000 A
     7285   01 0199B    14400000 A   TSEQ025  :TSEQ    TIOF4,TDVF0
     7286   01 0199C    1C4A4D6A A   TSEQ026  :TSEQ    TIOT4,TDVT2,TDVT5,AIOT2,OSBF1,TDVF1
            01 0199D    21410000 A
     7287   01 0199E    14424D21 A   TSEQ026P :TSEQ    TIOF4,TDVF2,TDVT5,OSBF1
            01 0199F    00000000 A
     7288   01 019A0    144321F3 A   TSEQ030  :TSEQ    TIOF4,TDVF3,OSBF1,BYT02
            01 019A1    00000000 A
     7289   01 019A2    101B1415 A   TSEQ033  :TSEQ    TIOF0,TIOT3,TIOF4,TIOF5,TIOF6
            01 019A3    16000000 A
     7290   01 019A4    101B1C21 A   TSEQ034  :TSEQ    TIOF0,TIOT3,TIOT4,OSBF1,TDVF0
            01 019A5    40000000 A
     7291   01 019A6    144B4D21 A   TSEQ035  :TSEQ    TIOF4,TDVT3,TDVT5,OSBF1
            01 019A7    00000000 A
     7292   01 019A8    144920F1 A   TSEQ036  :TSEQ    TIOF4,TDVT1,OSBF0,BYT00
            01 019A9    00000000 A
     7293   01 019AA    1C4B2821 A   TSEQ037  :TSEQ    TIOT4,TDVT3,OSBT0,OSBF1
            01 019AB    00000000 A
     7294   01 019AC    144B2145 A   TSEQ038  :TSEQ    TIOF4,TDVT3,OSBF1,TDVF5
            01 019AD    00000000 A
     7295   01 019AE    1C787B7C A   TSEQ039  :TSEQ    TIOT4,ISBT0,ISBT3,ISBT4,TDVF0
            01 019AF    40000000 A
     7296                            TSEQ040  :TSEQ    TIOF1,TIOF2,TIOF4,TIOF5,TIOF6,;
     7297   01 019B0    11121415 A                     OSBT0,OSBF1,TDVX1
            01 019B1    162821B1 A
            01 019B2    00000000 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  118
A    7299   01 019B3    191A1B1D A   TSEQ0600 :TSEQ    TIOT1,TIOT2,TIOT3,TIOT5,TIOT6,TDVT1,OSBF1
            01 019B4    1E492100 A
     7300   01 019B5    17274900 A   TSEQ0601 :TSEQ    TIOF7,OSBF7,TDVT1
     7301                            TSEQ0602 :TSEQ    BYT06,COM00,AIOF0,TDVT1,TIOT3,TIOT4,;
     7302   01 019B6    F7F96049 A                     OSBT0,OSBF1,ISBT0,ISBF1,ISBT3,ISBT4
            01 019B7    1B1C2821 A
            01 019B8    78717B7C A
            01 019B9    00000000 A
     7303                            TSEQ3000 :TSEQ    TIOT4,OSBT1,TDVT0,AIOT0,ISBT1,ISBT3,;
     7304   01 019BA    1C294868 A                     ISBT4,COM00,OSBT6
            01 019BB    797B7CF9 A
            01 019BC    2E000000 A
     7305                            TSEQ3001 :TSEQ    TIOT4,OSBT1,TDVT0,AIOT0,ISBT1,ISBT3,;
     7306   01 019BD    1C294868 A                     ISBT4,COM00,ISBT0,OSBT6,OSBT0,BYT01
            01 019BE    797B7CF9 A
            01 019BF    782E28F2 A
            01 019C0    00000000 A
     7307                            TSEQ1000 :TSEQ    TIOT1,TIOT2,TIOT3,TIOF4,TIOT5,TIOT6,;
     7308   01 019C1    191A1B14 A                     OSBF0,TDVF0,TDVT1
            01 019C2    1D1E2040 A
            01 019C3    49000000 A
     7309   01 019C4    1011121B A   TSEQ1001 :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TDVF7
            01 019C5    47000000 A
     7310   01 019C6    111A1349 A   TSEQ4001 :TSEQ    TIOF1,TIOT2,TIOF3,TDVT1,TDVF7
            01 019C7    47000000 A
     7311   01 019C8    B34D181B A   TSEQ4101 :TSEQ    TDVX3,TDVT5,TIOT0,TIOT3
            01 019C9    00000000 A
     7312   01 019CA    181B1C00 A   TSEQ4102 :TSEQ    TIOT0,TIOT3,TIOT4
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  119
A    7314                                     BOUND    8
     7315   01 019CC    09008A80     TWR1     GEN,8,24 X'09',BA(BUFF1)   INVALID WRITE BKW
     7316   01 019CD    00000002 A            GEN,8,24 X'0',2
     7317   01 019CE    7B008A80     TWR2     GEN,8,24 X'7B',BA(BUFF1)   INVALID WRITE TM BKW
     7318   01 019CF    00000002 A            GEN,8,24 X'0',2
     7319   01 019D0    09008A80     TWR3     GEN,8,24 X'09',BA(BUFF1)   INVALID WRITE BKW UE SET
     7320   01 019D1    04000001 A            GEN,8,24 4,1               UE SET
     7321   01 019D2    63008A80     TSE1     GEN,8,24 X'63',BA(BUFF1)   SET ERASE BC=2
     7322   01 019D3    14000002 A            GEN,8,24 X'14',2           UE AND CE
     7323   01 019D4    63008A80     TSE3     GEN,8,24 X'63',BA(BUFF1)   SET ERASE BC =2 NO INTERRUPT
     7324   01 019D5    00000002 A            GEN,8,24 0,2
     7325   01 019D6    03006E74     TSC2     GEN,8,24 X'03',BA(TSC2D)   SET CORRECTION,BC=1, INFO =FF
     7326   01 019D7    00000001 A            GEN,8,24 0,1               NO INTERRUPT
     7327   01 019D8    03006D7C     TSC3     GEN,8,24 X'03',BA(TSC1D)   SET CORRECTION,BC=2, INFO =00
     7328   01 019D9    00000002 A            GEN,8,24 0,2               NO INTERRUPT
     7329   01 019DA    04006D78     TSNS1    GEN,8,24 X'04',BA(TSNS10)  SENSE, BC=1, INFO =00
     7330   01 019DB    00000001 A            GEN,8,24 0,1               NO INTERRUPT
     7331   01 019DC    04006E78     TSNS2    GEN,8,24 X'04',BA(TSNS20)  SENSE, BC=1, INFO =FF
     7332   01 019DD    00000001 A            GEN,8,24 0,1               NO INTERRUPT
     7333   01 019DE    04006E70     TSNS3    GEN,8,24 X'04',BA(TNS1D)   SENSE, BC=2, INFO =00
     7334   01 019DF    00000002 A            GEN,8,24 0,2               NO INTERRUPT
     7335   01 019E0    03006D7C     TSC5     GEN,8,24 X'03',BA(TSC1D)      SET CORRECTION WITH INT
     7336   01 019E1    14000001 A            GEN,8,24 X'14',1
     7337   01 019E2    63008A80     TSE      GEN,8,24 X'63',BA(BUFF1)   SET ERASE CE SET
     7338   01 019E3    10000001 A            GEN,8,24 X'10',1
     7339   01 019E4    63008A80     TSECC    GEN,8,24 X'63',BA(BUFF1)   COMMAND CHAIN ERASE
     7340   01 019E5    20000001 A            GEN,8,24 X'20',1
     7341   01 019E6    03008A80              GEN,8,24 X'03',BA(BUFF1)   COMMAND CHAIN SET CORRECTION
     7342   01 019E7    20000001 A            GEN,8,24 X'20',1
     7343   01 019E8    04006D7C     TSNS4    GEN,8,24 X'04',BA(TSC1D)   END OF CHAIN SENSE, BC=1, INFO=00
     7344   01 019E9    40000001 A            GEN,8,24 X'40',1           IZC SET
     7345   01 019EA    09008A80     TWRCC    GEN,8,24 X'09',BA(BUFF1)   WRITE BKW COMMAND CHAIN
     7346   01 019EB    24000001 A            GEN,8,24 X'24',1           CC AND UE SET
     7347   01 019EC    04006D78              GEN,8,24 X'04',BA(TSNS10)  SENSE NO COMMAND CHAIN
     7348   01 019ED    00000001 A            GEN,8,24 X'0',1
     7349   01 019EE    33000000 A   TRWOI    GEN,8,24 X'33',0           REWIND AND CHANNEL-END
     7350   01 019EF    1C000000 A            GEN,8,24 X'1C',0
     7351   01 019F0    33008A80     TRWOL    GEN,8,24 X'33',BA(BUFF1)   REWIND AND NO INTERRUPT
     7352   01 019F1    00000000 A            GEN,8,24 X'0',0
     7353   01 019F2    13008A80     TRWAI    GEN,8,24 X'13',BA(BUFF1)   REWIND AND DEVICE-END
     7354   01 019F3    00000000 A            GEN,8,24 0,0
     7355   01 019F4    73008A80     TWTM     GEN,8,24 X'73',BA(BUFF1)   WRITE TAPE MARK, ICE, BC=2
     7356   01 019F5    10000002 A            GEN,8,24 X'10',2
     7357   01 019F6    73008A80     TWTMS    GEN,8,24 X'73',BA(BUFF1)   WRITE EOF, CC, IUE, HTE
     7358   01 019F7    2C000002 A            GEN,8,24 X'2C',2
     7359   01 019F8    01008A80              GEN,8,24 X'01',BA(BUFF1)   WRITE 128 BYTES, ICE/UE
     7360   01 019F9    14000080 A            GEN,8,24 X'14',128
     7361   01 019FA    73008A80     TWTMU    GEN,8,24 X'73',BA(BUFF1)   WRITE EOF, CC, IUE, HTE
     7362   01 019FB    2C000002 A            GEN,8,24 X'2C',2
     7363   01 019FC    09008A80              GEN,8,24 X'09',BA(BUFF1)   ILLEGAL ORDER, ICE/UE
     7364   01 019FD    14000000 A            GEN,8,24 X'14',0
     7365   01 019FE    73008A80     TWTM3    GEN,8,24 X'73',BA(BUFF1)   WRITE TAPE MARK, ICE/UE, BC=2
     7366   01 019FF    14000002 A            GEN,8,24 X'14',2
     7367   01 01A00    01008A80     TWBC     GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD 1-64 BYTES,UE SET
     7368   01 01A01    14000001 A            GEN,8,24 X'14',1
     7369   01 01A02    01008A80     TW100B   GEN,8,24 X'01',BA(BUFF1)   WRITE 100 BYTES, UE SET, CE
     7370   01 01A03    14000064 A            GEN,8,24 X'14',100
     7371   01 01A04    63000000 A   ERASE    GEN,8,24 X'63',0
     7372   01 01A05    20000000 A            GEN,8,24 X'20',0
     7373   01 01A06    01008A80     TW1B     GEN,8,24 X'01',BA(BUFF1)   WRITE 1 BYTE,BCZ SET
     7374   01 01A07    40000001 A            GEN,8,24 X'40',1
     7375   01 01A08    01008A80     TW1BCE   GEN,8,24 X'01',BA(BUFF1)   WRITE 1 BYTE, INT. ON CE
     7376   01 01A09    10000001 A            GEN,8,24 X'10',1
     7377   01 01A0A    01008A80     TWDC02   GEN,8,24 X'01',BA(BUFF1)   WRITE 2 BYTES DATA CHAIN 98
     7378   01 01A0B    84000002 A            GEN,8,24 X'84',2
     7379   01 01A0C    01008A82              GEN,8,24 X'01',BA(BUFF1)+2
     7380   01 01A0D    14000062 A            GEN,8,24 X'14',98
     7381   01 01A0E    01008A80     WFBAD    GEN,8,24 X'01',BA(BUFF1)   WRITE FROM WA, WA+1, WA+2, WA+3 BC=4
     7382   01 01A0F    14000004 A            GEN,8,24 X'14',4
     7383   01 01A10    01008A80     WBCC     GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD BYTE COUNT  01-8000
     7384   01 01A11    14000001 A            GEN,8,24 X'14',1           UE SET, CE SET
     7385   01 01A12    01008A80     TWNP     GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD 20-MAX BYTES NOISE PTN
     7386   01 01A13    14000014 A            GEN,8,24 X'14',20          UE,CE
     7387   01 01A14    01006ED0     TWCRC    GEN,8,24 X'01',BA(CRCDAT)  WRITE RECORD 1 BIT ON IN CRC
     7388   01 01A15    14000002 A            GEN,8,24 X'14',2           CE,CE
     7389   01 01A16    01006EE4     TWCRCB   GEN,8,24 X'01',BA(CRCBL)   WRITE RECORD WITH BLANK CRC
     7390   01 01A17    14000001 A            GEN,8,24 X'14',1
     7391   01 01A18    03006D88     SCBYT    GEN,8,24 X'03',BA(CORBYT)  SET CORRECTION 00-80
     7392   01 01A19    14000001 A            GEN,8,24 X'14',1
     7393   01 01A1A    04006D7C     TSENSE   GEN,8,24 X'04',BA(TSC1D)   SENSE INF =00
     7394   01 01A1B    14000001 A            GEN,8,24 X'14',1
     7395   01 01A1C    01008A80     TW1000   GEN,8,24 X'01',BA(BUFF1)   WRITE 1000 BYTES
     7396   01 01A1D    140003E8 A            GEN,8,24 X'14',1000
     7397   01 01A1E    63000000 A   TWERSE   GEN,8,24 X'63',0
     7398   01 01A1F    20000010 A            GEN,8,24 X'20',16
     7399   01 01A20    01008C10     TWCREP   GEN,8,24 X'01',BA(BUFF1+100) WRT RECORD B CREEP TEST
     7400   01 01A21    14000010 A            GEN,8,24 X'14',16
     7401   01 01A22    09008A80     TWRUE    GEN,8,24 X'09',BA(BUFF1)   WRITE BKW UE SET
     7402   01 01A23    04000002 A            GEN,8,24 X'04',2
     7403   01 01A24    03006D7C     TSC1     GEN,8,24 X'03',BA(TSC1D)   SET CORRECTION BC=1, INFO =00
     7404   01 01A25    00000001 A            GEN,8,24 0,1               NO INTERRUPT
     7405   01 01A26    4B000000 A   SB100B   GEN,8,24 X'4B',0           SPACE BKW OVER RECORD A CREEP TEST
     7406   01 01A27    14000000 A            GEN,8,24 X'14',0
     7407   01 01A28    4B000000 A   SB16B    GEN,8,24 X'4B',0           SPACE BKW OVER RECORD B CREEP TEST
     7408   01 01A29    14000000 A            GEN,8,24 X'14',0
     7409   01 01A2A    4B000000 A   SBR1     GEN,8,24 X'4B',0           SPACE BKW, UE SET,BC=2
     7410   01 01A2B    14000002 A            GEN,8,24 X'14',2
     7411   01 01A2C    5B000000 A   SBF1     GEN,8,24 X'5B',0           SPACE FILE BKW
     7412   01 01A2D    14000000 A            GEN,8,24 X'14',0
     7413   01 01A2E    43000000 A   SFR1     GEN,8,24 X'43',0           SPACE REC FWD CE SET,BC=2
     7414   01 01A2F    10000002 A            GEN,8,24 X'10',2
     7415   01 01A30    43000000 A   SF100    GEN,8,24 X'43',0           SPACE RECORD FWD , UE SET , CE
     7416   01 01A31    14000000 A            GEN,8,24 X'14',0
     7417   01 01A32    4B000000 A   SB100    GEN,8,24 X'4B',0           SPACE RECORD BKW , UE SET , CE
     7418   01 01A33    14000000 A            GEN,8,24 X'14',0
     7419   01 01A34    53000000 A   TSFF     GEN,8,24 X'53',0           SPACE FILE FWD, UE SET, CE
     7420   01 01A35    14000000 A            GEN,8,24 X'14',0
     7421   01 01A36    5B000000 A   TSFB     GEN,8,24 X'5B',0           SPACE FILE BKW, UE SET, CE
     7422   01 01A37    14000000 A            GEN,8,24 X'14',0
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  120
A    7424   01 01A38    43000000 A   SF16CC   GEN,8,24 X'43',0           SPACE FWD 9 RECORDS USING CC
     7425   01 01A39    24000000 A            GEN,8,24 X'24',0
     7426   01 01A3A    43000000 A            GEN,8,24 X'43',0           CC
     7427   01 01A3B    24000000 A            GEN,8,24 X'24',0
     7428   01 01A3C    43000000 A            GEN,8,24 X'43',0           CC
     7429   01 01A3D    24000000 A            GEN,8,24 X'24',0
     7430   01 01A3E    43000000 A            GEN,8,24 X'43',0           CC
     7431   01 01A3F    24000000 A            GEN,8,24 X'24',0
     7432   01 01A40    43000000 A            GEN,8,24 X'43',0           CC
     7433   01 01A41    24000000 A            GEN,8,24 X'24',0
     7434   01 01A42    43000000 A            GEN,8,24 X'43',0           CC
     7435   01 01A43    24000000 A            GEN,8,24 X'24',0
     7436   01 01A44    43000000 A            GEN,8,24 X'43',0           CC
     7437   01 01A45    24000000 A            GEN,8,24 X'24',0
     7438   01 01A46    43000000 A            GEN,8,24 X'43',0           CC
     7439   01 01A47    24000000 A            GEN,8,24 X'24',0
     7440   01 01A48    43000000 A            GEN,8,24 X'43',0           NO CC
     7441   01 01A49    14000000 A            GEN,8,24 X'14',0
     7442   01 01A4A    02008A80     RFSPEC   GEN,8,24 X'02',BA(BUFF1)   READ IN MAX. BUFFER, INT. ON CE
     7443   01 01A4B    10001388 A            GEN,8,24 X'10',5000
     7444   01 01A4C    02008A80     RFSPEC1  GEN,8,24 X'02',BA(BUFF1)   READ WITH HTE, INT. ON CE
     7445   01 01A4D    1A001388 A            GEN,8,24 X'1A',5000
     7446   01 01A4E    4B000000 A   SPBRAND  GEN,8,24 X'4B',0           SPACE BKW RANDOM RECORD
     7447   01 01A4F    14000000 A            GEN,8,24 X'14',0
     7448   01 01A50    43000000 A   SPFRAND  GEN,8,24 X'43',0           SPACE FWD RANDOM RECORD
     7449   01 01A51    14000000 A            GEN,8,24 X'14',0
     7450   01 01A52    23000000 A   TRWOF    GEN,8,24 X'23',0           REWIND AND PUT OFF LINE
     7451   01 01A53    14000000 A            GEN,8,24 X'14',0
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  121
A    7453   01 01A54    33000000 A   TPDMP    GEN,8,24 X'33',0           REWIND AND COMMAND CHAIN
     7454   01 01A55    2C000000 A            GEN,8,24 X'2C',0
     7455   01 01A56    01000064 A            GEN,8,24 X'01',100         WRITE WITH DATA CHAIN
     7456   01 01A57    8C009000 A            GEN,8,24 X'8C',X'9000'
     7457   01 01A58    01000064 A            GEN,8,24 X'01',100
     7458   01 01A59    8C009000 A            GEN,8,24 X'8C',X'9000'
     7459   01 01A5A    01000064 A            GEN,8,24 X'01',100         WRITE NO DATA CHAIN
     7460   01 01A5B    1E009000 A            GEN,8,24 X'1E',X'9000'
     7461   01 01A5C    63000000 A   TST3ERS  GEN,8,24 X'63',0           ERASE (CE, UE, HTE)
     7462   01 01A5D    1C000000 A            GEN,8,24 X'1C',0
     7463   01 01A5E    01008A80     TST3WRT  GEN,8,24 X'01',BA(BUFF1)   WRITE RECORD UNIT TEST
     7464   01 01A5F    1C000000 A            GEN,8,24 X'1C',0           CE, HTE, UE
     7465   01 01A60    01008A80     TST32W   GEN,8,24 X'01',BA(BUFF1)   WRITE 1 RECORD DATA CHAIN
     7466   01 01A61    C0000190 A            GEN,8,24 X'C0',400         DC AND ZBC
     7467   01 01A62    08000D30              GEN,8,24 X'08',DA(TST32W)  TRANSFER IN CHANNEL
     7468   01 01A63    00000000 A            GEN,8,24 0,0
     7469   01 01A64    0C008C10     TST32RB  GEN,8,24 X'0C',BA(BUFF1+100) READ BKW 1 RECORD DATA CHAIN
     7470   01 01A65    C0000190 A            GEN,8,24 X'C0',400         DC AND ZBC
     7471   01 01A66    08000D32              GEN,8,24 X'08',DA(TST32RB) TRANSFER IN CHANNEL
     7472   01 01A67    00000000 A            GEN,8,24 0,0
     7473   01 01A68    02008C10     TST32RF  GEN,8,24 X'02',BA(BUFF1+100) READ FWD 1 RECORD DATA CHAIN
     7474   01 01A69    C0000190 A            GEN,8,24 X'C0',400         DC AND ZBC
     7475   01 01A6A    08000D34              GEN,8,24 X'08',DA(TST32RF) TRANSFER IN CHANNEL
     7476   01 01A6B    00000000 A            GEN,8,24 0,0
     7477   01 01A6C    00008A80     TST33S   GEN,8,24 0,BA(BUFF1)       SPACE FWD OR BKW
     7478   01 01A6D    10000000 A            GEN,8,24 X'10',0
     7479   01 01A6E    00008A80     TST33R   GEN,8,24 0,BA(BUFF1)       READ FWD OR BKW AND DATA CHAIN
     7480   01 01A6F    40000000 A            GEN,8,24 X'40',0
     7481   01 01A70    00008A80              GEN,8,24 0,BA(BUFF1)
     7482   01 01A71    40000000 A            GEN,8,24 X'40',0
     7483   01 01A72    00008A80              GEN,8,24 0,BA(BUFF1)
     7484   01 01A73    40000000 A            GEN,8,24 X'40',0
     7485   01 01A74    00008A80              GEN,8,24 0,BA(BUFF1)
     7486   01 01A75    40000000 A            GEN,8,24 X'40',0
     7487   01 01A76    00008A80              GEN,8,24 0,BA(BUFF1)
     7488   01 01A77    40000000 A            GEN,8,24 X'40',0
     7489   01 01A78    00008A80              GEN,8,24 0,BA(BUFF1)
     7490   01 01A79    40000000 A            GEN,8,24 X'40',0
     7491   01 01A7A    00008A80              GEN,8,24 0,BA(BUFF1)
     7492   01 01A7B    40000000 A            GEN,8,24 X'40',0
     7493   01 01A7C    00008A80              GEN,8,24 0,BA(BUFF1)
     7494   01 01A7D    40000000 A            GEN,8,24 X'40',0
     7495   01 01A7E    00008A80              GEN,8,24 0,BA(BUFF1)
     7496   01 01A7F    40000000 A            GEN,8,24 X'40',0
     7497   01 01A80    00008A80              GEN,8,24 0,BA(BUFF1)
     7498   01 01A81    40000000 A            GEN,8,24 X'40',0
     7499   01 01A82    00008A80              GEN,8,24 0,BA(BUFF1)
     7500   01 01A83    40000000 A            GEN,8,24 X'40',0
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  122
A    7502   01 01A84    63000000 A   TST06E   GEN,8,24 X'63',0
     7503   01 01A85    20000000 A            GEN,8,24 X'20',0
     7504   01 01A86    08000D42              GEN,8,24 X'08',DA(TST06E)
     7505   01 01A87    00000000 A            GEN,8,24 0,0
     7506   01 01A88    02008A80     TST06R   GEN,8,24 X'02',BA(BUFF1)
     7507   01 01A89    1E000006 A            GEN,8,24 X'1E',6
     7508   01 01A8A    01008A80     TST30W   GEN,8,24 X'01',BA(BUFF1)
     7509   01 01A8B    9C000001 A            GEN,8,24 X'9C',1           DC, ICE, HTE, IUE
     7510   01 01A8C    08000D45              GEN,8,24 X'08',DA(TST30W)
     7511   01 01A8D    00000000 A            GEN,8,24 0,0               INFINITE DATA-CHAIN LOOP
     7512   01 01A8E    0200895B     TST30R   GEN,8,24 X'02',BA(BUFF2)+3 CHANGED BY INITIALIZER
     7513   01 01A8F    9C000001 A            GEN,8,24 X'9C',1
     7514   01 01A90    08000D47              GEN,8,24 X'08',DA(TST30R)  INFINITE DATA-CHAIN LOOP
     7515   01 01A91    00000000 A            GEN,8,24 0,0
     7516   01 01A92    01000040 A   TST10W   GEN,8,24 X'01',X'10'**2    INFINITE DATA-CHAIN WRITE
     7517   01 01A93    9C001000 A            GEN,8,24 X'9C',4096
     7518   01 01A94    08000D49              GEN,8,24 X'08',DA(TST10W)
     7519   01 01A95    00000000 A            GEN,8,24 0,0
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  123
A    7521         01 01A96           BACKBEG  EQU      %                 START INITIALIZING HERE

     7523   01 01A96    0C008958     TRB1     GEN,8,24 X'0C',BA(BUFF2)   READ BKW, UE SET, BC=2
     7524   01 01A97    04000002 A            GEN,8,24 X'04',2
     7525   01 01A98    02008958     TRFBC    GEN,8,24 X'02',BA(BUFF2)   READ FWD 100 BYTES, BC= 1-64, UE SET
     7526   01 01A99    1C000001 A            GEN,8,24 X'1C',1           HTE SET
     7527   01 01A9A    02008958     TRF100B  GEN,8,24 X'02',BA(BUFF2)   READ FWD 100 BYTES ,UE SET, CE
     7528   01 01A9B    14000064 A            GEN,8,24 X'14',100
     7529   01 01A9C    0C008958     TRB100B  GEN,8,24 X'0C',BA(BUFF2)   READ BKW 100 BYTES, UE SET, CE
     7530   01 01A9D    14000064 A            GEN,8,24 X'14',100
     7531   01 01A9E    0C008958     TRB100C  GEN,8,24 X'0C',BA(BUFF2)   RB 100 BYTES, IZBC, IUE
     7532   01 01A9F    44000064 A            GEN,8,24 X'44',100
     7533   01 01AA0    0C008958     RB099B   GEN,8,24 X'0C',BA(BUFF2)   READ BKW  99 BYTES, UE SET, CE
     7534   01 01AA1    1C000063 A            GEN,8,24 X'1C',99          HTE
     7535   01 01AA2    02008958     RF099B   GEN,8,24 X'02',BA(BUFF2)   READ FWD  99 BYTES, UE SET, CE
     7536   01 01AA3    1C000063 A            GEN,8,24 X'1C',99          HTE
     7537   01 01AA4    0C008958     RB101B   GEN,8,24 X'0C',BA(BUFF2)   READ BKW 101 BYTES, UE SET, CE
     7538   01 01AA5    1E000065 A            GEN,8,24 X'1E',101         HTE AND SUP INC LENGTH SET
     7539   01 01AA6    02008958     RF101B   GEN,8,24 X'02',BA(BUFF2)   READ FWD 101 BYTES, UE SET, CE
     7540   01 01AA7    16000065 A            GEN,8,24 X'16',101         SUPR INC LENGTH
     7541   01 01AA8    0C008958     RB101BS  GEN,8,24 X'0C',BA(BUFF2)   READ BKW 101 BYTES, INC LEN SUPRESS
     7542   01 01AA9    16000065 A            GEN,8,24 X'16',101
     7543   01 01AAA    02008958     RF099BS  GEN,8,24 X'02',BA(BUFF2)   READ FWD 99  BYTES, INC LEN SUPRESS
     7544   01 01AAB    16000063 A            GEN,8,24 X'16',99
     7545   01 01AAC    0C008958     RB099BS  GEN,8,24 X'0C',BA(BUFF2)    READ BKW 99 BYTES, INC LEN SET
     7546   01 01AAD    16000063 A            GEN,8,24 X'16',99
     7547   01 01AAE    0C008958     RBBAD    GEN,8,24 X'0C',BA(BUFF2)   READ BKW INTO WA, WA+1, WA+2, WA+3
     7548   01 01AAF    14000004 A            GEN,8,24 X'14',4
     7549   01 01AB0    02008958     RFBAD    GEN,8,24 X'02',BA(BUFF2)   READ FWD INTO WA, WA+1, WA+2, WA+3
     7550   01 01AB1    14000004 A            GEN,8,24 X'14',4
     7551   01 01AB2    0C008958     RBCC     GEN,8,24 X'0C',BA(BUFF2)   READ BKW BYTE COUNT 01-8000 CHANGE
     7552   01 01AB3    14000001 A            GEN,8,24 X'14',1           UE,CE
     7553   01 01AB4    02008958     RFCC     GEN,8,24 X'02',BA(BUFF2)   READ FWD BYTE COUNT 01-8000 CHANGE
     7554   01 01AB5    14000001 A            GEN,8,24 X'14',1           UE,CE
     7555   01 01AB6    0C008958     RBNP     GEN,8,24 X'0C',BA(BUFF2)   READ  BKW 20-MAX BYTES NOISE PATTERN
     7556   01 01AB7    14000014 A            GEN,8,24 X'14',20          UE,CE
     7557   01 01AB8    02008958     RFNP     GEN,8,24 X'02',BA(BUFF2)   READ  FWD 20-MAX BYTES NOISE PATTERN
     7558   01 01AB9    14000014 A            GEN,8,24 X'14',20          UE,CE
     7559   01 01ABA    0C008958     RBCRC    GEN,8,24 X'0C',BA(BUFF2)   READ BKW RECORD 1 BIT ON IN CRC
     7560   01 01ABB    14000002 A            GEN,8,24 X'14',2
     7561   01 01ABC    02008958     RFCRC    GEN,8,24 X'02',BA(BUFF2)   READ FWD RECORD 1 BIT ON IN CRC
     7562   01 01ABD    14000002 A            GEN,8,24 X'14',2
     7563   01 01ABE    0C008958     RBCRCB   GEN,8,24 X'0C',BA(BUFF2)   READ BKW RECORD WITH BLANK CRC
     7564   01 01ABF    14000001 A            GEN,8,24 X'14',1
     7565   01 01AC0    02008958     RFCRCB   GEN,8,24 X'02',BA(BUFF2)   READ FWD RECORD WITH BLANK CRC
     7566   01 01AC1    14000001 A            GEN,8,24 X'14',1
     7567   01 01AC2    0C008958     RB1000   GEN,8,24 X'0C',BA(BUFF2)   READ BKW 1000 BYTES
     7568   01 01AC3    140003E8 A            GEN,8,24 X'14',1000
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  124
A    7570   01 01AC4    02008958     RF100B   GEN,8,24 X'02',BA(BUFF2)   READ FWD RECORD A CREEP TEST
     7571   01 01AC5    14000064 A            GEN,8,24 X'14',100
     7572   01 01AC6    02008958     RF16B    GEN,8,24 X'02',BA(BUFF2)   READ FWD RECORD B CREEP TEST
     7573   01 01AC7    14000010 A            GEN,8,24 X'14',16
     7574   01 01AC8    01008958     TW16B    GEN,8,24 X'01',BA(BUFF2)   WRITE 16 BYTES IRG TEST
     7575   01 01AC9    14000010 A            GEN,8,24 X'14',16
     7576   01 01ACA    0C008958     TST3RB   GEN,8,24 X'0C',BA(BUFF2)   READ BACKWARD RECORD
     7577   01 01ACB    1E000000 A            GEN,8,24 X'1E',0
     7578   01 01ACC    02008958     TST3RF   GEN,8,24 X'02',BA(BUFF2)   READ FORWARD RECORD
     7579   01 01ACD    1E000000 A            GEN,8,24 X'1E',0

     7581   01 01ACE    0C008958     TRBDC06  GEN,8,24 X'0C',BA(BUFF2)   READ BACKWARD 6 BYTES
     7582   01 01ACF    84000006 A            GEN,8,24 X'84',6            DATA CHAIN 94 BYTES
     7583   01 01AD0    0C008970              GEN,8,24 X'0C',BA(BUFF2+6)
     7584   01 01AD1    1400005E A            GEN,8,24 X'14',94
     7585   01 01AD2    02008958     TRFDC48  GEN,8,24 X'02',BA(BUFF2)   READ FORWARD 48 BYTES
     7586   01 01AD3    84000030 A            GEN,8,24 X'84',48           DATA CHAIN 52 BYTES
     7587   01 01AD4    02008A18              GEN,8,24 X'02',BA(BUFF2+48)
     7588   01 01AD5    14000034 A            GEN,8,24 X'14',52

     7590         01 01AD6           BACKEND  EQU      %                 END INITIALIZING HERE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  125
A    7592                                     BOUND    8
     7593   01 01AD6    00000000 A   TWTALLY  DATA     0,0,0,0,0,0,0,0   TEMP WRITE ERROR TALLY
            01 01AD7    00000000 A
            01 01AD8    00000000 A
            01 01AD9    00000000 A
            01 01ADA    00000000 A
            01 01ADB    00000000 A
            01 01ADC    00000000 A
            01 01ADD    00000000 A
     7594   01 01ADE    00000000 A   PWTALLY  DATA     0,0,0,0,0,0,0,0   PERM WRITE ERROR TALLY
            01 01ADF    00000000 A
            01 01AE0    00000000 A
            01 01AE1    00000000 A
            01 01AE2    00000000 A
            01 01AE3    00000000 A
            01 01AE4    00000000 A
            01 01AE5    00000000 A
     7595   01 01AE6    00000000 A   PRBTALLY DATA     0,0,0,0,0,0,0,0   PERM READ BKW ERROR TALLY
            01 01AE7    00000000 A
            01 01AE8    00000000 A
            01 01AE9    00000000 A
            01 01AEA    00000000 A
            01 01AEB    00000000 A
            01 01AEC    00000000 A
            01 01AED    00000000 A
     7596   01 01AEE    00000000 A   TRBTALLY DATA     0,0,0,0,0,0,0,0   TEMP READ BKW ERROR TALLY
            01 01AEF    00000000 A
            01 01AF0    00000000 A
            01 01AF1    00000000 A
            01 01AF2    00000000 A
            01 01AF3    00000000 A
            01 01AF4    00000000 A
            01 01AF5    00000000 A
     7597   01 01AF6    00000000 A   PRFTALLY DATA     0,0,0,0,0,0,0,0   PERM READ FWD ERROR TALLY
            01 01AF7    00000000 A
            01 01AF8    00000000 A
            01 01AF9    00000000 A
            01 01AFA    00000000 A
            01 01AFB    00000000 A
            01 01AFC    00000000 A
            01 01AFD    00000000 A
     7598   01 01AFE    00000000 A   TRFTALLY DATA     0,0,0,0,0,0,0,0   TEMP READ FWD ERROR TALLY
            01 01AFF    00000000 A
            01 01B00    00000000 A
            01 01B01    00000000 A
            01 01B02    00000000 A
            01 01B03    00000000 A
            01 01B04    00000000 A
            01 01B05    00000000 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  126
A    7600   01 01B06    23C4C5C3 A   REMSG30  TEXTC    'DECIMAL ERROR SUMMARY, DEVICE: XXXX'
            01 01B07    C9D4C1D3 A
            01 01B08    40C5D9D9 A
            01 01B09    D6D940E2 A
            01 01B0A    E4D4D4C1 A
            01 01B0B    D9E86B40 A
            01 01B0C    C4C5E5C9 A
            01 01B0D    C3C57A40 A
            01 01B0E    E7E7E7E7 A
     7601   01 01B0F    17404040 A   REMSG31  TEXTC    '   PW: XXXX,   TW: XXXX'
            01 01B10    D7E67A40 A
            01 01B11    E7E7E7E7 A
            01 01B12    6B404040 A
            01 01B13    E3E67A40 A
            01 01B14    E7E7E7E7 A
     7602   01 01B15    174040D7 A   REMSG32  TEXTC    '  PRF: XXXX,  TRF: XXXX'
            01 01B16    D9C67A40 A
            01 01B17    E7E7E7E7 A
            01 01B18    6B4040E3 A
            01 01B19    D9C67A40 A
            01 01B1A    E7E7E7E7 A
     7603   01 01B1B    174040D7 A   REMSG33  TEXTC    '  PRB: XXXX,  TRB: XXXX'
            01 01B1C    D9C27A40 A
            01 01B1D    E7E7E7E7 A
            01 01B1E    6B4040E3 A
            01 01B1F    D9C27A40 A
            01 01B20    E7E7E7E7 A
     7604   01 01B21    22D9C1D5 A   REMSG34  TEXTC    'RANDOM EXERCISER:  XXXX HEX PASSES'              *G02
            01 01B22    C4D6D440 A
            01 01B23    C5E7C5D9 A
            01 01B24    C3C9E2C5 A
            01 01B25    D97A4040 A
            01 01B26    E7E7E7E7 A
            01 01B27    40C8C5E7 A
            01 01B28    40D7C1E2 A
            01 01B29    E2C5E240 A

     7606         00000000           DTALLY   CNAME
     7607                                     PROC
     7608                                     LW,R12   AF(1),R7          GET APPROPRIATE ERROR TALLY
     7609                                     BAL,R15  *:DECC             CONVERT TO DECIMAL
     7610                                     STW,R15  MTALLY(ITALLY)+AF(2) STORE IN DISPLAY MESSAGE
     7611                                     PEND

     7613         LIST               PTALLY   SET      PWTALLY,PRFTALLY,PRBTALLY PERMANENT ERROR TALLIES
     7614         LIST               TTALLY   SET      TWTALLY,TRFTALLY,TRBTALLY TEMPORARY ERROR TALLIES
     7615         LIST               MTALLY   SET      REMSG31,REMSG32,REMSG33   DISPLAY MESSAGES
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  127
A    7617         01 01B2A           T2RESUM  EQU      %                 DISPLAY ERROR TALLIES
     7618   01 01B2A    35F012FB              STW,R15  T2RELINK

     7620   01 01B2B    22700000 A            LI,R7    0                 SET TO SCAN DEVICES
     7621   01 01B2C    3A501B96              LCW,R5   SAVNUMB

     7623         01 01B2D           T2RESUM0 EQU      %
     7624   01 01B2D    EAF0021C              BAL,R15  *:PRINT           SPACE BETWEEN DEVICES
     7625   01 01B2E    00001D07              DATA     SPACE

     7627   01 01B2F    32CE1B8E              LW,R12   SAVDEV,R7         CONVERT DEVICE ADDRESS
     7628   01 01B30    EAF00218              BAL,R15  *:HEXC             TO HEX AND STORE FOR DISPLAY
     7629   01 01B31    35F01B0E              STW,R15  REMSG30+8
     7630   01 01B32    EAF0021C              BAL,R15  *:PRINT
     7631   01 01B33    00001B06              DATA     REMSG30

     7633         00000003           ITALLY   DO       3                 FORMAT AND PRINT W, RF, RB TALLIES
     7634   01 01B34    32CE1ADE              DTALLY   PTALLY(ITALLY),2   PERMANENT ERRORS
            01 01B35    EAF00217
            01 01B36    35F01B11
     7635   01 01B37    32CE1AD6              DTALLY   TTALLY(ITALLY),5    TEMPORARY ERRORS
            01 01B38    EAF00217
            01 01B39    35F01B14
     7636   01 01B3A    EAF0021C              BAL,R15  *:PRINT              DISPLAY FORMATTED MESSAGE
     7637   01 01B3B    00001B0F              DATA     MTALLY(ITALLY)
     7638                                     FIN
            01 01B3C    32CE1AF6
            01 01B3D    EAF00217
            01 01B3E    35F01B17
            01 01B3F    32CE1AFE
            01 01B40    EAF00217
            01 01B41    35F01B1A
            01 01B42    EAF0021C
            01 01B43    00001B15
            01 01B44    32CE1AE6
            01 01B45    EAF00217
            01 01B46    35F01B1D
            01 01B47    32CE1AEE
            01 01B48    EAF00217
            01 01B49    35F01B20
            01 01B4A    EAF0021C
            01 01B4B    00001B1B

     7640   01 01B4C    20700001 A            AI,R7    1                 INCREMENT TO NEXT DEVICE
     7641   01 01B4D    65501B2D              BIR,R5   T2RESUM0

     7643   01 01B4E    EAF0021C              BAL,R15  *:PRINT           PRINT BLANK LINE
     7644   01 01B4F    00001D07              DATA     SPACE
     7645   01 01B50    E80012FB              B        *T2RELINK
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  128
A    7647                                     BOUND    8
     7648   01 01B52    00000000 A   STDELAY  DATA     0,0
            01 01B53    00000000 A
     7649   01 01B54    00000000 A   SAVE45   DATA     0,0
            01 01B55    00000000 A
     7650   01 01B56    00000000 A   LOOPTLY  DATA     0                 CURRENT CYCLE NUMBER
     7651   01 01B57    00000000 A   CRTRY    DATA     0                 NUMBER OF RETRIES ALLOWED
     7652   01 01B58    00000000 A   NMLOOP   DATA     0                 LOOP LIMIT FROM USER
     7653   01 01B59    00000000 A   OPFLAG   DATA     0                 RANDOM SET OF EXERCISES
     7654   01 01B5A    00000000 A   SAVMODEL DATA     0                 MODEL NUMBER UNDER TEST
     7655   01 01B5B    00000000 A   ST1512   DATA     0
     7656   01 01B5C    00000000 A   ST15     DATA     0
     7657   01 01B5D    33100007 A   CLOCK    MTW,1    7                 CLOCK COUNTER
     7658   01 01B5E    00000000 A   TSNS10   DATA     0
     7659   01 01B5F    00000000 A   TSC1D    DATA     0
     7660   01 01B60    00000000 A   FLG1     DATA     0
     7661   01 01B61    00000000 A   STRTME   DATA     0
     7662   01 01B62    01020408 A   CORBYT   DATA     X'01020408',X'10204080'
            01 01B63    10204080 A
     7663   01 01B64                 OUTMSG   RES      34
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  129
A    7665   01 01B86    00000000 A   WRETRY   DATA     0                 LIMT,2,N: USED BY TST3,1
     7666   01 01B87    00000000 A   RRETRY   DATA     0                 LIMT,3,N: USED BY TST3,1
     7667   01 01B88    FFFFFFFF A   JAHTC    DATA     -1                INTERRUPT ROUTINE DELAY
     7668   01 01B89    00000000 A   FLG7315  DATA     0
     7669   01 01B8A    00000000 A   ST151    DATA     0                 SAVE R15
     7670   01 01B8B    00000000 A   IRGTM    DATA     0
     7671   01 01B8C    00000000 A   :DEVADDR DATA     0
     7672   01 01B8D    00000000 A   SAVESIX  DATA     0
     7673   01 01B8E                 SAVDEV   RES      8                 DEVICE NUMBERS BEING TESTED
     7674   01 01B96    00000000 A   SAVNUMB  DATA     0                 NUMBER OF DEVICE NUMBERS LISTED
     7675   01 01B97    00000000 A   MAXBYT   DATA     0                 MAXIMUM BYTE COUNT OF BUFFER
     7676   01 01B98    00000000 A   MAXREC   DATA     0                 MEMORY MAXIMUM-BUFF1
     7677   01 01B99    00000000 A   MAXREADB DATA     0                 MAX BYTES IN EACH BUFFER
     7678   01 01B9A    00000000 A   MAXREAD  DATA     0                 BUFF1 TO BUFF2
     7679   01 01B9B    00000000 A   NOREAD   DATA     0                 TOO LARGE TO READ FLAG
     7680   01 01B9C    00000000 A   TNS1D    DATA     0
     7681   01 01B9D    FF000000 A   TSC2D    DATA     X'FF000000'
     7682   01 01B9E    FF000000 A   TSNS20   DATA     X'FF000000'
     7683   01 01B9F    00000000 A   TST3OPR  DATA     0
     7684   01 01BA0    00000000 A   ST1155   DATA     0
     7685   01 01BA1    00000000 A   TIME1    DATA     0
     7686   01 01BA2    00000000 A   TIME2    DATA     0
     7687   01 01BA3    00000000 A   TIME3    DATA     0
     7688   01 01BA4    00000000 A   LASTWDW  DATA     0
     7689   01 01BA5    00000000 A   LASTWDR  DATA     0

     7691                                     BOUND    8
     7692   01 01BA6    00000000 A   PT00T    DATA     0,0,0,0
            01 01BA7    00000000 A
            01 01BA8    00000000 A
            01 01BA9    00000000 A
     7693   01 01BAA    00000000 A   PT00     DATA     0                 PATTERNS 00-80
     7694   01 01BAB    01010101 A            DATA     X'01010101'
     7695   01 01BAC    02020202 A            DATA     X'02020202'
     7696   01 01BAD    04040404 A            DATA     X'04040404'
     7697   01 01BAE    08080808 A            DATA     X'08080808'
     7698   01 01BAF    10101010 A            DATA     X'10101010'
     7699   01 01BB0    20202020 A            DATA     X'20202020'
     7700   01 01BB1    40404040 A            DATA     X'40404040'
     7701   01 01BB2    80808080 A   PT80     DATA     X'80808080'
     7702   01 01BB3    00000000 A            DATA     X'00000000'
     7703   01 01BB4    5C00AE80 A   CRCDAT   DATA     X'5C00AE80'
     7704   01 01BB5    AE002E00 A            DATA     X'AE002E00'
     7705   01 01BB6    EE008E00 A            DATA     X'EE008E00'
     7706   01 01BB7    BE00A600 A            DATA     X'BE00A600'
     7707   01 01BB8    AA000000 A            DATA     X'AA000000'
     7708   01 01BB9    D7000000 A   CRCBL    DATA     X'D7000000'
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  130
A    7710   01 01BBA    00000000 A   P:T11CNT DATA     0                 TST1,11 COUNTER (POTTER)
     7711   01 01BBB    00000000 A   P2FLAG   DATA     0
     7712   01 01BBC    00000000 A   SPFLAG   DATA     0
     7713   01 01BBD    00000000 A   LOOPMAX  DATA     0
     7714   01 01BBE    00000000 A   BYTECN   DATA     0
     7715   01 01BBF    00000001 A   TLOOP    DATA     1
     7716   01 01BC0    00000000 A   CMAX     DATA     0
     7717   01 01BC1    00000000 A   RRTT     DATA     0
     7718   01 01BC2    00000000 A   MASKBYT  DATA     0
     7719   01 01BC3    15151515 A   NZDATA1  DATA     X'15151515'
     7720   01 01BC4    BF8A8A8A A            DATA     X'BF8A8A8A'
     7721   01 01BC5    8ABF1515 A            DATA     X'8ABF1515'
     7722   01 01BC6    1515BF8A A            DATA     X'1515BF8A'
     7723   01 01BC7    8A8A8ABF A            DATA     X'8A8A8ABF'
     7724   01 01BC8    F3F3F3F3 A   NZDATA2  DATA     X'F3F3F3F3'
     7725   01 01BC9    F3AEAEAE A            DATA     X'F3AEAEAE'
     7726   01 01BCA    AEAE6F6F A            DATA     X'AEAE6F6F'
     7727   01 01BCB    6F6F6FFD A            DATA     X'6F6F6FFD'
     7728   01 01BCC    FDFDFDFD A            DATA     X'FDFDFDFD'
     7729   01 01BCD    DBDBDBDB A            DATA     X'DBDBDBDB'
     7730   01 01BCE    F3F3F3F3 A   NZDATA3  DATA     X'F3F3F3F3'
     7731   01 01BCF    BEBEBEBE A            DATA     X'BEBEBEBE'
     7732   01 01BD0    FDFDFDFD A            DATA     X'FDFDFDFD'
     7733   01 01BD1    6F6F6F6F A            DATA     X'6F6F6F6F'
     7734   01 01BD2    DBDBDBDB A            DATA     X'DBDBDBDB'
     7735   01 01BD3    00000000 A   PATTSED  DATA     0                 SEED FOR PATTERN
     7736   01 01BD4    00000000 A   PATTYPE  DATA     0                 PATTERN TYPE 0=FIXED,1=RANDOM,5=BIT
     7737   01 01BD5    00000000 A   PATTTK   DATA     0                 TRACKS IF BIT CROWDING PATTERN
     7738   01 01BD6    00000000 A   PATTTS1  DATA     0                 PATTERN FOR 1ST TRACK
     7739   01 01BD7    00000000 A   PATTTS2  DATA     0
     7740   01 01BD8    00000000 A   PATTFIX  DATA     0                 FIXED PATTERN
     7741   01 01BD9    00000000 A   LNGTST   DATA     0                 LENGTH EXPECTED
     7742   01 01BDA    0000012C A   LENGTH   DATA     300               BYTE LENGTH FROM DIRECTIVE
     7743   01 01BDB    00000000 A   CSMEAR   DATA     0,0,0,0,0,0,0,0,0,0,0,0,0
            01 01BDC    00000000 A
            01 01BDD    00000000 A
            01 01BDE    00000000 A
            01 01BDF    00000000 A
            01 01BE0    00000000 A
            01 01BE1    00000000 A
            01 01BE2    00000000 A
            01 01BE3    00000000 A
            01 01BE4    00000000 A
            01 01BE5    00000000 A
            01 01BE6    00000000 A
            01 01BE7    00000000 A
     7744                                     BOUND    8
     7745   01 01BE8    00000000 A   INTSVV   DATA     0,0,:INTSV,0      I/O INTERRUPT PSDWS
            01 01BE9    00000000 A
            01 01BEA    0000203C
            01 01BEB    00000000 A
     7746   01 01BEC    0F001BE8     XPSD1    XPSD,0   INTSVV            I/O INTERRUPT VECTOR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  131
A    7748   01 01BED    E66BE66B A   REDAPT   TEXT     'W,W,W,W     '
            01 01BEE    E66BE640 A
            01 01BEF    40404040 A
     7749   01 01BF0    E66BE66B A            TEXT     'W,W,W,RB    '
            01 01BF1    E66BD9C2 A
            01 01BF2    40404040 A
     7750   01 01BF3    E66BE66B A            TEXT     'W,W,W,SB    '
            01 01BF4    E66BE2C2 A
            01 01BF5    40404040 A
     7751   01 01BF6    E66BE66B A            TEXT     'W,W,RB,RB   '
            01 01BF7    D9C26BD9 A
            01 01BF8    C2404040 A
     7752   01 01BF9    E66BE66B A            TEXT     'W,W,RB,SB   '
            01 01BFA    D9C26BE2 A
            01 01BFB    C2404040 A
     7753   01 01BFC    E66BE66B A            TEXT     'W,W,SB,RB   '
            01 01BFD    E2C26BD9 A
            01 01BFE    C2404040 A
     7754   01 01BFF    E66BE66B A            TEXT     'W,W,SB,SB   '
            01 01C00    E2C26BE2 A
            01 01C01    C2404040 A
     7755   01 01C02    E66BE66B A            TEXT     'W,W,SB,RF   '
            01 01C03    E2C26BD9 A
            01 01C04    C6404040 A
     7756   01 01C05    E66BE66B A            TEXT     'W,W,RB,SF   '
            01 01C06    D9C26BE2 A
            01 01C07    C6404040 A
     7757   01 01C08    E66BD9C2 A            TEXT     'W,RB,RB,RF  '
            01 01C09    6BD9C26B A
            01 01C0A    D9C64040 A
     7758   01 01C0B    E66BD9C2 A            TEXT     'W,RB,RB,SF  '
            01 01C0C    6BD9C26B A
            01 01C0D    E2C64040 A
     7759   01 01C0E    E66BE2C2 A            TEXT     'W,SB,SB,RF  '
            01 01C0F    6BE2C26B A
            01 01C10    D9C64040 A
     7760   01 01C11    E66BE2C2 A            TEXT     'W,SB,RB,SF  '
            01 01C12    6BD9C26B A
            01 01C13    E2C64040 A
     7761   01 01C14    D9C26BD9 A            TEXT     'RB,RF,RB,RF '
            01 01C15    C66BD9C2 A
            01 01C16    6BD9C640 A
     7762   01 01C17    D9C26BD9 A            TEXT     'RB,RF,SB,RF '
            01 01C18    C66BE2C2 A
            01 01C19    6BD9C640 A
     7763   01 01C1A    E2C26BE2 A            TEXT     'SB,SF,RB,RF '
            01 01C1B    C66BD9C2 A
            01 01C1C    6BD9C640 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  132
A    7765   01 01C1D    0DD5D640 A   NOLOAD   TEXTC    'NO LOAD POINT'
            01 01C1E    D3D6C1C4 A
            01 01C1F    40D7D6C9 A
            01 01C20    D5E34040 A
     7766   01 01C21    31C9D5E2 A   OPMESG1  TEXTC    'INSTALL JUMPER TRK      - SEE DESCRIPTION TST1,39'
            01 01C22    E3C1D3D3 A
            01 01C23    40D1E4D4 A
            01 01C24    D7C5D940 A
            01 01C25    E3D9D240 A
            01 01C26    40404040 A
            01 01C27    406040E2 A
            01 01C28    C5C540C4 A
            01 01C29    C5E2C3D9 A
            01 01C2A    C9D7E3C9 A
            01 01C2B    D6D540E3 A
            01 01C2C    E2E3F16B A
            01 01C2D    F3F94040 A
     7767   01 01C2E    0FD9C5D4 A   OPMESG2  TEXTC    'REMOVE JUMPER  '
            01 01C2F    D6E5C540 A
            01 01C30    D1E4D4D7 A
            01 01C31    C5D94040 A
     7768   01 01C32    1BD9C5D7 A   OPMESG3  TEXTC    'REPLACE WRITE RING, READY  '
            01 01C33    D3C1C3C5 A
            01 01C34    40E6D9C9 A
            01 01C35    E3C540D9 A
            01 01C36    C9D5C76B A
            01 01C37    40D9C5C1 A
            01 01C38    C4E84040 A
     7769   01 01C39    17D9C5E2 A   OPMESG4  TEXTC    'RESTORE UNIT TO READY  '
            01 01C3A    E3D6D9C5 A
            01 01C3B    40E4D5C9 A
            01 01C3C    E340E3D6 A
            01 01C3D    40D9C5C1 A
            01 01C3E    C4E84040 A
     7770   01 01C3F    1FD9C5E2 A   OPMESG5  TEXTC    'RESET, ATTENTION, FOR INTERRUPT'
            01 01C40    C5E36B40 A
            01 01C41    C1E3E3C5 A
            01 01C42    D5E3C9D6 A
            01 01C43    D56B40C6 A
            01 01C44    D6D940C9 A
            01 01C45    D5E3C5D9 A
            01 01C46    D9E4D7E3 A
     7771   01 01C47    26D9C5D4 A   OPMESG6  TEXTC    'REMOVE WRITE RING, READY, CORRECT UNIT'
            01 01C48    D6E5C540 A
            01 01C49    E6D9C9E3 A
            01 01C4A    C540D9C9 A
            01 01C4B    D5C76B40 A
            01 01C4C    D9C5C1C4 A
            01 01C4D    E86B40C3 A
            01 01C4E    D6D9D9C5 A
            01 01C4F    C3E340E4 A
            01 01C50    D5C9E340 A
     7772   01 01C51    2FC940D9 A   MESIRG   TEXTC    'I R G TIME      US   TOLERANCE      TO      US '
            01 01C52    40C740E3 A
            01 01C53    C9D4C540 A
            01 01C54    40404040 A
            01 01C55    40E4E240 A
            01 01C56    4040E3D6 A
            01 01C57    D3C5D9C1 A
            01 01C58    D5C3C540 A
            01 01C59    40404040 A
            01 01C5A    40E3D640 A
            01 01C5B    40404040 A
            01 01C5C    40E4E240 A
     7773   01 01C5D    17E2E3C1 A   MESSTRT  TEXTC    'START TIME IS       US '
            01 01C5E    D9E340E3 A
            01 01C5F    C9D4C540 A
            01 01C60    C9E24040 A
            01 01C61    40404040 A
            01 01C62    40E4E240 A
     7774   01 01C63    26E3C1D7 A   MESTPC   TEXTC    'TAPE CREEP      US   TOLERANCE      US'
            01 01C64    C540C3D9 A
            01 01C65    C5C5D740 A
            01 01C66    40404040 A
            01 01C67    40E4E240 A
            01 01C68    4040E3D6 A
            01 01C69    D3C5D9C1 A
            01 01C6A    D5C3C540 A
            01 01C6B    40404040 A
            01 01C6C    40E4E240 A
     7775   01 01C6D    22D5C5C7 A   MESNCR   TEXTC    'NEG. CREEP      IN TAPE CREEP TEST'
            01 01C6E    4B40C3D9 A
            01 01C6F    C5C5D740 A
            01 01C70    40404040 A
            01 01C71    40C9D540 A
            01 01C72    E3C1D7C5 A
            01 01C73    40C3D9C5 A
            01 01C74    C5D740E3 A
            01 01C75    C5E2E340 A
     7776   01 01C76    26C6C1C9 A   MESBADB  TEXTC    'FAILING BYTE    IN SET CORRECTION TEST'
            01 01C77    D3C9D5C7 A
            01 01C78    40C2E8E3 A
            01 01C79    C5404040 A
            01 01C7A    40C9D540 A
            01 01C7B    E2C5E340 A
            01 01C7C    C3D6D9D9 A
            01 01C7D    C5C3E3C9 A
            01 01C7E    D6D540E3 A
            01 01C7F    C5E2E340 A
     7777   01 01C80    19E2C5D5 A   MESSNS   TEXTC    'SENSE INFO    EXPECTED 00'
            01 01C81    E2C540C9 A
            01 01C82    D5C6D640 A
            01 01C83    404040C5 A
            01 01C84    E7D7C5C3 A
            01 01C85    E3C5C440 A
            01 01C86    F0F04040 A
     7778   01 01C87    0DE2C5D5 A   MESSNS1  TEXTC    'SENSE INFO XX'
            01 01C88    E2C540C9 A
            01 01C89    D5C6D640 A
            01 01C8A    E7E74040 A
     7779   01 01C8B    15C3D9C3 A   MESCRC   TEXTC    'CRC TRACK BIT    TEST'
            01 01C8C    40E3D9C1 A
            01 01C8D    C3D240C2 A
            01 01C8E    C9E34040 A
            01 01C8F    4040E3C5 A
            01 01C90    E2E34040 A
     7780   01 01C91    0EC3D9C3 A   MESCRCB  TEXTC    'CRC BLANK TEST'
            01 01C92    40C2D3C1 A
            01 01C93    D5D240E3 A
            01 01C94    C5E2E340 A
     7781   01 01C95    1AE2C5D5 A   MESSEN   TEXTC    'SENSE INFO    EXPECTED    '
            01 01C96    E2C540C9 A
            01 01C97    D5C6D640 A
            01 01C98    404040C5 A
            01 01C99    E7D7C5C3 A
            01 01C9A    E3C5C440 A
            01 01C9B    40404040 A
     7782   01 01C9C    29C5D9C1 A   MESEGT   TEXTC    'ERASE TIME       MS, TOLERANCE    -    MS'
            01 01C9D    E2C540E3 A
            01 01C9E    C9D4C540 A
            01 01C9F    40404040 A
            01 01CA0    4040D4E2 A
            01 01CA1    6B40E3D6 A
            01 01CA2    D3C5D9C1 A
            01 01CA3    D5C3C540 A
            01 01CA4    40404060 A
            01 01CA5    40404040 A
            01 01CA6    D4E24040 A
     7783   01 01CA7    13C4C5E2 A   OPMESG7  TEXTC    'DESIGNATE UNIT XXXX'
            01 01CA8    C9C7D5C1 A
            01 01CA9    E3C540E4 A
            01 01CAA    D5C9E340 A
            01 01CAB    E7E7E7E7 A
     7784   01 01CAC    0FE3E2E3 A   DEVPRTO  TEXTC    'TST1-DEV.      '
            01 01CAD    F160C4C5 A
            01 01CAE    E54B4040 A
            01 01CAF    40404040 A
     7785   01 01CB0    13C9D5E2 A   OPMESG8  TEXTC    'INSTALL 2 JUMPERS  '
            01 01CB1    E3C1D3D3 A
            01 01CB2    40F240D1 A
            01 01CB3    E4D4D7C5 A
            01 01CB4    D9E24040 A
     7786   01 01CB5    345C5C5C A   MSER1    TEXTC    '****************************************************'
            01 01CB6    5C5C5C5C A
            01 01CB7    5C5C5C5C A
            01 01CB8    5C5C5C5C A
            01 01CB9    5C5C5C5C A
            01 01CBA    5C5C5C5C A
            01 01CBB    5C5C5C5C A
            01 01CBC    5C5C5C5C A
            01 01CBD    5C5C5C5C A
            01 01CBE    5C5C5C5C A
            01 01CBF    5C5C5C5C A
            01 01CC0    5C5C5C5C A
            01 01CC1    5C5C5C5C A
            01 01CC2    5C404040 A
     7787   01 01CC3    33D9C5C3 A   MESER    TEXTC    'REC 100 PT XXXX WRT ER XXXX  RF ER XXXX INF ER XXXX'
            01 01CC4    40F1F0F0 A
            01 01CC5    40D7E340 A
            01 01CC6    E7E7E7E7 A
            01 01CC7    40E6D9E3 A
            01 01CC8    40C5D940 A
            01 01CC9    E7E7E7E7 A
            01 01CCA    4040D9C6 A
            01 01CCB    40C5D940 A
            01 01CCC    E7E7E7E7 A
            01 01CCD    40C9D5C6 A
            01 01CCE    40C5D940 A
            01 01CCF    E7E7E7E7 A
     7788   01 01CD0    33D9C1D5 A   REMESG1  TEXTC    'RAND. WORD            DEV.        PASS HEX         '
            01 01CD1    C44B40E6 A
            01 01CD2    D6D9C440 A
            01 01CD3    40404040 A
            01 01CD4    40404040 A
            01 01CD5    404040C4 A
            01 01CD6    C5E54B40 A
            01 01CD7    40404040 A
            01 01CD8    404040D7 A
            01 01CD9    C1E2E240 A
            01 01CDA    C8C5E740 A
            01 01CDB    40404040 A
            01 01CDC    40404040 A
     7789   01 01CDD    23E3D9C1 A   MRTE     TEXTC    'TRANS ERROR  REC XXXXXX  BYT XXXXXX'
            01 01CDE    D5E240C5 A
            01 01CDF    D9D9D6D9 A
            01 01CE0    4040D9C5 A
            01 01CE1    C340E7E7 A
            01 01CE2    E7E7E7E7 A
            01 01CE3    4040C2E8 A
            01 01CE4    E340E7E7 A
            01 01CE5    E7E7E7E7 A
     7790   01 01CE6    23D9C5C3 A   RECOUT   TEXTC    'RECORD XXXX, SIZE: XXXX (HEX BYTES)'
            01 01CE7    D6D9C440 A
            01 01CE8    E7E7E7E7 A
            01 01CE9    6B40E2C9 A
            01 01CEA    E9C57A40 A
            01 01CEB    E7E7E7E7 A
            01 01CEC    404DC8C5 A
            01 01CED    E740C2E8 A
            01 01CEE    E3C5E25D A
     7791   01 01CEF    1BE3C9D4 A   TIMEOUT  TEXTC    'TIMEOUT: TST1,XX   LOC:XXXX'
            01 01CF0    C5D6E4E3 A
            01 01CF1    7A40E3E2 A
            01 01CF2    E3F16BE7 A
            01 01CF3    E7404040 A
            01 01CF4    D3D6C37A A
            01 01CF5    E7E7E7E7 A
     7792   01 01CF6    1BC6C1C9 A   REMESG2  TEXTC    'FAILING SEQ: W,            '
            01 01CF7    D3C9D5C7 A
            01 01CF8    40E2C5D8 A
            01 01CF9    7A40E66B A
            01 01CFA    40404040 A
            01 01CFB    40404040 A
            01 01CFC    40404040 A
     7793   01 01CFD    274040C4 A   REMESG32 TEXTC    '  DEV.         FAILING REC HEX         '
            01 01CFE    C5E54B40 A
            01 01CFF    40404040 A
            01 01D00    40404040 A
            01 01D01    C6C1C9D3 A
            01 01D02    C9D5C740 A
            01 01D03    D9C5C340 A
            01 01D04    C8C5E740 A
            01 01D05    40404040 A
            01 01D06    40404040 A
     7794   01 01D07    01404040 A   SPACE    TEXTC    ' '
     7795   01 01D08    15C5D6C6 A   TST22MSG TEXTC    'EOF COUNT: XXXX (DEC)'
            01 01D09    40C3D6E4 A
            01 01D0A    D5E37A40 A
            01 01D0B    E7E7E7E7 A
            01 01D0C    404DC4C5 A
            01 01D0D    C35D4040 A
     7796   01 01D0E    23E3C9D6 A   T2REMSG4 TEXTC    'TIO:   XXXX  XX  XX  XXXX, TDV:  XX'
            01 01D0F    7A404040 A
            01 01D10    E7E7E7E7 A
            01 01D11    4040E7E7 A
            01 01D12    4040E7E7 A
            01 01D13    4040E7E7 A
            01 01D14    E7E76B40 A
            01 01D15    E3C4E57A A
            01 01D16    4040E7E7 A
     7797   01 01D17    1BC3C4E6 A   IOCDMSGM TEXTC    'CDW:   XXXXXXXX    XXXXXXXX'
            01 01D18    7A404040 A
            01 01D19    E7E7E7E7 A
            01 01D1A    E7E7E7E7 A
            01 01D1B    40404040 A
            01 01D1C    E7E7E7E7 A
            01 01D1D    E7E7E7E7 A
     7798   01 01D1E    1CC4C5E5 A   TST41MG0 TEXTC    'DEVICE-END INTERRUPT TESTING'
            01 01D1F    C9C3C560 A
            01 01D20    C5D5C440 A
            01 01D21    C9D5E3C5 A
            01 01D22    D9D9E4D7 A
            01 01D23    E340E3C5 A
            01 01D24    E2E3C9D5 A
            01 01D25    C7404040 A
     7799   01 01D26    1DC3C8C1 A   TST41MG1 TEXTC    'CHANNEL-END INTERRUPT TESTING'
            01 01D27    D5D5C5D3 A
            01 01D28    60C5D5C4 A
            01 01D29    40C9D5E3 A
            01 01D2A    C5D9D9E4 A
            01 01D2B    D7E340E3 A
            01 01D2C    C5E2E3C9 A
            01 01D2D    D5C74040 A
     7800   01 01D2E    14C2C5C7 A   TST00MG0 TEXTC    'BEGIN RANDOM TESTING'
            01 01D2F    C9D540D9 A
            01 01D30    C1D5C4D6 A
            01 01D31    D440E3C5 A
            01 01D32    E2E3C9D5 A
            01 01D33    C7404040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  133
A    7802                            * ERROR DISPLAY FOR TST1,18/19

     7804   01 01D34    35F01D7D     ERRPNT1  STW,15   ERREXIT           STORE RETURN ADDR
     7805   01 01D35    22B00000 A            LI,11    0                 FETCH ZERO
     7806   01 01D36    226FFFF8 A            LI,6     -8
     7807   01 01D37    328C1D90              LW,8     :TALLYO+8,6       FETCH OBS. COUNT
     7808   01 01D38    69301D3B              BNEZ     %+3               BRANCH NOT EQUAL ZERO
     7809   01 01D39    65601D37              BIR,6    %-2               BRANCH INCREMENT REG. 6
     7810   01 01D3A    E8001D7D              B        *ERREXIT          EXIT - NO ERRORS

     7812   01 01D3B    226FFFF8 A            LI,6     -8                FETCH ZERO
     7813   01 01D3C    32CC1D88     ERRPNT2  LW,12    :TALLYE+8,6       FETCH EXP. COUNT
     7814   01 01D3D    68301D58              BEZ      ERRPNT5           BRANCH IF EQUAL ZERO
     7815   01 01D3E    38CC1D90              SW,12    :TALLYO+8,6       IF NOT EQUAL SUBTRACT OBS. COUNT
     7816   01 01D3F    21C02710 A            CI,12    10000             COMPARE IMMEDIATE
     7817   01 01D40    68301D48              BE       ERRPNT3A          BRANCH IF EQUAL
     7818   01 01D41    21C026AC A            CI,12    9900              COMPARE IMMEDIATE
     7819   01 01D42    68101D4B              BGE      ERRPNT3           BRANCH IF GREATER OR EQUAL
     7820   01 01D43    21C01388 A            CI,12    5000              COMPARE IMMEDIATE
     7821   01 01D44    68101D4E              BGE      ERRPNT4           BRANCH IF GREATER OR EQUAL

     7823   01 01D45    02200030 A   ERRPNT2A LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     7824   01 01D46    2A801DB1              LM,8     ERRNO6            LOAD MULTIPLE
     7825   01 01D47    68001D50              B        %+9               BRANCH
     7826   01 01D48    02200030 A   ERRPNT3A LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     7827   01 01D49    2A801DB4              LM,8     ERRNO7            FETCH MULTIPLE
     7828   01 01D4A    68001D50              B        %+6               BRANCH
     7829   01 01D4B    02200030 A   ERRPNT3  LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     7830   01 01D4C    2A801DAE              LM,8     ERRNO5            LOAD MUtTIPLE
     7831   01 01D4D    68001D50              B        %+3               BRANCH
     7832   01 01D4E    02200030 A   ERRPNT4  LCI      3                 LOAD CONDITION CONTROL IMMEDIATE
     7833   01 01D4F    2A801DAB              LM,8     ERRNO4            LOAD MULTIPLE
     7834   01 01D50    55821DA8              STH,8    ERRNO3+11,1       STORE HALF WORD INTO ERRNO3
     7835   01 01D51    02200020 A            LCI      2                 LOAD CONDITION CONTROL IMMEDIATE
     7836   01 01D52    2B901DA9              STM,9    ERRNO3+12         STORE MULTIPLE
     7837   01 01D53    EAF00217              BAL,15   *:DECC            CONVERSION SUBR.
     7838   01 01D54    35F01DA7              STW,15   ERRNO3+10         STORE THE RESULT INTO ERRNO3
     7839   01 01D55    EAF00217              BAL,15   *:DECC            CONVERSION SUBR.
     7840   01 01D56    75F61DA6              STB,15   ERRNO3+9,3        STORE THE RESULT INTO ERRNO3
     7841   01 01D57    68001D60              B        ERRPNT6           BRANCH TO ERRPNT6

     7843   01 01D58    32CC1D90     ERRPNT5  LW,12    :TALLYO+8,6       FETCH OBS. COUNT
     7844   01 01D59    21C00000 A            CI,12    0                 COMPARE IMMEDIATE
     7845   01 01D5A    68301D48              BE       ERRPNT3A          BRANCH IF EQUAL
     7846   01 01D5B    21C00064 A            CI,12    100               COMPARE IMMEDIATE
     7847   01 01D5C    68201D4B              BLE      ERRPNT3           BRANCH IF LESS OR EQUAL
     7848   01 01D5D    21C01388 A            CI,12    5000              COMPARE IMMEDIATE
     7849   01 01D5E    68201D4E              BLE      ERRPNT4           BRANCH IF LESS OR EQUAL
     7850   01 01D5F    68001D45              B        ERRPNT2A          BRANCH
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  134
A    7852   01 01D60    72C6000B A   ERRPNT6  LB,12    11,3              FETCH BYTE
     7853   01 01D61    EAF00217              BAL,15   *:DECC            CONVERSION SUBR.
     7854   01 01D62    75F41D9F              STB,15   ERRNO3+2,2        STORE THE RESULT INTO ERRNO3
     7855   01 01D63    32C01D7F              LW,12    TESTNO            FETCH TEST NO.
     7856   01 01D64    EAF00217              BAL,15   *:DECC            CONVERSION SUBR.
     7857   01 01D65    55F21D91              STH,15   ERRNO1+1,1        STORE THE RESULT INTO ERRNO1
     7858   01 01D66    32CC1D88              LW,12    :TALLYE+8,6       FETCH EXP. COUNT
     7859   01 01D67    EAF00217              BAL,15   *:DECC            CONVERSION SUBR.
     7860   01 01D68    35F01DA4              STW,15   ERRNO3+7          STORE THE RESULT INTO ERRNO3
     7861   01 01D69    EAF00217              BAL,15   *:DECC            CONVERSION SUBR.
     7862   01 01D6A    75F61DA3              STB,15   ERRNO3+6,3        STORE THE RESULT INTO ERRNO3
     7863   01 01D6B    216FFFF8 A            CI,6     -8                COMPARE IMMEDIATE
     7864   01 01D6C    69301D78              BNE      LINE3
     7865   01 01D6D    EAF0021C              BAL,15   *:PRINT           GO TO PRINT SUBR.
     7866   01 01D6E    00001D90              DATA     ERRNO1
     7867   01 01D6F    EAF0021C              BAL,15   *:PRINT           GO TO PRINT SUBR.
     7868   01 01D70    00000000 A   :TALLYMA DATA     0

     7870   01 01D71    32C01D7E              LW,12    :TALLYP           FETCH TALLYP
     7871   01 01D72    EAF00218              BAL,15   *:HEXC            CONVERSION SUBR.
     7872   01 01D73    35F01D9C              STW,15   ERRNO2+6          STORE THE RESULT
     7873   01 01D74    EAF00218              BAL,15   *:HEXC            CONVERSION SUBR.
     7874   01 01D75    35F01D9B              STW,15   ERRNO2+5          STORE THE RESULT
     7875   01 01D76    EAF0021C              BAL,15   *:PRINT           GO TO PRINT SURB.
     7876   01 01D77    00001D96              DATA     ERRNO2
     7877   01 01D78    EAF0021C     LINE3    BAL,15   *:PRINT           GO TO PRINT SUBR.
     7878   01 01D79    00001D9D              DATA     ERRNO3
     7879   01 01D7A    3310000B A   ERRPNT7  MTW,1    11                ADD 1 TO REG. 11
     7880   01 01D7B    65601D3C              BIR,6    ERRPNT2
     7881   01 01D7C    E8021D7D              B        *ERREXIT,1        ERROR EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  135
A    7883   01 01D7D    00000000 A   ERREXIT  DATA     0
     7884   01 01D7E    00000000 A   :TALLYP  DATA     0
     7885   01 01D7F    00000000 A   TESTNO   DATA     0
     7886   01 01D80                 :TALLYE  RES      8
     7887   01 01D88                 :TALLYO  RES      8

     7889   01 01D90    15E3E2E3 A   ERRNO1   TEXTC    'TST1,XX FAULT SUMMARY'
            01 01D91    F16BE7E7 A
            01 01D92    40C6C1E4 A
            01 01D93    D3E340E2 A
            01 01D94    E4D4D4C1 A
            01 01D95    D9E84040 A
     7890   01 01D96    1BC3E4D9 A   ERRNO2   TEXTC    'CURRENT PATTERN:   XXXXXXXX'
            01 01D97    D9C5D5E3 A
            01 01D98    40D7C1E3 A
            01 01D99    E3C5D9D5 A
            01 01D9A    7A404040 A
            01 01D9B    E7E7E7E7 A
            01 01D9C    E7E7E7E7 A
     7891                            ERRNO3   TEXTC     ;
     7892   01 01D9D    37C4C1E3 A    'DATA BIT N TOTAL BITS EXP XXXXX   OBS XXXXX            '
            01 01D9E    C140C2C9 A
            01 01D9F    E340D540 A
            01 01DA0    E3D6E3C1 A
            01 01DA1    D340C2C9 A
            01 01DA2    E3E240C5 A
            01 01DA3    E7D740E7 A
            01 01DA4    E7E7E7E7 A
            01 01DA5    404040D6 A
            01 01DA6    C2E240E7 A
            01 01DA7    E7E7E7E7 A
            01 01DA8    40404040 A
            01 01DA9    40404040 A
            01 01DAA    40404040 A
     7893   01 01DAB    4040D4C1 A   ERRNO4   TEXT     '  MARGINAL  '
            01 01DAC    D9C7C9D5 A
            01 01DAD    C1D34040 A
     7894   01 01DAE    4040C9D5 A   ERRNO5   TEXT     '  INTERMIT  '
            01 01DAF    E3C5D9D4 A
            01 01DB0    C9E34040 A
     7895   01 01DB1    4040E3D9 A   ERRNO6   TEXT     '  TRACK BAD '
            01 01DB2    C1C3D240 A
            01 01DB3    C2C1C440 A
     7896   01 01DB4    4040E3D9 A   ERRNO7   TEXT     '  TRACK  OK '
            01 01DB5    C1C3D240 A
            01 01DB6    40D6D240 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  136
A    7898                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     7899                            *
     7900                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     7901                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     7902                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     7903                            *
     7904                            *       INPUT PARAMETERS:
     7905                            *
     7906                            *         REG 0 -DA(IOCD)-FOR SIO ONLY
     7907                            *         REG 14-STATUS MASK
     7908                            *                  BITS  0-15: DEVICE STATUS MASK
     7909                            *                  BITS 16,17: CONDITION CODES 1,2 MASK
     7910                            *                  BITS 18-23: ZEROS
     7911                            *                  BITS 24-31: PRINT INHIBIT (INHIBIT IF <>0)
     7912                            *
     7913                            *                   (NOTE: ERROR CONDITION EXISTS IF
     7914                            *                     A MASK BIT LOGICALLY AND'D WITH
     7915                            *                     A CORRESPONDING DEVICE STATUS OR
     7916                            *                     CC1,2 BIT EQUALS 1)
     7917                            *
     7918                            *       OUTPUT PARAMETERS:
     7919                            *
     7920                            *         NORMAL EXIT-RETURN ADDRESS
     7921                            *         ERROR EXIT -RETURN ADDRESS+1
     7922                            *         REG 12     -COMMAND ADDRESS
     7923                            *         REG 13     -DEVICE STATUS, BYTE COUNT
     7924                            *         :CC12      -RETURNED CONDITION CODES 1,2 (BIT POSITIONS 30,31)
     7925                            *
     7926                            *          ISSUE SIO
     7927                            *
     7928   01 01DB7    CCC01B8C     :SIO     SIO,R12  *:DEVADDR         ISSUE SIO
     7929   01 01DB8    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     7930   01 01DB9    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     7931   01 01DBA    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     7932   01 01DBB    4BB0229C              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     7933   01 01DBC    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     7934   01 01DBD    22400000 A            LI,R4    0
     7935   01 01DBE    35401E32              STW,R4   :TYPE             ISSUE TYPE=0
     7936   01 01DBF    68001DE4              B        :STATEST          REPORT SIO STATUS ERROR
     7937                            *
     7938                            *          ISSUE TIO
     7939                            *
     7940   01 01DC0    CDC01B8C     :TIO     TIO,R12  *:DEVADDR         ISSUE TIO
     7941   01 01DC1    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     7942   01 01DC2    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     7943   01 01DC3    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     7944   01 01DC4    4BB0229C              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     7945   01 01DC5    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     7946   01 01DC6    22400001 A            LI,R4    1
     7947   01 01DC7    35401E32              STW,R4   :TYPE             ISSUE TYPE=1
     7948   01 01DC8    68001DE4              B        :STATEST          REPORT TIO STATUS ERROR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  137
A    7950                            *          ISSUE HIO
     7951                            *
     7952   01 01DC9    CFC01B8C     :HIO     HIO,R12  *:DEVADDR         ISSUE HIO
     7953   01 01DCA    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     7954   01 01DCB    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     7955   01 01DCC    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     7956   01 01DCD    4BB0229C              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     7957   01 01DCE    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     7958   01 01DCF    22400002 A            LI,R4    2
     7959   01 01DD0    35401E32              STW,R4   :TYPE             ISSUE TYPE=2
     7960   01 01DD1    68001DE4              B        :STATEST          REPORT HIO STATUS ERROR
     7961                            *
     7962                            *          ISSUE TDV
     7963                            *
     7964   01 01DD2    CEC01B8C     :TDV     TDV,R12  *:DEVADDR         ISSUE TDV
     7965   01 01DD3    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     7966   01 01DD4    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     7967   01 01DD5    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     7968   01 01DD6    4BB0229C              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     7969   01 01DD7    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     7970   01 01DD8    22400003 A            LI,R4    3
     7971   01 01DD9    35401E32              STW,R4   :TYPE             ISSUE TYPE=3
     7972   01 01DDA    68001DE4              B        :STATEST          REPORT TDV STATUS ERROR
     7973                            *
     7974                            *          ISSUE AIO
     7975                            *
     7976   01 01DDB    6ED00000 A   :AIO     AIO,R13  0                 ISSUE AIO
     7977   01 01DDC    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     7978   01 01DDD    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     7979   01 01DDE    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     7980   01 01DDF    4BB0229C              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     7981   01 01DE0    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     7982   01 01DE1    22400004 A            LI,R4    4
     7983   01 01DE2    35401E32              STW,R4   :TYPE             ISSUE TYPE=4
     7984   01 01DE3    68001DE4              B        :STATEST          REPORT AIO STATUS ERROR
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  138
A    7986                            * PROCESS CC, STATUS ERRORS
     7987   01 01DE4    74000004 A   :STATEST STCF     R4                COND CODES 1-4, FLOAT CTRL
     7988   01 01DE5    72400004 A            LB,R4    R4                MOVE CC1,2 TO BIT POSITIONS 30,31
     7989   01 01DE6    2540007A A            SLS,R4   -6
     7990   01 01DE7    35401E31              STW,R4   :CC12             SAVE CC1,2
     7991   01 01DE8    3310000F A            MTW,1    R15               RETURN ADDRESS +1
     7992   01 01DE9    22400003 A            LI,R4    3                 INDEX=3
     7993   01 01DEA    7248000E A            LB,R4    R14,R4            STATUS MASK PRINT INHIBIT
     7994   01 01DEB    E920000F A            BCS,2    *R15              PRINT INHIBIT <>0 -ERROR EXIT
     7995   01 01DEC    02200000 A            LCI      0
     7996   01 01DED    2B001E33              STM,R0   :REGSAVE          SAVE ALL REGISTERS
     7997   01 01DEE    22400002 A            LI,R4    2                 INDEX=2
     7998   01 01DEF    7248000B A            LB,R4    R11,R4            MASKED CC1,2
     7999   01 01DF0    68301E15              BCR,3    :STATERR          NO CC ERROR-GO TO STATUS ERROR TEST
     8000   01 01DF1    32401E31              LW,R4    :CC12             CC1,2
     8001   01 01DF2    21400003 A            CI,R4    3
     8002   01 01DF3    68301E07              BCR,3    :CCERR3           CC1,2=11
     8003   01 01DF4    21400002 A            CI,R4    2
     8004   01 01DF5    68301E01              BCR,3    :CCERR2           CC1,2=10

     8006                            * CC1,2=01
     8007   01 01DF6    32401E32     :CCERR1  LW,R4    :TYPE             ISSUE TYPE
     8008   01 01DF7    21400003 A            CI,R4    3
     8009   01 01DF8    69301DFC              BCS,3    %+4               TYPE NOT 3
     8010   01 01DF9    32C01E31              LW,R12   :CC12             COND CODES 1,2
     8011   01 01DFA    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     8012   01 01DFB    55F01E6C              STH,R15  :CCERM4+9         ENTER INTO TDV MSG
     8013   01 01DFC    32481E43              LW,R4    :ERRADR1,R4       ERROR MSG ADDRESS
     8014   01 01DFD    35401DFF              STW,R4   %+2
     8015   01 01DFE    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     8016   01 01DFF    00000000 A            DATA     0
     8017   01 01E00    68001E17              B        :STATFRC          GO TO STATUS ERROR

     8019                            * CC1,2=10
     8020   01 01E01    32401E32     :CCERR2  LW,R4    :TYPE             ISSUE TYPE
     8021   01 01E02    32481E48              LW,R4    :ERRADR2,R4       ERROR MSG ADDRESS
     8022   01 01E03    35401E05              STW,R4   %+2
     8023   01 01E04    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     8024   01 01E05    00000000 A            DATA     0
     8025   01 01E06    68001E12              B        :CCERR4
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  139
A    8027                            * CC1,2=11
     8028   01 01E07    32501E32     :CCERR3  LW,R5    :TYPE             ISSUE TYPE
     8029   01 01E08    324A1E4D              LW,R4    :ERRADR3,R5       ERROR MSG ADDRESS
     8030   01 01E09    21500004 A            CI,R5    4
     8031   01 01E0A    68301E0F              BCR,3    %+5               ISSUE TYPE 4-NO DEV ADDR REQ'D
     8032   01 01E0B    32C01B8C              LW,R12   :DEVADDR          DEVICE ADDRESS
     8033   01 01E0C    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     8034   01 01E0D    22500004 A            LI,R5    4                 INDEX=4
     8035   01 01E0E    B5FA0004 A            STW,R15  *R4,R5            DEV ADDR TO ERROR MSG
     8036   01 01E0F    35401E11              STW,R4   %+2
     8037   01 01E10    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     8038   01 01E11    00000000 A            DATA     0

     8040   01 01E12    02200000 A   :CCERR4  LCI      0
     8041   01 01E13    2A001E33              LM,R0    :REGSAVE          RESTORE ALL REGISTERS
     8042   01 01E14    E800000F A            B        *R15              ERROR EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  140
A    8044                            * TEST MASKED STATUS
     8045   01 01E15    5240000B A   :STATERR LH,R4    R11               MASKED STATUS
     8046   01 01E16    68301E12              BEZ      :CCERR4           NO STATUS ERROR-ERROR EXIT
     8047   01 01E17    EAF0021C     :STATFRC BAL,R15  *:PRINT           PRINT STATUS ERROR HEADER
     8048   01 01E18    00001EA0              DATA     :STATEM1
     8049   01 01E19    32401E32              LW,R4    :TYPE             ISSUE TYPE
     8050   01 01E1A    32481EB7              LW,R4    :STATTYP,R4       ENTER TYPE INTO STATUS ERROR MSG
     8051   01 01E1B    72501EAC              LB,R5    :STATEM2          SAVE ERROR MSG BYTE COUNT
     8052   01 01E1C    35401EAC              STW,R4   :STATEM2
     8053   01 01E1D    75501EAC              STB,R5   :STATEM2          RESTORE BYTE COUNT
     8054   01 01E1E    22500012 A            LI,R5    18                MSG BYTE INDEX=18
     8055   01 01E1F    52C0000D A            LH,R12   R13               DEV STATUS
     8056   01 01E20    22400004 A            LI,R4    4                 MINOR INDEX=4
     8057   01 01E21    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     8058   01 01E22    75FA1EAF              STB,R15  :STATEM2+3,R5     STATUS BIT TO ERROR MSG
     8059   01 01E23    33F00005 A            MTW,-1   R5                BYTE INDEX-1
     8060   01 01E24    25F00078 A            SLS,R15  -8                ADJUST CONVERTED STATUS BITS
     8061   01 01E25    64401E22              BDR,R4   %-3               MINOR INDEX-1 NOT ZERO
     8062   01 01E26    64501E20              BDR,R5   %-6               BYTE INDEX-1 NOT ZERO
     8063   01 01E27    32C01E31              LW,R12   :CC12             COND CODES 1,2
     8064   01 01E28    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     8065   01 01E29    22400001 A            LI,R4    1                 INDEX=1
     8066   01 01E2A    55F81EB4              STH,R15  :STATEM2+8,R4     COND CODES 1,2 TO ERROR MSG
     8067   01 01E2B    32C01B8C              LW,R12   :DEVADDR          DEVICE ADDRESS
     8068   01 01E2C    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     8069   01 01E2D    35F01EB6              STW,R15  :STATEM2+10       DEV ADDR TO ERROR MSG
     8070   01 01E2E    EAF0021C              BAL,R15  *:PRINT           PRINT STATUS MSG
     8071   01 01E2F    00001EAC              DATA     :STATEM2
     8072   01 01E30    68001E12              B        :CCERR4           GO TO ERROR EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  141
A    8074   01 01E31    00000000 A   :CC12    DATA     0                 CC1,2
     8075   01 01E32    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     8076   01 01E33                 :REGSAVE RES      16                REGISTERS 0-15
     8077   01 01E43    00001E52     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     8078   01 01E44    00001E57              DATA     :CCERM2
     8079   01 01E45    00001E5D              DATA     :CCERM3
     8080   01 01E46    00001E63              DATA     :CCERM4
     8081   01 01E47    00001E6D              DATA     :CCERM5
     8082   01 01E48    00001E72     :ERRADR2 DATA     :CCERM6
     8083   01 01E49    00001E76              DATA     :CCERM7
     8084   01 01E4A    00001E7A              DATA     :CCERM8
     8085   01 01E4B    00001E7E              DATA     :CCERM9
     8086   01 01E4C    00001E82              DATA     :CCERMA
     8087   01 01E4D    00001E86     :ERRADR3 DATA     :CCERMB
     8088   01 01E4E    00001E8B              DATA     :CCERMC
     8089   01 01E4F    00001E90              DATA     :CCERMD
     8090   01 01E50    00001E95              DATA     :CCERME
     8091   01 01E51    00001E9A              DATA     :CCERMF

     8093   01 01E52    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            01 01E53    60D5D6E3 A
            01 01E54    40C1C3C3 A
            01 01E55    C5D7E3C5 A
            01 01E56    C4404040 A
     8094   01 01E57    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            01 01E58    60E2C9D6 A
            01 01E59    40D5D6E3 A
            01 01E5A    40D7D6E2 A
            01 01E5B    E2C9C2D3 A
            01 01E5C    C5404040 A
     8095   01 01E5D    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            01 01E5E    60C4C5E5 A
            01 01E5F    40C2E4E2 A
            01 01E60    E840C1E3 A
            01 01E61    40C8C1D3 A
            01 01E62    E3404040 A
     8096   01 01E63    25E3C4E5 A   :CCERM4  TEXTC    'TDV-DEV DEPENDENT CONDITION CC1,2=   '
            01 01E64    60C4C5E5 A
            01 01E65    40C4C5D7 A
            01 01E66    C5D5C4C5 A
            01 01E67    D5E340C3 A
            01 01E68    D6D5C4C9 A
            01 01E69    E3C9D6D5 A
            01 01E6A    40C3C3F1 A
            01 01E6B    6BF27E40 A
            01 01E6C    40404040 A
     8097   01 01E6D    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            01 01E6E    60E4C540 A
            01 01E6F    C9D5E3C5 A
            01 01E70    D9D9E4D7 A
            01 01E71    E3404040 A
     8098   01 01E72    0DE2C9D6 A   :CCERM6  TEXTC    'SIO-BUSY SIOP'
            01 01E73    60C2E4E2 A
            01 01E74    E840E2C9 A
            01 01E75    D6D74040 A
     8099   01 01E76    0DE3C9D6 A   :CCERM7  TEXTC    'TIO-BUSY SIOP'
            01 01E77    60C2E4E2 A
            01 01E78    E840E2C9 A
            01 01E79    D6D74040 A
     8100   01 01E7A    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            01 01E7B    60C3C3F1 A
            01 01E7C    6BF27EF1 A
            01 01E7D    F0404040 A
     8101   01 01E7E    0DE3C4E5 A   :CCERM9  TEXTC    'TDV-BUSY SIOP'
            01 01E7F    60C2E4E2 A
            01 01E80    E840E2C9 A
            01 01E81    D6D74040 A
     8102   01 01E82    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            01 01E83    60C3C3F1 A
            01 01E84    6BF27EF1 A
            01 01E85    F0404040 A
     8103   01 01E86    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            01 01E87    60D5D640 A
            01 01E88    C1D960C4 A
            01 01E89    C5E54040 A
            01 01E8A    E7E7E7E7 A
     8104   01 01E8B    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            01 01E8C    60D5D640 A
            01 01E8D    C1D960C4 A
            01 01E8E    C5E54040 A
            01 01E8F    E7E7E7E7 A
     8105   01 01E90    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            01 01E91    60D5D640 A
            01 01E92    C1D960C4 A
            01 01E93    C5E54040 A
            01 01E94    E7E7E7E7 A
     8106   01 01E95    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            01 01E96    60D5D640 A
            01 01E97    C1D960C4 A
            01 01E98    C5E54040 A
            01 01E99    E7E7E7E7 A
     8107   01 01E9A    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            01 01E9B    60D5D640 A
            01 01E9C    C9D5E3C5 A
            01 01E9D    D9D9E4D7 A
            01 01E9E    E340D9C5 A
            01 01E9F    C3D6C740 A
     8108   01 01EA0    2D404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR'
            01 01EA1    40404040 A
            01 01EA2    40404040 A
            01 01EA3    F0F1F2F3 A
            01 01EA4    40F4F5F6 A
            01 01EA5    F740F8F9 A
            01 01EA6    F0F140F2 A
            01 01EA7    F3F4F540 A
            01 01EA8    C3C3F16B A
            01 01EA9    F240C4C5 A
            01 01EAA    E540C1C4 A
            01 01EAB    C4D94040 A
     8109   01 01EAC    2B404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX    XXXX'
            01 01EAD    40E2E3C1 A
            01 01EAE    E3E4E240 A
            01 01EAF    E7E7E7E7 A
            01 01EB0    40E7E7E7 A
            01 01EB1    E740E7E7 A
            01 01EB2    E7E740E7 A
            01 01EB3    E7E7E740 A
            01 01EB4    4040E7E7 A
            01 01EB5    40404040 A
            01 01EB6    E7E7E7E7 A
     8110   01 01EB7    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            01 01EB8    40E3C9D6 A
            01 01EB9    40C8C9D6 A
            01 01EBA    40E3C4E5 A
            01 01EBB    40C1C9D6 A
     8111   01 01EBC    2BD9C5C1 A   T1ST18M  TEXTC    'READ FORWARD - 100 RECORDS (100 BYTES EACH)'
            01 01EBD    C440C6D6 A
            01 01EBE    D9E6C1D9 A
            01 01EBF    C4406040 A
            01 01EC0    F1F0F040 A
            01 01EC1    D9C5C3D6 A
            01 01EC2    D9C4E240 A
            01 01EC3    4DF1F0F0 A
            01 01EC4    40C2E8E3 A
            01 01EC5    C5E240C5 A
            01 01EC6    C1C3C85D A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  142
A    8113                            *               *** IO EXECUTE ***
     8114                            *
     8115                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     8116                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     8117                            *
     8118                            *       INPUT PARAMETERS:
     8119                            *
     8120                            *         REG 0   -DA(IOCD)
     8121                            *         REG 15  -RETURN ADDRESS
     8122                            *         :DEVADDR-DEVICE ADDRESS
     8123                            *
     8124                            *       OUTPUT PARAMETERS:
     8125                            *
     8126                            *         REG 12-SIO COMMAND ADDRESS
     8127                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     8128                            *
     8129                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     8130                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     8131                            *                      MANUAL CONDITION IS DETECTED.
     8132                            *
     8133   01 01EC7    35401EEA     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     8134   01 01EC8    35B01EEB              STW,R11  :IOSAVE+1
     8135   01 01EC9    15E01EEC              STD,R14  :IOSAVE+2
     8136   01 01ECA    35002244              STW,R0   :SAVCOM1          SAVE COMMAND ADDRESS

     8138   01 01ECB    32E02297     :IOEXEC1 LW,R14   =X'E600C000'      STATUS MASK
     8139   01 01ECC    6AF01DC0              BAL,R15  :TIO              ISSUE TIO
     8140   01 01ECD    68001ECF              B        %+2
     8141   01 01ECE    68001ED8              B        :IOERR1           TIO STATUS ERROR

     8143   01 01ECF    4BD02271              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     8144   01 01ED0    68301EE2              BCR,3    :IOERR2           DEVICE MANUAL ERROR

     8146   01 01ED1    6AF01DB7              BAL,R15  :SIO              ISSUE SIO
     8147   01 01ED2    68001ED4              B        %+2
     8148   01 01ED3    68001ECB              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO

     8150   01 01ED4    32401EEA              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     8151   01 01ED5    32B01EEB              LW,R11   :IOSAVE+1
     8152   01 01ED6    12E01EEC              LD,R14   :IOSAVE+2
     8153   01 01ED7    E800000F A            B        *R15              EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  143
A    8155                            * TIO STATUS ERROR
     8156   01 01ED8    32E0229D     :IOERR1  LW,R14   =X'80004000'      STATUS MASK
     8157   01 01ED9    6AF01DC9              BAL,R15  :HIO              ISSUE HIO
     8158   01 01EDA    68001EDC              B        %+2
     8159   01 01EDB    68001ECB              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO

     8161   01 01EDC    32E02297              LW,R14   =X'E600C000'      STATUS MASK
     8162   01 01EDD    6AF01DC0              BAL,R15  :TIO              ISSUE TIO
     8163   01 01EDE    68001ECB              B        :IOEXEC1          LOOP TO ISSUE TIO

     8165                            * ENTER WAIT STATE
     8166   01 01EDF    EAF0022B     :IOERR1A BAL,R15  *:WAIT            'CLEAR WAIT TO CONTINUE'
     8167   01 01EE0    00001EEE              DATA     :IOERM1
     8168   01 01EE1    68001ECB              B        :IOEXEC1          LOOP TO ISSUE TIO
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  144
A    8170                            * DEVICE MANUAL ERROR
     8171   01 01EE2    32C01B8C     :IOERR2  LW,R12   :DEVADDR          FETCH DEVICE ADDRESS
     8172   01 01EE3    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEX AND
     8173   01 01EE4    55F01EF5              STH,15   :IOERM2+2         STORE IN MANUAL MESSAGE
     8174   01 01EE5    25F00070 A            SLS,15   -16
     8175   01 01EE6    55F21EF4              STH,15   :IOERM2+1,1
     8176   01 01EE7    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     8177   01 01EE8    00001EF3              DATA     :IOERM2
     8178   01 01EE9    68001EDF              B        :IOERR1A          GO TO WAIT

     8180                                     BOUND    8
     8181   01 01EEA                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15

     8183   01 01EEE    124DC6D9 A   :IOERM1  TEXTC    '(FROM I/O EXECUTE)'
            01 01EEF    D6D440C9 A
            01 01EF0    61D640C5 A
            01 01EF1    E7C5C3E4 A
            01 01EF2    E3C55D40 A
     8184   01 01EF3    11C4C5E5 A   :IOERM2  TEXTC    'DEV  XXXX  MANUAL'
            01 01EF4    4040E7E7 A
            01 01EF5    E7E74040 A
            01 01EF6    D4C1D5E4 A
            01 01EF7    C1D34040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  145
A    8186                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
     8187                            *
     8188                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
     8189                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
     8190                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
     8191                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
     8192                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
     8193                            *
     8194                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
     8195                            *
     8196                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
     8197                            *                 FOUND IN REGISTER-14.
     8198                            *
     8199                            *        BAL,15   :RANDOMX
     8200                            *
     8201                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
     8202                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
     8203                            *
     8204                            *        LW,14    :SEED             SEED IN REGISTER-14.
     8205                            *        BAL,15   :RANDOM
     8206                            *
     8207                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
     8208                            *
     8209                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
     8210                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
     8211                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
     8212                            *        BAL,15   :RANDOMY

     8214   01 01EF8    35C01F05     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
     8215   01 01EF9    35D01F06              STW,13   :M2               SAVE PARAMETERS

     8217   01 01EFA    35E01F07     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY

     8219   01 01EFB    33101F05     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
     8220   01 01EFC    68301EFE              BCR,3    %+2               TEST, M1 + 1 = 0
     8221   01 01EFD    33F01F06              MTW,-1   :M2               NO, M2 = M2 - 1
     8222   01 01EFE    32E01F07              LW,14    :SEED
     8223   01 01EFF    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
     8224   01 01F00    30E01F08              AW,14    :K                ADD CONSTANT :K
     8225   01 01F01    48E01F05              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     8226   01 01F02    48E01F06              EOR,14   :M2               M(SEED) (+) M1 (+) M2
     8227   01 01F03    35E01F07              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
     8228   01 01F04    E800000F A            B        *15

     8230   01 01F05    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
     8231   01 01F06    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
     8232   01 01F07    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
     8233   01 01F08    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  146
A    8235                            *                 *** CLEAR BUFFER ***
     8236                            *
     8237                            * THE CLEAR BUFFER SUBROUTINE CLEARS A SPECIFIED BUFFER AREA.
     8238                            *  BUFFER SIZE SPECIFIED IN NUMBER OF WORDS.
     8239                            *
     8240                            *       INPUT PARAMETERS:
     8241                            *
     8242                            *           REG 15  -RETURN ADDRESS
     8243                            *           :CLRADDR-WA(BUFFER)
     8244                            *           :CLRSIZE-BUFFER WORD SIZE

     8246   01 01F09    15401F14     :CLEAR   STD,R4   :CLRSAVE          SAVE REGISTERS 4-6
     8247   01 01F0A    35601F16              STW,R6   :CLRSAVE+2
     8248   01 01F0B    32501F17              LW,R5    :CLRADDR          BUFFER ADDRESS
     8249   01 01F0C    30501F18              AW,R5    :CLRSIZE          BUFFER ADDR + BUFFER SIZE
     8250   01 01F0D    3A401F18              LCW,R4   :CLRSIZE          -(BUFFER SIZE)
     8251   01 01F0E    22600000 A            LI,R6    0
     8252   01 01F0F    B5680005 A            STW,R6   *R5,R4            0 TO BUFFER
     8253   01 01F10    65401F0F              BIR,R4   %-1               COUNT NOT 0
     8254   01 01F11    12401F14              LD,R4    :CLRSAVE          RESTORE REGISTERS 4-6
     8255   01 01F12    32601F16              LW,R6    :CLRSAVE+2
     8256   01 01F13    E800000F A            B        *R15              EXIT

     8258                                     BOUND    8
     8259   01 01F14                 :CLRSAVE RES      3                 REGISTERS 4-6
     8260   01 01F17    00000000 A   :CLRADDR DATA     0                 BUFFER ADDRESS
     8261   01 01F18    00000000 A   :CLRSIZE DATA     0                 BUFFER SIZE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  147
A    8263                            *                *** PATTERN SPREAD ***
     8264                            *
     8265                            * SPREADS A WORD-ORIENTED PATTERN THROUGHOUT A BUFFER:
     8266                            *
     8267                            *             TYPE 0 - SPREAD WORD PATTERN
     8268                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
     8269                            *             TYPE 2 - SPREAD RANDOM PATTERN
     8270                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
     8271                            *             TYPE 4 - SPREAD 3-WORD PATTERN
     8272                            *
     8273                            *       INPUT PARAMETERS:
     8274                            *
     8275                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
     8276                            *                     WORD 1 - TYPE (0-4)
     8277                            *                     WORD 2 - PATTERN (TYPE 0,1)
     8278                            *                              RANDOM GENERATOR SEED (TYPE 2)
     8279                            *                              WA(PATTERN) (TYPE 3,4)
     8280                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
     8281                            *                              INCREMENT (TYPE 1)
     8282                            *
     8283                            *           :PATWC  - PATTERN WORD COUNT
     8284                            *           :PATBFR - WA(BUFFER)

     8286   01 01F19    02200050 A   :PATTERN LCI      5
     8287   01 01F1A    2B601F5D              STM,R6   :PATSAVE          SAVE REGISTERS 6-10

     8289   01 01F1B    32701F58              LW,R7    :PATID            PATTERN ID-TYPE
     8290   01 01F1C    680E1F1D              B        %+1,R7            GO TO SPECIFIED SPREAD TYPE
     8291   01 01F1D    68001F22              B        :PAT0
     8292   01 01F1E    68001F2B              B        :PAT1
     8293   01 01F1F    68001F33              B        :PAT2
     8294   01 01F20    68001F44              B        :PAT3
     8295   01 01F21    68001F4B              B        :PAT4
     8296                            * SPREAD FIXED PATTERN
     8297   01 01F22    32801F5B     :PAT0    LW,R8    :PATWC            WORD COUNT
     8298   01 01F23    30801F5C              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8299   01 01F24    3A701F5B              LCW,R7   :PATWC            -(WORD COUNT)
     8300   01 01F25    32901F59              LW,R9    :PATID+1          PATTERN
     8301   01 01F26    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8302   01 01F27    65701F26              BIR,R7   %-1               WORD COUNT NOT 0

     8304   01 01F28    02200050 A   :PATEXIT LCI      5
     8305   01 01F29    2A601F5D              LM,R6    :PATSAVE          RESTORE REGISTERS 6-10
     8306   01 01F2A    E800000F A            B        *R15              EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  148
A    8308                            * SPREAD AND INCREMENT FIXED PATTERN
     8309   01 01F2B    32801F5B     :PAT1    LW,R8    :PATWC            WORD COUNT
     8310   01 01F2C    30801F5C              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8311   01 01F2D    3A701F5B              LCW,R7   :PATWC            -(WORD COUNT)
     8312   01 01F2E    32901F59              LW,R9    :PATID+1          PATTERN
     8313   01 01F2F    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8314   01 01F30    30901F5A              AW,R9    :PATID+2          INCR PATTERN
     8315   01 01F31    65701F2F              BIR,R7   %-2               WORD COUNT NOT 0
     8316   01 01F32    68001F28              B        :PATEXIT          GO TO EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  149
A    8318                            * SPREAD RANDOM PATTERN
     8319   01 01F33    02200050 A   :PAT2    LCI      5
     8320   01 01F34    2BB01F62              STM,R11  :PATSAVE+5        SAVE REGISTERS 11-15
     8321   01 01F35    32801F5B              LW,R8    :PATWC            WORD COUNT
     8322   01 01F36    30801F5C              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8323   01 01F37    3A701F5B              LCW,R7   :PATWC            -(WORD COUNT)
     8324   01 01F38    32E01F59              LW,R14   :PATID+1          RANDOM NUM GEN SEED
     8325   01 01F39    B5EE0008 A            STW,R14  *R8,R7            SEED TO PATTERN FIRST WORD
     8326   01 01F3A    65701F3C              BIR,R7   %+2               WORD COUNT NOT 0
     8327   01 01F3B    68001F41              B        :PAT2A            GO TO EXIT
     8328   01 01F3C    32C02260              LW,R12   =314159265        ESTABLISH :M1
     8329   01 01F3D    32D02261              LW,R13   =271828183        ESTABLISH :M2
     8330   01 01F3E    6AF01EF8              BAL,R15  :RANDOMY          RANDOM NUMBER GENERATOR
     8331   01 01F3F    B5EE0008 A            STW,R14  *R8,R7            ENTER NUMBER
     8332   01 01F40    65701F3E              BIR,R7   %-2               WORD COUNT NOT 0
     8333   01 01F41    02200050 A   :PAT2A   LCI      5
     8334   01 01F42    2AB01F62              LM,R11   :PATSAVE+5        RESTORE REGISTERS 11-15
     8335   01 01F43    68001F28              B        :PATEXIT          GO TO EXIT

     8337                            * SPREAD ADDRESS-SPECIFIED PATTERN
     8338   01 01F44    32801F5B     :PAT3    LW,R8    :PATWC            WORD COUNT
     8339   01 01F45    30801F5C              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8340   01 01F46    3A701F5B              LCW,R7   :PATWC            -(WORD COUNT)
     8341   01 01F47    B2901F59              LW,R9    *:PATID+1         PATTERN
     8342   01 01F48    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8343   01 01F49    65701F48              BIR,R7   %-1               WRD CNT NOT 0
     8344   01 01F4A    68001F28              B        :PATEXIT          GO TO EXIT

     8346                            * SPREAD 3-WORD, ADDR-SPECIFIED PATTERN
     8347   01 01F4B    32801F5B     :PAT4    LW,R8    :PATWC            WORD COUNT
     8348   01 01F4C    30801F5C              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8349   01 01F4D    3A701F5B              LCW,R7   :PATWC            -(WORD COUNT)
     8350   01 01F4E    32A01F59              LW,R10   :PATID+1          PATTERN ADDR
     8351   01 01F4F    20A00003 A            AI,R10   3                 PATTERN ADDRESS +3
     8352   01 01F50    226FFFFD A            LI,R6    -3
     8353   01 01F51    B29C000A A            LW,R9    *R10,R6           PATTERN
     8354   01 01F52    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8355   01 01F53    33100007 A            MTW,1    R7                -(WORD COUNT) +1
     8356   01 01F54    68101F28              BCR,1    :PATEXIT          WORD COUNT = 0, EXIT
     8357   01 01F55    65601F51              BIR,R6   %-4               3 WORDS NOT ENTERED
     8358   01 01F56    68001F50              B        %-6

     8360                                     BOUND    8
     8361   01 01F58    00000000 A   :PATID   DATA     0,0,0             PATTERN IDENTIFICATION
            01 01F59    00000000 A
            01 01F5A    00000000 A
     8362   01 01F5B    00000000 A   :PATWC   DATA     0                 WORD COUNT
     8363   01 01F5C    00000000 A   :PATBFR  DATA     0                 BUFFER ADDRESS
     8364   01 01F5D                 :PATSAVE RES      10                REGISTERS 6-15
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  150
A    8366                            *                   *** C O M P A R E ***
     8367                            *
     8368                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     8369                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     8370                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     8371                            *    UNEQUAL COMPARES SENSED.
     8372                            *
     8373                            *       INPUT PARAMETERS:
     8374                            *
     8375                            *           REG 15  -RETURN ADDRESS
     8376                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     8377                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     8378                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     8379                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     8380                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
     8381                            *
     8382                            *       OUTPUT PARAMETERS:
     8383                            *
     8384                            *           NORMAL EXIT-RETURN ADDRESS
     8385                            *           ERROR EXIT -RETURN ADDRESS +1
     8386                            *           :COMERRT   -COUNT OF COMPARE ERRORS

     8388         01 01F67           :COMPXRE EQU      %                 DISPLAY ERROR BLOCK NUMBER
     8389   01 01F67    33101FD3              MTW,1    :COMBLK

     8391         01 01F68           :COMPARE EQU      %                 SUPPRESS ERROR BLOCK NUMBER
     8392   01 01F68    02200000 A            LCI      0
     8393   01 01F69    2B001FBA              STM,R0   :COMTEM1          SAVE REGISTERS 0-15
     8394   01 01F6A    22500000 A            LI,R5    0
     8395   01 01F6B    15501FCC              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     8396   01 01F6C    32401FCF              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     8397   01 01F6D    32501FD0              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     8398   01 01F6E    30401FCE              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     8399   01 01F6F    30501FCE              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     8400   01 01F70    15401FCA              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     8401   01 01F71    3A401FCE              LCW,R4   :COMWCNT          -(WORD COUNT)

     8403   01 01F72    B2581FCA     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     8404   01 01F73    B1581FCB              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     8405   01 01F74    69301F7E              BCS,3    :COM2             UNEQUAL COMPARISON
     8406   01 01F75    65401F72              BIR,R4   :COM1             WORD COUNT NOT 0

     8408   01 01F76    32401FCC              LW,R4    :COMERRT          ERROR TOTAL
     8409   01 01F77    68301F79              BCR,3    %+2               NO ERROR
     8410   01 01F78    33101FC9              MTW,1    :COMTEM1+15       ERROR-RETURN ADDRESS +1
     8411   01 01F79    22000000 A            LI,R0    0                 RESET DISPLAY BLOCK FLAG
     8412   01 01F7A    35001FD3              STW,R0   :COMBLK
     8413   01 01F7B    02200000 A            LCI      0
     8414   01 01F7C    2A001FBA              LM,R0    :COMTEM1          RESTORE REGISTERS 0-15
     8415   01 01F7D    E800000F A            B        *R15              EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  151
A    8417   01 01F7E    33101FCC     :COM2    MTW,1    :COMERRT          ERROR TOTAL +1
     8418   01 01F7F    32601FD1              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     8419   01 01F80    69301F75              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     8420   01 01F81    32601FCC              LW,6     :COMERRT          FETCH ERROR COUNT
     8421   01 01F82    31601FD2              CW,6     :COMPLIN          TEST LIMIT
     8422   01 01F83    69201F78              BG       :COM1+6           EXIT
     8423   01 01F84    32601FCD              LW,R6    :COMTEM3          HEADER FLAG
     8424   01 01F85    69301FA0              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D

     8426                            * PRINT ERROR MSG HEADER
     8427   01 01F86    33101FCD              MTW,1    :COMTEM3          SET HDR FLAG
     8428   01 01F87    EAF0021C              BAL,R15  *:PRINT
     8429   01 01F88    00001D07              DATA     SPACE
     8430   01 01F89    33001FD3              MTW,0    :COMBLK
     8431   01 01F8A    69301F8E              BNEZ     :COM6             SKIP IF NUMBER NEEDED
     8432   01 01F8B    EAF0021C              BAL,R15  *:PRINT
     8433   01 01F8C    00001FD4              DATA     :COMERM1
     8434   01 01F8D    68001F93              B        :COM5

     8436         01 01F8E           :COM6    EQU      %
     8437   01 01F8E    32C01FBA              LW,R12   :COMTEM1+0        FETCH BLOCK NUMBER
     8438   01 01F8F    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEX
     8439   01 01F90    35F01FE0              STW,R15  :COMERMX+7        STORE IN MESSAGE
     8440   01 01F91    EAF0021C              BAL,R15  *:PRINT
     8441   01 01F92    00001FD9              DATA     :COMERMX

     8443         01 01F93           :COM5    EQU      %
     8444   01 01F93    32C01FCF              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     8445   01 01F94    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     8446   01 01F95    22600001 A            LI,R6    1                 INDEX=1
     8447   01 01F96    55F01FE7              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     8448   01 01F97    52F0000F A            LH,R15   R15
     8449   01 01F98    55FC1FE6              STH,R15  :COMERM2+3,R6
     8450   01 01F99    32C01FD0              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     8451   01 01F9A    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     8452   01 01F9B    35F01FEB              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     8453   01 01F9C    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     8454   01 01F9D    00001FE3              DATA     :COMERM2
     8455   01 01F9E    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     8456   01 01F9F    00001FEC              DATA     :COMERM3
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  152
A    8458                            * PRINT EXPECTED, OBSERVED WORDS
     8459   01 01FA0    32C01FCE     :COM3    LW,R12   :COMWCNT          NUMBER OF WORDS
     8460   01 01FA1    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     8461   01 01FA2    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     8462   01 01FA3    35F02009              STW,R15  :COMERM4+13       WRD CNT TO MSG
     8463   01 01FA4    B2C81FCA              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     8464   01 01FA5    22D01FFC              LI,R13   :COMERM4          ERROR MSG ADDR
     8465   01 01FA6    6AE01FAF              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     8466   01 01FA7    EAF0021C              BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     8467   01 01FA8    00001FFC              DATA     :COMERM4
     8468   01 01FA9    B2C81FCB              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     8469   01 01FAA    22D0200A              LI,R13   :COMERM5          ERROR MSG ADDR
     8470   01 01FAB    6AE01FAF              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     8471   01 01FAC    EAF0021C              BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     8472   01 01FAD    0000200A              DATA     :COMERM5
     8473   01 01FAE    68001F75              B        :COM1+3           RETURN TO COMPARISON

     8475                            * ENTER STATUS BITS INTO MESSAGE
     8476   01 01FAF    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     8477   01 01FB0    22700004 A            LI,R7    4                 MINOR INDEX=4
     8478   01 01FB1    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     8479   01 01FB2    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     8480   01 01FB3    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     8481   01 01FB4    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     8482   01 01FB5    64701FB2              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     8483   01 01FB6    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     8484   01 01FB7    21600009 A            CI,R6    9                 BYTE INDEX:9
     8485   01 01FB8    69201FB0              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     8486   01 01FB9    E800000E A            B        *R14              ENTER COMPLETE-EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  153
A    8488   01 01FBA                 :COMTEM1 RES      16                REGISTERS 0-15
     8489                                     BOUND    8
     8490   01 01FCA    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            01 01FCB    00000000 A
     8491   01 01FCC    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     8492   01 01FCD    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     8493   01 01FCE    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     8494   01 01FCF    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     8495   01 01FD0    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     8496   01 01FD1    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     8497   01 01FD2    00000001 A   :COMPLIN DATA     1                 COMPARE LIMIT COUNT
     8498   01 01FD3    00000000 A   :COMBLK  DATA     0

     8500   01 01FD4    12D9C5C1 A   :COMERM1 TEXTC    'READ COMPARE ERROR'
            01 01FD5    C440C3D6 A
            01 01FD6    D4D7C1D9 A
            01 01FD7    C540C5D9 A
            01 01FD8    D9D6D940 A
     8501   01 01FD9    25D9C5C1 A   :COMERMX TEXTC    'READ COMPARE ERROR: RECORD XXXX (HEX)'
            01 01FDA    C440C3D6 A
            01 01FDB    D4D7C1D9 A
            01 01FDC    C540C5D9 A
            01 01FDD    D9D6D97A A
            01 01FDE    40D9C5C3 A
            01 01FDF    D6D9C440 A
            01 01FE0    E7E7E7E7 A
            01 01FE1    404DC8C5 A
            01 01FE2    E75D4040 A
     8502   01 01FE3    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            01 01FE4    40C2C6D9 A
            01 01FE5    40C1C4C4 A
            01 01FE6    D940E7E7 A
            01 01FE7    E7E740D6 A
            01 01FE8    C2E240C2 A
            01 01FE9    C6D940C1 A
            01 01FEA    C4C4D940 A
            01 01FEB    E7E7E7E7 A
     8503                            :COMERM3 TEXTC    ;
     8504   01 01FEC    3D404040 A    '         0123 4567 0123 4567 0123 4567 0123 4567   WORD (HEX)'
            01 01FED    40404040 A
            01 01FEE    4040F0F1 A
            01 01FEF    F2F340F4 A
            01 01FF0    F5F6F740 A
            01 01FF1    F0F1F2F3 A
            01 01FF2    40F4F5F6 A
            01 01FF3    F740F0F1 A
            01 01FF4    F2F340F4 A
            01 01FF5    F5F6F740 A
            01 01FF6    F0F1F2F3 A
            01 01FF7    40F4F5F6 A
            01 01FF8    F7404040 A
            01 01FF9    E6D6D9C4 A
            01 01FFA    404DC8C5 A
            01 01FFB    E75D4040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  154
A    8506   01 01FFC    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            01 01FFD    C5C3E3C5 A
            01 01FFE    C4404040 A
     8507         0000000B                    DO       11
     8508   01 01FFF    40404040 A            DATA     X'40404040'       SPACES
     8509                                     FIN
            01 02000    40404040 A
            01 02001    40404040 A
            01 02002    40404040 A
            01 02003    40404040 A
            01 02004    40404040 A
            01 02005    40404040 A
            01 02006    40404040 A
            01 02007    40404040 A
            01 02008    40404040 A
            01 02009    40404040 A
     8510   01 0200A    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            01 0200B    C5D9E5C5 A
            01 0200C    C4404040 A
     8511         0000000B                    DO       11
     8512   01 0200D    40404040 A            DATA     X'40404040'       SPACES
     8513                                     FIN
            01 0200E    40404040 A
            01 0200F    40404040 A
            01 02010    40404040 A
            01 02011    40404040 A
            01 02012    40404040 A
            01 02013    40404040 A
            01 02014    40404040 A
            01 02015    40404040 A
            01 02016    40404040 A
            01 02017    40404040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  155
A    8515                            *                *** DELAY FOR I/O INTERRUPT ***
     8516                            *
     8517                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     8518                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     8519                            *
     8520                            *       INPUT PARAMETERS:
     8521                            *
     8522                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     8523                            *         REG 15- RETURN ADDRESS
     8524                            *
     8525                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     8526                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     8527                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)

     8529   01 02018    35F02033     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     8530   01 02019    25E0007F A            SLS,R14  -1                DELAY TIME /2
     8531   01 0201A    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER
     8532   01 0201B    35E02031              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     8533   01 0201C    35E02032              STW,R14  :DELORIG          (SAVE ORIGINAL VALUE IN TMS)
     8534   01 0201D    6AF02029              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     8535   01 0201E    32F02068              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     8536   01 0201F    6830201E              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     8537   01 02020    6AF0202D              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS

     8539   01 02021    32E02032              LW,R14   :DELORIG          FETCH ORIGINAL TIMEOUT VALUE
     8540   01 02022    38E02031              SW,R14   :DELTIME            AND COMPUTE TIME USED IN MS
     8541   01 02023    25E00001 A            SLS,R14  1

     8543   01 02024    32F02033     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     8544   01 02025    E800000F A            B        *R15              EXIT

     8546                            * DELAY TIMEOUT
     8547   01 02026    6AF0202D     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     8548   01 02027    33102033              MTW,1    :DELSAVE          RETURN ADDRESS +1
     8549   01 02028    68002024              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT

     8551                            * ARM/ENABLE COUNTER 4 INTERRUPTS
     8552   01 02029    35F02034     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     8553   01 0202A    22F01040 A            LI,R15   X'1040'           BITS 19,25
     8554   01 0202B    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     8555   01 0202C    E8002034              B        *:DELSAVE+1       EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  156
A    8557                            * DISARM COUNTER 4 INTERRUPTS
     8558   01 0202D    35F02034     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     8559   01 0202E    22F01040 A            LI,R15   X'1040'           BITS 19,25
     8560   01 0202F    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     8561   01 02030    E8002034              B        *:DELSAVE+1       EXIT

     8563   01 02031    00000000 A   :DELTIME DATA     0                 DELAY COUNTER (TMS)
     8564   01 02032    00000000 A   :DELORIG DATA     0                 DELAY COUNTER ORIGINAL VALUE
     8565   01 02033    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            01 02034    00000000 A
     8566                                     BOUND    8
     8567   01 02036    00000000 A   :DELAYTO DATA     0,0
            01 02037    00000000 A
     8568   01 02038    00002026              DATA     :DELTO,0
            01 02039    00000000 A
     8569   01 0203A    0F002036     :DELXPSD XPSD,0   :DELAYTO
     8570   01 0203B    33F02031     :DELMTW  MTW,-1   :DELTIME
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  157
A    8572                            *                 *** INTERRUPT - SERVICE ***
     8573                            *
     8574                            * THIS ROUTINE ACKNOWLEDGES AN IO INTERRUPT AND VERIFIES THE
     8575                            *  INTERRUPT DEVICE ADDRESS. IO INTERRUPT WILL BE DISARMED AND DISABLED
     8576                            *   IF INTERRUPT IS RECOGNIZED AND DEVICE ADDRESS WAS STORED IN TABLE.
     8577                            *
     8578                            *          JAHTC CONTAINS THE DESIRED DELAY BEFORE ISSUING THE AIO
     8579                            *
     8580                            *        OUTPUT PARAMETERS:
     8581                            *
     8582                            *          :INTSTAT - INTERRUPT STATUS AND ADR
     8583                            *          :INTCC   - INTERRUPT CONDITION CODE
     8584                            *          :INTRECF - INTERRUPT RECEIVED FLAG; RESET = 0, SET > 0
     8585                            *          :INTSVX  - NEG. INTERRUPT TABLE INDEX;
     8586                            *                       CURRENT TABLE WORD = WA(INTTAB8)-INTSVX
     8587                            *
     8588                            *
     8589   01 0203C    15402060     :INTSV   STD,4    :INTSVSR          SAVE
     8590   01 0203D    15C02062              STD,12   :INTSVSR+2
     8591   01 0203E    15E02064              STD,14   :INTSVSR+4          REGISTERS
     8592   01 0203F    32401B88              LW,4     JAHTC             AIO DELAY
     8593   01 02040    65402040              BIR,4    %                 DELAY ISSUING THE AIO
     8594   01 02041    6ED00000 A            AIO,13                     AIO
     8595   01 02042    69802057              BCS,8    :INTSV4           BRANCH: NO INTER RECOG
     8596   01 02043    74002067              STCF     :INTCC            SAVE COND CODE
     8597   01 02044    52C2000D A            LH,12    13,1              LOAD DEV ADR FROM AIO STATUS
     8598   01 02045    31C01B8C     :INTSV1  CW,12    :DEVADDR          COMPARE DEVICE ADDRESS
     8599   01 02046    6930204F              BCS,3    :INTSV3           BRANCH: ADR NOT EQUAL
     8600   01 02047    35D02066              STW,13   :INTSTAT          SAVE INTERRUPT STATUS
     8601   01 02048    6AF0221F              BAL,15   :SAVEAIO          SAVE AIO INFO FOR TEST
     8602   01 02049    33102068              MTW,1    :INTRECF          SET INTER RECEIVED FLAG
     8603   01 0204A    6AF02077              BAL,15   :INTD             DISARM IO INTERRUPT
     8604   01 0204B    12402060     :INTSV2  LD,4     :INTSVSR          RESTORE
     8605   01 0204C    12C02062              LD,12    :INTSVSR+2
     8606   01 0204D    12E02064              LD,14    :INTSVSR+4          REGISTERS
     8607   01 0204E    0E201BE8              LPSD,2   INTSVV            GO BACK TO PROGRAM

     8609   01 0204F    22402069     :INTSV3  LI,4     :INTSVM           LOAD MSG ADDRESS -SPURIOUS INTERRUPT
     8610   01 02050    3540205A              STW,4    :INTSV6           SAVE MSG ADR
     8611   01 02051    32C0000D A            LW,R12   R13
     8612   01 02052    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     8613   01 02053    35F02070              STW,15   :INTSVM+7         DEV ADR TO MSG
     8614   01 02054    EAF00218              BAL,R15  *:HEXC
     8615   01 02055    35F0206F              STW,R15  :INTSVM+6
     8616   01 02056    68002059              B        :INTSV5

     8618   01 02057    22401E9A     :INTSV4  LI,4     :CCERMF           LOAD MSG ADR (NO INTER RECOG)
     8619   01 02058    3540205A              STW,4    :INTSV6           SAVE MSG ADR
     8620   01 02059    EAF0021C     :INTSV5  BAL,15   *:PRINT            PRINT MSG
     8621   01 0205A    00000000 A   :INTSV6  DATA     0                 MSG ADR
     8622   01 0205B    6800204B              B        :INTSV2
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  158
A    8624                                     BOUND    8
     8625   01 0205C    00000000 A   :INTSVDW DATA     0,0,:INTSV,X'04000000'
            01 0205D    00000000 A
            01 0205E    0000203C
            01 0205F    04000000 A
     8626   01 02060                 :INTSVSR RES      6                 REGISTERS 4,5,12,13,14,15
     8627   01 02066    00000000 A   :INTSTAT DATA     0                 AIO STATUS AND DEV ADR
     8628   01 02067    00000000 A   :INTCC   DATA     0                 AIO COND CODE
     8629   01 02068    00000000 A   :INTRECF DATA     0                 INTER RECEIVED FLAG

     8631   01 02069    1FE2D7E4 A   :INTSVM  TEXTC    'SPURIOUS INTERRUPT AIO:XXXXXXXX'
            01 0206A    D9C9D6E4 A
            01 0206B    E240C9D5 A
            01 0206C    E3C5D9D9 A
            01 0206D    E4D7E340 A
            01 0206E    C1C9D67A A
            01 0206F    E7E7E7E7 A
            01 02070    E7E7E7E7 A

     8633                            *                 *** ARM AND ENABLE IO INTERRUPT ***
     8634                            *
     8635   01 02071    35F0207B     :INTAE   STW,15   :INTS
     8636   01 02072    22F00000 A            LI,15    0                 CLEAR INTERRUPT-RECEIVED FLAG
     8637   01 02073    35F02068              STW,15   :INTRECF
     8638   01 02074    22F00020 A            LI,15    X'20'             ARM AND ENABLE I/O INTERRUPT
     8639   01 02075    6DF01200 A            WD,15    X'1200'
     8640   01 02076    E800207B              B        *:INTS

     8642                            *                 *** DISARM IO INTERRUPT ***
     8643                            *
     8644   01 02077    35F0207B     :INTD    STW,15   :INTS
     8645   01 02078    22F00020 A            LI,15    X'20'             DISARM I/O INTERRUPT
     8646   01 02079    6DF01100 A            WD,15    X'1100'
     8647   01 0207A    E800207B              B        *:INTS

     8649   01 0207B    00000000 A   :INTS    DATA     0                 LINK ADDRESS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  159
A    8651                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     8652                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     8653                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     8654                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     8655                            * TRUE, FALSE, OR DON'T CARE CONDITION.  A ZERO WILL SIGNAL THE END OF
     8656                            * THE BYTE STRING. AFTER THE BIT TESTS, THE REMAINING BITS OF THE STATUS
     8657                            * PREVIOUSLY SELECTED WILL BE TESTED.
     8658                            *
     8659                            * THE BYTE HAS THE FOLLOWING FORMAT:
     8660                            *
     8661                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     8662                            * ----------                 -----    ----------
     8663                            * 0 (TERMINATOR)             0 FALSE  0 MASK X'80', BYTE<0, COM2<COM1
     8664                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYTE=0, COM2=COM1
     8665                            * 2 OPERATIONAL STATUS (TIO/OSB)      2 MASK X'20', BYTE=1, COM2=COM1+1
     8666                            * 3 HIO STATUS                        3 MASK X'10', BYTE=2, COM2=COM1+2
     8667                            * 4 TDV STATUS                        4 MASK X'08', BYTE=3, COM2=COM1+3
     8668                            * 5 SIO STATUS                        5 MASK X'04', BYTE=4, COM2=COM1+4
     8669                            * 6 AIO STATUS                        6 MASK X'02', BYTE=5, COM2=COM1+5
     8670                            * 7 INTERRUPT STATUS (AIO/ISB)        7 MASK X'01', BYTE=6, COM2=COM1+6
     8671                            * 8 TIO (DON'T CARE)
     8672                            * 9 OSB (DON'T CARE)
     8673                            * A HIO (DON'T CARE)
     8674                            * B TDV (DON'T CARE)
     8675                            * C SIO (DON'T CARE)
     8676                            * D AIO (DON'T CARE)
     8677                            * E ISB (DON'T CARE)
     8678                            * F TIO BYTE COUNT (FALSE) TIO COMMAND ADDRESS (TRUE)
     8679                            *
     8680                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     8681                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     8682                            * STORED IN THE TABLE, THE ERROR ROUTINE WILL ISSUE THE APPROPRIATE
     8683                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
     8684                            *
     8685                            * CALLING SEQUENCE: BAL,15 :ERRORT
     8686                            *                   DATA   BA(TSEQNNN)
     8687                            * NORMAL EXIT:      B      (CONTINUE TEST)
     8688                            * ERROR  EXIT:      ***    (IDENTIFY SUBTEST)
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  160
A    8690                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7 :TSEQEQU X'10'
     8691                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7 :TSEQEQU X'18'
     8692                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7 :TSEQEQU X'20'
     8693                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7 :TSEQEQU X'28'
     8694                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7 :TSEQEQU X'30'
     8695                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7 :TSEQEQU X'38'
     8696                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7 :TSEQEQU X'40'
     8697                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7 :TSEQEQU X'48'
     8698                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7 :TSEQEQU X'50'
     8699                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7 :TSEQEQU X'58'
     8700                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7 :TSEQEQU X'60'
     8701                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7 :TSEQEQU X'68'
     8702                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7 :TSEQEQU X'70'
     8703                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7 :TSEQEQU X'78'
     8704                            TIOX0,TIOX1,TIOX2,TIOX3,TIOX4,TIOX5,TIOX6,TIOX7 :TSEQEQU X'80'
     8705                            OSBX0,OSBX1,OSBX2,OSBX3,OSBX4,OSBX5,OSBX6,OSBX7 :TSEQEQU X'90'
     8706                            HIOX0,HIOX1,HIOX2,HIOX3,HIOX4,HIOX5,HIOX6,HIOX7 :TSEQEQU X'A0'
     8707                            TDVX0,TDVX1,TDVX2,TDVX3,TDVX4,TDVX5,TDVX6,TDVX7 :TSEQEQU X'B0'
     8708                            SIOX0,SIOX1,SIOX2,SIOX3,SIOX4,SIOX5,SIOX6,SIOX7 :TSEQEQU X'C0'
     8709                            AIOX0,AIOX1,AIOX2,AIOX3,AIOX4,AIOX5,AIOX6,AIOX7 :TSEQEQU X'D0'
     8710                            ISBX0,ISBX1,ISBX2,ISBX3,ISBX4,ISBX5,ISBX6,ISBX7 :TSEQEQU X'E0'
     8711                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06 :TSEQEQU X'F0'
     8712                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06 :TSEQEQU X'F8'
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  161
A    8714         01 0207C           :ERRORS  EQU      %
     8715   01 0207C    3310216F              MTW,1    :ERRFRCE

     8717   01 0207D    02200000 A   :ERRORT  LCI      0
     8718   01 0207E    2B002159              STM,0    :ERRTMP1          SAVE ALL REGISTERS
     8719   01 0207F    B250000F A            LW,5     *15               FETCH BYTE ADDR
     8720   01 02080    3200216F              LW,R0    :ERRFRCE          FETCH FORCE-DISPLAY FLAG
     8721   01 02081    3500216E              STW,0    :ERRTFLG          RESET ERROR FLAG

     8723   01 02082    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     8724   01 02083    6830211A              BEZ      :ERRT13           BRANCH: BYTE = 0

     8726   01 02084    22700000 A            LI,7     0
     8727   01 02085    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     8728   01 02086    3560216A              STW,R6   :ERRTMP3
     8729   01 02087    3560216B              STW,R6   :ERRTMP4          SAVE BITS 0-3 ORIGINAL

     8731   01 02088    21600008 A            CI,R6    8                 LOOK FOR STANDARD FUNCTION
     8732   01 02089    69102093              BL       :ERRT1
     8733   01 0208A    2160000F A            CI,R6    15
     8734   01 0208B    69302091              BNE      :ERRT00

     8736   01 0208C    33000007 A            MTW,0    7                 TRUE=>BYTE COUNT TEST
     8737   01 0208D    691020E8              BLZ      :ERRT11           FALSE=>COMMAND ADDRESS TEST
     8738   01 0208E    206FFFFF A            AI,R6    -1                SET PROPER FUNCTION INDEX
     8739   01 0208F    3560216A              STW,R6   :ERRTMP3
     8740   01 02090    680020E8              B        :ERRT11

     8742   01 02091    206FFFF9 A   :ERRT00  AI,R6    -7                SET TO CORRESPONDING
     8743   01 02092    3560216A              STW,R6   :ERRTMP3           STANDARD FUNCTION INDEX

     8745   01 02093    328C2230     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     8746   01 02094    691020B3              BLZ      :ERRT6            BRANCH: STATUS IN TABLE
     8747   01 02095    21600005 A            CI,6     5
     8748   01 02096    69102099              BL       :ERRT2            BRANCH: RANGE OF INDEX 1 - 4

     8750   01 02097    EAF0022B              BAL,R15  *:WAIT            REQUESTED STATUS NOT
     8751   01 02098    0000224D              DATA     WAITMSG1          AVAILABLE (SIO, AIO, ISB)
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  162
A    8753   01 02099    21600003 A   :ERRT2   CI,6     3
     8754   01 0209A    693020A1              BNE      :ERRT3            BRANCH: NOT HIO TEST
     8755   01 0209B    32E0229E              LW,14    =X'00008000'
     8756   01 0209C    6AF01DC9              BAL,15   :HIO              ISSUE HIO AND TEST CC1
     8757   01 0209D    6800209F              B        %+2
     8758   01 0209E    680020E6              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     8759   01 0209F    6AF02210              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     8760   01 020A0    68002093              B        :ERRT1            FETCH STATUS

     8762   01 020A1    21600004 A   :ERRT3   CI,6     4
     8763   01 020A2    693020A9              BNE      :ERRT4            BRANCH: NOT TDV TEST
     8764   01 020A3    32E0229E              LW,14    =X'00008000'
     8765   01 020A4    6AF01DD2              BAL,15   :TDV              ISSUE TDV AND TEST CC1
     8766   01 020A5    680020A7              B        %+2
     8767   01 020A6    680020E6              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     8768   01 020A7    6AF02215              BAL,15   :SAVETDV          STORE TDV STATUS
     8769   01 020A8    68002093              B        :ERRT1            FETCH STATUS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  163
A    8771   01 020A9    6AF020AB     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     8772   01 020AA    68002093              B        :ERRT1

     8774   01 020AB    35F020B2     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
     8775   01 020AC    32E0229E              LW,14    =X'00008000'
     8776   01 020AD    6AF01DC0              BAL,15   :TIO              ISSUE TIO AND TEST CC1
     8777   01 020AE    680020B0              B        %+2
     8778   01 020AF    680020E6              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     8779   01 020B0    6AF02202              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
     8780   01 020B1    E80020B2              B        *:ERRT5X          EXIT                    IN TABLE
     8781   01 020B2    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR

     8783   01 020B3    22600000 A   :ERRT6   LI,6     0
     8784   01 020B4    25600301 A            SCD,6    1                 FETCH BIT 4
     8785   01 020B5    35602169              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG

     8787   01 020B6    22600000 A            LI,6     0
     8788   01 020B7    25600303 A            SCD,6    3                 FETCH BITS 5 - 7
     8789   01 020B8    35602196              STW,6    :ERRBITS

     8791   01 020B9    729C216C              LB,9     :ERRTMSK,6        FETCH MASK
     8792   01 020BA    49800009 A            OR,8     9                 UPDATE CURRENT MASK

     8794   01 020BB    32F0216B              LW,R15   :ERRTMP4          CHECK FOR 'DONT CARE'
     8795   01 020BC    21F00008 A            CI,R15   8                 FUNCTION, SIMPLY UPDATES
     8796   01 020BD    681020C6              BGE      :ERRT8            THE CURRENT MASK

     8798   01 020BE    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
     8799   01 020BF    694020C3              BANZ     :ERRT7            BRANCH: MATCH BETWEEN STATUS & MASK

     8801   01 020C0    33002169              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     8802   01 020C1    683020C6              BEZ      :ERRT8            BRANCH: FALSE TEST SUCCESSFUL
     8803   01 020C2    680020CA              B        :ERRT9            BRANCH: TRUE  TEST UNSUCCESSFUL

     8805   01 020C3    33002169     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     8806   01 020C4    683020CA              BEZ      :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL
     8807   01 020C5    680020C6              B        :ERRT8            BRANCH: TRUE  TEST SUCCESSFUL

     8809   01 020C6    3260216A     :ERRT8   LW,6     :ERRTMP3          FETCH INDEX
     8810   01 020C7    358C2230              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE

     8812   01 020C8    33100005 A   :ERRT8A  MTW,1    5                 INCREMENT BYTE ADDR
     8813   01 020C9    68002082              B        :ERRT0            TEST NEXT BYTE
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  164
A    8815   01 020CA    3260216A     :ERRT9   LW,6     :ERRTMP3          FETCH INDEX
     8816   01 020CB    358C2230              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE

     8818   01 020CC    3260216A     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
     8819   01 020CD    327C2170              LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
     8820   01 020CE    35702185              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT

     8822   01 020CF    327C218E              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
     8823   01 020D0    32602196              LW,6     :ERRBITS          FETCH BIT SELECTED
     8824   01 020D1    928C0007 A            LD,8     *7,6              FETCH DOUBLEWORD ERROR MESSAGE
     8825   01 020D2    35802188              STW,R8   :ERRTMG1+4        SAVE BIT NAME
     8826   01 020D3    35902189              STW,R9   :ERRTMG1+5

     8828   01 020D4    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
     8829   01 020D5    75622187              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
     8830   01 020D6    32602169              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
     8831   01 020D7    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     8832   01 020D8    7564218B              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT

     8834   01 020D9    32602169              LW,6     :ERRTMP2
     8835   01 020DA    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
     8836   01 020DB    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     8837   01 020DC    7560218D              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT

     8839   01 020DD    22F02184              LI,R15   :ERRTMG1          LOAD STATUS POINTER

     8841   01 020DE    35F020E5     :ERRT9B  STW,R15  :ERRT9D           SAVE MESSAGE POINTER

     8843   01 020DF    32F0216E              LW,R15   :ERRTFLG          IF THIS IS THE FIRST LINE
     8844   01 020E0    38F0216F              SW,R15   :ERRFRCE          TO BE OUTPUT, THEN
     8845   01 020E1    692020E4              BGZ      :ERRT9C           OUTPUT SPACE

     8847   01 020E2    EAF0021C              BAL,R15  *:PRINT
     8848   01 020E3    00001D07              DATA     SPACE

     8850   01 020E4    EAF0021C     :ERRT9C  BAL,R15  *:PRINT           OUTPUT THE MESSAGE
     8851   01 020E5    00000000 A   :ERRT9D  DATA     0                 MESSAGE POINTER

     8853   01 020E6    3310216E     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
     8854   01 020E7    680020C8              B        :ERRT8A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  165
A    8856   01 020E8    330C2230     :ERRT11  MTW,0    :SAVETAB,6        IS STATUS PRESENT
     8857   01 020E9    691020EB              BLZ      %+2               SKIP IF STATUS IN TABLE
     8858   01 020EA    6AF020AB              BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS

     8860   01 020EB    328C2230              LW,R8    :SAVETAB,6        FETCH THE STATUS
     8861   01 020EC    4B802259              AND,8    =X'FFFF'          BITS 16 - 31
     8862   01 020ED    52820008 A            LH,8     8,1
     8863   01 020EE    2160000E A            CI,6     14
     8864   01 020EF    69302117              BNE      :ERRT12           BRANCH: COMMAND ADDR TEST

     8866   01 020F0    25600304 A   :ERRT11A SCD,6    4                 FETCH BITS 4 - 7
     8867   01 020F1    4B60229F              AND,6    =X'7'
     8868   01 020F2    693020F6              BNEZ     :ERRT11B          BRANCH: NOT EQUAL TO ZERO

     8870   01 020F3    33000008 A            MTW,0    8                 TEST BYTE COUNT OR COMMAND DIFF
     8871   01 020F4    691020C8              BLZ      :ERRT8A           SKIP IF NEGATIVE TEST OK
     8872   01 020F5    68002103              B        :ERRT91A          NEGATIVE TEST FAILED

     8874   01 020F6    33F00006 A   :ERRT11B MTW,-1   6                 SUBTRACT 1 FROM BITS 5 - 7
     8875   01 020F7    31600008 A            CW,6     8                 COMPARE R8 TO TEST VALUE
     8876   01 020F8    683020C8              BE       :ERRT8A           SKIP IF TEST SUCCESSFUL

     8878   01 020F9    3270216A     :ERRT92A LW,7     :ERRTMP3          FETCH INDEX
     8879   01 020FA    2170000E A            CI,7     14                BYTE COUNT  OR COMMAND ADDRESS
     8880   01 020FB    68302100              BE       :ERRT92C          BRANCH IF EQUAL TO

     8882   01 020FC    32902244              LW,9     :SAVCOM1          FETCH ORIG COMMAND ADDRESS
     8883   01 020FD    30900006 A            AW,9     6                 SAVCOM1 + 1
     8884   01 020FE    3590000C A            STW,9    12                STORE IN R12
     8885   01 020FF    68002109              B        :ERRT92B          BRANCH

     8887   01 02100    30602284     :ERRT92C AW,6     =X'F0F0F0F0'      CONVERT INDEX TO EBCDIC
     8888   01 02101    3560000F A            STW,6    15                STORE  IN R15
     8889   01 02102    6800210D              B        :ERRT91C          BRANCH
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  166
A    8891   01 02103    3270216A     :ERRT91A LW,7     :ERRTMP3          FETCH INDEX AND
     8892   01 02104    2170000E A            CI,7     14                DISTINGUISH BETWEEN
     8893   01 02105    6830210C              BE       :ERRT91B          BYTE COUNT AND COMM ADDRESS

     8895   01 02106    32902244              LW,9     :SAVCOM1          FETCH ORIG COMMAND ADDRESS
     8896   01 02107    38900001 A            SW,9     1                 SUBTRACT 1 FROM SAVCOM1
     8897   01 02108    3590000C A            STW,9    12                STORE IN R12

     8899   01 02109    EAF00218     :ERRT92B BAL,15   *:HEXC            CONVERT TO EBCDIC
     8900   01 0210A    12A021A8              LD,10    :ERRTCAM          FETCH COMMAND ADDRESS ID
     8901   01 0210B    6800210E              B        %+3               BRANCH

     8903   01 0210C    32F021A5     :ERRT91B LW,15    :ERRTNEG          FETCH EXPECTED NEGATIVE WORD
     8904   01 0210D    12A021A6     :ERRT91C LD,10    :ERRTBCM          FETCH BYTE COUNT ID

     8906   01 0210E    35A02198              STW,10   :ERRTMG2+1        STORE  ID
     8907   01 0210F    35B02199              STW,11   :ERRTMG2+2                  IN MESSAGE
     8908   01 02110    35F0219C              STW,15   :ERRTMG2+5        STORE R15 IN MESSAGE
     8909   01 02111    3260216A              LW,6     :ERRTMP3          FETCH INDEX
     8910   01 02112    32CC2230              LW,12    :SAVETAB,6        LOAD BYTE COUNT OR COMMAND ADR
     8911   01 02113    EAF00218              BAL,15   *:HEXC            CONVERT INTO EBCDIC
     8912   01 02114    35F0219F              STW,15   :ERRTMG2+8        STORE R15 IN MESSAGE
     8913   01 02115    22F02197              LI,R15   :ERRTMG2          LOAD BYT/COM POINTER
     8914   01 02116    680020DE              B        :ERRT9B           SKIP TO OUTPUT MESSAGE

     8916   01 02117    32902244     :ERRT12  LW,9     :SAVCOM1          FETCH ORIGINAL COMMAND ADDR
     8917   01 02118    38800009 A            SW,8     9                 FIND DIFFERENCE OF COMMAND ADDRESSES
     8918   01 02119    680020F0              B        :ERRT11A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  167
A    8920   01 0211A    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
     8921   01 0211B    3288223A              LW,8     :SAVETAB+10,4     FETCH STATUS
     8922   01 0211C    68102127              BCR,1    :ERRT14           BRANCH: NO STATUS
     8923   01 0211D    72960008 A            LB,9     8,3               FETCH CURRENT MASK
     8924   01 0211E    68302127              BCR,3    :ERRT14           BRANCH: STATUS NOT PREVIOUSLY TESTED
     8925   01 0211F    22A000FF A            LI,10    X'FF'
     8926   01 02120    4890000A A            EOR,9    10                COMPLEMENT CURRENT MASK
     8927   01 02121    72A40008 A            LB,10    8,2               FETCH STANDARD MASK
     8928   01 02122    4B90000A A            AND,9    10                STATUS COMPARE MASK FOR REMAINING
     8929   01 02123    72A20008 A            LB,10    8,1               FETCH STATUS BYTE              BITS
     8930   01 02124    4BA00009 A            AND,10   9                 TEST STATUS
     8931   01 02125    68302127              BCR,3    %+2               SKIP IF NO ERROR
     8932   01 02126    3310216E              MTW,1    :ERRTFLG          ELSE SET FLAG AND COUNT
     8933   01 02127    6540211B     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  168
A    8936   01 02128    224FFFF7 A            LI,R4    -9                COUNT OF STATUS WORDS
     8937         01 02129           :ERRT15  EQU      %
     8938   01 02129    3288223A              LW,R8    :SAVETAB+10,R4    FETCH WORD OF STATUS
     8939   01 0212A    68102130              BGEZ     :ERRT16           SKIP IF NOT PRESENT
     8940   01 0212B    72960008 A            LB,R9    R8,R3             FETCH CURRENT MASK
     8941   01 0212C    68302130              BCR,3    :ERRT16           SKIP IF NOT ACCESSED
     8942   01 0212D    3300216E              MTW,0    :ERRTFLG          CHECK ERROR FLAG
     8943   01 0212E    68302130              BEZ      :ERRT16           SKIP IF NO ERRORS
     8944   01 0212F    6AA02141              BAL,R10  :ERRT17           ELSE DISPLAY THIS STATUS

     8946         01 02130           :ERRT16  EQU      %
     8947   01 02130    65402129              BIR,R4   :ERRT15           LOOP FOR ALL STATUS

     8949   01 02131    3300216E              MTW,0    :ERRTFLG          TEST ERROR FLAG
     8950   01 02132    68302134              BEZ      %+2                SKIP IF NO ERRORS
     8951   01 02133    6AF013C0              BAL,R15  TST2IOE             ELSE I/O STATUS DISPLAY

     8953   01 02134    22000000 A            LI,R0    0                 PREPARE TO CLEAR
     8954   01 02135    224FFFF7 A            LI,R4    -9                 STATUS-PRESENT FLAGS

     8956   01 02136    3288223A     :ERRT16A LW,R8    :SAVETAB+10,R4    FETCH CURRENT STATUS
     8957   01 02137    75000008 A            STB,R0   R8                 CLEAR PRESENCE FLAG
     8958   01 02138    3588223A              STW,R8   :SAVETAB+10,R4      RESTORE STATUS WORD
     8959   01 02139    65402136              BIR,R4   :ERRT16A

     8961   01 0213A    22000000 A            LI,R0    0                 RESET FORCED-ERROR FLAG
     8962   01 0213B    3500216F              STW,R0   :ERRFRCE
     8963   01 0213C    02200000 A            LCI      0
     8964   01 0213D    2A002159              LM,0     :ERRTMP1          RESTORE REGISTERS
     8965   01 0213E    3300216E              MTW,0    :ERRTFLG           TEST ERROR FLAG
     8966   01 0213F    E832000F A            BCR,3    *15,1               NORMAL EXIT
     8967   01 02140    E804000F A            B        *15,2                ERROR EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  169
A    8969   01 02141    32C8217A     :ERRT17  LW,12    :ERRTYPE+10,4       FETCH STATUS TYPE
     8970   01 02142    35C02179              STW,12   :ERRTM1+1         STORE STATUS ID
     8971   01 02143    EAF0021C              BAL,R15  *:PRINT
     8972   01 02144    00001D07              DATA     SPACE
     8973   01 02145    EAF0021C              BAL,15   *:PRINT           PRINT LINE 1
     8974   01 02146    00002178              DATA     :ERRTM1           MSG = '   TIO 01234567'
     8975   01 02147    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
     8976   01 02148    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     8977   01 02149    35F0217F              STW,15   :ERRTM2+3         STORE IN MSG AREA
     8978   01 0214A    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     8979   01 0214B    35F0217E              STW,15   :ERRTM2+2         STORE IN MSG AREA
     8980   01 0214C    EAF0021C              BAL,15   *:PRINT           PRINT LINE 2
     8981   01 0214D    0000217C              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
     8982   01 0214E    22C000FF A            LI,R12   X'FF'             COMPLEMENT CURRENT MASK
     8983   01 0214F    48C00009 A            EOR,R12  R9
     8984   01 02150    72940008 A            LB,R9    R8,R2             REMOVE PREVIOUSLY TESTED
     8985   01 02151    4BC00009 A            AND,R12  R9                BITS FROM STANDARD STATUS
     8986   01 02152    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     8987   01 02153    35F02183              STW,15   :ERRTM3+3         STORE IN MSG AREA
     8988   01 02154    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     8989   01 02155    35F02182              STW,15   :ERRTM3+2         STORE IN MSG AREA
     8990   01 02156    EAF0021C              BAL,15   *:PRINT           PRINT LINE 3
     8991   01 02157    00002180              DATA     :ERRTM3           MSG = '  MASK MMMMMMMM'
     8992   01 02158    E800000A A            B        *R10
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  170
A    8994   01 02159                 :ERRTMP1 RES      16                REGISTER SAVE AREA
     8995   01 02169    00000000 A   :ERRTMP2 DATA     0                 TRUE/FALSE TEST FLAG
     8996   01 0216A    00000000 A   :ERRTMP3 DATA     0                 INDEX INTO STATUS SAVE AREA
     8997   01 0216B    00000000 A   :ERRTMP4 DATA     0                 BITS 0-3 OF SPECIFIER

     8999   01 0216C    80402010 A   :ERRTMSK GEN,8,8,8,8  X'80',X'40',X'20',X'10'   TEST
     9000   01 0216D    08040201 A            GEN,8,8,8,8  X'08',X'04',X'02',X'01'     MASKS

     9002   01 0216E    00000000 A   :ERRTFLG DATA     0
     9003   01 0216F    00000000 A   :ERRFRCE DATA     0
     9004   01 02170    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB '
            01 02171    E3C9D640 A
            01 02172    D6E2C240 A
            01 02173    C8C9D640 A
            01 02174    E3C4E540 A
            01 02175    E2C9D640 A
            01 02176    C1C9D640 A
            01 02177    C9E2C240 A
     9005   01 02178    0F404040 A   :ERRTM1  TEXTC    '   XXX 01234567'
            01 02179    E7E7E740 A
            01 0217A    F0F1F2F3 A
            01 0217B    F4F5F6F7 A
     9006   01 0217C    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            01 0217D    E3E4E240 A
            01 0217E    C2C2C2C2 A
            01 0217F    C2C2C2C2 A
     9007   01 02180    0F4040D4 A   :ERRTM3  TEXTC    '  MASK MMMMMMMM'
            01 02181    C1E2D240 A
            01 02182    D4D4D4D4 A
            01 02183    D4D4D4D4 A
     9008   01 02184    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            01 02185    E7E7E740 A
            01 02186    C2C9E340 A
            01 02187    40E7404D A
            01 02188    E7E7E7E7 A
            01 02189    E7E7E7E7 A
            01 0218A    5D40C5E7 A
            01 0218B    D740E740 A
            01 0218C    D6C2E240 A
            01 0218D    E7404040 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  171
A    9010   01 0218E    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,:ERRTTBC,:ERRTTBA
            01 0218F    000021AA
            01 02190    000021BA
            01 02191    000021AA
            01 02192    000021CA
            01 02193    000021AA
     9011   01 02194    000021DA              DATA     :ERRTTBD,:ERRTTBE
            01 02195    000021EA
     9012   01 02196    00000000 A   :ERRBITS DATA     0
     9013   01 02197    23404040 A   :ERRTMG2 TEXTC    '   XXXXXXX - EXP.  XXXX  OBS.  XXXX'
            01 02198    E7E7E7E7 A
            01 02199    E7E7E740 A
            01 0219A    6040C5E7 A
            01 0219B    D74B4040 A
            01 0219C    E7E7E7E7 A
            01 0219D    4040D6C2 A
            01 0219E    E24B4040 A
            01 0219F    E7E7E7E7 A
     9014   01 021A0    13E3C9D6 A   :ERRTMG3 TEXTC    'TIO:   XXXXYYYYXXXX'
            01 021A1    7A404040 A
            01 021A2    E7E7E7E7 A
            01 021A3    E8E8E8E8 A
            01 021A4    E7E7E7E7 A
     9015   01 021A5    40D5C5C7 A   :ERRTNEG TEXT     ' NEG'
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  172
A    9017                                     BOUND    8

     9019   01 021A6    C2E8E340 A   :ERRTBCM TEXT     'BYT CNT '
            01 021A7    C3D5E340 A
     9020   01 021A8    C3D6D440 A   :ERRTCAM TEXT     'COM ADR '
            01 021A9    C1C4D940 A
     9021   01 021AA    C9D5E340 A   :ERRTTBA TEXT     'INT PEND'        BIT 0
            01 021AB    D7C5D5C4 A
     9022   01 021AC    C2E4E2E8 A            TEXT     'BUSY   ?'        BIT 1   TIO
            01 021AD    4040406F A
     9023   01 021AE    D5D6E340 A            TEXT     'NOT OPR?'        BIT 2
            01 021AF    D6D7D96F A
     9024   01 021B0    4040C1E4 A            TEXT     '  AUTO  '        BIT 3     SIO                (1)
            01 021B1    E3D64040 A
     9025   01 021B2    404040E4 A            TEXT     '   UE   '        BIT 4                        (3)
            01 021B3    C5404040 A
     9026   01 021B4    C2E4E2E8 A            TEXT     'BUSY   ?'        BIT 5       HIO              (5)
            01 021B5    4040406F A
     9027   01 021B6    D5D6E340 A            TEXT     'NOT OPR?'        BIT 6
            01 021B7    D6D7D96F A
     9028   01 021B8    D5D6E340 A            TEXT     'NOT USED'        BIT 7         STATUS
            01 021B9    E4E2C5C4 A
     9029   01 021BA    C9D5C340 A   :ERRTTBB TEXT     'INC LEN '        BIT 0
            01 021BB    D3C5D540 A
     9030   01 021BC    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            01 021BD    E2D44040 A
     9031   01 021BE    E3D9C1D5 A            TEXT     'TRANSMEM'        BIT 2   OPERATIONAL
            01 021BF    E2D4C5D4 A
     9032   01 021C0    D4C5D440 A            TEXT     'MEM ADR '        BIT 3
            01 021C1    C1C4D940 A
     9033   01 021C2    C9D6D740 A            TEXT     'IOP MEM '        BIT 4     STATUS BYTE (OSB)
            01 021C3    D4C5D440 A
     9034   01 021C4    C9D6D740 A            TEXT     'IOP CONT'        BIT 5                        (2)
            01 021C5    C3D6D5E3 A
     9035   01 021C6    C9D6D740 A            TEXT     'IOP HALT'        BIT 6
            01 021C7    C8C1D3E3 A
     9036   01 021C8    E2C9D6D7 A            TEXT     'SIOPBUSY'        BIT 7
            01 021C9    C2E4E2E8 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  173
A    9038   01 021CA    D9C1E3C5 A   :ERRTTBC TEXT     'RATE ERR'        BIT 0
            01 021CB    40C5D9D9 A
     9039   01 021CC    E6D940D7 A            TEXT     'WR PERMT'        BIT 1
            01 021CD    C5D9D4E3 A
     9040   01 021CE    E6D940D7 A            TEXT     'WR PROT '        BIT 2     TDV
            01 021CF    D9D6E340 A
     9041   01 021D0    C54BD64B A            TEXT     'E.O.F.  '        BIT 3
            01 021D1    C64B4040 A
     9042   01 021D2    E3C540D5 A            TEXT     'TE NONCR'        BIT 4            STATUS     (4)
            01 021D3    D6D5C3D9 A
     9043   01 021D4    D3D6C1C4 A            TEXT     'LOAD PT '        BIT 5
            01 021D5    40D7E340 A
     9044   01 021D6    C54BD64B A            TEXT     'E.O.T.  '        BIT 6
            01 021D7    E34B4040 A
     9045   01 021D8    D9E660D6 A            TEXT     'RW-ONLNE'        BIT 7
            01 021D9    D5D3D5C5 A
     9046   01 021DA    D9C1E3C5 A   :ERRTTBD TEXT     'RATE ERR'        BIT 0
            01 021DB    40C5D9D9 A
     9047   01 021DC    C4C5E540 A            TEXT     'DEV END '        BIT 1
            01 021DD    C5D5C440 A
     9048   01 021DE    E6D940D7 A            TEXT     'WR PROT '        BIT 2     AIO
            01 021DF    D9D6E340 A
     9049   01 021E0    C54BD64B A            TEXT     'E.O.F.  '        BIT 3            STATUS   (6)
            01 021E1    C64B4040 A
     9050   01 021E2    E3C540D5 A            TEXT     'TE NONCR'        BIT 4
            01 021E3    D6D5C3D9 A
     9051   01 021E4    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            01 021E5    E4E2C5C4 A
     9052   01 021E6    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            01 021E7    E4E2C5C4 A
     9053   01 021E8    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            01 021E9    E4E2C5C4 A
     9054   01 021EA    C9D5C340 A   :ERRTTBE TEXT     'INC LEN '        BIT 0
            01 021EB    D3C5D540 A
     9055   01 021EC    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            01 021ED    E2D44040 A
     9056   01 021EE    E9C2C340 A            TEXT     'ZBC INT '        BIT 2   INTERRUPT
            01 021EF    C9D5E340 A
     9057   01 021F0    40C3C540 A            TEXT     ' CE INT '        BIT 3
            01 021F1    C9D5E340 A
     9058   01 021F2    40E4C540 A            TEXT     ' UE INT '        BIT 4     STATUS BYTE (ISB)  (7)
            01 021F3    C9D5E340 A
     9059   01 021F4    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            01 021F5    E4E2C5C4 A
     9060   01 021F6    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            01 021F7    E4E2C5C4 A
     9061   01 021F8    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            01 021F9    E4E2C5C4 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  174
A    9063                            * ROUTINES TO CLEAR AND SAVE STATUS IN THE SELECTED CELL:
     9064                            *
     9065                            * CLR, TIO, HIO, TDV, SIO, AND AIO ARE THE ENTRY POINTS
     9066                            *
     9067                            * CALLING SEQUENCE: BAL,15  :SAVE---
     9068                            * NORMAL EXIT:      ---     ---
     9069                            *
     9070                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
     9071                            *                     R12 - CURRENT COMMAND ADDR

     9073   01 021FA    15402240     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
     9074   01 021FB    224FFFE0 A            LI,4     -32               INDEX
     9075   01 021FC    22500000 A            LI,5     0                 0
     9076   01 021FD    55582240              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
     9077   01 021FE    654021FF              BIR,4    %+1               INCR R4
     9078   01 021FF    654021FD              BIR,4    %-2               LOOP
     9079   01 02200    12402240              LD,4     :SAVETMP          RESTORE R4 AND R5
     9080   01 02201    E800000F A            B        *15               EXIT

     9082   01 02202    15402240     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
     9083   01 02203    35D02242              STW,13   :SAVETMP+2        SAVE STATUS
     9084   01 02204    22402231              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
     9085   01 02205    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9086   01 02206    22402232              LI,4     WA(:SAVETAB+2)    INDEX - OSB
     9087   01 02207    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9088   01 02208    32D02242              LW,13    :SAVETMP+2        FETCH STATUS
     9089   01 02209    55D2223E              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
     9090   01 0220A    225FFFFF A            LI,5     -1
     9091   01 0220B    7550223E              STB,5    :SAVETAB+14,0     SET FLAG
     9092   01 0220C    55C2223F              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
     9093   01 0220D    7550223F              STB,5    :SAVETAB+15,0     SET FLAG
     9094   01 0220E    12402240              LD,4     :SAVETMP          RESTORE R4 AND R5
     9095   01 0220F    E800000F A            B        *15               EXIT

     9097   01 02210    15402240     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
     9098   01 02211    22402233              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
     9099   01 02212    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9100   01 02213    12402240              LD,4     :SAVETMP          RESTORE R4 AND R5
     9101   01 02214    E800000F A            B        *15               EXIT

     9103   01 02215    15402240     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
     9104   01 02216    22402234              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
     9105   01 02217    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9106   01 02218    12402240              LD,4     :SAVETMP          RESTORE R4 AND R5
     9107   01 02219    E800000F A            B        *15               EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  175
A    9109   01 0221A    15402240     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
     9110   01 0221B    22402235              LI,4     WA(:SAVETAB+5)    INDEX - SIO
     9111   01 0221C    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9112   01 0221D    12402240              LD,4     :SAVETMP          RESTORE R4 AND R5
     9113   01 0221E    E800000F A            B        *15               EXIT

     9115   01 0221F    15402240     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
     9116   01 02220    35D02242              STW,13   :SAVETMP+2        SAVE STATUS
     9117   01 02221    22402236              LI,4      WA(:SAVETAB+6)   INDEX - AIO
     9118   01 02222    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9119   01 02223    22402237              LI,4      WA(:SAVETAB+7)   INDEX - ISB
     9120   01 02224    6A502228              BAL,5    :SAVEALL          STORE STATUS
     9121   01 02225    32D02242              LW,13    :SAVETMP+2        FETCH STATUS
     9122   01 02226    12402240              LD,4     :SAVETMP          RESTORE REGISTERS R4 AND R5
     9123   01 02227    E800000F A            B        *15               EXIT

     9125   01 02228    35502243     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
     9126   01 02229    22500000 A            LI,5     0
     9127   01 0222A    F5560004 A            STB,5    *4,3              CLEAR CURRENT STATUS MASK
     9128   01 0222B    25D00208 A            SCS,13   +8
     9129   01 0222C    F5D20004 A            STB,13   *4,1              STORE CURRENT STATUS
     9130   01 0222D    225FFFFF A            LI,5     -1
     9131   01 0222E    F5500004 A            STB,5    *4,0              STORE FLAG
     9132   01 0222F    E8002243              B        *:SAVETMP+3       EXIT
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  176
A    9134                            ************************************************************************
     9135                            *                                                                      *
     9136                            * THE FOLLOWING TABLE IS FOR GATHERED I/O STATUS                       *
     9137                            *                                                                      *
     9138                            * THE FORMAT OF ENTRIES 1-7 IS AS FOLLOWS:                             *
     9139                            *                                                                      *
     9140                            *        BYTE 0   00=>NOT PRESENT, FF=>PRESENT                         *
     9141                            *        BYTE 1   ACTUAL STATUS BYTE                                   *
     9142                            *        BYTE 2   DEFAULT BITS TO TEST                                 *
     9143                            *        BYTE 3   ACTUAL BITS TESTED                                   *
     9144                            *                                                                      *
     9145                            ************************************************************************
     9146                                     BOUND    8
     9147         01 02230           :SAVETAB EQU      %
     9148   01 02230    00000000 A            DATA     0                 UNDEFINED                   0
     9149   01 02231    0000EE00 A            DATA     X'0000EE00'       TIO STATUS                  1
     9150   01 02232    0000FF00 A            DATA     X'0000FF00'       OSB STATUS                  2
     9151   01 02233    0000EE00 A            DATA     X'0000EE00'       HIO STATUS                  3
     9152   01 02234    0000B300 A            DATA     X'0000B300'       TDV STATUS                  4
     9153   01 02235    0000EE00 A            DATA     X'0000EE00'       SIO STATUS                  5
     9154   01 02236    0000F000 A            DATA     X'0000F000'       AIO STATUS                  6
     9155   01 02237    0000FF00 A            DATA     X'0000FF00'       ISB STATUS                  7
     9156   01 02238    00000000 A            DATA     0,0,0,0,0,0       NOT ASSIGNED                8-13
            01 02239    00000000 A
            01 0223A    00000000 A
            01 0223B    00000000 A
            01 0223C    00000000 A
            01 0223D    00000000 A
     9157   01 0223E    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR     14-15
            01 0223F    00000000 A
     9158   01 02240    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            01 02241    00000000 A
            01 02242    00000000 A
            01 02243    00000000 A
     9159   01 02244    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR

     9161   01 02245    1CD7D9D6 A   WAITMSG0 TEXTC    'PROGRAMMING ERROR IN :ERRORT'
            01 02246    C7D9C1D4 A
            01 02247    D4C9D5C7 A
            01 02248    40C5D9D9 A
            01 02249    D6D940C9 A
            01 0224A    D5407AC5 A
            01 0224B    D9D9D6D9 A
            01 0224C    E3404040 A
     9162   01 0224D    23D9C5D8 A   WAITMSG1 TEXTC    'REQUESTED STATUS MISSING IN :ERRORT'
            01 0224E    E4C5E2E3 A
            01 0224F    C5C440E2 A
            01 02250    E3C1E3E4 A
            01 02251    E240D4C9 A
            01 02252    E2E2C9D5 A
            01 02253    C740C9D5 A
            01 02254    407AC5D9 A
            01 02255    D9D6D9E3 A
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  177
A    9164   01 02256    00000000 A   BUFF2    DATA     0                 WA(BUFFER TWO)
     9165   01 02257                 BUFF2BA  RES      1                 BA(BUFFER TWO)
     9166                            BUFF1    END
            01 02258    00003001
            01 02259    0000FFFF A
            01 0225A    0000FFF8 A
            01 0225B    FFFFFFFE A
            01 0225C    00FFFFFF A
            01 0225D    00001FFF A
            01 0225E    00000080 A
            01 0225F    00000008 A
            01 02260    12B9B0A1 A
            01 02261    1033C4D7 A
            01 02262    544B2FBA A
            01 02263    E700C000 A
            01 02264    EF00C000 A
            01 02265    B300C000 A
            01 02266    08000000 A
            01 02267    0000C000 A
            01 02268    00000000 A
            01 02269    FF000000 A
            01 0226A    88000000 A
            01 0226B    80000000 A
            01 0226C    98000002 A
            01 0226D    66000000 A
            01 0226E    04000000 A
            01 0226F    40000000 A
            01 02270    E6000000 A
            01 02271    10000000 A
            01 02272    06000000 A
            01 02273    FFFFFFFF A
            01 02274    00400000 A
            01 02275    12345678 A
            01 02276    9ABCDEF0 A
            01 02277    000FFFFF A
            01 02278    51F99F15 A
            01 02279    02000000 A
            01 0227A    01020304 A
            01 0227B    60C00000 A
            01 0227C    60400000 A
            01 0227D    06C00000 A
            01 0227E    06400000 A
            01 0227F    FFC00000 A
            01 02280    70400000 A
            01 02281    0F0F0F0F A
            01 02282    00000014 A
            01 02283    12000000 A
            01 02284    F0F0F0F0 A
            01 02285    DC76BBDD A
            01 02286    00001FF0 A
            01 02287    000000C0 A
            01 02288    40D3D67A A
            01 02289    4040C37A A
            01 0228A    0000000F A
            01 0228B    000003FF A
            01 0228C    00000003 A
            01 0228D    7FFFFFFF A
            01 0228E    08C00000 A
            01 0228F    08400000 A
            01 02290    91000000 A
            01 02291    50000000 A
            01 02292    43000000 A
            01 02293    0C000000 A
            01 02294    4B000000 A
            01 02295    00FF0000 A
            01 02296    00004E20 A
            01 02297    E600C000 A
            01 02298    40E3F06B A
            01 02299    004040E3 A
            01 0229A    40404040 A
            01 0229B    404DF05D A
            01 0229C    FFFFC000 A
            01 0229D    80004000 A
            01 0229E    00008000 A
            01 0229F    00000007 A

  CONTROL SECTION SUMMARY: 01 03057   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:03 JUN 20,'83    T-SERIES 9-CHANNEL MAGNETIC TAPE DIAGNOSTIC 960-0600-H02              PAGE  178
A  AIOF0           7301/:TSEQ   8700-:TSEQEQU
   AIOF1           8700-:TSEQEQU
   AIOF2           8700-:TSEQEQU
   AIOF3           8700-:TSEQEQU
   AIOF4           8700-:TSEQEQU
   AIOF5           8700-:TSEQEQU
   AIOF6           4687/:TSEQ   8700-:TSEQEQU
   AIOF7           4688/:TSEQ   8700-:TSEQEQU
   AIOT0           7303/:TSEQ   7305/:TSEQ   8701-:TSEQEQU
   AIOT1           8701-:TSEQEQU
   AIOT2           7286/:TSEQ   8701-:TSEQEQU
   AIOT3           8701-:TSEQEQU
   AIOT4           8701-:TSEQEQU
   AIOT5           8701-:TSEQEQU
   AIOT6           4688/:TSEQ   4689/:TSEQ   8701-:TSEQEQU
   AIOT7           4687/:TSEQ   4689/:TSEQ   8701-:TSEQEQU
   AIOX0           8709-:TSEQEQU
   AIOX1           8709-:TSEQEQU
   AIOX2           8709-:TSEQEQU
   AIOX3           8709-:TSEQEQU
   AIOX4           4687/:TSEQ   4688/:TSEQ   4689/:TSEQ   8709-:TSEQEQU
   AIOX5           8709-:TSEQEQU
   AIOX6           8709-:TSEQEQU
   AIOX7           8709-:TSEQEQU
   BACKBEG          485/LI       486/LI      7521-EQU
   BACKEND          485/LI      7590-EQU
   BUFF1            190/DATA     456/AI       478/AI      1941/STW     1947/LW      2836/LI      2857/STW
      2858/STW     2869/STM     3020/LI      3031/STW     3040/STW     3703/STW     3883/STW     4696/GEN
      5078/LI      5088/LW      5090/STW     5560/LI      5746/LI      5757/LI      5795/STW     5858/STW
      5898/LW      6220/STW     6405/LI      6496/STW     6521/LI      6576/STW     6824/LW      7131/LI
      7204/STW     7212/STW     7221/STW     7231/STW     7238/AI      7244/STB     7253/LW      7254/STW
      7315/GEN     7317/GEN     7319/GEN     7321/GEN     7323/GEN     7337/GEN     7339/GEN     7341/GEN
      7345/GEN     7351/GEN     7353/GEN     7355/GEN     7357/GEN     7359/GEN     7361/GEN     7363/GEN
      7365/GEN     7367/GEN     7369/GEN     7373/GEN     7375/GEN     7377/GEN     7379/GEN     7381/GEN
      7383/GEN     7385/GEN     7395/GEN     7399/GEN     7401/GEN     7442/GEN     7444/GEN     7463/GEN
      7465/GEN     7469/GEN     7473/GEN     7477/GEN     7479/GEN     7481/GEN     7483/GEN     7485/GEN
      7487/GEN     7489/GEN     7491/GEN     7493/GEN     7495/GEN     7497/GEN     7499/GEN     7506/GEN
      7508/GEN     9166-END
   BUFF2            480/STW     1933/LW      2114/CW*     2172/LW      2254/LW      2261/LW      2841/LW
      2870/STM*    2884/STD*    2898/STD*    2931/LW      2995/LW      3022/LW      3050/LW      3202/STW*
      3237/LW      3271/CH*     3285/CH*     3332/CB*     3352/CB*     3780/CB*     3912/STW*    3916/CB*
      5073/LW      5081/LW      5750/LW      5762/LW      6061/LW*     6131/LW*     6517/LW      6890/CB*
      7135/LW      7512/GEN     7523/GEN     7525/GEN     7527/GEN     7529/GEN     7531/GEN     7533/GEN
      7535/GEN     7537/GEN     7539/GEN     7541/GEN     7543/GEN     7545/GEN     7547/GEN     7549/GEN
      7551/GEN     7553/GEN     7555/GEN     7557/GEN     7559/GEN     7561/GEN     7563/GEN     7565/GEN
      7567/GEN     7570/GEN     7572/GEN     7574/GEN     7576/GEN     7578/GEN     7581/GEN     7583/GEN
      7585/GEN     7587/GEN     9164-DATA
   BUFF2BA          482/STW     5565/LW      5570/LW      9165-RES
   BYTECN          6679/STW     6777/LW      6797/LW      7714-DATA
   BYTN0           8711-:TSEQEQU
   BYT00           7266/:TSEQ   7267/:TSEQ   7268/:TSEQ   7269/:TSEQ   7271/:TSEQ   7272/:TSEQ   7273/:TSEQ
      7279/:TSEQ   7292/:TSEQ   8711-:TSEQEQU
   BYT01           7277/:TSEQ   7278/:TSEQ   7305/:TSEQ   8711-:TSEQEQU
   BYT02           7263/:TSEQ   7265/:TSEQ   7270/:TSEQ   7288/:TSEQ   8711-:TSEQEQU
   BYT03           8711-:TSEQEQU
   BYT04           8711-:TSEQEQU
   BYT05           8711-:TSEQEQU
   BYT06           7301/:TSEQ   8711-:TSEQEQU
   CATALOG            2-EQU        4/EQU
   CHARTR           617-DATA    3962/SW
   CLOCK           2338/LW      7657-MTW
   CLRARM          1305/BAL     1321/BAL     1336/BAL     1368/BAL     1384/BAL     1400/BAL     1449/BAL
      1480/BAL     1496/BAL     1510/BAL     1582/BAL     1596/BAL   1656.2/BAL     1737/BAL     1748/BAL
      1759/BAL     1827/BAL     1836/BAL     1943/BAL     2349/BAL     2616/BAL     3186/BAL     3203/BAL
      3597/BAL     3627/BAL     3720/BAL     3773/BAL     3908/BAL     3948/BAL     4582/BAL     4733/BAL
      5910/BAL     6003/BAL     6256/BAL     6280/BAL     6303/BAL     6415/BAL     6435/BAL     7040-STW
      7068/B
   CLRDARM         1207/BAL     1212/BAL     1217/BAL     1222/BAL     1236/BAL     1251/BAL     1261/BAL
      1274/BAL     1285/BAL     1351/BAL     1416/BAL     1522/BAL     1538/BAL     1547/BAL     1570/BAL
      1610/BAL     1631/BAL     1669/BAL     1685/BAL     1712/BAL     1770/BAL     1814/BAL     1852/BAL
      1880/BAL     1917/BAL     2007/BAL     2040/BAL     2199/BAL     2325/BAL     2392/BAL     2470/BAL
      2510/BAL     2600/BAL     2690/BAL     2779/BAL     2827/BAL     3004/BAL     3365/BAL     3495/BAL
      3584/BAL     3646/BAL     3679/BAL     3823/BAL     3868/BAL     4006/BAL     4082/BAL     4302/BAL
      4431/BAL     4471/BAL     4521/BAL     4886/BAL     6935/BAL     7052-STW
   CLRTE           1437/BAL     1620/BAL     1867/BAL     1895/BAL     2147/BAL     2612/BAL     3173/BAL
      3595/BAL     4956-LI
   CMAX            6654/STW     6688/CW      6753/CW      6770/CW      7716-DATA
   CODE              88-CNAME
   COMNG           8712-:TSEQEQU
   COM00           7301/:TSEQ   7303/:TSEQ   7305/:TSEQ   8712-:TSEQEQU
   COM01           8712-:TSEQEQU
   COM02           8712-:TSEQEQU
   COM03           8712-:TSEQEQU
   COM04           8712-:TSEQEQU
   COM05           8712-:TSEQEQU
   COM06           8712-:TSEQEQU
   CORBYT          3377/LI      3432/LB      3461/LB      3485/LB      7391/GEN     7662-DATA
   CRCBL           3331/LB      3351/LB      7389/GEN     7708-DATA
   CRCDAT          3230/LI      3270/LH      3284/LH      7387/GEN     7703-DATA
   CRPMAX           622-DATA    3808/CW      3815/LW
   CRTRY            742/STW      874/STW     5500/LW      6505/STW     7651-DATA
   CSMEAR          5842/STW     5857/LW      7743-DATA
   DATTA            221/:PROCDIC             1073-LW
   DATTA1A         1080-STW
   DATTA2          1075/BNEZ    1085-CI
   DATTA3          1086/BG      1095-CI      1115/B
   DATTA4          1096/BEZ     1104-STW
   DATTA5          1078/BEZ     1107/BCS     1109/BCS     1114-STW
   DATTA6          1111/B       1117-LW
   DENSITY         4643/STB     4655/LB      4670/LB      4677/LB      4679/STB     4680/MTB     4684-RES
      4692/GEN     4694/GEN
   DEOFMSG         2028/STW     2030/DATA    2137-TEXTC
   DEVBUSY          628-DATA    3658/LW
   DEVPRTO          823/STW      829/DATA    7784-TEXTC
   DOALL           5200/BAL     5226/BAL     5256/BAL     5286/BAL     5306/BAL     7063-LI      7099/BAL
   DOALL1          7066-LW      7093/BIR     7101/BAL
   DONEXT          5221/BAL     5251/BAL     5281/BAL     5301/BAL     5321/BAL     7070-STW
   DONEXT1         7073/BEZ     7078/B       7079/B       7081-CW
   DONEXT2         7082/BNE     7090-LW
   DQBN             625-DATA    6248/LW      6251/LW
   DTALLY          7606-CNAME
   ERASE           2343/LI      7371-GEN
   ERECORDS         626-DATA    3856/CW
   ERREXIT         7804/STW     7810/B*      7881/B*      7883-DATA
   ERRNO1          7857/STH     7866/DATA    7889-TEXTC
   ERRNO2          7872/STW     7874/STW     7876/DATA    7890-TEXTC
   ERRNO3          7834/STH     7836/STM     7838/STW     7840/STB     7854/STB     7860/STW     7862/STB
      7878/DATA    7891-TEXTC
   ERRNO4          7833/LM      7893-TEXT
   ERRNO5          7830/LM      7894-TEXT
   ERRNO6          7824/LM      7895-TEXT
   ERRNO7          7827/LM      7896-TEXT
   ERROR             27/OPEN      28-CNAME
   ERRPNT1         2191/BAL     2313/BAL     7804-STW
   ERRPNT2         7813-LW      7880/BIR
   ERRPNT2A        7823-LCI     7850/B
   ERRPNT3         7819/BGE     7829-LCI     7847/BLE
   ERRPNT3A        7817/BE      7826-LCI     7845/BE
   ERRPNT4         7821/BGE     7832-LCI     7849/BLE
   ERRPNT5         7814/BEZ     7843-LW
   ERRPNT6         7841/B       7852-LB
   ERRPNT7         7879-MTW
   ERTMAX           618-DATA    2371/CW      2384/LW
   ERTMIN           619-DATA    2369/CW      2381/LW
   FLG1            2216/STW     6700/STW     6706/STW     6716/CW      6719/STW     7660-DATA
   FLG7315          447/STW      453/STW     4357/MTW     7668-DATA
   GENDELAY        1279/BAL     1442/BAL     1527/BAL     1625/BAL     1635/BAL     1639/BAL     1673/BAL
      1689/BAL     3659/BAL     3886/BAL     4381/BAL     4398/BAL     4418/BAL     4498/BAL     4885-STW
      5981/BAL     6079/BAL     6149/BAL     6963/BAL     7088/BAL
   GENDY0          4885/STW     4888/B*      4889/B*      4890-DATA
   GENERR          1963/BAL     1969/BAL     2023/BAL     2056/BAL     2116/BAL     2120/BAL     2124/BAL
      2128/BAL     2132/BAL     2159/BAL     2276/BAL     2359/BAL     2373/BAL     2376/BAL     2445/BAL
      2463/BAL     2521/BAL     2667/BAL     2672/BAL     2715/BAL     2723/BAL     2731/BAL     2739/BAL
      2747/BAL     2755/BAL     2763/BAL     2771/BAL     2801/BAL     2806/BAL     2814/BAL     2819/BAL
      2890/BAL     2895/BAL     2904/BAL     2909/BAL     2956/BAL     2961/BAL     2969/BAL     2974/BAL
      3082/BAL     3087/BAL     3111/BAL     3116/BAL     3250/BAL     3267/BAL     3273/BAL     3281/BAL
      3287/BAL     3312/BAL     3326/BAL     3334/BAL     3346/BAL     3354/BAL     3394/BAL     3399/BAL
      3407/BAL     3412/BAL     3429/BAL     3445/BAL     3450/BAL     3458/BAL     3474/BAL     3479/BAL
      3521/BAL     3526/BAL     3534/BAL     3539/BAL     3553/BAL     3558/BAL     3566/BAL     3571/BAL
      3738/BAL     3745/BAL     3753/BAL     3760/BAL     3767/BAL     3771/BAL     3800/BAL     3810/BAL
      3858/BAL     3901/BAL     3945/BAL     3972/BAL     4038/BAL     4046/BAL     4057/BAL     4067/BAL
      4177/BAL     4206/BAL     4211/BAL     4274/BAL     4279/BAL     4912/BAL     4923-STW
   GENERRL         4923/STW     4924/MTW     4946/B*      4948-RES
   GENERRM         4930/STW     4931/STW     4939/STW     4940/STW     4945/DATA    4949-TEXTC
   GENERROR          30/BAL     4892-LI
   GENFAIL         1242/BAL     1258/BAL     1282/BAL     1313/BAL     1328/BAL     1344/BAL     1377/BAL
      1393/BAL     1409/BAL     1445/BAL     1463/BAL     1491/BAL     1505/BAL     1519/BAL     1628/BAL
      1641/BAL     1745/BAL     1756/BAL     1767/BAL     1786/BAL     1796/BAL     1803/BAL     1811/BAL
      1873/BAL     1901/BAL     1911/BAL     2413/BAL     2421/BAL     2427/BAL     2434/BAL     2546/BAL
      2555/BAL     2563/BAL     2570/BAL     2578/BAL     2585/BAL     2591/BAL     2597/BAL     2644/BAL
      2687/BAL     2707/BAL     2881/BAL     2946/BAL     3062/BAL     3183/BAL     3194/BAL     3386/BAL
      3511/BAL     3623/BAL     3708/BAL     3891/BAL     3933/BAL     4121/BAL     4127/BAL     4135/BAL
      4153/BAL     4161/BAL     4171/BAL     4196/BAL     4234/BAL     4243/BAL     4264/BAL     4330/BAL
      4337/BAL     4349/BAL     4375/BAL     4384/BAL     4392/BAL     4401/BAL     4412/BAL     4421/BAL
      4457/BAL     4501/BAL     4515/BAL     4658/BAL     4673/BAL     4895-LI
   GENFAILS        1457/BAL     2624/BAL     4898-LI
   GENFAILV        4892/LI      4912-BAL
   GENFAILW        4910/B       4919-MTW
   GENFAILX        4905/STW     4909-DATA
   GENFAILY        4903/STW     4913-DATA
   GENFAILZ        4900/STW     4906/MTW     4917/B*      4919/MTW     4920/B*      4921-DATA    4933/LW
   GENFAIL0        4893/B       4896/B       4900-STW
   GENIOXEC        2165/BAL     2240/BAL     2658/BAL     2797/BAL     2810/BAL     2952/BAL     2965/BAL
      3078/BAL     3107/BAL     3390/BAL     3403/BAL     3441/BAL     3470/BAL     3517/BAL     3763/BAL
      4335/BAL     4726-STW     5232/BAL     5262/BAL     5394/BAL     5439/BAL     6104/BAL
   GENIOXEQ        1784/BAL     1801/BAL     1809/BAL     1871/BAL     1899/BAL     1909/BAL     2052/BAL
      2070/BAL     2083/BAL     2155/BAL     2231/BAL     2347/BAL     2411/BAL     2419/BAL     2425/BAL
      2432/BAL     2441/BAL     2459/BAL     2483/BAL     2493/BAL     2503/BAL     2544/BAL     2553/BAL
      2561/BAL     2568/BAL     2576/BAL     2583/BAL     2589/BAL     2595/BAL     2642/BAL     2649/BAL
      2685/BAL     2705/BAL     2711/BAL     2719/BAL     2727/BAL     2735/BAL     2743/BAL     2751/BAL
      2759/BAL     2767/BAL     2791/BAL     2879/BAL     2886/BAL     2900/BAL     2944/BAL     3057/BAL
      3067/BAL     3072/BAL     3101/BAL     3130/BAL     3181/BAL     3246/BAL     3263/BAL     3277/BAL
      3308/BAL     3322/BAL     3342/BAL     3384/BAL     3425/BAL     3454/BAL     3509/BAL     3530/BAL
      3549/BAL     3562/BAL     3706/BAL     3717/BAL     3734/BAL     3741/BAL     3749/BAL     3756/BAL
      3837/BAL     3840/BAL     3843/BAL     3845/BAL     3847/BAL     3851/BAL     3889/BAL     3897/BAL
      3931/BAL     3941/BAL     4000/BAL     4021/BAL     4030/BAL     4034/BAL     4042/BAL     4053/BAL
      4061/BAL     4063/BAL     4078/BAL     4119/BAL     4125/BAL     4133/BAL     4149/BAL     4158/BAL
      4169/BAL     4192/BAL     4194/BAL     4202/BAL     4221/BAL     4231/BAL     4241/BAL     4260/BAL
      4262/BAL     4270/BAL     4328/BAL     4347/BAL     4372/BAL     4389/BAL     4409/BAL     4450/BAL
      4454/BAL     4563/BAL     4608/BAL     4653/BAL     4668/BAL     4731-STW     5206/BAL     5292/BAL
      5312/BAL     5345/BAL     5347/BAL     5349/BAL     5381/BAL     5386/BAL     5388/BAL     5390/BAL
      5426/BAL     5431/BAL     5433/BAL     5435/BAL     5970/BAL     5976/BAL     6050/BAL     6120/BAL
      6594/BAL     6669/BAL     6702/BAL     6711/BAL     6733/BAL     6745/BAL     6758/BAL     6767/BAL
   GENIOXES        4712/STW     4724/B*      4726/STW     4731/STW     4737/B*      4738-DATA    4740/STW
      4751/B*      6983/STW     7021/LW
   GENIOXET        4729/B       4733-BAL
   GENSKPM         4950-TEXTC   4976/DATA
   GETTIME         3697/BAL     3879/BAL     6842-STW
   GETT1           6848-LI      6883/B       6903/B
   GETT11          6845/LI      6864-LI      6930/DATA
   GETT12          6879/LI      6885-LI
   GETT13          6899/LI      6905-LI
   GETT2           6843/LI      6873-LI      6929/DATA
   GETT3           6881/LI      6893-LI
   GETT4           6901/LI      6913-LI
   HIOF0           7260/:TSEQ   8694-:TSEQEQU
   HIOF1           8694-:TSEQEQU
   HIOF2           8694-:TSEQEQU
   HIOF3           8694-:TSEQEQU
   HIOF4           8694-:TSEQEQU
   HIOF5           8694-:TSEQEQU
   HIOF6           8694-:TSEQEQU
   HIOF7           8694-:TSEQEQU
   HIOT0           8695-:TSEQEQU
   HIOT1           8695-:TSEQEQU
   HIOT2           8695-:TSEQEQU
   HIOT3           8695-:TSEQEQU
   HIOT4           8695-:TSEQEQU
   HIOT5           8695-:TSEQEQU
   HIOT6           8695-:TSEQEQU
   HIOT7           8695-:TSEQEQU
   HIOX0           8706-:TSEQEQU
   HIOX1           8706-:TSEQEQU
   HIOX2           8706-:TSEQEQU
   HIOX3           8706-:TSEQEQU
   HIOX4           8706-:TSEQEQU
   HIOX5           8706-:TSEQEQU
   HIOX6           8706-:TSEQEQU
   HIOX7           8706-:TSEQEQU
   I                 41-SET       43/GEN       43/GEN       43/GEN       43/GEN       44-SET       44/SET
   INIT:OLD         555/BEZ      569-EQU
   INIT:STC         557/BE       559/BE       561/BE     575.2/BE       599-EQU
   INITIAL2         520/BG       528-LCH
   INITIAL3         531-LW       540/BIR
   INITIAL4         533/BG       535/BCR      537/BCS      545-LI
   INITIAL5         542/B        551-EQU
   INITIAL7         577/BE       595-EQU
   INITIAL8         581/B        585/B        589/B        593/B        597/B        601/B        603-EQU
   INITP120         573/BE       587-EQU
   INITP150         575/BE       591-EQU
   INITP75          571/BE       583-EQU
   INIT0            446/BNE      452-LI
   INTSVV          7745-DATA    7746/XPSD    8607/LPSD
   IOCDMSG         4712-STW     5489/BAL
   IOCDMSGM        4714/STW     4716/STW     4719/STW     4721/STW     4723/DATA    7797-TEXTC
   IRGMAX           620-DATA    3970/CW      3980/LW
   IRGMIN           621-DATA    3968/CW      3983/LW
   IRGTM           3938/STW     3966/STW     3977/LW      7670-DATA
   ISBF0           8702-:TSEQEQU
   ISBF1           7301/:TSEQ   8702-:TSEQEQU
   ISBF2           8702-:TSEQEQU
   ISBF3           8702-:TSEQEQU
   ISBF4           8702-:TSEQEQU
   ISBF5           8702-:TSEQEQU
   ISBF6           8702-:TSEQEQU
   ISBF7           8702-:TSEQEQU
   ISBT0           7272/:TSEQ   7295/:TSEQ   7301/:TSEQ   7305/:TSEQ   8703-:TSEQEQU
   ISBT1           7261/:TSEQ   7283/:TSEQ   7284/:TSEQ   7303/:TSEQ   7305/:TSEQ   8703-:TSEQEQU
   ISBT2           7261/:TSEQ   8703-:TSEQEQU
   ISBT3           7272/:TSEQ   7283/:TSEQ   7284/:TSEQ   7295/:TSEQ   7301/:TSEQ   7303/:TSEQ   7305/:TSEQ
      8703-:TSEQEQU
   ISBT4           7259/:TSEQ   7272/:TSEQ   7295/:TSEQ   7301/:TSEQ   7303/:TSEQ   7305/:TSEQ
      8703-:TSEQEQU
   ISBT5           8703-:TSEQEQU
   ISBT6           8703-:TSEQEQU
   ISBT7           8703-:TSEQEQU
   ISBX0           8710-:TSEQEQU
   ISBX1           8710-:TSEQEQU
   ISBX2           8710-:TSEQEQU
   ISBX3           8710-:TSEQEQU
   ISBX4           8710-:TSEQEQU
   ISBX5           8710-:TSEQEQU
   ISBX6           8710-:TSEQEQU
   ISBX7           8710-:TSEQEQU
   ITALLY          7610/STW     7633-DO      7634/DTALLY  7635/DTALLY  7637/DATA
   ITHDIS           344/BAL      353-EQU      399/BAL
   ITHDLR           334-STW      390/LI       875/LI       950/LI
   ITHM2            337/STB      339/DATA     368-TEXTC
   ITHM3            357/STH      359/DATA     369-TEXTC
   ITHM4            347/STW      349/DATA     370-TEXTC
   ITHRST           350/LW       365-DATA     395/STW      879/STW      954/STW
   ITHSAV           354/STW      360/B*       362-DATA
   ITHSAVE          334/STW      351/B*       366-DATA
   ITHSUBT          355/LW       364-DATA     393/STW     7001/LW
   ITHTEST          335/LW       340/CW       342/CW       363-DATA     734/STW      800/STW      842/LW
       877/STW      893/LW       952/STW      994/STW     5509/CW      6997/LW      7005/LW      7081/CW
      7148/CW
   JAHTC            420/STW      744/STW      775/STW      863/STW      946/STW      997/STW     2656/STW
      2677/STW     7667-DATA    8592/LW
   KSTC             600/LI       714-EQU
   K1201600         588/LI       665-EQU
   K1501600         592/LI       697-EQU
   K150800          596/LI       681-EQU
   K751600          584/LI       649-EQU
   K75800           580/LI       633-EQU
   L               1317/CW      1332/CW      1348/CW      1381/CW      1413/CW      1553/LW      1560/LW
   LASTWDR         5753/STW     6068/LW*     6070/STW*    6138/LW*     6140/STW*    7689-DATA
   LASTWDW         5749/STW     5904/LW*     5906/STW*    6065/LW*     6067/STW*    6135/LW*     6137/STW*
      7688-DATA
   LEN              222/:PROCDIC             1043-LW
   LENGTH          1055/STW     5729/LW      5740/LW      5765/LW      7742-DATA
   LEN1            1044/BGZ     1052-CW
   LINE3           7864/BNE     7877-BAL
   LNGTST          5064/STW     5571/AW      5594/LW      5741/STW     6184/CW      6190/LW      6514/STW
      6563/LW      6565/STW     7741-DATA
   LOOPMAX         6494/STW     6577/CW      7713-DATA
   LOOPTLY         5029/STW     5107/MTW     5112/LW      5116/LW      6497/STW     6574/MTW     6575/LW
      7154/LW      7171/LW      7650-DATA
   MASKBYT         5069/STW     5089/AND     5738/STW     5905/AND     6066/AND     6069/AND     6136/AND
      6139/AND     7718-DATA
   MAXBYT           464/STW     2985/CW      6356/AW      6368/LW      6377/LW      6380/SW      6381/AW
      6676/LW      6735/LW      7675-DATA
   MAXREAD          476/STW     3038/LCW     5051/CW      5053/LW      7251/LW      7678-DATA
   MAXREADB         469/STW     1052/CW      1054/LW      2987/CW      3145/CW      6488/CW      6490/LW
      7677-DATA
   MAXREC           461/STW     7676-DATA
   MESBADB         3434/STH     3436/DATA    3463/STH     3465/DATA    3487/STH     3489/DATA    7776-TEXTC
   MESCRC          3254/STB     3256/DATA    3294/STB     3296/DATA    7779-TEXTC
   MESCRCB         3315/DATA    3330/DATA    3338/DATA    3350/DATA    3358/DATA    7780-TEXTC
   MESEGT          2380/STW     2383/STH     2386/STH     2388/DATA    7782-TEXTC
   MESER           2280/STW     2283/STW     2286/STW     2289/STW     2293/DATA    7787-TEXTC
   MESEVT          3862/STW     3864/DATA    3870-TEXTC
   MESIRG          3979/STW     3982/STW     3985/STW     3987/DATA    7772-TEXTC
   MESNCR          3804/STW     3806/DATA    7775-TEXTC
   MESSEN          4181/STH     4184/STH     4186/DATA    4251/STH     4254/STH     4256/DATA    7781-TEXTC
   MESSNS          3543/STH     3545/DATA    3575/STH     3577/DATA    7777-TEXTC
   MESSNS1         6722/STH     6724/DATA    7778-TEXTC
   MESSTRT         3976/STW     3989/DATA    7773-TEXTC
   MESTPC          3814/STW     3817/STW     3819/DATA    7774-TEXTC
   MRTE            6729/STW     6731/STH     6739/STW     6741/STH     6743/DATA    7789-TEXTC
   MSER1           2291/DATA    2295/DATA    7786-TEXTC
   MTALLY          7610/STW     7615-SET     7637/DATA
   MXRAND          1184/STW   5541.1-DATA    5635/CW
   MYDELAY         1945/BAL     4735/BAL     5933/BAL     5940/BAL     5951/BAL     6027/BAL     6034/BAL
      6986-STD
   MYDELAY0        6999/BG      7013-BAL
   MYDELAY1        7011/B       7021-LW
   MYDELAY2        6989/B       7031-LD
   MYDELAY4        6984/B       6992-LI
   MYERROR         7075/BAL     7145-EQU
   MYERROR1        7149/BE      7163-LW
   MYTIMOUT        6267/BAL     6290/BAL     6314/BAL     6443/BAL     6982-STD
   MYTSTPT         6511/BAL     7204-STW
   MYTSTPT1        7209-LI      7216/BIR
   MYTSTPT2        7210/STH     7211-LW      7214/MTW     7215/BIR
   MYTSTPT4        7220-LW      7224/BIR     7225/BIR
   MYTSTPT5        7230-LW      7235/BIR
   MYTSTPT6        7239/STH     7244-STB     7248/BIR     7249/BIR
   MYTSTPT7        7242/STH     7246-AI      7247/MTW
   NMLOOP         734.7/STW      755/MTW      868/STW     5113/CW      7652-DATA
   NOLOAD          6955/DATA    7765-TEXTC
   NOREAD          2853/STW     2949/CW      2989/STW     7679-DATA
   NZDATA1         7209/LI      7211/LW      7719-DATA
   NZDATA2         7220/LW      7724-DATA
   NZDATA3         7230/LW      7730-DATA
   OPFLAG          5043/STW     5094/LW      7182/AW      7183/AW      7184/AW      7653-DATA
   OPMESG1         4144/STW     4146/DATA    7766-TEXTC
   OPMESG2         4117/DATA    4299/DATA    7767-TEXTC
   OPMESG3         4444/DATA    7768-TEXTC
   OPMESG4         4463/DATA    7769-TEXTC
   OPMESG5         4433/DATA    7770-TEXTC
   OPMESG6         4368/DATA    7771-TEXTC
   OPMESG7         4322/STW     4325/DATA    7783-TEXTC
   OPMESG8         4295/DATA    7785-TEXTC
   OSBF0           7268/:TSEQ   7292/:TSEQ   7307/:TSEQ   8692-:TSEQEQU
   OSBF1           7263/:TSEQ   7264/:TSEQ   7265/:TSEQ   7269/:TSEQ   7270/:TSEQ   7271/:TSEQ   7275/:TSEQ
      7276/:TSEQ   7286/:TSEQ   7287/:TSEQ   7288/:TSEQ   7290/:TSEQ   7291/:TSEQ   7293/:TSEQ   7294/:TSEQ
      7296/:TSEQ   7299/:TSEQ   7301/:TSEQ   8692-:TSEQEQU
   OSBF2           8692-:TSEQEQU
   OSBF3           8692-:TSEQEQU
   OSBF4           8692-:TSEQEQU
   OSBF5           8692-:TSEQEQU
   OSBF6           8692-:TSEQEQU
   OSBF7           7300/:TSEQ   8692-:TSEQEQU
   OSBT0           7277/:TSEQ   7279/:TSEQ   7293/:TSEQ   7296/:TSEQ   7301/:TSEQ   7305/:TSEQ
      8693-:TSEQEQU
   OSBT1           7273/:TSEQ   7283/:TSEQ   7284/:TSEQ   7303/:TSEQ   7305/:TSEQ   8693-:TSEQEQU
   OSBT2           8693-:TSEQEQU
   OSBT3           8693-:TSEQEQU
   OSBT4           8693-:TSEQEQU
   OSBT5           8693-:TSEQEQU
   OSBT6           7303/:TSEQ   7305/:TSEQ   8693-:TSEQEQU
   OSBT7           8693-:TSEQEQU
   OSBX0           8705-:TSEQEQU
   OSBX1           7266/:TSEQ   7267/:TSEQ   8705-:TSEQEQU
   OSBX2           8705-:TSEQEQU
   OSBX3           8705-:TSEQEQU
   OSBX4           8705-:TSEQEQU
   OSBX5           8705-:TSEQEQU
   OSBX6           8705-:TSEQEQU
   OSBX7           8705-:TSEQEQU
   OUTMSG          6789/STW     6803/STB     6808/STB     6821/STS     6822/MTB     6826/STW     6828/STW
      6833/DATA    7663-RES
   P:T11CNT        1718/LW      1721/STW     7710-DATA
   P:T17%R#        1957/BAL     1997/BAL     2111-EQU
   P:T17%RR        1956/BAL     1992/BAL     2067-EQU
   P:T17%SF        1978/BAL     1987/BAL     2080-EQU
   P:T17%WR        1946/BAL     2049-EQU
   P:T17R#         1953/STW     1961/MTW     1967/MTW     1984/STW     1999/STW     2005/STW     2025/LW
      2033/LW      2035/STW     2112/LW      2135-DATA
   P:T17RA         2050/STW     2055/B*      2068/STW     2071/B*      2081/STW     2086/B*      2087/MTW
      2088/B*      2097/STW     2100/B*      2101/MTW     2102/B*      2136-DATA
   P:T17RBE        1975/B       2119-EQU
   P:T17RFE        1995/B       2131-EQU
   P:T17ROK        1973/BAL     1993/BAL     2096-EQU
   P:T17SBE        1980/B       2123-EQU
   P:T17SFE        1989/B       2127-EQU
   PATTFIX         1092/STW     5782/LW      7740-DATA
   PATTSED         1080/STW     5793/LW      7735-DATA
   PATTTK          1110/STW     5801/LW      5811/LW      7737-DATA
   PATTTS1         1118/STW     5826/LW      7738-DATA
   PATTTS2         1120/STW     5827/LW      7739-DATA
   PATTYPE         1076/STW     1088/STW     1104/STW     5778/LW      5896/CW      6058/CW      6128/CW
      7736-DATA
   PRBTALLY        5410/MTW     7595-DATA    7613/SET
   PRFTALLY        5365/MTW     7597-DATA    7613/SET
   PRINT             93-BAL       99/BDR
   PTALLY          7613-SET     7634/DTALLY
   PT00            2212/LI      2222/LW      3027/LI      3029/LW      5809/LW      5819/LW      7693-DATA
   PT00T           2219/STD     2220/STD     2235/MTW     2244/MTW     2248/MTW     2271/LW      2272/AW
      2273/AW      2281/LW      2284/LW      2287/LW      7692-DATA
   PT80            2317/LI      3035/LI      4175/CB      4182/LB      4247/CB      4252/LB      7701-DATA
   PWTALLY         5338/MTW     7594-DATA    7613/SET
   P2FLAG          6468/STW     6528/LW      7711-DATA
   RABA            5549-RES     5561/STW     5566/STW     5573/STW     5625/LW      5643/LW      5655/AWM
   RABC            5550-RES     5595/STW     5615/CW      5620/LW      5649/AWM
   RB              5177-EQU     5181/REDATA  5183/REDATA  5183/REDATA  5184/REDATA  5185/REDATA
      5189/REDATA  5190/REDATA  5190/REDATA  5191/REDATA  5191/REDATA  5193/REDATA  5194/REDATA
      5194/REDATA  5195/REDATA  5196/REDATA
   RBBAD           2847/LW      2851/STW     2866/STH     2867/MTW     2885/LI      2918/MTW     2925/STH
      7547-GEN
   RBCC            2929/LW      2935/STW     2937/STH     2951/LI      2991/STH     2993/LW      3000/STW
      7551-GEN
   RBCRC           3235/LW      3241/STW     3262/LI      7559-GEN
   RBCRCB          3321/LI      7563-GEN
   RBER0           5404-EQU     5443/BANZ
   RBER1           5407/BGEZ    5415-EQU
   RBER2           5418/BNE     5424-EQU
   RBER3           5422/BAZ     5429-EQU
   RBER4           5427/B       5437-EQU
   RBNP             505/LW       507/STW     1929/STH     1931/LW      1937/STW     1955/LI      3046/STH
      3048/LW      3054/STW     3077/LI      3138/STH     3140/LW      3142/STW     7555-GEN
   RBRAND          5261/LI      5271/LI      5438/LI      5547-RES     5574/LI
   RBUILD          5071/BAL     5557-EQU     6515/BAL     6567/BAL
   RBUILD0         5563/BAL     5578-EQU
   RBUILD1         5568/BAL     5582-EQU
   RBUILD2         5575/BAL     5586-EQU
   RBUILD3         5580/B       5584/B       5589-EQU
   RBUILD4         5597-EQU     5658/B
   RBUILD5         5599/BANZ    5607-EQU
   RBUILD6         5605/B       5612-EQU
   RBUILD7         5618-EQU     5636/BGE
   RBUILD8         5616/BL      5634-EQU
   RB099B          2726/LI      7533-GEN
   RB099BS         2758/LI      7545-GEN
   RB1000           502/LW       504/STW     2492/LI      3630/LI      4041/LI      4052/LI      4060/LI
      4062/LI      7567-GEN
   RB101B          7537-GEN
   RB101BS         2742/LI      7541-GEN
   RCBC            5551-RES     5613/STW     5639/LW      5648/LCW
   RECOUT          6779/STW     6782/STW     6786/DATA    7790-TEXTC
   REDAPT          7181/LI      7748-TEXT
   REDATA          5163-CNAME
   REMESG1         7165/STW     7167/STW     7170/STW     7173/STW     7175/STW     7180/DATA    7788-TEXTC
   REMESG2         7186/STW     7188/STW     7190/STW     7196/STW     7199/DATA    7792-TEXTC
   REMESG32        7153/STW     7156/STW     7158/STW     7160/DATA    7793-TEXTC
   REMSG30         7600-TEXTC   7629/STW     7631/DATA
   REMSG31         7601-TEXTC   7615/SET
   REMSG32         7602-TEXTC   7615/SET
   REMSG33         7603-TEXTC   7615/SET
   REMSG34         5119/STW     5122/DATA    7604-TEXTC
   RESETS          1443/BAL     1455/BAL     1626/BAL     1833/BAL     1842/BAL     2622/BAL     3192/BAL
      3209/BAL     4589/BAL     6969-EQU     6994/BAL
   REV               71-CNAME
   REVBRNCH         101/STW      102/B       1017-EQU
   REVCOUNT          68-SET       73/DO        77-SET       77/SET       82/GEN
   REVEND            78/DO       116-REV
   REVISION          90/LW        91/LW       106-REV
   REVPRINT          90-LW      1018/B
   REVSTART          69-SET       74-SET       81/ORG
   REWDLY          4533/BAL     4539/BAL     4545/BAL     4552/BAL     4559/BAL     4569/BAL     4613-EQU
   RF              5178-EQU     5187/REDATA  5190/REDATA  5192/REDATA  5194/REDATA  5194/REDATA
      5195/REDATA  5195/REDATA  5196/REDATA
   RFBAD           2843/LW      2846/STW     2865/STH     2899/LI      2919/MTW     2924/STH     7549-GEN
   RFCC            2939/STH     2964/LI      2992/STH     7553-GEN
   RFCRC           3276/LI      7561-GEN
   RFCRCB          3341/LI      7565-GEN
   RFER0           5359-EQU     5398/BANZ
   RFER1           5362/BGEZ    5370-EQU
   RFER2           5373/BNE     5379-EQU
   RFER3           5377/BAZ     5384-EQU
   RFER4           5382/B       5392-EQU
   RFNP            1930/STH     1991/LI      3047/STH     3106/LI      3139/STH     7557-GEN
   RFRAND          5231/LI      5241/LI      5393/LI      5546-RES     5567/LI
   RFSPEC           465/STH     6668/LI      7442-GEN
   RFSPEC1          466/STH     6732/LI      7444-GEN
   RF099B          2734/LI      7535-GEN
   RF099BS         2766/LI      7543-GEN
   RF100B          2502/LI      3762/LI      4346/LI      7570-GEN
   RF101B          2750/LI      7539-GEN
   RF16B           3774/LI      3913/LI      7572-GEN
   RIOCD           5553-RES     5591/STW     5631/STD*    5646/STD*
   RLINK           5555-RES     5558/STW     5576/B*
   RMAX            1179/CI      1182/LI      5541-EQU   5541.1/DATA    5545/RES     5546/RES     5547/RES
   RORDER          5554-RES     5590/STW     5619/LW      5642/LW
   RRETRY          1168/STW     6046/CW      6116/CW      7666-DATA
   RRTT            6666/STW     6712/MTW     6713/LW      7717-DATA
   RWALL           5036/BAL     5126/BAL     6526/BAL     6604/BAL     7098-STW
   RWLINK          7098/STW     7105/B*      7106-RES
   RWTLP           1438/BAL     1448/BAL     1467/BAL     1621/BAL     1644/BAL     1736/BAL     1782/BAL
      1826/BAL     1835/BAL     1851/BAL     1869/BAL     1896/BAL     1907/BAL     1916/BAL     1926/BAL
      2002/BAL     2039/BAL     2152/BAL     2162/BAL     2198/BAL     2221/BAL     2237/BAL     2406/BAL
      2417/BAL     2455/BAL     2469/BAL     2479/BAL     2541/BAL     2550/BAL     2573/BAL     2613/BAL
      2629/BAL     2638/BAL     3017/BAL     3147/BAL     3174/BAL     3198/BAL     3217/BAL     3596/BAL
      3834/BAL     3841/BAL     3848/BAL     3878/BAL     3997/BAL     4002/BAL     4019/BAL     4081/BAL
      4303/BAL     4369/BAL     4488/BAL     4620/BAL     4647/BAL     4665/BAL     5892/BAL     5993/BAL
      5999/BAL     6094/BAL     6159/BAL     6241/BAL     6255/BAL     6302/BAL     6444/BAL     6657/BAL
      6934-STW     7102/BAL
   RWTLP0          6943-EQU
   RWTLP1          6948-LW
   RWTLP2          6951/BANZ    6961-EQU
   RWTLP3          6941/B       6957-BAL
   S:PT               4/EQU
   SAVDEV           538/STW      818/LW       948/LW      4768/LW      6589/LW      7066/LW      7627/LW
      7673-RES
   SAVESIX          815/STW      817/LW       837/MTW      838/LW       944/STW      947/LW       975/MTW
       976/LW      4764/CW      7672-DATA
   SAVE45          6995/STD     7031/LD      7649-DATA
   SAVMODEL         553/STW     1715/LW      1789/LW      1923/LW      2859/LW      3601/LW      3956/LW
      4049/LW      4979/LW      7654-DATA
   SAVNUMB          541/STW      839/CW       977/CW      4759/LW      6587/LCW     7064/LCW     7621/LCW
      7674-DATA
   SB              5175-EQU     5182/REDATA  5184/REDATA  5185/REDATA  5186/REDATA  5186/REDATA
      5187/REDATA  5192/REDATA  5192/REDATA  5193/REDATA  5195/REDATA  5196/REDATA
   SBF1            1760/LI      7411-GEN
   SBR1            1749/LI      7409-GEN
   SB100           2424/LI      2431/LI      2458/LI      2588/LI      4230/LI      4259/LI      4562/LI
      7417-GEN
   SB100B          3755/LI      7405-GEN
   SB16B           3733/LI      3748/LI      3896/LI      3940/LI      7407-GEN
   SCBYT           3378/SH      3424/LI      3453/LI      3493/MTB     7391-GEN
   SEQ43GCR        4686/DATA    4689-:TSEQ
   SEQ43NRZ        4686/DATA    4687-:TSEQ
   SEQ43PE         4686/DATA    4688-:TSEQ
   SETDEN          4649/LI      4692-GEN
   SETSKP          4667/LI      4698-GEN
   SETTE            422/BAL     4951-LI
   SETWRT          4652/LI      4694-GEN
   SF              5176-EQU     5189/REDATA  5191/REDATA  5193/REDATA  5196/REDATA
   SFR1            1837/LI      7413-GEN
   SF100           2015/LI      2418/LI      2440/LI      2594/LI      3850/LI      4157/LI      4191/LI
      7415-GEN
   SF16CC          3951/LI      7424-GEN
   SIOF0           8698-:TSEQEQU
   SIOF1           8698-:TSEQEQU
   SIOF2           8698-:TSEQEQU
   SIOF3           8698-:TSEQEQU
   SIOF4           8698-:TSEQEQU
   SIOF5           8698-:TSEQEQU
   SIOF6           8698-:TSEQEQU
   SIOF7           8698-:TSEQEQU
   SIOT0           8699-:TSEQEQU
   SIOT1           8699-:TSEQEQU
   SIOT2           8699-:TSEQEQU
   SIOT3           8699-:TSEQEQU
   SIOT4           8699-:TSEQEQU
   SIOT5           8699-:TSEQEQU
   SIOT6           8699-:TSEQEQU
   SIOT7           8699-:TSEQEQU
   SIOX0           8708-:TSEQEQU
   SIOX1           8708-:TSEQEQU
   SIOX2           8708-:TSEQEQU
   SIOX3           8708-:TSEQEQU
   SIOX4           8708-:TSEQEQU
   SIOX5           8708-:TSEQEQU
   SIOX6           8708-:TSEQEQU
   SIOX7           8708-:TSEQEQU
   SMEAR           3179/BAL     7110-STW
   SMEARPTR        1866/BAL     1894/BAL     2146/BAL     2407/BAL     2639/BAL     2703/BAL     2789/BAL
      2835/BAL     2926/BAL     3379/BAL     3505/BAL     3594/BAL     4313/BAL     7114/B       7116-STW
   SMEARPTS        7111/B       7123-LW
   SMEARSP         2224/BAL     3700/BAL     4112/BAL     7113-STW
   SPACE           4943/DATA    5480/DATA    5484/DATA    6195/DATA    6784/DATA    7027/DATA    7178/DATA
      7625/DATA    7644/DATA    7794-TEXTC   8429/DATA    8848/DATA    8972/DATA
   SPBRAND         2648/LI      3066/LI      3129/LI      4077/LI      5311/LI      5344/LI      5380/LI
      5387/LI      5969/LI      6049/LI      6710/LI      6744/LI      6766/LI      7446-GEN
   SPFLAG          2215/STW     2275/MTW     2320/LW      2439/STW     2447/MTW     2449/LW      2465/MTW
      2467/LW      2653/STW     2669/MTW     2674/MTW     2678/LW      2702/STW     2717/MTW     2725/MTW
      2733/MTW     2741/MTW     2749/MTW     2757/MTW     2765/MTW     2773/MTW     2774/LW      2788/STW
      2803/MTW     2808/MTW     2816/MTW     2821/MTW     2822/LW      2877/STW     2892/MTW     2897/MTW
      2906/MTW     2911/MTW     2912/LW      2942/STW     2958/MTW     2963/MTW     2971/MTW     2976/MTW
      2977/LW      3076/STW     3084/MTW     3089/MTW     3090/LW      3105/STW     3113/MTW     3118/MTW
      3119/LW      3261/STW     3269/MTW     3275/MTW     3283/MTW     3289/MTW     3290/LW      3305/STW
      3328/MTW     3336/MTW     3348/MTW     3356/MTW     3360/LW      3382/STW     3396/MTW     3401/MTW
      3409/MTW     3414/MTW     3415/LW      3423/STW     3447/MTW     3452/MTW     3476/MTW     3481/MTW
      3482/LW      3515/STW     3523/MTW     3528/MTW     3536/MTW     3546/MTW     3555/MTW     3560/MTW
      3568/MTW     3578/MTW     3579/LW      4032/STW     4040/MTW     4048/MTW     4059/MTW     4069/MTW
      4070/LW      4200/STW     4208/MTW     4213/MTW     4214/LW      4268/STW     4276/MTW     4281/MTW
      4282/LW      7712-DATA
   SPFRAND         3100/LI      5291/LI      5425/LI      5432/LI      6119/LI      6757/LI      7448-GEN
   STDELAY         6982/STD     6986/STD     7035/LD      7648-DATA
   STOPDIF          624-DATA    3791/SW
   STOPI           6856/LW      6925-XPSD
   STOPIT          6846/STW     6880/STW     6900/STW     6925/XPSD    6930-DATA
   STOP2           6853/LW      6926-XPSD
   STOP2T          6844/STW     6882/STW     6902/STW     6926/XPSD    6929-DATA
   STRTME          3925/STW     3961/SW      3974/LW      7661-DATA
   ST1155          1016/STW     1033/B*      6776/STW     6837/B*      6842/STW     6923/BAL*    7684-DATA
   ST15             440/STW      526/B*       549/B*       567/B*       614/B*      6934/STW     6964/B*
      6970/STW     6978/B*      7656-DATA
   ST151           7040/STW     7047/B*      7052/STW     7059/B*      7110/STW     7113/STW     7116/STW
      7141/B*      7669-DATA
   ST1512          7070/STW     7090/LW      7655-DATA
   SYTDEVA          262-DATA     531/LW       610/LW
   TDVF0           7272/:TSEQ   7277/:TSEQ   7278/:TSEQ   7279/:TSEQ   7285/:TSEQ   7290/:TSEQ   7295/:TSEQ
      7307/:TSEQ   8696-:TSEQEQU
   TDVF1           7286/:TSEQ   8696-:TSEQEQU
   TDVF2           7287/:TSEQ   8696-:TSEQEQU
   TDVF3           7262/:TSEQ   7266/:TSEQ   7267/:TSEQ   7288/:TSEQ   8696-:TSEQEQU
   TDVF4           7273/:TSEQ   7283/:TSEQ   8696-:TSEQEQU
   TDVF5           7294/:TSEQ   8696-:TSEQEQU
   TDVF6           7281/:TSEQ   8696-:TSEQEQU
   TDVF7           7309/:TSEQ   7310/:TSEQ   8696-:TSEQEQU
   TDVT0           7303/:TSEQ   7305/:TSEQ   8697-:TSEQEQU
   TDVT1           7268/:TSEQ   7269/:TSEQ   7270/:TSEQ   7292/:TSEQ   7299/:TSEQ   7300/:TSEQ   7301/:TSEQ
      7307/:TSEQ   7310/:TSEQ   8697-:TSEQEQU
   TDVT2           7286/:TSEQ   8697-:TSEQEQU
   TDVT3           7265/:TSEQ   7270/:TSEQ   7274/:TSEQ   7275/:TSEQ   7276/:TSEQ   7291/:TSEQ   7293/:TSEQ
      7294/:TSEQ   8697-:TSEQEQU
   TDVT4           7284/:TSEQ   8697-:TSEQEQU
   TDVT5           7262/:TSEQ   7263/:TSEQ   7264/:TSEQ   7274/:TSEQ   7286/:TSEQ   7287/:TSEQ   7291/:TSEQ
      7311/:TSEQ   8697-:TSEQEQU
   TDVT6           7280/:TSEQ   8697-:TSEQEQU
   TDVT7           8697-:TSEQEQU
   TDVX0           8707-:TSEQEQU
   TDVX1           7296/:TSEQ   8707-:TSEQEQU
   TDVX2           8707-:TSEQEQU
   TDVX3           7311/:TSEQ   8707-:TSEQEQU
   TDVX4           8707-:TSEQEQU
   TDVX5           8707-:TSEQEQU
   TDVX6           8707-:TSEQEQU
   TDVX7           8707-:TSEQEQU
   TESTNO          2188/STW     2310/STW     7855/LW      7885-DATA
   TEXTADR           92/STW       94-DATA
   TIMDLY          4536/BAL     4542/BAL     4549/BAL     4556/BAL     4566/BAL     4572-EQU
   TIMDLZ          4587/B       4592-EQU
   TIMEOUT         7009/STW     7010/STW     7017/STW     7019/STW     7024/STW     7029/DATA    7791-TEXTC
   TIME1           3731/MW      6878/STW     7685-DATA
   TIME2           3782/MW      3922/MW      6898/STW     7686-DATA
   TIME3           3959/MTW     3960/MW      6918/STW     7687-DATA
   TIMLNK          4573/STW     4576/MTW     4600/B*      4603/STW     4611/B*      4614/STW     4622/B*
      4624-RES
   TIMMSG          4595/STW     4598/DATA    4625-TEXTC
   TIMMSG0         4537/DATA    4626-TEXTC
   TIMMSG1         4543/DATA    4627-TEXTC
   TIMMSG2         4550/DATA    4628-TEXTC
   TIMMSG3         4557/DATA    4629-TEXTC
   TIMMSG4         4567/DATA    4630-TEXTC
   TIMWRT          4546/BAL     4553/BAL     4560/BAL     4602-EQU
   TIOF0           7259/:TSEQ   7260/:TSEQ   7261/:TSEQ   7289/:TSEQ   7290/:TSEQ   7309/:TSEQ
      8690-:TSEQEQU
   TIOF1           7268/:TSEQ   7296/:TSEQ   7309/:TSEQ   7310/:TSEQ   8690-:TSEQEQU
   TIOF2           7268/:TSEQ   7296/:TSEQ   7309/:TSEQ   8690-:TSEQEQU
   TIOF3           7310/:TSEQ   8690-:TSEQEQU
   TIOF4           4687/:TSEQ   4688/:TSEQ   4689/:TSEQ   7265/:TSEQ   7266/:TSEQ   7268/:TSEQ   7269/:TSEQ
      7270/:TSEQ   7271/:TSEQ   7273/:TSEQ   7275/:TSEQ   7277/:TSEQ   7278/:TSEQ   7279/:TSEQ   7283/:TSEQ
      7284/:TSEQ   7285/:TSEQ   7287/:TSEQ   7288/:TSEQ   7289/:TSEQ   7291/:TSEQ   7292/:TSEQ   7294/:TSEQ
      7296/:TSEQ   7307/:TSEQ   8690-:TSEQEQU
   TIOF5           7268/:TSEQ   7289/:TSEQ   7296/:TSEQ   8690-:TSEQEQU
   TIOF6           7268/:TSEQ   7289/:TSEQ   7296/:TSEQ   8690-:TSEQEQU
   TIOF7           7300/:TSEQ   8690-:TSEQEQU
   TIOT0           7311/:TSEQ   7312/:TSEQ   8691-:TSEQEQU
   TIOT1           7299/:TSEQ   7307/:TSEQ   8691-:TSEQEQU
   TIOT2           7299/:TSEQ   7307/:TSEQ   7310/:TSEQ   8691-:TSEQEQU
   TIOT3           4687/:TSEQ   4688/:TSEQ   4689/:TSEQ   7266/:TSEQ   7267/:TSEQ   7289/:TSEQ   7290/:TSEQ
      7299/:TSEQ   7301/:TSEQ   7307/:TSEQ   7309/:TSEQ   7311/:TSEQ   7312/:TSEQ   8691-:TSEQEQU
   TIOT4           7259/:TSEQ   7263/:TSEQ   7264/:TSEQ   7267/:TSEQ   7272/:TSEQ   7274/:TSEQ   7276/:TSEQ
      7286/:TSEQ   7290/:TSEQ   7293/:TSEQ   7295/:TSEQ   7301/:TSEQ   7303/:TSEQ   7305/:TSEQ   7312/:TSEQ
      8691-:TSEQEQU
   TIOT5           7299/:TSEQ   7307/:TSEQ   8691-:TSEQEQU
   TIOT6           7299/:TSEQ   7307/:TSEQ   8691-:TSEQEQU
   TIOT7           8691-:TSEQEQU
   TIOX0           8704-:TSEQEQU
   TIOX1           8704-:TSEQEQU
   TIOX2           8704-:TSEQEQU
   TIOX3           8704-:TSEQEQU
   TIOX4           8704-:TSEQEQU
   TIOX5           8704-:TSEQEQU
   TIOX6           8704-:TSEQEQU
   TIOX7           8704-:TSEQEQU
   TITLE              4-EQU       67/TITLE    276/TEXTC
   TLOOP           6652/STW     6687/LW      6727/LW      6752/LW      6768/MTW     6769/LW      6780/LW
      7715-DATA
   TNS1D           1412/LW      7333/GEN     7680-DATA
   TPDMP           2617/LI      7453-GEN
   TRBDC06          511/LW       513/STW      514/LW       516/STW     2796/LI      7581-GEN
   TRBTALLY        5405/MTW     7596-DATA    7614/SET
   TRB1            1738/LI      7523-GEN
   TRB100B          498/LW       500/STW     2684/LI      2710/LI      3389/LI      3440/LI      3516/LI
      4124/LI      4148/LI      4201/LI      4334/LI      7529-GEN
   TRB100C          501/STW     2657/LI      7531-GEN
   TRFBC           1905/STH     1908/LI      1914/MTW     7525-GEN
   TRFDC48          508/LW       510/STW     2809/LI      7585-GEN
   TRFTALLY        5360/MTW     7598-DATA    7614/SET
   TRF100B         2164/LI      2239/LI      2718/LI      3402/LI      3469/LI      3548/LI      4132/LI
      4220/LI      4269/LI      7527-GEN
   TRWAI           1632/LI      1670/LI      1686/LI      4494/LI      4541/LI      4555/LI      7353-GEN
   TRWOF           4453/LI      7450-GEN
   TRWOI           4535/LI      4548/LI      4565/LI      7349-GEN
   TRWOL           1658/LI      3647/LI      6937/LI      7351-GEN
   TSC1            1306/LI      7403-GEN
   TSC1D           1303/STW     1316/LW      1347/LW      3507/STB     3537/CB      3541/LB      3547/STB
      3569/CB      3573/LB      4167/STB     4174/LB      4179/LB      4239/STB     4246/LB      4249/LB
      4301/STB     6720/LB      7327/GEN     7335/GEN     7343/GEN     7393/GEN     7403/GEN     7659-DATA
   TSC2            1322/LI      7325-GEN
   TSC2D           1331/LW      7325/GEN     7681-DATA
   TSC3            1337/LI      7327-GEN
   TSC5            4193/LI      4261/LI      5389/LI      5434/LI      7335-GEN
   TSE             1494/LI      4029/LI      7337-GEN
   TSECC           1584/LI      7339-GEN
   TSENSE          3529/LI      3561/LI      4168/LI      4240/LI      5385/LI      5430/LI      6701/LI
      7393-GEN
   TSEQ001         1490/LI      7259-:TSEQ
   TSEQ002         1504/LI      7260-:TSEQ
   TSEQ003         1518/LI      7261-:TSEQ
   TSEQ005         4466/DATA    7262-:TSEQ
   TSEQ006         1744/LI      1755/LI      7263-:TSEQ
   TSEQ007         1766/LI      7264-:TSEQ
   TSEQ008         1785/LI      7265-:TSEQ
   TSEQ008S        1802/LI      7266-:TSEQ
   TSEQ008U        1810/LI      7267-:TSEQ
   TSEQ010         1872/LI      2099/DATA    2713/DATA    2721/DATA    2799/DATA    2812/DATA    2888/DATA
      2902/DATA    2954/DATA    2967/DATA    3080/DATA    3109/DATA    3182/LI      3265/DATA    3279/DATA
      3324/DATA    3344/DATA    3392/DATA    3405/DATA    3443/DATA    3472/DATA    3519/DATA    3551/DATA
      3622/LI      3765/DATA    4126/LI      4134/LI      4204/DATA    4272/DATA    4336/LI      4348/LI
      7268-:TSEQ
   TSEQ011         2054/DATA    2412/LI      2420/LI      2426/LI      2443/DATA    2461/DATA    2577/LI
      2643/LI      2665/DATA    2706/LI      2793/DATA    2880/LI      2945/LI      3061/LI      3248/DATA
      3310/DATA    3385/LI      3427/DATA    3456/DATA    3510/LI      3707/LI      3736/DATA    3743/DATA
      3751/DATA    3758/DATA    3890/LI      3899/DATA    3932/LI      3943/DATA    4120/LI      4329/LI
      5889/LI      5958/DATA    7269-:TSEQ
   TSEQ011P        5887/LI      7270-:TSEQ
   TSEQ011Q        5942/DATA    7271-:TSEQ
   TSEQ012         2729/DATA    2737/DATA    7272-:TSEQ
   TSEQ013         1376/LI      1392/LI      3532/DATA    3564/DATA    7273-:TSEQ
   TSEQ014         2433/LI      2686/LI      7274-:TSEQ
   TSEQ015         2085/DATA    2485/DATA    2545/LI      2554/LI      2584/LI      7275-:TSEQ
   TSEQ016         2590/LI      2596/LI      7276-:TSEQ
   TSEQ017         2745/DATA    2753/DATA    7277-:TSEQ
   TSEQ018         1343/LI      1408/LI      7278-:TSEQ
   TSEQ019         2761/DATA    2769/DATA    7279-:TSEQ
   TSEQ020         4036/DATA    4044/DATA    4055/DATA    7280-:TSEQ
   TSEQ021         4065/DATA    7281-:TSEQ
   TSEQ023         4152/LI      4225/DATA    7283-:TSEQ
   TSEQ024         4160/LI      4233/LI      7284-:TSEQ
   TSEQ025         4170/LI      4242/LI      4263/LI      7285-:TSEQ
   TSEQ026         4374/LI      4391/LI      4411/LI      7286-:TSEQ
   TSEQ026P        4383/LI      4400/LI      4420/LI      7287-:TSEQ
   TSEQ030         1281/LI      1795/LI      7288-:TSEQ
   TSEQ033         1312/LI      1327/LI      7289-:TSEQ
   TSEQ034         1241/LI      1257/LI      7290-:TSEQ
   TSEQ035         2569/LI      4195/LI      7291-:TSEQ
   TSEQ036         1900/LI      2157/DATA    7292-:TSEQ
   TSEQ037         2495/DATA    2505/DATA    7293-:TSEQ
   TSEQ038         2562/LI      7294-:TSEQ
   TSEQ039         1910/LI      7295-:TSEQ
   TSEQ040         6041/DATA    6111/DATA    7296-:TSEQ
   TSEQ0600        1444/LI      7299-:TSEQ
   TSEQ0601        1456/LI      2623/LI      7300-:TSEQ
   TSEQ0602        1462/LI      7301-:TSEQ
   TSEQ1000        1627/LI      7307-:TSEQ
   TSEQ1001        1640/LI      7309-:TSEQ
   TSEQ3000        3193/LI      7303-:TSEQ
   TSEQ3001        3211/DATA    7305-:TSEQ
   TSEQ4001        4456/LI      7310-:TSEQ
   TSEQ4101        4500/LI      7311-:TSEQ
   TSEQ4102        4514/LI      7312-:TSEQ
   TSE1            2346/LI      3071/LI      3716/LI      3844/LI      5346/LI      5975/LI      7321-GEN
   TSE3            1273/LI      7323-GEN
   TSFB            1977/LI      2560/LI      2567/LI      7421-GEN
   TSFF            1986/LI      2008/LI      2552/LI      7419-GEN
   TSNS1           1369/LI      7329-GEN
   TSNS10          1380/LW      7329/GEN     7347/GEN     7658-DATA
   TSNS2           1385/LI      7331-GEN
   TSNS20          1396/LW      7331/GEN     7682-DATA
   TSNS3           1401/LI      7333-GEN
   TSNS4           1508/LI      1593/CI      7343-GEN
   TST0             216/:PROCDIC 731-EQU
   TST0A            746-LW       764/B
   TST00MG0         759/DATA    7800-TEXTC
   TST001           754-EQU      843/BEZ
   TST002           756/BEZ      762-BAL
   TST06E          1439/LI      7502-GEN     7504/GEN
   TST06R          1450/LI      7506-GEN
   TST1             217/:PROCDIC 394/LI       773-EQU      849/B
   TST10W          1622/LI      7516-GEN     7518/GEN
   TST101           752/B        801/B        813-EQU      845/BE      1012/B
   TST101A          778/BLEZ     781/BG       804-STW
   TST101B          783/BG       810-STW
   TST101C          785/BLE      788/BNE      792-STW
   TST102           817-LW       840/BL       895/BNE
   TST103           826/BCS      831-EQU
   TST2             218/:PROCDIC 861-EQU      878/LI       899/B
   TST2ILE         5219/BAL     5245/BAL     5249/BAL     5275/BAL     5279/BAL     5493-EQU
   TST2IOE         5327/B       5340/BAL     5367/BAL     5412/BAL     5446-EQU     8951/BAL
   TST2LEN         5216/BAL     5242/BAL     5272/BAL     5660-EQU
   TST2LUP         5663-EQU     5676/B
   TST201           866/BGZ      868-STW
   TST201A        734.3/BLZ      865/BLZ      883-STW
   TST201B          738/BLZ      870/BLZ      889-STW
   TST202           760/B        874-STW
   TST203           892-EQU     5127/B
   TST22CNT        2478-EQU     2481/LI      2491/LI      2501/LI      2515/LI
   TST22DSP        2488/BAL     2498/BAL     2508/BAL     2512-EQU
   TST22ERR        2513/STW     2522-DATA
   TST22LNK        2514/STW     2525/B*      2526/B*      2527-DATA
   TST22MSG        2518/STW     2520/DATA    7795-TEXTC
   TST3             219/:PROCDIC 942-EQU      953/LI       978/BCS      983/B
   TST3DSP         5990/BAL     6088/BAL     6156/BAL     6162-EQU
   TST3DSPL        6166/STW     6177/B*      6178-DATA    6180/STW     6198/B*
   TST3DSPM        6164/STW     6170/STW*    6172/STH*    6175-DATA
   TST3ERS         4408/LI      5878/LI      7461-GEN
   TST3LEN         5217/BAL     5243/BAL     5273/BAL     6055/BAL     6125/BAL     6180-STW
   TST3OPR         5883/STW     5911/LW      7683-DATA
   TST3RB           472/STH      473/MTH     5769/LW      5774/STW     6103/LI      6124/LW      7576-GEN
   TST3RF           470/STH      471/MTH     6005/LI      6054/LW      6243/LI      7578-GEN
   TST3SEQ         5890/STW     5958-DATA
   TST3WRT         5766/STH     5882/LI      7463-GEN
   TST30R           494/STS      495/MTW     3204/LI      7512-GEN     7514/GEN
   TST30W          3187/LI      7508-GEN     7510/GEN
   TST31            957/BEZ     5707-LW      5726/B
   TST310A         5855-LI      5861/BIR     5862/BDR
   TST3101A        5731/BEZ     5738-STW
   TST3102         5708/BGEZ    5717-LW
   TST3103         5718/BGZ     5722-LW
   TST3105         5780/BNE     5789-CI
   TST3107         5790/BNE     5798-CI
   TST3108         5804/BL      5809-LW
   TST3109         5814/BL      5819-LW
   TST3109A        5823-LI      5845/BL
   TST3110         5826-LW      5841/BIR
   TST3111         5787/B       5796/B       5799/BNE     5864-EQU
   TST3112         5874-EQU
   TST3112A        5910-BAL     5974/BLE
   TST3112B        5895-EQU     5985/BL
   TST3112C        5908-LI      5977/B
   TST3112D        5919/BNE     5922/BCR     5931/BAZ     5950-EQU
   TST3112E        5925/BANZ    5940-BAL
   TST3112F        5945-BAL     5966/BEZ
   TST3114         5938/B       5943/B       5948/B       5959/B       5963/BE      5979-EQU
   TST3115         5937/BANZ    5955/BANZ    5987-EQU
   TST3116         6002-LI      6051/B       6083/BL
   TST3116A        5867/BE      5869/BE      5999-BAL
   TST3116B        6013/BNE     6016/BCR     6019/BANZ    6025/BAZ     6034-BAL
   TST3117A        6042/B       6047/BG      6054-LW
   TST3117B        6059/BNE     6065-LW
   TST3117C        6056/B       6058-CW
   TST3118         6032/B       6075/B       6077-EQU
   TST3118A        6031/BANZ    6038/BANZ    6085-EQU
   TST3119         5871/BE      6092/BNE     6098-LI      6153/BL
   TST3119B        6101-EQU     6121/B
   TST3120A        6112/B       6117/BG      6124-LW
   TST3120B        6129/BNE     6135-LW
   TST3120C        6126/B       6128-CW
   TST3121         6145/B       6147-EQU
   TST3122         6108/BANZ    6155-EQU
   TST32            959/BEZ     6218-LI
   TST32RB         6281/LI      7469-GEN     7471/GEN
   TST32RF         6304/LI      7473-GEN     7475/GEN
   TST32W          6257/LI      7465-GEN     7467/GEN
   TST3202         6223/BGE     6255-BAL     6266/BCS     6268/B       6276/B       6278/B
   TST3202A        6261/BNEZ    6271-TDV
   TST3202C        6232/BE      6240-HIO     6247/BCS
   TST3202D        6243-LI      6253/B
   TST3203         6227/BEZ     6280-BAL     6291/B       6298/B       6326/BEZ     6329/BE
   TST3203A        6285/BNEZ    6293-TDV
   TST3205         6225/BEZ     6288/BCS     6302-BAL     6330/B
   TST3206         6230/BE      6300/B       6303-BAL     6315/B       6322/B
   TST3206A        6308/BNEZ    6317-TDV
   TST3207         6313/BCS     6325-CW
   TST33            961/BEZ     6346-LW
   TST33R          6371/STW     6386/STW     6410/STW     6416/LI      7479-GEN
   TST33S          6407/STW     6436/LI      7477-GEN
   TST3301         6348/BLEZ    6353/B       6362-STW
   TST3302         6359/BGE     6367-LI      6394/B
   TST3303         6377-LW      6383/BIR
   TST3304         6379/BGE     6384-AND
   TST3306         6388/BEZ     6404-LW
   TST3307         6390/BEZ     6397-LW
   TST3309         6415-BAL     6440/B
   TST3310         6420/B       6423-TDV
   TST3311         6421/B       6429/B       6443-BAL
   TST34            963/BEZ     6466-EQU
   TST34CCS        4776/LB      4809/STCF    4822-DATA    4861/LB
   TST34DSP        3645/BAL     4831-LI
   TST34DSS        3678/BAL     4832-LI
   TST34DST        4829/B       4841-BAL
   TST34DS0        4844-LW      4882/BNE
   TST34DS1        4852-LI      4859/BDR
   TST34DS2        4868/BNE     4874-STW
   TST34IDS        4753-DATA    4844/LW
   TST34LNK        4805/STW     4818/B*      4820-DATA    4828/STW     4834/STW     4837/B*      4883/B*
   TST34NXT        3638/BAL     3675/BAL     4742/BAL     4759-LW
   TST34REG        4782/MTW     4806/STW     4817/LW      4821-DATA    4827/STW     4833/STW     4839/LW
   TST34SNP        3639/BAL     4748/BAL     4802-LI
   TST34SNS        3677/BAL     4744/BAL     4805-STW
   TST34SN0        4808-EXU     4815/BNE
   TST34STK        4793/LH      4811/STH     4823-RES     4850/LH
   TST34TST        4772-EQU     4799/BNE     4836/BAL
   TST34TS0        4783/BEZ     4789-EQU
   TST34TS1        4787/B       4796-EQU
   TST34XEQ        4754-SIO     4808/EXU
   TST34XSP        4749/BAL     4825-LI
   TST34XSS        4745/BAL     4826-LI
   TST3401         6470/BL      6477-LW
   TST3405         6528-LW      6578/BLE
   TST3406         6529/BEZ     6531/B       6537-EQU
   TST3407         6532/B       6543-EQU
   TST3408         6533/B       6549-EQU
   TST3408A        6534/B       6555-EQU
   TST3409         6535/B       6559-EQU
   TST3410         6541/B       6547/B       6553/B       6557/B       6561/B       6563-LW
   TST3413         5510/BNE     6580-CW
   TST3413A        6582/BAZ     6584/BANZ    6601-EQU
   TST3414         6589-LW      6598/BIR
   TST35            965/BE      6626-LW
   TST3501         6628/BL      6636-LW      6641/B       6650/B
   TST3502         6637/BGZ     6643-LW
   TST3503         6645/BL      6652-STW
   TST3504         6659-LW      6771/BLE
   TST3505         6665-LI      6715/BL      6756/BE
   TST3505A        6699/BCS     6705-LI
   TST3505B        6717/BCR     6727-LW
   TST3505C        6682/BNE     6686-EQU
   TST3505D        6689/BNE     6691/BNE     6695-EQU
   TST3505E        6703/B       6709-EQU
   TST3507         6663/BCS     6752-LW
   TST3508         6661/BE      6765-EQU
   TST3509         6684/B       6693/B       6697/BCR     6762/B       6768-MTW
   TST3510         6673/BANZ    6749/B       6761/BCS     6772-EQU
   TST3511         6683/BAL     6692/BAL     6748/BAL     6776-STW
   TST3512         6801/BLE     6808-STB
   TST3513         6824-LW      6831/BIR
   TST3514         6800-CW      6836/BG
   TST3515         6806/B       6811-LCW
   TST36            973-CW      5996/BNEZ    6095/B       6160/B       6441/B       6445/B       6605/B
      6773/B
   TST37            974/BNE      980-EQU
   TST4             220/:PROCDIC 992-EQU
   TST41MG0        4492/DATA    7798-TEXTC
   TST41MG1        4509/DATA    7799-TEXTC
   TST41SNP        4505/BAL     4519/BAL     4740-STW
   TS3LEMSG        6188/STW     6192/STW     6197/DATA    6200-TEXTC
   TS3RBMSG        6157/DATA    6203-TEXTC
   TS3RFMSG        6089/DATA    6202-TEXTC
   TS3WFMSG        5991/DATA    6201-TEXTC
   TTALLY          7614-SET     7635/DTALLY
   TWBC            1868/STH     1870/LI      1876/MTW     1878/CH      7367-GEN
   TWCRC           3231/LW      3234/STW     3245/LI      3300/MTW     7387-GEN
   TWCRCB          3307/LI      7389-GEN
   TWCREP          3718/LI      3740/LI      3888/LI      3930/LI      7399-GEN
   TWDC02          2790/LI      7377-GEN
   TWERSE          3713/LI      7397-GEN
   TWNP            1928/STH     2051/LI      3045/STH     3056/LI      3135/LH      3137/STH     7385-GEN
   TWRCC           1598/LI      1607/CI      7345-GEN
   TWRUE           1548/LI      7401-GEN
   TWR1            1235/LI      4803/LI      7315-GEN
   TWR2            1252/LI      7317-GEN
   TWR3            1481/LI      1524/LI      4511/LI      7319-GEN
   TWTALLY         5033/STW     5333/MTW     6501/STW     7593-DATA    7614/SET
   TWTM            1783/LI      1828/LI      1942/LI      2482/LI      2543/LI      2582/LI      3839/LI
      6593/LI      7355-GEN
   TWTMS           1800/LI      7357-GEN
   TWTMU           1808/LI      7361-GEN
   TWTM3           4388/LI      5880/LI      7365-GEN
   TW1B            2348/LI      7373-GEN
   TW1BCE          3836/LI      3842/LI      3846/LI      7375-GEN
   TW100B          1898/LI      2154/LI      2230/LI      2410/LI      2575/LI      2641/LI      2704/LI
      3383/LI      3508/LI      3705/LI      4118/LI      4327/LI      7369-GEN
   TW1000          3180/LI      3598/LI      3628/LI      3649/LI      4020/LI      4033/LI      4371/LI
      4449/LI      4607/LI      7395-GEN
   TW16B           3999/LI      7574-GEN
   T1ST0102        1199/BCS     1207-BAL     1211/ERROR   1216/ERROR
   T1ST0103        1210/B       1212-BAL
   T1ST0104        1215/B       1217-BAL     1221/ERROR
   T1ST0105        1220/B       1223-B
   T1ST0200        1238/B       1241-LI
   T1ST0201        1240/B       1245-HIO
   T1ST0202        1248/BCR     1250-LW      1255/ERROR   1260/B
   T1ST0203        1256/B       1261-BAL
   T1ST0204        1254/B       1257-LI
   T1ST0302        1276/B       1278-LI
   T1ST0304        1285-BAL
   T1ST0402        1308/B       1310-LI
   T1ST0404        1316-LW
   T1ST0405        1318/BEZ     1320-LW      1330/B       1334/ERROR
   T1ST0406        1324/B       1325-LI
   T1ST0408        1331-LW
   T1ST0409        1333/BEZ     1335-LW      1340/ERROR   1346/B       1350/ERROR
   T1ST0410        1339/B       1341-LI
   T1ST0412        1347-LW
   T1ST0413        1349/BEZ     1351-BAL
   T1ST0502        1372/B       1374-LI
   T1ST0505        1380-LW
   T1ST0506        1382/BEZ     1384-BAL     1389/ERROR   1395/B       1399/ERROR
   T1ST0507        1388/B       1390-LI
   T1ST0510        1396-LW
   T1ST0511        1398/BEZ     1400-BAL     1405/ERROR   1411/B       1415/ERROR
   T1ST0512        1404/B       1406-LI
   T1ST0515        1412-LW
   T1ST0516        1414/BEZ     1416-BAL
   T1ST06A         1436-EQU     1447/B       1459/B       1465/B
   T1ST06B         1454/B       1461-EQU
   T1ST06C         1460/B       1466-EQU
   T1ST0702        1484/B       1486-LI
   T1ST0703        1488/B       1490-LI
   T1ST0704        1494-LI      1499/ERROR   1503/ERROR   1507/B
   T1ST0705        1498/B       1500-LI
   T1ST0706        1502/B       1504-LI
   T1ST0707        1508-LI      1513/ERROR   1517/ERROR   1521/B       1533/ERROR   1537/ERROR
   T1ST0708        1512/B       1514-LI
   T1ST0709        1516/B       1518-LI
   T1ST0710        1522-BAL
   T1ST0711        1532/BCS     1534-TIO
   T1ST0712        1536/BCR     1538-BAL
   T1ST0802        1555/BEZ     1557-LI
   T1ST0803        1562/BEZ     1564-LI
   T1ST0804        1568/B       1570-BAL
   T1ST0902        1586/B       1588-LI
   T1ST0903        1590/B       1592-TIO
   T1ST0904        1594/BEZ     1596-BAL     1601/ERROR   1605/ERROR   1609/ERROR
   T1ST0905        1600/B       1602-LI
   T1ST0906        1604/B       1606-TIO
   T1ST0907        1608/BEZ     1610-BAL
   T1ST1102        1660-TIO     1663/BCS
   T1ST1103        1667/BCS     1669-BAL     1678/ERROR   1684/ERROR
   T1ST1104        1674-TIO
   T1ST1105        1677/BCS     1679-HIO
   T1ST1106        1683/BEZ     1685-BAL     1694/ERROR   1701/ERROR   1711/ERROR
   T1ST1107        1693/BCS     1695-AIO
   T1ST1108        1700/BE      1702-TIO     1706/ERROR
   T1ST1109        1705/BCR     1707-LW
   T1ST1110        1710/BCS     1712-BAL
   T1ST1202        1742/B       1744-LI
   T1ST1203        1748-BAL     1754/ERROR   1758/B
   T1ST1204        1753/B       1755-LI
   T1ST1205        1759-BAL     1765/ERROR   1769/B
   T1ST1206        1764/B       1766-LI
   T1ST1207        1770-BAL
   T1ST1303        1800-LI      1805/B
   T1ST1304        1808-LI      1813/B
   T1ST1401        1832/B       1835-BAL
   T1ST1402        1841/B       1844-TIO
   T1ST1403        1849/BAZ     1851-BAL
   T1ST1404        1846/BANZ    1848-CW
   T1ST1502        1870-LI      1875/B       1879/BNE
   T1ST1504        1876-MTW
   T1ST1603        1898-LI      1903/B       1904/BIR
   T1ST1606        1907-BAL     1913/B
   T1ST1607        1908-LI      1915/BIR
   T1ST1701        1940-EQU     1950/BL
   T1ST1702        1954-EQU     1979/B
   T1ST1703        1960/BAZ     1966-EQU
   T1ST1704        1968/BGEZ    1972-EQU
   T1ST1705        1974/B       1976-EQU
   T1ST1706        1962/BLZ     1982-EQU
   T1ST1707        1985-EQU     2001/BL
   T1ST1708        1988/B       1990-EQU
   T1ST1709        1994/B       1996-EQU
   T1ST1710        2006-EQU     2037/BL
   T1ST1711        2022/BAZ     2032-EQU
   T1ST1799        1965/B       1971/B       2031/B       2038-EQU     2058/B       2118/B       2122/B
      2126/B       2130/B       2134/B
   T1ST18M         2189/LI      2311/LI      8111-TEXTC
   T1ST1802        2152-BAL
   T1ST1803        2154-LI      2161/BIR
   T1ST1804        2156-BAL
   T1ST1805        2158/B       2161-BIR
   T1ST1806        2164-LI      2180/BIR
   T1ST1807        2167-BAL
   T1ST1808        2168/B       2180-BIR
   T1ST1809        2192/B       2196-LI
   T1ST1901        2217-LI      2319/BG
   T1ST1903        2213/STH     2222-LW      2316/MTW     2318/CH
   T1ST1906        2230-LI      2236/BIR
   T1ST1909        2234/BCR     2236-BIR
   T1ST1910        2239-LI      2269/BIR
   T1ST1915        2247/B       2260/B       2269-BIR
   T1ST1916        2274/BEZ     2316-MTW
   T1ST1917        2251-LI      2268/BIR
   T1ST2001        2340-EQU     2367/BIR
   T1ST2003        2370/BL      2375/B       2376-BAL
   T1ST2004        2372/BL      2392-BAL
   T1ST2005        2357/BCS     2361-XW
   T1ST2011        2342/BEZ     2345-EQU
   T1ST2012        2344/B       2349-BAL
   T1ST2101        2409-EQU     2415/B       2416/BIR
   T1ST2102        2417-BAL     2423/B
   T1ST2103        2424-LI      2429/B
   T1ST2104        2430-EQU     2436/B
   T1ST2109        2437-LI      2456/B
   T1ST2111        2438-LI      2448/BIR
   T1ST2112        2444/B       2448-BIR     2468/BNEZ
   T1ST2114        2450/BEZ     2458-LI      2466/BIR
   T1ST2117        2454/B       2462/B       2466-BIR
   T1ST2201        2482-LI      2489/BIR
   T1ST2204        2486/B       2489-BIR
   T1ST2205        2492-LI      2499/BIR
   T1ST2206        2496/B       2499-BIR
   T1ST2207        2502-LI      2509/BIR
   T1ST2208        2506/B       2509-BIR
   T1ST2301        2543-LI      2548/B       2549/BIR
   T1ST2304        2550-BAL     2557/B       2565/B       2572/B
   T1ST2305        2552-LI      2558/BIR
   T1ST2307        2560-LI      2566/BIR
   T1ST2314        2575-LI      2580/B       2581/BIR
   T1ST2318        2573-BAL     2587/B       2593/B       2599/B
   T1ST2401        2615-EQU     2628/BDR
   T1ST2403        2621/B       2627-EQU
   T1ST2502        2641-LI      2650/B       2651/BIR
   T1ST2505        2647/B       2651-BIR
   T1ST2506        2655-LI      2675/BIR
   T1ST2509        2666/B       2670-BAL
   T1ST2510        2671/B       2675-BIR
   T1ST2511        2683/B       2690-BAL
   T1ST2512        2679/BEZ     2684-LI
   T1ST2607        2714/B       2718-LI
   T1ST2610        2722/B       2726-LI
   T1ST2613        2730/B       2734-LI
   T1ST2616        2738/B       2742-LI
   T1ST2619        2746/B       2750-LI
   T1ST2622        2754/B       2758-LI
   T1ST2624        2770/B       2774-LW
   T1ST2625        2762/B       2766-LI
   T1ST2628        2775/BEZ     2779-BAL
   T1ST2704        2794/B       2796-LI
   T1ST2707        2800/B       2804-BAL
   T1ST2708        2805/B       2809-LI
   T1ST2710        2813/B       2817-BAL     2818/B
   T1ST2711        2823/BEZ     2827-BAL
   T1ST2801        2861/BGE     2876-LI      2883/B       2916/B       2920/BIR
   T1ST2807        2889/B       2893-BAL
   T1ST2808        2894/B       2898-STD
   T1ST2811        2903/B       2907-BAL
   T1ST2812        2908/B       2913/BEZ     2917-MTW
   T1ST2813        2941-LI      2948/B       2981/B       3003/B
   T1ST2819        2955/B       2959-BAL
   T1ST2822        2960/B       2964-LI
   T1ST2825        2968/B       2972-BAL
   T1ST2828        2950/BEZ     2973/B       2978/BEZ     2982-LW
   T1ST2829        2988/BCS     2990-STH
   T1ST2830        2986/BCS     3004-BAL
   T1ST2901        3028/STH     3029-LW      3034/MTW     3036/CH      3037/BG
   T1ST2902        3056-LI      3070/BL      3073/B       3146/BCS
   T1ST2905        3065/B       3075-LI      3102/B
   T1ST2908        3081/B       3085-BAL     3086/B
   T1ST2909        3091/BE      3095/B       3104-LI      3131/B
   T1ST2912        3110/B       3114-BAL     3115/B
   T1ST2913        3099/BE      3120/BEZ     3124/B       3128/BE      3132-LW
   T1ST2914        3060/BCS     3144/BCS     3147-BAL
   T1ST3102        3245-LI      3259/B       3303/BIR
   T1ST3105        3249/B       3260-LI      3299/B
   T1ST3108        3266/B       3270-LH
   T1ST3109        3272/BEZ     3276-LI
   T1ST3112        3280/B       3284-LH      3286/BEZ
   T1ST3113        3291/BEZ     3300-MTW
   T1ST3114        3307-LI      3318/B       3319/BIR     3364/B
   T1ST3116        3311/B       3319-BIR
   T1ST3117        3321-LI      3339/BIR
   T1ST3119        3325/B       3331-LB
   T1ST3120        3333/BEZ     3339-BIR
   T1ST3121        3341-LI      3359/BIR
   T1ST3123        3345/B       3351-LB
   T1ST3124        3353/B       3359-BIR
   T1ST3202        3381-LI      3388/B       3419/B
   T1ST3208        3393/B       3397-BAL
   T1ST3209        3398/B       3402-LI
   T1ST3212        3406/B       3410-BAL
   T1ST3213        3411/B       3416/BEZ     3422-LI      3439/B       3492/B       3494/BIR
   T1ST3216        3428/B       3440-LI
   T1ST3219        3444/B       3448-BAL
   T1ST3220        3449/B       3453-LI      3468/B
   T1ST3223        3457/B       3469-LI
   T1ST3226        3473/B       3477-BAL     3478/B
   T1ST3227        3420/B       3483/BEZ     3493-MTB
   T1ST3302        3508-LI      3513/B
   T1ST3305        3514-LI      3583/B
   T1ST3308        3520/B       3524-BAL
   T1ST3309        3525/B       3529-LI
   T1ST3312        3533/B       3537-CB
   T1ST3313        3538/BEZ     3547-STB
   T1ST3316        3552/B       3556-BAL
   T1ST3317        3557/B       3561-LI
   T1ST3320        3565/B       3569-CB
   T1ST3321        3570/BE      3580/BEZ     3584-BAL
   T1ST3401        3597-BAL     3617/ERROR   3621/ERROR   3625/B       3626/BIR
   T1ST3402        3603/BNE     3605/BNEZ    3609-LI
   T1ST3403        3616/BE      3618-LI
   T1ST3404        3620/B       3622-LI
   T1ST3405        3627-BAL     3636/ERROR   3643/ERROR
   T1ST3407        3635/BE      3637-EQU
   T1ST3408        3642/B       3644-EQU
   T1ST3409        3654/BE      3657-EQU
   T1ST3410        3664/BE      3667-EQU
   T1ST3411        3671/BANZ    3674-EQU
   T1ST3502        3705-LI      3710/B
   T1ST3503        3712/BEZ     3715-EQU
   T1ST3506        3733-LI      3747/BIR
   T1ST3507        3714/B       3719-EQU
   T1ST3509        3737/B       3740-LI
   T1ST3512        3744/B       3747-BIR
   T1ST3515        3752/B       3755-LI
   T1ST3518        3759/B       3762-LI
   T1ST3521        3766/B       3769-BAL
   T1ST3522        3770/B       3773-BAL
   T1ST3523        3793/BCS     3808-CW
   T1ST3525        3792/BEZ     3799/BLE     3807/B       3809/BL      3823-BAL
   T1ST3600        3836-LI      3838/BIR
   T1ST3603        3850-LI      3855/BCR
   T1ST3604        3857/BL      3868-BAL
   T1ST3702        3888-LI      3893/B       3894/BIR
   T1ST3705        3894-BIR
   T1ST3706        3896-LI      3903/BIR
   T1ST3709        3900/B       3903-BIR
   T1ST3710        3908-BAL     3920/BIR
   T1ST3712        3916-CB      3917/BNE
   T1ST3714        3926-LI      3936/BIR
   T1ST3715        3930-LI      3935/B
   T1ST3718        3940-LI      3947/BIR
   T1ST3720        3944/B       3947-BIR
   T1ST3722        3995/B       3997-BAL
   T1ST3723        3999-LI      4001/BIR
   T1ST3726        3971/BL      3996/B       4006-BAL
   T1ST3802        4020-LI      4027/BCR     4028/ERROR   4080/B
   T1ST3804        4024/BCS     4029-LI
   T1ST3806        4037/B       4041-LI
   T1ST3807        4045/B       4049-LW
   T1ST3808        4051/BGE     4056/B       4060-LI
   T1ST3809        4066/B       4070-LW
   T1ST3810        4071/BEZ     4075/B       4081-BAL
   T1ST3900        4148-LI      4159/B
   T1ST3901        4115/B       4118-LI      4123/B       4128/B       4131/ERROR   4137/B       4140/ERROR
   T1ST3902        4157-LI      4163/B
   T1ST3905        4130/B       4132-LI
   T1ST3906        4139/B       4142-LW      4291/BCS     4296/B
   T1ST3907        4151/BEZ     4160-LI      4189/B
   T1ST3908        4156/B       4166-LI      4173/B
   T1ST3910        4176/BE      4191-LI      4198/B       4218/B
   T1ST3914        4164/B       4190/B       4215/BEZ     4220-LI      4232/B
   T1ST3915        4230-LI      4236/B       4257/ERROR
   T1ST3916        4223/BEZ     4233-LI
   T1ST3917        4226/B       4238-LI      4245/B
   T1ST3920        4248/BE      4259-LI      4286/B
   T1ST3921        4261-LI      4266/B
   T1ST3925        4229/B       4258/B       4283/BEZ     4287-MTW
   T1ST3926        4237/B       4293/BCS     4298-BAL
   T1ST3930        4205/B       4209-BAL     4210/B
   T1ST3931        4273/B       4277-BAL     4278/B
   T1ST40XX        4315/BNEZ    4367-BAL
   T1ST4002        4319-STW     4360/BL      4363/BCR
   T1ST4003        4327-LI      4332/B       4339/B       4356/ERROR
   T1ST4007        4341/B       4346-LI
   T1ST4010        4353/B       4354-MTW
   T1ST4011        4371-LI      4377/B       4386/B
   T1ST4012        4388-LI      4394/B       4403/B
   T1ST4013        4405-MTW     4414/B       4423/B
   T1ST4014        4427-EQU     4440/ERROR
   T1ST4016        4406/BEZ     4429/BNEZ    4438/B       4443-BAL     4459/B
   T1ST4017        4448-EQU     4451/BDR
   T1ST4018        4462-BAL     4469/ERROR
   T1ST4019        4467/B       4471-BAL
   T1ST4101        4490-EQU     4503/B
   T1ST4102        4507-EQU     4517/B
   T1ST43SQ        4657/LW      4672/LW      4685-EQU
   T1ST4300        4645-BAL     4660/B       4681/BNEZ
   T1ST4301        4665-BAL     4675/B
   T1ST4302        4663/BCS     4677-LB
   T2RE             880/B       5024-LW
   T2REBAD         5149-RES     5326/MTW     5337/MTW     5364/MTW     5409/MTW     5494/MTW     5499/STW
      7072/MTW
   T2RECNT         5093/STW     5099/LW      5104/MTW     5148-RES     7193/SW
   T2REEOT         5209/BAL     5235/BAL     5265/BAL     5295/BAL     5315/BAL     5504-EQU
   T2RELINK        5154-RES     5199/STW     5225/STW     5255/STW     5285/STW     5305/STW     7094/B*
      7618/STW     7645/B*
   T2RELNK0        5151-RES     5330/STW     5341/B*      5354/B*      5357/STW     5368/B*      5399/B*
      5402/STW     5413/B*      5444/B*
   T2RELNK1        5152-RES     5447/STW     5491/B*
   T2RELNK2        5153-RES     5517/STW     5532/B*      7146/STW     7161/B*      7200/B*
   T2RELST         5095/LW      5129-EQU
   T2RELUP         5203/BAL     5229/BAL     5259/BAL     5289/BAL     5309/BAL     5497-EQU
   T2REMSG4        5453/STW     5459/STW     5462/STW     5468/STW     5470/STW     5477/STW     5482/DATA
      7796-TEXTC
   T2RERB          5160/BAL     5254-EQU     6539/BAL     6545/BAL     6551/BAL
   T2RERBER        5269/BAL     5401-EQU
   T2RERB0         5258-EQU     5282/B
   T2RERF          5161/BAL     5224-EQU     6540/BAL     6546/BAL     6550/BAL     6556/BAL
   T2RERFER        5239/BAL     5356-EQU
   T2RERF0         5228-EQU     5252/B
   T2RESB          5158/BAL     5304-EQU
   T2RESBER        5319/BAL     5325-EQU
   T2RESB0         5308-EQU     5322/B
   T2RESET         5096/STW     5100/LB*     5147-RES
   T2RESF          5159/BAL     5284-EQU     6544/BAL     6552/BAL
   T2RESFER        5299/BAL     5324-EQU
   T2RESF0         5288-EQU     5302/B
   T2RESUM         5124/BAL     6602/BAL     7617-EQU
   T2RESUM0        7623-EQU     7641/BIR
   T2RETIO         5208/BAL     5234/BAL     5264/BAL     5294/BAL     5314/BAL     5351/BAL     5396/BAL
      5441/BAL     5449/BAL     5516-EQU
   T2RETIOS        5371/BAL     5416/BAL     5455/BAL     5534-EQU
   T2RETRY         5150-RES     5334/MTW     5361/MTW     5406/MTW     5501/STW
   T2REW           5157/BAL     5198-EQU     6538/BAL     6560/BAL
   T2REWER         5213/BAL     5329-EQU
   T2REW0          5202-EQU     5222/B
   T2REXEQ         5102/EXU     5156-EQU
   T2RE00          5036-BAL     5513/BANZ
   T2RE01          5038-BAL     5114/BLE
   T2RE05          5098-EQU     5105/BGEZ
   T2RE05A         5140/DATA    5191-REDATA
   T2RE05B         5141/DATA    5192-REDATA
   T2RE05C         5142/DATA    5193-REDATA
   T2RE05D         5143/DATA    5194-REDATA
   T2RE05E         5144/DATA    5195-REDATA
   T2RE05F         5145/DATA    5196-REDATA
   T2RE050         5130/DATA    5180-REDATA
   T2RE051         5131/DATA    5181-REDATA
   T2RE052         5132/DATA    5182-REDATA
   T2RE053         5133/DATA    5183-REDATA
   T2RE054         5134/DATA    5184-REDATA
   T2RE055         5135/DATA    5185-REDATA
   T2RE056         5136/DATA    5186-REDATA
   T2RE057         5137/DATA    5187-REDATA
   T2RE058         5138/DATA    5189-REDATA
   T2RE059         5139/DATA    5190-REDATA
   T2RE06          5110/BCS     5116-LW
   VERSION          2.1-EQU        4/EQU
   WAITMSG0        9161-TEXTC
   WAITMSG1        8751/DATA    9162-TEXTC
   WBCC            2938/STH     2943/LI      2982/LW      2990/STH     7383-GEN
   WDTIME           627-DATA    3924/SW      3964/SW
   WER0            5332-EQU     5353/BANZ
   WER1            5335/BGEZ    5343-EQU
   WF              5174-EQU     5180/REDATA  5180/REDATA  5180/REDATA  5180/REDATA  5180/REDATA
      5181/REDATA  5181/REDATA  5181/REDATA  5181/REDATA  5182/REDATA  5182/REDATA  5182/REDATA
      5182/REDATA  5183/REDATA  5183/REDATA  5183/REDATA  5184/REDATA  5184/REDATA  5184/REDATA
      5185/REDATA  5185/REDATA  5185/REDATA  5186/REDATA  5186/REDATA  5186/REDATA  5187/REDATA
      5187/REDATA  5187/REDATA  5189/REDATA  5189/REDATA  5189/REDATA  5190/REDATA  5190/REDATA
      5191/REDATA  5191/REDATA  5192/REDATA  5192/REDATA  5193/REDATA  5193/REDATA  5194/REDATA
      5195/REDATA  5196/REDATA
   WFBAD           2837/LW      2840/STW     2864/STH     2878/LI      2917/MTW     2923/STH     7381-GEN
   WRETRY          1158/STW     5965/MTW     5973/CW      7665-DATA
   WRRAND          5205/LI      5215/LI      5348/LI      5545-RES     5562/LI
   WTRT             623-DATA    3787/SW      3795/SW      3923/SW      3963/SW
   XPSD1           1023/LW      7746-XPSD
   :AIO            7976-AIO
   :BCDC            132-EQU
   :BINC            134-EQU     4853/BAL*    4863/BAL*    8011/BAL*    8057/BAL*    8064/BAL*    8478/BAL*
      8976/BAL*    8978/BAL*    8986/BAL*    8988/BAL*
   :CATALOG         172/DATA     272-EQU
   :CCERMA         8086/DATA    8102-TEXTC
   :CCERMB         8087/DATA    8103-TEXTC
   :CCERMC         8088/DATA    8104-TEXTC
   :CCERMD         8089/DATA    8105-TEXTC
   :CCERME         8090/DATA    8106-TEXTC
   :CCERMF         8091/DATA    8107-TEXTC   8618/LI
   :CCERM1         8077/DATA    8093-TEXTC
   :CCERM2         8078/DATA    8094-TEXTC
   :CCERM3         8079/DATA    8095-TEXTC
   :CCERM4         8012/STH     8080/DATA    8096-TEXTC
   :CCERM5         8081/DATA    8097-TEXTC
   :CCERM6         8082/DATA    8098-TEXTC
   :CCERM7         8083/DATA    8099-TEXTC
   :CCERM8         8084/DATA    8100-TEXTC
   :CCERM9         8085/DATA    8101-TEXTC
   :CCERR1         8007-LW
   :CCERR2         8004/BCR     8020-LW
   :CCERR3         8002/BCR     8028-LW
   :CCERR4         8025/B       8040-LCI     8046/BEZ     8072/B
   :CC12           7990/STW     8000/LW      8010/LW      8063/LW      8074-DATA
   :CDB             240/GEN      240/GEN      259-EQU      443/LW       449/STH      518/LH       528/LCH
       552/LH       554/LW      1434/MTW     1713/MTW     1792/MTW     1806/MTW     2341/MTW     3604/MTW
      3711/MTW     4314/MTW     4405/MTW     4428/MTW     4773/MTW     4961/MTW     4971/LW    4973.7/LH
   :CDBEND          240/GEN      270-EQU
   :CDBM            240/GEN      249-EQU
   :CDBMEND         240/GEN      257-EQU
   :CDT             177/DATA     178/DATA     239-EQU
   :CDTEND          178/DATA     241-EQU
   :CLEAR          4728/BAL     6004/BAL     8246-STD
   :CLRADDR        5074/STW     5764/STW     6518/STW     7136/STW     8248/LW      8260-DATA
   :CLRSAVE        8246/STD     8247/STW     8254/LD      8255/LW      8259-RES
   :CLRSIZE        5056/STW     5755/STW     6510/STW     6572/STW     7124/STW     8249/AW      8250/LCW
      8261-DATA
   :COMBFRA        3021/STW     5080/STW     5761/STW     6522/STW     7133/STW     8396/LW      8444/LW
      8494-DATA
   :COMBFRB        3023/STW     5082/STW     5763/STW     6519/STW     7137/STW     8397/LW      8450/LW
      8495-DATA
   :COMBLK         8389/MTW     8412/STW     8430/MTW     8498-DATA
   :COMERMX        8439/STW     8441/DATA    8501-TEXTC
   :COMERM1        8433/DATA    8500-TEXTC
   :COMERM2        8447/STH     8449/STH     8452/STW     8454/DATA    8502-TEXTC
   :COMERM3        8456/DATA    8503-TEXTC
   :COMERM4        8462/STW     8464/LI      8467/DATA    8506-TEXT
   :COMERM5        8469/LI      8472/DATA    8510-TEXT
   :COMERRT        8395/STD     8408/LW      8417/MTW     8420/LW      8491-DATA
   :COMFLAG        2166/STW     2197/STW     2245/STW     2854/STW     3019/STW     5084/STW     5776/STW
      6524/STW     7129/STW     8418/LW      8496-DATA
   :COMPARE        2167/BAL     2246/BAL     2670/BAL     2804/BAL     2817/BAL     2893/BAL     2907/BAL
      2959/BAL     2972/BAL     3085/BAL     3114/BAL     3214/BAL     3397/BAL     3410/BAL     3448/BAL
      3477/BAL     3524/BAL     3556/BAL     3769/BAL     4129/BAL     4138/BAL     4209/BAL     4277/BAL
      4340/BAL     4352/BAL     5247/BAL     5277/BAL     8391-EQU
   :COMPLIN        1148/STW     8421/CW      8497-DATA
   :COMPXRE        6074/BAL     6144/BAL     8388-EQU
   :COMTEM1        8393/STM     8410/MTW     8414/LM      8437/LW      8488-RES
   :COMTEM2        8400/STD     8403/LW*     8404/CW*     8463/LW*     8468/LW*     8490-DATA
   :COMTEM3        8423/LW      8427/MTW     8492-DATA
   :COMWCNT        2874/STW     2940/STW     3002/STW     3025/STW     3132/LW      3134/STW     3200/STW
      5055/STW     5087/LW      5756/STW     6509/STW     6569/LW      6571/STW     7125/STW     8398/AW
      8399/AW      8401/LCW     8459/LW      8493-DATA
   :COM1           8403-LW      8406/BIR     8419/BCS     8422/BG      8473/B
   :COM2           8405/BCS     8417-MTW
   :COM3           8424/BCS     8459-LW
   :COM4           8465/BAL     8470/BAL     8476-LI      8485/BCS
   :COM5           8434/B       8443-EQU
   :COM6           8431/BNEZ    8436-EQU
   :CURBCNT         138-EQU
   :DECC            135-EQU      356/BAL*    2027/BAL*    2282/BAL*    2285/BAL*    2288/BAL*    2379/BAL*
      2382/BAL*    2385/BAL*    2517/BAL*    3253/BAL*    3293/BAL*    3803/BAL*    3813/BAL*    3816/BAL*
      3861/BAL*    3975/BAL*    3978/BAL*    3981/BAL*    3984/BAL*    4143/BAL*    4594/BAL*    4927/BAL*
      6169/BAL*    6171/BAL*    6728/BAL*    6730/BAL*    6738/BAL*    6740/BAL*    7002/BAL*    7013/BAL*
      7609/BAL*    7837/BAL*    7839/BAL*    7853/BAL*    7856/BAL*    7859/BAL*    7861/BAL*
   :DELAY          1453/BAL     1487/BAL     1501/BAL     1515/BAL     1567/BAL     1589/BAL     1603/BAL
      1741/BAL     1752/BAL     1763/BAL     1831/BAL     1840/BAL     2620/BAL     3190/BAL     3207/BAL
      3619/BAL     3641/BAL     3928/BAL     4437/BAL     4586/BAL     4887/BAL     6419/BAL     6433/BAL
      6439/BAL     6988/BAL     8529-STW
   :DELAYAE        8534/BAL     8552-STW
   :DELAYD         8537/BAL     8547/BAL     8558-STW
   :DELAYTO        8567-DATA    8569/XPSD
   :DELEXIT        8543-LW      8549/B
   :DELMTW         1027/LW      2393/LW      6854/LW      6919/LW      8570-MTW
   :DELORIG        8533/STW     8539/LW      8564-DATA
   :DELSAVE        8529/STW     8543/LW      8548/MTW     8552/STW     8555/B*      8558/STW     8561/B*
      8565-DATA
   :DELTIME        6859/STW     6867/STW     6888/STW     6908/STW     8532/STW     8540/SW      8563-DATA
      8570/MTW
   :DELTO          8547-BAL     8568/DATA
   :DELXPSD        1025/LW      6921/LW      8569-XPSD
   :DEVADDR         345/LW       611/STW      819/STW      821/LW       949/STW     1245/HIO*    1246/TIO*
      1528/HIO*    1534/TIO*    1549/SIO*    1552/TIO*    1559/TIO*    1592/TIO*    1606/TIO*    1659/SIO*
      1660/TIO*    1665/TDV*    1671/SIO*    1674/TIO*    1679/HIO*    1681/TIO*    1687/SIO*    1690/TIO*
      1699/CW      1702/TIO*    1708/TDV*    1794/HIO*    1844/TIO*    1958/TDV*    2009/SIO*    2011/TDV*
      2014/HIO*    2016/SIO*    2017/TIO*    2020/TDV*    2232/TIO*    2241/TIO*    2354/SIO*    2365/TIO*
      2660/TIO*    3058/TDV*    3599/SIO*    3612/TIO*    3629/SIO*    3631/SIO*    3648/SIO*    3650/SIO*
      3660/TIO*    3668/TDV*    3680/TIO*    3724/SIO*    3726/TDV*    3778/SIO*    3853/TDV*    3914/SIO*
      3952/SIO*    3954/TIO*    4022/TDV*    4025/TIO*    4316/LW      4319/STW     4364/STW     4379/HIO*
      4396/HIO*    4416/HIO*    4616/TIO*    4754/SIO*    4755/HIO*    4756/TIO*    4757/TDV*    4769/SW
      4870/LW      5522/TDV*    5528/TIO*    5927/TIO*    5935/TDV*    5953/TDV*    6021/TIO*    6029/TDV*
      6036/TDV*    6106/TDV*    6240/HIO*    6245/TDV*    6250/HIO*    6258/SIO*    6263/HIO*    6264/TDV*
      6271/TDV*    6277/HIO*    6282/SIO*    6286/TDV*    6293/TDV*    6299/HIO*    6305/SIO*    6310/HIO*
      6311/TDV*    6317/TDV*    6323/HIO*    6417/SIO*    6423/TDV*    6425/TIO*    6437/SIO*    6590/STW
      6671/TDV*    6675/TIO*    6734/TIO*    6759/TDV*    6869/TDV*    6910/TIO*    6944/TIO*    6949/TDV*
      6972/HIO*    7067/STW     7151/LW      7168/LW      7671-DATA    7928/SIO*    7940/TIO*    7952/HIO*
      7964/TDV*    8032/LW      8067/LW      8171/LW      8598/CW
   :DIC             174/DATA     175/DATA     215-EQU      806/DATA     885/DATA     970/DATA    1049/DATA
      1101/DATA    1139/DATA    5714/DATA    6237/DATA    6364/DATA    6474/DATA    6633/DATA
   :DICEND          175/DATA     224-EQU      239/EQU
   :DICILEN         157-EQU
   :DICINDX         156-EQU
   :DTLFLAG         152-EQU
   :DUMP            130-EQU
   :ERRADR1        8013/LW      8077-DATA
   :ERRADR2        8021/LW      8082-DATA
   :ERRADR3        8029/LW      8087-DATA
   :ERRBITS        8789/STW     8823/LW      9012-DATA
   :ERRFRCE        8715/MTW     8720/LW      8844/SW      8962/STW     9003-DATA
   :ERROR           139-EQU
   :ERRORC          147-EQU
   :ERRORS         4898/LI      8714-EQU
   :ERRORT         2053/BAL     2084/BAL     2098/BAL     2156/BAL     2442/BAL     2460/BAL     2484/BAL
      2494/BAL     2504/BAL     2664/BAL     2712/BAL     2720/BAL     2728/BAL     2736/BAL     2744/BAL
      2752/BAL     2760/BAL     2768/BAL     2792/BAL     2798/BAL     2811/BAL     2887/BAL     2901/BAL
      2953/BAL     2966/BAL     3079/BAL     3108/BAL     3210/BAL     3247/BAL     3264/BAL     3278/BAL
      3309/BAL     3323/BAL     3343/BAL     3391/BAL     3404/BAL     3426/BAL     3442/BAL     3455/BAL
      3471/BAL     3518/BAL     3531/BAL     3550/BAL     3563/BAL     3735/BAL     3742/BAL     3750/BAL
      3757/BAL     3764/BAL     3898/BAL     3942/BAL     4035/BAL     4043/BAL     4054/BAL     4064/BAL
      4203/BAL     4224/BAL     4271/BAL     4465/BAL     4895/LI      5941/BAL     5957/BAL     6040/BAL
      6110/BAL     8717-LCI
   :ERRTBCM        8904/LD      9019-TEXT
   :ERRTCAM        8900/LD      9020-TEXT
   :ERRTFLG        8721/STW     8843/LW      8853/MTW     8932/MTW     8942/MTW     8949/MTW     8965/MTW
      9002-DATA
   :ERRTMG1        8820/STW     8825/STW     8826/STW     8829/STB     8832/STB     8837/STB     8839/LI
      9008-TEXTC
   :ERRTMG2        8906/STW     8907/STW     8908/STW     8912/STW     8913/LI      9013-TEXTC
   :ERRTMG3        9014-TEXTC
   :ERRTMP1        8718/STM     8964/LM      8994-RES
   :ERRTMP2        8785/STW     8801/MTW     8805/MTW     8830/LW      8834/LW      8995-DATA
   :ERRTMP3        8728/STW     8739/STW     8743/STW     8809/LW      8815/LW      8818/LW      8878/LW
      8891/LW      8909/LW      8996-DATA
   :ERRTMP4        8729/STW     8794/LW      8997-DATA
   :ERRTMSK        8791/LB      8999-GEN
   :ERRTM1         8970/STW     8974/DATA    9005-TEXTC
   :ERRTM2         8977/STW     8979/STW     8981/DATA    9006-TEXTC
   :ERRTM3         8987/STW     8989/STW     8991/DATA    9007-TEXTC
   :ERRTNEG        8903/LW      9015-TEXT
   :ERRTTB         8822/LW      9010-DATA
   :ERRTTBA        9010/DATA    9010/DATA    9010/DATA    9021-TEXT
   :ERRTTBB        9010/DATA    9029-TEXT
   :ERRTTBC        9010/DATA    9038-TEXT
   :ERRTTBD        9011/DATA    9046-TEXT
   :ERRTTBE        9011/DATA    9054-TEXT
   :ERRTYPE        8819/LW      8969/LW      9004-DATA
   :ERRT0          8723-LB      8813/B
   :ERRT00         8734/BNE     8742-AI
   :ERRT1          8732/BL      8745-LW      8760/B       8769/B       8772/B
   :ERRT10         8758/B       8767/B       8778/B       8853-MTW
   :ERRT11         8737/BLZ     8740/B       8856-MTW
   :ERRT11A        8866-SCD     8918/B
   :ERRT11B        8868/BNEZ    8874-MTW
   :ERRT12         8864/BNE     8916-LW
   :ERRT13         8724/BEZ     8920-LI      8933/BIR
   :ERRT14         8922/BCR     8924/BCR     8933-BIR
   :ERRT15         8937-EQU     8947/BIR
   :ERRT16         8939/BGEZ    8941/BCR     8943/BEZ     8946-EQU
   :ERRT16A        8956-LW      8959/BIR
   :ERRT17         8944/BAL     8969-LW
   :ERRT2          8748/BL      8753-CI
   :ERRT3          8754/BNE     8762-CI
   :ERRT4          8763/BNE     8771-BAL
   :ERRT5          8771/BAL     8774-STW     8858/BAL
   :ERRT5X         8774/STW     8780/B*      8781-DATA
   :ERRT6          8746/BLZ     8783-LI
   :ERRT7          8799/BANZ    8805-MTW
   :ERRT8          8796/BGE     8802/BEZ     8807/B       8809-LW
   :ERRT8A         8812-MTW     8854/B       8871/BLZ     8876/BE
   :ERRT9          8803/B       8806/BEZ     8815-LW
   :ERRT9A         8818-LW
   :ERRT9B         8841-STW     8914/B
   :ERRT9C         8845/BGZ     8850-BAL
   :ERRT9D         8841/STW     8851-DATA
   :ERRT91A        8872/B       8891-LW
   :ERRT91B        8893/BE      8903-LW
   :ERRT91C        8889/B       8904-LD
   :ERRT92A        8878-LW
   :ERRT92B        8885/B       8899-BAL
   :ERRT92C        8880/BE      8887-AW
   :HEXC            136-EQU      336/BAL*     346/BAL*     822/BAL*    1200/BAL*    1202/BAL*    2279/BAL*
      3433/BAL*    3462/BAL*    3486/BAL*    3542/BAL*    3574/BAL*    4180/BAL*    4183/BAL*    4250/BAL*
      4253/BAL*    4321/BAL*    4713/BAL*    4715/BAL*    4718/BAL*    4720/BAL*    4872/BAL*    4935/BAL*
      5118/BAL*    5452/BAL*    5456/BAL*    5465/BAL*    5473/BAL*    6187/BAL*    6191/BAL*    6721/BAL*
      6778/BAL*    6781/BAL*    6816/BAL*    6825/BAL*    6827/BAL*    7023/BAL*    7152/BAL*    7155/BAL*
      7157/BAL*    7164/BAL*    7166/BAL*    7169/BAL*    7172/BAL*    7174/BAL*    7628/BAL*    7871/BAL*
      7873/BAL*    8033/BAL*    8068/BAL*    8172/BAL*    8438/BAL*    8445/BAL*    8451/BAL*    8461/BAL*
      8612/BAL*    8614/BAL*    8899/BAL*    8911/BAL*
   :HIO            1209/BAL     1637/BAL     7952-HIO     8157/BAL     8756/BAL
   :INITIAL         180/DATA     440-STW
   :INTAE          4435/BAL     6275/BAL     6297/BAL     6321/BAL     8635-STW
   :INTCC          8596/STCF    8628-DATA
   :INTD           8603/BAL     8644-STW
   :INTRECF        2356/LW      3729/LW      3789/LW      3918/LW      6260/LW      6284/LW      6307/LW
      6431/STW     7044/STW     7056/STW     8535/LW      8602/MTW     8629-DATA    8637/STW
   :INTS           8635/STW     8640/B*      8644/STW     8647/B*      8649-DATA
   :INTSTAT        8600/STW     8627-DATA
   :INTSV          7745/DATA    8589-STD     8625/DATA
   :INTSVDW        8625-DATA
   :INTSVM         1201/STW     1203/STW     1205/DATA    8609/LI      8613/STW     8615/STW     8631-TEXTC
   :INTSVSR        8589/STD     8590/STD     8591/STD     8604/LD      8605/LD      8606/LD      8626-RES
   :INTSV1         8598-CW
   :INTSV2         8604-LD      8622/B
   :INTSV3         8599/BCS     8609-LI
   :INTSV4         8595/BCS     8618-LI
   :INTSV5         8616/B       8620-BAL
   :INTSV6         8610/STW     8619/STW     8621-DATA
   :IOERM1         8167/DATA    8183-TEXTC
   :IOERM2         8173/STH     8175/STH     8177/DATA    8184-TEXTC
   :IOERR1         8141/B       8156-LW
   :IOERR1A        8166-BAL     8178/B
   :IOERR2         8144/BCR     8171-LW
   :IOEXEC         1440/BAL     1451/BAL     1623/BAL     1633/BAL     1739/BAL     1750/BAL     1761/BAL
      1829/BAL     1838/BAL     1944/BAL     2618/BAL     3188/BAL     3205/BAL     4495/BAL     4512/BAL
      4583/BAL     4734/BAL     5912/BAL     6006/BAL     6244/BAL     8133-STW
   :IOEXEC1        8138-LW      8148/B       8159/B       8163/B       8168/B
   :IOSAVE         8133/STW     8134/STW     8135/STD     8150/LW      8151/LW      8152/LD      8181-RES
   :K              8224/AW      8233-DATA
   :KSRADR          148-EQU
   :KTABLE          605/LI       616-EQU      629/EQU
   :KTABLEL         604/LI       629-EQU
   :LIMIT           223/:PROCDIC             1133-STW
   :LIM0           1138-BAL     1174/BNE
   :LIM1           1136/BE      1142-STW
   :LIM2           1144/BNE     1151-EQU
   :LIM3           1153/BNE     1161-EQU
   :LIM4           1163/BNE     1171-EQU
   :LOADIN          146-EQU
   :MACHINE         149-EQU
   :MEMLAST         159-EQU      455/LW      6398/LW
   :MEMSIZE         158-EQU
   :MLT             125-EQU      126/EQU      127/EQU      128/EQU      129/EQU      130/EQU      131/EQU
       132/EQU      133/EQU      134/EQU      135/EQU      136/EQU      137/EQU      138/EQU      139/EQU
       140/EQU      141/EQU      142/EQU      143/EQU      144/EQU      145/EQU      146/EQU      147/EQU
       148/EQU      149/EQU      150/EQU      151/EQU      152/EQU      153/EQU      154/EQU      155/EQU
       156/EQU      157/EQU      158/EQU      159/EQU      160/EQU      161/EQU      162/EQU      163/EQU
      1029/LW
   :MLTEND          163-EQU
   :MONIOBF         160-EQU
   :MONITOR         133-EQU      763/BCR*     807/B*       848/BCR*     886/B*       898/BCR*     971/B*
       982/BCR*    1050/B*      1056/B*      1083/B*      1093/B*      1102/B*      1121/B*      1140/B*
      1149/B*      1159/B*      1169/B*      1186/B*      5715/B*      5807/B*      5817/B*      6238/B*
      6365/B*      6475/B*      6634/B*
   :MONPBF          161-EQU
   :MONWAIT         142-EQU
   :MRECOVR         143-EQU
   :MSGIN           145-EQU
   :MSGOUT          144-EQU
   :M1             8214/STW     8219/MTW     8225/EOR     8230-DATA
   :M2             8215/STW     8221/MTW     8226/EOR     8231-DATA
   :PATBFR         5079/STW     5758/STW     7132/STW     8298/AW      8310/AW      8322/AW      8339/AW
      8348/AW      8363-DATA
   :PATEXIT        8304-LCI     8316/B       8335/B       8344/B       8356/BCR
   :PATID          1081/STW     1082/STW     1089/STW     1091/STW     2223/STW     2252/CB      2278/LW
      2299/CB      2307/LW      3176/STW     3699/STW     4111/STW     5076/STW     5077/STW     5783/STW
      5785/STW     5792/STW     5794/STW     5902/STW     6062/STW     6132/STW     7118/STW     7128/STW
      8289/LW      8300/LW      8312/LW      8314/AW      8324/LW      8341/LW*     8350/LW      8361-DATA
   :PATSAVE        8287/STM     8305/LM      8320/STM     8334/LM      8364-RES
   :PATTERN        5085/BAL     5786/BAL     5903/BAL     6063/BAL     6133/BAL     7139/BAL     8286-LCI
   :PATWC          3178/STW     5057/STW     5754/STW     5848/LW      7121/STW     7123/LW      8297/LW
      8299/LCW     8309/LW      8311/LCW     8321/LW      8323/LCW     8338/LW      8340/LCW     8347/LW
      8349/LCW     8362-DATA
   :PAT0           8291/B       8297-LW
   :PAT1           8292/B       8309-LW
   :PAT2           8293/B       8319-LCI
   :PAT2A          8327/B       8333-LCI
   :PAT3           8294/B       8338-LW
   :PAT4           8295/B       8347-LW
   :PCHECK         1301/BAL     1367/BAL     1479/BAL     1581/BAL     3229/BAL     3376/BAL     3504/BAL
      4108/BAL     4979-LW
   :PITEND          186-EQU      187/DO
   :PITLAST         185-EQU      187/DO
   :PIT0            172-DATA     186/EQU      391/STW      876/STW      951/STW
   :PIT1            173-DATA
   :PIT10           182-DATA     525/STW      548/STW      564/STW      804/STW      810/STW      883/STW
       889/STW      968/STW     1047/STW     1099/STW     1114/STW     1133/STW     1142/STW     5712/STW
      6235/STW     6352/STW     6362/STW     6393/STW     6472/STW     6631/STW     6640/STW     6649/STW
   :PIT11           183-DATA
   :PIT12           184-DATA     524/STW      546/STW      566/STW      613/STW
   :PIT2            174-DATA
   :PIT27           190-DATA
   :PIT3            175-DATA
   :PIT4            176-DATA
   :PIT5            177-DATA
   :PIT6            178-DATA
   :PIT7            179-DATA
   :PIT8            180-DATA
   :PIT9            181-DATA
   :PREPORT         153-EQU      805/BAL*     884/BAL*     969/BAL*    1048/BAL*    1100/BAL*    1138/BAL*
      5713/BAL*    6236/BAL*    6363/BAL*    6473/BAL*    6632/BAL*
   :PRINT            93/BAL*     140-EQU      338/BAL*     348/BAL*     358/BAL*     758/BAL*     828/BAL*
      1204/BAL*    2029/BAL*    2290/BAL*    2292/BAL*    2294/BAL*    2387/BAL*    2519/BAL*    3255/BAL*
      3295/BAL*    3314/BAL*    3329/BAL*    3337/BAL*    3349/BAL*    3357/BAL*    3435/BAL*    3464/BAL*
      3488/BAL*    3544/BAL*    3576/BAL*    3805/BAL*    3818/BAL*    3863/BAL*    3986/BAL*    3988/BAL*
      4185/BAL*    4255/BAL*    4294/BAL*    4491/BAL*    4508/BAL*    4579/BAL*    4597/BAL*    4722/BAL*
      4841/BAL*    4876/BAL*    4942/BAL*    4944/BAL*  4974.4/BAL*    5121/BAL*    5479/BAL*    5481/BAL*
      5483/BAL*    6174/BAL*    6194/BAL*    6196/BAL*    6723/BAL*    6742/BAL*    6783/BAL*    6785/BAL*
      6832/BAL*    6954/BAL*    7026/BAL*    7028/BAL*    7159/BAL*    7177/BAL*    7179/BAL*    7198/BAL*
      7624/BAL*    7630/BAL*    7636/BAL*    7643/BAL*    7865/BAL*    7867/BAL*    7875/BAL*    7877/BAL*
      8015/BAL*    8023/BAL*    8037/BAL*    8047/BAL*    8070/BAL*    8176/BAL*    8428/BAL*    8432/BAL*
      8440/BAL*    8453/BAL*    8455/BAL*    8466/BAL*    8471/BAL*    8620/BAL*    8847/BAL*    8850/BAL*
      8971/BAL*    8973/BAL*    8980/BAL*    8990/BAL*
   :PROCDIC          61-CNAME
   :PROGID          173/DATA     275-EQU
   :PSW             131-EQU    734.4/LC       739/LC       871/LC      1134/LB
   :P1              126-EQU      408/CW     734.2/LW       750/STW      777/LW       832/LW       864/LW
       955/LW       973/CW      1003/STW     1043/LW      1073/LW      1143/CW      1152/CW      1162/CW
      1172/LW      4963/LW      4968/LW    4973.3/LW
   :P2              127-EQU      410/CW       737/LW       748/STW      776/LW       790/STW      869/LW
      1000/STW     1077/LW      1090/LW      1105/LW      1145/LW      1155/LW      1165/LW      1176/LW
      4964/CW      4969/CW    4973.4/CW      5722/LW      5865/LW      5918/CW      5961/LW      5995/MTW
      6012/CW      6091/CW      6222/CW      6224/CW      6226/CW      6228/LW      6325/CW      6327/LW
      6387/CW      6389/CW      6467/LW      6580/CW      6583/CW      6626/LW      6655/CW      6659/LW
   :P3              128-EQU     1117/LW      5717/LW      5720/STW     5984/CW      5988/STW     6082/CW
      6086/STW     6142/LW      6152/CW      6346/LW      6374/LW      6477/LW      6478/CW      6636/LW
      6653/LW      7086/AND
   :P4              129-EQU     1119/LW      5707/LW      5980/LW      6078/LW      6148/LW      6349/LW
      6432/LW      6643/LW      6681/CW      6690/CW      6746/CW      6755/CW
   :QSENSE          154-EQU      397/BAL*     762/BAL*     825/BAL*     847/BAL*     897/BAL*     981/BAL*
      4645/BAL*    4650/BAL*    4662/BAL*  4974.1/BAL*    5109/BAL*    5921/BAL*    6015/BAL*    6792/BAL*
   :RANDOM         5901/BAL     8217-STW
   :RANDOMX         406/BAL     5038/BAL     8219-MTW
   :RANDOMY        1011/BAL     5027/BAL     8214-STW     8330/BAL
   :RECOVER         176/DATA     442/BAL     1016-STW
   :REGSAVE        7996/STM     8041/LM      8076-RES
   :RELBIAS         150-EQU
   :REMOTE          162-EQU      441/BAL
   :RLOADER         151-EQU
   :SAVCOM1        8136/STW     8882/LW      8895/LW      8916/LW      9159-DATA
   :SAVEAIO        6977/BAL     8601/BAL     9115-STD
   :SAVEALL        9085/BAL     9087/BAL     9099/BAL     9105/BAL     9111/BAL     9118/BAL     9120/BAL
      9125-STW
   :SAVECLR        7042/BAL     7054/BAL     9073-STD
   :SAVEHIO        8759/BAL     9097-STD
   :SAVESIO        9109-STD
   :SAVETAB        4952/STB     4953/STB     4957/STB     4958/STB     5375/LB      5420/LB      5451/LW
      5464/LW      5472/LB      5486/LW      5505/LB      5519/MTW     5525/MTW     5535/LB      5537/LB
      5664/CH      6182/SW      8745/LW      8810/STW     8816/STW     8856/MTW     8860/LW      8910/LW
      8921/LW      8938/LW      8956/LW      8958/STW     9076/STH     9084/LI      9086/LI      9089/STH
      9091/STB     9092/STH     9093/STB     9098/LI      9104/LI      9110/LI      9117/LI      9119/LI
      9147-EQU
   :SAVETDV        5523/BAL     8768/BAL     9103-STD
   :SAVETIO        5529/BAL     6973/BAL     8779/BAL     9082-STD
   :SAVETMP        9073/STD     9079/LD      9082/STD     9083/STW     9088/LW      9094/LD      9097/STD
      9100/LD      9103/STD     9106/LD      9109/STD     9112/LD      9115/STD     9116/STW     9121/LW
      9122/LD      9125/STW     9132/B*      9158-DATA
   :SEED           5608/LB      7084/LW      7163/LW      8217/STW     8222/LW      8227/STW     8232-DATA
   :SENSE           141-EQU     2193/BAL*    2322/BAL*    2389/BAL*    2451/BAL*    2523/BAL*    2680/BAL*
      2776/BAL*    2824/BAL*    2914/BAL*    2979/BAL*    3092/BAL*    3121/BAL*    3257/BAL*    3297/BAL*
      3316/BAL*    3362/BAL*    3417/BAL*    3437/BAL*    3466/BAL*    3490/BAL*    3581/BAL*    3820/BAL*
      3865/BAL*    3993/BAL*    4003/BAL*    4072/BAL*    4187/BAL*    4216/BAL*    4284/BAL*    4915/BAL*
      5945/BAL*    6957/BAL*    7076/BAL*
   :SIO            1237/BAL     1253/BAL     1275/BAL     1307/BAL     1323/BAL     1338/BAL     1371/BAL
      1387/BAL     1403/BAL     1483/BAL     1497/BAL     1511/BAL     1525/BAL     1585/BAL     1599/BAL
      6939/BAL     7928-SIO     8146/BAL
   :SKIP         1434.1/BEZ   1924.1/BGE     4966/B     4973.1/B     4974.1-BAL     4981/BL
   :STATEM1        4842/DATA    4866/LW      8048/DATA    8108-TEXTC
   :STATEM2        4845/LB      4846/STW     4847/STB     4855/STB     4864/STH     4874/STW     4877/DATA
      8051/LB      8052/STW     8053/STB     8058/STB     8066/STH     8069/STW     8071/DATA    8109-TEXTC
   :STATERR        7999/BCR     8045-LH
   :STATEST        7936/B       7948/B       7960/B       7972/B       7984/B       7987-STCF
   :STATFRC        8017/B       8047-BAL
   :STATTYP        8050/LW      8110-TEXT
   :S0CHECK        1799/BAL     2335/BAL     3696/BAL     3877/BAL     4961-MTW
   :S1CHECK        3171/BAL     4968-LW
   :S2CHECK      1619.1/BAL   1656.1/BAL   2335.1/BAL   3696.1/BAL   3877.1/BAL   4973.3-LW
   :TALLYE         2183/STW     2301/STW     2304/STW     7813/LW      7858/LW      7886-RES
   :TALLYMA        2190/STW     2312/STW     7868-DATA
   :TALLYO         2150/STW     2176/MTW     2227/STW     2258/MTW     2265/MTW     7807/LW      7815/SW
      7843/LW      7887-RES
   :TALLYP         2186/STW     2308/STW     7870/LW      7884-DATA
   :TDV            1219/BAL     7964-TDV     8765/BAL
   :TIM             415-EQU     1223/B       1262/B       1286/B       1352/B       1417/B       1468/B
      1539/B       1571/B       1611/B       1645/B       1714/BNEZ    1717/BGE     1720/BEZ     1771/B
      1793/BEZ     1807/BEZ     1815/B       1853/B       1881/B       1918/B       2041/B       2200/B
      2326/B       2395/B       2471/B       2511/B       2601/B       2630/B       2691/B       2780/B
      2828/B       3005/B       3148/B       3218/B       3366/B       3496/B       3585/B       3684/B
      3824/B       3869/B       4007/B       4083/B       4304/B       4472/B       4522/B       4570/B
      4682/B     4974.2/BCS     4977/B
   :TIMRETN         280/DATA     374-STW      426/B        834/BAL
   :TIM0            378/BGZ      385-EQU
   :TIM1            383/B        389-EQU      413/B
   :TIM2            379/BEZ      405-EQU      409/BL       411/BG
   :TIO            1214/BAL     7940-TIO     8139/BAL     8162/BAL     8776/BAL
   :TSEQ             38-CNAME
   :TSEQEQU          48-CNAME
   :TYPE           7935/STW     7947/STW     7959/STW     7971/STW     7983/STW     8007/LW      8020/LW
      8028/LW      8049/LW      8075-DATA
   :T1AUTO          428-DATA     746/LW       999/LW
   :T1CUR           376/LW       392/LW       412/STW      417/AWM      429-DATA     749/STW      792/STW
       833/STW     1002/STW
   :T1DIR           377/MTW      416/LW       424/MTW      432-DATA     751/STW      799/STW     1006/STW
   :T1LAST          381/CW       386/CW       430-DATA     747/STW      793/STW     1001/STW
   :T1MEXIT         374/STW      382/BL*      387/BG*      425/BEZ*     431-DATA
   :T1SLT           280-DATA     401/AI       428/DATA     780/CI       782/CI
   :T1SLT1          317-DATA     428/DATA
   :T1SLT2          324-EQU      780/CI       782/CI
   :T1ST01          281/DATA    1196-LI      1206/ERROR
   :T1ST02          282/DATA    1234-LW      1239/ERROR   1244/B       1249/ERROR
   :T1ST03          283/DATA    1272-LW      1277/ERROR   1284/B
   :T1ST04          284/DATA    1300-EQU     1309/ERROR   1315/B       1319/ERROR
   :T1ST05          285/DATA    1366-EQU     1373/ERROR   1379/B       1383/ERROR
   :T1ST06          286/DATA    1433-EQU
   :T1ST07          287/DATA    1478-EQU     1485/ERROR   1489/ERROR   1493/B
   :T1ST08          288/DATA    1547-BAL     1556/ERROR   1563/ERROR   1569/ERROR
   :T1ST09          289/DATA    1580-EQU     1587/ERROR   1591/ERROR   1595/ERROR
   :T1ST10          290/DATA    1619-EQU     1630/B       1643/B
   :T1ST11          291/DATA  1656.1-BAL     1668/ERROR   1722/BGZ
   :T1ST12          292/DATA    1736-BAL     1743/ERROR   1747/B
   :T1ST13          293/DATA    1782-BAL     1788/B       1798/B
   :T1ST14          294/DATA    1826-BAL     1834/ERROR   1843/ERROR   1847/ERROR   1850/ERROR
   :T1ST15          295/DATA    1866-BAL
   :T1ST16          296/DATA    1894-BAL
   :T1ST17          297/DATA    1922-EQU
   :T1ST18          298/DATA    2146-BAL     2195/B
   :T1ST19          299/DATA    2212-LI      2324/B
   :T1ST20          300/DATA    2334-EQU     2391/B
   :T1ST21          301/DATA    2406-BAL
   :T1ST22          302/DATA    2479-BAL
   :T1ST23          303/DATA    2541-BAL
   :T1ST24          304/DATA    2611-EQU
   :T1ST25          305/DATA    2638-BAL     2682/B       2689/B
   :T1ST26          306/DATA    2700-EQU     2709/B       2778/B
   :T1ST27          307/DATA    2787-LI      2795/ERROR   2826/B
   :T1ST28          308/DATA    2835-BAL
   :T1ST29          309/DATA    3017-BAL
   :T1ST30          310/DATA    3170-EQU     3185/B       3196/B
   :T1ST30A        3197-EQU     3213/ERROR
   :T1ST30B        3212/B       3216-EQU
   :T1ST30C        3172-EQU
   :T1ST31          311/DATA    3228-EQU
   :T1ST32          312/DATA    3375-EQU
   :T1ST33          313/DATA    3503-EQU
   :T1ST34          314/DATA    3593-LI
   :T1ST35          315/DATA    3696-BAL     3822/B
   :T1ST36          316/DATA    3834-BAL     3867/B
   :T1ST37          317/DATA    3877-BAL     4005/B
   :T1ST38          318/DATA    4018-EQU
   :T1ST39          319/DATA    4107-EQU
   :T1ST40          320/DATA    4312-LI
   :T1ST41          321/DATA    4487-EQU
   :T1ST42          322/DATA    4532-EQU
   :T1ST43          323/DATA    4641-EQU
   :WAIT            155-EQU     4116/BAL*    4145/BAL*    4298/BAL*    4324/BAL*    4367/BAL*    4432/BAL*
      4443/BAL*    4462/BAL*    8166/BAL*    8750/BAL*
   :1BYTEIN         137-EQU
