1 C00   20:11 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,1                                                                *H01
       2                     1.010  VERSION  EQU      C'H02'                                            *H02
       3                   151.000  +151                                                                *H02
       4                   151.010   REV '   3281 - ANY DISK WITH 16 SECTORS PER TRACK'                 *H02
       5                   312.000  +312                                                                *H02
       6                   312.010           DATA     CTBL5-1           5                               *H02
       7                   319.000  +319                                                                *H02
       8                   319.010           DATA     3281              5 - 3281 (ANY 16 SECTOR DISK)   *H02
       9                   381.000  +381                                                                *H02
      10                   381.010           SPACE                                                      *H02
      11                   381.020           CI,5     5                 CHECK FOR 3281                  *H02
      12                   381.030           BNE      %+2                SKIP IF NOT TRUE               *H02
      13                   381.040           MTW,1    :CDB+1              ELSE SET SPECIAL FLAG         *H02
      14                   381.050           SPACE                                                      *H02
      15                   581.000  +581,581                                                            *H02
      16                   581.010           DATA     55+5              ASEEKT - AVERAGE SEEK TIME MAX  *H02
      17                   583.000  +583                                                                *H02
      18                   583.010           SPACE                                                      *H02
      19                   583.020  CTBL5    EQU      %                 3281 - ANY 16 SECTOR DISK       *H02
      20                   583.030           SPACE                                                      *H02
      21                   583.040           DATA     0                                                 *H02
      22                   583.050           DATA     0                                                 *H02
      23                   583.070           DATA     0                                                 *H02
      24                   583.080           DATA     0                                                 *H02
      25                   583.090           DATA     0                                                 *H02
      26                   583.100           DATA     0                                                 *H02
      27                   583.110           DATA     0                                                 *H02
      28                   583.120           DATA     0                                                 *H02
      29                   583.130           DATA     0                                                 *H02
      30                   583.140           DATA     0                                                 *H02
      31                   583.150           DATA     0                                                 *H02
      32                   583.160           DATA     0                                                 *H02
      33                   583.170           DATA     0                                                 *H02
      34                   583.180           DATA     0                                                 *H02
      35                   583.190           DATA     15                FILLSEC - LAST LEGAL SECTOR     *H02
      36                   583.200           DATA     0                                                 *H02
      37                   583.210           DATA     0                                                 *H02
      38                   583.215           SPACE                                                      *H02
      39                   583.220           DATA     0                 NO RELEASE                      *H02
      40                   583.230           DATA     0                 NO TEST MODE                    *H02
      41                   583.240           DATA     0                                                 *H02
      42                   583.250           DATA     0                                                 *H02
      43                   583.260           DATA     0                                                 *H02
      44                   685.000  +685,685                                                            *H02
      45                   685.010           CI,5     71                COMPARE P1 TO LAST TEST         *H02
      46                   696.000  +696,696                                                            *H02
      47                   696.010           CI,6     71                COMPARE P2 TO LAST TEST         *H02
      48                   844.000  +844                                                                *H02
      49                   844.010           DATA     T1ST71                                            *H02
      50                  4388.000  +4388                                                               *H01
      51                  4388.010           SPACE                                                      *H01
      52                  4414.000  +4414                                                               *H01
      53                  4414.010           LI,5     T1ST66HD                                          *H01
      54                  4416.000  +4416,4416                                                          *H01
      55                  4416.010           STD,8    *5                1. ALL SECTORS FLAWED           *H01
      56                  4418.000  +4418,4418                                                          *H01
      57                  4418.010           AI,5     2                                                 *H01
      58                  4418.020           BIR,4    %-3                                               *H01
      59                  4426.000  +4426,4426                                                          *H01
      60                  4426.010           STD,8    *5                1.  ALL SECTORS WILL CONTAIN    *H01
      61                  4428.000  +4428,4428                                                          *H01
      62                  4428.010           AI,5     2                                                 *H01
      63                  4428.020           BIR,4    %-3                                               *H01
      64                  4436.000  +4436,4436                                                          *H01
      65                  4436.010           STD,8    *5                1.  HEADERS FOR SEC 0, 1, 2     *H01
      66                  4438.000  +4438,4438                                                          *H01
      67                  4438.010           AI,5     2                                                 *H01
      68                  4438.020           BIR,4    %-3                                               *H01
      69                  4440.000  +4440,4443                                                          *H01
      70                  4440.010           AW,5     #HWINDEX          POINT BACK TO HEADERS           *H01
      71                  4440.020           AW,5     #HWINDEX           3, 4, AND 5                    *H01
      72                  4440.030           SPACE                                                      *H01
      73                  4440.040           LI,4     6                                                 *H01
      74                  4440.050           LI,8     1**8              INCREMENT CYLINDER BY ONE       *H01
      75                  4440.060           AWM,8    *5,4                                              *H01
      76                  4440.070           SPACE                                                      *H01
      77                  4440.080           LI,4     8                                                 *H01
      78                  4440.090           MTW,1    *5,4              INCREMENT HEAD BY ONE           *H01
      79                  4440.100           SPACE                                                      *H01
      80                  4440.110           LI,4     11                                                *H01
      81                  4440.120           AWM,15   *5,4              INCREMENT SECTOR BY ONE         *H01
      82                  5060.000  +5060                                                               *H02
      83                  5060.010           SPACE                                                      *H02
      84                  5060.020  * TST1,71 WILL TEST ON-SECTOR INTERRUPT TIMING OVER ENTIRE TRACK    *H02
      85                  5060.030           SPACE                                                      *H02
      86                  5060.040  T1ST71   BAL,15   TST1TM0           CLEAR TEST MODE                 *H02
      87                  5060.050           BAL,15   TST1RST            AND RESTORE CARRIAGE           *H02
      88                  5060.060           SPACE                                                      *H02
      89                  5060.070           LW,4     :DELXPSD          COUNTER 4 EQUALS ZERO           *H02
      90                  5060.080           STW,4    X'5B'                                             *H02
      91                  5060.090           LW,4     :DELMTW           COUNTER 4 PULSE                 *H02
      92                  5060.100           STW,4    X'55'                                             *H02
      93                  5060.110           LW,4     T1ST68D           I/O INTERRUPT                   *H02
      94                  5060.120           STW,4    X'5C'                                             *H02
      95                  5060.130           SPACE                                                      *H02
      96                  5060.140           LCW,5    #FILLSEC          NUMBER OF SECTORS               *H02
      97                  5060.150           AI,5     -1                 PER TRACK                      *H02
      98                  5060.155           LI,8     0                                                 *H02
      99                  5060.160           SPACE                                                      *H02
     100                  5060.170  T1ST71A  LI,4     -10               AVERAGE OVER 10 CYLINDERS       *H02
     101                  5060.190           SPACE                                                      *H02
     102                  5060.200           LI,0     0                 CLEAR CYLINDER                  *H02
     103                  5060.210           STH,0    8                  PART OF SEEK DATA              *H02
     104                  5060.220           SPACE                                                      *H02
     105                  5060.230           LI,14    X'7FFFF'          SET MIN AND MAX                 *H02
     106                  5060.240           LI,15    X'FFFFF'                                          *H02
     107                  5060.250           STD,14   T1ST68E                                           *H02
     108                  5060.260           SPACE                                                      *H02
     109                  5060.270  T1ST71B  STW,8    *IOBUF            SAVE SEEK DATA                  *H02
     110                  5060.280           SPACE                                                      *H02
     111                  5060.290           BAL,15   :INTAE            SET I/O INTERRUPT               *H02
     112                  5060.300           SPACE                                                      *H02
     113                  5060.310           LI,0     DA(T1ST68J)       SEEK MODIFIED                   *H02
     114                  5060.320           BAL,15   :IOEXEC                                           *H02
     115                  5060.330           SPACE                                                      *H02
     116                  5060.340           LI,14    3000              WAIT THREE SECONDS              *H02
     117                  5060.350           BAL,15   :DELAY             FOR SEEK INTERRUPT             *H02
     118                  5060.360           B        T1ST71C             SKIP IF ARRIVED IN TIME       *H02
     119                  5060.370           SPACE                                                      *H02
     120                  5060.380           BAL,15   :INTD             STOP ANY I/O INTERRUPTION       *H02
     121                  5060.390           SPACE                                                      *H02
     122                  5060.400           BAL,15   GENERR            ISSUE ERROR MESSAGES            *H02
     123                  5060.410           DATA     7101                                              *H02
     124                  5060.420           SPACE                                                      *H02
     125                  5060.430           BAL,15   *:SENSE           BRANCH ON SENSE                 *H02
     126                  5060.440           WAIT     %                  SWITCH SETTING                 *H02
     127                  5060.450           B        T1ST71B                                           *H02
     128                  5060.460           B        *SEQRETN                                          *H02
     129                  5060.470           SPACE                                                      *H02
     130                  5060.480  T1ST71C  MTH,1    8                 MOVE TO NEXT CYLINDER           *H02
     131                  5060.482           BIR,4    T1ST71B            BUT KEEP SAME SECTOR           *H02
     132                  5060.490           SPACE                                                      *H02
     133                  5060.500           LD,14    T1ST68E           GET MIN MAX SECTORS             *H02
     134                  5060.510           STW,14   T71TABL+16,5       SAVE IN VARIOUS TABLES         *H02
     135                  5060.520           STW,15   T71TABH+16,5                                      *H02
     136                  5060.530           SPACE                                                      *H02
     137                  5060.540           AI,8     1                 ADVANCE TO NEXT SECTOR          *H02
     138                  5060.550           SPACE                                                      *H02
     139                  5060.560           BIR,5    T1ST71A           CONTINUE ACROSS ENTIRE TRACK    *H02
     140                  5060.570           SPACE                                                      *H02
     141                  5060.580           LCW,5    #FILLSEC          PREPARE TO DISPLAY              *H02
     142                  5060.590           AI,5     -1                 THE TABLES                     *H02
     143                  5060.600           SPACE                                                      *H02
     144                  5060.610  T1ST71D  LW,12    5                 FIRST THE SECTOR                *H02
     145                  5060.620           AW,12    #FILLSEC                                          *H02
     146                  5060.630           AI,12    1                                                 *H02
     147                  5060.640           BAL,15   *:HEXC                                            *H02
     148                  5060.650           STH,15   M78+1,1                                           *H02
     149                  5060.660           SPACE                                                      *H02
     150                  5060.670           LW,12    T71TABL+16,5      THEN THE MINIMUM SECTOR         *H02
     151                  5060.680           BAL,15   *:HEXC                                            *H02
     152                  5060.690           STH,15   M78+3,1                                           *H02
     153                  5060.700           SPACE                                                      *H02
     154                  5060.710           LW,12    T71TABH+16,5      LAST THE MAXIMUM SECTOR         *H02
     155                  5060.720           BAL,15   *:HEXC                                            *H02
     156                  5060.730           STH,15   M78+5,1                                           *H02
     157                  5060.740           SPACE                                                      *H02
     158                  5060.750           BAL,15   *:PRINT                                           *H02
     159                  5060.760           DATA     M78                                               *H02
     160                  5060.770           SPACE                                                      *H02
     161                  5060.780           BIR,5    T1ST71D           LOOP FOR ALL ENTRIES            *H02
     162                  5060.790           SPACE                                                      *H02
     163                  5060.800           B        *SEQRETN                                          *H02
     164                  5060.810           SPACE                                                      *H02
     165                  5060.820  M78      TEXTC    'SEC: XX MIN: XX MAX: XX'                         *H02
     166                  5060.830           SPACE                                                      *H02
     167                  5060.840  T71TABL  RES      16                                                *H02
     168                  5060.850  T71TABH  RES      16                                                *H02
     169                  9999.999  +END
1 C00   20:11 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   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    3
A       1*        TEXT               VERSION  EQU      C'H02'                                            *H02
        2         TEXT               CATALOG  EQU      C'0603'
        3         TEXT               TITLE EQU S:PT('TELEFILE DISK DIAGNOSTIC 960-',CATALOG,'-',VERSION)
        4                                     PCC
        5                                     SYSTEM   SIG9P

        7         00000000           R0       EQU      0
        8         00000001           R1       EQU      1
        9         00000002           R2       EQU      2
       10         00000003           R3       EQU      3
       11         00000004           R4       EQU      4
       12         00000005           R5       EQU      5
       13         00000006           R6       EQU      6
       14         00000007           R7       EQU      7
       15         00000008           R8       EQU      8
       16         00000009           R9       EQU      9
       17         0000000A           R10      EQU      X'A'
       18         0000000B           R11      EQU      X'B'
       19         0000000C           R12      EQU      X'C'
       20         0000000D           R13      EQU      X'D'
       21         0000000E           R14      EQU      X'E'
       22         0000000F           R15      EQU      X'F'
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    4
A      24                            * PROCEDURE FOR GENERATING CALL TO ERROR DISPLAY AND SENSE
       25                                     OPEN     ERROR,SENSE,FAIL
       26         00000000           ERROR    CNAME
       27                                     PROC
       28                            LF       BAL,R15  GENERR
       29                                     DATA     AF(1)
       30                                     PEND

       32         00000000           SENSE    CNAME
       33                                     PROC
       34                            LF       BAL,R15  *:MLT+29          :SENSE ROUTINE
       35                                     WAIT     %
       36                                     DO       NUM(AF)>0
       37                                     B        AF(1)
       38                                     FIN
       39                                     PEND

       41         00000000           FAIL     CNAME
       42                                     PROC
       43                            LF       ERROR    AF(1)
       44                                     DO       NUM(AF)>1
       45                                     SENSE    AF(2)
       46                                     ELSE
       47                                     SENSE
       48                                     FIN
       49                                     PEND

       51                            * PROCEDURE FOR GENERATING CALL TO I/O ROUTINES
       52         01 026C6           :TIO     CNAME    :TIO
       53         01 026C1           :SIO     CNAME    :SIO
       54         01 026CB           :HIO     CNAME    :HIO
       55         01 026D5           :AIO     CNAME    :AIO
       56         01 026D8           :AIO1    CNAME    :AIO1
       57         01 026D0           :TDV     CNAME    :TDV
       58                                     PROC
       59                            LF       BAL,R15  NAME
       60                                     DATA     AF(1)
       61                                     DATA     AF(2)
       62                                     DO       NUM(AF)>2
       63                                     DO       TCOR(AF(3),0)
       64                                     B        %+1+AF(3)
       65                                     ELSE
       66                                     B        AF(3)
       67                                     FIN
       68                                     FIN
       69                                     PEND

       71                            * PROCEDURES FOR GENERATING I/O ERROR BIT TEST PATTERNS
       72         00000000           :TSEQ    CNAME
       73                                     PROC
       74                            LF       EQU      %
       75                            I        SET 1
       76                                     DO       NUM(AF)/4+1
       77                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
       78                            I        SET      I+4
       79                                     FIN
       80                                     PEND

       82         00000000           :TSEQEQU CNAME
       83                                     PROC
       84                            LF(1)    EQU      AF(1)
       85                            LF(2)    EQU      AF(1)+1
       86                            LF(3)    EQU      AF(1)+2
       87                            LF(4)    EQU      AF(1)+3
       88                            LF(5)    EQU      AF(1)+4
       89                            LF(6)    EQU      AF(1)+5
       90                            LF(7)    EQU      AF(1)+6
       91                            LF(8)    EQU      AF(1)+7
       92                                     PEND

       94                            *  PROCEDURE  FOR GENERATING DICTIONARY DOUBLE WORDS
       95         00000000           :PROCDIC CNAME
       96                                     PROC
       97                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
       98                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
       99                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
      100                                     PEND
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    5
A     102         00000000           REVCOUNT SET      0
      103         00000000           REVSTART SET      0

      105         00000000           REV      CNAME
      106                                     PROC
      107                                     DO       REVCOUNT=0
      108                            REVSTART SET      %
      109                            LF       RES      1
      110                                     FIN
      111                            REVCOUNT SET      REVCOUNT+1
      112                                     DO       SCOR(LF,REVEND)
      113                                     TEXTC    AF
      114                                     CODE
      115                                     ORG      REVSTART
      116                                     GEN,32   REVCOUNT
      117                                     ELSE
      118                                     TEXTC    AF
      119                                     FIN
      120                                     PEND

      122         00000000           CODE     CNAME
      123                                     PROC
      124                            REVPRINT LW,3     REVISION
      125                                     LW,4     =REVISION+1
      126                                     STW,4    TEXTADR
      127                            PRINT    BAL,15   *:PRINT
      128                            TEXTADR  DATA     0
      129                                     LB,5     *4
      130                                     AI,5     4
      131                                     SLS,5    -2
      132                                     AW,4     5
      133                                     BDR,3    PRINT-1
      134                                     LW,4     %+2
      135                                     STW,4    REVBRNCH
      136                                     B        REVBRNCH+1
      137                                     PEND
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    6
A     139   01 03000                          ORG      X'3000'
            01 03000
      140   01 03001    01404040 A   REVISION REV ' '
      141   01 03002    287DE2E8 A    REV '''SYST'' DESCRIBES THE SYSTEM ENVIRONMENT:'
            01 03003    E2E37D40 A
            01 03004    C4C5E2C3 A
            01 03005    D9C9C2C5 A
            01 03006    E240E3C8 A
            01 03007    C540E2E8 A
            01 03008    E2E3C5D4 A
            01 03009    40C5D5E5 A
            01 0300A    C9D9D6D5 A
            01 0300B    D4C5D5E3 A
            01 0300C    7A404040 A
      142   01 0300D    01404040 A    REV ' '
      143   01 0300E    284040E2 A    REV '  SYST,D1,D2,A1,L1,A2,L2,A3,L3,...,A8,L8'
            01 0300F    E8E2E36B A
            01 03010    C4F16BC4 A
            01 03011    F26BC1F1 A
            01 03012    6BD3F16B A
            01 03013    C1F26BD3 A
            01 03014    F26BC1F3 A
            01 03015    6BD3F36B A
            01 03016    4B4B4B6B A
            01 03017    C1F86BD3 A
            01 03018    F8404040 A
      144   01 03019    01404040 A    REV ' '
      145   01 0301A    2B4040C4 A    REV '  D1 IS THE MODEL NUMBER OF THE CONTROLLER:'
            01 0301B    F140C9E2 A
            01 0301C    40E3C8C5 A
            01 0301D    40D4D6C4 A
            01 0301E    C5D340D5 A
            01 0301F    E4D4C2C5 A
            01 03020    D940D6C6 A
            01 03021    40E3C8C5 A
            01 03022    40C3D6D5 A
            01 03023    E3D9D6D3 A
            01 03024    D3C5D97A A
      146   01 03025    01404040 A    REV ' '
      147   01 03026    20404040 A    REV '   7240 -  25MB, 203 CYL,  6 SEC'
            01 03027    F7F2F4F0 A
            01 03028    40604040 A
            01 03029    F2F5D4C2 A
            01 0302A    6B40F2F0 A
            01 0302B    F340C3E8 A
            01 0302C    D36B4040 A
            01 0302D    F640E2C5 A
            01 0302E    C3404040 A
      148   01 0302F    27404040 A    REV '   1032 -  25MB, 203 CYL,  6 SEC (DC32)'
            01 03030    F1F0F3F2 A
            01 03031    40604040 A
            01 03032    F2F5D4C2 A
            01 03033    6B40F2F0 A
            01 03034    F340C3E8 A
            01 03035    D36B4040 A
            01 03036    F640E2C5 A
            01 03037    C3404DC4 A
            01 03038    C3F3F25D A
      149   01 03039    27404040 A    REV '   2032 -  50MB, 406 CYL,  6 SEC (DC32)'
            01 0303A    F2F0F3F2 A
            01 0303B    40604040 A
            01 0303C    F5F0D4C2 A
            01 0303D    6B40F4F0 A
            01 0303E    F640C3E8 A
            01 0303F    D36B4040 A
            01 03040    F640E2C5 A
            01 03041    C3404DC4 A
            01 03042    C3F3F25D A
      150   01 03043    20404040 A    REV '   7270 -  50MB, 406 CYL,  6 SEC'
            01 03044    F7F2F7F0 A
            01 03045    40604040 A
            01 03046    F5F0D4C2 A
            01 03047    6B40F4F0 A
            01 03048    F640C3E8 A
            01 03049    D36B4040 A
            01 0304A    F640E2C5 A
            01 0304B    C3404040 A
      151   01 0304C    27404040 A    REV '   4032 - 100MB, 406 CYL, 12 SEC (DC32)'
            01 0304D    F4F0F3F2 A
            01 0304E    406040F1 A
            01 0304F    F0F0D4C2 A
            01 03050    6B40F4F0 A
            01 03051    F640C3E8 A
            01 03052    D36B40F1 A
            01 03053    F240E2C5 A
            01 03054    C3404DC4 A
            01 03055    C3F3F25D A
        1*  01 03056    2C404040 A    REV '   3281 - ANY DISK WITH 16 SECTORS PER TRACK'                 *H02
            01 03057    F3F2F8F1 A
            01 03058    406040C1 A
            01 03059    D5E840C4 A
            01 0305A    C9E2D240 A
            01 0305B    E6C9E3C8 A
            01 0305C    40F1F640 A
            01 0305D    E2C5C3E3 A
            01 0305E    D6D9E240 A
            01 0305F    D7C5D940 A
            01 03060    E3D9C1C3 A
            01 03061    D2404040 A
      152   01 03062    01404040 A    REV ' '
      153   01 03063    244040C4 A    REV '  D2 IS NONZERO TO TEST 7270 AS 2032'
            01 03064    F240C9E2 A
            01 03065    40D5D6D5 A
            01 03066    E9C5D9D6 A
            01 03067    40E3D640 A
            01 03068    E3C5E2E3 A
            01 03069    40F7F2F7 A
            01 0306A    F040C1E2 A
            01 0306B    40F2F0F3 A
            01 0306C    F2404040 A
      154   01 0306D    01404040 A    REV ' '
      155   01 0306E    214040C1 A    REV '  A(1) THRU A(8) DEVICE ADDRESSES'
            01 0306F    4DF15D40 A
            01 03070    E3C8D9E4 A
            01 03071    40C14DF8 A
            01 03072    5D40C4C5 A
            01 03073    E5C9C3C5 A
            01 03074    40C1C4C4 A
            01 03075    D9C5E2E2 A
            01 03076    C5E24040 A
      156   01 03077    244040D3 A    REV '  L(1) THRU L(8) AVAILABLE CYLINDERS'
            01 03078    4DF15D40 A
            01 03079    E3C8D9E4 A
            01 0307A    40D34DF8 A
            01 0307B    5D40C1E5 A
            01 0307C    C1C9D3C1 A
            01 0307D    C2D3C540 A
            01 0307E    C3E8D3C9 A
            01 0307F    D5C4C5D9 A
            01 03080    E2404040 A
      157   01 03081    01404040 A    REV ' '
      158   01 03082    2B4040D3 A    REV '  L(N) = 202 (OR 405) IMPLIES ALL AVAILABLE'
            01 03083    4DD55D40 A
            01 03084    7E40F2F0 A
            01 03085    F2404DD6 A
            01 03086    D940F4F0 A
            01 03087    F55D40C9 A
            01 03088    D4D7D3C9 A
            01 03089    C5E240C1 A
            01 0308A    D3D340C1 A
            01 0308B    E5C1C9D3 A
            01 0308C    C1C2D3C5 A
      159   01 0308D    304040D3 A    REV '  L(N) = 01000199 IMPLIES CYLINDERS 100 THRU 199'
            01 0308E    4DD55D40 A
            01 0308F    7E40F0F1 A
            01 03090    F0F0F0F1 A
            01 03091    F9F940C9 A
            01 03092    D4D7D3C9 A
            01 03093    C5E240C3 A
            01 03094    E8D3C9D5 A
            01 03095    C4C5D9E2 A
            01 03096    40F1F0F0 A
            01 03097    40E3C8D9 A
            01 03098    E440F1F9 A
            01 03099    F9404040 A
      160   01 0309A    1C40404D A    REV '  (FOR USE BY TST2 AND TST3)'
            01 0309B    C6D6D940 A
            01 0309C    E4E2C540 A
            01 0309D    C2E840E3 A
            01 0309E    E2E3F240 A
            01 0309F    C1D5C440 A
            01 030A0    E3E2E3F3 A
            01 030A1    5D404040 A
      161   01 030A2    01404040 A   REVEND REV ' '
            01 030A3    32303000
            01 030A4    32402BDF
            01 030A5    354030A7
            01 030A6    EAF0021C
            01 030A7    00000000 A
            01 030A8    F2500004 A
            01 030A9    20500004 A
            01 030AA    2550007E A
            01 030AB    30400005 A
            01 030AC    643030A5
            01 030AD    324030AF
            01 030AE    3540035D
            01 030AF    6800035E
            01 03000    00000017 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    7
A     163                            *  MONITOR LINK TABLE
      164                            *  ------------------
      165                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
      166                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
      167                            *  THE MONITOR (DPM).

      169   01 00200                          ORG      X'200'
            01 00200

      171         01 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
      172         01 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
      173         01 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
      174         01 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
      175         01 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
      176         01 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
      177         01 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
      178         01 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
      179         01 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
      180         01 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
      181         01 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
      182         01 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
      183         01 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
      184         01 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
      185         01 0021B           :ERRORM  EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
      186         01 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
      187         01 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
      188         01 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
      189         01 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
      190         01 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
      191         01 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
      192         01 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
      193         01 00223           :ERRORC  EQU      :MLT+35           PROGRAM ERROR COUNT
      194         01 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
      195         01 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
      196         01 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
      197         01 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
      198         01 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
      199         01 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
      200         01 0022A           :QSENSE  EQU      :MLT+42           QUICK SENSE SWITCH ROUTINE
      201         01 0022B           :WAIT    EQU      :MLT+43           WAIT SUBROUTINE
      202         01 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY INDEX
      203         01 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY INDEX
      204         01 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
      205         01 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
      206         01 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
      207         01 00231           :MONPBF  EQU      :MLT+49           ADDR OF ABSOLUTE RECOVERY ROUTINE
      208         01 00237           :REMOTE  EQU      :MLT+55           BRANCH TO CONNECT REMOTE
      209         01 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL

      211   01 00240                          ORG      X'240'
            01 00240
      212   01 00240    00000001 A            DATA     1
      213   01 00241    33000240     T1ST54T  MTW,0    %-1               TEST T1ST54
      214   01 00242    683004CF              BEZ      TESTEXC+1         B: NO
      215   01 00243    68000DFE              B        T1ST54
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    8
A     217                            *  PROGRAM INTERFACE TABLE
      218                            *  -----------------------
      219                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
      220                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
      221                            *  AND THE USER PROGRAM.

      223   01 00300                          ORG      X'300'
            01 00300

      225   01 00300    00000351     :PIT0    DATA     :CATALOG          ADDR OF LOC. CONTAINING CATALOG NO.
      226   01 00301    00000352     :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
      227   01 00302    00000320     :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
      228   01 00303    00000010 A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
      229   01 00304    0000035C     :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
      230   01 00305    00000330     :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
      231   01 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
      232   01 00307    00000000 A   :PIT7    DATA     0
      233   01 00308    00000367     :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
      234   01 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
      235   01 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER, PARAMETER IN ERROR
      236   01 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
      237   01 0030C    00000000 A   :PIT12   DATA     0                 RUNFLAG, RUN PROG IF FLAG = -1
      238   01 0030D    00000000 A            DATA     0,0
            01 0030E    00000000 A
      239   01 0030F    00000000 A   :PIT15   DATA     0                  INTERRUPT ENTRY
      240         01 00310           :PITLAST EQU      %
      241         01 0031B           :PITEND  EQU      :PIT0+27
      242         0000000B                    DO       :PITEND-:PITLAST  CLEAR LOCATIONS UP TO PIT27
      243   01 00310    00000000 A            DATA     0
      244                                     FIN
            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
      245   01 0031B    00003035     :PIT27   DATA     USERPROG+1028     END OF USER IO AREA
      246   01 0031C    00000000 A            DATA     0,0,0,0
            01 0031D    00000000 A
            01 0031E    00000000 A
            01 0031F    00000000 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE    9
A     248                            *  DIRECTIVE DICTIONARY
      249                            *  --------------------
      250                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
      251                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
      252                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
      253                            *  DEFINED AS FOLLOWS:

      255                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
      256                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
      257                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
      258                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
      259                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
      260                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      261                            *  BITS 48 THRU 63  ROUTINE ADDRESS

      263                            *  TYPE OF PARAMETER CONVERSION

      265                            *  000   HEXADECIMAL CONVERSION
      266                            *  001   DECIMAL CONVERSION TO BINARY
      267                            *  002   ALPHANUMERIC
      268                            *  007   UNASSIGNED

      270   01 00320                          ORG      X'320'
            01 00320

      272         01 00320           :DIC     EQU      %
      273   01 00320    E3E2E3F0 A            :PROCDIC 'TST0',1,1,7,7,0,TST0      COMPREHENSIVE TEST
                        27F0046C
      274   01 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1      FUNCTIONAL TEST
                        27F0048E
      275   01 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,1,7,7,0,TST2      RANDOM EXERCISER
                        27F01942
      276   01 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,1,0,0,TST3      UTILITY ROUTINES
                        24801F86
      277   01 00328    E2C5C5D2 A            :PROCDIC 'SEEK',1,1,1,1,0,SEEK      SEEK DIRECTIVE
                        2490255E
      278   01 0032A    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,7,0,:DATA     DATA DIRECTIVE
                        20702539
      279   01 0032C    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,7,7,0,:LIMIT    LIMIT DIRECTIVE
                        27F025B7
      280   01 0032E    C4C9E2D7 A            :PROCDIC 'DISP',2,7,7,7,0,:DISP     DISPLAY DIRECTIVE
                        5FF025A0
      281         01 00330           :DICEND  EQU      %
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   10
A     283                            *  CONTEXT DESCRIPTION TABLE
      284                            *  -------------------------
      285                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
      286                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
      287                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
      288                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
      289                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:

      291                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
      292                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      293                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
      294                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK

      296         01 00330           :CDT     EQU      :DICEND
      297   01 00330    09000006 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDB-:CDBM,:CDB
                        0000033F
      298         01 00332           :CDTEND  EQU      %

      300                            *  CONTEXT DATA BLOCK
      301                            *  ------------------
      302                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
      303                            *  INFORMATION FOR THE TEST PROGRAM.

      305   01 00332    00000000 A   :CDBMX   DATA     0                 INDEX TO CURRENT MODEL ENTRY IN :CDBM

      307         01 00333           :CDBTBLS EQU      %                 CONTROLLER/DEVICE ATTRIBUTES TABLES
      308   01 00333    000003E7              DATA     CTBL0-1           0
      309   01 00334    000003FD              DATA     CTBL1-1           1
      310   01 00335    00000413              DATA     CTBL2-1           2
      311   01 00336    00000429              DATA     CTBL3-1           3
      312   01 00337    0000043F              DATA     CTBL4-1           4
        1*  01 00338    00000455              DATA     CTBL5-1           5                               *H02

      314         01 00339           :CDBM    EQU      %
      315   01 00339    00001C48 A            DATA     7240              0 - 7240 (25MB, 203 CYL, 6 SEC)
      316   01 0033A    00000408 A            DATA     1032              1 - DC32 (25MB, 203 CYL, 6 SEC)
      317   01 0033B    000007F0 A            DATA     2032              2 - DC32 (50MB, 406 CYL, 6 SEC)
      318   01 0033C    00000FC0 A            DATA     4032              3 - DC32 (100MB, 406 CYL, 12 SEC)
      319   01 0033D    00001C66 A            DATA     7270              4 - 7270 (50MB, 406 CYL, 6 SEC)
        1*  01 0033E    00000CD1 A            DATA     3281              5 - 3281 (ANY 16 SECTOR DISK)   *H02

      321         01 0033F           :CDB     EQU      %
      322   01 0033F    00041C48 A            GEN,16,16 4,7240           PARAMETER CNT (0-15), MODEL (16-31)

      324   01 00340    00000000 A            DATA     0                 REVISION NUMBER
      325         00000008                    DO       8
      326   01 00341    000000F0 A            DATA     X'F0'             DEVICE ADDR
      327   01 00342    00000000 A            DATA     0                 PROTECTED TRACKS
      328                                     FIN
            01 00343    000000F0 A
            01 00344    00000000 A
            01 00345    000000F0 A
            01 00346    00000000 A
            01 00347    000000F0 A
            01 00348    00000000 A
            01 00349    000000F0 A
            01 0034A    00000000 A
            01 0034B    000000F0 A
            01 0034C    00000000 A
            01 0034D    000000F0 A
            01 0034E    00000000 A
            01 0034F    000000F0 A
            01 00350    00000000 A

      330         01 00351           :CDBEND  EQU      %
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   11
A     332         01 00351           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
      333   01 00351    00927E5B A            DATA     9600603

      335         01 00352           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
      336   01 00352    25E3C5D3 A            TEXTC    TITLE
            01 00353    C5C6C9D3 A
            01 00354    C540C4C9 A
            01 00355    E2D240C4 A
            01 00356    C9C1C7D5 A
            01 00357    D6E2E3C9 A
            01 00358    C340F9F6 A
            01 00359    F060F0F6 A
            01 0035A    F0F360C8 A
            01 0035B    F0F24040 A

      338                            *        *** ABSOLUTE RECOVERY ROUTINE ***

      340   01 0035C    35F00366     :RECOVER STW,15   RECSAVE           SAVE EXIT ADR
      341         01 0035D           REVBRNCH EQU      %
      342   01 0035D    6AF030A3              BAL,15   REVPRINT
      343   01 0035E    22100001 A            LI,1     1                 INITIALIZE
      344   01 0035F    22200002 A            LI,2     2                   REGISTERS

      346   01 00360    22300003 A            LI,3     3
      347   01 00361    6AF02B14              BAL,15   :INTD             DISARM IO INTERRUPT
      348   01 00362    6AF028EE              BAL,15   :DELAYD           DISARM COUNTER 4 INTERRUPT
      349   01 00363    6AF02A64              BAL,15   :SAVECLR          CLEAR ERROR REPORT TABLE
      350   01 00364    CFC003E2              HIO,12   *:DEVADDR         ISSUE HIO
      351   01 00365    E8000366              B        *RECSAVE
      352   01 00366    00000000 A   RECSAVE  DATA     0

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   12
A     355                            *        *** INITIAL - INITIALIZATION ROUTINE ***

      357                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
      358                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.

      360   01 00367    35F003E7     :INITIAL STW,15   INITIALX          SAVE EXIT ADR
      361   01 00368    6AF00237              BAL,15   :REMOTE           CONNECT REMOTE
      362   01 00369    5280033F              LH,8     :CDB              FETCH NUMBER OF PARAMETERS ENTERED
      363   01 0036A    21800002 A            CI,8     2                 COMPARE TO 2
      364   01 0036B    69200372              BG       INITIALB          B:  NO. OF PARAMETERS > 2
      365   01 0036C    353003E5              STW,3    PARNOERR          PARAMETER 3 IN ERROR
      366   01 0036D    22000000 A   INITIALA LI,0     0
      367   01 0036E    3500030C              STW,0    :PIT12            RESET RUN FLAG
      368   01 0036F    328003E5              LW,8     PARNOERR
      369   01 00370    3580030A              STW,8    :PIT10            SAVE PARAMETER IN ERROR
      370   01 00371    E80003E7              B        *INITIALX         RETURN TO MONITOR

      372   01 00372    6B90033F     INITIALB INT,9    :CDB              GET CONTROLLER MODEL NO.
      373   01 00373    225FFFFA A            LI,5     :CDBM-:CDB        SEARCH FOR MODEL IN :CDB TABLES
      374   01 00374    319A033F              CW,9     :CDB,5
      375   01 00375    68300379              BE       %+4
      376   01 00376    65500374              BIR,5    %-2
      377   01 00377    351003E5              STW,1    PARNOERR
      378   01 00378    6800036D              B        INITIALA

      380   01 00379    20500006 A            AI,5     :CDB-:CDBM        SAVE INDEX TO :CDBM TABLE
      381   01 0037A    35500332              STW,5    :CDBMX

        2*  01 0037B    21500005 A            CI,5     5                 CHECK FOR 3281                  *H02
        3*  01 0037C    6930037E              BNE      %+2                SKIP IF NOT TRUE               *H02
        4*  01 0037D    33100340              MTW,1    :CDB+1              ELSE SET SPECIAL FLAG         *H02

      382   01 0037E    329A0333              LW,9     :CDBTBLS,5        GET ADDR OF ATTRIBUTES TABLE

      384   01 0037F    22500016 A            LI,5     #CTBLE-#CTBLS     OVERLAY PGMS DEVICE ATTRIBUTES TBL
      385   01 00380    B24A0009 A            LW,4    *9,5                  WITH CONTROLLER/DEVICE ATTRIBUTES
      386   01 00381    354A2B93              STW,4    #CTBLS-1,5
      387   01 00382    64500380              BDR,5    %-2

      389   01 00383    33E00008 A   INITIALC MTW,-2   8                 SUBTRACT 2 FROM PARAMETER COUNT
      390   01 00384    358003E6              STW,8    PARNO             SAVE REMAINING PARAMETER COUNT
      391   01 00385    353003E5              STW,3    PARNOERR          NEXT PARAMETER TO BE VERIFIED
      392   01 00386    22400000 A            LI,4     0
      393   01 00387    354003E3              STW,4    DEVPT             DEV ADDR TABLE POINTER
      394   01 00388    22500002 A            LI,5     2                 INDEX OF CONTEXT DATA BLOCK
      395   01 00389    328A033F     INITIALD LW,8     :CDB,5            FETCH DEVICE ADR
      396   01 0038A    21800080 A            CI,8     X'80'             COMPARE DEVICE
      397   01 0038B    6840036D              BCR,4    INITIALA          B: DEV ADR < 80 - USER ERROR
      398   01 0038C    218007FF A            CI,8     X'7FF'
      399   01 0038D    6920036D              BG       INITIALA          B: DEV ADR < 7FF - USER ERROR
      400   01 0038E    21800008 A            CI,8     8
      401   01 0038F    6940036D              BCS,4    INITIALA          B: STORAGE UNIT ADDR > 8
      402   01 00390    358803BA              STW,8    SYSTDEVA,4        STORE DEVICE ADR
      403   01 00391    331003E5              MTW,1    PARNOERR          INCREMENT PARAMETER NUMBER
      404   01 00392    33F003E6              MTW,-1   PARNO             DECR. REMAINING PAR. COUNT
      405   01 00393    6830036D              BEZ      INITIALA          ODD NUMBER OF PARAMETERS
      406   01 00394    33100005 A            MTW,1    5                 INDEX: CDB
      407   01 00395    330A033F              MTW,0    :CDB,5            TEST CYL. PARAMETER
      408   01 00396    6930039A              BNEZ     INITIALE          B: CYL PARAMETER NOT EQUAL TO ZERO
      409   01 00397    32E02B9A              LW,14    #DEFLTS           CYLINDER
      410   01 00398    32F02B9B              LW,15    #DEFLTE             AVAILABLE BY DEFAULT
      411   01 00399    680003AB              B        INITIALF
      412   01 0039A    32CA033F     INITIALE LW,12    :CDB,5            FETCH STARTING CYLINDER ADDR (BCD)
      413   01 0039B    52C0000C A            LH,12    12
      414   01 0039C    EAF00213              BAL,15  *:BCDC             CONVERT NUMBER TO BINARY
      415   01 0039D    37F02B9C              MW,15    #ABSOLC           MULTIPLY CYL. ADR BY 120
      416   01 0039E    35F0000E A            STW,15   14                SAVE ABSOLUTE SECTOR STARTING ADR
      417   01 0039F    32CA033F              LW,12    :CDB,5            FETCH ENDING CYLINDER ADDR (DCD)
      418   01 003A0    52C2000C A            LH,12    12,1
      419   01 003A1    EAF00213              BAL,15  *:BCDC             CONVERT NUMBER TO BINARY
      420   01 003A2    37F02B9C              MW,15    #ABSOLC           MULTIPLY CYL.ADR BY 120
      421   01 003A3    30F02B9C              AW,15    #ABSOLC           INCREMENT ENDING ADR BY 119
      422   01 003A4    33F0000F A            MTW,-1   15
      423   01 003A5    31F0000E A            CW,15    14                COMPARE ENDING ADR TO STARTING ADR
      424   01 003A6    6820036D              BLE      INITIALA          B: ENDING ADDR <= STARTING ADR
      425   01 003A7    31F02B9E              CW,15     #RECMAX          COMPARE ENDING ADR TO HIGHES ADR
      426   01 003A8    6810036D              BGE      INITIALA          B: ENDING ADDR => 203 X 120
      427   01 003A9    3300000E A            MTW,0    14                TEST STARTING ADR FOR NEG. VALUE
      428   01 003AA    6910036D              BLZ      INITIALA          B: STARTING ADR IS NEGATIVE
      429   01 003AB    35E803C2     INITIALF STW,14   SYSTFRST,4
      430   01 003AC    35E803D2              STW,14   CURSFRST,4        SAVE STARTING
      431   01 003AD    35F803CA              STW,15   SYSTLAST,4          AND ENDING ADDRESSES
      432   01 003AE    35F803DA              STW,15   CURSLAST,4
      433   01 003AF    331003E3              MTW,1    DEVPT             INCR. DEV ADR TABLE POINTER
      434   01 003B0    324003E3              LW,4     DEVPT
      435   01 003B1    33100005 A            MTW,1    5                 INCR. CDB INDEX
      436   01 003B2    331003E5              MTW,1    PARNOERR          INCR. PARAMETER NUMBER
      437   01 003B3    33F003E6              MTW,-1   PARNO             DECR. REMAINING PARAMETER COUNT
      438   01 003B4    69300389              BNEZ     INITIALD          TEST NEXT TWO PARAMETERS
      439   01 003B5    354003E4              STW,4    DEVNO             SAVE NUMBER OF DEVICES IN TABLE
      440   01 003B6    6AF0035C     INITIALH BAL,15   :RECOVER          B: EXECUTE RECOVERY ROUTINE
      441   01 003B7    224FFFFF A            LI,4     -1
      442   01 003B8    3540030C              STW,4    :PIT12            SET RUN FLAG
      443   01 003B9    E80003E7              B        *INITIALX         B: RETURN TO MONITOR

      445                                     BOUND    8
      446   01 003BA                 SYSTDEVA RES      8                 DEVICE ADDR TABLE
      447   01 003C2                 SYSTFRST RES      8                 SEEK STARTING ADDRESS TABLE (SYST)
      448   01 003CA                 SYSTLAST RES      8                 SEEK ENDING ADDRESS TABLE   (SYST)
      449   01 003D2                 CURSFRST RES      8                 SEEK STARTING ADDRESS TABLE (SEEK)
      450   01 003DA                 CURSLAST RES      8                 SEEK STARTING ADDRESS TABLE (SEEK)
      451   01 003E2    00000000 A   :DEVADDR DATA     0                 DEVICE ADDR
      452   01 003E3    00000000 A   DEVPT    DATA     0                 DEVICE TABLE POINTER
      453   01 003E4    00000000 A   DEVNO    DATA     0                 NUMBER OF DEVICE ADDRESS IN TABLE
      454   01 003E5    00000000 A   PARNOERR DATA     0                 PARAMETER IN ERROR
      455   01 003E6    00000000 A   PARNO    DATA     0                 NUMBER OF PARAMETERS VERIFIED
      456   01 003E7    00000000 A   INITIALX DATA     0                 EXIT ADR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   13
A     458         01 003E8           CTBL0    EQU      %                 7240 (25MB, 203 CYL, 6 SEC)

      460   01 003E8    00000100 A            DATA     256               RLEN    - RECORD LENGTH (WORDS)
      461   01 003E9    00000002 A            DATA     2                 HRLEN   - HEADER READ LENGTH (WORDS)
      462   01 003EA    0000000C A            DATA     2*6               HWLEN   - HEADER WRITE LENGTH (WORDS)
      463   01 003EB    00000006 A            DATA     6                 SEEKIHW - SEEK INCR FOR WRITE
      464   01 003EC    00000001 A            DATA     1                 SECZERO - SECTOR ZERO FLAG
      465   01 003ED    00000078 A            DATA     6*20              SEEKREQ - SECTORS PER CYLINDER
      466   01 003EE    00005EB0 A            DATA     202*6*20          DEFLTS  - DEFAULT STARTING SECTOR
      467   01 003EF    00005F27 A            DATA     203*6*20-1        DEFLTE  - DEFAULT ENDING SECTOR
      468   01 003F0    00000078 A            DATA     6*20              ABSLOC  - SECTORS PER CYLINDER
      469   01 003F1    00000006 A            DATA     6                 ABSLOC1 - SECTORS PER TRACK
      470   01 003F2    00005F28 A            DATA     203*20*6          RECMAX  - MAX ABS SECTOR COUNT
      471   01 003F3    FFFFFFFA A            DATA     -6                HWINDEX - HEADER WRITE INDEX
      472   01 003F4    FFFFFFFF A            DATA     -1                HRINDEX - HEADER READ INDEX
      473   01 003F5    00000013 A            DATA     19                FILLHD  - LAST LEGAL HEAD NO.
      474   01 003F6    00000005 A            DATA     5                 FILLSEC - LAST LEGAL SECTOR NO.
      475   01 003F7    000000CA A            DATA     202               FILLTRK - LAST LEGAL TRACK NO.
      476   01 003F8    000000C8 A            DATA     200               ALTRCYL - FIRST ALTERNATE CYL. NO.

      478   01 003F9    FFFFFFFF A            DATA     -1                RLSOPT  - RELEASE/RESERVE FUNCTIONAL
      479   01 003FA    FFFFFFFF A            DATA     -1                TMOPT   - TEST MODE FUNCTIONAL
      480   01 003FB    00000050 A            DATA     75+5              ASEEKT  - AVE. SEEK TIME (MAX.)
      481   01 003FC    00000000 A            DATA     0                 HDRTYPE - HEADER TYPE (203 CYL.)
      482   01 003FD    00CA1000 A            DATA     202**16+16**8     TSTSHDR - TEST SECTORS SEEK ADDR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   14
A     484         01 003FE           CTBL1    EQU      %                 1032 (25MB, 203 CYL, 6 SEC)
      485   01 003FE    00000100 A            DATA     256               RLEN    - RECORD LENGTH (WORDS)
      486   01 003FF    00000002 A            DATA     2                 HRLEN   - HEADER READ LENGTH (WORDS)
      487   01 00400    0000000C A            DATA     2*6               HWLEN   - HEADER WRITE LENGTH (WORDS)
      488   01 00401    00000006 A            DATA     6                 SEEKIHW - SEEK INCR FOR WRITE
      489   01 00402    00000001 A            DATA     1                 SECZERO - SECTOR ZERO FLAG
      490   01 00403    00000078 A            DATA     6*20              SEEKREQ - SECTORS PER CYLINDER
      491   01 00404    00005EB0 A            DATA     202*6*20          DEFLTS  - DEFAULT STARTING SECTOR
      492   01 00405    00005F27 A            DATA     203*6*20-1        DEFLTE  - DEFAULT ENDING SECTOR
      493   01 00406    00000078 A            DATA     6*20              ABSLOC  - SECTORS PER CYLINDER
      494   01 00407    00000006 A            DATA     6                 ABSLOC1 - SECTORS PER TRACK
      495   01 00408    00005F28 A            DATA     203*20*6          RECMAX  - MAX ABS SECTOR COUNT
      496   01 00409    FFFFFFFA A            DATA     -6                HWINDEX - HEADER WRITE INDEX
      497   01 0040A    FFFFFFFF A            DATA     -1                HRINDEX - HEADER READ INDEX
      498   01 0040B    00000013 A            DATA     19                FILLHD  - LAST LEGAL HEAD NO.
      499   01 0040C    00000005 A            DATA     5                 FILLSEC - LAST LEGAL SECTOR NO.
      500   01 0040D    000000CA A            DATA     202               FILLTRK - LAST LEGAL TRACK NO.
      501   01 0040E    000000C8 A            DATA     200               ALTRCYL - FIRST ALTERNATE CYL. NO.

      503   01 0040F    00000000 A            DATA     0                 RLSOPT  - RELEASE/RESERVE NOT FUNCTIONAL
      504   01 00410    00000000 A            DATA     0                 TMOPT   - TEST MODE NOT FUNCTIONAL
      505   01 00411    00000026 A            DATA     33+5              ASEEKT  - AVE. SEEK TIME (MAX.)
      506   01 00412    00000000 A            DATA     0                 HDRTYPE - HEADER TYPE (203 CYL.)
      507   01 00413    00CA1000 A            DATA     202**16+16**8     TSTSHDR - TEST SECTORS SEEK ADDR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   15
A     509         01 00414           CTBL2    EQU      %                 2032 (50MB, 406 CYL, 6 SEC)
      510   01 00414    00000100 A            DATA     256               RLEN    - RECORD LENGTH (WORDS)
      511   01 00415    00000002 A            DATA     2                 HRLEN   - HEADER READ LENGTH (WORDS)
      512   01 00416    0000000C A            DATA     2*6               HWLEN   - HEADER WRITE LENGTH (WORDS)
      513   01 00417    00000006 A            DATA     6                 SEEKIHW - SEEK INCR FOR WRITE
      514   01 00418    00000001 A            DATA     1                 SECZERO - SECTOR ZERO FLAG
      515   01 00419    00000078 A            DATA     6*20              SEEKREQ - SECTORS PER CYLINDER
      516   01 0041A    0000BDD8 A            DATA     405*6*20          DEFLTS  - DEFAULT STARTING SECTOR
      517   01 0041B    0000BE4F A            DATA     406*6*20-1        DEFLTE  - DEFAULT ENDING SECTOR
      518   01 0041C    00000078 A            DATA     6*20              ABSLOC  - SECTORS PER CYLINDER
      519   01 0041D    00000006 A            DATA     6                 ABSLOC1 - SECTORS PER TRACK
      520   01 0041E    0000BE50 A            DATA     406*20*6          RECMAX  - MAX ABS SECTOR COUNT
      521   01 0041F    FFFFFFFA A            DATA     -6                HWINDEX - HEADER WRITE INDEX
      522   01 00420    FFFFFFFF A            DATA     -1                HRINDEX - HEADER READ INDEX
      523   01 00421    00000013 A            DATA     19                FILLHD  - LAST LEGAL HEAD NO.
      524   01 00422    00000005 A            DATA     5                 FILLSEC - LAST LEGAL SECTOR NO.
      525   01 00423    00000195 A            DATA     405               FILLTRK - LAST LEGAL TRACK NO.
      526   01 00424    00000193 A            DATA     403               ALTRCYL - FIRST ALTERNATE CYL. NO.

      528   01 00425    00000000 A            DATA     0                 RLSOPT  - RELEASE/RESERVE NOT FUNCTIONAL
      529   01 00426    00000000 A            DATA     0                 TMOPT   - TEST MODE NOT FUNCTIONAL
      530   01 00427    00000030 A            DATA     43+5              ASEEKT  - AVE. SEEK TIME (MAX.)
      531   01 00428    00000000 A            DATA     0                 HDRTYPE - HEADER TYPE (6 SECTORS)
      532   01 00429    01951000 A            DATA     405**16+16**8     TSTSHDR - TEST SECTORS SEEK ADDR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   16
A     534         01 0042A           CTBL3    EQU      %                 4032 (100MB, 406 CYL, 12 SEC)   *H00
      535   01 0042A    00000100 A            DATA     256               RLEN - RECORD LENGTH (WORDS)
      536   01 0042B    00000002 A            DATA     2                 HRLEN - HEADER READ LENGTH (WORDS)
      537   01 0042C    00000018 A            DATA     2*12              HWLEN - HEADER WRITE LENGTH (WORDS)
      538   01 0042D    0000000C A            DATA     12                SEEKIHW - SEEK INCREMENT FOR WRITE
      539   01 0042E    00000001 A            DATA     1                 SECZERO - SECTOR ZERO FLAG
      540   01 0042F    000000F0 A            DATA     12*20             SEEKREQ - SECTORS PER CYLINDERS
      541   01 00430    00017BB0 A            DATA     405*12*20         DEFLTS - DEFAULT STARTING SECTOR
      542   01 00431    00017C9F A            DATA     406*12*20-1       DEFLTE - DEFAULT ENDING SECTOR
      543   01 00432    000000F0 A            DATA     12*20             ABSLOC - SECTORS PER CYLINDER
      544   01 00433    0000000C A            DATA     12                ABSLOC1 - SECTORS PER TRACK
      545   01 00434    00017CA0 A            DATA     406*20*12         RECMAX - MAXIMUM ABS SECTOR COUNT
      546   01 00435    FFFFFFF4 A            DATA     -12               HWINDEX - HEADER WRITE INDEX
      547   01 00436    FFFFFFFF A            DATA     -1                HRINDEX - HEADER READ INDEX
      548   01 00437    00000013 A            DATA     19                FILLHD - LAST LEGAL HEAD NO.
      549   01 00438    0000000B A            DATA     11                FILLSEC - LAST LEGAL SECTOR NO.
      550   01 00439    00000195 A            DATA     405               FILLTRK - LAST LEGAL TRACK NO.
      551   01 0043A    00000193 A            DATA     403               ALTRCYL - FIRST ALTERNATE CYL. NO.

      553   01 0043B    00000000 A            DATA     0                 RLSOPT - RELEASE/RESERVE NOT FUNCTIONAL
      554   01 0043C    00000000 A            DATA     0                 TMOPT - TEST MODE NOT FUNCTIONAL
      555   01 0043D    00000030 A            DATA     43+5              ASEEK - AVE. SEEK TIME (MAX.)
      556   01 0043E    00000001 A            DATA     1                 HDRTYPE - 12 SECTOR FLAG        *H00
      557   01 0043F    01951000 A            DATA     405**16+16**8     TSTSHDR - TEST SECTORS SEEK ADDR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   17
A     559         01 00440           CTBL4    EQU      %                 7270 (50MB, 406 CYL, 6 SEC)

      561   01 00440    00000100 A            DATA     256               RLEN    - RECORD LENGTH (WORDS)
      562   01 00441    00000002 A            DATA     2                 HRLEN   - HEADER READ LENGTH (WORDS)
      563   01 00442    0000000C A            DATA     2*6               HWLEN   - HEADER WRITE LENGTH (WORDS)
      564   01 00443    00000006 A            DATA     6                 SEEKIHW - SEEK INCR FOR WRITE
      565   01 00444    00000001 A            DATA     1                 SECZERO - SECTOR ZERO FLAG
      566   01 00445    00000078 A            DATA     6*20              SEEKREQ - SECTORS PER CYLINDER
      567   01 00446    0000BDD8 A            DATA     405*6*20          DEFLTS  - DEFAULT STARTING SECTOR
      568   01 00447    0000BE4F A            DATA     406*6*20-1        DEFLTE  - DEFAULT ENDING SECTOR
      569   01 00448    00000078 A            DATA     6*20              ABSLOC  - SECTORS PER CYLINDER
      570   01 00449    00000006 A            DATA     6                 ABSLOC1 - SECTORS PER TRACK
      571   01 0044A    0000BE50 A            DATA     406*20*6          RECMAX  - MAX ABS SECTOR COUNT
      572   01 0044B    FFFFFFFA A            DATA     -6                HWINDEX - HEADER WRITE INDEX
      573   01 0044C    FFFFFFFF A            DATA     -1                HRINDEX - HEADER READ INDEX
      574   01 0044D    00000013 A            DATA     19                FILLHD  - LAST LEGAL HEAD NO.
      575   01 0044E    00000005 A            DATA     5                 FILLSEC - LAST LEGAL SECTOR NO.
      576   01 0044F    00000195 A            DATA     405               FILLTRK - LAST LEGAL TRACK NO.
      577   01 00450    00000193 A            DATA     403               ALTRCYL - FIRST ALTERNATE CYL. NO.

      579   01 00451    FFFFFFFF A            DATA     -1                RLSOPT  - RELEASE/RESERVE NOT FUNCTIONAL
      580   01 00452    FFFFFFFF A            DATA     -1                TMOPT   - TEST MODE NOT FUNCTIONAL
        1*  01 00453    0000003C A            DATA     55+5              ASEEKT - AVERAGE SEEK TIME MAX  *H02
      582   01 00454    00000000 A            DATA     0                 HDRTYPE - HEADER TYPE (6 SECTORS)
      583   01 00455    01951000 A            DATA     405**16+16**8     TSTSHDR - TEST SECTORS SEEK ADDR

        2*        01 00456           CTBL5    EQU      %                 3281 - ANY 16 SECTOR DISK       *H02

        4*  01 00456    00000000 A            DATA     0                                                 *H02
        5*  01 00457    00000000 A            DATA     0                                                 *H02
        6*  01 00458    00000000 A            DATA     0                                                 *H02
        7*  01 00459    00000000 A            DATA     0                                                 *H02
        8*  01 0045A    00000000 A            DATA     0                                                 *H02
        9*  01 0045B    00000000 A            DATA     0                                                 *H02
       10*  01 0045C    00000000 A            DATA     0                                                 *H02
       11*  01 0045D    00000000 A            DATA     0                                                 *H02
       12*  01 0045E    00000000 A            DATA     0                                                 *H02
       13*  01 0045F    00000000 A            DATA     0                                                 *H02
       14*  01 00460    00000000 A            DATA     0                                                 *H02
       15*  01 00461    00000000 A            DATA     0                                                 *H02
       16*  01 00462    00000000 A            DATA     0                                                 *H02
       17*  01 00463    00000000 A            DATA     0                                                 *H02
       18*  01 00464    0000000F A            DATA     15                FILLSEC - LAST LEGAL SECTOR     *H02
       19*  01 00465    00000000 A            DATA     0                                                 *H02
       20*  01 00466    00000000 A            DATA     0                                                 *H02

       22*  01 00467    00000000 A            DATA     0                 NO RELEASE                      *H02
       23*  01 00468    00000000 A            DATA     0                 NO TEST MODE                    *H02
       24*  01 00469    00000000 A            DATA     0                                                 *H02
       25*  01 0046A    00000000 A            DATA     0                                                 *H02
       26*  01 0046B    00000000 A            DATA     0                                                 *H02
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   18
A     585                            *                                                                      *
      586                            *        *** COMPREHENSIVE TEST ***                                    *
      587                            *                                                                      *
      588                            * THIS DIRECTIVE PERFORMS THE ENTIRE FUNCTIONAL TEST ON ALL UNITS      *
      589                            * SPECIFIED BY THE SYST DIRECTIVE FOLLOWED BY THE EXECUTION OF THE     *
      590                            * RANDOM EXECISER TEST.                                                *
      591                            *                                                                      *
      592                            *        P1 = NUMBER OF IO INSTRUCTIONS (SIO'S) TO BE ISSUED
      593                            *             DURING THE EXECUTION OF THE RANDOM EXECISER.             *
      594                            *             0 < P1 > 99999999
      595                            *                                                                      *
      596                            *             IF P1 = 0, 5000 SIO'S TIMES THE NUMBER OF DEVICES        *
      597                            *             SPECIFIED IN THE SYST DIRECTIVE WILL BE ISSUED BY        *
      598                            *             DEFAULT.                                                 *
      599                            *                                                                      *
      600                            *        P2 = RETRY COUNT FOR THE RANDOM EXERCISER READ AND            *
      601                            *             WRITE ORDERS.                                            *
      602                            *                                                                      *
      603                            *             0 < P2 < 99                                              *
      604                            *                                                                      *
      605   01 0046C    22800000 A   TST0     LI,8     0
      606   01 0046D    22900000 A            LI,9     0                 SET P1 AND
      607   01 0046E    46800201              XW,8     :P1                 P2 = 0
      608   01 0046F    46900202              XW,9     :P2                   AND SAVE
      609   01 00470    1580048A              STD,8    TST0SAVE                PARAMETERS
      610   01 00471    3510048C              STW,1    TST0FLAG          SET TST0 FLAG
      611   01 00472    68000490              B        TST1+2            B: EXECUTE FUNCTIONAL TEST
      612   01 00473    22000000 A   TST0FUNC LI,0     0                 RESET
      613   01 00474    3500048D              STW,0    TST1FLAG            TST1 FLAG
      614   01 00475    1280048A              LD,8     TST0SAVE          FETCH P1 AND P2
      615   01 00476    33000008 A            MTW,0    8                 TEST P1
      616   01 00477    6930047B              BNEZ     %+4               B: P1 > 0
      617   01 00478    22B01388 A            LI,11    5000
      618   01 00479    37A003E4              MW,10    DEVNO             5000 X NO OF DEVICES
      619   01 0047A    35B00008 A            STW,11   8                 SIO CYCLE COUNT
      620   01 0047B    35800201              STW,8    :P1
      621   01 0047C    35900202              STW,9    :P2

      623   01 0047D    EAF0021C              BAL,15   *:PRINT           DISPLAY RANDOM TESTING
      624   01 0047E    00000480              DATA     TST0RND            WARNING MESSAGE

      626   01 0047F    68001944              B        TST2+2            B: EXECUTE RANDOM EXERCISER

      628   01 00480    14C2C5C7 A   TST0RND  TEXTC    'BEGIN RANDOM TESTING'
            01 00481    C9D540D9 A
            01 00482    C1D5C4D6 A
            01 00483    D440E3C5 A
            01 00484    E2E3C9D5 A
            01 00485    C7404040 A
      629   01 00486    EAF0021D     TST0RAND SENSE    TST0              SSW1 => LOOP ON ERROR
            01 00487    2E000487
            01 00488    6800046C
      630   01 00489    E8000214              B        *:MONITOR         B: RETURN TO MONITOR

      632                                     BOUND    8
      633   01 0048A    00000000 A   TST0SAVE DATA     0,0               P1,P2
            01 0048B    00000000 A
      634   01 0048C    00000000 A   TST0FLAG DATA     0                 TST0 FLAG
      635   01 0048D    00000000 A   TST1FLAG DATA     0                 TST1 FLAG

      637                            *                 TST0FLAG - SET BY TST0, RESET BY TST1 & TST2
      638                            *                 TST1FLAG - SET BY TST0 & TST1, RESET BY TST2
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   19
A     640                            *                                                                      *
      641                            *        *** FUNCTIONAL TEST ROUTINES ***                              *
      642                            *                                                                      *
      643                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT THE ENTIRE FUNCTIONAL TEST, *
      644                            * AN INDIVIDUAL FUNCTIONAL SUBTEST, OR A GROUP OF SUBTESTS (1-69).
      645                            *                                                                      *
      646                            *        P1 = 0 SELECT THE ENTIRE FUNCTIONAL TEST. P2 IS IGNORED.      *
      647                            *        P1 = 1 THRU 70
      648                            *               START EXECUTING FUNCTIONAL SUBTESTS COMMENCING         *
      649                            *               AT TEST P1.                                            *
      650                            *                                                                      *
      651                            *        P2 = 1 THRU 70
      652                            *               STOP EXECUTING FUNCTIONAL SUBTESTS AFTER               *
      653                            *               COMPLETION OF TEST P2.                                 *
      654                            *                                                                      *
      655                            *        LIMITS:  P1 = 0; PERFORM ENTIRE TEST                          *
      656                            *                 0 < P1 <= P2 <= 70
      657                            *                                                                      *
      658                            * ALL DEVICES SPECIFIED WITH THE SYST DIRECTIVE WILL BE TESTED         *
      659                            * IN SEQUENCE.                                                         *
      660                            *                                                                      *
      661                            * TEST VARIATIONS                                                      *
      662                            * ---------------                                                      *
      663                            *                                                                      *
      664                            *        SYST: THIS DIRECTIVE ALLOWS THE USER TO LIMIT THE SURFACE     *
      665                            *              AREA UNDER TEST FOR THE PURPOSE OF WRITING DATA AND     *
      666                            *              HEADERS. HEADER WRITING WILL ONLY BE ATTEMPTED ON       *
      667                            *              CYL 202 HEADS 16 THRU 19.                               *
      668                            *                                                                      *

      670   01 0048E    22000000 A   TST1     LI,0     0                 RESET
      671   01 0048F    3500048C              STW,0    TST0FLAG            TEST 0 FLAG
      672   01 00490    3510048D              STW,1    TST1FLAG          SET TST1 FLAG
      673   01 00491    328003BA              LW,8     SYSTDEVA
      674   01 00492    358003E2              STW,8    :DEVADDR
      675   01 00493    6AF02B14     TST001   BAL,15   :INTD             DISARM INTERRUPT
      676   01 00494    22000000 A            LI,0     0                 RESET DEVICE
      677   01 00495    350003E3              STW,0    DEVPT              POINTER
      678   01 00496    350028A3              STW,0    :COMFLAG          RESET PRINT INHIBIT FLAG
      679   01 00497    32500201              LW,5     :P1               IS FIRST PARAMETER = '0'
      680   01 00498    6930049D              BNEZ     %+5                NO- BRANCH
      681   01 00499    351004EC              STW,1    T1CUR              YES- STORE '1' AT T1 CURRENT
      682   01 0049A    22600045 A            LI,6     69                      STORE '69' AT
      683   01 0049B    356004ED              STW,6    T1LAST                   T1 LAST
      684   01 0049C    680004B1              B        SEQCONT           SEQUENCE ROUTINE
        1*  01 0049D    21500047 A            CI,5     71                COMPARE P1 TO LAST TEST         *H02
      686   01 0049E    682004A3              BLE      %+5               BRANCH IF P1 = OR < '70'
      687   01 0049F    3510030A              STW,1    :PIT10            PARAMETER IN ERROR: P1 < 70
      688   01 004A0    EAF00229     TST002   BAL,15   *:PREPORT         REPORT PAR. ERROR
      689   01 004A1    00000322              DATA     :DIC+2            'TST1'
      690   01 004A2    E8000214              B        *:MONITOR         EXIT
      691   01 004A3    355004EC              STW,5    T1CUR             STORE PARAMETER 1 AT T1 CURRENT
      692   01 004A4    32600202              LW,6     :P2               IS SECOND PARAMETER = '0'
      693   01 004A5    693004A8              BNEZ     %+3                NO- BRANCH
      694   01 004A6    355004ED              STW,5    T1LAST             YES- STORE PARAMETER 1 AT T1 LAST
      695   01 004A7    680004B1              B        SEQCONT           SEQUENCE ROUTINE
        1*  01 004A8    21600047 A            CI,6     71                COMPARE P2 TO LAST TEST         *H02
      697   01 004A9    682004AC              BLE      %+3                NO- BRANCH
      698   01 004AA    3520030A              STW,2    :PIT10            PARAMETER IN ERROR: P2 > 70
      699   01 004AB    680004A0              B        TST002            B: REPORT PAR. ERROR
      700   01 004AC    31500006 A            CW,5     6                 COMPARE P1 TO P2
      701   01 004AD    682004B0              BLE      %+3                NO- BRANCH
      702   01 004AE    3510030A              STW,1    :PIT10            PARAMETER IN ERROR: P1 > P2
      703   01 004AF    680004A0              B        TST002            B: REPORT PAR. ERROR
      704   01 004B0    356004ED              STW,6    T1LAST            STORE PARAMETER 2 AT T1 LAST
      705                            * SEQUENCE CONTROL SUB-ROUTINE

      707   01 004B1    325004EC     SEQCONT  LW,5     T1CUR             IS T1 CURRENT GREATER
      708   01 004B2    355004E8              STW,5    T1CURXX           INITIALIZE ADDRESS POINTER
      709   01 004B3    228004EC              LI,8     ADRTABLE-2        CALCULATE AND
      710   01 004B4    308004EC              AW,8     T1CUR              STORE TEST ADDRESS OF
      711   01 004B5    558204CE              STH,8    TESTEXC,1           FIRST PARAMETER
      712   01 004B6    315004ED     LOOP00   CW,5     T1LAST            IS THIS THE LAST TEST
      713   01 004B7    692004D8              BG       DEVCONT           YES- BRANCH
      714   01 004B8    531204CE              MTH,1    TESTEXC,1         NO- INCREMENT TEST ADDRESS
      715   01 004B9    32A004E8     LOOP00R  LW,10    T1CURXX           FETCH CURRENT SUBTEST NUMBER
      716   01 004BA    21A00001 A            CI,10    1
      717   01 004BB    683004BD              BE       %+2               B: BYPASS HIO IF SUBTEST 1
      718   01 004BC    CFC003E2              HIO,12   *:DEVADDR         HIO
      719   01 004BD    35A02BC1              STW,10   ITHSUBT           SET INTER/TRAP HDLR SUBTEST
      720   01 004BE    35102BC0              STW,1    ITHTEST           SET INTER/TRAP HLDR TEST
      721   01 004BF    22C004B9              LI,12    LOOP00R
      722   01 004C0    35C02BC2              STW,12   ITHRST            TEST RESTART ADDRESS
      723   01 004C1    22F02BAC              LI,15    ITHDLR
      724   01 004C2    35F0030F              STW,15   :PIT15            INVOKE HDLR
      725   01 004C3    6AF02A64              BAL,15   :SAVECLR          CLEAR STATUS TABLE

      727   01 004C4    B2F004CE              LW,15    *TESTEXC          GET NEXT TEST ADDRESS
      728   01 004C5    21F004CF              CI,15    TESTEXC+1          AND SKIP IF NULL
      729   01 004C6    683004CE              BE       TESTEXC

      731   01 004C7    EAF0022A              BAL,15   *:QSENSE          SAMPLE SENSE SWITCHES
      732   01 004C8    694004CE              BCS,4    TESTEXC            AND SKIP IF SSW2=1

      734   01 004C9    32C02BC1              LW,12    ITHSUBT           GET SUBTEST NUMBER
      735   01 004CA    EAF00217              BAL,15   *:DECC             CONVERT TO DECIMAL
      736   01 004CB    55F22BCD              STH,15   ITHM3+3,1           AND STORE FOR DISPLAY
      737   01 004CC    EAF0021C              BAL,15   *:PRINT
      738   01 004CD    00002BCA              DATA     ITHM3

      740   01 004CE    EAF00000 A   TESTEXC  BAL,15   *0000             EXECUTE NEXT TST1 SUB-TEST
      741   01 004CF    680004D1              B        %+2               SKIP NEXT INSTRUCTION
      742   01 004D0    E8000214              B        *:MONITOR         ERROR RETURN
      743   01 004D1    32A004E8              LW,10    T1CURXX           FETCH CURRENT SUBTEST NUMBER
      744   01 004D2    21A00003 A            CI,10    3
      745   01 004D3    691004D5              BL       %+2               B: BYPASS NORMAL MODE SELECTION
      746   01 004D4    6AF017B2              BAL,15   TST1TM0           SELECT NORMAL MODE
      747   01 004D5    331004E8              MTW,1    T1CURXX           INCREMENT CURRENT ADDRESS POINTER
      748   01 004D6    325004E8     TESTEXC1 LW,5     T1CURXX           LOAD ADDRESS POINTER
      749   01 004D7    680004B6              B        LOOP00            PERFORM NEXT TEST

      751                            * DEVICE CONTROL SUB-ROUTINE
      752   01 004D8    CF0003E2     DEVCONT  HIO,0    *:DEVADDR         RELEASE DEVICE
      753   01 004D9    331003E3              MTW,1    DEVPT             INCREMENT DEVICE POINTER BY ONE
      754   01 004DA    324003E3              LW,4     DEVPT             IS DEVICE POINTER < NUMBER
      755   01 004DB    314003E4              CW,4     DEVNO              OF DEVICES
      756   01 004DC    691004E5              BL       %+9                 YES-BRANCH
      757   01 004DD    3300048C              MTW,0    TST0FLAG          TST0
      758   01 004DE    69300473              BNEZ     TST0FUNC          B: RETURN TO TST0 SEQUENCER
      759   01 004DF    EAF0021D              SENSE    TST1              SSW1 => LOOP ON ERROR
            01 004E0    2E0004E0
            01 004E1    6800048E
      760   01 004E2    22000000 A            LI,0     0
      761   01 004E3    3500048D              STW,0    TST1FLAG          RESET TST1 FLAG
      762   01 004E4    E8000214              B        *:MONITOR            SS1 RESET - RETURN CONT. TO MONT.

      764   01 004E5    329803BA              LW,9     SYSTDEVA,4        LOAD AND
      765   01 004E6    359003E2              STW,9    :DEVADDR           STORE NEXT DEVICE ADDRESS
      766   01 004E7    680004B1              B        SEQCONT           BRANCH TO REPEAT TEST

      768   01 004E8    00000000 A   T1CURXX  DATA     0                 ADDRESS POINTER
      769   01 004E9    00000000 A   TSMOEXIT DATA     0
      770   01 004EA    000004CF     SEQRETN  DATA     TESTEXC+1
      771   01 004EB    00000000 A   STATSAVE DATA     0
      772   01 004EC    00000000 A   T1CUR    DATA     0
      773   01 004ED    00000000 A   T1LAST   DATA     0
      774   01 004EE    00000550     ADRTABLE DATA     T1ST01

      776   01 004EF    00000575              DATA     T1ST02
      777   01 004F0    000005A0              DATA     T1ST03
      778   01 004F1    000005E9              DATA     T1ST04
      779   01 004F2    00000631              DATA     T1ST05
      780   01 004F3    00000660              DATA     T1ST06
      781   01 004F4    00000679              DATA     T1ST07
      782   01 004F5    0000069F              DATA     T1ST08
      783   01 004F6    00000711              DATA     T1ST09
      784   01 004F7    0000073D              DATA     T1ST10
      785   01 004F8    000004CF              DATA     TESTEXC+1
      786   01 004F9    000004CF              DATA     TESTEXC+1
      787   01 004FA    000007F5              DATA     T1ST13
      788   01 004FB    000004CF              DATA     TESTEXC+1
      789   01 004FC    00000765              DATA     T1ST15
      790   01 004FD    00000781              DATA     T1ST16
      791   01 004FE    00000821              DATA     T1ST17
      792   01 004FF    000004CF              DATA     TESTEXC+1
      793   01 00500    00000863              DATA     T1ST19
      794   01 00501    000008CD              DATA     T1ST20
      795   01 00502    000004CF              DATA     TESTEXC+1
      796   01 00503    000004CF              DATA     TESTEXC+1
      797   01 00504    000008EF              DATA     T1ST23
      798   01 00505    00000920              DATA     T1ST24
      799   01 00506    00000940              DATA     T1ST25
      800   01 00507    0000098E              DATA     T1ST26
      801   01 00508    000009C2              DATA     T1ST27
      802   01 00509    000009FA              DATA     T1ST28
      803   01 0050A    00000A10              DATA     T1ST29
      804   01 0050B    00000A77              DATA     T1ST30
      805   01 0050C    00000AB8              DATA     T1ST31
      806   01 0050D    00000AD6              DATA     T1ST32
      807   01 0050E    000004CF              DATA     TESTEXC+1
      808   01 0050F    000004CF              DATA     TESTEXC+1
      809   01 00510    00000AEC              DATA     T1ST35
      810   01 00511    00000B33              DATA     T1ST36
      811   01 00512    00000B64              DATA     T1ST37
      812   01 00513    00000B82              DATA     T1ST38
      813   01 00514    00000B98              DATA     T1ST39
      814   01 00515    00000BCA              DATA     T1ST40
      815   01 00516    00000C18              DATA     T1ST41
      816   01 00517    00000C41              DATA     T1ST42
      817   01 00518    000004CF              DATA     TESTEXC+1
      818   01 00519    000004CF              DATA     TESTEXC+1
      819   01 0051A    00000C58              DATA     T1ST45
      820   01 0051B    00000CA6              DATA     T1ST46
      821   01 0051C    00000CD2              DATA     T1ST47
      822   01 0051D    00000CE9              DATA     T1ST48
      823   01 0051E    00000D3A              DATA     T1ST49
      824   01 0051F    00000D62              DATA     T1ST50
      825   01 00520    00000D9B              DATA     T1ST51
      826   01 00521    00000DC6              DATA     T1ST52
      827   01 00522    00000DDE              DATA     T1ST53
      828   01 00523    00000241              DATA     T1ST54T
      829   01 00524    00000E11              DATA     T1ST55
      830   01 00525    00000F47              DATA     T1ST56
      831   01 00526    00000F93              DATA     T1ST57
      832   01 00527    00000FC2              DATA     T1ST58
      833   01 00528    000004CF              DATA     TESTEXC+1
      834   01 00529    00001015              DATA     T1ST60
      835   01 0052A    000004CF              DATA     TESTEXC+1
      836   01 0052B    000004CF              DATA     TESTEXC+1
      837   01 0052C    000010EB              DATA     T1ST63
      838   01 0052D    00001246              DATA     T1ST64
      839   01 0052E    000012E9              DATA     T1ST65
      840   01 0052F    0000134E              DATA     T1ST66
      841   01 00530    000004CF              DATA     TESTEXC+1
      842   01 00531    000014AB              DATA     T1ST68
      843   01 00532    00001501              DATA     T1ST69
      844   01 00533    00001562              DATA     T1ST70
        1*  01 00534    0000160B              DATA     T1ST71                                            *H02
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   20
A     846   01 00535    35F00549     GENERR   STW,R15  GENERRL           GENERAL ERROR ROUTINE
      847   01 00536    33100549              MTW,1    GENERRL            POINT TO RETURN ADDRESS

      849   01 00537    B2C0000F A            LW,R12   *R15              DISPLAY ERROR ID
      850   01 00538    EAF00217              BAL,R15  *:DECC
      851   01 00539    32E02BE0              LW,R14   =' LO:'
      852   01 0053A    25E00318 A            SCD,R14  24
      853   01 0053B    35E0054B              STW,R14  GENERRM+1
      854   01 0053C    35F0054C              STW,R15  GENERRM+2

      856   01 0053D    32C00549              LW,R12   GENERRL           DISPLAY MOST PROBABLE
      857   01 0053E    20CFFFFE A            AI,R12   -2                 CALLING LOCATION
      858   01 0053F    EAF00218              BAL,R15  *:HEXC

      860   01 00540    32E02BE1              LW,R14   ='  C:'
      861   01 00541    25E00310 A            SCD,R14  16
      862   01 00542    35E0054D              STW,R14  GENERRM+3
      863   01 00543    35F0054E              STW,R15  GENERRM+4

      865   01 00544    EAF0021C              BAL,R15  *:PRINT
      866   01 00545    0000054F              DATA     SPACE
      867   01 00546    EAF0021C              BAL,R15  *:PRINT
      868   01 00547    0000054A              DATA     GENERRM
      869   01 00548    E8000549              B        *GENERRL

      871   01 00549                 GENERRL  RES      1
      872   01 0054A    11C5D9D9 A   GENERRM  TEXTC    'ERR:XXXX LOC:XXXX'
            01 0054B    7AE7E7E7 A
            01 0054C    E740D3D6 A
            01 0054D    C37AE7E7 A
            01 0054E    E7E74040 A
      873   01 0054F    03404040 A   SPACE    TEXTC    '   '
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   21
A     875                            * T1ST01  AIO, HIO, TIO, TDV INSTRUCTION RECOGNITION
      876                            * ------  ---- ---- ---- --- ----------- -----------
      877   01 00550    6AF026D5     T1ST01   :AIO     X'0000C000',X'0000C000',T1ST01A
            01 00551    0000C000 A
            01 00552    0000C000 A
            01 00553    68000559
      878   01 00554    6AF00535              FAIL     0110,T1ST01       ** 0110 **
            01 00555    0000006E A
            01 00556    EAF0021D
            01 00557    2E000557
            01 00558    68000550
      879   01 00559    6AF026CB     T1ST01A  :HIO     X'90008000',X'10000000',T1ST01B
            01 0055A    90008000 A
            01 0055B    10000000 A
            01 0055C    68000562
      880   01 0055D    6AF00535              FAIL     0111,T1ST01A      ** 0111 **
            01 0055E    0000006F A
            01 0055F    EAF0021D
            01 00560    2E000560
            01 00561    68000559
      881   01 00562    6AF026C6     T1ST01B  :TIO     X'FF00C000',X'10000000',T1ST01C
            01 00563    FF00C000 A
            01 00564    10000000 A
            01 00565    6800056B
      882   01 00566    6AF00535              FAIL     0112,T1ST01A      ** 0112 **
            01 00567    00000070 A
            01 00568    EAF0021D
            01 00569    2E000569
            01 0056A    68000559
      883   01 0056B    6AF026D0     T1ST01C  :TDV     X'0000C000',X'00000000',*SEQRETN
            01 0056C    0000C000 A
            01 0056D    00000000 A
            01 0056E    E80004EA
      884   01 0056F    6AF00535              FAIL     0113,T1ST01C      ** 0113 **
            01 00570    00000071 A
            01 00571    EAF0021D
            01 00572    2E000572
            01 00573    6800056B
      885   01 00574    E80004EA              B        *SEQRETN
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   22
A     887                            * T1ST02 - SIO INVALID ORDER TEST

      889   01 00575    22000000 A   T1ST02   LI,0     0
      890   01 00576    35001940              STW,0    TESTINDX          SET INDEX = 0
      891   01 00577    22000C15     T1ST02A  LI,0     DA(CDWTS02)       IOCD ADR
      892   01 00578    30001940              AW,0     TESTINDX          MODIFY INDEX
      893   01 00579    6AF026C1              :SIO     X'FF00C000',X'10000000',TEST02A1
            01 0057A    FF00C000 A
            01 0057B    10000000 A
            01 0057C    68000581
      894   01 0057D    CFC003E2              HIO,12   *:DEVADDR         HIO
      895   01 0057E    6AF00535              ERROR    0210              ** 0210 **
            01 0057F    000000D2 A
      896   01 00580    68000598              B        TEST02A4          B: TEST SENSE SW.
      897   01 00581    22AFFFF0 A   TEST02A1 LI,10    -16
      898   01 00582    65A00582              BIR,10   %                 LOOP
      899   01 00583    6AF026C6              :TIO     X'7600C000',X'10000000',TEST02A2
            01 00584    7600C000 A
            01 00585    10000000 A
            01 00586    6800058B
      900   01 00587    CFC003E2              HIO,12   *:DEVADDR         HIO
      901   01 00588    6AF00535              ERROR    0211              ** 0211 **
            01 00589    000000D3 A
      902   01 0058A    68000598              B        TEST02A4          B: TEST SENSE SW.
      903   01 0058B    6AF02A6C     TEST02A2 BAL,15   :SAVETIO          SAVE TIO STATUS
      904   01 0058C    6AF028FC              BAL,15   :ERRORT           TEST TIO STATUS
      905   01 0058D    00005F58              DATA     BA(TSEQ014)
      906   01 0058E    68000593              B        TEST02A3          B: TIO STATUS OK
      907   01 0058F    68000598              B        TEST02A4          B: TEST SENSE SW.
      908   01 00590    6AF00535              ERROR    0212              ** 0212 **
            01 00591    000000D4 A
      909   01 00592    68000598              B        TEST02A4          B: TEST SENSE SW.
      910   01 00593    52D22AB2     TEST02A3 LH,13    :SAVETAB+14,1     LOAD BYTE COUNT
      911   01 00594    21D00400 A            CI,13    1024              BYTE COUNT EQUAL 1024
      912   01 00595    6830059B              BE       TEST02A           YES- BRANCH
      913   01 00596    6AF00535              ERROR    0213              ** 0213 **
            01 00597    000000D5 A
      914   01 00598    EAF0021D     TEST02A4 SENSE    T1ST02            SSW1 => LOOP ON ERROR
            01 00599    2E000599
            01 0059A    68000575
      915   01 0059B    CFC003E2     TEST02A  HIO,12   *:DEVADDR         HIO
      916   01 0059C    33001940              MTW,0    TESTINDX          TEST INDEX
      917   01 0059D    E93004EA              BNEZ     *SEQRETN
      918   01 0059E    33101940              MTW,1    TESTINDX          INCR INDEX
      919   01 0059F    68000577              B        T1ST02A             B: REPEAT TEST WITH 2ND INVALID
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   23
A     921                            *        ORDER (F8)
      922                            * T1ST03  TEST MODE SELECTION TEST. A TDV INSTR. IS USED TO VERIFY
      923                            * ------  ---- ---- --------- ----  SETTING AND RESETTING OF TEST MODE.
      924         01 005A0           T1ST03   EQU      %
      925   01 005A0    33002BA6              MTW,0    #TMOPT
      926   01 005A1    E83004EA              BEZ     *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
      927   01 005A2    22400000 A            LI,4     0
      928   01 005A3    35401940              STW,4    TESTINDX          SAVE INDEX
      929   01 005A4    2280012D A            LI,8     0301              SAVE INITIAL
      930   01 005A5    358005CC              STW,8    T1ST03E+1           ERROR NUMBER
      931   01 005A6    32401940     T1ST03A  LW,4     TESTINDX          FETCH INDEX
      932   01 005A7    328805E5              LW,8     TS03DAT3,4        INITIALIZE PATTERN
      933   01 005A8    358005E3              STW,8    TS03DAT1            FOR TEST MODE SELECTION
      934   01 005A9    22900000 A            LI,9     0                 INITIALIZE PATTERN
      935   01 005AA    359005E4              STW,9    TS03DAT2            FOR TEST MODE RESET
      936   01 005AB    22000C17              LI,0     DA(CDWTS03)
      937   01 005AC    6AF005D7              BAL,15   T1ST03X           EXECUTE TEST MODE ORDER (SELECT)
      938   01 005AD    CEC003E2              TDV,12   *:DEVADDR         TDV
      939   01 005AE    694005B2              BCS,4    T1ST03B           B: CONTR IN TEST MODE
      940   01 005AF    6AF00535              ERROR    0310              ** 0310 ***
            01 005B0    00000136 A
      941   01 005B1    680005CB              B        T1ST03E           B: IDENTIFY TEST
      942   01 005B2    6AF02A7F     T1ST03B  BAL,15   :SAVETDV          SAVE TDV STATUS
      943   01 005B3    6AF028FC              BAL,15   :ERRORT           TEST TDV AND TIO STATUS AND BYTE CNT
      944   01 005B4    00005F5C              DATA     BA(TSEQ015)
      945   01 005B5    680005B9              B        T1ST03C           B: STATUS OK
      946   01 005B6    6AF00535              ERROR    0300              ** 0300 **
            01 005B7    0000012C A
      947   01 005B8    680005CB              B        T1ST03E           B: IDENTIFY TEST
      948   01 005B9    32401940     T1ST03C  LW,4     TESTINDX          FETCH INDEX
      949   01 005BA    328805E5              LW,8     TS03DAT3,4        FETCH EXPECTED DATA
      950   01 005BB    318005E3              CW,8     TS03DAT1          TEST OUTPUT BUFFER
      951   01 005BC    683005C0              BE       T1ST03D           B: OUTPUT BUFFER NOT CHANGED
      952   01 005BD    6AF00535              ERROR    0311              ** 0311 **
            01 005BE    00000137 A
      953   01 005BF    680005CB              B        T1ST03E           B: IDENTIFY TEST
      954   01 005C0    22000C18     T1ST03D  LI,0     DA(CDWTS03A)
      955   01 005C1    6AF005D7              BAL,15   T1ST03X           EXECUTE TEST MODE ORDER (RESET)
      956   01 005C2    CED003E2              TDV,13   *:DEVADDR         TDV
      957   01 005C3    684005C7              BCR,4    T1ST03D1          B: CONTR NOT IN TEST MODE
      958   01 005C4    6AF00535              ERROR    0312              ** 0312 **
            01 005C5    00000138 A
      959   01 005C6    680005CB              B        T1ST03E           B: IDENTIFY TEST
      960   01 005C7    330005E4     T1ST03D1 MTW,0    TS03DAT2          TEST OUTPUT BUFFER
      961   01 005C8    683005D0              BEZ      T1ST03F           B: OUTPUT BUFFER NOT CHANGED
      962   01 005C9    6AF00535              ERROR    0313              ** 0313 **
            01 005CA    00000139 A
      963   01 005CB    6AF00535     T1ST03E  FAIL     0,T1ST03A         ** 0301 - 0303 **
            01 005CC    00000000 A
            01 005CD    EAF0021D
            01 005CE    2E0005CE
            01 005CF    680005A6
      964   01 005D0    33101940     T1ST03F  MTW,1    TESTINDX          INCR INDEX
      965   01 005D1    331005CC              MTW,1    T1ST03E+1         INCR ERROR NUMBER
      966   01 005D2    32401940              LW,4     TESTINDX          FETCH INDEX
      967   01 005D3    680805D3              B        %,4
      968   01 005D4    680005A6              B        T1ST03A           2ND PASS (DATA BYTE = 01)
      969   01 005D5    680005A6              B        T1ST03A           3RD PASS (DATA BYTE = 02)
      970   01 005D6    E80004EA              B        *SEQRETN          EXIT
      971   01 005D7    35F005E8     T1ST03X  STW,15   T1ST03XX          SAVE RETURN
      972   01 005D8    6AF027E6              BAL,15   :IOEXEC           ISSUE TEST MODE ORDER
      973   01 005D9    225FFFF6 A            LI,5     -10
      974   01 005DA    655005DA              BIR,5    %                 LOOP
      975   01 005DB    CDC003E2              TIO,12   *:DEVADDR         TIO
      976   01 005DC    E8C005E8              BCR,12   *T1ST03XX         B: CONTR READY
      977   01 005DD    CFC003E2              HIO,12   *:DEVADDR         HIO
      978   01 005DE    6AF00535              ERROR    0315              ** 0315 ***
            01 005DF    0000013B A
      979   01 005E0    31301940              CW,3     TESTINDX
      980   01 005E1    E83005E8              BE       *T1ST03XX         B: EXIT
      981   01 005E2    680005CB              B        T1ST03E           ERROR EXIT

      983   01 005E3    00000000 A   TS03DAT1 DATA     0
      984   01 005E4    00000000 A   TS03DAT2 DATA     0
      985   01 005E5    FFFFFFFF A   TS03DAT3 DATA     -1,X'01FFFFFF',X'02FFFFFF'
            01 005E6    01FFFFFF A
            01 005E7    02FFFFFF A
      986   01 005E8    00000000 A   T1ST03XX DATA     0                 RETURN ADDR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   24
A     988                            * T1ST04  INTERRUPT GENERATION AND HIO,AIO INST. TEST. THE FOLLOWING
      989                            * -----  ---------- ---------------------------------
      990                            *        ORDERS WILL BE ISSUED:X'00',X'13'(DATA BYTE = 01),X'13'(DATA
      991                            *        BYTE = 00) IN ORDER TO SET INTER PENDING DUE TO IUE, ICE AND
      992                            *        IZC RESPECTIVELY. EACH ORDER WILL BE REPEATED ONCE
      993                            *        TO ALLOW RESETTING OF IP WITH AN HIO AND AN AIO INSTR.
      994   01 005E9    22400000 A   T1ST04   LI,4     0
      995   01 005EA    35401940              STW,4    TESTINDX          RESET
      996   01 005EB    35401941              STW,4    TESTINDX+1          INDEXES
      997   01 005EC    228001A5 A            LI,8     0421              SAVE INITIAL VALUE
      998   01 005ED    3580061E              STW,8    T1ST04G+1           ERROR NUMBER
      999   01 005EE    22000C19     T1ST04A  LI,0     DA(CDWTS04)       FETCH DW ADR
     1000   01 005EF    30001940              AW,0     TESTINDX          MODIFY ADDR
     1001   01 005F0    6AF027E6              BAL,15   :IOEXEC           ISSUE SIO
     1002   01 005F1    32401940              LW,4     TESTINDX          FETCH INDEX
     1003   01 005F2    32F8062E              LW,15    TS04DAT3,4        FETCH TEST BYTE ADDR
     1004   01 005F3    35F005F5              STW,15   %+2               1
     1005   01 005F4    6AF028FC              BAL,15   :ERRORT           TEST FOR CONTR AND DEV. READY AND IP
     1006   01 005F5    00005F64              DATA     BA(TSEQ016)
     1007   01 005F6    680005FA              B        T1ST04B           B: TIO STATUS OK
     1008   01 005F7    6AF00535              ERROR    0410              ** 0410 **
            01 005F8    0000019A A
     1009   01 005F9    6800061D              B        T1ST04G           B: IDENTIFY TEST
     1010   01 005FA    33001941     T1ST04B  MTW,0    TESTINDX+1        TEST FLAG
     1011   01 005FB    69300607              BNEZ     T1ST04D           B: USE AIO TO RESET IP
     1012   01 005FC    CFC003E2              HIO,12   *:DEVADDR         HIO
     1013   01 005FD    CDC003E2              TIO,12   *:DEVADDR         TIO
     1014   01 005FE    31D02BE2              CW,13    =X'80000000'      TEST IP BIT
     1015   01 005FF    68400605              BCR,4    T1ST04C           B: IP BIT RESET
     1016   01 00600    6AF00535              FAIL     0411,T1ST04B      ** 0411 **
            01 00601    0000019B A
            01 00602    EAF0021D
            01 00603    2E000603
            01 00604    680005FA
     1017   01 00605    33101941     T1ST04C  MTW,1    TESTINDX+1        SET TEST FLAG
     1018   01 00606    680005EE              B        T1ST04A           REPEAT TEST USING AIO TO RESET IP
     1019   01 00607    32401940     T1ST04D  LW,4     TESTINDX          FETCH INDEX
     1020   01 00608    3288062B              LW,8     TS04DAT2,4        FETCH EXPECTED AIO STATUS
     1021   01 00609    3580060C              STW,8    %+3               STORE EXPECTED MASK
     1022   01 0060A    6AF026D5              :AIO     X'F9FFC002',0,T1ST04E
            01 0060B    F9FFC002 A
            01 0060C    00000000 A
            01 0060D    68000612
     1023   01 0060E    CFC003E2              HIO,12   *:DEVADDR         HIO
     1024   01 0060F    6AF00535              ERROR    0412              ** 0412 **
            01 00610    0000019C A
     1025   01 00611    6800061D              B        T1ST04G           B: IDENTIFY TEST
     1026   01 00612    CDC003E2     T1ST04E  TIO,12   *:DEVADDR         TIO
     1027   01 00613    31D02BE2              CW,13    =X'80000000'      TEST IP BIT
     1028   01 00614    6840061A              BCR,4    T1ST04F           B: IP BIT RESET
     1029   01 00615    6AF00535              FAIL     0413,T1ST04D      ** 0413 **
            01 00616    0000019D A
            01 00617    EAF0021D
            01 00618    2E000618
            01 00619    68000607
     1030   01 0061A    22000000 A   T1ST04F  LI,0     0
     1031   01 0061B    35001941              STW,0    TESTINDX+1        RESET FLAG
     1032   01 0061C    68000623              B        T1ST04H           B: NEXT TEST
     1033   01 0061D    6AF00535     T1ST04G  ERROR    0                 ** 421,422,423 **
            01 0061E    00000000 A
     1034   01 0061F    CFC003E2              HIO,12   *:DEVADDR         HIO
     1035   01 00620    EAF0021D              SENSE    T1ST04A           SSW1 => LOOP ON ERROR
            01 00621    2E000621
            01 00622    680005EE
     1036   01 00623    33101940     T1ST04H  MTW,1    TESTINDX          INCR. INDEX
     1037   01 00624    3310061E              MTW,1    T1ST04G+1         UPDATE ERROR NO.
     1038   01 00625    33002BA6              MTW,0    #TMOPT            IS TEST MODE OPTION AVAILABLE
     1039   01 00626    E83004EA              BEZ     *SEQRETN           NO
     1040   01 00627    31301940              CW,3     TESTINDX          TEST INDEX FOR MAX VALUE
     1041   01 00628    E83004EA              BE       *SEQRETN          B: EXIT
     1042   01 00629    680005EE              B        T1ST04A           B: NEXT TEST

     1044   01 0062A    00010000 A   TS04DAT1 DATA     X'00010000'
     1045   01 0062B    00084000 A   TS04DAT2 DATA     X'00084000',X'00100000',X'00200000'  EXP. AIO STATUS
            01 0062C    00100000 A
            01 0062D    00200000 A
     1046   01 0062E    00005F6C     TS04DAT3 DATA     BA(TSEQ016A),BA(TSEQ016),BA(TSEQ016)
            01 0062F    00005F64
            01 00630    00005F64
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   25
A    1048                            * T1ST05   IO INTERRUPT TEST. A TEST MODE ORDER WITH ICE FLAG WILL BE
     1049                            * ------   -- --------- ----  ISSUED AND TESTS WILL BE PERFORMED TO
     1050                            * VERIFY THAT THE PROGRAM IS ONLY INTERRUPTED IF THE IO INTERRUPT IS
     1051                            * ARMED AND ENABLED
     1052         01 00631           T1ST05   EQU      %
     1053   01 00631    33002BA6              MTW,0    #TMOPT
     1054   01 00632    E83004EA              BEZ     *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1055   01 00633    6AF02B1A              BAL,15   :INTADRC          RESET INTERRUPT ADDR TABLE
     1056   01 00634    22000000 A            LI,0     0                 RESET INT
     1057   01 00635    35002B78              STW,0    :INTRECF            REC FLAG
     1058   01 00636    32402B7A              LW,4     :INTSVXP          INITIALIZE XPSD
     1059   01 00637    3540005C A            STW,4    X'5C'
     1060   01 00638    22800020 A            LI,8     X'20'
     1061   01 00639    6D801100 A            WD,8     X'1100'           DISARM IO INTERRUPT
     1062   01 0063A    6D801500 A            WD,8     X'1500'           DISABLE IO INTERRUPT
     1063   01 0063B    22000C1A              LI,0     DA(CDWTS04A)      LOAD TEST MODE IOCD (ICE)
     1064   01 0063C    6AF027E6              BAL,15   :IOEXEC           START IO
     1065   01 0063D    224FFFF6 A            LI,4     -10
     1066   01 0063E    6540063E              BIR,4    %                 LOOP
     1067   01 0063F    6AF028FC              BAL,15   :ERRORT           TEST TIO STATUS - IP
     1068   01 00640    00005F64              DATA     BA(TSEQ016)
     1069   01 00641    68000646              B        T1ST05B           B: INTERRUPT IS PENDING
     1070   01 00642    CFC003E2              HIO,12   *:DEVADDR         HIO
     1071   01 00643    6AF00535              ERROR    0510              ** 0510 **
            01 00644    000001FE A
     1072   01 00645    6800065A              B        T1ST05E           B: TEST SENSE SW.
     1073   01 00646    33002B78     T1ST05B  MTW,0    :INTRECF          TEST INT. REC FLAG
     1074   01 00647    6830064B              BEZ      T1ST05C           B: PROGRAM WAS NOT INTERRUPTED
     1075   01 00648    6AF00535              ERROR    0511              ** 0511 **
            01 00649    000001FF A
     1076   01 0064A    6800065A              B        T1ST05E           B: TEST SENSE SW.
     1077   01 0064B    22800020 A   T1ST05C  LI,8     X'20'
     1078   01 0064C    6D801300 A            WD,8     X'1300'           ARM IO INTERRUPT
     1079   01 0064D    6800064E              B        %+1
     1080   01 0064E    33002B78              MTW,0    :INTRECF          TEST INT. REC FLAG
     1081   01 0064F    68300653              BEZ      T1ST05D           B: PROGRAM WAS NOT INTERRUPTED
     1082   01 00650    6AF00535              ERROR    0512              ** 0512 **
            01 00651    00000200 A
     1083   01 00652    6800065A              B        T1ST05E           B: TEST SENSE SW
     1084   01 00653    6AF02B2B     T1ST05D  BAL,15   :INTADRS          ENTER DEVICE ADR INTO INT TABLE
     1085   01 00654    6D801400 A            WD,8     X'1400'           ENABLE IO INTERRUPT
     1086   01 00655    68000656              B        %+1
     1087   01 00656    33002B78              MTW,0    :INTRECF          TEST INT. REC FLAG
     1088   01 00657    6930065E              BNEZ     T1ST05F           B: PROGRAM WAS INTERRUPTED
     1089   01 00658    6AF00535              ERROR    0513              ** 0513 **
            01 00659    00000201 A
     1090   01 0065A    CFC003E2     T1ST05E  HIO,12   *:DEVADDR         HIO
     1091   01 0065B    EAF0021D              SENSE    T1ST05            SSW1 => LOOP ON ERROR
            01 0065C    2E00065C
            01 0065D    68000631
     1092   01 0065E    6AF02B14     T1ST05F  BAL,15   :INTD             DISARM IO INTERRUPT
     1093   01 0065F    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   26
A    1095                            * T1ST06  COMMAND CHAINING TEST. TWO TEST MODE ORDERS WILL BE COMMAND
     1096                            * ------  ------- -------- ----  CHAINED. COMMAND CHAINING WILL BE
     1097                            * TEST. INVALID ORDER COMMAND CHAINED TO A TEST MODE ORDER SHOULD NOT
     1098                            * RESULT IN COMMAND CHAINING.

     1100         01 00660           T1ST06   EQU      %
     1101   01 00660    33002BA6              MTW,0    #TMOPT
     1102   01 00661    E83004EA              BEZ     *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1103   01 00662    22000C1C              LI,0     DA(CDWTS06)       DW ADDR OF COMM CHAIN PAIR
     1104   01 00663    35002AB8              STW,0    :SAVCOM1          SAVE STARTING ADR
     1105   01 00664    6AF027E6              BAL,15   :IOEXEC           ISSUE IO
     1106   01 00665    6AF028FC              BAL,15   :ERRORT           TEST COMMAND CHAINING AND TIO STAT
     1107   01 00666    00005F74              DATA     BA(TSEQ017)
     1108   01 00667    6800066B              B        T1ST06A           B: COMMAND CHAINING SUCCESSFUL
     1109   01 00668    6AF00535              ERROR    0610              ** 0610 **
            01 00669    00000262 A
     1110   01 0066A    68000673              B        T1ST06B           B: TEST SENSE SWITCH
     1111   01 0066B    22000C1E     T1ST06A  LI,0     DA(CDWTS06B)      DW ADR OF COMMAND CHAINING PAIR
     1112   01 0066C    35002AB8              STW,0    :SAVCOM1          SAVE STARTING ADR
     1113   01 0066D    6AF027E6              BAL,15   :IOEXEC           START IO
     1114   01 0066E    6AF028FC              BAL,15   :ERRORT           TEST NO-COMMAND CHAIN. AND TIO STAT.
     1115   01 0066F    00005F78              DATA     BA(TSEQ018)
     1116   01 00670    E80004EA              B        *SEQRETN          EXIT - COMMAND CHAIN NOT PERFORMED
     1117   01 00671    6AF00535              ERROR    0611              ** 0611 **
            01 00672    00000263 A
     1118   01 00673    CFC003E2     T1ST06B  HIO,12   *:DEVADDR         HIO
     1119   01 00674    EAF0021D              SENSE    T1ST06            SSW1 => LOOP ON ERROR
            01 00675    2E000675
            01 00676    68000660
     1120   01 00677    E80004EA              B        *SEQRETN
     1121   01 00678    01000000 A   TS05DAT1 DATA     X'01000000'
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   27
A    1123                            * T1ST07  FAM WRITE7READ BYTE COUNT TEST. WRITE AND READ ORDERS WITH
     1124                            * ------  --- ---------- ---- ----- ----- BYTE COUNTS VARYING
     1125                            * SEQUENCIALLY FROM 1 TO 16 ARE ISSED IN TEST MODE 1. ZERO BYTE CNT EXP.

     1127   01 00679    6AF0179C     T1ST07   BAL,15   TST1TM1           ENTER TEST MODE 1
     1128   01 0067A    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1129   01 0067B    75101840              STB,1    CDWTS07           STORE WRITE ORDER CODE
     1130   01 0067C    22000000 A            LI,0     0
     1131   01 0067D    35001941              STW,0    TESTINDX+1        RESET FLAG
     1132   01 0067E    228002C6 A            LI,8     0710              INITIALIZE ERROR
     1133   01 0067F    227002C8 A            LI,7     0712                NUMBERS
     1134   01 00680    3580068A              STW,8    T1ST07B               AND
     1135   01 00681    35700690              STW,7    T1ST07D                 STORE
     1136   01 00682    22700001 A            LI,7     1                 LOOP INDEX
     1137   01 00683    75701840              STB,7    CDWTS07           STORE ORDER CODE
     1138   01 00684    55721841     T1ST07A  STH,7    CDWTS07+1,1       SAVE BYTE CNT
     1139   01 00685    22000C20              LI,0     DA(CDWTS07)       IOCD ADR
     1140   01 00686    6AF027E6              BAL,15   :IOEXEC           ISSUE ORDER (WRT OR READ)
     1141   01 00687    6AF0281C              BAL,15   :IOREADY          TEST FOR CONTR READY
     1142   01 00688    6800068C              B        T1ST07C           B: DEV. READY
     1143   01 00689    EAF017CF              BAL,15   *:ERROR
     1144   01 0068A    00000000 A   T1ST07B  DATA     0                 ** 0710 - 0711 **
     1145   01 0068B    68000691              B        T1ST07D+1         B:TEST SENSE SW.
     1146   01 0068C    31D02BE3     T1ST07C  CW,13    =X'0000FFFF'      TEST BYTE CNT
     1147   01 0068D    68400694              BCR,4    T1ST07E           B: BYTE CNT = 0
     1148   01 0068E    6AF016F7              BAL,15   TST1BC            PRINT BYTE COUNT MSG
     1149   01 0068F    EAF017CF              BAL,15   *:ERROR
     1150   01 00690    00000000 A   T1ST07D  DATA     0                 ** 0712 - 0713 **
     1151   01 00691    EAF0021D              SENSE    T1ST07A           SSW1 => LOOP ON ERROR
            01 00692    2E000692
            01 00693    68000684
     1152   01 00694    33100007 A   T1ST07E  MTW,1    7                 INCR INDEX
     1153   01 00695    21700010 A            CI,7     16                TEST INDEX
     1154   01 00696    68200684              BLE      T1ST07A           B:INDEX <= 16
     1155   01 00697    33001941              MTW,0    TESTINDX+1        TEST FLAG
     1156   01 00698    E93004EA              BNEZ     *SEQRETN          END OF TEST
     1157   01 00699    33101941              MTW,1    TESTINDX+1        INCR. FLAG
     1158   01 0069A    75201840              STB,2    CDWTS07           STORE READ ORDER CODE
     1159   01 0069B    3310068A              MTW,1    T1ST07B           INCR ERROR
     1160   01 0069C    33100690              MTW,1    T1ST07D             NUMBER
     1161   01 0069D    22700001 A            LI,7     1
     1162   01 0069E    68000684              B        T1ST07A           LOOP ON READ ORDERS
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   28
A    1164                            * T1ST08  FAM WRITE/READ DATA TEST. WRITE COMMAND-CHAIN READ ORDERS
     1165                            * ------  --- ---------- ---- ----  WILL BE ISSUED WITH VARYING DATA
     1166                            * PATTERN. THE READ DATA WILL BE COMPARED TO THE WRITE DATA.
     1167                            * DURING THE 2ND PART OF THE TEST 4 WRITE/CC/READ ORDERS WITH BYTE
     1168                            * COUNTS OF 13 WILL BE ISSUED TO TEST THE BYTE ALIGNMENT LOGIC.

     1170   01 0069F    6AF0179C     T1ST08   BAL,15   TST1TM1           ENTER TEST MODE 1
     1171   01 006A0    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1172   01 006A1    32402BAA              LW,4     IOBF1             OUTPUT BUF ADR
     1173   01 006A2    32502BAB              LW,5     IOBUF             INPUT BUF ADR
     1174   01 006A3    354028A1              STW,4   :COMBFRA           EXPECTED DATA
     1175   01 006A4    355028A2              STW,5   :COMBFRB           OBSERVED DATA
     1176   01 006A5    22400004 A            LI,4     4
     1177   01 006A6    354028A0              STW,4    :COMWCNT          STORE COMPARE WORD CNT
     1178   01 006A7    22000000 A            LI,0     0
     1179   01 006A8    350028A3              STW,0    :COMFLAG          RESET PRINT INHIBIT FLAG
     1180   01 006A9    227FFFF8 A            LI,7     -8                INDEX
     1181   01 006AA    226FFFFC A   T1ST08A  LI,6     -4                INDEX
     1182   01 006AB    328E06BB              LW,8     T1ST08DA+8,7      FETCH PATTERN
     1183   01 006AC    32A02BAA              LW,10    IOBF1             FETCH BUFFER ADR
     1184   01 006AD    20A00004 A            AI,10    4                 INCR BY 4
     1185   01 006AE    B58C000A A            STW,8    *10,6             STORE PATTERN
     1186   01 006AF    656006AE              BIR,6    %-1               LOOP
     1187   01 006B0    6AF006C7              BAL,15   T1ST08EX          WRITE/READ/COMPARE
     1188   01 006B1    657006AA              BIR,7    T1ST08A           LOOP - NEXT PATTERN
     1189   01 006B2    680006BB              B        T1ST08B           B: NEXT SEQUENCE
     1190   01 006B3    FFFFFFFF A   T1ST08DA DATA     X'FFFFFFFF',0,X'FF00FF00',X'00FF00FF'
            01 006B4    00000000 A
            01 006B5    FF00FF00 A
            01 006B6    00FF00FF A
     1191   01 006B7    AAAAAAAA A            DATA     X'AAAAAAAA',X'55555555',X'AA55AA55',X'55AA55AA'
            01 006B8    55555555 A
            01 006B9    AA55AA55 A
            01 006BA    55AA55AA A
     1192   01 006BB    227FFFCE A   T1ST08B  LI,7     -50               INDEX
     1193   01 006BC    32A02BE4              LW,10    =X'31415927'      RANDOM NUMBER SEED
     1194   01 006BD    35A02B92              STW,10   :SEED
     1195   01 006BE    226FFFFC A   T1ST08C  LI,6     -4                INDEX
     1196   01 006BF    32A02BAA              LW,10    IOBF1             FETCH BUFFER ADR
     1197   01 006C0    20A00004 A            AI,10    4                 INCR BY 4
     1198   01 006C1    6AF02B86              BAL,15   :RANDOMX          GEN. RANDOM NUMBER
     1199   01 006C2    B5EC000A A            STW,14   *10,6             STORE IN BUFFER
     1200   01 006C3    656006C1              BIR,6    %-2               LOOP
     1201   01 006C4    6AF006C7              BAL,15   T1ST08EX          WRITE/READ/COMPARE
     1202   01 006C5    657006BE              BIR,7    T1ST08C           LOOP - NEXT PATTERN
     1203   01 006C6    680006DD              B        T1ST08F           B: BYTE ALIGNMENT TEST
     1204   01 006C7    35F00710     T1ST08EX STW,15   T1ST08X           SAVE RETN ADDR
     1205   01 006C8    22400000 A            LI,4     0
     1206   01 006C9    32A02BAB              LW,10    IOBUF             FETCH INPUT  BUFFER ADDR
     1207   01 006CA    20A00004 A            AI,10    4
     1208   01 006CB    226FFFFC A            LI,6     -4                CLEAR
     1209   01 006CC    B54C000A A            STW,4    *10,6               INPUT
     1210   01 006CD    656006CC              BIR,6    %-1                   BUFFER
     1211   01 006CE    22000C21              LI,0     DA(CDWTS08)       IOCD ADR
     1212   01 006CF    6AF027E6              BAL,15   :IOEXEC           ISSUE WRITE/COMMAND CHAIN/READ ORDER
     1213   01 006D0    6AF0281C              BAL,15   :IOREADY          TEST FOR CONTR READY
     1214   01 006D1    680006D5              B        T1ST08D           B: DEV READY
     1215   01 006D2    6AF00535              ERROR    0810              ** 0810
            01 006D3    0000032A A
     1216   01 006D4    680006D9              B        T1ST08E           B: TEST SENSE SW
     1217   01 006D5    6AF02845     T1ST08D  BAL,15   :COMPARE          COMPARE 16 BYTES
     1218   01 006D6    E8000710              B        *T1ST08X          EXIT - NO ERRORS
     1219   01 006D7    6AF00535              ERROR    0811              ** 0811 **
            01 006D8    0000032B A
     1220   01 006D9    EAF0021D     T1ST08E  SENSE    T1ST08EX+1        SSW1 => LOOP ON ERROR
            01 006DA    2E0006DA
            01 006DB    680006C8
     1221   01 006DC    E8000710              B        *T1ST08X          EXIT - ERRORS
     1222   01 006DD    22801C00     T1ST08F  LI,8     BA(T1ST08P1)      STARTING WRITE BUFFER ADR
     1223   01 006DE    32902BAB              LW,9     IOBUF             STARTING READ BUFFER ADR
     1224   01 006DF    25900002 A            SLS,9    +2                BYTE ADR
     1225   01 006E0    55821846              STH,8    CDWTS08A,1        INITIALIZE
     1226   01 006E1    55921848              STH,9    CDWTS08B,1          IOCDS
     1227   01 006E2    22A0032D A            LI,10    813               STARTING ERROR NO
     1228   01 006E3    35A006F4              STW,10   T1ST08F3
     1229   01 006E4    22BFFFFF A   T1ST08F1 LI,11    -1
     1230   01 006E5    B5B02BAB              STW,11   *IOBUF            CLEAR FIRST AND
     1231   01 006E6    B5B62BAB              STW,11   *IOBUF,3            LAST WORD
     1232   01 006E7    22000C23              LI,0     DA(CDWTS08A)      IOCD ADR
     1233   01 006E8    6AF027E6              BAL,15   :IOEXEC           START IO (WRITE/CC/READ - 13 BYTES)
     1234   01 006E9    6AF0281C              BAL,15   :IOREADY          READY TEST
     1235   01 006EA    680006EE              B        T1ST08F2          B: CONTR READY
     1236   01 006EB    6AF00535              ERROR    0812              ** 0812 **
            01 006EC    0000032C A
     1237   01 006ED    680006F5              B        T1ST08F4          B: TEST SENSE SW.
     1238   01 006EE    52821846     T1ST08F2 LH,8     CDWTS08A,1        FETCH WRITE BUFFER ADR
     1239   01 006EF    2580007E A            SLS,8    -2                WORD ADR
     1240   01 006F0    358028A1              STW,8    :COMBFRA            TO COMPARE ROUTINE
     1241   01 006F1    6AF02845              BAL,15   :COMPARE          B: COMPARE DATA
     1242   01 006F2    680006F8              B        T1ST08F5          B: DATA OK
     1243   01 006F3    EAF017CF              BAL,15   *:ERROR
     1244   01 006F4    00000000 A   T1ST08F3 DATA     0                 ** 813-816 **
     1245   01 006F5    EAF0021D     T1ST08F4 SENSE    T1ST08F1          SSW1 => LOOP ON ERROR
            01 006F6    2E0006F6
            01 006F7    680006E4
     1246   01 006F8    22800011 A   T1ST08F5 LI,8     17                MODIFY
     1247   01 006F9    66801846              AWM,8    CDWTS08A            WRITE BUFFER ADDR
     1248   01 006FA    33101848              MTW,1    CDWTS08B          INCR READ BUFFER ADR BY 1
     1249   01 006FB    331006F4              MTW,1    T1ST08F3          INCR ERROR NO
     1250   01 006FC    328006F4              LW,8     T1ST08F3
     1251   01 006FD    21800331 A            CI,8     817               TEST ERROR NO
     1252   01 006FE    691006E4              BL       T1ST08F1          LOOP
     1253   01 006FF    E80004EA              B        *SEQRETN          EXIT
     1254   01 00700    0F1E2D3C A   T1ST08P1 DATA     X'0F1E2D3C',X'4B5A6978',X'8796A5B4',X'C3FFFFFF'
            01 00701    4B5A6978 A
            01 00702    8796A5B4 A
            01 00703    C3FFFFFF A
     1255   01 00704    FF1E2D3C A            DATA     X'FF1E2D3C',X'4B5A6978',X'8796A5B4',X'C3D2FFFF'
            01 00705    4B5A6978 A
            01 00706    8796A5B4 A
            01 00707    C3D2FFFF A
     1256   01 00708    FFFF2D3C A            DATA       X'FFFF2D3C',X'4B5A6978',X'8796A5B4',X'C3D2E1FF'
            01 00709    4B5A6978 A
            01 0070A    8796A5B4 A
            01 0070B    C3D2E1FF A
     1257   01 0070C    FFFFFF3C A            DATA     X'FFFFFF3C',X'4B5A6978',X'8796A5B4',X'C3D2E1F1'
            01 0070D    4B5A6978 A
            01 0070E    8796A5B4 A
            01 0070F    C3D2E1F1 A

     1259   01 00710    00000000 A   T1ST08X  DATA     0                 RETURN ADR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   29
A    1261                            * T1ST09  TEST MODE 2 - SEEK ORDER BYTE CNT TEST. SEEK ORDERS WITH BYTE
     1262                            * ------  ---- ------ - ---- ----- ---- --- ----  COUNTS OF 3,4,5 ARE
     1263                            * ISSUED TO THE CONTROLLER AND THE STATUS RESPONSE IS TESTED.

     1265   01 00711    6AF0179E     T1ST09   BAL,15   TST1TM2           ENTER TEST MODE 2
     1266   01 00712    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1267   01 00713    22400000 A            LI,4     0                 INDEX = 0
     1268   01 00714    2280038F A            LI,8     0911              INITIAL ERROR NUMBER
     1269   01 00715    3580072E              STW,8    T1ST09G
     1270   01 00716    22500003 A            LI,5     3                 STORE 3 AS
     1271   01 00717    5552184B              STH,5    CDWTS09+1,1         INITIAL BYTE COUNT
     1272   01 00718    B5402BAA              STW,4   *IOBF1             CLEAR OUTPUT BUFFER
     1273   01 00719    22000C25     T1ST09A  LI,0     DA(CDWTS09)       IOCD ADR
     1274   01 0071A    6AF027E6              BAL,15   :IOEXEC           START IO
     1275   01 0071B    6AF0281C              BAL,15   :IOREADY          READY TEST
     1276   01 0071C    68000720              B        T1ST09B           B: CONTR READY AFTER SEEK ORDER
     1277   01 0071D    6AF00535              ERROR    0910              ** 0910 **
            01 0071E    0000038E A
     1278   01 0071F    68000734              B        T1ST09J           B: TEST SENSE SW.
     1279   01 00720    68080721     T1ST09B  B        %+1,4             BRANCH TO SPECIFY ERROR TEST
     1280   01 00721    68000724              B        T1ST09C           INDEX=0
     1281   01 00722    68000726              B        T1ST09D           INDEX=1
     1282   01 00723    68000728              B        T1ST09E           INDEX = 2
     1283   01 00724    22805F7C     T1ST09C  LI,8     BA(TSEQ019)       TEST IL,UE,ZERO BC, NOT ON CYL
     1284   01 00725    68000729              B        T1ST09F
     1285   01 00726    22805F84     T1ST09D  LI,8     BA(TSEQ020)       TEST ZERO BC, ON CYL
     1286   01 00727    68000729              B        T1ST09F
     1287   01 00728    22805F8C     T1ST09E  LI,8     BA(TSEQ021)       TEST IL,BC = 1, ON CYL
     1288   01 00729    3580072B     T1ST09F  STW,8    %+2               STORE BYTE ADR
     1289   01 0072A    6AF028FC              BAL,15   :ERRORT           TEST STATUS AFTER SEEK
     1290   01 0072B    00000000 A            DATA     0
     1291   01 0072C    68000730              B        T1ST09I           B: TEST SUCCESSFUL
     1292   01 0072D    EAF017CF              BAL,15  *:ERROR
     1293   01 0072E    00000000 A   T1ST09G  DATA     0                 ** 0911 - 0913 **
     1294   01 0072F    68000734              B        T1ST09J           B: TEST SENSE SW.
     1295   01 00730    B3002BAA     T1ST09I  MTW,0   *IOBF1             TEST OUTPUT BUFFER
     1296   01 00731    68300737              BEZ      T1ST09K           B: BUFFER NOT ALTERED
     1297   01 00732    6AF00535              ERROR    0914              ** 0914 **
            01 00733    00000392 A
     1298   01 00734    EAF0021D     T1ST09J  SENSE    T1ST09A           SSW1 => LOOP ON ERROR
            01 00735    2E000735
            01 00736    68000719
     1299   01 00737    33100004 A   T1ST09K  MTW,1    4
     1300   01 00738    21400003 A            CI,4     3                 TEST INDEX
     1301   01 00739    E83004EA              BE       *SEQRETN          EXIT
     1302   01 0073A    3310072E              MTW,1    T1ST09G           INCR ERROR NUMBER
     1303   01 0073B    7316184B              MTB,1    CDWTS09+1,3       INCR BYTE COUNT
     1304   01 0073C    68000719              B        T1ST09A           PERFORM NEXT TEST
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   30
A    1306                            * T1ST10  TEST MODE 2 - SEEK ORDER INTER ADR TEST. SEEK ORDERS WILL BE
     1307                            * ------  ---- ------ - ---- ----- ----- --- ----- TO DEVICE 0 THRU 7
     1308                            * IN SEQUENCE AND THE ADR RETURNED WITH THE AIO STATUS WILL BE VERIFIED.

     1310   01 0073D    6AF0179E     T1ST10   BAL,15   TST1TM2           ENTER TEST MODE 2
     1311   01 0073E    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1312   01 0073F    328003E2              LW,8     :DEVADDR          SAVE DEVICE
     1313   01 00740    35801940              STW,8    TESTINDX            ADR
     1314   01 00741    4B802BE5              AND,8    =X'7F0'
     1315   01 00742    358003E2              STW,8    :DEVADDR          INITIAL ADR
     1316   01 00743    6AF02B14              BAL,15   :INTD             DISABLE IO INTERRUPT
     1317   01 00744    22000C26     T1ST10A  LI,0     DA(CDWTS10)       IOCD ADR
     1318   01 00745    6AF027E6              BAL,15   :IOEXEC           START IO
     1319   01 00746    224FFFF6 A            LI,4     -10
     1320   01 00747    65400747              BIR,4    %                 LOOP
     1321   01 00748    6AF028FC              BAL,15   :ERRORT           TEST SEEK COMPL INTERRUPT
     1322   01 00749    00005F94              DATA     BA(TSEQ022)
     1323   01 0074A    6800074E              B        T1ST10B           B: SEEK (INTERRUPT ON COMPLETION)
     1324                            *                                     SUCCESSFUL
     1325   01 0074B    6AF00535              ERROR    1010              ** 1010 **
            01 0074C    000003F2 A
     1326   01 0074D    68000754              B        T1ST10C           B: TEST SENSE SW
     1327   01 0074E    6AF026D5     T1ST10B  :AIO     X'FFC0C002',X'0C000000'
            01 0074F    FFC0C002 A
            01 00750    0C000000 A

     1329                            * CHANGE ABOVE MASK FROM X'0C000000' TO X'04000000' IF DEVICE
     1330                            * INTERRUPT E.O. IS NOT INSTALLED.

     1332   01 00751    6800075E              B        T1ST10B1          B: AIO SUCCESSFUL AND ADR COMPARISON
     1333   01 00752    6AF00535              ERROR    1011              ** 1011 **
            01 00753    000003F3 A
     1334   01 00754    EAF0021D     T1ST10C  SENSE    T1ST10A           SSW1 => LOOP ON ERROR
            01 00755    2E000755
            01 00756    68000744
     1335   01 00757    331003E2     T1ST10D  MTW,1   :DEVADDR           INCR DEV ADR
     1336   01 00758    22400008 A            LI,4     8
     1337   01 00759    314003E2              CW,4     :DEVADDR          TEST DEV ADR
     1338   01 0075A    68400744              BCR,4    T1ST10A           LOOP - TEST NEXT ADR
     1339   01 0075B    32801940              LW,8     TESTINDX          RESTORE
     1340   01 0075C    358003E2              STW,8    :DEVADDR            DEVICE ADR
     1341   01 0075D    E80004EA              B        *SEQRETN          EXIT
     1342   01 0075E    6AF028FC     T1ST10B1 BAL,15   :ERRORT           TEST IP = 0
     1343   01 0075F    00005F9C              DATA     BA(TSEQ022A)
     1344   01 00760    68000757              B        T1ST10D           B: IP CLEARED BY AIO
     1345   01 00761    6AF00535              ERROR    1012              ** 1012 **
            01 00762    000003F4 A
     1346   01 00763    CFC003E2              HIO,12   *:DEVADDR         ISSUE HIO
     1347   01 00764    68000754              B        T1ST10C           TEST SENSE SW.
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   31
A    1349                            * T1ST15  TEST MODE 2 - SEEK TAG LINE TEST. SEEK/COMMAND CHAIN/SENSE
     1350                            * ------  ---- ---- - - ---- --- ---- ----  ORDERS ARE EXECUTED AND
     1351                            * THE TAG LINE INFORMATION IN BYTE 8 OF THE SENSE DATA IS VERIFIED.

     1353   01 00765    6AF0179E     T1ST15   BAL,15   TST1TM2           ENTER TEST MODE 2
     1354   01 00766    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1355   01 00767    22000000 A   T1ST:15  LI,0     0                 CLEAR BUFFER
     1356   01 00768    B5002BAB              STW,0   *IOBUF               BUFFER
     1357   01 00769    22000C28              LI,0     DA(CDWTS15)       IOCD ADR
     1358   01 0076A    35002AB8              STW,0    :SAVCOM1          SAVE ADR
     1359   01 0076B    6AF027E6              BAL,15   :IOEXEC           START IO SEEK/CC/SENSE
     1360   01 0076C    6AF0281C              BAL,15   :IOREADY          READY TEST
     1361   01 0076D    68000771              B        T1ST15A           B: CONTR READY
     1362   01 0076E    6AF00535              ERROR    1510              ** 1510 **
            01 0076F    000005E6 A
     1363   01 00770    6800077D              B        T1ST15C           B: TEST SENSE SW.
     1364   01 00771    6AF028FC     T1ST15A  BAL,15   :ERRORT           TEST TIO STATUS AND COMMAND ADR
     1365   01 00772    00005FA8              DATA     BA(TSEQ025)
     1366   01 00773    68000777              B        T1ST15B           B: STATUS OK
     1367   01 00774    6AF00535              ERROR    1511              ** 1511 **
            01 00775    000005E7 A
     1368   01 00776    6800077D              B        T1ST15C           B: TEST SENSE SW.
     1369   01 00777    B2C42BAA     T1ST15B  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     1370   01 00778    22700005 A            LI,7     5
     1371   01 00779    6AF01768              BAL,15    TST1TAG          TEST TAG LINES
     1372   01 0077A    E80004EA              B        *SEQRETN          EXIT
     1373   01 0077B    6AF00535              ERROR    1512              ** 1512 **
            01 0077C    000005E8 A
     1374   01 0077D    EAF0021D     T1ST15C  SENSE    T1ST:15           SSW1 => LOOP ON ERROR
            01 0077E    2E00077E
            01 0077F    68000767
     1375   01 00780    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   32
A    1377                            * T1ST16  TEST MODE 2 - HEAD AND SECTOR ADR TEST. SEEK/CC/SENSE ORDERS
     1378                            * ------  ---- ---- - - ---- --- ------ --- ----  ARE ISSUED
     1379                            * SEQUENCIALLY VARYING THE DEV ADR FROM 0 - 7. SENSE DATA IS VERIFIED.
     1380                            * SENSE ORDERS ARE ISSUED SEQUENCIALLY TO ALL DEVICES TO INSURE THAT THE
     1381                            * THE ADDRESSES ARE NOT CHANGED.        THE SAME SEQUENCE IS REPEATED
     1382                            * WITH THE DEVICE ADR VARIED FROM 7 - 0. THE COMPLEMENT OF THE DATA
     1383                            * PATTERN IN PASS 1 IS USED IN PASS 2. A UNIQUE PATTERN IS USED FOR
     1384                            * EACH DEVICE.

     1386   01 00781    6AF0179E     T1ST16   BAL,15   TST1TM2           ENTER TEST MODE
     1387   01 00782    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1388   01 00783    329003E2              LW,9     :DEVADDR          SAVE
     1389   01 00784    359007E5              STW,9    T1ST16T0            DEVICE ADR
     1390   01 00785    32802BAB              LW,8     IOBUF
     1391   01 00786    358028A1              STW,8    :COMBFRA          INITIALIZE
     1392   01 00787    32802BAA              LW,8     IOBF1
     1393   01 00788    358028A2              STW,8    :COMBFRB            COMPARE ROUTINE
     1394   01 00789    351028A0              STW,1    :COMWCNT
     1395   01 0078A    22600000 A            LI,6     0                     OUTPUT BUF: IOBUF
     1396   01 0078B    356028A3              STW,6    :COMFLAG              INPUT BUF : IOBF1
     1397   01 0078C    22A00654 A            LI,10    1620              INITIALIZE ERROR
     1398   01 0078D    22B0065E A            LI,11    1630                NUMBERS
     1399   01 0078E    35A007A7              STW,10   T1ST16B
     1400   01 0078F    35B007CE              STW,11   T1ST16F0
     1401   01 00790    329007E5              LW,9     T1ST16T0          FETCH DEV ADR
     1402   01 00791    4B902BE5              AND,9    =X'7F0'
     1403   01 00792    359003E2              STW,9    :DEVADDR          INITIALIZE DEV ADR
     1404   01 00793    22700000 A   T1ST16A  LI,7     0                 INDEX
     1405   01 00794    328C07E6              LW,8     T1ST16P,6         FETCH PATTERN ADDR
     1406   01 00795    D2AE0008 A   T1ST16A0 LH,10    *8,7              FETCH PATTERN
     1407   01 00796    4BA02BE3              AND,10   =X'0000FFFF'
     1408   01 00797    B5A02BAB              STW,10   *IOBUF            STORE SEEK ADR
     1409   01 00798    22000C2A     T1ST16A1 LI,0     DA(CDWTS16)       IOCD ADR
     1410   01 00799    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/SENSE)
     1411   01 0079A    6AF0281C              BAL,15   :IOREADY          READY TEST
     1412   01 0079B    6800079F              B        T1ST16A2          : CONTR READY
     1413   01 0079C    6AF00535              ERROR    1610              ** 1610 **
            01 0079D    0000064A A
     1414   01 0079E    680007A8              B        T1ST16B+1         B: TEST SENSE SW
     1415   01 0079F    B2B02BAA     T1ST16A2 LW,11    *IOBF1            FETCH SENSE DATA
     1416   01 007A0    4BB02BE3              AND,11   =X'0000FFFF'
     1417   01 007A1    B1B02BAB              CW,11    *IOBUF            COMPARE SEEK/SENSE (HD & SEC ONLY)
     1418   01 007A2    683007AB              BE       T1ST16C           B: NO ERROR
     1419   01 007A3    B5B02BAA              STW,11   *IOBF1            RESTORE SENSE DATA (HD/SEC)
     1420   01 007A4    6AF02845              BAL,15   :COMPARE          PRINT COMPARE ERROR
     1421   01 007A5    680007A6              B        %+1
     1422   01 007A6    EAF017CF              BAL,15   *:ERROR
     1423   01 007A7    00000000 A   T1ST16B  DATA     0                 ** 1620 - 1627 **
     1424                            *                                   ** 1640 - 1647 **
     1425   01 007A8    EAF0021D              SENSE    T1ST16A1          SSW1 => LOOP ON ERROR
            01 007A9    2E0007A9
            01 007AA    68000798
     1426   01 007AB    33000006 A   T1ST16C  MTW,0    6                 TEST PASS FLAG
     1427   01 007AC    693007B3              BNEZ     T1ST16D           B: 2ND PASS
     1428   01 007AD    331003E2              MTW,1   :DEVADDR           INCR DEV. ADR
     1429   01 007AE    331007A7              MTW,1    T1ST16B           INCR ERROR NO
     1430   01 007AF    33100007 A            MTW,1    7                 INCR INDEX
     1431   01 007B0    21700007 A            CI,7     7                 COMPARE INDEX
     1432   01 007B1    68200795              BLE      T1ST16A0          B: NOT DONE
     1433   01 007B2    680007BA              B        T1ST16E           B: PASS   SEEK/CC/SENSE
     1434   01 007B3    33F003E2     T1ST16D  MTW,-1   :DEVADDR          DECR DEV ADR
     1435   01 007B4    33F007A7              MTW,-1   T1ST16B           DECR ERROR NO
     1436   01 007B5    33100007 A            MTW,1    7                 INCR INDEX
     1437   01 007B6    21700007 A            CI,7     7
     1438   01 007B7    68200795              BLE      T1ST16A0          B: NOT DONE
     1439   01 007B8    33100006 A            MTW,1    6                 INCR PASS FLAG
     1440   01 007B9    328C07E6              LW,8     T1ST16P,6         TEST PATTERN ADDR
     1441   01 007BA    22700000 A   T1ST16E  LI,7     0                 INDEX = 0
     1442   01 007BB    359003E2              STW,9    :DEVADDR          INITIALIZE DEV ADR
     1443   01 007BC    D2AE0008 A   T1ST16E0 LH,10    *8,7              FETCH PATTERN
     1444   01 007BD    4BA02BE3              AND,10   =X'0000FFFF'
     1445   01 007BE    B5A02BAB              STW,10   *IOBUF            STORE SEEK ADR
     1446   01 007BF    22000C2B     T1ST16E1 LI,0     DA(CDWTS16A)      IOCD ADR
     1447   01 007C0    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     1448   01 007C1    6AF0281C              BAL,15   :IOREADY          READY TEST
     1449   01 007C2    680007C6              B        T1ST16F           B: CONTR READY
     1450   01 007C3    6AF00535              ERROR    1611              ** 1611 **
            01 007C4    0000064B A
     1451   01 007C5    680007CF              B        T1ST16F0+1        B TEST SENSE SW
     1452   01 007C6    B2B02BAA     T1ST16F  LW,11    *IOBF1            FETCH SENSE DATA
     1453   01 007C7    4BB02BE3              AND,11   =X'0000FFFF'
     1454   01 007C8    B1B02BAB              CW,11    *IOBUF            COMPARE EXP/SENSE DATA
     1455   01 007C9    683007D2              BE       T1ST16G           B: NO ERRORS
     1456   01 007CA    B5B02BAA              STW,11   *IOBF1            STORE SENSE DATA (HD/SEC)
     1457   01 007CB    6AF02845              BAL,15   :COMPARE          PRINT COMPARE ERROR
     1458   01 007CC    680007CD              B        %+1
     1459   01 007CD    EAF017CF              BAL,15   *:ERROR           *
     1460   01 007CE    00000000 A   T1ST16F0 DATA     0                 ** 1630 - 1637 ***
     1461                            *                                   ** 1650 - 1657 **
     1462   01 007CF    EAF0021D              SENSE    T1ST16E1          SSW1 => LOOP ON ERROR
            01 007D0    2E0007D0
            01 007D1    680007BF
     1463   01 007D2    331003E2     T1ST16G  MTW,1    :DEVADDR          INCR DEV ADR
     1464   01 007D3    331007CE              MTW,1    T1ST16F0          INCR ERROR NO
     1465   01 007D4    33100007 A            MTW,1    7                 INCR INDEX
     1466   01 007D5    21700007 A            CI,7     7                 COMPARE INDEX
     1467   01 007D6    682007BC              BLE      T1ST16E0          B: NOT DONE
     1468   01 007D7    33000006 A            MTW,0    6                 TEST PASS FLAG
     1469   01 007D8    693007E2              BNEZ     T1ST16H           B: DONE
     1470   01 007D9    22A0066F A            LI,10    1647              INITIALIZE
     1471   01 007DA    22B00672 A            LI,11    1650                ERROR NUMBERS
     1472   01 007DB    35A007A7              STW,10   T1ST16B
     1473   01 007DC    35B007CE              STW,11   T1ST16F0
     1474   01 007DD    32A00009 A            LW,10    9                 INITIALIZE
     1475   01 007DE    20A00007 A            AI,10    7                   DEV ADDR
     1476   01 007DF    35A003E2              STW,10   :DEVADDR
     1477   01 007E0    33100006 A            MTW,1    6                 INCR. PASS FLAG
     1478   01 007E1    68000793              B        T1ST16A           B: START 2ND PASS
     1479   01 007E2    329007E5     T1ST16H  LW,9     T1ST16T0           FETCH DEV ADR
     1480   01 007E3    359003E2              STW,9    :DEVADDR          RESTORE DEV. ADR
     1481   01 007E4    E80004EA              B        *SEQRETN          EXIT

     1483   01 007E5    00000000 A   T1ST16T0 DATA     0                 DEV ADR
     1484   01 007E6    000007E9     T1ST16P  DATA     T1ST16P1
     1485   01 007E7    000007ED              DATA     T1ST16P2
     1486   01 007E8    000007F1              DATA     T1ST16P3
     1487   01 007E9    10051102 A   T1ST16P1 DATA     X'10051102',X'12051302',X'0C050D02',X'0E050F02'
            01 007EA    12051302 A
            01 007EB    0C050D02 A
            01 007EC    0E050F02 A
     1488   01 007ED    10051102 A   T1ST16P2 DATA     X'10051102',X'12051302',X'0C050D02',X'0E050F02'
            01 007EE    12051302 A
            01 007EF    0C050D02 A
            01 007F0    0E050F02 A
     1489   01 007F1    0F020E05 A   T1ST16P3 DATA     X'0F020E05',X'0D020C05',X'13021205',X'11021005'
            01 007F2    0D020C05 A
            01 007F3    13021205 A
            01 007F4    11021005 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   33
A    1491                            * T1ST13  TEST MODE2 - SENSE ORDER BYTE CNT TEST. SENSE ORDERS WITH BYTE
     1492                            * ------  ---- ----- - ----- ----- ---- --- ----  COUNTS OF 1 THRU 11
     1493                            * ARE ISSUED TO THE CONTROLLER AND THE STATUS RESPONSE IS TESTED.

     1495   01 007F5    6AF0179E     T1ST13   BAL,15   TST1TM2           ENTER TEST MODE 2
     1496   01 007F6    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1497   01 007F7    22700001 A            LI,7     1                 INDEX = 1
     1498   01 007F8    5572184F     T1ST13A  STH,7    CDWTS13+1,1       STORE BYTE COUNT
     1499   01 007F9    228FFFFF A            LI,8     -1                INITIALIZE
     1500   01 007FA    B5802BAB              STW,8    *IOBUF              INPUT BUFFER
     1501   01 007FB    B5822BAB              STW,8    *IOBUF,1
     1502   01 007FC    22000C27              LI,0     DA(CDWTS13)       IOCD ADR
     1503   01 007FD    6AF027E6              BAL,15   :IOEXEC           START IO
     1504   01 007FE    6AF0281C              BAL,15   :IOREADY          READY TEST
     1505   01 007FF    68000803              B        T1ST13B           B: CONTR READY
     1506   01 00800    6AF00535              ERROR    1310              ** 1310 **
            01 00801    0000051E A
     1507   01 00802    68000815              B        T1ST13E           B: TEST SENSE SW
     1508   01 00803    55D01941     T1ST13B  STH,13   TESTINDX+1        SAVE BYTE CNT
     1509   01 00804    6AF028FC              BAL,15   :ERRORT           TEST TIO AND TDV STATUS
     1510   01 00805    00005FA0              DATA     BA(TSEQ023)
     1511   01 00806    68000819              B        T1ST13B1          B: STATUS OK
     1512   01 00807    6AF00535              ERROR    1311              ** 1311 **
            01 00808    0000051F A
     1513   01 00809    68000815              B        T1ST13E           B: TEST SENSE SW
     1514   01 0080A    52D01941     T1ST13C  LH,13    TESTINDX+1        FETCH BYTE COUNT
     1515   01 0080B    2170000A A            CI,7     10                TEST INDEX
     1516   01 0080C    E92004EA              BG       *SEQRETN          EXIT: BYTE CNT > 10
     1517   01 0080D    3300000D A            MTW,0    13                TEST BYTE CNT
     1518   01 0080E    69300811              BNEZ     %+3               B: BYTE CNT ~= 0
     1519   01 0080F    33100007 A            MTW,1    7                 INCR INDEX
     1520   01 00810    680007F8              B        T1ST13A           LOOP
     1521   01 00811    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT MSG
     1522   01 00812    6AF00535              ERROR    1312              ** 1312 **
            01 00813    00000520 A
     1523   01 00814    68000815              B        T1ST13E           B: TEST SENSE SW
     1524   01 00815    EAF0021D     T1ST13E  SENSE    T1ST13A           SSW1 => LOOP ON ERROR
            01 00816    2E000816
            01 00817    680007F8
     1525   01 00818    E80004EA              B        *SEQRETN          EXIT
     1526   01 00819    228FFFFF A   T1ST13B1 LI,8     -1
     1527   01 0081A    B1802BAA              CW,8    *IOBF1
     1528   01 0081B    6930080A              BNE      T1ST13C           B: IO BUFFER ALTERED
     1529   01 0081C    B1822BAA              CW,8    *IOBF1,1
     1530   01 0081D    6930080A              BNE      T1ST13C           B: IO BUFFER ALTERED
     1531   01 0081E    6AF00535              ERROR    1314              ** 1314 **
            01 0081F    00000522 A
     1532   01 00820    68000815              B        T1ST13E           B: TEST SENSE SW.
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   34
A    1534                            * T1ST17  TEST MODE2 - HEAD AND SECTOR ADDR VALIDITY TEST.SEEK AND SENSE
     1535                            * ------  ---- ----- - ---- --- ------ ---- -------- ----  ARE ISSUED
     1536                            * 203 TIMES  VARYING THE SECTOR ADR FROM 0 - 7 AND THE HEAD ADR FROM
     1537                            * 0 - 25. SECTOR UNAVAILABLE WILL BE TESTED FOR SECTOR ADDR >5 AND
     1538                            * HEAD ADR > 19. THE COMBINED SECTOR AND HEAD ADRS WHICH IS RETURNED AS
     1539                            * CYL ADR DURING SEEK WILL BE VERIFIED.

     1541   01 00821    6AF0179E     T1ST17   BAL,15   TST1TM2           ENTER TEST MODE 2
     1542   01 00822    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1543   01 00823    32802BAB              LW,8     IOBUF
     1544   01 00824    358028A1              STW,8    :COMBFRA          INITIALIZE
     1545   01 00825    32802BAA              LW,8     IOBF1
     1546   01 00826    358028A1              STW,8    :COMBFRA            COMPARE ROUTINE
     1547   01 00827    351028A0              STW,1    :COMWCNT
     1548   01 00828    22700000 A            LI,7     0                     OUTPUT BUF: IOBUF
     1549   01 00829    357028A3              STW,7    :COMFLAG              INPUT BUF: IOBF1
     1550   01 0082A    75700009 A   T1ST17A  STB,7    9,0               STORE INDEX
     1551   01 0082B    22800000 A            LI,8     0
     1552   01 0082C    25800305 A            SCD,8    5                 HEAD ADR
     1553   01 0082D    25800205 A            SCS,8    5
     1554   01 0082E    25800303 A            SCD,8    3                 SECTOR ADDR
     1555   01 0082F    75720008 A            STB,7    8,1               STORE INDEX AS CYL ADR
     1556   01 00830    B5802BAB              STW,8    *IOBUF            STORE SEEK ADDR
     1557   01 00831    22000C2C              LI,0     DA(CDWTS17)       IOCD ADR
     1558   01 00832    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK)
     1559   01 00833    6AF0281C              BAL,15   :IOREADY          READY TEST
     1560   01 00834    68000838              B        T1ST17B           B: CONTR READY
     1561   01 00835    6AF00535              ERROR    1710              ** 1710 **
            01 00836    000006AE A
     1562   01 00837    6800085C              B        T1ST17G           B: TEST SENSE SW
     1563   01 00838    B2802BAB     T1ST17B  LW,8     *IOBUF            FETCH SEEK DATA
     1564   01 00839    22900006 A            LI,9     6
     1565   01 0083A    71960008 A            CB,9     8,3               COMPARE SECT ADR
     1566   01 0083B    69200842              BG       T1ST17C           B: LEGAL SECTOR ADR
     1567   01 0083C    6AF028FC              BAL,15   :ERRORT           TEST UE, SECTOR UNAVAIL.
     1568   01 0083D    00005FAC              DATA     BA(TSEQ026)
     1569   01 0083E    68000851              B        T1ST17E           B: STATUS OK
     1570   01 0083F    6AF00535              ERROR    1711              ** 1711 **
            01 00840    000006AF A
     1571   01 00841    6800085C              B        T1ST17G           B: TEST SENSE SW.
     1572   01 00842    22900014 A   T1ST17C  LI,9     20
     1573   01 00843    71940008 A            CB,9     8,2               COMPARE HD ADR
     1574   01 00844    6920084B              BG       T1ST17D           B: LEGAL HEAD ADR
     1575   01 00845    6AF028FC              BAL,15   :ERRORT           TEST UE, SECTOR UNAVAIL.
     1576   01 00846    00005FAC              DATA     BA(TSEQ026)
     1577   01 00847    68000851              B        T1ST17E           B: STATUS OK
     1578   01 00848    6AF00535              ERROR    1712              ** 1712 **
            01 00849    000006B0 A
     1579   01 0084A    6800085C              B        T1ST17G           B: TEST SENSE SW.
     1580   01 0084B    6AF028FC     T1ST17D  BAL,15   :ERRORT           TEST NO UE, SECTOR AVAIL, ON CYL
     1581   01 0084C    00005FB0              DATA     BA(TSEQ027)
     1582   01 0084D    68000851              B        T1ST17E           B: STATUS OK
     1583   01 0084E    6AF00535              ERROR    1713              ** 1713 **
            01 0084F    000006B1 A
     1584   01 00850    6800085C              B        T1ST17G           B: TEST SENSE SW.
     1585   01 00851    22000C2D     T1ST17E  LI,0     DA(CDWTS17A)
     1586   01 00852    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     1587   01 00853    6AF0281C              BAL,15   :IOREADY          READY TEST
     1588   01 00854    68000858              B        T1ST17F           B: CONTR READY
     1589   01 00855    6AF00535              ERROR    1714              ** 1714 **
            01 00856    000006B2 A
     1590   01 00857    6800085C              B        T1ST17G           B: TEST SENSE SW.
     1591   01 00858    6AF02845     T1ST17F  BAL,15   :COMPARE          COMPARE INPUT/OUTPUT BUFFER
     1592   01 00859    6800085F              B        T1ST17H           B: COMPARE SUCCESSFUL
     1593   01 0085A    6AF00535              ERROR    1715              ** 1715 **
            01 0085B    000006B3 A
     1594   01 0085C    EAF0021D     T1ST17G  SENSE    T1ST17A           SSW1 => LOOP ON ERROR
            01 0085D    2E00085D
            01 0085E    6800082A
     1595   01 0085F    33100007 A   T1ST17H  MTW,1    7                 INCR INDEX
     1596   01 00860    217000CA A            CI,7     202               COMPARE INDEX
     1597   01 00861    6820082A              BLE      T1ST17A           B: INDEX <= 202
     1598   01 00862    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   35
A    1600                            * T1ST19  TEST MODE 2 - CYLINDER DIFFERENCE LOGIC TEST. SEEK AND SENSE
     1601                            * ------  ---- ---- - - -------- ---------- ----- ----- ORDERS ARE
     1602                            * ISSUED SYSTEMATICALLY VARYING THE CYL AND HEAD/SECT ADRS. 5 PASSES
     1603                            * WILL BE PERFORMED
     1604                            * 1. CYL AND HD/SECT  = 0 - 202.   2.CYL = 0 - 202, HD/SECT = 0.
     1605                            * 3. CYL = 0, HD/SECT = 0 - 202.   4.CYL = 202 - 0, HD/SECT = 0.
     1606                            * 5  CYL = 0, HD/SECT = 202 - 0.

     1608   01 00863    6AF0179E     T1ST19   BAL,15   TST1TM2           ENTER TEST MODE 2
     1609   01 00864    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1610   01 00865    226FFFFB A            LI,6     -5
     1611   01 00866    35601940     T1ST19A  STW,6    TESTINDX          SAVE MAJOR INDEX
     1612   01 00867    227FFF35 A            LI,7     -203              MINOR INDEX
     1613   01 00868    328C08BA              LW,8     T1ST19TB+5,6      FETCH TEST SEQ.
     1614   01 00869    224FFFFC A            LI,4     -4
     1615   01 0086A    72A80009 A            LB,10    9,4               INITIALIZE TEST SEQ
     1616   01 0086B    35A808BE              STW,10   T1ST19TC+4,4
     1617   01 0086C    6540086A              BIR,4    %-2
     1618   01 0086D    728608BA     T1ST19B  LB,8     T1ST19TC,3        FETCH CYL ADR
     1619   01 0086E    729608BB              LB,9     T1ST19TH,3        FETCH HD/
     1620   01 0086F    75900009 A            STB,9    9                   SECT ADR
     1621   01 00870    25800203 A            SCS,8    3                 CONSTRUCT
     1622   01 00871    25800305 A            SCD,8    5
     1623   01 00872    25800205 A            SCS,8    5                   SEEK
     1624   01 00873    25800303 A            SCD,8    3                     ADR
     1625   01 00874    B5802BAB              STW,8    *IOBUF            STORE IN OUT PUT BUFFER
     1626   01 00875    728608BB              LB,8     T1ST19TH,3        FETCH HD/SEC ADR
     1627   01 00876    718608BA              CB,8     T1ST19TC,3        COMPARE TO CYL ADR
     1628   01 00877    6930087A              BNE      %+3               B: HD/SEC ~= CYL
     1629   01 00878    22800000 A            LI,8     0                 DIFFERENCE = 0
     1630   01 00879    6800087D              B        %+4               B: NO DIFFERENCE
     1631   01 0087A    21800000 A            CI,8     0                 TEST HD/SEC ADR
     1632   01 0087B    6930087D              BNEZ     %+2               B: HD/SEC ADR = DIFFERENCE
     1633   01 0087C    728608BA              LB,8     T1ST19TC,3        FETCH CYL ADR (CYL ADR = DIFFERENCE)
     1634   01 0087D    358008BE              STW,8    T1ST19DF          STORE DIFFERENCE
     1635   01 0087E    22000C2C              LI,0     DA(CDWTS17)
     1636   01 0087F    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK ORDER)
     1637   01 00880    6AF0281C              BAL,15   :IOREADY          READY TEST
     1638   01 00881    68000885              B        T1ST19B1          B: CONTR READY AFTER 1ST SEEK  ORDER
     1639   01 00882    6AF00535              ERROR    1910              ** 1910 **
            01 00883    00000776 A
     1640   01 00884    6800089F              B        T1ST19E           B: TEST SENSE SW
     1641   01 00885    22000C2C     T1ST19B1 LI,0     DA(CDWTS17)       IOCD ADR
     1642   01 00886    6AF027E6              BAL,15   :IOEXEC           START IO (2ND SEEK ORDER)
     1643   01 00887    6AF0281C              BAL,15   :IOREADY          READY TEST
     1644   01 00888    6800088C              B        T1ST19C           B: CONTR READY AFTER 2ND SEEK ORDER
     1645   01 00889    6AF00535              ERROR    1913              ** 1913 **
            01 0088A    00000779 A
     1646   01 0088B    6800089F              B        T1ST19E           B: TEST SENSE SW.
     1647   01 0088C    22000C2D     T1ST19C  LI,0     DA(CDWTS17A)
     1648   01 0088D    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE ORDER)
     1649   01 0088E    6AF0281C              BAL,15   :IOREADY          READY TEST
     1650   01 0088F    68000893              B        T1ST19D           B: CONTR READY
     1651   01 00890    6AF00535              ERROR    1911              ** 1911 **
            01 00891    00000777 A
     1652   01 00892    6800089F              B        T1ST19E           B: TEST SENSE SW
     1653   01 00893    22400007 A   T1ST19D  LI,4     7
     1654   01 00894    F2C82BAA              LB,12    *IOBF1,4          FETCH DIFF FROM SENSE
     1655   01 00895    71C608BE              CB,12    T1ST19DF,3        COMPARE TO EXPECTED DIFFERENCE
     1656   01 00896    693008A3              BNE      T1ST19F           B: DIFFERENCE ERROR
     1657   01 00897    728608BD     T1ST19D1 LB,8     T1ST19TJ,3        FETCH HD/SEL INCR
     1658   01 00898    729608BC              LB,9     T1ST19TI,3        FETCH CYL INCR
     1659   01 00899    668008BB              AWM,8    T1ST19TH          INCR HD/SEC
     1660   01 0089A    669008BA              AWM,9    T1ST19TC            AND CYL ADR
     1661   01 0089B    6570086D              BIR,7    T1ST19B           LOOP (MINOR)
     1662   01 0089C    32601940              LW,6     TESTINDX          FETCH INDEX
     1663   01 0089D    65600866              BIR,6    T1ST19A           LOOP (MAJOR)
     1664   01 0089E    E80004EA              B        *SEQRETN          EXIT
     1665   01 0089F    EAF0021D     T1ST19E  SENSE    T1ST19B           SSW1 => LOOP ON ERROR
            01 008A0    2E0008A0
            01 008A1    6800086D
     1666   01 008A2    68000897              B        T1ST19D1          CONTINUE
     1667   01 008A3    EAF00217     T1ST19F  BAL,15   *:DECC
     1668   01 008A4    35F008C9              STW,15   T1ST19N+3         STORE OBSERVED DIFF
     1669   01 008A5    72C608BE              LB,12    T1ST19DF,3
     1670   01 008A6    EAF00217              BAL,15   *:DECC
     1671   01 008A7    35F008CC              STW,15   T1ST19N+6         STORE EXPECTED DIFF
     1672   01 008A8    72C608BA              LB,12    T1ST19TC,3
     1673   01 008A9    EAF00217              BAL,15   *:DECC
     1674   01 008AA    35F008C5              STW,15   T1ST19M+6         STORE CYL ADR
     1675   01 008AB    72C608BB              LB,12    T1ST19TH,3
     1676   01 008AC    EAF00217              BAL,15  *:DECC
     1677   01 008AD    35F008C2              STW,15   T1ST19M+3         STORE HD/SEC ADR
     1678   01 008AE    EAF0021C              BAL,15   *:PRINT
     1679   01 008AF    000008BF              DATA     T1ST19M
     1680   01 008B0    EAF0021C              BAL,15   *:PRINT
     1681   01 008B1    000008C6              DATA     T1ST19N
     1682   01 008B2    6AF00535              ERROR    1912              ** 1912 **
            01 008B3    00000778 A
     1683   01 008B4    6800089F              B        T1ST19E           B: TEST SENSE SW.
     1684   01 008B5    00000101 A   T1ST19TB DATA     X'00000101'
     1685   01 008B6    00000100 A            DATA     X'00000100'       TEST
     1686   01 008B7    00000001 A            DATA     X'00000001'
     1687   01 008B8    CA00FF00 A            DATA     X'CA00FF00'         SEQUENCE
     1688   01 008B9    00CA00FF A            DATA     X'00CA00FF'
     1689   01 008BA    00000000 A   T1ST19TC DATA     0                 START, CYL
     1690   01 008BB    00000000 A   T1ST19TH DATA     0                 START. HD/SEC
     1691   01 008BC    00000000 A   T1ST19TI DATA     0                 CYL INCR
     1692   01 008BD    00000000 A   T1ST19TJ DATA     0                 H/SEC INCR
     1693   01 008BE    00000000 A   T1ST19DF DATA     0                 EXPECTED DIFFERENCE
     1694   01 008BF    1BC8C461 A   T1ST19M  TEXTC    'HD/SEC   = XXXX  CYL = XXXX'
            01 008C0    E2C5C340 A
            01 008C1    40407E40 A
            01 008C2    E7E7E7E7 A
            01 008C3    4040C3E8 A
            01 008C4    D3407E40 A
            01 008C5    E7E7E7E7 A
     1695   01 008C6    1BC4C9C6 A   T1ST19N  TEXTC    'DIFF OBS = XXXX  EXP = XXXX'
            01 008C7    C640D6C2 A
            01 008C8    E2407E40 A
            01 008C9    E7E7E7E7 A
            01 008CA    4040C5E7 A
            01 008CB    D7407E40 A
            01 008CC    E7E7E7E7 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   36
A    1697                            * T1ST20  TEST MODE 2 - ILLEGAL CYLINDER ADDRESS TEST
     1698                            * ------  ---- ---- - - ------- -------- ------- ----
     1699                            * SEEKS ARE ISSUED FOR A RANGE OF ILLEGAL CYLINDER
     1700                            * ADDRESSES AND THE STATUS REPONSE IS VERIFIED.

     1702   01 008CD    6AF0179E     T1ST20   BAL,15   TST1TM2           ATTEMPT TEST MODE 2
     1703   01 008CE    E80004EA              B       *SEQRETN            RETURN NOT AVAILABLE

     1705   01 008CF    32702BA3              LW,7     #FILLTRK          COMPUTE LAST CYLINDER
     1706   01 008D0    20700001 A            AI,7     1                  ADDRESS PLUS ONE

     1708   01 008D1    22800080 A            LI,8     128               COMPUTE NEXT HIGHER
     1709   01 008D2    25800001 A            SLS,8    1                  POWER OF TWO
     1710   01 008D3    31700008 A            CW,7     8                   AND DECREMENT
     1711   01 008D4    681008D2              BGE      %-2
     1712   01 008D5    208FFFFF A            AI,8     -1

     1714   01 008D6    22000000 A            LI,0     0
     1715   01 008D7    B5002BAB              STW,0    *IOBUF            CLEAR OUTPUT BUFFER

     1717   01 008D8    D5702BAB     T1ST20A  STH,7    *IOBUF            STORE NEW CYL ADDRESS
     1718   01 008D9    22000C2C              LI,0     DA(CDWTS17)       IOCD ADR
     1719   01 008DA    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK)
     1720   01 008DB    6AF0281C              BAL,15   :IOREADY          READY TEST
     1721   01 008DC    680008E0              B        T1ST20B           B: CONTR READY
     1722   01 008DD    6AF00535              ERROR    2010              ** 2010 **
            01 008DE    000007DA A
     1723   01 008DF    680008E8              B        T1ST20C           B: TEST SENSE SW.
     1724   01 008E0    6AF028FC     T1ST20B  BAL,15   :ERRORT           TEST UE, SECTOR UNAVAIL, NOT ON CYL
     1725   01 008E1    00005FAC              DATA     BA(TSEQ026)
     1726   01 008E2    680008EB              B        T1ST20D           B: STATUS OK
     1727   01 008E3    22D00000 A            LI,13    0
     1728   01 008E4    5570000D A            STH,7    13                SEEK ADR IN R13
     1729   01 008E5    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK MSG
     1730   01 008E6    6AF00535              ERROR    2011              ** 2011 **
            01 008E7    000007DB A
     1731   01 008E8    EAF0021D     T1ST20C  SENSE    T1ST20A           SSW1 => LOOP ON ERROR
            01 008E9    2E0008E9
            01 008EA    680008D8
     1732   01 008EB    33100007 A   T1ST20D  MTW,1    7                 INCR INDEX
     1733   01 008EC    31700008 A            CW,7     8                 TEST INDEX
     1734   01 008ED    682008D8              BLE      T1ST20A           LOOP
     1735   01 008EE    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   37
A    1737                            * T1ST23  TEST MODE 2 - RESTORE ORDER TEST. A SEEK/CC/RESTORE AND SENSE
     1738                            * ------  ---- ---- - - ------- ----- ----  ORDER SEQUENCE IS
     1739                            * SEQUENCIALLY ISSUED TO ALL DEVICES (0 - 7). THE TEST VERIFIES THE
     1740                            * STATUS AFTER THE RESTORE ORDERS AND VERIFIES WITH A SENSE ORDER
     1741                            * (BYTE CNT = 10) THAT THE HEAD AND SECTOR ADR IN THE FAM ARE CLEARED
     1742                            * TO ZERO AND THAT THE RESTORE ORDER GENERATED THE CORRECT TAG LINES.

     1744   01 008EF    6AF0179E     T1ST23   BAL,15   TST1TM2           ENTER TEST MODE 2
     1745   01 008F0    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1746   01 008F1    328003E2              LW,8     :DEVADDR          SAVE
     1747   01 008F2    35801940              STW,8    TESTINDX            DEVICE ADR
     1748   01 008F3    4B802BE5              AND,8    =X'7F0'
     1749   01 008F4    358003E2              STW,8    :DEVADDR          INITIAL ADR
     1750   01 008F5    32802BE6              LW,8     =X'00CA1305'
     1751   01 008F6    B5802BAB              STW,8    *IOBUF            SEEK ADR
     1752   01 008F7    22000C2E     T1ST23A  LI,0     DA(CDWTS23)       IOCD ADR
     1753   01 008F8    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/RESTORE)
     1754   01 008F9    6AF0281C              BAL,15   :IOREADY          READY TEST
     1755   01 008FA    680008FE              B        T1ST23B           B: CONTR READY
     1756   01 008FB    6AF00535              ERROR    2310              ** 2310 **
            01 008FC    00000906 A
     1757   01 008FD    68000916              B        T1ST23F           B: TEST SENSE SW.
     1758   01 008FE    6AF028FC     T1ST23B  BAL,15   :ERRORT           TEST NOT UE,BYT CNT=1, NOT ON CYL
     1759   01 008FF    00005FB4              DATA     BA(TSEQ028)
     1760   01 00900    68000904              B        T1ST23C           B: STATUS OK
     1761   01 00901    6AF00535              ERROR    2311              ** 2311 **
            01 00902    00000907 A
     1762   01 00903    68000916              B        T1ST23F           B: TEST SENSE SW
     1763   01 00904    22000C2D     T1ST23C  LI,0     DA(CDWTS17A)
     1764   01 00905    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     1765   01 00906    6AF0281C              BAL,15   :IOREADY          READY TEST
     1766   01 00907    6800090B              B        T1ST23D           B: CONTR READY
     1767   01 00908    6AF00535              ERROR    2312              ** 2312 **
            01 00909    00000908 A
     1768   01 0090A    68000916              B        T1ST23F           B: TEST SENSE SW
     1769   01 0090B    B3002BAA     T1ST23D  MTW,0    *IOBF1            TEST CURRENT ADR
     1770   01 0090C    68300910              BEZ      T1ST23E           B: CURRENT ADR CLEARED BY RESTORE
     1771   01 0090D    6AF00535              ERROR    2313              ** 2313 **
            01 0090E    00000909 A
     1772   01 0090F    68000916              B        T1ST23F           B: TEST SENSE SW
     1773   01 00910    B2C42BAA     T1ST23E  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     1774   01 00911    22700006 A            LI,7     6
     1775   01 00912    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     1776   01 00913    68000919              B        T1ST23G           B: TEST NEXT DEVICE
     1777   01 00914    6AF00535              ERROR    2314              ** 2314 **
            01 00915    0000090A A
     1778   01 00916    EAF0021D     T1ST23F  SENSE    T1ST23A           SSW1 => LOOP ON ERROR
            01 00917    2E000917
            01 00918    680008F7
     1779   01 00919    331003E2     T1ST23G  MTW,1    :DEVADDR          INCR DEV ADR
     1780   01 0091A    22400008 A            LI,4     8
     1781   01 0091B    314003E2              CW,4     :DEVADDR          TEST DEV ADDR
     1782   01 0091C    684008F7              BCR,4    T1ST23A           LOOP - TEST NEXT DEV
     1783   01 0091D    32801940              LW,8     TESTINDX          RESTORE
     1784   01 0091E    358003E2              STW,8    :DEVADDR            DEVICE ADR
     1785   01 0091F    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   38
A    1787                            * T1ST24   TEST MODE 2 - RELEASE ORDER TEST. A RELEASE ORDER AND A SENSE
     1788                            * ------ - ---- ----- - ------- ----- ----  ORDER IS ISSUED. THE TEST
     1789                            * VERIFIES THE STATUS AFTER THE RELEASE AND VERIFIES WITH A SENSE ORDER
     1790                            * (BYTE CNT = 10) THAT THE RESTORE ORDER GENERATED THE CORRECT TAG
     1791                            * LINES.

     1793   01 00920    6AF0179E     T1ST24   BAL,15   TST1TM2           ENTER TEST MODE 2
     1794   01 00921    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1795   01 00922    22000C30     T1ST24A  LI,0     DA(CDWTS24)       IOCD ADR
     1796   01 00923    6AF027E6              BAL,15   :IOEXEC           START IO (RELEASE)
     1797   01 00924    6AF0281C              BAL,15   :IOREADY          READY TEST
     1798   01 00925    68000929              B        T1ST24B           B: CONTR READY
     1799   01 00926    6AF00535              ERROR    2410              ** 2410 **
            01 00927    0000096A A
     1800   01 00928    6800093C              B        T1ST24E           B: TEST SENSE SW.
     1801   01 00929    6AF028FC     T1ST24B  BAL,15   :ERRORT           TEST NOT UE, BYTE CNT = 1
     1802   01 0092A    00005FB8              DATA     BA(TSEQ029)
     1803   01 0092B    6800092F              B        T1ST24C           B: STATUS OK
     1804   01 0092C    6AF00535              ERROR    2411              ** 2411 **
            01 0092D    0000096B A
     1805   01 0092E    6800093C              B        T1ST24E           B: TEST SENSE SW.
     1806   01 0092F    22000C2D     T1ST24C  LI,0     DA(CDWTS17A)      IOCD ADR
     1807   01 00930    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     1808   01 00931    6AF0281C              BAL,15   :IOREADY          READY TEST
     1809   01 00932    68000936              B        T1ST24D           B: CONTR READY
     1810   01 00933    6AF00535              ERROR    2412              ** 2412 **
            01 00934    0000096C A
     1811   01 00935    6800093C              B        T1ST24E           B: TEST SENSE SW.
     1812   01 00936    B2C42BAA     T1ST24D  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUF
     1813   01 00937    22700007 A            LI,7     7
     1814   01 00938    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     1815   01 00939    E80004EA              B        *SEQRETN          EXIT
     1816   01 0093A    6AF00535              ERROR    2413              ** 2413 **
            01 0093B    0000096D A
     1817   01 0093C    EAF0021D     T1ST24E  SENSE    T1ST24A           SSW1 => LOOP ON ERROR
            01 0093D    2E00093D
            01 0093E    68000922
     1818   01 0093F    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   39
A    1820                            * T1ST25  TEST MODE 2 - READ ORDER TAG LINE AND DATA TEST. READ ORDERS
     1821                            * ------  ---- ---- - - ---- ----- --- ---- --- ---- ----  X'02' AND
     1822                            * X'12' ARE ISSUED IN SEQUENCE.THE STATUS AND BYTE COUNT ARE VERIFIED.
     1823                            * THE READ DATA IS COMPARED TO THE EXPECTED INFORMATION. A SENSE ORDER
     1824                            * VERIFIES THAT THE TAG LINES ARE CORRECTLY GENERATED FOR A READ ORDER.

     1826   01 00940    6AF0179E     T1ST25   BAL,15   TST1TM2           ENTER TEST MODE 2
     1827   01 00941    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1828   01 00942    228009CE A            LI,8     2510
     1829   01 00943    229009D0 A            LI,9     2512              FETCH INITIAL
     1830   01 00944    22A009D2 A            LI,10    2514
     1831   01 00945    22B009D5 A            LI,11    2517                ERROR NUMBERS
     1832   01 00946    22C009D7 A            LI,12    2519
     1833   01 00947    3580095A              STW,8    T1ST25B
     1834   01 00948    35900960              STW,9    T1ST25D           STORE INITIAL
     1835   01 00949    35A00965              STW,10   T1ST25F
     1836   01 0094A    35B00973              STW,11   T1ST25I             ERROR NUMBERS
     1837   01 0094B    35C0097C              STW,12   T1ST25K
     1838   01 0094C    22000000 A            LI,0     0                 CLEAR
     1839   01 0094D    35001940              STW,0    TESTINDX
     1840   01 0094E    22000000 A   T1ST25A  LI,0     0                   FLAG
     1841   01 0094F    35001941              STW,0    TESTINDX+1          AND ERROR COUNT
     1842   01 00950    35002C32              STW,0    USERPROG+1        STORE SEEK ADR
     1843   01 00951    6AF0170F              BAL,15   TST1DATA          SPREAD EXPECTED PATTERN
     1844   01 00952    32401940              LW,4     TESTINDX          FLAG (0 = READ2, 1=READ12)
     1845   01 00953    3208098C              LW,0     T1ST25IO,4        IOCD ADR
     1846   01 00954    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ)
     1847   01 00955    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     1848   01 00956    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     1849   01 00957    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     1850   01 00958    6800095C              B        T1ST25C           CONTR READY AFTER READ
     1851   01 00959    EAF017CF              BAL,15   *:ERROR
     1852   01 0095A    00000000 A   T1ST25B  DATA     0                 ** 2510 - 2511 **
     1853   01 0095B    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1854   01 0095C    6AF028FC     T1ST25C  BAL,15   :ERRORT           TEST NOT UE,BYT CNT=0,NOT TE,
     1855   01 0095D    00005FBC              DATA     BA(TSEQ030)         NOT IL, ON CYL
     1856   01 0095E    68000962              B        T1ST25E           B: STATUS OK
     1857   01 0095F    EAF017CF              BAL,15   *:ERROR
     1858   01 00960    00000000 A   T1ST25D  DATA     0                 ** 2512 - 2513 **
     1859   01 00961    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1860   01 00962    6AF02845     T1ST25E  BAL,15   :COMPARE          COMPARE READ DATA
     1861   01 00963    68000967              B        T1ST25G           B: DATA OK
     1862   01 00964    EAF017CF              BAL,15   *:ERROR
     1863   01 00965    00000000 A   T1ST25F  DATA     0                 ** 2514 - 2515 **
     1864   01 00966    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1865   01 00967    22000C2D     T1ST25G  LI,0     DA(CDWTS17A)      IOCD ADR
     1866   01 00968    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     1867   01 00969    6AF0281C              BAL,15   :IOREADY          READY TEST
     1868   01 0096A    6800096E              B        T1ST25H           B: CONTR READY
     1869   01 0096B    6AF00535              ERROR    2516              ** 2516 **
            01 0096C    000009D4 A
     1870   01 0096D    68000980              B        T1ST25M           B: TEST SENSE SW.
     1871   01 0096E    B2C42BAA     T1ST25H  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     1872   01 0096F    22700002 A            LI,7     2
     1873   01 00970    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     1874   01 00971    68000975              B        T1ST25J           B: TAG LINES OK
     1875   01 00972    EAF017CF              BAL,15   *:ERROR
     1876   01 00973    00000000 A   T1ST25I  DATA     0                 ** 2517 - 2518 **
     1877   01 00974    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1878   01 00975    B2D42BAA     T1ST25J  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     1879   01 00976    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     1880   01 00977    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     1881   01 00978    6AF028FC              BAL,15   :ERRORT
     1882   01 00979    00005FC4              DATA     BA(TSEQ031)       TEST FOR ALL ZEROES
     1883   01 0097A    6800097E              B        T1ST25L           B: SENSE STATUS OK
     1884   01 0097B    EAF017CF              BAL,15   *:ERROR
     1885   01 0097C    00000000 A   T1ST25K  DATA     0                 ** 2519 - 2520 **
     1886   01 0097D    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1887   01 0097E    33001941     T1ST25L  MTW,0    TESTINDX+1        TEST ERROR CNT
     1888   01 0097F    68300983              BEZ      T1ST25N           B: NO ERRORS
     1889   01 00980    EAF0021D     T1ST25M  SENSE    T1ST25A           SSW1 => LOOP ON ERROR
            01 00981    2E000981
            01 00982    6800094E
     1890   01 00983    33001940     T1ST25N  MTW,0    TESTINDX          TEST FLAG
     1891   01 00984    E93004EA              BNEZ     *SEQRETN          EXIT
     1892   01 00985    33101940              MTW,1    TESTINDX          INCR FLAG
     1893   01 00986    3310095A              MTW,1    T1ST25B
     1894   01 00987    33100960              MTW,1    T1ST25D
     1895   01 00988    33100965              MTW,1    T1ST25F           INCR ERROR
     1896   01 00989    33100973              MTW,1    T1ST25I
     1897   01 0098A    3310097C              MTW,1    T1ST25K             NUMBERS
     1898   01 0098B    6800094E              B        T1ST25A           LOOP
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   40
A    1900   01 0098C    00000C31     T1ST25IO DATA     DA(CDWTS25),DA(CDWTS25A)   IOCD ADDRESSES
            01 0098D    00000C33

     1902                            * T1ST26  TEST MODE 2 - READ ORDER INCORRECT LENGTH TEST. READ ORDERS
     1903                            * --------------------------------------------------------ARE ISSUED
     1904                            * WITH BYTE COUNTS SEQUENCIALLY VARIED FROM 1008 TO 1025 (NOT 1024).
     1905                            * THE STATUS WILL BE VERIFIED. FOR BYTE COUNTS < 1024 THE TEST VERIFIES
     1906                            * THAT THE CONTROLLER TERMINATES DATA-IN AT THE CORRECT BYTE COUNT.

     1908   01 0098E    6AF0179E     T1ST26   BAL,15   TST1TM2           ENTER TEST MODE
     1909   01 0098F    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1910   01 00990    226FFFF0 A            LI,6     -16               INDEX
     1911   01 00991    227003F0 A            LI,7     1008              BYTE COUNT
     1912   01 00992    22000000 A   T1ST26A  LI,0     0                 CLEAR
     1913   01 00993    35001941              STW,0    TESTINDX+1          ERROR CNT
     1914   01 00994    35002C32              STW,0    USERPROG+1        STORE SEEK ADR
     1915   01 00995    5572186D              STH,7    CDWTS26+3,1       STORE BYTE CNT IN IOCD
     1916   01 00996    6AF0170F              BAL,15   TST1DATA          SPREAD EXPECTED DATA
     1917   01 00997    32802BAB              LW,8     IOBUF             FETCH BUFFER ADDR
     1918   01 00998    20800100 A            AI,8     256               ADD WORD COUNT
     1919   01 00999    22000000 A            LI,0     0
     1920   01 0099A    32500006 A            LW,5     6                 INDEX
     1921   01 0099B    F50A0008 A            STB,0    *8,5              CLEAR EXPECTED BUFFER
     1922   01 0099C    6550099B              BIR,5    %-1                 USING BYTE CNT IN 6
     1923   01 0099D    22000C35              LI,0     DA(CDWTS26)       IOCD ADR
     1924   01 0099E    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ02)
     1925   01 0099F    22801770 A            LI,8     6000              LOAD DELAY CONSTANT
     1926   01 009A0    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     1927   01 009A1    6AF0281F              BAL,15   :IOREADY+3        TEST READY (ALT)
     1928   01 009A2    680009A6              B        T1ST26B           B: CONTR READY AFTER READ
     1929   01 009A3    6AF00535              ERROR    2610              ** 2610 **
            01 009A4    00000A32 A
     1930   01 009A5    680009B9              B        T1ST26F           B: TEST SENSE SW.
     1931   01 009A6    31D02BE3     T1ST26B  CW,13    =X'0000FFFF'      TEST BYTE CNT
     1932   01 009A7    684009AC              BCR,4    T1ST26C           B: BYTE CNT = 0
     1933   01 009A8    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT ERROR MSG
     1934   01 009A9    6AF00535              ERROR    2611              ** 2611 **
            01 009AA    00000A33 A
     1935   01 009AB    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1936   01 009AC    6AF028FC     T1ST26C  BAL,15   :ERRORT           TEST IL, NOT UE
     1937   01 009AD    00005FC8              DATA     BA(TSEQ032)
     1938   01 009AE    680009B2              B        T1ST26D           B:  STATUS OK
     1939   01 009AF    6AF00535              ERROR    2612              ** 2612 **
            01 009B0    00000A34 A
     1940   01 009B1    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1941   01 009B2    6AF02845     T1ST26D  BAL,15   :COMPARE          COMPARE DATA
     1942   01 009B3    680009B7              B        T1ST26E           NO COMPARE ERROR
     1943   01 009B4    6AF00535              ERROR    2613              ** 2613 **
            01 009B5    00000A35 A
     1944   01 009B6    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     1945   01 009B7    33001941     T1ST26E  MTW,0    TESTINDX+1        TEST ERROR CNT
     1946   01 009B8    683009BC              BEZ      T1ST26G           B: NO ERRORS
     1947   01 009B9    EAF0021D     T1ST26F  SENSE    T1ST26A           SSW1 => LOOP ON ERROR
            01 009BA    2E0009BA
            01 009BB    68000992
     1948   01 009BC    33100007 A   T1ST26G  MTW,1    7                 INCR BYTE CNT
     1949   01 009BD    65600992              BIR,6    T1ST26A           LOOP
     1950   01 009BE    33100007 A            MTW,1    7                 INCR BYTE CNT
     1951   01 009BF    21700402 A            CI,7     1026
     1952   01 009C0    69100992              BL       T1ST26A           LOOP BYTE CNT = 1025
     1953   01 009C1    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   41
A    1955                            * T1ST27  TEST MODE 2 - READ ORDER/HD AND SECTOR INCR TEST. SEEK/CC/READ
     1956                            * ----------------------------------------------------------AND SENSE
     1957                            * ORDER SEQUENCES ARE ISSUED WITH A READ BYTE CNT OF 1024. SECTOR AND
     1958                            * HEAD ADR INCREMENTATION IS VERIFIED

     1960   01 009C2    6AF0179E     T1ST27   BAL,15   TST1TM2           ENTER TEST MODE 2
     1961   01 009C3    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     1962   01 009C4    22900000 A            LI,9     0                 INITIAL SEEK ADR
     1963   01 009C5    35901940              STW,9    TESTINDX          STORE FLAG
     1964   01 009C6    22A00001 A            LI,10    1                 INITIAL EXPECTED ADR
     1965   01 009C7    B5902BAA     T1ST27A  STW,9   *IOBF1             STORE SEEK ADR
     1966   01 009C8    22000C37              LI,0     DA(CDWTS27)       IOCD ADR
     1967   01 009C9    35002AB8              STW,0    :SAVCOM1          STORE IOCD ADR
     1968   01 009CA    6AF027E6              BAL,15   :IOEXEC           START IO  SEEK/CC/READ
     1969   01 009CB    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     1970   01 009CC    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     1971   01 009CD    6AF0281F              BAL,15   :IOREADY+3        READY TEST
     1972   01 009CE    680009D2              B        T1ST27B           CONTR READY
     1973   01 009CF    6AF00535              ERROR    2710              ** 2710 **
            01 009D0    00000A96 A
     1974   01 009D1    680009E7              B        T1ST27E           B: TEST SENSE SW
     1975   01 009D2    6AF028FC     T1ST27B  BAL,15   :ERRORT           TEST CC, NO ABNORMAL COND.
     1976   01 009D3    00005FD4              DATA     BA(TSEQ033)
     1977   01 009D4    680009D8              B        T1ST27C           B: STATUS OK
     1978   01 009D5    6AF00535              ERROR    2711              ** 2711 **
            01 009D6    00000A97 A
     1979   01 009D7    680009E7              B        T1ST27E           B: TEST SENSE SW
     1980   01 009D8    22000C39     T1ST27C  LI,0     DA(CDWTS27A)      IOCD ADR
     1981   01 009D9    6AF027E6              BAL,15   :IOEXEC          START IO (SENSE)
     1982   01 009DA    6AF0281C              BAL,15   :IOREADY          READ TEST
     1983   01 009DB    680009DF              B        T1ST27D           B: CONTR READY
     1984   01 009DC    6AF00535              ERROR    2712              ** 2712 **
            01 009DD    00000A98 A
     1985   01 009DE    680009E7              B        T1ST27E           B: TEST SENSE SW
     1986   01 009DF    B2822BAA     T1ST27D  LW,8     *IOBF1,1          OBSERVED SENSE DATA
     1987   01 009E0    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     1988   01 009E1    31A00008 A            CW,10    8                 COMPARE SENSE ADR
     1989   01 009E2    683009EA              BE       T1ST27F           B: ADRS COMPARE
     1990   01 009E3    32D0000A A            LW,13    10                EXPECTED SENSE DATA
     1991   01 009E4    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE APR MSG
     1992   01 009E5    6AF00535              ERROR    2713              ** 2713 **
            01 009E6    00000A99 A
     1993   01 009E7    EAF0021D     T1ST27E  SENSE    T1ST27A           SSW1 => LOOP ON ERROR
            01 009E8    2E0009E8
            01 009E9    680009C7
     1994   01 009EA    33001940     T1ST27F  MTW,0    TESTINDX         TEST FLAG
     1995   01 009EB    693009F5              BNEZ     T1ST27H           B:HEAD ADR TEST
     1996   01 009EC    21900004 A            CI,9     4                 TEST SEEK ADR
     1997   01 009ED    683009F1              BE       T1ST27G           B: SEEK ADR = 4
     1998   01 009EE    33100009 A            MTW,1    9                 INCR SEEK ADR
     1999   01 009EF    3310000A A            MTW,1    10                INCR EXPECTED ADR
     2000   01 009F0    680009C7              B        T1ST27A           LOOP
     2001   01 009F1    33101940     T1ST27G  MTW,1    TESTINDX          SET FLAG
     2002   01 009F2    22A00100 A            LI,10    X'0100'           EXPECTED ADR
     2003   01 009F3    33100009 A            MTW,1    9                 INCR SEEK ADR
     2004   01 009F4    680009C7              B        T1ST27A           LOOP
     2005   01 009F5    20900100 A   T1ST27H  AI,9     X'0100'           INCR SEEK ADR
     2006   01 009F6    20A00100 A            AI,10    X'0100'           INCR EXPECTED ADR
     2007   01 009F7    21A01400 A            CI,10    X'1400'           TEST SEEK ADR
     2008   01 009F8    693009C7              BNE      T1ST27A           LOOP
     2009   01 009F9    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   42
A    2011                            * T1ST28   TEST MODE 2  - READ ORDER CYLINDER BOUNDRY TEST. A READ ORDER
     2012                            * ----------------------------------------------------------WITH A BYTE
     2013                            * COUNT OF 1025 IS ISSUED STARTING AT HD 19 SECT 5. READ OPERATION
     2014                            * WILL TERMINATE AFTER 1 SECTOR AND SECTOR UNAVAILABLE WILL BE REPORTED.

     2016   01 009FA    6AF0179E     T1ST28   BAL,15   TST1TM2           ENTER TEST MODE 2
     2017   01 009FB    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2018   01 009FC    22801305 A   T1ST:28  LI,8     X'1305'
     2019   01 009FD    B5802BAA              STW,8    *IOBF1            STORE SEEK ADR
     2020   01 009FE    22000C3A              LI,0     DA(CDWTS28)       IOCD ADR
     2021   01 009FF    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ)
     2022   01 00A00    22802000 A            LI,8     X'2000'           DELAY CONSTANT
     2023   01 00A01    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2024   01 00A02    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2025   01 00A03    68000A07              B        T1ST28A           B: CONTR READY
     2026   01 00A04    6AF00535              ERROR    2810              ** 2810 **
            01 00A05    00000AFA A
     2027   01 00A06    68000A0C              B        T1ST28B           TEST SENSE SW
     2028   01 00A07    6AF028FC     T1ST28A  BAL,15   :ERRORT           TEST UE, SECTOR UNAVAIL, BYT CNT=1
     2029   01 00A08    00005FDC              DATA     BA(TSEQ034)
     2030   01 00A09    E80004EA              B        *SEQRETN          EXIT
     2031   01 00A0A    6AF00535              ERROR    2811              ** 2811 **
            01 00A0B    00000AFB A
     2032   01 00A0C    EAF0021D     T1ST28B  SENSE    T1ST:28           SSW1 => LOOP ON ERROR
            01 00A0D    2E000A0D
            01 00A0E    680009FC
     2033   01 00A0F    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   43
A    2035                            * T1ST29  TEST MODE 2 - HEADER READ ORDER TEST. SEEK/CC/HEADER READ
     2036                            * ------  ---- ---- - - ------ ---- ----- ----  ORDERS SEQUENCES ARE
     2037                            * ISSUED WITH HEADER READ BYTE CNT OF 8. THE STATUS AND BYTE CNT ARE
     2038                            * VERIFIED. THE HEADER READ DATA IS COMPARED TO THE EXPECTED INFORMATION
     2039                            * A SENSE ORDER VERIFIES THAT THE TAG LINES ARE CORRECTLY GENERATED AND
     2040                            * THAT THE HEAD AND SECTOR ADR ARE INCREMENTED CORRECTLY.

     2042   01 00A10    6AF0179E     T1ST29   BAL,15   TST1TM2           ENTER TEST MODE 2
     2043   01 00A11    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2044   01 00A12    22900000 A            LI,9     0                 INITIAL SEEK ADR
     2045   01 00A13    35901940              STW,9    TESTINDX          STORE FLAG
     2046   01 00A14    22A00001 A            LI,10    1                 INITIAL EXPECTED ADR
     2047   01 00A15    32402BAB              LW,4     IOBUF             INITIALIZE
     2048   01 00A16    354028A2              STW,4    :COMBFRB
     2049   01 00A17    20400002 A            AI,4     2                   COMPARE ROUTINE
     2050   01 00A18    354028A1              STW,4    :COMBFRA
     2051   01 00A19    352028A0              STW,2    :COMWCNT              EXPECTED: IOBUF+2
     2052   01 00A1A    359028A3              STW,9    :COMFLAG              OBSERVED: IOBUF
     2053   01 00A1B    B5902BAA     T1ST29A  STW,9   *IOBF1             STORE SEEK ADR
     2054   01 00A1C    22000000 A            LI,0     0
     2055   01 00A1D    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT
     2056   01 00A1E    22000C3C              LI,0     DA(CDWTS29)       IOCD ADR
     2057   01 00A1F    35002AB8              STW,0    :SAVCOM1          STORE IOCD ADR
     2058   01 00A20    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDR-READ)
     2059   01 00A21    22802000 A            LI,8     X'2000'           DELAY CONSTANT
     2060   01 00A22    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2061   01 00A23    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2062   01 00A24    68000A28              B        T1ST29B           B: CONTR READY
     2063   01 00A25    6AF00535              ERROR    2910              ** 2910 **
            01 00A26    00000B5E A
     2064   01 00A27    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2065   01 00A28    6AF028FC     T1ST29B  BAL,15   :ERRORT           TEST CC, NO ABNORMAL COND., BYT C=0
     2066   01 00A29    00005FE4              DATA     BA(TSEQ035)
     2067   01 00A2A    68000A2E              B        T1ST29C           NO STATUS ERRORS
     2068   01 00A2B    6AF00535              ERROR    2911              ** 2911 **
            01 00A2C    00000B5F A
     2069   01 00A2D    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2070   01 00A2E    5590000D A   T1ST29C  STH,9    13                FETCH SEEK ADDR
     2071   01 00A2F    22C00000 A            LI,12    0
     2072   01 00A30    25D00203 A            SCS,13   3                 COMBINE
     2073   01 00A31    25C00305 A            SCD,12   5                   HEAD ADR
     2074   01 00A32    25D00205 A            SCS,13   5                     AND
     2075   01 00A33    25C00303 A            SCD,12   3                       SECTOR ADR TO FORM
     2076   01 00A34    5590000D A            STH,9    13                        CYL. ADR
     2077   01 00A35    25C00308 A            SCD,12   8                 COMBINE CYL AND HEAD ADR
     2078   01 00A36    22D00000 A            LI,13    0
     2079   01 00A37    7590000D A            STB,9    13                R12 AND R 13 = EXPECTED HEADER
     2080   01 00A38    B1C02BAB              CW,12    *IOBUF            COMPARE WORD 1
     2081   01 00A39    69300A3C              BNE      T1ST29D           B: WORD 1 COMPARE ERROR
     2082   01 00A3A    B1D22BAB              CW,13    *IOBUF,1          COMPARE WORD 2
     2083   01 00A3B    68300A43              BE       T1ST29E           B: HEADER DATA OK
     2084   01 00A3C    B5C42BAB     T1ST29D  STW,12   *IOBUF,2          SAVE EXPECTED
     2085   01 00A3D    B5D62BAB              STW,13   *IOBUF,3            DATA
     2086   01 00A3E    6AF02845              BAL,15   :COMPARE          PRINT COMPARE ERROR
     2087   01 00A3F    68000A40              B        %+1
     2088   01 00A40    6AF00535              ERROR    2912              ** 2912 **
            01 00A41    00000B60 A
     2089   01 00A42    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2090   01 00A43    22000C2D     T1ST29E  LI,0     DA(CDWTS17A)      IOCD ADR
     2091   01 00A44    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2092   01 00A45    6AF0281C              BAL,15   :IOREADY          READY TEST
     2093   01 00A46    68000A4A              B        T1ST29F           B: CONTR READY
     2094   01 00A47    6AF00535              ERROR    2913              ** 2913 **
            01 00A48    00000B61 A
     2095   01 00A49    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2096   01 00A4A    B2C42BAA     T1ST29F  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2097   01 00A4B    22700004 A            LI,7     4
     2098   01 00A4C    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     2099   01 00A4D    68000A51              B        T1ST29G           B: TAG LINES OK
     2100   01 00A4E    6AF00535              ERROR    2914              ** 2914  **
            01 00A4F    00000B62 A
     2101   01 00A50    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2102   01 00A51    B2D42BAA     T1ST29G  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2103   01 00A52    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     2104   01 00A53    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2105   01 00A54    6AF028FC              BAL,15   :ERRORT
     2106   01 00A55    00005FC4              DATA     BA(TSEQ031)       TEST FOR ALL ZEROES
     2107   01 00A56    68000A59              B        T1ST29H           B: STATUS OK
     2108   01 00A57    6AF00535              ERROR    2915              **2915 **
            01 00A58    00000B63 A
     2109   01 00A59    B2802BAA     T1ST29H  LW,8     *IOBF1            OBSERVED SENSE DATA
     2110   01 00A5A    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     2111   01 00A5B    31A00008 A            CW,10    8                 COMPARE SENSE ADR
     2112   01 00A5C    68300A62              BE       T1ST29I           B: ADR COMPARES
     2113   01 00A5D    32D0000A A            LW,13    10                EXPECTED SENSE ADR
     2114   01 00A5E    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2115   01 00A5F    6AF00535              ERROR    2916              ** 2916 **
            01 00A60    00000B64 A
     2116   01 00A61    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2117   01 00A62    33001941     T1ST29I  MTW,0    TESTINDX+1        TEST CNT
     2118   01 00A63    68300A67              BEZ      T1ST29J           B: NO ERRORS
     2119   01 00A64    EAF0021D              SENSE    T1ST29A           SSW1 => LOOP ON ERROR
            01 00A65    2E000A65
            01 00A66    68000A1B
     2120   01 00A67    33001940     T1ST29J  MTW,0    TESTINDX          TEST FLAG
     2121   01 00A68    69300A72              BNEZ     T1ST29L           B: HEAD TEST
     2122   01 00A69    21900004 A            CI,9     4                 TEST SEEK ADR
     2123   01 00A6A    68300A6E              BE       T1ST29K           B: SEEK ADR 2 4
     2124   01 00A6B    33100009 A            MTW,1    9                 INCR SEEK ADR
     2125   01 00A6C    3310000A A            MTW,1    10                INCR EXPECTED ADR
     2126   01 00A6D    68000A1B              B        T1ST29A           LOOP
     2127   01 00A6E    33101940     T1ST29K  MTW,1    TESTINDX          SET FLAG
     2128   01 00A6F    22A00100 A            LI,10    X'0100'           EXPECTED ADR
     2129   01 00A70    33100009 A            MTW,1    9                 INCR SEEK ADR
     2130   01 00A71    68000A1B              B        T1ST29A           LOOP
     2131   01 00A72    20900100 A   T1ST29L  AI,9     X'100'            INCR SEEK ADR
     2132   01 00A73    20A00100 A            AI,10    X'100'            INCR EXPECTED ADR
     2133   01 00A74    21A01400 A            CI,10    X'1400'           TEST SEEK ADR
     2134   01 00A75    69100A1B              BL       T1ST29A           B: NEXT ADR
     2135   01 00A76    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   44
A    2137                            * T1ST30  TEST MODE 2 - 120 SECTOR HEADER READ TEST. A SEEK/CC/HEADER
     2138                            * ------  ---- ---- - - --- ------ ------ ---- ----  READ ORDER SEQUENCE
     2139                            * WITH A HEADER READ BYTE CNT OF 960 IS ISSUED. THE HEADER DATA IS
     2140                            * VERIFIED. NO DATA ERROR INDICATES THAT THE HD AND SECT. INCR. LOGIC
     2141                            * PERFORMS CORRECTLY.

     2143   01 00A77    6AF0179E     T1ST30   BAL,15   TST1TM2           ENTER TEST MODE 2
     2144   01 00A78    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2145   01 00A79    22000000 A   T1ST:30  LI,0     0
     2146   01 00A7A    B5002BAA              STW,0    *IOBF1            INITIAL SEEK ADR
     2147   01 00A7B    35001940              STW,0    TESTINDX          CLEAR ERROR CNT
     2148   01 00A7C    32402BAB              LW,4     IOBUF             INITIALIZE
     2149   01 00A7D    354028A2              STW,4    :COMBFRB
     2150   01 00A7E    32402BAA              LW,4     IOBF1               COMPARE ROUTINE
     2151   01 00A7F    354028A1              STW,4    :COMBFRA
     2152   01 00A80    225000F0 A            LI,5     240                 EXP: IOBF1+2
     2153   01 00A81    355028A0              STW,5    :COMWCNT
     2154   01 00A82    350028A3              STW,0    :COMFLAG            OBS: IOBUF
     2155   01 00A83    204000F0 A            AI,4     240               EXP. BUFFER ENDING ADR
     2156   01 00A84    225FFF10 A            LI,5     -240              INDEX
     2157   01 00A85    22800000 A            LI,8     0                 FIRST HEADER
     2158   01 00A86    22900000 A            LI,9     0
     2159   01 00A87    226FFFFB A   T1ST30A  LI,6     -5                INDEX
     2160   01 00A88    B58A0004 A            STW,8    *4,5
     2161   01 00A89    33100005 A            MTW,1    5                 STORE HEADER IN
     2162   01 00A8A    B59A0004 A            STW,9    *4,5                EXPECTED BUFFER
     2163   01 00A8B    30802BE8              AW,8     =X'00000100'      INCR
     2164   01 00A8C    30902BE9              AW,9     =X'01000000'        SECTOR AND CYL ADR
     2165   01 00A8D    33100005 A            MTW,1    5
     2166   01 00A8E    65600A88              BIR,6    %-6               LOOP
     2167   01 00A8F    B58A0004 A            STW,8    *4,5
     2168   01 00A90    33100005 A            MTW,1    5                 STORE 6TH SECTOR
     2169   01 00A91    B59A0004 A            STW,9    *4,5                IN EXPECTED BUFFER
     2170   01 00A92    65500A94              BIR,5    %+2               B: NEXT 6 SECTORS
     2171   01 00A93    68000A97              B        T1ST30B           B: END
     2172   01 00A94    22900000 A            LI,9     0                 INCR HD AND
     2173   01 00A95    30802BEA              AW,8     =X'00000301'        SECTOR ADR
     2174   01 00A96    68000A87              B        T1ST30A           LOOP
     2175   01 00A97    22000C3E     T1ST30B  LI,0     DA(CDWTS30)       IOCD ADR
     2176   01 00A98    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDR READ
     2177   01 00A99    22870000 A            LI,8     X'70000'          DELAY CONSTANT
     2178   01 00A9A    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2179   01 00A9B    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2180   01 00A9C    68000AA0              B        T1ST30C           B: CONTR READY
     2181   01 00A9D    6AF00535              ERROR    3010              ** 3010 **
            01 00A9E    00000BC2 A
     2182   01 00A9F    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2183   01 00AA0    31D02BE3     T1ST30C  CW,13    =X'0000FFFF'      TEST BYTE CNT
     2184   01 00AA1    68400AA7              BCR,4    T1ST30D           B: BYTE CNT = 0
     2185   01 00AA2    227003C0 A            LI,7     960               INITIAL BYT CNT
     2186   01 00AA3    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT ERROR MSG
     2187   01 00AA4    6AF00535              ERROR    3011              ** 3011 **
            01 00AA5    00000BC3 A
     2188   01 00AA6    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2189   01 00AA7    6AF028FC     T1ST30D  BAL,15   :ERRORT           NO UNUSUAL STATUS EXPECTED
     2190   01 00AA8    00005FEC              DATA     BA(TSEQ036)
     2191   01 00AA9    68000AAD              B        T1ST30E           B: NO STATUS ERROR
     2192   01 00AAA    6AF00535              ERROR    3012              ** 3012 **
            01 00AAB    00000BC4 A
     2193   01 00AAC    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2194   01 00AAD    6AF02845     T1ST30E  BAL,15    :COMPARE         COMPARE DATA
     2195   01 00AAE    68000AB2              B        T1ST30F           NO COMPARE ERROR
     2196   01 00AAF    6AF00535              ERROR    3013              ** 3013 **
            01 00AB0    00000BC5 A
     2197   01 00AB1    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2198   01 00AB2    33001940     T1ST30F  MTW,0    TESTINDX          TEST CNT
     2199   01 00AB3    E83004EA              BEZ      *SEQRETN          EXIT
     2200   01 00AB4    EAF0021D              SENSE    T1ST:30           SSW1 => LOOP ON ERROR
            01 00AB5    2E000AB5
            01 00AB6    68000A79
     2201   01 00AB7    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   45
A    2203                            * T1ST31  TEST MODE 2 - HEADER READ BYTE CNT TEST. HEADER READ ORDERS
     2204                            * ------  ---- ---- - -------- ---- ---- --- ----  WITH BYTE CNTS OF
     2205                            * 7 AND 9 ARE ISSUED TO THE CONTROLLER AND THE STATUS RESPONSE IS TESTED

     2207   01 00AB8    6AF0179E     T1ST31   BAL,15   TST1TM2           ENTER TEST MODE 2
     2208   01 00AB9    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2209   01 00ABA    22000000 A            LI,0     0
     2210   01 00ABB    B5002BAA              STW,0    *IOBF1            INITIAL SEEK ADDR
     2211   01 00ABC    22800C27 A            LI,8     3111              INITIAL
     2212   01 00ABD    35800ACD              STW,8    T1ST31C             ERROR NUMBER
     2213   01 00ABE    22700007 A            LI,7     7                 INITIAL BYTE CNT
     2214   01 00ABF    55721883     T1ST31A  STH,7    CDWTS31+3,1       STORE BYTE CNT
     2215   01 00AC0    22000C40              LI,0     DA(CDWTS31)       IOCD ADR
     2216   01 00AC1    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HEADER READ)
     2217   01 00AC2    22802000 A            LI,8     X'2000'           DELAY CONSTANT
     2218   01 00AC3    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2219   01 00AC4    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2220   01 00AC5    68000AC9              B        T1ST31B           B: CONTR READY
     2221   01 00AC6    6AF00535              ERROR    3110              ** 3110
            01 00AC7    00000C26 A
     2222   01 00AC8    68000ACE              B        T1ST31D           B: TEST SENSE SW.
     2223   01 00AC9    6AF028FC     T1ST31B  BAL,15   :ERRORT           TEST IL, NO UE, BYTE CNT = 0
     2224   01 00ACA    00005FF0              DATA     BA(TSEQ037)
     2225   01 00ACB    68000AD1              B        T1ST31E           B: STATUS OK
     2226   01 00ACC    EAF017CF              BAL,15   *:ERROR
     2227   01 00ACD    00000000 A   T1ST31C  DATA     0                 ** 3111 - 3112 **
     2228   01 00ACE    EAF0021D     T1ST31D  SENSE    T1ST31A           SSW1 => LOOP ON ERROR
            01 00ACF    2E000ACF
            01 00AD0    68000ABF
     2229   01 00AD1    21700009 A   T1ST31E  CI,7     9                 TEST BYTE CNT
     2230   01 00AD2    E83004EA              BE       *SEQRETN          EXIT
     2231   01 00AD3    33200007 A            MTW,2    7                 INCR BYTE CNT
     2232   01 00AD4    33100ACD              MTW,1    T1ST31C             AND ERROR NUMBER
     2233   01 00AD5    68000ABF              B        T1ST31A           LOOP
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   46
A    2235                            * T1ST32  TEST MODE 2 - HEADER READ ORDER CYL BOUNDRY TEST. A HEADER
     2236                            * ------  ---- ---- - - ------ ---- ----- --- ------- ----  READ ORDER
     2237                            * WITH A BYTE CNT OF 9 IS ISSUED STARTING AT HD 19 SECTOR 5. READ
     2238                            * OPERATION WILL TERMINATE AFTER ONE SECTOR AND SECTOR UNAVAILABLE
     2239                            * WILL BE REPORTED.

     2241   01 00AD6    6AF0179E     T1ST32   BAL,15   TST1TM2           ENTER TEST MODE 2
     2242   01 00AD7    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2243   01 00AD8    22801305 A   T1ST:32  LI,8     X'1305'
     2244   01 00AD9    B5802BAA              STW,8    *IOBF1            STORE SEEK ADR
     2245   01 00ADA    22000C42              LI,0     DA(CDWTS32)
     2246   01 00ADB    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HEADER READ)
     2247   01 00ADC    22802000 A            LI,8     X'2000'           DELAY CONSTANT
     2248   01 00ADD    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2249   01 00ADE    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2250   01 00ADF    68000AE3              B        T1ST32A           B: CONTR READY
     2251   01 00AE0    6AF00535              ERROR    3210              ** 3210 **
            01 00AE1    00000C8A A
     2252   01 00AE2    68000AE8              B        T1ST32B           B: TEST SENSE SW.
     2253   01 00AE3    6AF028FC     T1ST32A  BAL,15   :ERRORT           TEST UE,SECT UNAVAIL, BYTE CNT = 1
     2254   01 00AE4    00005FDC              DATA     BA(TSEQ034)
     2255   01 00AE5    E80004EA              B        *SEQRETN          EXIT
     2256   01 00AE6    6AF00535              ERROR    3211              ** 3211 **
            01 00AE7    00000C8B A
     2257   01 00AE8    EAF0021D     T1ST32B  SENSE    T1ST:32           SSW1 => LOOP ON ERROR
            01 00AE9    2E000AE9
            01 00AEA    68000AD8
     2258   01 00AEB    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   47
A    2260                            * T1ST35  TEST MODE 2 - HEADER WRITE ORDER TEST. SEEK/CC/HEADER WRITE
     2261                            * ------  ---  ---- - - ------ ----- ----- ----  ORDER SEQUENCES
     2262                            * ARE ISSUED WITH HEADER WRITE BYTE CNTS OF 48. THE HEADER DATA CONSISTS
     2263                            * OF A X'A5A5A5A5' PATTERN. THE STATUS AND BYTE CNT ARE VERIFIED. A
     2264                            * SENSE ORDER VERIFIES THAT THE TAG LINES ARE CORRECTLY GENERATED AND
     2265                            * THAT THE HEAD AND SECTOR ADDR INCR. CORRECTLY.

     2267   01 00AEC    6AF0179E     T1ST35   BAL,15   TST1TM2           ENTER TEST MODE 2
     2268   01 00AED    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2269   01 00AEE    22900000 A            LI,9     0                 INITIAL SEEK ADR
     2270   01 00AEF    22A00100 A            LI,10    X'0100'           INITIAL EXPECTED ADR
     2271   01 00AF0    22000000 A   T1ST35A  LI,0     0
     2272   01 00AF1    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT.
     2273   01 00AF2    B5902BAA              STW,9    *IOBF1            STORE SEEK ADR
     2274   01 00AF3    32B02BAB              LW,11    IOBUF             OUTPUT BUFFER ADDR
     2275   01 00AF4    20B0000C A            AI,11    12
     2276   01 00AF5    224FFFF4 A            LI,4     -12               INDEX
     2277   01 00AF6    32C02BEB              LW,12    =X'A5A5A5A5'      HEADER WRITE DATA
     2278   01 00AF7    B5C8000B A            STW,12   *11,4             LOAD BUFFER
     2279   01 00AF8    65400AF7              BIR,4    %-1               LOOP
     2280   01 00AF9    22000C44              LI,0     DA(CDWTS35)       IOCD ADR
     2281   01 00AFA    35002AB8              STW,0    :SAVCOM1          SAVE IOCD ADR
     2282   01 00AFB    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HEADER WRITE
     2283   01 00AFC    2280A000 A            LI,8     X'A000'           DELAY CONSTANT
     2284   01 00AFD    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2285   01 00AFE    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2286   01 00AFF    68000B03              B        T1ST35B           B: CONTR. READY
     2287   01 00B00    6AF00535              ERROR    3510              ** 3510 **
            01 00B01    00000DB6 A
     2288   01 00B02    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2289   01 00B03    6AF028FC     T1ST35B  BAL,15   :ERRORT           TEST CC, NO ABNORMAL COND. BYTE CNT
     2290   01 00B04    00005FE4              DATA     BA(TSEQ035)
     2291   01 00B05    68000B09              B        T1ST35C           B: STATUS OK
     2292   01 00B06    6AF00535              ERROR    3511              ** 3511 **
            01 00B07    00000DB7 A
     2293   01 00B08    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2294   01 00B09    22000C2D     T1ST35C  LI,0     DA(CDWTS17A)      IOCD ADR
     2295   01 00B0A    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2296   01 00B0B    6AF0281C              BAL,15   :IOREADY          READY TEST
     2297   01 00B0C    68000B10              B        T1ST35D           B: CONTR READY
     2298   01 00B0D    6AF00535              ERROR    3512              ** 3512 **
            01 00B0E    00000DB8 A
     2299   01 00B0F    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2300   01 00B10    B2C42BAA     T1ST35D  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2301   01 00B11    22700003 A            LI,7     3
     2302   01 00B12    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     2303   01 00B13    68000B17              B        T1ST35E           B: TAG LINES OK
     2304   01 00B14    6AF00535              ERROR    3513              ** 3513 **
            01 00B15    00000DB9 A
     2305   01 00B16    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2306   01 00B17    B2D42BAA     T1ST35E  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2307   01 00B18    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     2308   01 00B19    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2309   01 00B1A    6AF028FC              BAL,15   :ERRORT
     2310   01 00B1B    00005FC4              DATA     BA(TSEQ031)       TEST FOR ALL ZEROES
     2311   01 00B1C    68000B20              B        T1ST35F           B: STATUS OK
     2312   01 00B1D    6AF00535              ERROR    3514              ** 3514 **
            01 00B1E    00000DBA A
     2313   01 00B1F    33101942              MTW,1    TESTINDX+2        INCR ERROR CNT
     2314   01 00B20    B2802BAA     T1ST35F  LW,8     *IOBF1            OBSERVED SENSE DATA
     2315   01 00B21    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     2316   01 00B22    31A00008 A            CW,10    8                 COMPARE SENSE ADR
     2317   01 00B23    68300B29              BE       T1ST35G           B: ADR COMPARES
     2318   01 00B24    32D0000A A            LW,13    10                EXPECTED SENSE ADR
     2319   01 00B25    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2320   01 00B26    6AF00535              ERROR    3515              ** 3515 **
            01 00B27    00000DBB A
     2321   01 00B28    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2322   01 00B29    33001941     T1ST35G  MTW,0    TESTINDX+1        TEST CNT
     2323   01 00B2A    68300B2E              BEZ      T1ST35H           B: NO ERRORS
     2324   01 00B2B    EAF0021D              SENSE    T1ST35A           SSW1 => LOOP ON ERROR
            01 00B2C    2E000B2C
            01 00B2D    68000AF0
     2325   01 00B2E    20900100 A   T1ST35H  AI,9     X'100'            INCR SEEK ADR
     2326   01 00B2F    20A00100 A            AI,10    X'100'            INCR EXPECTED ADR
     2327   01 00B30    21A01400 A            CI,10    X'1400'           TEST SEEK ADR
     2328   01 00B31    69100AF0              BL       T1ST35A           LOOP
     2329   01 00B32    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   48
A    2331                            * T1ST36  TEST MODE 2 - 120 SECTOR HEADER WRITE TEST. A SEEK/CC/HEADER
     2332                            * ------  ---- ---- - - --- ------ ------ ----- ----- WRITE ORDER
     2333                            * SEQUENCE WITH A HEADER WRITE BYTE CNT OF 960 IS ISSUED. A SENSE ORDER
     2334                            * IS ISSUED TO VERIFY THAT THE HEAD AND SECTOR ADR ARE INCREMENTED TO
     2335                            * HD 20 SECT.0.

     2337   01 00B33    6AF0179E     T1ST36   BAL,15   TST1TM2           ENTER TEST MODE 2
     2338   01 00B34    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2339   01 00B35    22000000 A   T1ST:36  LI,0     0
     2340   01 00B36    B5002BAA              STW,0    *IOBF1            INITIAL SEEK ADR
     2341   01 00B37    35001940              STW,0    TESTINDX          CLEAR ERROR CNT
     2342   01 00B38    22000C46              LI,0     DA(CDWTS36)       IFCD ADI
     2343   01 00B39    6AF027E6              BAL,15   :IOEXEC           START IF (SEEK/CC/HDI-WRITE)
     2344   01 00B3A    22870000 A            LI,8     X'70000'          DELAY CONSTANT
     2345   01 00B3B    35802832              STW,8   :IORDYDL           STORE IN SUBROUTINE
     2346   01 00B3C    6AF0281F              BAL,15  :IOREADY+3         READY TEST (ALT)
     2347   01 00B3D    68000B41              B        T1ST36A           B: CONTR READY
     2348   01 00B3E    6AF00535              ERROR    3610              ** 3610 **
            01 00B3F    00000E1A A
     2349   01 00B40    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2350   01 00B41    31D02BE3     T1ST36A  CW,13    =X'0000FFFF'      TEST BYTE CNT
     2351   01 00B42    68400B48              BCR,4    T1ST36B           B: BYTE CNT = 0
     2352   01 00B43    227003C0 A            LI,7     960               INITIAL BYTE CNT
     2353   01 00B44    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT ERROR MSG
     2354   01 00B45    6AF00535              ERROR    3611              ** 3611 **
            01 00B46    00000E1B A
     2355   01 00B47    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2356   01 00B48    6AF028FC     T1ST36B  BAL,15   :ERRORT           NO UNUSUAL STATUS EXPECTED
     2357   01 00B49    00005FEC              DATA     BA(TSEQ036)
     2358   01 00B4A    68000B4E              B        T1ST36C           B: NO STATUS ERROR
     2359   01 00B4B    6AF00535              ERROR    3612              ** 3612 **
            01 00B4C    00000E1C A
     2360   01 00B4D    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2361   01 00B4E    22000C2D     T1ST36C  LI,0     DA(CDWTS17A)      IOCD ADR
     2362   01 00B4F    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2363   01 00B50    6AF0281C              BAL,15   :IOREADY          READY TEST
     2364   01 00B51    68000B55              B        T1ST36D           B: CONTR READY
     2365   01 00B52    6AF00535              ERROR    3613              ** 3613 **
            01 00B53    00000E1D A
     2366   01 00B54    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2367   01 00B55    B2802BAA     T1ST36D  LW,8     *IOBF1            OBSERVED SENSE DATA
     2368   01 00B56    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     2369   01 00B57    22D01400 A            LI,13    X'1400'           EXPECTED SENSE ADR
     2370   01 00B58    3180000D A            CW,8     13                COMPARE SENSE ADRS
     2371   01 00B59    68300B5E              BE       T1ST36E           B: ADR COMPARES
     2372   01 00B5A    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2373   01 00B5B    6AF00535              ERROR    3614              ** 3614 **
            01 00B5C    00000E1E A
     2374   01 00B5D    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     2375   01 00B5E    33001940     T1ST36E  MTW,0    TESTINDX          TEST CNT
     2376   01 00B5F    E83004EA              BEZ      *SEQRETN          EXIT
     2377   01 00B60    EAF0021D              SENSE    T1ST:36           SSW1 => LOOP ON ERROR
            01 00B61    2E000B61
            01 00B62    68000B35
     2378   01 00B63    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   49
A    2380                            * T1ST37  TEST MODE 2 - HEADER WRITE BYTE CNT TEST. HEADER WRITE ORDERS
     2381                            * ------  ---- ---- - - ------ ----- ---- --- ----  WITH BYTE CNTS OF
     2382                            * 7 AND 9 ARE ISSUED TO THE CONTROLLER AND THE STATUS RESPONSE IS TESTED

     2384   01 00B64    6AF0179E     T1ST37   BAL,15   TST1TM2           ENTER TEST MODE 2
     2385   01 00B65    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2386   01 00B66    22000000 A            LI,0     0
     2387   01 00B67    B5002BAA              STW,0    *IOBF1            INITIAL SEEK ADR
     2388   01 00B68    22800E7F A            LI,8     3711              INITIAL
     2389   01 00B69    35800B79              STW,8    T1ST37C             ERROR NUMBER
     2390   01 00B6A    22700007 A            LI,7     7                 INITIAL BYTE CNT
     2391   01 00B6B    55721897     T1ST37A  STH,7    CDWTS37+3,1       STORE BYTE CNT
     2392   01 00B6C    22000C4A              LI,0     DA(CDWTS37)       IOCD ADR
     2393   01 00B6D    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HEADER WRITE)
     2394   01 00B6E    22802000 A            LI,8     X'2000'           DELAY CONSTANT
     2395   01 00B6F    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2396   01 00B70    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2397   01 00B71    68000B75              B        T1ST37B           B: CONTR READY
     2398   01 00B72    6AF00535              ERROR    3710              ** 3710 **
            01 00B73    00000E7E A
     2399   01 00B74    68000B7A              B        T1ST37D           B: TEST SENSE SW.
     2400   01 00B75    6AF028FC     T1ST37B  BAL,15   :ERRORT           TEST IL, NO UE, BYTE CNT = 0
     2401   01 00B76    00005FF0              DATA     BA(TSEQ037)
     2402   01 00B77    68000B7D              B        T1ST37E           B: STATUS OK
     2403   01 00B78    EAF017CF              BAL,15   *:ERROR
     2404   01 00B79    00000000 A   T1ST37C  DATA     0                 ** 3711 - 3712 **
     2405   01 00B7A    EAF0021D     T1ST37D  SENSE    T1ST37A           SSW1 => LOOP ON ERROR
            01 00B7B    2E000B7B
            01 00B7C    68000B6B
     2406   01 00B7D    21700009 A   T1ST37E  CI,7     9                 TEST BYTE CNT
     2407   01 00B7E    E83004EA              BE       *SEQRETN          EXIT
     2408   01 00B7F    33200007 A            MTW,2    7                 INCR. BYTE CNT
     2409   01 00B80    33100B79              MTW,1    T1ST37C             AND ERROR NUMBER
     2410   01 00B81    68000B6B              B        T1ST37A           LOOP
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   50
A    2412                            * T1ST38   TEST MODE 2 - HEADER WRITE ORDER CYL BOUNDRY TEST. A HEADER
     2413                            * -----   ---- ---- - - ------ ----- -----  --- ------- ----  WRITE
     2414                            * ORDER WITH A BYTE CNT OF 49 IS ISSUED STARTING AT HD 19 SECT 0. WRITE
     2415                            * OPERATION WILL TERMINATE AFTER 6 SECTORS AND SECTOR UNAVAILABLE
     2416                            * WILL BE REPORTED.

     2418   01 00B82    6AF0179E     T1ST38   BAL,15   TST1TM2           ENTER TEST MODE 2
     2419   01 00B83    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2420   01 00B84    22801300 A   T1ST:38  LI,8     X'1300'
     2421   01 00B85    B5802BAA              STW,8    *IOBF1            STORE SEEK ADR
     2422   01 00B86    22000C4C              LI,0     DA(CDWTS38)       IOCD ADR
     2423   01 00B87    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDR WRT)
     2424   01 00B88    2280A000 A            LI,8     X'A000'           DELAY CONSTANT
     2425   01 00B89    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2426   01 00B8A    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2427   01 00B8B    68000B8F              B        T1ST38A           B: CONTR READY
     2428   01 00B8C    6AF00535              ERROR    3810              ** 2810 **
            01 00B8D    00000EE2 A
     2429   01 00B8E    68000B94              B        T1ST38B           TEST SENSE SW
     2430   01 00B8F    6AF028FC     T1ST38A  BAL,15   :ERRORT           TEST UE, SECT UNAVAIL, BYT CNT = 0
     2431   01 00B90    00005FE0              DATA     BA(TSEQ034A)
     2432   01 00B91    E80004EA              B        *SEQRETN          EXIT
     2433   01 00B92    6AF00535              ERROR    3811              ** 3811 **
            01 00B93    00000EE3 A
     2434   01 00B94    EAF0021D     T1ST38B  SENSE    T1ST:38           SSW1 => LOOP ON ERROR
            01 00B95    2E000B95
            01 00B96    68000B84
     2435   01 00B97    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   51
A    2437                            * T1ST39  TEST MODE 2 - HEADER WRITE STARTING ADR TEST. HEADER WRITE
     2438                            * ------  ---- ---- - - ------ ----- -------- --- ----  ORDERS WITH
     2439                            * STARTING SECTOR ADR OF 0 THRU 5 ARE SEQUENCIALLY ISSUED. FOR ALL
     2440                            * STARTING ADRS EXCEPT 0, BYTE 8 OF THE SENSE DATA WILL INDICATE
     2441                            * HEADER ADR ERROR.

     2443   01 00B98    6AF0179E     T1ST39   BAL,15   TST1TM2           ENTER TEST MODE 2
     2444   01 00B99    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2445   01 00B9A    22700000 A            LI,7     0                 STARTING SECTOR ADR
     2446   01 00B9B    22800F50 A            LI,8     3920              INITIALIZE ERROR
     2447   01 00B9C    35800BC8              STW,8    T1ST39F4            NUMBERS
     2448   01 00B9D    B5702BAA     T1ST39A  STW,7    *IOBF1            STORE STARTING ADR
     2449   01 00B9E    22000C4E              LI,0     DA(CDWTS39)       IOCD ADR
     2450   01 00B9F    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HEADER WRT-48BYT)
     2451   01 00BA0    2280A000 A            LI,8     X'A000'           DELAY
     2452   01 00BA1    35802832              STW,8    :IORDYDL            CONSTANT
     2453   01 00BA2    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2454   01 00BA3    68000BA7              B        T1ST39B           B: CONTR. READY
     2455   01 00BA4    6AF00535              ERROR    3910              ** 3910 **
            01 00BA5    00000F46 A
     2456   01 00BA6    68000BAC              B        T1ST39D           B: TEST SENSE SW.
     2457   01 00BA7    6AF028FC     T1ST39B  BAL,15   :ERRORT           NORMAL TERMINATION EXPECTED
     2458   01 00BA8    00005FEC              DATA     BA(TSEQ036)
     2459   01 00BA9    68000BB4              B        T1ST39F           B: STATUS OK
     2460   01 00BAA    EAF017CF              BAL,15   *:ERROR
     2461   01 00BAB    00000F47 A   T1ST39C  DATA     3911              ** 3911 **
     2462   01 00BAC    EAF0021D     T1ST39D  SENSE    T1ST39A           SSW1 => LOOP ON ERROR
            01 00BAD    2E000BAD
            01 00BAE    68000B9D
     2463   01 00BAF    33100007 A   T1ST39E  MTW,1    7                 INCR SECTOR STARTING ADR
     2464   01 00BB0    33100BC8              MTW,1    T1ST39F4          INCR ERROR NO.
     2465   01 00BB1    21700006 A            CI,7     6                 TEST SECTOR ADR
     2466   01 00BB2    69100B9D              BL       T1ST39A           B: NEXT ADR
     2467   01 00BB3    E80004EA              B        *SEQRETN          EXIT
     2468   01 00BB4    22000C2D     T1ST39F  LI,0     DA(CDWTS17A)      IOCD ADR
     2469   01 00BB5    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2470   01 00BB6    6AF0281C              BAL,15   :IOREADY          READY TEST
     2471   01 00BB7    68000BBB              B        T1ST39F1          B: CONTR READY
     2472   01 00BB8    6AF00535              ERROR    3912              ** 3912 **
            01 00BB9    00000F48 A
     2473   01 00BBA    68000BAB              B        T1ST39C           B: TEST SENSE SW.
     2474   01 00BBB    B2D42BAA     T1ST39F1 LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2475   01 00BBC    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     2476   01 00BBD    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2477   01 00BBE    33000007 A            MTW,0    7                 TEST INDEX
     2478   01 00BBF    69300BC4              BNEZ     T1ST39F2          B: INDEX NOT AT ZERO
     2479   01 00BC0    6AF028FC              BAL,15   :ERRORT           HDR ADR ERROR NOT EXPECTED (SECT 0)
     2480   01 00BC1    00006054              DATA     BA(TSEQ052)
     2481   01 00BC2    68000BAF              B        T1ST39E           B: STATUS OK
     2482   01 00BC3    68000BC7              B        T1ST39F3
     2483   01 00BC4    6AF028FC     T1ST39F2 BAL,15   :ERRORT           HDR ADR ERROR EXPECTED (SECTORS 1-5)
     2484   01 00BC5    00006058              DATA     BA(TSEQ052A)
     2485   01 00BC6    68000BAF              B        T1ST39E           B: STATUS OK
     2486   01 00BC7    EAF017CF     T1ST39F3 BAL,15   *:ERROR
     2487   01 00BC8    00000000 A   T1ST39F4 DATA     0                 ** 3920 - 3925
     2488   01 00BC9    68000BAC              B        T1ST39D           B: TEST SENSE SW.
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   52
A    2490                            * T1ST40  TEST MODE 2 - WRITE ORDER TEST. SEEK/CC/WRITE ORDER SEQUENCES
     2491                            * ------  ---- ---- - - ----- ----- ----  ARE ISSUED WITH WRITE BYTE
     2492                            * CNT3 OF 1024. THE WRITE DATA CONSISTS OF BYTE VALUES STARTING AT
     2493                            * 224, WITH EACH SUCCESSIVE BYTE = BYTE(N)+1. THESE VALUES
     2494                            * REFLECT THE BYTE COUNTER IN THE CONTR. AT THE TIME OF WRITING EACH
     2495                            * BYTE. STATUS AND BYTE CNT ARE VERIFIED. A SENSE ORDER VERIFIES THAT
     2496                            * THE TAG LINES ARE CORRECTLY GENERATED AND THAT THE HEAD AND SECTOR
     2497                            * ADR INCREMENT CORRECTLY.

     2499   01 00BCA    6AF0179E     T1ST40   BAL,15   TST1TM2           ENTER TEST MODE 2
     2500   01 00BCB    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2501   01 00BCC    22900000 A            LI,9     0                 INITIAL SEEK ADR
     2502   01 00BCD    35901940              STW,9    TESTINDX          SET FLAG
     2503   01 00BCE    22A00001 A            LI,10    1                 INITIAL EXPECTED ADR
     2504   01 00BCF    6AF0170F              BAL,15   TST1DATA          SRREAD DATA IN OUTPUT BUFFER
     2505   01 00BD0    22000000 A   T1ST40A  LI,0     0
     2506   01 00BD1    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT
     2507   01 00BD2    B5902BAA              STW,9    *IOBF1            STORE SEEK ADR
     2508   01 00BD3    22000C50              LI,0     DA(CDWTS40)       IOCD ADR
     2509   01 00BD4    35002AB8              STW,0    :SAVCOM1          SAVE IOCD ADR
     2510   01 00BD5    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/WRITE)
     2511   01 00BD6    22801770 A            LI,8     6000              LOAD DELAY CONSTANT
     2512   01 00BD7    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2513   01 00BD8    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2514   01 00BD9    68000BDD              B        T1ST40B           B: CONTR READY
     2515   01 00BDA    6AF00535              ERROR    4010              ** 4010 **
            01 00BDB    00000FAA A
     2516   01 00BDC    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2517   01 00BDD    6AF028FC     T1ST40B  BAL,15   :ERRORT           TEST CC. NO ABNORMAL COND. BYTE CNT
     2518   01 00BDE    00005FE4              DATA     BA(TSEQ035)
     2519   01 00BDF    68000BE3              B        T1ST40C           B: STATUS OK
     2520   01 00BE0    6AF00535              ERROR    4011              ** 4011 **
            01 00BE1    00000FAB A
     2521   01 00BE2    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2522   01 00BE3    22000C2D     T1ST40C  LI,0     DA(CDWTS17A)      IOCD ADR
     2523   01 00BE4    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2524   01 00BE5    6AF0281C              BAL,15   :IOREADY          READY TEST
     2525   01 00BE6    68000BEA              B        T1ST40D           B: CONTR READY
     2526   01 00BE7    6AF00535              ERROR    4012              ** 4012 **
            01 00BE8    00000FAC A
     2527   01 00BE9    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2528   01 00BEA    B2C42BAA     T1ST40D  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2529   01 00BEB    22700000 A            LI,7     0
     2530   01 00BEC    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     2531   01 00BED    68000BF1              B        T1ST40E           B: TAG LINES OK
     2532   01 00BEE    6AF00535              ERROR    4013              ** 4013 **
            01 00BEF    00000FAD A
     2533   01 00BF0    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2534   01 00BF1    B2D42BAA     T1ST40E  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2535   01 00BF2    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     2536   01 00BF3    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2537   01 00BF4    6AF028FC              BAL,15   :ERRORT
     2538   01 00BF5    00005FC4              DATA     BA(TSEQ031)       TEST FOR ALL ZEROES
     2539   01 00BF6    68000BFA              B        T1ST40F           B: STATUS OK
     2540   01 00BF7    6AF00535              ERROR    4014              ** 4014 **
            01 00BF8    00000FAE A
     2541   01 00BF9    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2542   01 00BFA    B2802BAA     T1ST40F  LW,8     *IOBF1            OBSERVED SENSE DATA
     2543   01 00BFB    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     2544   01 00BFC    31A00008 A            CW,10    8                 COMPARE SENSE ADR
     2545   01 00BFD    68300C03              BE       T1ST40G           B: ADR COMPARES
     2546   01 00BFE    32D0000A A            LW,13    10                EXPECTED SENSE ADR
     2547   01 00BFF    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2548   01 00C00    6AF00535              ERROR    4015              ** 4015 **
            01 00C01    00000FAF A
     2549   01 00C02    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2550   01 00C03    33001941     T1ST40G  MTW,0    TESTINDX+1        TEST ERROR CNT
     2551   01 00C04    68300C08              BEZ      T1ST40H           B: NO ERRORS
     2552   01 00C05    EAF0021D              SENSE    T1ST40A           SSW1 => LOOP ON ERROR
            01 00C06    2E000C06
            01 00C07    68000BD0
     2553   01 00C08    33001940     T1ST40H  MTW,0    TESTINDX          TEST FLAG
     2554   01 00C09    69300C13              BNEZ     T1ST40J           B: HEAD ADR TEST
     2555   01 00C0A    21900004 A            CI,9     4                 TEST SEEK ADR
     2556   01 00C0B    68300C0F              BE       T1ST40I           B: SEEK ADR = 4
     2557   01 00C0C    33100009 A            MTW,1    9                 INCR SEEK ADR
     2558   01 00C0D    3310000A A            MTW,1    10                INCR EXPECTED ADR
     2559   01 00C0E    68000BD0              B        T1ST40A           LOOP
     2560   01 00C0F    33101940     T1ST40I  MTW,1    TESTINDX          SET FLAG
     2561   01 00C10    22A00100 A            LI,10    X'0100'           EXPECTED ADR
     2562   01 00C11    33100009 A            MTW,1    9                 INCR SEEK ADR
     2563   01 00C12    68000BD0              B        T1ST40A           LOOP
     2564   01 00C13    20900100 A   T1ST40J  AI,9     X'100'            INCR SEEK ADR
     2565   01 00C14    20A00100 A            AI,10    X'100'            INCR EXPECTED ADR
     2566   01 00C15    21A01400 A            CI,10    X'1400'           TEST SEEK ADR
     2567   01 00C16    69100BD0              BL       T1ST40A           LOOP
     2568   01 00C17    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   53
A    2570                            * T1ST41  TEST MODE 2 - WRITE ORDER INCORRECT LENGTH TEST. SEEK/CC/WRITE
     2571                            * ------  ---- ---- - - ----- ----- --------- ------ ----  ORDER
     2572                            * SEQUENCES ARE ISSUED WITH BYTE CNTS SEQUENCIALLY VARIED FROM 1008
     2573                            * TO 1025 (NOT 1024). THE STATUS WILL BE VERIFIED.

     2575   01 00C18    6AF0179E     T1ST41   BAL,15   TST1TM2           ENTER TEST MODE 2
     2576   01 00C19    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2577   01 00C1A    226FFFF0 A            LI,6     -16               INDEX
     2578   01 00C1B    227003F0 A            LI,7     1008              BYTE CNT
     2579   01 00C1C    6AF0170F              BAL,15   TST1DATA          SPREAD DATA IN OUTPUT BUFFER
     2580   01 00C1D    22000000 A   T1ST41A  LI,0     0                 CLEAR
     2581   01 00C1E    35001941              STW,0    TESTINDX+1          ERROR CNT
     2582   01 00C1F    B5002BAA              STW,0    *IOBF1            SEEK ADR
     2583   01 00C20    55721893              STH,7    CDWTS41+3,1       STORE BYTE CNT IN IOCD
     2584   01 00C21    22000C48              LI,0     DA(CDWTS41)       IOCD ADR
     2585   01 00C22    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/WRITE)
     2586   01 00C23    22801770 A            LI,8     6000              LOAD DELAY CONSTANT
     2587   01 00C24    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2588   01 00C25    6AF0281F              BAL,15   :IOREADY+3        TEST READY (ALT)
     2589   01 00C26    68000C2A              B        T1ST41B           B: CONTR READY AFTER WRITE
     2590   01 00C27    6AF00535              ERROR    4110              ** 4110 **
            01 00C28    0000100E A
     2591   01 00C29    68000C38              B        T1ST41E           B: TEST SENSE SW
     2592   01 00C2A    31D02BE3     T1ST41B  CW,13    =X'0000FFFF'      TEST BYTE CNT
     2593   01 00C2B    68400C30              BCR,4    T1ST41C           B: BYTE CNT = 0
     2594   01 00C2C    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT ERROR MSG
     2595   01 00C2D    6AF00535              ERROR    4111              ** 4111 **
            01 00C2E    0000100F A
     2596   01 00C2F    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2597   01 00C30    6AF028FC     T1ST41C  BAL,15   :ERRORT           TEST IL, NOT UE
     2598   01 00C31    00005FC8              DATA     BA(TSEQ032)
     2599   01 00C32    68000C36              B        T1ST41D           B: STATUS OK
     2600   01 00C33    6AF00535              ERROR    4112              ** 4112 **
            01 00C34    00001010 A
     2601   01 00C35    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2602   01 00C36    33001941     T1ST41D  MTW,0    TESTINDX+1        TEST CNT
     2603   01 00C37    68300C3B              BEZ      T1ST41F           B: NO ERRORS
     2604   01 00C38    EAF0021D     T1ST41E  SENSE    T1ST41A           SSW1 => LOOP ON ERROR
            01 00C39    2E000C39
            01 00C3A    68000C1D
     2605   01 00C3B    33100007 A   T1ST41F  MTW,1    7                 INCR BYTE CNT
     2606   01 00C3C    65600C1D              BIR,6    T1ST41A           LOOP
     2607   01 00C3D    33100007 A            MTW,1    7                 INCR BYTE CNT
     2608   01 00C3E    21700402 A            CI,7     1026
     2609   01 00C3F    69100C1D              BL       T1ST41A           LOOP: BYTE CNT = 1025
     2610   01 00C40    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   54
A    2612                            * T1ST42  TEST MODE 2 - WRITE ORDER CYLINDER BOUNDRY TEST. A WRITE ORDER
     2613                            * ------  ---- ---- - - ----- ----- -------- ------- ----  WITH A BYTE
     2614                            * CNT OF 1025 IS ISSUED STARTING AT HD 19 SECT 5. THE WRITE OPERATION
     2615                            * WILL TERMINATE AFTER 1 SECTOR AND SECTOR UNAVAILABLE WILL BE REPORTED.

     2617   01 00C41    6AF0179E     T1ST42   BAL,15   TST1TM2           ENTER TESTMODE 2
     2618   01 00C42    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2619   01 00C43    6AF0170F              BAL,15   TST1DATA          SPREAD DATA IN OUTPUT BUFFER
     2620   01 00C44    22801305 A   T1ST:42  LI,8     X'1305'
     2621   01 00C45    B5802BAA              STW,8    *IOBF1            STORE SEEKADR
     2622   01 00C46    22000C52              LI,0     DA(CDWTS42)       IOCD ADR
     2623   01 00C47    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/WRITE)
     2624   01 00C48    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     2625   01 00C49    35802832              STW,8    :IORDYDL          STORE IN SR
     2626   01 00C4A    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2627   01 00C4B    68000C4F              B        T1ST42A           B: CONTR READY
     2628   01 00C4C    6AF00535              ERROR    4210              ** 4210 **
            01 00C4D    00001072 A
     2629   01 00C4E    68000C54              B        T1ST42B           B: TEST SENSE SW.
     2630   01 00C4F    6AF028FC     T1ST42A  BAL,15   :ERRORT           TEST UE, SECT UNAVAIL, BYT CNT = 0
     2631   01 00C50    00005FE0              DATA     BA(TSEQ034A)
     2632   01 00C51    E80004EA              B        *SEQRETN          EXIT
     2633   01 00C52    6AF00535              ERROR    4211              ** 4211 **
            01 00C53    00001073 A
     2634   01 00C54    EAF0021D     T1ST42B  SENSE    T1ST:42           SSW1 => LOOP ON ERROR
            01 00C55    2E000C55
            01 00C56    68000C44
     2635   01 00C57    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   55
A    2637                            * T1ST45  TEST MODE 2-CHECK-WRT ORDER TEST. SEEK/CC/CHECK-WRITE ORDER
     2638                            * ------  ---- ---- - ------- ----- ----  SEQUENCES ARE ISSUED WITH BYTE
     2639                            * COUNTS OF 1024. THE CHECK WRITE DATA CONSISTS OF BYTE VALUES STARTING
     2640                            * AT 224, WITH EACH SUCCESSIVE BYTE = BYTE(N)+1. A SENSE ORDER VERIFIES
     2641                            * THAT THE TAG LINES ARE CORRECTLY GENERATED AND THAT THE HEAD AND
     2642                            * SECTOR ADR INCREMENTS CORRECTLY.

     2644   01 00C58    6AF0179E     T1ST45   BAL,15   TST1TM2           ENTER TEST MODE 2
     2645   01 00C59    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2646   01 00C5A    22900000 A            LI,9     0                 INITIAL SEEK ADR
     2647   01 00C5B    35901940              STW,9    TESTINDX          SET FLAG
     2648   01 00C5C    22A00001 A            LI,10    1                 INITIAL EXPECTED ADR
     2649   01 00C5D    22000000 A   T1ST45A  LI,0     0
     2650   01 00C5E    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT
     2651   01 00C5F    6AF0170F              BAL,15   TST1DATA          SPREAD DATA IN OUTPUT BUFFER
     2652   01 00C60    B5902BAA              STW,9    *IOBF1            STORE SEEK ADR
     2653   01 00C61    22000C54              LI,0     DA(CDWTS45)       IOCD ADR
     2654   01 00C62    35002AB8              STW,0    :SAVCOM1          SAVE IOCD ADR
     2655   01 00C63    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/CHECK WRITE)
     2656   01 00C64    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     2657   01 00C65    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2658   01 00C66    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2659   01 00C67    68000C6B              B        T1ST45B           B: CONTR READY
     2660   01 00C68    6AF00535              ERROR    4510              ** 4510 **
            01 00C69    0000119E A
     2661   01 00C6A    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2662   01 00C6B    6AF028FC     T1ST45B  BAL,15   :ERRORT           TEST CC, NO ABNORMAL COND, BYTE CNT
     2663   01 00C6C    00005FE4              DATA     BA(TSEQ035)
     2664   01 00C6D    68000C71              B        T1ST45C           B: STATUS OK
     2665   01 00C6E    6AF00535              ERROR    4511              ** 4511 **
            01 00C6F    0000119F A
     2666   01 00C70    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2667   01 00C71    22000C2D     T1ST45C  LI,0     DA(CDWTS17A)      IOCD ADR
     2668   01 00C72    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2669   01 00C73    6AF0281C              BAL,15   :IOREADY          READY TEST
     2670   01 00C74    68000C78              B        T1ST45D           B: CONTR READY
     2671   01 00C75    6AF00535              ERROR    4512              ** 4512 **
            01 00C76    000011A0 A
     2672   01 00C77    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2673   01 00C78    B2C42BAA     T1ST45D  LW,12    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2674   01 00C79    22700001 A            LI,7     1
     2675   01 00C7A    6AF01768              BAL,15   TST1TAG           TEST TAG LINES
     2676   01 00C7B    68000C7F              B        T1ST45E           B: TAG LINES OK
     2677   01 00C7C    6AF00535              ERROR    4513              ** 4513 **
            01 00C7D    000011A1 A
     2678   01 00C7E    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2679   01 00C7F    B2D42BAA     T1ST45E  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2680   01 00C80    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     2681   01 00C81    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2682   01 00C82    6AF028FC              BAL,15   :ERRORT
     2683   01 00C83    00005FC4              DATA     BA(TSEQ031)       TEST FOR ALL ZEROES
     2684   01 00C84    68000C88              B        T1ST45F           B: STATUS OK
     2685   01 00C85    6AF00535              ERROR    4514              ** 4514 **
            01 00C86    000011A2 A
     2686   01 00C87    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2687   01 00C88    B2802BAA     T1ST45F  LW,8     *IOBF1            OBSERVED SENSE DATA
     2688   01 00C89    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYLINDER ADR
     2689   01 00C8A    31A00008 A            CW,10    8                 COMPARE SENSE ADR
     2690   01 00C8B    68300C91              BE       T1ST45G           B: ADR COMPARES
     2691   01 00C8C    32D0000A A            LW,13    10                EXPECTED SENSE ADR
     2692   01 00C8D    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2693   01 00C8E    6AF00535              ERROR    4515              ** 4515**
            01 00C8F    000011A3 A
     2694   01 00C90    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2695   01 00C91    33001941     T1ST45G  MTW,0    TESTINDX+1        TEST CNT
     2696   01 00C92    68300C96              BEZ      T1ST45H           B: NO ERRORS
     2697   01 00C93    EAF0021D              SENSE    T1ST45A           SSW1 => LOOP ON ERROR
            01 00C94    2E000C94
            01 00C95    68000C5D
     2698   01 00C96    33001940     T1ST45H  MTW,0    TESTINDX          TEST FLAG
     2699   01 00C97    69300CA1              BNEZ     T1ST45J           B: HEAD ADR TEST
     2700   01 00C98    21900004 A            CI,9     4                 TEST SEEK ADR
     2701   01 00C99    68300C9D              BE       T1ST45I           B: SEEK ADR = 4
     2702   01 00C9A    33100009 A            MTW,1    9                 INCR SEEK ADR
     2703   01 00C9B    3310000A A            MTW,1    10                INCR EXPECTED ADR
     2704   01 00C9C    68000C5D              B        T1ST45A           LOOP
     2705   01 00C9D    33101940     T1ST45I  MTW,1    TESTINDX          SET FLAG
     2706   01 00C9E    22A00100 A            LI,10    X'0100'           EXPECTED ADDR
     2707   01 00C9F    33100009 A            MTW,1    9                 INCR SEEK ADR
     2708   01 00CA0    68000C5D              B        T1ST45A           LOOP
     2709   01 00CA1    20900100 A   T1ST45J  AI,9     X'100'            INCR SEEK ADR
     2710   01 00CA2    20A00100 A            AI,10    X'100'            INCR EXPECTED ADR
     2711   01 00CA3    21A01400 A            CI,10    X'1400'           TEST SEEK ADR
     2712   01 00CA4    69100C5D              BL       T1ST45A           LOOP
     2713   01 00CA5    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   56
A    2715                            * T1ST46  TEST MODE 2 - CHECK-WRITE ORDER INCORRECT LENGTH TEST. SEEK/CC
     2716                            * ------  ---- ---- - - ----------- ----- --------- ------ ----  /CHECK-
     2717                            * WRITE ORDER SEQUENCES ARE ISSUED WITH BYTE CNTS SEQUENCIALLY VARIED
     2718                            * FROM 1008 TO 1025 (NOT 1024). THE STATUS WILL BE VERIFIED.

     2720   01 00CA6    6AF0179E     T1ST46   BAL,15   TST1TM2           ENTER TEST MODE 2
     2721   01 00CA7    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2722   01 00CA8    226FFFF0 A            LI,6     -16               INDEX
     2723   01 00CA9    227003F0 A            LI,7     1008              BYTE CNT
     2724   01 00CAA    22000000 A   T1ST46A  LI,0     0                 CLEAR
     2725   01 00CAB    35001941              STW,0    TESTINDX+1          ERROR CNT
     2726   01 00CAC    6AF0170F              BAL,15   TST1DATA          SPREAD DATA IN OUTPUT BUFFER
     2727   01 00CAD    22400100 A            LI,4     256               DATA FOR
     2728   01 00CAE    B2802BAB              LW,8     *IOBUF
     2729   01 00CAF    B5882BAB              STW,8    *IOBUF,4            BYTES 1025 - 1028
     2730   01 00CB0    B5002BAA              STW,0    *IOBF1            SEEK ADR
     2731   01 00CB1    557218AF              STH,7    CDWTS46+3,1       STORE BYTE CNT DN IOCD
     2732   01 00CB2    22000C56              LI,0     DA(CDWTS46)       IOCD ADR
     2733   01 00CB3    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/CHECK-WRITE)
     2734   01 00CB4    22801770 A            LI,8     6000              LOAD DELAY CONSTANT
     2735   01 00CB5    35802832              STW,8    :IORDYDL          STORE IN SUBROUTINE
     2736   01 00CB6    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2737   01 00CB7    68000CBB              B        T1ST46B           B: CONTR READY AFTER CHECK-WRITE
     2738   01 00CB8    6AF00535              ERROR    4610              ** 4610 **
            01 00CB9    00001202 A
     2739   01 00CBA    68000CC9              B        T1ST46E           B: TEST SENSE SW.
     2740   01 00CBB    31D02BE3     T1ST46B  CW,13    =X'0000FFFF'      TEST BYTE CNT
     2741   01 00CBC    68400CC1              BCR,4    T1ST46C           B: BYTE CNT = 0
     2742   01 00CBD    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT ERROR MSG.
     2743   01 00CBE    6AF00535              ERROR    4611              ** 4611 **
            01 00CBF    00001203 A
     2744   01 00CC0    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2745   01 00CC1    6AF028FC     T1ST46C  BAL,15   :ERRORT           TEST IL,TE, NOT UE
     2746   01 00CC2    00005FCC              DATA     BA(TSEQ032A)
     2747   01 00CC3    68000CC7              B        T1ST46D           B: STATUS OK
     2748   01 00CC4    6AF00535              ERROR    4612              ** 4612 **
            01 00CC5    00001204 A
     2749   01 00CC6    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2750   01 00CC7    33001941     T1ST46D  MTW,0    TESTINDX+1        TEST CNT
     2751   01 00CC8    68300CCC              BEZ      T1ST46F           B: NO ERRORS
     2752   01 00CC9    EAF0021D     T1ST46E  SENSE    T1ST46A           SSW1 => LOOP ON ERROR
            01 00CCA    2E000CCA
            01 00CCB    68000CAA
     2753   01 00CCC    33100007 A   T1ST46F  MTW,1    7                 INCR BYTE CNT
     2754   01 00CCD    65600CAA              BIR,6    T1ST46A           LOOP
     2755   01 00CCE    33100007 A            MTW,1    7                 INCR BYTE CNT
     2756   01 00CCF    21700402 A            CI,7     1026
     2757   01 00CD0    69100CAA              BL       T1ST46A           LOOP BYTE CNT = 1025
     2758   01 00CD1    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   57
A    2760                            * T1ST47  TEST MODE 2 - CHECK-WRITE ORDER CYLINDER BOUNDRY TEST. A CHECK
     2761                            * ------  ---- ---- - - ----------- ----- -------- ------- ----  -WRITE
     2762                            * ORDER WITH A BYTE CNT OF 1025 IS ISSUED STARTING AT HD 19 SECT 5. THE
     2763                            * CHECK-WRITE OPERATION WILL TERMINATE AFTER ONE SECTOR AND SECTOR
     2764                            * UNAVAILABLE WILL BE REPORTED.

     2766   01 00CD2    6AF0179E     T1ST47   BAL,15   TST1TM2           ENTER TEST MODE 2
     2767   01 00CD3    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2768   01 00CD4    6AF0170F              BAL,15   TST1DATA          SPREAD PATTERN IN OUTPUT BUFFER
     2769   01 00CD5    22801305 A   T1ST:47  LI,8     X'1305'
     2770   01 00CD6    B5802BAA              STW,8    *IOBF1            STORE SEEKADR
     2771   01 00CD7    22000C58              LI,0     DA(CDWTS47)       IOCD ADR
     2772   01 00CD8    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/CHECK-WRITE)
     2773   01 00CD9    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     2774   01 00CDA    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2775   01 00CDB    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2776   01 00CDC    68000CE0              B        T1ST47A           B: CONTR READY
     2777   01 00CDD    6AF00535              ERROR    4710              ** 4710 **
            01 00CDE    00001266 A
     2778   01 00CDF    68000CE5              B        T1ST47B           B: TEST SENSE SW.
     2779   01 00CE0    6AF028FC     T1ST47A  BAL,15   :ERRORT           TEST UE, SECT UNAVAIL, BYTE CNT = 0
     2780   01 00CE1    00005FE0              DATA     BA(TSEQ034A)
     2781   01 00CE2    E80004EA              B        *SEQRETN          EXIT
     2782   01 00CE3    6AF00535              ERROR    4711              ** 4211 **
            01 00CE4    00001267 A
     2783   01 00CE5    EAF0021D     T1ST47B  SENSE    T1ST:47           SSW1 => LOOP ON ERROR
            01 00CE6    2E000CE6
            01 00CE7    68000CD5
     2784   01 00CE8    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   58
A    2786                            * T1ST48  TEST MODE 2 - CHECK-WRITE TRANSMISSION ERROR TEST.    SEEK/CC/
     2787                            * ------  ---- ---- - - ----------- ------------ ----- ----  CHECK-WRITE
     2788                            * ORDER SEQUENCES WITH BYTE CNTS OF 2048 ARE ISSUED. THE CHECK-WRITE
     2789                            * DATA CONSISTS OF BYTE VALUES STARTING          AT 224 (X'EO'), WITH
     2790                            * EACH SUCCESSIVE BYTE = BYTE(N) + 1. DURING THE FIRST 8 PASSES
     2791                            * ONE BIT IN BYTE 32 (FF) IS SEQUENCIALLY DROPPED STARTING WITH BIT 0,
     2792                            * ENDING WITH BIT 7. DURING THE 2ND 8 PASSES ONE BIT IN BYTE 33 (00) IS
     2793                            * SEQUENCILLY PICKED-UP STARTING WITH BIT 0, ENDING WITH BIT 7. THE TEST
     2794                            * VERIFIES THAT A SINGLE BIT FAILURE IN A SECTOR IS DETECTED AND
     2795                            * REPORTED AS TE AND THAT THE OPERATION TERMINATES AFTER THE FIRST
     2796                            * SECTOR. THE REMAINING BYTE CNT MUST BE => 1000.

     2798   01 00CE9    6AF0179E     T1ST48   BAL,15   TST1TM2           ENTER TEST MODE 2
     2799   01 00CEA    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2800   01 00CEB    22900000 A            LI,9     0
     2801   01 00CEC    35901940              STW,9    TESTINDX          SET FLAG
     2802   01 00CED    224FFFF8 A            LI,4     -8                INDEX
     2803   01 00CEE    228012D4 A            LI,8     4820              INITIAL ERROR NUMBER
     2804   01 00CEF    35800D0A              STW,8    T1ST48D
     2805   01 00CF0    2250001F A            LI,5     31                PATTERN INDEX (32ND BYTE)
     2806   01 00CF1    32902BEC              LW,9     =X'FFFFFF7E'      FAILURE PATTERN
     2807   01 00CF2    22000000 A   T1ST48A  LI,0     0
     2808   01 00CF3    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT
     2809   01 00CF4    B5002BAA              STW,0    *IOBF1            STORE SEEK ADR
     2810   01 00CF5    6AF0170F              BAL,15   TST1DATA          SPREAD PATTERN IN OUTPUT BUFFER
     2811   01 00CF6    F59A2BAB              STB,9    *IOBUF,5          INDUCE FAILURE
     2812   01 00CF7    22000C5A              LI,0     DA(CDWTS48)       IOCD ADR
     2813   01 00CF8    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/CHECK-WRITE)
     2814   01 00CF9    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     2815   01 00CFA    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2816   01 00CFB    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2817   01 00CFC    68000D00              B        T1ST48B           B: CONTR READY
     2818   01 00CFD    6AF00535              ERROR    4810              ** 4510 **
            01 00CFE    000012CA A
     2819   01 00CFF    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2820   01 00D00    4BD02BE3     T1ST48B  AND,13   =X'0000FFFF'      BYTE CNT
     2821   01 00D01    21D003E8 A            CI,13    1000              TEST BYTE CNT
     2822   01 00D02    68100D06              BGE      T1ST48C           B: REMAINING BYTE COUNT AT LEAST
     2823   01 00D03    6AF00535              ERROR    4811              ** 4811 **
            01 00D04    000012CB A
     2824   01 00D05    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2825   01 00D06    6AF028FC     T1ST48C  BAL,15   :ERRORT           TEST TE, NO UE, NO IL,
     2826   01 00D07    00005FF8              DATA     BA(TSEQ039)
     2827   01 00D08    68000D0C              B        T1ST48E           B: STATUS OK
     2828   01 00D09    EAF017CF              BAL,15   *:ERROR
     2829   01 00D0A    00000000 A   T1ST48D  DATA     0                 ** 4820 - 4827 **
     2830                            *                                   ** 4830 - 4837 **
     2831   01 00D0B    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2832   01 00D0C    22000C2D     T1ST48E  LI,0     DA(CDWTS17A)      IOCD ADR
     2833   01 00D0D    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2834   01 00D0E    6AF0281C              BAL,15   :IOREADY          READY TEST
     2835   01 00D0F    68000D13              B        T1ST48F           B: CONTROLLER READY
     2836   01 00D10    6AF00535              ERROR    4812              ** 4812 **
            01 00D11    000012CC A
     2837   01 00D12    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2838   01 00D13    B2802BAA     T1ST48F  LW,8    *IOBF1             OBSERVED SENSE DATA
     2839   01 00D14    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     2840   01 00D15    21800001 A            CI,8     X'0001'           COMPARE TO EXPECTED ADR
     2841   01 00D16    68300D1C              BE       T1ST48G           B: ADR COMPARES
     2842   01 00D17    22D00001 A            LI,13    X'0001'           EXPECTED SEEK ADR
     2843   01 00D18    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2844   01 00D19    6AF00535              ERROR    4813              ** 4813 **
            01 00D1A    000012CD A
     2845   01 00D1B    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2846   01 00D1C    B2D42BAA     T1ST48G  LW,13     *IOBF1,2         FETCH 3RD WORD OF INPUT BUFFER
     2847   01 00D1D    4BD02BE7              AND,13   =X'FC000000'      BITS 0-5 ONLY
     2848   01 00D1E    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2849   01 00D1F    6AF028FC              BAL,15   :ERRORT           TEST SENSE STATUS (BIT 1 TRUE-CHECK
     2850   01 00D20    00006008              DATA     BA(TSEQ042)                            WRITE ERROR)
     2851   01 00D21    68000D25              B        T1ST48H           B: NO ERRORS
     2852   01 00D22    6AF00535              ERROR    4814              ** 4814 **
            01 00D23    000012CE A
     2853   01 00D24    33101941              MTW,1    TESTINDX+1
     2854   01 00D25    33001941     T1ST48H  MTW,0    TESTINDX+1        TEST CNT
     2855   01 00D26    68300D2A              BEZ      T1ST48I           B: NO ERRORS
     2856   01 00D27    EAF0021D              SENSE    T1ST48A           SSW1 => LOOP ON ERROR
            01 00D28    2E000D28
            01 00D29    68000CF2
     2857   01 00D2A    33001940     T1ST48I  MTW,0    TESTINDX          TEST FLAG
     2858   01 00D2B    69300D36              BNEZ     T1ST48J           B: 2ND 8 PASSES
     2859   01 00D2C    33100D0A              MTW,1    T1ST48D           INCR ERROR NO
     2860   01 00D2D    2590027F A            SCS,9    -1                SHIFT FAILURE PATTERN
     2861   01 00D2E    65400CF2              BIR,4    T1ST48A           LOOP
     2862   01 00D2F    224FFFF8 A            LI,4     -8                INDEX
     2863   01 00D30    22900080 A            LI,9     X'80'             FAILURE PATTERN
     2864   01 00D31    33101940              MTW,1    TESTINDX          SET FLAG
     2865   01 00D32    228012DE A            LI,8     4830              INITIAL ERROR NUMBER
     2866   01 00D33    35800D0A              STW,8    T1ST48D
     2867   01 00D34    33100005 A            MTW,1    5                 INCR. PATTERN INDEX (33RD BYTE)
     2868   01 00D35    68000CF2              B        T1ST48A           LOOP
     2869   01 00D36    33100D0A     T1ST48J  MTW,1    T1ST48D           INCR ERROR NUMBER
     2870   01 00D37    2590027F A            SCS,9    -1                SHIFT FAILURE PATTERN
     2871   01 00D38    65400CF2              BIR,4    T1ST48A           LOOP
     2872   01 00D39    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   59
A    2874                            * T1ST49  TEST MODE 2 - HALT ON TRANSMISSION ERROR TEST.
     2875                            * ------  ---- ---- - - ---- -- ------------ ----- -----
     2876                            * SEEK/CC/WRITE ORDER SEQUENCES WITH BYTE CNTS OF 1020 ARE ISSUED TO
     2877                            * TEST SETTING OF UE, IL AND IOP/HALT.
     2878                            * SEEK/CC/CHECK-WRITE ORDER IS ISSUED TO CHECK SETTING OF TE.

     2880   01 00D3A    6AF0179E     T1ST49   BAL,15   TST1TM2           ENTER TEST MODE 2
     2881   01 00D3B    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2882   01 00D3C    6AF0170F              BAL,15   TST1DATA          SPREAD PATTERN
     2883   01 00D3D    22000000 A            LI,0     0                 ZERO A LOC IN THE IO BUFFER
     2884   01 00D3E    224000FE A            LI,4     254
     2885   01 00D3F    B5082BAB              STW,0    *IOBUF,4            TO CAUSE TE
     2886   01 00D40    B5002BAA              STW,0    *IOBF1            ZERO SEEK ADR
     2887   01 00D41    22400003 A            LI,4     3
     2888   01 00D42    2280132F A            LI,8     4911              INITIALIZE
     2889   01 00D43    35800D53              STW,8    T1ST49C             ERROR NO.
     2890   01 00D44    32880D5E     T1ST49A  LW,8     T1ST49F-1,4       FETCH BA(TSEQ)
     2891   01 00D45    35800D50              STW,8    T1ST49B+1
     2892   01 00D46    32080D5B              LW,0     T1ST49E-1,4       FETCH DA(CDWT49)
     2893   01 00D47    6AF027E6              BAL,15   :IOEXEC           START IO
     2894   01 00D48    22800BB8 A            LI,8     3000              DELAY CONSTANT
     2895   01 00D49    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2896   01 00D4A    6AF0281F              BAL,15   :IOREADY+3        READY TEST
     2897   01 00D4B    68000D4F              B        T1ST49B           B: CONTR READY
     2898   01 00D4C    6AF00535              ERROR    4910              ** 4910 **
            01 00D4D    0000132E A
     2899   01 00D4E    68000D58              B        T1ST49D           B: TEST SS
     2900   01 00D4F    6AF028FC     T1ST49B  BAL,15   :ERRORT           TEST STATUS
     2901   01 00D50    00006080              DATA     BA(TSEQ060A)      BA(TSEQ060A,B,C)
     2902   01 00D51    68000D55              B        T1ST49C+2         B: STATUS OK
     2903   01 00D52    EAF017CF              BAL,15   *:ERROR
     2904   01 00D53    0000132F A   T1ST49C  DATA     4911              ** 4911,4912,4913 **
     2905   01 00D54    68000D58              B        T1ST49D           B: TEST SS
     2906   01 00D55    33100D53              MTW,1    T1ST49C           INCR ERROR NO.
     2907   01 00D56    64400D44              BDR,4    T1ST49A           LOOP
     2908   01 00D57    68000D5B              B        T1ST49D+3         DONE
     2909   01 00D58    EAF0021D     T1ST49D  SENSE    T1ST49A           SSW1 => LOOP ON ERROR
            01 00D59    2E000D59
            01 00D5A    68000D44
     2910   01 00D5B    E80004EA              B        *SEQRETN          EXIT

     2912   01 00D5C    00000C60     T1ST49E  DATA     DA(CDWTS49C)
     2913   01 00D5D    00000C5E              DATA     DA(CDWTS49B)
     2914   01 00D5E    00000C5C              DATA     DA(CDWTS49A)

     2916   01 00D5F    00006088     T1ST49F  DATA     BA(TSEQ060C)
     2917   01 00D60    00006084              DATA     BA(TSEQ060B)
     2918   01 00D61    00006080              DATA     BA(TSEQ060A)
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   60
A    2920                            * T1ST50  TEST MODE 3 (PARITY) - READ ORDER 12 PARITY TEST. A SENSE/CC/
     2921                            * ------  ---- ---- - -------- -- --- ----- -- ------ ----  READ12 ORDER
     2922                            * SEQUENCE IS ISSUED WITH A READ BYTE CNT OF 2048. THE CONTROLLER WILL
     2923                            * GENERATE A PARITY ERROR. THE TEST VERIFIES THE STATUS (TE AND NOT UE)
     2924                            * AND VERIFIES WITH A SENSE ORDER THAT THE READ ORDER TERMINATED AFTER
     2925                            * 1 SECTOR. THE REMAINING BYTE CNT MUST BE = 1024.

     2927   01 00D62    6AF017A0     T1ST50   BAL,15   TST1TM3           ENTER TEST MODE 3
     2928   01 00D63    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2929   01 00D64    22000000 A   T1ST:50  LI,0     0
     2930   01 00D65    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT
     2931   01 00D66    B5002BAA              STW,0    *IOBF1            STORE SEEK ADR
     2932   01 00D67    22000C62              LI,0     DA(CDWTS50)       IOCD ADR
     2933   01 00D68    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ12)
     2934   01 00D69    22800BB8 A            LI,8     3000              LOAD DELAY CONSTANT
     2935   01 00D6A    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2936   01 00D6B    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2937   01 00D6C    68000D70              B        T1ST50A           B: CONTR READY
     2938   01 00D6D    6AF00535              ERROR    5010              ** 5010 **
            01 00D6E    00001392 A
     2939   01 00D6F    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2940   01 00D70    4BD02BE3     T1ST50A  AND,13   =X'0000FFFF'      BYTE CNT
     2941   01 00D71    21D00400 A            CI,13    1024              TEST BYTE CNT
     2942   01 00D72    68300D76              BE       T1ST50B           B: REMAINING BYTE CNT = 1024
     2943   01 00D73    6AF00535              ERROR    5011              ** 5011 **
            01 00D74    00001393 A
     2944   01 00D75    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2945   01 00D76    6AF028FC     T1ST50B  BAL,15   :ERRORT           TEST TE, NO UE, NO IL
     2946   01 00D77    00005FF8              DATA     BA(TSEQ039)
     2947   01 00D78    68000D7C              B        T1ST50C           B: STATUS OK
     2948   01 00D79    6AF00535              ERROR    5012              ** 5012 **
            01 00D7A    00001394 A
     2949   01 00D7B    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2950   01 00D7C    22000C2D     T1ST50C  LI,0     DA(CDWTS17A)      IOCD ADR
     2951   01 00D7D    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     2952   01 00D7E    6AF0281C              BAL,15   :IOREADY          READY TEST
     2953   01 00D7F    68000D83              B        T1ST50D           B: CONTR READY
     2954   01 00D80    6AF00535              ERROR    5013              ** 5013 **
            01 00D81    00001395 A
     2955   01 00D82    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2956   01 00D83    B2D42BAA     T1ST50D  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     2957   01 00D84    4BD02BE7              AND,13   =X'FC000000'      BITS 0-5  ONLY
     2958   01 00D85    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     2959   01 00D86    6AF028FC              BAL,15   :ERRORT           TEST SENSE STATUS (BIT 0 TRUE-DATA
     2960   01 00D87    00005FFC              DATA     BA(TSEQ040)                                 PARITY)
     2961   01 00D88    68000D8C              B        T1ST50E           B: NO ERRORS
     2962   01 00D89    6AF00535              ERROR    5014              ** 5014 **
            01 00D8A    00001396 A
     2963   01 00D8B    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2964   01 00D8C    B2802BAA     T1ST50E  LW,8     *IOBF1            OBSERVED SENSE DATA
     2965   01 00D8D    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     2966   01 00D8E    21800001 A            CI,8     X'0001'           COMPARE EXPECTED ADR
     2967   01 00D8F    68300D95              BE       T1ST50F           B: ADR COMPARES
     2968   01 00D90    22D00001 A            LI,13    X'0001'           EXPECTED SEEK ADR
     2969   01 00D91    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     2970   01 00D92    6AF00535              ERROR    5015              ** 5015 **
            01 00D93    00001397 A
     2971   01 00D94    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2972   01 00D95    33001941     T1ST50F  MTW,0    TESTINDX+1        TEST CNT
     2973   01 00D96    E83004EA              BEZ      *SEQRETN          EXIT
     2974   01 00D97    EAF0021D              SENSE    T1ST:50           SSW1 => LOOP ON ERROR
            01 00D98    2E000D98
            01 00D99    68000D64
     2975   01 00D9A    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   61
A    2977                            * T1ST51  TEST MODE 3 (PARITY) - READ ORDER 02 PARITY TEST. A SENSE/CC/
     2978                            * ------  ---- ---- - -------- - ---- ----- -- ------ ----  READ02 ORDER
     2979                            * SEQENSE IS ISSUED WITH A READ BYTE CNT OF 3072 (3 DATA-CHAIN
     2980                            * OPERATIONS). THE TEST VERIFIES THAT READING CONTINUES UNTIL THE BYTE
     2981                            * (NT = ZERO. THE EXPECTED STATUS IS TE, NO UE.

     2983   01 00D9B    6AF017A0     T1ST51   BAL,15   TST1TM3           ENTER TEST MODE 3
     2984   01 00D9C    E80004EA              B       *SEQRETN           B:  TEST MODE OPTION NOT AVAILABLE
     2985   01 00D9D    22000000 A   T1ST:51  LI,0     0
     2986   01 00D9E    35001941              STW,0    TESTINDX+1        CLEAR ERROR CNT
     2987   01 00D9F    B5002BAA              STW,0    *IOBF1            STORE SEEK ADR
     2988   01 00DA0    22000C64              LI,0     DA(CDWTS51)       IOCD  ADR
     2989   01 00DA1    35002AB8              STW,0    :SAVCOM1          SAVE COMMAND ADR
     2990   01 00DA2    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ12)
     2991   01 00DA3    2280A000 A            LI,8     X'A000'           DELAY CONSTANT
     2992   01 00DA4    35802832              STW,8    :IORDYDL          STORE IN S.R.
     2993   01 00DA5    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     2994   01 00DA6    68000DAA              B        T1ST51A           B:CONTR READY
     2995   01 00DA7    6AF00535              ERROR    5110              ** 5110 **
            01 00DA8    000013F6 A
     2996   01 00DA9    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     2997   01 00DAA    6AF028FC     T1ST51A  BAL,15   :ERRORT           TEST TE, NO UE, BYTE CNT = 0
     2998   01 00DAB    00006000              DATA     BA(TSEQ041)
     2999   01 00DAC    68000DB0              B        T1ST51B           B: STATUS OK
     3000   01 00DAD    6AF00535              ERROR    5111              ** 5111 **
            01 00DAE    000013F7 A
     3001   01 00DAF    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     3002   01 00DB0    22000C2D     T1ST51B  LI,0     DA(CDWTS17A)      IOCD ADR
     3003   01 00DB1    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     3004   01 00DB2    6AF0281C              BAL,15   :IOREADY          READY TEST
     3005   01 00DB3    68000DB7              B        T1ST51C           B: CONTR READY
     3006   01 00DB4    6AF00535              ERROR    5112              ** 5112 **
            01 00DB5    000013F8 A
     3007   01 00DB6    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     3008   01 00DB7    B2802BAA     T1ST51C  LW,8     *IOBF1            OBSERVED SENSE DATA
     3009   01 00DB8    4B802BE3              AND,8    =X'0000FFFF'      REMOVE CYL ADR
     3010   01 00DB9    21800103 A            CI,8     X'0103'
     3011   01 00DBA    68300DC0              BE       T1ST51D           B: ADR COMPARES
     3012   01 00DBB    22D00102 A            LI,13    X'0102'           EXPECTED SEEK ADR
     3013   01 00DBC    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     3014   01 00DBD    6AF00535              ERROR    5113              ** 5113 **
            01 00DBE    000013F9 A
     3015   01 00DBF    33101941              MTW,1    TESTINDX+1        INCR ERROR CNT
     3016   01 00DC0    33001941     T1ST51D  MTW,0    TESTINDX+1        TEST CNT
     3017   01 00DC1    E83004EA              BEZ      *SEQRETN          EXIT
     3018   01 00DC2    EAF0021D              SENSE    T1ST:50           SSW1 => LOOP ON ERROR
            01 00DC3    2E000DC3
            01 00DC4    68000D64
     3019   01 00DC5    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   62
A    3021                            * T1ST52  NORMAL MODE - RESTORE ORDER TEST. A RESTORE ORDER IS ISSUED
     3022                            * ------  ------ ---- - ------- ----- ----  TO THE STORAGE UNIT. THE
     3023                            * TEST VERIFIES THAT THE CONTR AND DEVICE ARE READY AND THAT POSITIONING
     3024                            * IS COMPLETE AND THAT NO TIME OUT ERROR HAS OCCURRED.

     3026   01 00DC6    6AF017B2     T1ST52   BAL,15   TST1TM0           ENTER NORMAL MODE
     3027   01 00DC7    22000C68              LI,0     DA(CDWTS52)       IOCD ADR
     3028   01 00DC8    6AF027E6              BAL,15   :IOEXEC           START IO (RESTORE)
     3029   01 00DC9    22801388 A            LI,8     5000              STORE
     3030   01 00DCA    35802832              STW,8    :IORDYDL            DELAY CONSTANT
     3031   01 00DCB    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3032   01 00DCC    68000DD0              B        T1ST52A           B: CONTR READY
     3033   01 00DCD    6AF00535              ERROR    5210              ** 5210 **
            01 00DCE    0000145A A
     3034   01 00DCF    68000DDA              B        T1ST52C           B: TEST SENSE SW
     3035   01 00DD0    6AF01751     T1ST52A  BAL,15   TST1OCYL          TEST ON CYL BIT
     3036   01 00DD1    68000DD5              B        T1ST52B           B: ON CYL
     3037   01 00DD2    6AF00535              ERROR    5211              ** 5211 **
            01 00DD3    0000145B A
     3038   01 00DD4    68000DDA              B        T1ST52C           B: TEST SENSE SW
     3039   01 00DD5    6AF028FC     T1ST52B  BAL,15   :ERRORT           TEST CONTR AND DEV READY, NO UE
     3040   01 00DD6    0000600C              DATA     BA(TSEQ043)       ON CYL, NO SEEK TIME OUT
     3041   01 00DD7    E80004EA              B        *SEQRETN          EXIT: NO ERRORS
     3042   01 00DD8    6AF00535              ERROR    5212              ** 5212 **
            01 00DD9    0000145C A
     3043   01 00DDA    EAF0021D     T1ST52C  SENSE    T1ST52+1          SSW1 => LOOP ON ERROR
            01 00DDB    2E000DDB
            01 00DDC    68000DC7
     3044   01 00DDD    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   63
A    3046                            * T1ST53  NORMAL MODE - SEEK ORDER TEST. A RESTORE ORDER IS ISSUED TO
     3047                            * ------  ------ ---- - ---- ----- ----  THE STORAGE UNIT. THE TEST
     3048                            * PROCEEDS TO ISSUE SEEK ORDERS FOR ALL SECTORS ON CYLINDER 0. NO HEAD
     3049                            * MOTION IS INVOLVED EXCEPT POSSIBLY DURING THE RESTORE ORDER. THE TEST
     3050                            * VERIFIES THAT SEEK ORDERS CAN BE COMPLETED WITHOUT ERRORS.

     3052   01 00DDE    6AF017B2     T1ST53   BAL,15   TST1TM0           ENTER NORMAL MODE
     3053   01 00DDF    6AF0173D              BAL,15   TST1RST           ISSUE RESTORE ORDER
     3054   01 00DE0    22400000 A            LI,4     0                 STARTING SEEK ADR
     3055   01 00DE1    225FFF88 A            LI,5     -120              INDEX
     3056   01 00DE2    32D00004 A   T1ST53A  LW,13    4                 FETCH ABSOLUTE SEEK ADR
     3057   01 00DE3    6AF025FB              BAL,15   SEEKGEN           GENERATE SEEK ADR
     3058   01 00DE4    B5D02BAB              STW,13   *IOBUF            STORE IN OUTPUT BUFFER
     3059   01 00DE5    22000C2C              LI,0     DA(CDWTS17)       IOCD ADR
     3060   01 00DE6    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK)
     3061   01 00DE7    6AF0281C              BAL,15   :IOREADY          READY TEST
     3062   01 00DE8    68000DEC              B        T1ST53B           B: CONTROLLER READY
     3063   01 00DE9    6AF00535              ERROR    5310              ** 5310 **
            01 00DEA    000014BE A
     3064   01 00DEB    68000DF8              B        T1ST53D           B: TEST SENSE SW.
     3065   01 00DEC    6AF01751     T1ST53B  BAL,15   TST1OCYL          TEST ON CYL BIT
     3066   01 00DED    68000DF3              B        T1ST53C           B: ON CYL
     3067   01 00DEE    B2D02BAB              LW,13    *IOBUF            FETCH SEEK ADR
     3068   01 00DEF    6AF026A4              BAL,15   SEEKMSG           PRINT CURRENT SEEK ADR
     3069   01 00DF0    6AF00535              ERROR    5311              ** 5311 **
            01 00DF1    000014BF A
     3070   01 00DF2    68000DF8              B        T1ST53D           B: TEST SENSE SW
     3071   01 00DF3    6AF028FC     T1ST53C  BAL,15   :ERRORT           TEST NO UE, ON CYL, BYTE CNT = 0
     3072   01 00DF4    00005F84              DATA     BA(TSEQ020)
     3073   01 00DF5    68000DFB              B        T1ST53E           B: STATUS OK
     3074   01 00DF6    6AF00535              ERROR    5312              ** 5312 **
            01 00DF7    000014C0 A
     3075   01 00DF8    EAF0021D     T1ST53D  SENSE    T1ST53A           SSW1 => LOOP ON ERROR
            01 00DF9    2E000DF9
            01 00DFA    68000DE2
     3076   01 00DFB    33100004 A   T1ST53E  MTW,1    4                 INCR ABSOLUTE SEEK ADR
     3077   01 00DFC    65500DE2              BIR,5    T1ST53A           LOOP: NEXT SECTOR
     3078   01 00DFD    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   64
A    3080                            * T1ST54  NORMAL MODE - RELEASE ORDER TEST. A RELEASE ORDER
     3081                            * ------  ----------------------------------     IS ISSUED. THE TEST
     3082                            * VERIFIES THE STATUS AFTER THE RELEASE.

     3084   01 00DFE    6AF017B2     T1ST54   BAL,15   TST1TM0           ENTER NORMAL MODE
     3085   01 00DFF    33002BA5              MTW,0    #RLSOPT
     3086   01 00E00    E83004EA              BEZ     *SEQRETN           B:  RELEASE OPTION NOT AVAILABLE
     3087   01 00E01    22000C30     T1ST54A  LI,0     DA(CDWTS24)       IOCD ADR
     3088   01 00E02    6AF027E6              BAL,15   :IOEXEC           START IO (RELEASE)
     3089   01 00E03    6AF0281C              BAL,15   :IOREADY          READY TEST
     3090   01 00E04    68000E08              B        T1ST54B           B: CONTR READY
     3091   01 00E05    6AF00535              ERROR    5410              ** 5410 **
            01 00E06    00001522 A
     3092   01 00E07    68000E0D              B        T1ST54E           B: TEST SENSE SW.
     3093   01 00E08    6AF028FC     T1ST54B  BAL,15   :ERRORT           TEST NOT UE, BYTE CNT = 1
     3094   01 00E09    00005FB8              DATA     BA(TSEQ029)
     3095   01 00E0A    E80004EA              B        *SEQRETN          EXIT
     3096   01 00E0B    6AF00535              ERROR    5411              ** 5411 **
            01 00E0C    00001523 A
     3097   01 00E0D    EAF0021D     T1ST54E  SENSE    T1ST54A           SSW1 => LOOP ON ERROR
            01 00E0E    2E000E0E
            01 00E0F    68000E01
     3098   01 00E10    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   65
A    3100                            * T1ST55   HEADER READ - FAILURE ISOLATION TEST. A RESTORE ORDER IS
     3101                            * ------   ------ ---- - ------- --------- ----  ISSUED TO POSSITION THE
     3102                            * HEADS AT CYLINDER 0. SEEK/CC/HEADER-READ SEQUENCES WILL BE ISSUED FOR
     3103                            * ALL 120 SECTORS OF CYLINDER 0. NO ERRORS WILL BE REPORTED UNTIL ALL
     3104                            * OPERATIONS ARE COMPLETED. A SUMMARY OF ALL ERRORS WILL BE PRINTED.
     3105                            * THE TEST WILL PROCEED TO LOOP ON THE FIRST FAILURE WITH IMMEDIATE
     3106                            * ERROR PRINT-OUTS. INFORMATION OTHER THAN ZEROES IN THE FLAW BYTE OR
     3107                            * ALTERNATE ADR BYTE WILL NOT BE CONSIDERED AN ERROR.

     3109   01 00E11    22400EE7     T1ST55   LI,4     TST1HDRO
     3110   01 00E12    354028A2              STW,4    :COMBFRB          INITIALIZE
     3111   01 00E13    22400EE5              LI,4     TST1HDRE
     3112   01 00E14    354028A1              STW,4    :COMBFRA            COMPARE ROUTINE
     3113   01 00E15    352028A0              STW,2    :COMWCNT
     3114   01 00E16    22000000 A            LI,0     0                     EXPECTED: T1STHDRE
     3115   01 00E17    350028A3              STW,0    :COMFLAG              OBSERVED: T1STHDRO
     3116   01 00E18    224FFF38 A            LI,4     -200
     3117   01 00E19    32502BAB              LW,5     IOBUF
     3118   01 00E1A    205000C8 A            AI,5     200               CLEAR
     3119   01 00E1B    B5080005 A            STW,0    *5,4
     3120   01 00E1C    65400E1B              BIR,4    %-1                 SUMMARY AREA
     3121   01 00E1D    6AF017B2              BAL,15   TST1TM0           ENTER NORMAL MODE
     3122   01 00E1E    6AF0173D     T1ST55A  BAL,15   TST1RST           ISSUE RESTORE ORDER
     3123   01 00E1F    224FFF88 A   T1ST55B  LI,4     -120
     3124   01 00E20    6AF00E5E              BAL,15   T1ST55SA          COMPUTE SEEK ADR
     3125   01 00E21    22000C6B              LI,0     DA(CDWTS55)       IOCD ADR
     3126   01 00E22    6AF027E6              BAL,15  :IOEXEC            START IO (SEEK/CC/HDR READ)
     3127   01 00E23    22820000 A            LI,8     X'20000'          STORE
     3128   01 00E24    35802832              STW,8    :IORDYDL            DELAY CONST
     3129   01 00E25    6AF0281F              BAL,15   :IOREADY+3        READY TEST
     3130   01 00E26    6AF00E69              BAL,15   T1ST55T0          B: CONTR READY - STORE RESULTS
     3131   01 00E27    6AF00E6C              BAL,15   T1ST55T1          B: CONTR NOT READY - STORE RESULTS
     3132   01 00E28    65400E20              BIR,4    T1ST55B+1         B: NEXT HEADR
     3133   01 00E29    32502BAB              LW,5     IOBUF
     3134   01 00E2A    205000C8 A            AI,5     200
     3135   01 00E2B    224FFF38 A            LI,4     -200              INDEX
     3136   01 00E2C    B3080005 A            MTW,0    *5,4              TEST TABLE
     3137   01 00E2D    69300E30              BNEZ     T1ST55C           B: ERROR STORED IN TABLE
     3138   01 00E2E    65400E2C              BIR,4    %-2               LOOP
     3139   01 00E2F    E80004EA              B        *SEQRETN          EXIT - NO ERRORS

     3141   01 00E30    6AF00EB0     T1ST55C  BAL,15   T1ST55S           B: PRINT ERROR SUMMARY
     3142   01 00E31    224FFF88 A            LI,4     -120              INDEX
     3143   01 00E32    22000000 A   T1ST55D  LI,0     0
     3144   01 00E33    35001940              STW,0    TESTINDX          CLEAR ERROR CNT
     3145   01 00E34    6AF00E5E              BAL,15   T1ST55SA          COMPUTE SEEK ADR
     3146   01 00E35    22000C6B              LI,0     DA(CDWTS55)       IOCD ADR
     3147   01 00E36    6AF027E6              BAL,15   :IOEXEC           START IO
     3148   01 00E37    6AF0281F              BAL,15   :IOREADY+3        READY TEST(ALT)
     3149   01 00E38    68000E3C              B        T1ST55E           B: CONTR READY
     3150   01 00E39    6AF00535              ERROR    5510              ** 5510 **
            01 00E3A    00001586 A
     3151   01 00E3B    33101940              MTW,1    TESTINDX          INCR ERROR CNT

     3153   01 00E3C    6AF028FC     T1ST55E  BAL,15   :ERRORT           TEST NO UE, TE, VERIFICATION ERROR,
     3154   01 00E3D    00006010              DATA     BA(TSEQ044)         HDR PARITY, BYTE CNT = 0
     3155   01 00E3E    68000E47              B        T1ST55F           B: STATUS OK
     3156   01 00E3F    32C00EE5              LW,12    TST1HDRE          FETCH
     3157   01 00E40    32D00EE6              LW,13    TST1HDRE+1          EXPECTED HDR
     3158   01 00E41    25C00308 A            SCD,12   +8
     3159   01 00E42    35C0000D A            STW,12   13                SEEK ADR
     3160   01 00E43    6AF026A4              BAL,15   SEEKMSG           PRINT SEEKMSG
     3161   01 00E44    6AF00535              ERROR    5511              ** 5511 **
            01 00E45    00001587 A
     3162   01 00E46    33101940              MTW,1    TESTINDX          INCR ERROR CNT

     3164   01 00E47    32C00EE5     T1ST55F  LW,12    TST1HDRE          EXPECTED HEADER (WORD 1)
     3165   01 00E48    32D02BED              LW,13   =X'00FFFFFF'         MASK
     3166   01 00E49    45C00EE7              CS,12    TST1HDRO          COMPARE WORD 1 OF HDR
     3167   01 00E4A    69300E52              BNE      T1ST55G           B: COMPARE ERROR
     3168   01 00E4B    32C00EE6              LW,12    TST1HDRE+1        EXPECTED HEADER (WORD 2)
     3169   01 00E4C    32D02BEE              LW,13   =X'FF0000FF'         MASK
     3170   01 00E4D    45C00EE8              CS,12    TST1HDRO+1        COMPARE WORD 2 OF HDR
     3171   01 00E4E    68300E57              BE       T1ST55H           B: HEADER DATA OK
     3172   01 00E4F    49C02BEF              OR,12    =X'000000FF'      ALL ONES IN BYTE 7
     3173   01 00E50    45C00EE8              CS,12    TST1HDRO+1        COMPARE AGAIN
     3174   01 00E51    68300E57              BE       T1ST55H           B: HEADER DATA OK

     3176   01 00E52    6AF02845     T1ST55G  BAL,15   :COMPARE          PRINT COMPARE ERROR
     3177   01 00E53    68000E54              B        %+1
     3178   01 00E54    6AF00535              ERROR    5512              ** 5512 **
            01 00E55    00001588 A
     3179   01 00E56    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     3180   01 00E57    33001940     T1ST55H  MTW,0    TESTINDX          TEST CNT
     3181   01 00E58    68300E5C              BEZ      T1ST55I           B: NO ERRORS
     3182   01 00E59    EAF0021D              SENSE    T1ST55D           SSW1 => LOOP ON ERROR
            01 00E5A    2E000E5A
            01 00E5B    68000E32
     3183   01 00E5C    65400E32     T1ST55I  BIR,4    T1ST55D           LOOP
     3184   01 00E5D    E80004EA              B        *SEQRETN

     3186                            * COMPUTE SEEK ADR - R4 = - INDEX (-120 - -1);SEEK ADR IN TST1HDRE
     3187   01 00E5E    32900004 A   T1ST55SA LW,9     4                 NEG INDEX
     3188   01 00E5F    20900078 A            AI,9     120               CONVERT TO POSITIVE INDEX

     3190   01 00E60    33002BA8              MTW,0    #HDRTYPE          SKIP IF                         *H00
     3191   01 00E61    68300E63              BEZ      %+2                6 SECTORS PER TRACK            *H00
     3192   01 00E62    25900001 A            SLS,9    1                   ELSE EVEN SECTORS ONLY        *H00

     3194   01 00E63    22800000 A            LI,8     0
     3195   01 00E64    35800EE6              STW,8    TST1HDRE+1
     3196   01 00E65    36802B9D              DW,8     #ABSOLC1          DIVIDE BY # SECTORS / TRACK
     3197   01 00E66    35900EE5              STW,9    TST1HDRE          STORE HEAD ADR
     3198   01 00E67    75800EE6              STB,8    TST1HDRE+1        STORE SECTOR ADDR
     3199   01 00E68    E800000F A            B        *15               EXIT
     3200                            * SAVE STATUS FROM HEADER READ OPERATION

     3202   01 00E69    20F00001 A   T1ST55T0 AI,15    1                 INCR EXIT ADR
     3203   01 00E6A    22500000 A            LI,5     0                 FLAG:  CONTR READY AFTER READ
     3204   01 00E6B    68000E6D              B        %+2
     3205   01 00E6C    22500009 A   T1ST55T1 LI,5     9                 CONTR NOT READY
     3206   01 00E6D    72960EE5              LB,9     TST1HDRE,3        FETCH HEAD ADR
     3207   01 00E6E    2390000A A            MI,9     10                FULTIPLY BY 10
     3208   01 00E6F    30902BAB              AW,9     IOBUF             ADD BUFFER STARING ADR
     3209   01 00E70    72700EE6              LB,7     TST1HDRE+1        FETCH SECTOR ADR
     3210   01 00E71    728E0EE9              LB,8     T1ST55BM,7        LOAD BIT MASK
     3211   01 00E72    33000005 A            MTW,0    5                 TEST FLAG
     3212   01 00E73    68300E76              BEZ      T1ST55T2          B: STATUS VALID
     3213   01 00E74    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE (WORD 10)
     3214   01 00E75    E800000F A            B        *15               EXIT
     3215   01 00E76    22500000 A   T1ST55T2 LI,5     0                 WORD INDEX
     3216   01 00E77    32B02BF0              LW,11    =X'00FFFF00'      CYL COMPARE MASK
     3217   01 00E78    32A00EE5              LW,10    TST1HDRE          FETCH EXPECTED HEADER (CYL) BYTE 1
     3218   01 00E79    45A00EE7              CS,10    TST1HDRO          COMPARE TO OBS HEADER (CYL)   AND 2
     3219   01 00E7A    68300E7C              BE       %+2               B: CYLINDER (BYTE 1 AND 2) OK
     3220   01 00E7B    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE (WORD 1)
     3221   01 00E7C    33100005 A            MTW,1    5                 INCR INDEX
     3222   01 00E7D    72A60EE5              LB,10    TST1HDRE,3        FETCH HEAD ADR
     3223   01 00E7E    71A60EE7              CB,10    TST1HDRO,3        COMPARE TO OBSERVED HEAD ADR
     3224   01 00E7F    68300E81              BE       %+2               B: HEAD (BYTE 3) OK
     3225   01 00E80    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE (WORD 2)
     3226   01 00E81    33100005 A            MTW,1    5
     3227   01 00E82    32A00EE6              LW,10    TST1HDRE+1
     3228   01 00E83    32B02BF1              LW,11   =X'FF000000'
     3229   01 00E84    45A00EE8              CS,10    TST1HDRO+1        COMPARE EXPECTED WITH OBSERVED
     3230   01 00E85    68300E87              BE       %+2               B: SECTOR (BYT 4) OK
     3231   01 00E86    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE (WORD 3)
     3232   01 00E87    33100005 A            MTW,1    5
     3233   01 00E88    32A00EE6              LW,10    TST1HDRE+1        FETCH ALT ADR
     3234   01 00E89    32B02BED              LW,11    =X'00FFFFFF'      FETCH ALT ADR MASK
     3235   01 00E8A    45A00EE8              CS,10    TST1HDRO+1        COMPARE TO OBSERVED ALT ADR
     3236   01 00E8B    68300E93              BE       T1ST55T3          B: ALT.ADR (BYTE 5,6, AND 7) OK
     3237   01 00E8C    49A02BF0              OR,10    =X'00FFFF00'      ALL ONES IN BYTES 5 & 6
     3238   01 00E8D    45A00EE8              CS,10    TST1HDRO+1        COMPARE TO OBSERVED ALT ADR
     3239   01 00E8E    68300E93              BE       T1ST55T3          ALT.ADR OK
     3240   01 00E8F    49A02BEF              OR,10    =X'000000FF'      ALL ONES IN BYTES 5 - 7
     3241   01 00E90    45A00EE8              CS,10    TST1HDRO+1        COMPARE TO OBSERVED ALT ADR
     3242   01 00E91    68300E93              BE       T1ST55T3          ALT.ADR OK
     3243   01 00E92    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE (WORD 4)
     3244   01 00E93    33100005 A   T1ST55T3 MTW,1    5                 INCR INDEX
     3245   01 00E94    CEC003E2              TDV,12   *:DEVADDR         GET TDV STATUS
     3246   01 00E95    72C0000D A            LB,12    13                FETCH TDV STATUS BY
     3247   01 00E96    21C00001 A            CI,12    X'01'             TEST BIT 7 OF TDV
     3248   01 00E97    68400E99              BCR,4    %+2               B: BIT 7 = 0
     3249   01 00E98    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE WORD 5
     3250   01 00E99    33100005 A            MTW,1    5                 INCR INDEX
     3251   01 00E9A    21C00008 A            CI,12    X'08'             TEST BIT 4 OF TDV
     3252   01 00E9B    68400E9D              BCR,4    %+2               B: BIT 4 = 0
     3253   01 00E9C    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE WORD 6
     3254   01 00E9D    33100005 A            MTW,1    5                 INCR INDEX
     3255   01 00E9E    21C00040 A            CI,12    X'40'             TEST BIT 1 OF TDV
     3256   01 00E9F    68400EA1              BCR,4    %+2               B: BIT 1 = 0
     3257   01 00EA0    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE WORD 7
     3258   01 00EA1    33100005 A            MTW,1    5                 INCR INDEX
     3259   01 00EA2    CDC003E2              TIO,12   *:DEVADDR         GET TIO STATUS
     3260   01 00EA3    52C0000D A            LH,12    13                FETCH TIO STATUS HALFWORD
     3261   01 00EA4    31D02BE3              CW,13    =X'0000FFFF'      TEST BYTE CNT
     3262   01 00EA5    68400EA7              BCR,4    %+2               B: BYTE CNT = 0
     3263   01 00EA6    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE WORD 8
     3264   01 00EA7    33100005 A            MTW,1    5                 INCR INDEX
     3265   01 00EA8    21C00800 A            CI,12    X'0800'           TEST BIT 4 OF TIO
     3266   01 00EA9    E840000F A            BCR,4    *15               EXIT - BIT 4 = 0
     3267   01 00EAA    6AE00EAC              BAL,14   T1ST55TU          UPDATE TABLE WORD 9
     3268   01 00EAB    E800000F A            B        *15               EXIT

     3270   01 00EAC    B2DA0009 A   T1ST55TU LW,13    *9,5              FETCH WORD FROM TABLE
     3271   01 00EAD    49D00008 A            OR,13    8                 OR MASK
     3272   01 00EAE    B5DA0009 A            STW,13   *9,5              RESTORE WORD IN TABLE
     3273   01 00EAF    E800000E A            B        *14               EXIT

     3275   01 00EB0    35F00EEB     T1ST55S  STW,15   T1ST55SX          SAVE RETURN ADR
     3276   01 00EB1    6AF01D6E              BAL,15   DEVADRM           PRINT DEV.ADDRESS
     3277   01 00EB2    EAF0021C              BAL,15   *:PRINT           PRINT LINE 1
     3278   01 00EB3    00000EEC              DATA     T1ST55M1
     3279   01 00EB4    EAF0021C              BAL,15   *:PRINT           PRINT LINE 2
     3280   01 00EB5    00000EF7              DATA     T1ST55M2
     3281   01 00EB6    EAF0021C              BAL,15   *:PRINT           PRINT LINE 3
     3282   01 00EB7    00000F0B              DATA     T1ST55M3
     3283   01 00EB8    EAF0021C              BAL,15   *:PRINT           PRINT LINE 4
     3284   01 00EB9    00000F1F              DATA     T1ST55M4
     3285   01 00EBA    224FFFEC A            LI,4     -20               LINE INDEX
     3286   01 00EBB    6AE00EBE              BAL,14   T1ST55SP          PRINT A LINE IF ERRORS
     3287   01 00EBC    65400EBB              BIR,4    %-1               LOOP
     3288   01 00EBD    E8000EEB              B        *T1ST55SX         EXIT

     3290   01 00EBE    22900014 A   T1ST55SP LI,9     20
     3291   01 00EBF    30900004 A            AW,9     4                 COMPUTE HD ADR FROM INDEX
     3292   01 00EC0    3590000B A            STW,9    11
     3293   01 00EC1    23B0000A A            MI,11    10                COMPUTE BUFFER STARTING ADR + 10
     3294   01 00EC2    30B02BAB              AW,11    IOBUF
     3295   01 00EC3    20B0000A A            AI,11    10
     3296   01 00EC4    225FFFF6 A            LI,5     -10               WORD INDEX
     3297   01 00EC5    B30A000B A            MTW,0    *11,5             TEST WORD IN TABLE
     3298   01 00EC6    69300EC9              BNEZ     %+3               B: ERROR IN TABLE
     3299   01 00EC7    65500EC5              BIR,5    %-2
     3300   01 00EC8    E800000E A            B        *14               EXIT - NO FLAWS IN TABLE
     3301   01 00EC9    32C00009 A            LW,12    9                 HD ADR
     3302   01 00ECA    EAF00217              BAL,15   *:DECC            CONVERT HEAD ADR
     3303   01 00ECB    55F20F34              STH,15   T1ST55M5+1,1      STORE HDR ADR IN MSG
     3304   01 00ECC    225FFFF7 A            LI,5     -9                WORD INDEX
     3305   01 00ECD    33F0000B A            MTW,-1   11                BUFFER STARTING ADR + 9
     3306   01 00ECE    22800F35              LI,8     T1ST55M5+2        MSG AREA STARTING ADR
     3307   01 00ECF    B2A0000B A   T1ST55SQ LW,10    *11               MASK
     3308   01 00ED0    B2CA000B A            LW,12    *11,5             FETCH WORD FROM TABLE
     3309   01 00ED1    EAF00216              BAL,15   *:BINC            CONVERT TO BINARY
     3310   01 00ED2    32D0000F A            LW,13    15                FETCH FIRST 4 BYTES
     3311   01 00ED3    EAF00216              BAL,15   *:BINC            CONVERT TO BINARY
     3312   01 00ED4    32C0000F A            LW,12    15                FETCH 2 BYTES
     3313   01 00ED5    226FFFFA A            LI,6     -6                INDEX
     3314   01 00ED6    22700007 A            LI,7     7                 INDEX
     3315   01 00ED7    229000E7 A            LI,9     'X'               X
     3316   01 00ED8    21A00001 A            CI,10    1                 TEST MASK
     3317   01 00ED9    68400EDB              BCR,4    %+2               NO MATCH
     3318   01 00EDA    759E000C A            STB,9    12,7              CHANGE 0 OR 1 TO X
     3319   01 00EDB    33F00007 A            MTW,-1   7                 SUBTRACT 1 FROM INDEX
     3320   01 00EDC    25A0027F A            SCS,10   -1                SHIFT MASK
     3321   01 00EDD    65600ED8              BIR,6    %-5               LOOP
     3322   01 00EDE    B5D20008 A            STW,13   *8,1              STORE IN MSG AREA
     3323   01 00EDF    D5C20008 A            STH,12   *8,1              STORE IN MSG AREA
     3324   01 00EE0    33200008 A            MTW,2    8                 INCR. MSG ADR
     3325   01 00EE1    65500ECF              BIR,5    T1ST55SQ           LOOP
     3326   01 00EE2    EAF0021C              BAL,15   *:PRINT           PRINT 1 LINE
     3327   01 00EE3    00000F33              DATA     T1ST55M5
     3328   01 00EE4    E800000E A            B        *14
     3329   01 00EE5    00000000 A   TST1HDRE DATA     0,0               EXPECTED HEADER
            01 00EE6    00000000 A
     3330   01 00EE7    00000000 A   TST1HDRO DATA     0,0               OBSERVED HEADER
            01 00EE8    00000000 A
     3331   01 00EE9    20100804 A   T1ST55BM DATA     X'20100804',X'02010000'
            01 00EEA    02010000 A
     3332   01 00EEB    00000000 A   T1ST55SX DATA     0                 RETURN ADR
     3333   01 00EEC    29E3E2E3 A   T1ST55M1 TEXTC    'TST1,55 - FAULT SUMMARY (HDR READ/CYL=00)'
            01 00EED    F16BF5F5 A
            01 00EEE    406040C6 A
            01 00EEF    C1E4D3E3 A
            01 00EF0    40E2E4D4 A
            01 00EF1    D4C1D9E8 A
            01 00EF2    404DC8C4 A
            01 00EF3    D940D9C5 A
            01 00EF4    C1C461C3 A
            01 00EF5    E8D37EF0 A
            01 00EF6    F05D4040 A
     3334                            T1ST55M2 TEXTC    '           COMPARE ERROR         ALTADR  HDRPAR  ',;
     3335   01 00EF7    4D404040 A                     'HDRVER  FLAWMK  BYTCNT    UE'
            01 00EF8    40404040 A
            01 00EF9    40404040 A
            01 00EFA    C3D6D4D7 A
            01 00EFB    C1D9C540 A
            01 00EFC    C5D9D9D6 A
            01 00EFD    D9404040 A
            01 00EFE    40404040 A
            01 00EFF    4040C1D3 A
            01 00F00    E3C1C4D9 A
            01 00F01    4040C8C4 A
            01 00F02    D9D7C1D9 A
            01 00F03    4040C8C4 A
            01 00F04    D9E5C5D9 A
            01 00F05    4040C6D3 A
            01 00F06    C1E6D4D2 A
            01 00F07    4040C2E8 A
            01 00F08    E3C3D5E3 A
            01 00F09    40404040 A
            01 00F0A    E4C54040 A
     3336                            T1ST55M3 TEXTC    '         CYL(12) HEAD(3) SECT(4)  (567)  TDV(7)  ',;
     3337   01 00F0B    4F404040 A                     'TDV(4)  TDV(1) NONZERO  TIO(4)'
            01 00F0C    40404040 A
            01 00F0D    4040C3E8 A
            01 00F0E    D34DF1F2 A
            01 00F0F    5D40C8C5 A
            01 00F10    C1C44DF3 A
            01 00F11    5D40E2C5 A
            01 00F12    C3E34DF4 A
            01 00F13    5D40404D A
            01 00F14    F5F6F75D A
            01 00F15    4040E3C4 A
            01 00F16    E54DF75D A
            01 00F17    4040E3C4 A
            01 00F18    E54DF45D A
            01 00F19    4040E3C4 A
            01 00F1A    E54DF15D A
            01 00F1B    40D5D6D5 A
            01 00F1C    E9C5D9D6 A
            01 00F1D    4040E3C9 A
            01 00F1E    D64DF45D A
     3338                            T1ST55M4 TEXTC    'SECTOR   012345  012345  012345  012345  012345  ',;
     3339   01 00F1F    4FE2C5C3 A                     '012345  012345  012345  012345'
            01 00F20    E3D6D940 A
            01 00F21    4040F0F1 A
            01 00F22    F2F3F4F5 A
            01 00F23    4040F0F1 A
            01 00F24    F2F3F4F5 A
            01 00F25    4040F0F1 A
            01 00F26    F2F3F4F5 A
            01 00F27    4040F0F1 A
            01 00F28    F2F3F4F5 A
            01 00F29    4040F0F1 A
            01 00F2A    F2F3F4F5 A
            01 00F2B    4040F0F1 A
            01 00F2C    F2F3F4F5 A
            01 00F2D    4040F0F1 A
            01 00F2E    F2F3F4F5 A
            01 00F2F    4040F0F1 A
            01 00F30    F2F3F4F5 A
            01 00F31    4040F0F1 A
            01 00F32    F2F3F4F5 A
     3340                            T1ST55M5 TEXTC    'HEAD XX  XXXXXX  XXXXXX  XXXXXX  XXXXXX  XXXXXX  ',;
     3341   01 00F33    4FC8C5C1 A                     'XXXXXX  XXXXXX  XXXXXX  XXXXXX'
            01 00F34    C440E7E7 A
            01 00F35    4040E7E7 A
            01 00F36    E7E7E7E7 A
            01 00F37    4040E7E7 A
            01 00F38    E7E7E7E7 A
            01 00F39    4040E7E7 A
            01 00F3A    E7E7E7E7 A
            01 00F3B    4040E7E7 A
            01 00F3C    E7E7E7E7 A
            01 00F3D    4040E7E7 A
            01 00F3E    E7E7E7E7 A
            01 00F3F    4040E7E7 A
            01 00F40    E7E7E7E7 A
            01 00F41    4040E7E7 A
            01 00F42    E7E7E7E7 A
            01 00F43    4040E7E7 A
            01 00F44    E7E7E7E7 A
            01 00F45    4040E7E7 A
            01 00F46    E7E7E7E7 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   66
A    3343                            * T1ST56  NORMAL MODE - SENSE ORDER/ANGULAR POSITION. A RESTORE ORDER
     3344                            * ------  ------ ---- - ----- ------------- --------  IS ISSUED TO THE
     3345                            * STORAGE UNIT. THE TEST ISSUES A SENSE ORDER AND VERIFIES THE STATUS.
     3346                            * THE TEST PROCEEDS TO ISSUE UP TO 6 SENSE ORDER IN ORDER TO VERIFY
     3347                            * ANGULAR POSITION 0. FOLLOWING POSITION 0, 5 SENSE ORDERS ARE ISSUED
     3348                            * TO VERIFY ANGULAR POSITION 1 - 5.

     3350   01 00F47    6AF017B2     T1ST56   BAL,15   TST1TM0           ENTER NORMAL MODE
     3351   01 00F48    6AF0173D              BAL,15   TST1RST           ISSUE RESTORE ORDER
     3352   01 00F49    22000C2D              LI,0     DA(CDWTS17A)      IOCD ADR
     3353   01 00F4A    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     3354   01 00F4B    2280A000 A            LI,8     X'A000'             STORE
     3355   01 00F4C    35802832              STW,8    :IORDYDL             DELAY CONSTANT
     3356   01 00F4D    6AF0281F              BAL,15   :IOREADY+3        READY TEST
     3357   01 00F4E    68000F53              B        T1ST56A           B: CONTR READY
     3358   01 00F4F    6AF00535              ERROR    5610              XX 5610 **
            01 00F50    000015EA A
     3359   01 00F51    35101940              STW,1    TESTINDX          INCR ERROR CNT
     3360   01 00F52    68000F55              B        %+3
     3361   01 00F53    22000000 A   T1ST56A  LI,0     0
     3362   01 00F54    35001940              STW,0    TESTINDX          CLEAR ERROR CNT
     3363   01 00F55    6AF028FC              BAL,15   :ERRORT           TEST NO UE, NO ABNORMAL OSB OR TDV
     3364   01 00F56    00006018              DATA     BA(TSEQ045)         STATUS, BYTE CNT = 0
     3365   01 00F57    68000F5B              B        T1ST56B           B: STATUS OK
     3366   01 00F58    6AF00535              ERROR    5611              ** 5611 **
            01 00F59    000015EB A
     3367   01 00F5A    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     3368   01 00F5B    33001940     T1ST56B  MTW,0    TESTINDX          TEST CNT
     3369   01 00F5C    68300F60              BEZ      T1ST56C           B: NO ERRORS
     3370   01 00F5D    EAF0021D              SENSE    T1ST56+2          SSW1 => LOOP ON ERROR
            01 00F5E    2E000F5E
            01 00F5F    68000F49
     3371   01 00F60    3A402B9D     T1ST56C  LCW,4    #ABSOLC1          GET -SEC/TRACK
     3372   01 00F61    32502BAA              LW,5     IOBF1             2ND WORD OF
     3373   01 00F62    20500001 A            AI,5     1                   SENSE DATA
     3374   01 00F63    22000C2D              LI,0     DA(CDWTS17A)      IOCD ADR
     3375   01 00F64    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     3376   01 00F65    22802000 A            LI,8     X'2000'           DELAY
     3377   01 00F66    35802832              STW,8    :IORDYDL            CONSTANT
     3378   01 00F67    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3379   01 00F68    68000F6E              B        T1ST56D           B: CONTR READY
     3380   01 00F69    6AF00535              FAIL     5612,T1ST56C      ** 5612
            01 00F6A    000015EC A
            01 00F6B    EAF0021D
            01 00F6C    2E000F6C
            01 00F6D    68000F60
     3381   01 00F6E    F3000005 A   T1ST56D  MTB,0    *5                TEST ANGULAR POSITION
     3382   01 00F6F    68300F76              BEZ      T1ST56E
     3383   01 00F70    65400F63              BIR,4    T1ST56C+3         LOOP
     3384   01 00F71    6AF00535              FAIL     5613,T1ST56C      ** 5613 **
            01 00F72    000015ED A
            01 00F73    EAF0021D
            01 00F74    2E000F74
            01 00F75    68000F60
     3385   01 00F76    22400001 A   T1ST56E  LI,4     1                 INDEX
     3386   01 00F77    228015FF A            LI,8     5631
     3387   01 00F78    35800F91              STW,8    T1ST56H0          INITIALIZE
     3388   01 00F79    228015F5 A            LI,8     5621                ERROR NUMBERS
     3389   01 00F7A    35800F82              STW,8    T1ST56F
     3390   01 00F7B    22000C2D     T1ST56E0 LI,0     DA(CDWTS17A)      IOCD ADR
     3391   01 00F7C    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     3392   01 00F7D    2280A000 A            LI,8     X'A000'           STORE
     3393   01 00F7E    35802832              STW,8    :IORDYDL            DELAY CONST.
     3394   01 00F7F    6AF0281F              BAL,15   :IOREADY+3        READY TEST ALT
     3395   01 00F80    68000F87              B        T1ST56G           B: CONTROLLER READY
     3396   01 00F81    EAF017CF              BAL,15   *:ERROR
     3397   01 00F82    00000000 A   T1ST56F  DATA     0                 ** 5621 - 5625 **
     3398   01 00F83    EAF0021D              SENSE    T1ST56C           SSW1 => LOOP ON ERROR
            01 00F84    2E000F84
            01 00F85    68000F60
     3399   01 00F86    E80004EA              B        *SEQRETN          EXIT

     3401   01 00F87    F2800005 A   T1ST56G  LB,8     *5                FETCH ANGULAR POSITION BYTE     *H00
     3402   01 00F88    31800004 A            CW,8     4                 COMPARE TO EXPECTED ANGULAR POSITION
     3403   01 00F89    69300F90              BNE      T1ST56H           B: COMPARE ERROR
     3404   01 00F8A    33100F82              MTW,1    T1ST56F           INCR
     3405   01 00F8B    33100F91              MTW,1    T1ST56H0            ERROR NUMBERS
     3406   01 00F8C    33100004 A            MTW,1    4                 INCR INDEX
     3407   01 00F8D    21400005 A            CI,4     5                 TEST CURRENT COUNT
     3408   01 00F8E    68200F7B              BLE      T1ST56E0          LOOP
     3409   01 00F8F    E80004EA              B        *SEQRETN          EXIT
     3410   01 00F90    EAF017CF     T1ST56H  BAL,15   *:ERROR
     3411   01 00F91    00000000 A   T1ST56H0 DATA     0                 ** 5631 - 5635 **
     3412   01 00F92    68000F83              B        T1ST56F+1         TEST SENSE SW.
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   67
A    3414                            * T1ST57  NORMAL MODE - SENSE ORDER TEST. A RESTORE ORDER
     3415                            * ------  ------ ---- - ----------- ----  IS ISSUED TO
     3416                            * POSITION THE HEADS AT CYLINDER 0. SEEK/CC/SENSE SEQUENCES WILL BE
     3417                            * ISSUED FOR ALL 120 SECTORS OF CYLINDER 0. THE TEST VERIFIES THAT THE
     3418                            * ADDRESS RETURNED DURING THE SENSE OPERATION IS CORRECT AND THAT NORMAL
     3419                            * STATUS IS RETURNED.

     3421   01 00F93    6AF017B2     T1ST57   BAL,15   TST1TM0           ENTER NORMAL MODE
     3422   01 00F94    6AF0173D              BAL,15   TST1RST           ISSUE RESTORE ORDER
     3423   01 00F95    22400000 A            LI,4     0                 STARTING SEEK ADR
     3424   01 00F96    225FFF88 A            LI,5     -120              INDEX

     3426   01 00F97    32D00004 A   T1ST57A  LW,13    4                 FETCH ABSOLUTE SEEK ADR

     3428   01 00F98    33002BA8              MTW,0    #HDRTYPE          SKIP IF                         *H00
     3429   01 00F99    68300F9B              BEZ      %+2                6 SECTORS PER TRACK            *H00
     3430   01 00F9A    25D00001 A            SLS,13   1                   ELSE EVEN SECTORS ONLY        *H00

     3432   01 00F9B    6AF025FB              BAL,15   SEEKGEN           GENERATE SEEK ADR
     3433   01 00F9C    B5D02BAB              STW,13   *IOBUF            STORE SEEK ADR IN OUTPUT BUFFER
     3434   01 00F9D    22000C28              LI,0     DA(CDWTS15)       IOCD ADR
     3435   01 00F9E    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/SENSE)
     3436   01 00F9F    22802000 A            LI,8     X'2000'           DELAY
     3437   01 00FA0    35802832              STW,8    :IORDYDL            CONSTANT
     3438   01 00FA1    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3439   01 00FA2    68000FA6              B        T1ST57B           B: CONTR READY
     3440   01 00FA3    6AF00535              ERROR    5710              ** 5710 **
            01 00FA4    0000164E A
     3441   01 00FA5    68000FBC              B        T1ST57E           B: TEST SENSE SW.

     3443   01 00FA6    6AF028FC     T1ST57B  BAL,15   :ERRORT           TEST VERIFICATION ERROR, ON-CYL,
     3444   01 00FA7    00006020              DATA     BA(TSEQ046)       SEEK TIME-OUT, HDR PAR,TE,UE,BYT
     3445   01 00FA8    68000FAC              B        T1ST57C           B: STATUS OK                     = 0
     3446   01 00FA9    6AF00535              ERROR    5711              ** 5711 **
            01 00FAA    0000164F A
     3447   01 00FAB    68000FBC              B        T1ST57E           B: TEST SENSE SW

     3449   01 00FAC    B2802BAA     T1ST57C  LW,8     *IOBF1            FETCH SENSE DATA
     3450   01 00FAD    B1802BAB              CW,8     *IOBUF            COMPARE TO SEEK DATA
     3451   01 00FAE    68300FB4              BE       T1ST57D           B: ADRS COMPARE
     3452   01 00FAF    B2D02BAB              LW,13    *IOBUF            FETCH SEEK DATA
     3453   01 00FB0    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     3454   01 00FB1    6AF00535              ERROR    5712              ** 5712 **
            01 00FB2    00001650 A
     3455   01 00FB3    68000FBC              B        T1ST57E           B: TEST SENSE SW
     3456   01 00FB4    B2D42BAA     T1ST57D  LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     3457   01 00FB5    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     3458   01 00FB6    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     3459   01 00FB7    6AF028FC              BAL,15   :ERRORT           TEST SENSE STATUS BYTE 8 FOR ZEROES
     3460   01 00FB8    00006028              DATA     BA(TSEQ047)
     3461   01 00FB9    68000FBF              B        T1ST57F           B: STATUS OK
     3462   01 00FBA    6AF00535              ERROR    5713              ** 5713 **
            01 00FBB    00001651 A
     3463   01 00FBC    EAF0021D     T1ST57E  SENSE    T1ST57A           SSW1 => LOOP ON ERROR
            01 00FBD    2E000FBD
            01 00FBE    68000F97
     3464   01 00FBF    33100004 A   T1ST57F  MTW,1    4                 INCR ABSOLUTE SEEK ADR
     3465   01 00FC0    65500F97              BIR,5    T1ST57A           LOOP
     3466   01 00FC1    E80004EA              B        *SEQRETN
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   68
A    3468                            * T1ST58 - SEQUENTIAL HEAD POSITIONING TEST.  SEQUENCIAL SEEK ORDERS
     3469                            * ------ - ---------- ---- ----------- ----   ARE ISSUED TO THE DISK
     3470                            * STORAGE UNIT. AFTER VERIFYING SUCCESSFUL COMPLETION OF EACH SEEK
     3471                            * ORDER, A SENSE ORDER IS ISSUED TO VERITY THE SEEK OPERATION. IF
     3472                            * A HEADER PARITY ERROR IS DETECTED DURING THE SENSE ORDER, THE SENSE
     3473                            * OPERATION WILL BE AUTOMATICALLY RETRIED SIX ADDITIONAL TIMES BEFORE
     3474                            * AN ERROR IS REPORTED. IF THE CYLINDER ADDR OBTAINED IS CORRECT, THE
     3475                            * NEXT SEEK/SENSE SEQUENCE WILL BE INITIATED. ON RETRIES AFTER A
     3476                            * CYLINDER COMPARE ERROR, THE SEEK ADR WILL BE DECREMENTED BY 1 (NOT
     3477                            * < 0) AND A RESTORE ORDER WILL BE ISSUED PRIOR TO RETRY.

     3479   01 00FC2    6AF017B2     T1ST58   BAL,15   TST1TM0           ENTER NORMAL MODE
     3480   01 00FC3    2280A000 A            LI,8     X'A000'           DELAY
     3481   01 00FC4    35802832              STW,8    :IORDYDL            CONSTANT
     3482   01 00FC5    22400000 A            LI,4     0                 STARTING SEEK ADR
     3483   01 00FC6    6AF0173D     T1ST58A  BAL,15   TST1RST           ISSUE RESTORE ORDER
     3484   01 00FC7    32F00004 A            LW,15    4                 GET CYLINDER NUMBER
     3485   01 00FC8    25F00010 A            SLS,15   16                BUILD SEEK ADDRESS
     3486   01 00FC9    B5F02BAB              STW,15  *IOBUF             STORE SEEK ADDRESS IN BUFFER
     3487   01 00FCA    22000C2C              LI,0     DA(CDWTS17)       IOCD ADR
     3488   01 00FCB    6AF027E6              BAL,15  :IOEXEC            START IO (SEEK)
     3489   01 00FCC    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3490   01 00FCD    68000FD4              B        T1ST58B           B: CONTR NOT READY AFTER SEEK
     3491   01 00FCE    6AF00535              ERROR    5810              ** 5810 **
            01 00FCF    000016B2 A
     3492   01 00FD0    EAF0021D     T1ST58A1 SENSE    T1ST58A           SSW1 => LOOP ON ERROR
            01 00FD1    2E000FD1
            01 00FD2    68000FC6
     3493   01 00FD3    68000FF5              B        T1ST58F1          B: CONTINUE
     3494   01 00FD4    33000004 A   T1ST58B  MTW,0    4                 TEST SEEK ADR
     3495   01 00FD5    68300FE5              BEZ      T1ST58D           B: CYL 0 ONLY
     3496   01 00FD6    B5122BAA              STW,1    *IOBF1,1          CLEAR INPUT BUFFER
     3497   01 00FD7    22000C2D              LI,0     DA(CDWTS17A)      IOCD ADR
     3498   01 00FD8    6AF027E6              BAL,15  :IOEXEC            START IO (SENSE - ARM IN MOTION)
     3499   01 00FD9    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3500   01 00FDA    68000FDE              B        T1ST58C           B: CONTR READY
     3501   01 00FDB    6AF00535              ERROR    5811              ** 5811 **
            01 00FDC    000016B3 A
     3502   01 00FDD    68000FD0              B        T1ST58A1          B: TEST SENSE SW
     3503   01 00FDE    B2822BAA     T1ST58C  LW,8     *IOBF1,1          FETCH SECOND WORD OF SENSE DATA
     3504   01 00FDF    69100FE5              BCS,1    T1ST58D           B: ARM IN MOTION BIT PRESENT
     3505   01 00FE0    33000332              MTW,0    :CDBMX            IS CONTROLLER A DC-32
     3506   01 00FE1    69300FE5              BNEZ     T1ST58D           YES
     3507   01 00FE2    6AF00535              ERROR    5812              ** 5812 **
            01 00FE3    000016B4 A
     3508   01 00FE4    68000FD0              B        T1ST58A1          B: TEST SENSE SW.
     3509   01 00FE5    6AF01751     T1ST58D  BAL,15   TST1OCYL          TEST ON CYL BIT
     3510   01 00FE6    68000FEA              B        T1ST58E           B: ON CYL
     3511   01 00FE7    6AF00535              ERROR    5813              ** 5813 **
            01 00FE8    000016B5 A
     3512   01 00FE9    68000FD0              B        T1ST58A1          B: TEST SENSE SW
     3513   01 00FEA    225FFFF9 A   T1ST58E  LI,5     -7                SENSE RETRY INDEX
     3514   01 00FEB    B5102BAA              STW,1    *IOBF1            CLEAR INPUT BUFFER
     3515   01 00FEC    22000C2D              LI,0     DA(CDWTS17A)      IOCD ADR
     3516   01 00FED    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     3517   01 00FEE    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3518   01 00FEF    68000FF9              B        T1ST58G           B: CONTR READY
     3519   01 00FF0    6AF00535              ERROR    5814              ** 5814 **
            01 00FF1    000016B6 A
     3520   01 00FF2    EAF0021D     T1ST58F  SENSE    T1ST58E           SSW1 => LOOP ON ERROR
            01 00FF3    2E000FF3
            01 00FF4    68000FEA
     3521   01 00FF5    20400001 A   T1ST58F1 AI,4     1                 INCR. CYL. NO.
     3522   01 00FF6    31402BA3              CW,4     #FILLTRK          TEST FOR ILLEGAL CYL. NO.
     3523   01 00FF7    E92004EA              BG      *SEQRETN           EXIT
     3524   01 00FF8    68000FC6              B        T1ST58A           LOOP - RESTORE BEFORE RETRY
     3525   01 00FF9    CEC003E2     T1ST58G  TDV,12   *:DEVADDR
     3526   01 00FFA    7110000D A            CB,1     13,0              TEST BIT 7 OF TDV STATUS
     3527   01 00FFB    68401002              BCR,4    T1ST58H           B: NO HDR PARITY ERROR
     3528   01 00FFC    65500FEB              BIR,5    T1ST58E+1         B: AUTOMATIC RETRY FOR HDR PAR.
     3529   01 00FFD    6AF00535              FAIL     5815,T1ST58E      ** 5815 **
            01 00FFE    000016B7 A
            01 00FFF    EAF0021D
            01 01000    2E001000
            01 01001    68000FEA
     3530   01 01002    B2802BAA     T1ST58H  LW,8     *IOBF1            FETCH SENSE DATA
     3531   01 01003    B1802BAB              CW,8     *IOBUF            COMPARE TO SEEK ADR
     3532   01 01004    68301011              BE       T1ST58I           B: ADRS COMPARE
     3533   01 01005    B2D02BAB              LW,13    *IOBUF            FETCH SEEK ADR
     3534   01 01006    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     3535   01 01007    6AF00535              FAIL     5816              ** 5816 **
            01 01008    000016B8 A
            01 01009    EAF0021D
            01 0100A    2E00100A
     3536   01 0100B    6800100D              B        %+2
     3537   01 0100C    68000FF5              B        T1ST58F1          CONTINUE
     3538   01 0100D    33000004 A            MTW,0    4                 TEST SEEK ADR
     3539   01 0100E    68301010              BEZ      %+2               B: CYL 0 ONLY
     3540   01 0100F    33F00004 A            MTW,-1   4                 DECR. SEEK ADR
     3541   01 01010    68000FC6              B        T1ST58A           LOOP
     3542   01 01011    20400001 A   T1ST58I  AI,4     1                 INCR. CYL. NO.
     3543   01 01012    31402BA3              CW,4     #FILLTRK          TEST FOR ILLEGAL CYL. NO.
     3544   01 01013    E92004EA              BG      *SEQRETN           EXIT
     3545   01 01014    68000FC7              B        T1ST58A+1         LOOP
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   69
A    3547                            * T1ST60 - C0MPLEX HEAD POSITIONING, SEEK ACCESS TIMING AND SEEK
     3548                            * ------ - ------- ---- ------------ ---- ------ ------ --- ----
     3549                            * COMPLETE INTERRUPT TEST.
     3550                            * -------- --------- -----
     3551                            * THIS TEST CONSIST OF FOUR PASSES. THE PASSES DIFFER BY
     3552                            * THE TYPE OF HEAD MOTION.
     3553                            * 1. SEEK(M) SENSE SEEK(N) SENSE 203 TIMES. M VARIES FROM 0 TO 202,
     3554                            *    N IS ALWAYS = 0.
     3555                            * 2. SEEK(M) SENSE SEEK(N) SENSE 203 TIMES. M IS ALWAYS 202. N VARIES
     3556                            *    FROM 202 TO 0.
     3557                            * 3. SEEK(M) SENSE SEEK(N) SENSE 203 TIMES. M VARIES FROM 0 TO 202,
     3558                            *    N VARIES FROM 202 TO 0.
     3559                            * 4. SEEK(R) SENSE SEEK(R) SENSE 203 TIMES. R IS A RANDOM NUMBER.
     3560                            * DURING RETRIES THE LAST SUCCESSFUL SEEK/SENSE SEQUENCE IS REPEATED.
     3561                            * AVERAGE SEEK ACCESS TIME IS COMPUTED AND IF IT EXCEEDS THE LIMIT,
     3562                            * IT IS PRINTED OUT. THE TEST IS INITIALIZED IF RETRY IS REQUESTED.

     3564   01 01015    6AF017B2     T1ST60   BAL,15   TST1TM0           ENTER NORMAL MODE
     3565   01 01016    6AF02B1A              BAL,15   :INTADRC          CLEAR INTERRUPT ADR TABLE
     3566   01 01017    6AF02B2B              BAL,15   :INTADRS          ENTER DEVICE ADR.
     3567   01 01018    32402B7A              LW,4     :INTSVXP          LOAD XPSD
     3568   01 01019    3540005C A            STW,4    X'5C'               IN LOC X'5C'
     3569   01 0101A    324028FA              LW,4     :DELXPSD
     3570   01 0101B    3540005B A            STW,4    X'5B'             INIT. XPSD
     3571   01 0101C    324028FB              LW,4     :DELMTW
     3572   01 0101D    35400055 A            STW,4    X'55'             INIT. COUNT PULSE (4) LOC
     3573   01 0101E    22000000 A            LI,0     0
     3574   01 0101F    350010DB              STW,0    T1ST60TT          ZERO TOTAL TIME
     3575   01 01020    2280A000 A            LI,8     X'A000'           DELAY
     3576   01 01021    35802832              STW,8    :IORDYDL
     3577   01 01022    224FFFFC A            LI,4     -T1ST60AN
     3578   01 01023    35401940     T1ST60A  STW,4    TESTINDX          SAVE INDEX
     3579   01 01024    326810C5              LW,6     T1ST60AD+4,4      FETCH TEST CONSTANT ADR
     3580   01 01025    3A502BA3              LCW,5    #FILLTRK
     3581   01 01026    205FFFFF A            AI,5     -1
     3582   01 01027    32402BA3              LW,4     #FILLTRK
     3583   01 01028    25400010 A            SLS,4    16
     3584   01 01029    02200040 A            LCI      4                 FETCH
     3585   01 0102A    AA800006 A            LM,8     *6                  TEST CONSTANTS
     3586   01 0102B    31802BF2              CW,8    =X'5A5A5AFF'
     3587   01 0102C    6930102E              BNE      %+2
     3588   01 0102D    32800004 A            LW,8     4
     3589   01 0102E    31902BF2              CW,9    =X'5A5A5AFF'
     3590   01 0102F    69301031              BNE      %+2
     3591   01 01030    32900004 A            LW,9     4
     3592   01 01031    22C00000 A            LI,12    0
     3593   01 01032    22D00000 A            LI,13    0                 STORE CONSTANTS
     3594   01 01033    02200060 A            LCI      6                   IN EXECUTION TABLE
     3595   01 01034    2B8010D5              STM,8    T1ST60TS
     3596   01 01035    22400000 A            LI,4     0                 RESET FLAG.

     3598   01 01036    6AF0173D     T1ST60C  BAL,15   TST1RST           ISSUE RESTORE ORDER
     3599   01 01037    328810D5              LW,8     T1ST60TS,4        FETCH SEEK ADR
     3600   01 01038    B5802BAB              STW,8    *IOBUF            STORE SEEK ADR IN BUFFER
     3601   01 01039    22000000 A            LI,0     0
     3602   01 0103A    35001941              STW,0    TESTINDX+1        CLEAR ERROR FLAG
     3603   01 0103B    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLE INTERRUPT

     3605   01 0103C    22000C6D     T1ST60C0 LI,0     DA(CDWTS60)       IOCD ADR
     3606   01 0103D    35102B7B              STW,1    :INTSEEK           SET FAKE INTERRUPT FLAG
     3607   01 0103E    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK)
     3608   01 0103F    22700000 A            LI,7     0
     3609   01 01040    32E003E4              LW,14    DEVNO             NO. OF DEV ENTERED
     3610   01 01041    32FE03BA              LW,15    SYSTDEVA,7        GET DEV ADDR.
     3611   01 01042    31F003E2              CW,15    :DEVADDR          SKIP CURRENT
     3612   01 01043    68301047              BE       %+4                 DEVICE ASSIGNMENT
     3613   01 01044    CD00000F A            TIO,0    *15               LOOP FOR
     3614   01 01045    CF00000F A            HIO,0    *15                 ALL OTHER
     3615   01 01046    CE00000F A            TDV,0    *15                   DEVICES
     3616   01 01047    20700001 A            AI,7     1                 INCR INDEX
     3617   01 01048    64E01041              BDR,14   %-7               B: NOT DONE
     3618   01 01049    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3619   01 0104A    68001052              B        T1ST60D           B: CONTR READY
     3620   01 0104B    6AF00535              ERROR    6010              ** 6010 **
            01 0104C    0000177A A
     3621   01 0104D    EAF0021D     T1ST60C1 SENSE    T1ST60C           SSW1 => LOOP ON ERROR
            01 0104E    2E00104E
            01 0104F    68001036
     3622   01 01050    6AF0173D     T1ST60C2 BAL,15   TST1RST           ISSUE RESTORE ORDER
     3623   01 01051    68001099              B        T1ST60J          B: CONTINUE
     3624   01 01052    22E0012C A   T1ST60D  LI,14    300               DELAY IN MILLISECONDS
     3625   01 01053    6AF028DD              BAL,15   :DELAY            WAIT FOR IO INTERRUPT
     3626   01 01054    68001059              B        T1ST60D1          B: INTERRUPT RECEIVED
     3627   01 01055    6AF02B14              BAL,15   :INTD             DISARM IO INTERRUPT
     3628   01 01056    6AF00535              ERROR    6011              ** 6011 **
            01 01057    0000177B A
     3629   01 01058    6800104D              B        T1ST60C1          B: TEST SENSE SW
     3630   01 01059    32D02B76     T1ST60D1 LW,13    :INTSTAT          LOAD INTERRUPT
     3631   01 0105A    35D027E5              STW,13   :STATUSCC           STATUS
     3632   01 0105B    72F02B77              LB,15    :INTCC            LOAD CONDITION
     3633   01 0105C    75F427E5              STB,15   :STATUSCC,2         CODE
     3634   01 0105D    6AF026D8              :AIO1    X'FFFFC000',X'0C000000'
            01 0105E    FFFFC000 A
            01 0105F    0C000000 A

     3636                            * CHANGE ABOVE MASK FROM X'0C000000' TO X'04000000' IF DEVICE
     3637                            * INTERRUPT E.O. IS NOT INSTALLED.

     3639   01 01060    68001064              B        T1ST60D2          B: STATUS OK
     3640   01 01061    6AF00535              ERROR    6012              ** 6012 **
            01 01062    0000177C A
     3641   01 01063    6800104D              B        T1ST60C1          B:TEST SENSE SWITCHES
     3642   01 01064    3A7028F2     T1ST60D2 LCW,7    :DELTIME          MAKE TIME-OUT REMAINDER NEG
     3643   01 01065    25700001 A            SLS,7    1                 CONVERT TO MILLISEC.
     3644   01 01066    33100007 A            MTW,1    7                 COMPENSATE VALUE
     3645   01 01067    2070012C A            AI,7     300               R4 = SEEK ACCESS TIME
     3646   01 01068    667010DB              AWM,7    T1ST60TT          ADD THIS TIME TO TOTAL
     3647   01 01069    227FFFF9 A   T1ST60E  LI,7     -7                SENSE RETRY
     3648   01 0106A    B5102BAA              STW,1    *IOBF1            CLEAR INPUT BUFFER
     3649   01 0106B    22000C2D              LI,0     DA(CDWTS17A)      IOCD ADR
     3650   01 0106C    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     3651   01 0106D    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     3652   01 0106E    68001075              B        T1ST60G           B: CONTR READY
     3653   01 0106F    6AF00535              ERROR    6013              ** 6013 **
            01 01070    0000177D A
     3654   01 01071    EAF0021D     T1ST60F  SENSE    T1ST60E           SSW1 => LOOP ON ERROR
            01 01072    2E001072
            01 01073    68001069
     3655   01 01074    68001050              B        T1ST60C2          ISSUE RESTORE AND CONTINUE
     3656   01 01075    CEC003E2     T1ST60G  TDV,12   *:DEVADDR
     3657   01 01076    7110000D A            CB,1     13,0              TEST BIT 7 OF TDV STATUS
     3658   01 01077    6840107E              BCR,4    T1ST60H           B: NO HDR PARITY ERROR
     3659   01 01078    6570106A              BIR,7    T1ST60E+1         B: AUTOMATIC RETRY FOR HDR PAR.
     3660   01 01079    6AF00535              FAIL     6014,T1ST60E      ** 6014 **
            01 0107A    0000177E A
            01 0107B    EAF0021D
            01 0107C    2E00107C
            01 0107D    68001069
     3661   01 0107E    B2802BAA     T1ST60H  LW,8     *IOBF1            FETCH SENSE DATA
     3662   01 0107F    B1802BAB              CW,8     *IOBUF            COMPARE TO SEEK ADR
     3663   01 01080    68301097              BE       T1ST60I           B: ADR COMPARE
     3664   01 01081    B2D02BAB              LW,13    *IOBUF            FETCH SEEK ADR
     3665   01 01082    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE ADR MSG
     3666   01 01083    EAF0021C              BAL,15   *:PRINT
     3667   01 01084    000010E6              DATA     T1ST60MG          PRINT MSG
     3668   01 01085    32600004 A            LW,6     4                 FETCH FLAG
     3669   01 01086    48600001 A            EOR,6    1                 TOGGLE FLAG
     3670   01 01087    32DC10D9              LW,13    T1ST60TP,6        FETCH PREVIOUS SEEK ADR
     3671   01 01088    33001941              MTW,0    TESTINDX+1        TEST ERROR FLAG
     3672   01 01089    6830108B              BEZ      %+2               B: NOT A RETRY
     3673   01 0108A    22D00000 A            LI,13    0                 SEEK STARTING ADR
     3674   01 0108B    6AF026A4              BAL,15   SEEKMSG           PRINT STARTING ADR OF CURRENT SEEK
     3675   01 0108C    6AF00535              ERROR    6015              ** 6015 **
            01 0108D    0000177F A
     3676   01 0108E    328C10D9              LW,8     T1ST60TP,6
     3677   01 0108F    B5802BAB              STW,8    *IOBUF            STORE PREVIOUS SEEK ADR IN BUFFER
     3678   01 01090    EAF0021D              SENSE
            01 01091    2E001091
     3679   01 01092    68001094              B        %+2               LOOP
     3680   01 01093    68001050              B        T1ST60C2          B: CONTINUE AFTER RESTORE
     3681   01 01094    33101941              MTW,1    TESTINDX+1        SET ERROR FLAG
     3682   01 01095    6AF0173D              BAL,15   TST1RST           ISSUE RESTORE ORDER
     3683   01 01096    6800103C              B        T1ST60C0          B: LOOP
     3684   01 01097    33001941     T1ST60I  MTW,0    TESTINDX+1        TEST ERROR FLAG
     3685   01 01098    69301037              BNEZ     T1ST60C+1         B: RETRY
     3686   01 01099    328810D5     T1ST60J  LW,8     T1ST60TS,4        FETCH CURRENT SEEK ADR
     3687   01 0109A    358810D9              STW,8    T1ST60TP,4        STORE AS PREVIOUS SEEK ADR
     3688   01 0109B    328810D7              LW,8     T1ST60TI,4        FETCH INCR
     3689   01 0109C    31802BF3              CW,8     =X'5A5A5A5A'      RANDOM FLAG
     3690   01 0109D    693010A6              BNE      T1ST60K           B: RANDOM NUMBER NOT REQUIRED
     3691   01 0109E    6AF02B86              BAL,15   :RANDOMX          GENERATE RANDOM NUMBER
     3692   01 0109F    32802BA3              LW,8     #FILLTRK
     3693   01 010A0    20800001 A            AI,8     1
     3694   01 010A1    25E00160 A            SLD,14   -32
     3695   01 010A2    36E00008 A            DW,14    8
     3696   01 010A3    25E00010 A            SLS,14   16
     3697   01 010A4    35E810D5              STW,14   T1ST60TS,4
     3698   01 010A5    680010A7              B        T1ST60L

     3700   01 010A6    668810D5     T1ST60K  AWM,8    T1ST60TS,4        INCR OR DECR CYL ADR
     3701         01 010A7           T1ST60L  EQU      %
     3702   01 010A7    48400001 A            EOR,4    1                 TOGGE FLAG
     3703   01 010A8    69301037              BNEZ     T1ST60C+1         LOOP
     3704   01 010A9    65501037              BIR,5    T1ST60C+1         LOOP
     3705   01 010AA    32401940              LW,4     TESTINDX          FETCH INDEX
     3706   01 010AB    65401023              BIR,4    T1ST60A           LOOP

     3708   01 010AC    32F02BA3              LW,15    #FILLTRK
     3709   01 010AD    20F00002 A            AI,15    2
     3710   01 010AE    23F00008 A            MI,15    T1ST60AN*2
     3711   01 010AF    325010DB              LW,5     T1ST60TT
     3712   01 010B0    3650000F A            DW,5     15                COMPUTE AVERAGE SEEK TIME

     3714   01 010B1    330025B6              MTW,0    DISPFLAG          CHECK FOR FORCED DISPLAY
     3715   01 010B2    693010B6              BNEZ     T1ST60M            AND SKIP TO FORCE ERROR

     3717   01 010B3    31502BA7              CW,5     #ASEEKT
     3718   01 010B4    692010B6              BG       T1ST60M
     3719   01 010B5    E80004EA              B        *SEQRETN          EXIT

     3721   01 010B6    32C00005 A   T1ST60M  LW,12    5                 CONVERT BIN VALUE
     3722   01 010B7    EAF00217              BAL,15   *:DECC              TO DECIMAL
     3723   01 010B8    35F010E3              STW,15   T1ST60TM+7        STORE IN MSG.
     3724   01 010B9    EAF0021C              BAL,15   *:PRINT             AND PRINT
     3725   01 010BA    000010DC              DATA     T1ST60TM
     3726   01 010BB    6AF00535              FAIL     6016,T1ST60       ** 6016 **
            01 010BC    00001780 A
            01 010BD    EAF0021D
            01 010BE    2E0010BE
            01 010BF    68001015
     3727   01 010C0    E80004EA              B        *SEQRETN          EXIT

     3729         00000000           T1ST60P  CNAME
     3730                                     PROC
     3731                                     LOCAL    I,J
     3732                            LF       RES      0
     3733                            I        DO       NUM(AF)
     3734                            J        SET      SCOR(AF(I),RANDOM,MAX)
     3735                                     DO       J=0
     3736                                     GEN,16,16 AF(I),0
     3737                                     FIN
     3738                                     DO       J=1
     3739                                     DATA     X'5A5A5A5A'
     3740                                     FIN
     3741                                     DO       J=2
     3742                                     DATA     X'5A5A5AFF'
     3743                                     FIN
     3744                                     FIN
     3745                                     PEND

     3747   01 010C1    000010C5     T1ST60AD DATA     T1ST60P1,T1ST60P2,T1ST60P3,T1ST60P4
            01 010C2    000010C9
            01 010C3    000010CD
            01 010C4    000010D1
     3748         00000004           T1ST60AN EQU      %-T1ST60AD

     3750   01 010C5    00000000 A   T1ST60P1 T1ST60P  000,000,1,0       START1, START2, INCR1, INCR2
            01 010C6    00000000 A
            01 010C7    00010000 A
            01 010C8    00000000 A
     3751   01 010C9    5A5A5AFF A   T1ST60P2 T1ST60P  MAX,MAX,0,-1
            01 010CA    5A5A5AFF A
            01 010CB    00000000 A
            01 010CC    FFFF0000 A
     3752   01 010CD    00000000 A   T1ST60P3 T1ST60P  000,MAX,1,-1
            01 010CE    5A5A5AFF A
            01 010CF    00010000 A
            01 010D0    FFFF0000 A
     3753   01 010D1    00000000 A   T1ST60P4 T1ST60P  000,000,RANDOM,RANDOM
            01 010D2    00000000 A
            01 010D3    5A5A5A5A A
            01 010D4    5A5A5A5A A

     3755   01 010D5    00000000 A   T1ST60TS DATA     0,0
            01 010D6    00000000 A
     3756   01 010D7    00000000 A   T1ST60TI DATA     0,0               EXECUTION TABLE
            01 010D8    00000000 A
     3757   01 010D9    00000000 A   T1ST60TP DATA     0,0
            01 010DA    00000000 A
     3758   01 010DB    00000000 A   T1ST60TT DATA     0

     3760   01 010DC    24C1E5C5 A   T1ST60TM TEXTC    'AVERAGE SEEK ACCESS TIME = XXXX MSEC'
            01 010DD    D9C1C7C5 A
            01 010DE    40E2C5C5 A
            01 010DF    D240C1C3 A
            01 010E0    C3C5E2E2 A
            01 010E1    40E3C9D4 A
            01 010E2    C5407E40 A
            01 010E3    E7E7E7E7 A
            01 010E4    40D4E2C5 A
            01 010E5    C3404040 A
     3761   01 010E6    11C1C4D9 A   T1ST60MG TEXTC    'ADR PRIOR TO SEEK'
            01 010E7    40D7D9C9 A
            01 010E8    D6D940E3 A
            01 010E9    D640E2C5 A
            01 010EA    C5D24040 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   70
A    3763                            * T1ST63 - COMPREHENSIVE WRITE/READ/CHECKWRITE TEST. DURING THE FIRST
     3764                            * ---------------------- ----- ---- ---------- ----  PHASE OF THIS TEST
     3765                            * ATTEMPTS ARE MADE TO LOCATE A CYLINDER WITH ERROR-FREE HEADERS. THE
     3766                            * CYLINDERS USED ARE DETERMINED BY THE SYST-DIRECTIVE ENTRY FOR EACH
     3767                            * DEVICE. ONCE A GOOD CYLINDER HAS BEEN LOCATED A WRITE/READ/CHECKWRITE
     3768                            * PASS WILL BE PERFORMED 3 TIMES, EACH TIME WITH A DIFFERENT PATTERN.

     3770                            * PASS 1: FIXED PATTERN OF X'AA55AA55'
     3771                            * PASS 2: INCREMENTED PATTERN OF X'00010203',X'04050607',X'08090A0B',...
     3772                            * PASS 3: CURRENT SEEK ADDR X'00000000' FOR CYL=0,HD=0,SECT=0,
     3773                            *                           X'00NN0803' FOR CYL=NN,HD=08,SECT=3

     3775                            * ANY UNRECOVERABLE ERROR (6 RETRIES ARE AUTOMATICALLY ATTEMPTED) OR
     3776                            * SOLID FAILURE WILL CAUSE THE SELECTION OF ANOTHER CYLINDER. THE
     3777                            * OBJECTIVE OF THIS PROCEDURE IS TO AVOID LOOPING ON AN ERROR WHICH
     3778                            * MAY BE CAUSED BY SURFACE FLAWS.

     3780   01 010EB    6AF017B2     T1ST63   BAL,15   TST1TM0           ENTER NORMAL MODE
     3781   01 010EC    324003E3              LW,4     DEVPT             FETCH DEVICE POINTER
     3782   01 010ED    329803C2              LW,9     SYSTFRST,4        FETCH STARTING ADR
     3783   01 010EE    32B803CA              LW,11    SYSTLAST,4          AND ENDING ADR
     3784   01 010EF    22800000 A            LI,8     0
     3785   01 010F0    22A00000 A            LI,10    0                 COMPUTE
     3786   01 010F1    36802B9C              DW,8     #ABSOLC             AVAILABLE
     3787   01 010F2    36A02B9C              DW,10    #ABSOLC               CYLINDER ADR
     3788   01 010F3    22800000 A            LI,8     0
     3789   01 010F4    22A00000 A            LI,10    0
     3790   01 010F5    55900008 A            STH,9    8
     3791   01 010F6    55B0000A A            STH,11   10
     3792   01 010F7    35801220              STW,8    T1ST63SF          SAVE ADR
     3793   01 010F8    35A01221              STW,10   T1ST63SL

     3795   01 010F9    32801221     T1ST63A  LW,8     T1ST63SL          FETCH LAST CYL ADR
     3796   01 010FA    52900008 A            LH,9     8
     3797   01 010FB    31902BA3              CW,9     #FILLTRK
     3798   01 010FC    692010FF              BG       %+3
     3799   01 010FD    31801220              CW,8     T1ST63SF          COMPARE TO STARTING ADR
     3800   01 010FE    68101105              BGE      T1ST63B           B: USE T1ST63SL
     3801   01 010FF    6AF00535              FAIL     6310,T1ST63+1     ** 6310 **
            01 01100    000018A6 A
            01 01101    EAF0021D
            01 01102    2E001102
            01 01103    680010EC
     3802   01 01104    E80004EA              B        *SEQRETN          EXIT

     3804   01 01105    22000000 A   T1ST63B  LI,0     0
     3805   01 01106    35001940              STW,0    TESTINDX
     3806   01 01107    32802BAB              LW,8     IOBUF             INITIALIZE
     3807   01 01108    20800100 A            AI,8     256                                               *H00
     3808   01 01109    358028A2              STW,8    :COMBFRB
     3809   01 0110A    32A02BAA              LW,10    IOBF1               COMPARE ROUTINE
     3810   01 0110B    35A028A1              STW,10   :COMBFRA
     3811   01 0110C    350028A3              STW,0    :COMFLAG              EXP: IOBF1

     3813   01 0110D    32902B9C              LW,9     #ABSOLC           PREPARE NUMBER OF WORDS         *H00
     3814   01 0110E    25900001 A            SLS,9    1                  OF HEADERS FOR ONE CYLINDER    *H00
     3815   01 0110F    359028A0              STW,9    :COMWCNT                                          *H00
     3816   01 01110    25900002 A            SLS,9    2                 PREPARE NUMBER OF BYTES         *H00
     3817   01 01111    359018DF              STW,9    CDWTS63+3          OF HEADERS FOR ONE CYLINDER    *H00

     3819   01 01112    32801221              LW,8     T1ST63SL          FETCH CYL ADR
     3820   01 01113    25800278 A            SCS,8    -8                ALIGN CYL ADR
     3821   01 01114    22900000 A            LI,9     0
     3822   01 01115    30A028A0              AW,10    :COMWCNT          LWA+1 EXPECTED BUFFER           *H00
     3823   01 01116    3A4028A0              LCW,4    :COMWCNT           -SIZE EXPECTED BUFFER          *H00

     3825   01 01117    32E02BF4              LW,14   =X'06000000'
     3826   01 01118    32F02BE9              LW,15   =X'01000000'
     3827   01 01119    33002BA8              MTW,0    #HDRTYPE
     3828   01 0111A    6830111C              BEZ      %+2
     3829   01 0111B    25E00001 A            SLS,14   1                                                 *H00

     3831   01 0111C    B588000A A   T1ST63B1 STW,8    *10,4             STORE BYTES 0 - 3 AND
     3832   01 0111D    33100004 A            MTW,1    4                 INCR INDEX
     3833   01 0111E    B598000A A            STW,9    *10,4               BYTES 4 - 7 OF EXP HEADER

     3835   01 0111F    3090000F A            AW,9     15
     3836   01 01120    3190000E A            CW,9     14
     3837   01 01121    68301124              BE       %+3               B: SECTOR = 6

     3839   01 01122    6540111C              BIR,4    T1ST63B1                                          *H00
     3840   01 01123    68001127              B        T1ST63B3          B: DONE

     3842   01 01124    22900000 A            LI,9     0                 SECTOR ADR = 0
     3843   01 01125    73160008 A            MTB,1    8,3               HD ADR + 1
     3844   01 01126    6540111C              BIR,4    T1ST63B1                                          *H00

     3846   01 01127    22000000 A   T1ST63B3 LI,0     0
     3847   01 01128    32A028A2              LW,10    :COMBFRB                                          *H00
     3848   01 01129    30A028A0              AW,10    :COMWCNT          LWA+1 OBSERVED BUFFER           *H00
     3849   01 0112A    3A4028A0              LCW,4    :COMWCNT           -SIZE OBSERVED BUFFER          *H00
     3850   01 0112B    B508000A A            STW,0    *10,4             CLEAR INPUT BUFFER
     3851   01 0112C    6540112B              BIR,4    %-1               LOOP

     3853   01 0112D    22000C6E     T1ST63C  LI,0     DA(CDWTS63)       IOCD ADR
     3854   01 0112E    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDR-READ)
     3855   01 0112F    22870000 A            LI,8     X'70000'          STORE DELAY
     3856   01 01130    35802832              STW,8    :IORDYDL            CONSTANT
     3857   01 01131    6AF0281F              BAL,15   :IOREADY+3        READY TEST ALT
     3858   01 01132    68001136              B        T1ST63C1          B: CONTR READY
     3859   01 01133    6AF00535              ERROR    6311              ** 6311 **
            01 01134    000018A7 A
     3860   01 01135    33101940              MTW,1    TESTINDX          INCR ERROR CNT

     3862   01 01136    31D02BE3     T1ST63C1 CW,13    =X'0000FFFF'      TEST BYTE CNT
     3863   01 01137    6840113E              BCR,4    T1ST63C2          B: BYTE CNT = 0

     3865   01 01138    327028A0              LW,7     :COMWCNT          PREPARE BYTE COUNT              *H00
     3866   01 01139    25700002 A            SLS,7    2                  EXPECTED HEADER INFORMATION    *H00
     3867   01 0113A    6AF016F7              BAL,15   TST1BC            PRINT BYTE CNT MSG
     3868   01 0113B    6AF00535              ERROR    6312              ** 6312 **
            01 0113C    000018A8 A
     3869   01 0113D    33101940              MTW,1    TESTINDX

     3871   01 0113E    6AF028FC     T1ST63C2 BAL,15   :ERRORT           NO UNUSUAL STATUS EXPECTED
     3872   01 0113F    0000603C              DATA     BA(TSEQ050)
     3873   01 01140    68001144              B        T1ST63C3          B: STATUS OK
     3874   01 01141    6AF00535              ERROR    6313              ** 6313 **
            01 01142    000018A9 A
     3875   01 01143    33101940              MTW,1    TESTINDX          INCR ERROR COUNT

     3877         01 01144           T1ST63C3 EQU      %
     3878   01 01144    B2F228A2              LW,15    *:COMBFRB,1                                       *H00
     3879   01 01145    4BF02BF0              AND,15   =X'00FFFF00'        AND SAVE BYTES 5 AND 6

     3881   01 01146    32A02BAA              LW,10    IOBF1             POINT TO EXP BUFFER
     3882   01 01147    30A028A0              AW,10    :COMWCNT          LWA+1 EXPECTED BUFFER           *H00
     3883   01 01148    3A4028A0              LCW,4    :COMWCNT           -SIZE EXPECTED BUFFER          *H00

     3885   01 01149    20400001 A            AI,4     1                 POINT TO SECOND HEADER WORD
     3886   01 0114A    E6F8000A A            AWM,15   *10,4              UPDATE EXPECTED DATA           *H00
     3887   01 0114B    65401149              BIR,4    %-2                 SCAN ALL HEADERS

     3889   01 0114C    6AF02845              BAL,R15  :COMPARE          COMPARE DATA
     3890   01 0114D    68001151              B        T1ST63C4          B: DATA OK
     3891   01 0114E    6AF00535              ERROR    6314              ** 6314 **
            01 0114F    000018AA A
     3892   01 01150    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     3893   01 01151    33001940     T1ST63C4 MTW,0    TESTINDX          TEST CNT
     3894   01 01152    68301159              BEZ      T1ST63D           B: PROCEED WITH TEST
     3895   01 01153    32D01221              LW,13    T1ST63SL          FETCH CURRENT CYLINDER ADDR
     3896   01 01154    6AF026A4              BAL,15   SEEKMSG           B: PRINT CURRENT SEEK ADR
     3897   01 01155    6AF00535              ERROR    6315              ** 6315 **
            01 01156    000018AB A
     3898   01 01157    53F01221     T1ST63C5 MTH,-1   T1ST63SL          DECR. CYLINDER ADDRESS
     3899   01 01158    680010F9              B        T1ST63A           TRY NEXT LOWER CYLINDER

     3901   01 01159    32802BF5     T1ST63D  LW,8     =X'AA55AA55'      SAVE CURRENT PATTERN
     3902   01 0115A    35802AFF              STW,8    :PATID+1
     3903   01 0115B    22000000 A            LI,0     0
     3904   01 0115C    35002AFE              STW,0    :PATID            FIXED PATTERN
     3905   01 0115D    32802BAA              LW,8     IOBF1
     3906   01 0115E    35802B02              STW,8    :PATBFR           OUTPUT BUFFER
     3907   01 0115F    22800100 A            LI,8     256
     3908   01 01160    35802B01              STW,8    :PATWC            STORE WORD CNT.
     3909   01 01161    6AF02AB9              BAL,15   :PATTERN          SPREAD FIXED PATTERN
     3910   01 01162    225FFFFD A            LI,5     -3                MAJOR INDEX
     3911   01 01163    3A402B9C     T1ST63D0 LCW,4    #ABSOLC           SECTORS/CYLINDER                *H00
     3912   01 01164    6AF011AD              BAL,15   T1ST63I           INITIALIZE
     3913   01 01165    00001232              DATA     T1ST63Q1            WRITE PASS
     3914   01 01166    22000000 A   T1ST63D1 LI,0     0                 CLEAR INT
     3915   01 01167    35002B78              STW,0    :INTRECF            RECEIVED FLAG
     3916   01 01168    6AF02AB9              BAL,15   :PATTERN          SPREAD CURRENT PATTERN
     3917   01 01169    6AF011CB              BAL,15   T1ST63X           EXECURE ORDER (WRITE)
     3918   01 0116A    65401166              BIR,4    T1ST63D1          B: NEXT SECTOR
     3919   01 0116B    3300123C              MTW,0    T1ST63JR          TEST ERROR CNT
     3920   01 0116C    6930116F              BNEZ     %+3               B: WRITE ERRORS
     3921   01 0116D    3300123B              MTW,0    T1ST63JT          TEST ERROR CNT
     3922   01 0116E    68301179              BEZ      T1ST63D2          B: NO ERRORS
     3923   01 0116F    32D01225              LW,13    T1ST63SK          FETCH CURRENT SEEK ADDRESS
     3924   01 01170    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK MSG
     3925   01 01171    32CA1240              LW,12    T1ST63Q4+3,5      FETCH ERROR NO
     3926   01 01172    35C01174              STW,12   %+2
     3927   01 01173    6AF00535              FAIL     0,T1ST63D0        ** 6340,6343,4346 **
            01 01174    00000000 A
            01 01175    EAF0021D
            01 01176    2E001176
            01 01177    68001163
     3928   01 01178    680011A9              B        T1ST63F           B: SKIP READ AND CHECKWRT      CYL..
     3929   01 01179    6AF011AD     T1ST63D2 BAL,15   T1ST63I             READ PASS
     3930   01 0117A    00001235              DATA     T1ST63Q2            READ PASS
     3931   01 0117B    3A402B9C              LCW,4    #ABSOLC           SECTORS/CYLINDER                *H00
     3932   01 0117C    22000000 A   T1ST63D3 LI,0     0                 CLEAR
     3933   01 0117D    6AF02AB9              BAL,15   :PATTERN          SPREAD CURRENT PATTERN
     3934   01 0117E    35002B78              STW,0    :INTRECF            INT RECEIVED FLAG
     3935   01 0117F    6AF011CB              BAL,15   T1ST63X           EXECUTE ORDER (READ)
     3936   01 01180    6540117C              BIR,4    T1ST63D3          B: NEXT SECTOR
     3937   01 01181    3300123C              MTW,0    T1ST63JR
     3938   01 01182    6830118A              BEZ      T1ST63D4          B: PERFORM CHECKWRITE - NO MAJOR
     3939   01 01183    32C01225              LW,12    T1ST63SK          FETCH CURRENT SEEK ADDR    ERRORS
     3940   01 01184    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK MSG
     3941   01 01185    32CA1243              LW,12    T1ST63Q5+3,5      FETCH ERROR NO
     3942   01 01186    35C01188              STW,12   %+2
     3943   01 01187    6AF00535              ERROR    0                 ** 6341,6344,6347 **
            01 01188    00000000 A
     3944   01 01189    680011A9              B        T1ST63F           B: SKIP CHECKWRITE

     3946   01 0118A    3A402B9C     T1ST63D4 LCW,4    #ABSOLC           SECTORS/CYLINDER                *H00
     3947   01 0118B    6AF011AD              BAL,15   T1ST63I           INITIALIZE CHECK WRITE PASS
     3948   01 0118C    00001238              DATA     T1ST63Q3
     3949   01 0118D    22000000 A   T1ST63D5 LI,0     0                 CLEAR
     3950   01 0118E    35002B78              STW,0    :INTRECF            INT RECEIVED FLAG
     3951   01 0118F    6AF02AB9              BAL,15   :PATTERN          SPREAD CURRENT PATTERN
     3952   01 01190    6AF011CB              BAL,15   T1ST63X           EXECUTE ORDER (CHECKWRITE)
     3953   01 01191    6540118D              BIR,4    T1ST63D5          B: NEXT SECTOR
     3954   01 01192    3300123C              MTW,0    T1ST63JR          B: PERFORM CHECKWRITE - NO MAJOR
     3955   01 01193    6830119B              BEZ      T1ST63E           B: TRY NEXT PATTERN            ERROR
     3956   01 01194    32D01225              LW,13    T1ST63SK
     3957   01 01195    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK MSG
     3958   01 01196    32CA1243              LW,12    T1ST63Q5+3,5      FETCH ERROR NO
     3959   01 01197    35C01199              STW,12   %+2
     3960   01 01198    6AF00535              ERROR    0                 ** 6342,6345,6348 **
            01 01199    00000000 A
     3961   01 0119A    680011A9              B        T1ST63F           B: SKIP REMAINING PATTERN
     3962   01 0119B    6550119D     T1ST63E  BIR,5    T1ST63E1          B: TRY NEXT PATTERN
     3963   01 0119C    E80004EA              B        *SEQRETN          EXIT - TEST COMPLETED
     3964   01 0119D    215FFFFE A   T1ST63E1 CI,5     -2                TEST FOR 2ND PASS
     3965   01 0119E    693011A5              BNE      T1ST63E2          B: START OF 3RD PASS
     3966   01 0119F    32802BF6              LW,8     =X'00010203'      STARTING PATTERN
     3967   01 011A0    32902BF7              LW,9     =X'04040404'      PATTERN INCREMENT
     3968   01 011A1    35802AFF              STW,8    :PATID+1          STORE IN
     3969   01 011A2    35902B00              STW,9    :PATID+2            PATTERN ROUTINE
     3970   01 011A3    35102AFE              STW,1    :PATID            INCREMENTED PATTERN
     3971   01 011A4    68001163              B        T1ST63D0          LOOP ON INCREMENTED PATTERN
     3972   01 011A5    22801225     T1ST63E2 LI,8     T1ST63SK          FETCH CURRENT SEEK ADR LOCATION
     3973   01 011A6    35802AFF              STW,8    :PATID+1          STORE IN PATTERN ROUTINE
     3974   01 011A7    35302AFE              STW,3    :PATID            SEEK ADR PATTERN
     3975   01 011A8    68001163              B        T1ST63D0          LOOP ON SEEK ADR PATTERN
     3976   01 011A9    EAF0021D     T1ST63F  SENSE    T1ST63D           SSW1 => LOOP ON ERROR
            01 011AA    2E0011AA
            01 011AB    68001159
     3977   01 011AC    68001157              B        T1ST63C5          B: TRY NEXT CYINDER
     3978   01 011AD    022000C0 A   T1ST63I  LCI      12                SAVE REGISTERS
     3979   01 011AE    2B401226              STM,4    T1ST63IT
     3980   01 011AF    B270000F A            LW,7     *15               FETCH ADR OF PARAMETERS
     3981   01 011B0    B2800007 A            LW,8     *7
     3982   01 011B1    B2920007 A            LW,9     *7,1
     3983   01 011B2    158018E0              STD,8    CDWTS63X          STORE DOUBLE WORD
     3984   01 011B3    B2840007 A            LW,8     *7,2              FETCH STARTING ERROR NO
     3985   01 011B4    358011E2              STW,8    T1ST63XM
     3986   01 011B5    33100008 A            MTW,1    8                 INITIALIZE
     3987   01 011B6    358011E9              STW,8    T1ST63XN
     3988   01 011B7    33100008 A            MTW,1    8                   ERROR NO.
     3989   01 011B8    3580121B              STW,8    T1ST63XO
     3990   01 011B9    22000000 A            LI,0     0
     3991   01 011BA    3500123B              STW,0    T1ST63JT          INITIALIZE ERROR
     3992   01 011BB    3500123C              STW,0    T1ST63JR            COUNTS
     3993   01 011BC    32801221              LW,8     T1ST63SL          INITIALIZE SEEK BUFFER
     3994   01 011BD    35801225              STW,8    T1ST63SK
     3995   01 011BE    6AF02B2B              BAL,15   :INTADRS          ENTER DEVICE ADR INTO INTER ADR TBL
     3996   01 011BF    32802B7A              LW,8     :INTSVXP          INITIALIZE XPSD
     3997   01 011C0    3580005C A            STW,8    X'5C'
     3998   01 011C1    35002B78              STW,0    :INTRECF          RESET INT RECEIVED FLAG
     3999   01 011C2    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLE INTERRUPT.
     4000   01 011C3    6AF028EE              BAL,15   :DELAYD           DISARM COUNTER INT
     4001   01 011C4    328028FA              LW,8     :DELXPSD
     4002   01 011C5    3580005B A            STW,8    X'5B'             INITIALIZE XPSD
     4003   01 011C6    328028FB              LW,8     :DELMTW
     4004   01 011C7    35800055 A            STW,8    X'55'             INIT. COUNT PULSE (4) LOC.
     4005   01 011C8    022000C0 A            LCI      12                RESTORE REGISTERS
     4006   01 011C9    2A401226              LM,4     T1ST63IT
     4007   01 011CA    E802000F A            B        *15,1             EXIT
     4008   01 011CB    022000C0 A   T1ST63X  LCI      12                SAVE
     4009   01 011CC    2B401226              STM,4    T1ST63IT            REGISTERS
     4010   01 011CD    224FFFFA A            LI,4     -6                INDEX
     4011   01 011CE    6AF02B0E     T1ST63X0 BAL,15   :INTAE            ARM AND ENABLE INTERRUPT
     4012   01 011CF    22000000 A            LI,0     0                 CLEAR INT
     4013   01 011D0    35002B78              STW,0    :INTRECF            RECEIVED FLAG
     4014   01 011D1    22000C71              LI,0     DA(CDWTS63A)      IOCD ADR
     4015   01 011D2    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK)
     4016   01 011D3    22800BB8 A            LI,8     3000              STORE DELAY CONST.
     4017   01 011D4    35802832              STW,8    :IORDYDL
     4018   01 011D5    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4019   01 011D6    680011DC              B        T1ST63X2          B:IOREADY
     4020   01 011D7    6AF00535              ERROR    6320              ** 6320 **
            01 011D8    000018B0 A
     4021   01 011D9    EAF0021D     T1ST63X1 SENSE    T1ST63X0          SSW1 => LOOP ON ERROR
            01 011DA    2E0011DA
            01 011DB    680011CE
     4022   01 011DC    22000C70     T1ST63X2 LI,0     DA(CDWTS63X)      IOCD ADR
     4023   01 011DD    6AF027E6              BAL,15   :IOEXEC           START IO (WRITE OR READY OR CHECKW)
     4024   01 011DE    22E0001E A            LI,14    30                DELAY 30 MSEC
     4025   01 011DF    6AF028DD              BAL,15   :DELAY            WAIT FOR INTERRUPT
     4026   01 011E0    680011E5              B        T1ST63X3          B: INTERRUPT RECEIVED
     4027   01 011E1    EAF017CF              BAL,15   *:ERROR
     4028   01 011E2    00000000 A   T1ST63XM DATA     0                 ** 6330,6333,6337 **
     4029   01 011E3    CFC003E2              HIO,12   *:DEVADDR         HIO
     4030   01 011E4    680011D9              B        T1ST63X1          B: TEST SENSE SW.
     4031   01 011E5    6AF028FC     T1ST63X3 BAL,15   :ERRORT           TEST DATA O'RUN,FLAW MK,VER ERR,
     4032   01 011E6    0000603C              DATA     BA(TSEQ050)         HDR PAR, TE, IL, UE, BYT CNT = 0
     4033   01 011E7    680011EB              B        T1ST63X4          B: STATUS OK
     4034   01 011E8    EAF017CF              BAL,15   *:ERROR
     4035   01 011E9    00000000 A   T1ST63XN DATA     0                 ** 6331,6334,6338 **
     4036   01 011EA    654011CE              BIR,4    T1ST63X0          LOOP: RETRY COUNT NOT ZERO
     4037   01 011EB    728018E0     T1ST63X4 LB,8     CDWTS63X          FETCH ORDER CODE
     4038   01 011EC    21800002 A            CI,8     2
     4039   01 011ED    693011F3              BNE      T1ST63X5          B: NOT A READ ORDER
     4040   01 011EE    6AF02845              BAL,15   :COMPARE
     4041   01 011EF    680011F3              B        T1ST63X5          B: NO COMPARE ERROR
     4042   01 011F0    6AF00535              ERROR    6336              ** 6336 **
            01 011F1    000018C0 A
     4043   01 011F2    3310123C              MTW,1    T1ST63JR          INCR ERROR CNT

     4045   01 011F3    214FFFFA A   T1ST63X5 CI,4     -6                TEST INDEX
     4046   01 011F4    683011F9              BE       T1ST63X6          B: NO ERRORS
     4047   01 011F5    33000004 A            MTW,0    4                 INDEX = 0
     4048   01 011F6    693011F8              BNEZ     %+2               B: INDEX NOT ZERO
     4049   01 011F7    3310123C              MTW,1    T1ST63JR          INCR ERROR CNT
     4050   01 011F8    3310123B              MTW,1    T1ST63JT          INCR ERROR CNT

     4052   01 011F9    33101225     T1ST63X6 MTW,1    T1ST63SK          INCR SECT ADR
     4053   01 011FA    32802B9D              LW,8     #ABSOLC1                                          *H00
     4054   01 011FB    71861225              CB,8     T1ST63SK,3        TEST SECTOR ADR
     4055   01 011FC    69201200              BG       %+4               B: SECTOR ADR . 6
     4056   01 011FD    22800000 A            LI,8     0
     4057   01 011FE    75861225              STB,8    T1ST63SK,3        SECTOR ADR = 0
     4058   01 011FF    73141225              MTB,1    T1ST63SK,2        INCR HD ADR
     4059   01 01200    22000C72     T1ST63X7 LI,0     DA(CDWTS63B)      IOCD ADR
     4060   01 01201    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     4061   01 01202    22800BB8 A            LI,8     3000              STORE DELAY
     4062   01 01203    35802832              STW,8    :IORDYDL            CNT
     4063   01 01204    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4064   01 01205    6800120C              B        T1ST63X8          B: CONTR READY
     4065   01 01206    6AF00535              FAIL     6321,T1ST63X7     ** 6321 **
            01 01207    000018B1 A
            01 01208    EAF0021D
            01 01209    2E001209
            01 0120A    68001200
     4066   01 0120B    3310123C              MTW,1    T1ST63JR          INCR ERROR CNT
     4067   01 0120C    32801222     T1ST63X8 LW,8     T1ST63SS          OBSERVED SENSE DATA
     4068   01 0120D    32D01225              LW,13    T1ST63SK          EXPECTED SENSE DATA
     4069   01 0120E    3180000D A            CW,8     13                TEST DATA
     4070   01 0120F    68301214              BE       T1ST63X9          B: ADR COMPARE
     4071   01 01210    6AF0172B              BAL,15   TST1SMSG          PRINT SENSE DATA
     4072   01 01211    6AF00535              ERROR    6322              ** 6322 **
            01 01212    000018B2 A
     4073   01 01213    3310123C              MTW,1    T1ST63JR          INCR ERROR CNT
     4074   01 01214    32D01224     T1ST63X9 LW,13    T1ST63SS+2        FETCH 3RD WORD OF SENSE DATA
     4075   01 01215    4BD02BE7              AND,13   =X'FC000000'      BITS 0-5 ONLY
     4076   01 01216    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     4077   01 01217    6AF028FC              BAL,15   :ERRORT           TEST SENSE STATUS BYTE 8 FOR ZEROES
     4078   01 01218    00006028              DATA     BA(TSEQ047)
     4079   01 01219    6800121D              B        T1ST63XA          B: STATUS OK
     4080   01 0121A    EAF017CF              BAL,15   *:ERROR
     4081   01 0121B    00000000 A   T1ST63XO DATA     0                 ** 6332,6335,6339 **
     4082   01 0121C    3310123C              MTW,1    T1ST63JR          INCR ERROR CNT
     4083   01 0121D    022000C0 A   T1ST63XA LCI      12                RESTORE
     4084   01 0121E    2A401226              LM,4     T1ST63IT            REGISTERS
     4085   01 0121F    E800000F A            B        *15               EXIT
     4086   01 01220    00000000 A   T1ST63SF DATA     0                 FIRST AVAILABLE CYL
     4087   01 01221    00000000 A   T1ST63SL DATA     0                 LAST USED CYLINDER
     4088   01 01222    00000000 A   T1ST63SS DATA     0,0,0             SENSE BUFFER
            01 01223    00000000 A
            01 01224    00000000 A
     4089   01 01225    00000000 A   T1ST63SK DATA     0                 SEEK  BUFFER
     4090   01 01226                 T1ST63IT RES      12                SAVE REGISTERS
     4091   01 01232    0100B0CC N   T1ST63Q1 GEN,8,24,8,24  X'01',BA(USERPROG+2),X'14',1024
                        14000400
     4092   01 01234    000018BA A            DATA     6330
     4093   01 01235    0200B8CC N   T1ST63Q2 GEN,8,24,8,24  X'02',BA(USERPROG+258+256),X'14',1024       *H00
                        14000400
     4094   01 01237    000018BD A            DATA     6333
     4095   01 01238    0500B0CC N   T1ST63Q3 GEN,8,24,8,24  X'05',BA(USERPROG+2),X'14',1024
                        14000400
     4096   01 0123A    000018C1 A            DATA     6337
     4097   01 0123B    00000000 A   T1ST63JT DATA     0                 TOTAL NO OF ERRORS
     4098   01 0123C    00000000 A   T1ST63JR DATA     0                 NON RECOVERABLE ERRORS
     4099   01 0123D    000018C4 A   T1ST63Q4 DATA     6340,6341,6342
            01 0123E    000018C5 A
            01 0123F    000018C6 A
     4100   01 01240    000018C7 A   T1ST63Q5 DATA     6343,6344,6345
            01 01241    000018C8 A
            01 01242    000018C9 A
     4101   01 01243    000018CA A   T1ST63Q6 DATA     6346,6347,6348
            01 01244    000018CB A
            01 01245    000018CC A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   71
A    4103                            * T1ST64 - SHORT RECORD WRITE TEST. DURING THE FIRST PHASE OF THIS
     4104                            * ------ - ----- ------ ----- ----  TEST ATTEMPTS ARE MADE TO LOCATE
     4105                            * A SECTOR WHICH CAN BE RECORDED AND VERIFIED. ONCE A GOOD
     4106                            * SECTOR HAS BEEN LOCATED A 4 BYTE RECORD IS WRITTEN AND VERIFIED
     4107                            * WITH A READ ORDER. BYTES 4 THRU 1023 ARE EXPECTED TO BE ZERO.
     4108                            * IF A GOOD SECTOR IS FOUND; 256 CYCLES OF: SEEK/CC/READ(BC=253)/
     4109                            * CC/SENSE ARE PREFORMED.  THE SECTOR ADDRESS REPORTED BY THE SENSE
     4110                            * ORDER IS CHECKED AGAINST THE SEEK ADDRESS + 1.  AN ERROR WILL BE
     4111                            * REPORTED IF ANY SENSE OPERATION REPORTS AN INCORRECT ADDRESS.

     4113   01 01246    6AF017B2     T1ST64   BAL,15   TST1TM0           ENTER NORMAL MODE
     4114   01 01247    324003E3              LW,4     DEVPT             FETCH DEVICE POINTER
     4115   01 01248    329803C2              LW,9     SYSTFRST,4        FETCH STARTING
     4116   01 01249    328803CA              LW,8     SYSTLAST,4          AND ENDING ADDR
     4117   01 0124A    208FFFFF A            AI,8     -1                    AND ADJUST ENDING ADDR
     4118   01 0124B    35801221              STW,8    T1ST63SL          SAVE
     4119   01 0124C    35901220              STW,9    T1ST63SF            ADR
     4120   01 0124D    32802BAB              LW,8     IOBUF
     4121   01 0124E    358028A2              STW,8    :COMBFRB          INITIALIZE
     4122   01 0124F    32A02BAA              LW,10     IOBF1
     4123   01 01250    35A028A1              STW,10   :COMBFRA            COMPARE ROUTINE
     4124   01 01251    22000000 A            LI,0     0                                                 *H00
     4125   01 01252    350028A3              STW,0    :COMFLAG
     4126   01 01253    22900100 A            LI,9     256                   EXP: IOBF1
     4127   01 01254    359028A0              STW,9    :COMWCNT             OBS: IOBUF
     4128   01 01255    22801225              LI,8     T1ST63SK          FETCH SEEK BUFFER ADDRESS
     4129   01 01256    35802AFF              STW,8    :PATID+1          STORE IN PATTERN ROUTINE
     4130   01 01257    35302AFE              STW,3    :PATID            SEEK ADR PATTERN
     4131   01 01258    6AF0173D     T1ST64A  BAL,15   TST1RST           ISSUE RESTORE ORDER
     4132   01 01259    32D01221              LW,13    T1ST63SL          FETCH ABSOL SEEK ADR
     4133   01 0125A    6AF025FB              BAL,15   SEEKGEN           GENERATE A SEEK ADR
     4134   01 0125B    35D01225              STW,13   T1ST63SK          STORE ADR IN SEEK BUFFER
     4135   01 0125C    32C02BAA              LW,12    IOBF1
     4136   01 0125D    35C02B02              STW,12   :PATBFR           SPREAD SEEK ADR
     4137   01 0125E    22800100 A            LI,8     256
     4138   01 0125F    35802B01              STW,8    :PATWC
     4139   01 01260    6AF02AB9              BAL,15   :PATTERN            AS PATTERN
     4140   01 01261    22000C73              LI,0     DA(CDWTS64)       IOCD ADR
     4141   01 01262    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/WRITE)
     4142   01 01263    32802BF8              LW,8     =100000
     4143   01 01264    35802832              STW,8    :IORDYDL          DELAY CONSTANT
     4144   01 01265    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4145   01 01266    6800126A              B        T1ST64A0          B: CONTR READY
     4146   01 01267    6AF00535              ERROR    6410              ** 6410 **
            01 01268    0000190A A
     4147   01 01269    680012B4              B        T1ST64F           B: TEST SENSE SW
     4148   01 0126A    6AF028FC     T1ST64A0 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4149   01 0126B    0000603C              DATA     BA(TSEQ050)
     4150   01 0126C    68001270              B        T1ST64B           B: STATUS OK
     4151   01 0126D    6AF00535              ERROR    6411              ** 6411 **
            01 0126E    0000190B A
     4152   01 0126F    680012B4              B        T1ST64F           B: TEST SENSE SW
     4153   01 01270    22000C75     T1ST64B  LI,0     DA(CDWTS64A)      IOCD ADR
     4154   01 01271    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ
     4155   01 01272    32802BF9              LW,8     =25000
     4156   01 01273    35802832              STW,8    :IORDYDL          DELAY CONSTANT
     4157   01 01274    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4158   01 01275    68001279              B        T1ST64B0          B: CONTR READY
     4159   01 01276    6AF00535              ERROR    6412              ** 6412 **
            01 01277    0000190C A
     4160   01 01278    680012B4              B        T1ST64F           B: TEST SENSE SW
     4161   01 01279    6AF028FC     T1ST64B0 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4162   01 0127A    0000603C              DATA     BA(TSEQ050)
     4163   01 0127B    6800127F              B        T1ST64B1          B: STATUS OK
     4164   01 0127C    6AF00535              ERROR    6413              ** 6413 **
            01 0127D    0000190D A
     4165   01 0127E    680012B4              B        T1ST64F           B: TEST SENSE SW
     4166   01 0127F    6AF02845     T1ST64B1 BAL,15   :COMPARE          COMPARE DATA
     4167   01 01280    68001284              B        T1ST64C           B: DATA OK
     4168   01 01281    6AF00535              ERROR    6414              ** 6414 **
            01 01282    0000190E A
     4169   01 01283    680012B4              B        T1ST64F           B: TEST SENSE SW.
     4170   01 01284    32801225     T1ST64C  LW,8     T1ST63SK          FETCH SEEK ADR
     4171   01 01285    22900000 A            LI,9     0
     4172   01 01286    32A02BAA              LW,10    IOBF1             OUTPUT BUF ADR
     4173   01 01287    20A00100 A            AI,10    256
     4174   01 01288    227FFF00 A            LI,7     -256
     4175   01 01289    B59E000A A            STW,9    *10,7             CLEAR OUTPUT BUFFER
     4176   01 0128A    65701289              BIR,7    %-1               LOOP
     4177   01 0128B    B5802BAA              STW,8    *IOBF1
     4178   01 0128C    22000C77              LI,0     DA(CDWTS64B)      IOCD ADR
     4179   01 0128D    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/WRITE 4 BYTES)
     4180   01 0128E    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4181   01 0128F    68001293              B        T1ST64C1          B: CONTR READY
     4182   01 01290    6AF00535              ERROR    6415              ** 6415 **
            01 01291    0000190F A
     4183   01 01292    680012B0              B        T1ST64E           B: TEST SENSE SW
     4184   01 01293    6AF028FC     T1ST64C1 BAL,15    :ERRORT          TEST FOR NORMAL TERMINATION
     4185   01 01294    00006048              DATA     BA(TSEQ051)         EXCEPT IL
     4186   01 01295    68001299              B        T1ST64D           B: STATUS OK
     4187   01 01296    6AF00535              ERROR    6416              ** 6416 **
            01 01297    00001910 A
     4188   01 01298    680012B0              B        T1ST64E           B: TEST SENSE SW
     4189   01 01299    229FFFFF A   T1ST64D  LI,9     -1
     4190   01 0129A    32A02BAB              LW,10    IOBUF             INPUT BUFFER ADR
     4191   01 0129B    20A00100 A            AI,10    256
     4192   01 0129C    227FFF00 A            LI,7     -256
     4193   01 0129D    B59E000A A            STW,9    *10,7             INITIALIZE INPUT BUFFER
     4194   01 0129E    6570129D              BIR,7    %-1               LOOP
     4195   01 0129F    22000C75              LI,0     DA(CDWTS64A)      IOCD ADR
     4196   01 012A0    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/READ 1024 BYTES)
     4197   01 012A1    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4198   01 012A2    680012A6              B        T1ST64D0          B: CONTR READY
     4199   01 012A3    6AF00535              ERROR    6417              ** 6417 **
            01 012A4    00001911 A
     4200   01 012A5    680012B0              B        T1ST64E           B: TEST SENSE SW
     4201   01 012A6    6AF028FC     T1ST64D0 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4202   01 012A7    0000603C              DATA     BA(TSEQ050)
     4203   01 012A8    680012AC              B        T1ST64D1          B: STATUS OK
     4204   01 012A9    6AF00535              ERROR    6418              ** 6418 **
            01 012AA    00001912 A
     4205   01 012AB    680012B0              B        T1ST64E           B: TEST SENSE SW
     4206   01 012AC    6AF02845     T1ST64D1 BAL,15   :COMPARE          COMPARE DATA
     4207   01 012AD    680012C0              B        T1ST64G           TEST READ/CC/SENSE
     4208   01 012AE    6AF00535              ERROR    6419              ** 6419 **
            01 012AF    00001913 A
     4209   01 012B0    EAF0021D     T1ST64E  SENSE    T1ST64C           SSW1 => LOOP ON ERROR
            01 012B1    2E0012B1
            01 012B2    68001284
     4210   01 012B3    E80004EA              B        *SEQRETN          EXIT
     4211   01 012B4    EAF0021D     T1ST64F  SENSE    T1ST64A           SSW1 => LOOP ON ERROR
            01 012B5    2E0012B5
            01 012B6    68001258
     4212   01 012B7    33F01221              MTW,-1   T1ST63SL          DECR ABSOL. SEEK ADR
     4213   01 012B8    32A01221              LW,10    T1ST63SL          FETCH ADR
     4214   01 012B9    31A01220              CW,10    T1ST63SF          COMPARE TO FIRST ADR
     4215   01 012BA    E91004EA              BL       *SEQRETN          END OF AVAILABLE ADR
     4216   01 012BB    32D01225              LW,13    T1ST63SK          FETCH SEEK ADR
     4217   01 012BC    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK MSG
     4218   01 012BD    6AF00535              ERROR    6420              ** 6420 **
            01 012BE    00001914 A
     4219   01 012BF    68001258              B        T1ST64A           LOOP - USE ANOTHER SECTOR

     4221   01 012C0    228FFF00 A   T1ST64G  LI,8     -256              SET LOOP COUNT
     4222   01 012C1    358012E7              STW,8    T1ST64LI
     4223   01 012C2    22800000 A            LI,8     0                 RESET ERROR FLAG
     4224   01 012C3    358012E8              STW,8    T1ST64X1
     4225   01 012C4    22000C79     T1ST64G0 LI,0     DA(CDWTS64C)      IOCD ADDR
     4226   01 012C5    35002AB8              STW,0    :SAVCOM1            SAVE FOR COMMAND ADDR CHECK
     4227   01 012C6    32800000 A            LW,8     0                 CLEAR SENSE ADDR BUFFER LOC.
     4228   01 012C7    35801222              STW,8    T1ST63SS
     4229   01 012C8    6AF027E6              BAL,15   :IOEXEC           SIO-SEEK/CC/RD(BC=253)/CC/SENSE
     4230   01 012C9    32802BFA              LW,8     =30000            SET DELAY CONST.
     4231   01 012CA    35802832              STW,8    :IORDYDL
     4232   01 012CB    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4233   01 012CC    680012D0              B        T1ST64G1          B: CONT READY
     4234   01 012CD    6AF00535              ERROR    6430              ** 6430 **
            01 012CE    0000191E A
     4235   01 012CF    680012E3              B        T1ST64H           B: TEST SENSE SW
     4236   01 012D0    6AF028FC     T1ST64G1 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4237   01 012D1    0000608C              DATA     BA(TSEQ064)
     4238   01 012D2    680012D6              B        T1ST64G2          B: STATUS OK
     4239   01 012D3    6AF00535              ERROR    6431              ** 6431 **
            01 012D4    0000191F A
     4240   01 012D5    680012E3              B        T1ST64H           B: TEST SENSE SW

     4242   01 012D6    32D01221     T1ST64G2 LW,13    T1ST63SL          FETCH EXPECTED ABSOLUTE SECTOR
     4243   01 012D7    20D00001 A            AI,13    1                   ADDRESS
     4244   01 012D8    6AF025FB              BAL,15   SEEKGEN           CONVERT TO SEEK ADDRESS
     4245   01 012D9    32801222              LW,8     T1ST63SS
     4246   01 012DA    31D00008 A            CW,13    8
     4247   01 012DB    683012DD              BE       T1ST64G3            ADDRESSES COMPARE
     4248   01 012DC    331012E8              MTW,1    T1ST64X1          LOG ADDRESS COMPARE ERROR
     4249   01 012DD    331012E7     T1ST64G3 MTW,1    T1ST64LI          INCREMENT LOOP INDEX
     4250   01 012DE    693012C4              BCS,3    T1ST64G0            LOOP
     4251   01 012DF    330012E8              MTW,0    T1ST64X1          CHECK FOR ADDR. COMPARE ERROR
     4252   01 012E0    E83004EA              BEZ      *SEQRETN            EXIT IF NO ERRORS
     4253   01 012E1    6AF00535              ERROR    6432              ** 6432 **
            01 012E2    00001920 A
     4254   01 012E3    EAF0021D     T1ST64H  SENSE    T1ST64G           SSW1 => LOOP ON ERROR
            01 012E4    2E0012E4
            01 012E5    680012C0
     4255   01 012E6    E80004EA              B        *SEQRETN            ABORT - EXIT

     4257   01 012E7    00000000 A   T1ST64LI DATA     0                 LOOP INDEX
     4258   01 012E8    00000000 A   T1ST64X1 DATA     0                 ERROR FLAG
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   72
A    4260                            * T1ST65 - HEADER WRITE TEST. THIS TEST WILL ONLY BE EXECUTED IF
     4261                            * --------------------------- CYLINDER 202 IS MADE AVAILABLE TO THE TEST
     4262                            * PROGRAM WITH THE SYST DIRECTIVE. THE TEST WILL WRITE ALL HEADERS ON
     4263                            * CYLINDER 202 FOR HEADS 16 THRU 19. THE ORIGINAL HEADERS WILL BE SAVED
     4264                            * AT THE START OF THE TEST AND RESTORED AT THE END OF THE TEST.

     4266   01 012E9    6AF017B2     T1ST65   BAL,15   TST1TM0           ENTER NORMAL MODE
     4267   01 012EA    6AF0173D              BAL,15   TST1RST           ISSUE RESTORE ORDER
     4268   01 012EB    324003E3              LW,4     DEVPT             FETCH DEV POINTER
     4269   01 012EC    328803CA              LW,8     SYSTLAST,4        FETCH AVAILABLE ENDING ADR.
     4270   01 012ED    31802B9A              CW,8     #DEFLTS           TEST ENDING ADR
     4271   01 012EE    E91004EA              BL       *SEQRETN          EXIT - BYPASS TEST
     4272   01 012EF    32802BA9              LW,8     #TSTSHDR
     4273   01 012F0    35801225              STW,8    T1ST63SK          SAVE ADR

     4275   01 012F1    6AF01668     T1ST65A0 BAL,15   TST1SHDR          B: SAVE HEADERS
     4276   01 012F2    680012F9              B        T1ST65B           B: ALL HEADERS SAVED
     4277   01 012F3    6AF00535              ERROR    6517              ** 6517 **
            01 012F4    00001975 A
     4278   01 012F5    EAF0021D     T1ST65A1 SENSE    T1ST65A0          SSW1 => LOOP ON ERROR
            01 012F6    2E0012F6
            01 012F7    680012F1
     4279   01 012F8    E80004EA              B        *SEQRETN         EXIT

     4281   01 012F9    224FFFFC A   T1ST65B  LI,4     -4                INDEX

     4283   01 012FA    32002B9D              LW,0     #ABSOLC1          COMPUTE BYTES IN                *H00
     4284   01 012FB    25000003 A            SLS,0    1+2                ONE TRACK OF HEADERS           *H00
     4285   01 012FC    350018FB              STW,0    CDWTS65+3                                         *H00
     4286   01 012FD    350018FF              STW,0    CDWTS65A+3                                        *H00

     4288   01 012FE    32C02BAB     T1ST65B0 LW,12    IOBUF             OUTPUT BUFFER ADR
     4289   01 012FF    32D01225              LW,13    T1ST63SK          FETCH SEEK ADR
     4290   01 01300    6AF02488              BAL,15   T3USPHW           B: GENERATE 6 HEADERS

     4292   01 01301    22000C7C              LI,0     DA(CDWTS65)       IOCD ADR
     4293   01 01302    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRW)
     4294   01 01303    6AF0281F              BAL,15   :IOREADY+3        READY TEST ALT
     4295   01 01304    6800130B              B        T1ST65B3          B: CONTR READY
     4296   01 01305    6AF00535              ERROR    6510              ** 6510 **
            01 01306    0000196E A
     4297   01 01307    EAF0021D     T1ST65B2 SENSE    T1ST65B0          SSW1 => LOOP ON ERROR
            01 01308    2E001308
            01 01309    680012FE
     4298   01 0130A    68001311              B        T1ST65B4          B: CONTINUE

     4300   01 0130B    6AF028FC     T1ST65B3 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4301   01 0130C    00006010              DATA     BA(TSEQ044)
     4302   01 0130D    68001311              B        T1ST65B4          B: STATUS OK
     4303   01 0130E    6AF00535              ERROR    6511              ** 6511 **
            01 0130F    0000196F A
     4304   01 01310    68001307              B        T1ST65B2          B: TEST SENSE SW

     4306   01 01311    73141225     T1ST65B4 MTB,1    T1ST63SK,2        INCR HEAD ADR
     4307   01 01312    654012FE              BIR,4    T1ST65B0          B: NEXT SIX HEADERS

     4309   01 01313    224FFFFC A   T1ST65C  LI,4     -4                INDEX
     4310   01 01314    32802BA9              LW,8     #TSTSHDR
     4311   01 01315    35801225              STW,8    T1ST63SK          SAVE ADR

     4313   01 01316    22000000 A   T1ST65C1 LI,0     0
     4314   01 01317    35001940              STW,0    TESTINDX          CLEAR ERROR CNT
     4315   01 01318    22000C7E              LI,0     DA(CDWTS65A)      IOCD ADR
     4316   01 01319    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRR)
     4317   01 0131A    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4318   01 0131B    6800131F              B        T1ST65C2          B: CONTR READY
     4319   01 0131C    6AF00535              ERROR    6512              ** 6512
            01 0131D    00001970 A
     4320   01 0131E    33101940              MTW,1    TESTINDX          INCR ERROR COUNT
     4321   01 0131F    6AF028FC     T1ST65C2 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4322   01 01320    00006010              DATA     BA(TSEQ044)
     4323   01 01321    68001325              B        T1ST65C3          B: STATUS OK
     4324   01 01322    6AF00535              ERROR    6513              ** 6513 **
            01 01323    00001971 A
     4325   01 01324    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     4326   01 01325    32802BAB     T1ST65C3 LW,8     IOBUF
     4327   01 01326    32C02BAA              LW,12    IOBF1
     4328   01 01327    358028A2              STW,8    :COMBFRB          INITIALIZE
     4329   01 01328    35C028A1              STW,12   :COMBFRA
     4330   01 01329    22A0000C A            LI,10    12                   COMPARE ROUTINE
     4331   01 0132A    35A028A0              STW,10   :COMWCNT
     4332   01 0132B    22000000 A            LI,0     0                      EXPECTED: IOBF1
     4333   01 0132C    350028A3              STW,0    :COMFLAG               OBSERVED: IOBUF
     4334   01 0132D    32D01225              LW,13    T1ST63SK          SEEK ADR
     4335   01 0132E    6AF02488              BAL,15   T3USPHW           B: GENERATE 6 HEADERS
     4336   01 0132F    6AF02845              BAL,15   :COMPARE          B: COMPARE HEADER DATA
     4337   01 01330    68001334              B        T1ST65D           B: DATA OK
     4338   01 01331    6AF00535              ERROR    6514              ** 6514 **
            01 01332    00001972 A
     4339   01 01333    33101940              MTW,1    TESTINDX
     4340   01 01334    22000C2D     T1ST65D  LI,0     DA(CDWTS17A)      IOCD ADR
     4341   01 01335    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     4342   01 01336    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4343   01 01337    6800133C              B        T1ST65D1          B: CONTR READY
     4344   01 01338    6AF00535              ERROR    6515              ** 6515 **
            01 01339    00001973 A
     4345   01 0133A    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     4346   01 0133B    68001345              B        T1ST65D2
     4347   01 0133C    B2D42BAA     T1ST65D1 LW,13    *IOBF1,2          FETCH 3RD WORD OF INPUT BUFFER
     4348   01 0133D    4BD02BE7              AND,13   =X'FC000000'      BITS 0 - 5 ONLY
     4349   01 0133E    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS IN TABLE
     4350   01 0133F    6AF028FC              BAL,15   :ERRORT
     4351   01 01340    00005FC4              DATA     BA(TSEQ031)       TEST FOR ALL ZEROES
     4352   01 01341    68001345              B        T1ST65D2          B: STATUS OK
     4353   01 01342    6AF00535              ERROR    6516              ** 6516 **
            01 01343    00001974 A
     4354   01 01344    68001347              B        %+3               B
     4355   01 01345    33001940     T1ST65D2 MTW,0    TESTINDX          TEST ERROR CNT
     4356   01 01346    6830134A              BEZ      T1ST65D3          B: NO ERRORS
     4357   01 01347    EAF0021D              SENSE    T1ST65B           SSW1 => LOOP ON ERROR
            01 01348    2E001348
            01 01349    680012F9
     4358   01 0134A    73141225     T1ST65D3 MTB,1    T1ST63SK,2        INCR HEAD ADR
     4359   01 0134B    65401316              BIR,4    T1ST65C1          B: NEXT SIX HEADERS

     4361   01 0134C    6AF0169C              BAL,15   TST1RHDR          RESTORE ALL HEADERS
     4362   01 0134D    E80004EA              B        *SEQRETN          EXIT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   73
A    4364                            * T1ST66 - HEADER ERROR DETECTION TEST. THIS TEST WILL ONLY BE EXECUTED
     4365                            * ------ - ---------------------------  IF CYLINDER 202 IS MADE
     4366                            * AVAILABLE TO THE TEST PROGRAM WITH THE SYST DIRECTIVE. THE TEST
     4367                            * CONSISTS OF THE FOLLOWING 3 SECTIONS:

     4369                            * 1. HEADERS WITH FLAW BYTES ARE WRITTEN FOR CYL. 202, HEAD 17
     4370                            *    SENSE, HDR READ, AND READ ORDERS ARE ISSUED TO VERIFY THE TETECTION
     4371                            *    OF THE FLAW BYTE AND SETTING OF UE (UE WILL NOT BE SET DURING HDR
     4372                            *    READ).
     4373                            * 2. HEADERS WITH A CYLINDER ADR OF 255 ARE WRITTIN FOR CYL 202, HEAD 18
     4374                            *    A SENSE ORDER IS ISSUED TO VERIFY THE SETTING OF VERIFICATION
     4375                            *    ERROR, UE, AND CYL COMPARE ERROR (BYTE 8 OF SENSE DATA).
     4376                            * 3. HEADERS FOR CYL 202 HEAD 19 CONTAIN THE FOLLOWING INFORMATION.
     4377                            *    SECT0 OK, SECT1 OK, SECT2 OK, SECT3 CYL WRONG, SECT4 HEAD WRONG,
     4378                            *    SECT5 SECTOR WRONG.
     4379                            *    HEADER READ AND READ ORDERS ARE ISSUED TO VERIFY THAT CYL, HEAD,
     4380                            *    AND SECTOR COMPARE ERRORS ARE SET (BYTE 8 OF SENSE DATA) AND THAT
     4381                            *    THE ORDERS TERMINATE CORRECTLY AFTER DETECTION OF AN ERRONEOUS
     4382                            *    HEADER.
     4383                            * 4. A COMMAND CHAIN SEQUENCE OF SEEK(CYL 202, HEAD 17, SECT.0),
     4384                            *    HEADER READ, SEEK(CYL. 202, HD 16,SEC. 0),
     4385                            *     AND READ (1024) BYTES IS PREFORMED.

     4387                            * THE ORIGINAL HEADERS WILL BE SAVED AT THE START OF THE TEST AND
     4388                            * RESTORED AT THE END OF THE TEST.

     4389   01 0134E    6AF017B2     T1ST66   BAL,15   TST1TM0           ENTER NORMAL MODE
     4390   01 0134F    6AF0173D              BAL,15   TST1RST           ISSUE RESTORE ORDER
     4391   01 01350    328803CA              LW,8     SYSTLAST,4        FETCH AVAILABLE ENDING ADR
     4392   01 01351    31802B9A              CW,8     #DEFLTS           TEST ENDING ADR
     4393   01 01352    E91004EA              BL       *SEQRETN          EXIT - BYPASS TEST

     4395   01 01353    32802BA9              LW,8     #TSTSHDR
     4396   01 01354    35801466              STW,8    T1ST66SR
     4397   01 01355    20800100 A            AI,8     1**8
     4398   01 01356    35801467              STW,8    T1ST66SK
     4399   01 01357    20800100 A            AI,8     1**8
     4400   01 01358    35801469              STW,8    T1ST66SL

     4402   01 01359    32F02BE9              LW,15   =X'01000000'

     4404   01 0135A    32902B9D              LW,9     #ABSOLC1          COMPUTE BYTES OF HEADER
     4405   01 0135B    23900018 A            MI,9     3*2*4              IN 3 TRACKS
     4406   01 0135C    35901903              STW,9    CDWTS66+3

     4408   01 0135D    32801467              LW,8     T1ST66SK
     4409   01 0135E    25800078 A            SLS,8    -8
     4410   01 0135F    49802BF1              OR,8    =X'FF000000'

     4412   01 01360    32901467              LW,9     T1ST66SK
     4413   01 01361    4B902BED              AND,9    =X'00FFFFFF'

        1*  01 01362    2250141E              LI,5     T1ST66HD                                          *H01
     4415   01 01363    32402B9F              LW,4     #HWINDEX          BUILD HEADERS FOR TRACK 17
        1*  01 01364    95800005 A            STD,8    *5                1. ALL SECTORS FLAWED           *H01
     4417   01 01365    3090000F A            AW,9     15                  2. ALTERNATE ADDR = C 202, H 17
        1*  01 01366    20500002 A            AI,5     2                                                 *H01
        2*  01 01367    65401364              BIR,4    %-3                                               *H01

     4420   01 01368    32801469              LW,8     T1ST66SL
     4421   01 01369    25800078 A            SLS,8    -8
     4422   01 0136A    49802BFB              OR,8    =X'0000FF00'
     4423   01 0136B    22900000 A            LI,9     0

     4425   01 0136C    32402B9F              LW,4     #HWINDEX          BUILD HEADERS FOR TRACK 18
        1*  01 0136D    95800005 A            STD,8    *5                1.  ALL SECTORS WILL CONTAIN    *H01
     4427   01 0136E    3090000F A            AW,9     15                     NON-EXISTANT CYLINDER
        1*  01 0136F    20500002 A            AI,5     2                                                 *H01
        2*  01 01370    6540136D              BIR,4    %-3                                               *H01

     4430   01 01371    32801469              LW,8     T1ST66SL
     4431   01 01372    20800100 A            AI,8     1**8
     4432   01 01373    25800078 A            SLS,8    -8
     4433   01 01374    22900000 A            LI,9     0

     4435   01 01375    32402B9F              LW,4     #HWINDEX          BUILD HEADERS FOR HEAD 19
        1*  01 01376    95800005 A            STD,8    *5                1.  HEADERS FOR SEC 0, 1, 2     *H01
     4437   01 01377    3090000F A            AW,9     15                     WILL BE NORMAL.
        1*  01 01378    20500002 A            AI,5     2                                                 *H01
        2*  01 01379    65401376              BIR,4    %-3                                               *H01

        1*  01 0137A    30502B9F              AW,5     #HWINDEX          POINT BACK TO HEADERS           *H01
        2*  01 0137B    30502B9F              AW,5     #HWINDEX           3, 4, AND 5                    *H01

        4*  01 0137C    22400006 A            LI,4     6                                                 *H01
        5*  01 0137D    22800100 A            LI,8     1**8              INCREMENT CYLINDER BY ONE       *H01
        6*  01 0137E    E6880005 A            AWM,8    *5,4                                              *H01

        8*  01 0137F    22400008 A            LI,4     8                                                 *H01
        9*  01 01380    B3180005 A            MTW,1    *5,4              INCREMENT HEAD BY ONE           *H01

       11*  01 01381    2240000B A            LI,4     11                                                *H01
       12*  01 01382    E6F80005 A            AWM,15   *5,4              INCREMENT SECTOR BY ONE         *H01

     4445   01 01383    6AF01668     T1ST66A  BAL,15   TST1SHDR          B: SAVE HEADERS
     4446   01 01384    6800138B              B        T1ST66B           B: ALL HEADERS SAVED
     4447   01 01385    6AF00535              FAIL     6610,T1ST66A      ** 6610 **
            01 01386    000019D2 A
            01 01387    EAF0021D
            01 01388    2E001388
            01 01389    68001383
     4448   01 0138A    E80004EA              B        *SEQRETN         EXIT

     4450   01 0138B    22000C80     T1ST66B  LI,0     DA(CDWTS66)       IOCD ADR
     4451   01 0138C    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRW)
     4452   01 0138D    22870000 A            LI,8     X'70000'          DELAY CONSTANT
     4453   01 0138E    35802832              STW,8    :IORDYDL
     4454   01 0138F    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4455   01 01390    68001394              B        T1ST66B1          B: CONTR READY
     4456   01 01391    6AF00535              ERROR    6611              ** 6611 **
            01 01392    000019D3 A
     4457   01 01393    68001399              B        T1ST66B2          B: TEST SENSE SW.

     4459   01 01394    6AF028FC     T1ST66B1 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     4460   01 01395    00006010              DATA     BA(TSEQ044)
     4461   01 01396    6800139D              B        T1ST66C           B: STATUS OK
     4462   01 01397    6AF00535              ERROR    6612              ** 6612 **
            01 01398    000019D4 A
     4463   01 01399    EAF0021D     T1ST66B2 SENSE    T1ST66B           SSW1 => LOOP ON ERROR
            01 0139A    2E00139A
            01 0139B    6800138B
     4464   01 0139C    6800141C              B        T1ST66EA          B: RESTORE HEADERS

     4466   01 0139D    224FFFFD A   T1ST66C  LI,4     -3                TEST INDEX
     4467   01 0139E    3288146E     T1ST66C1 LW,8     T1ST66P1+3,4      ADR OF TEST SEQUENSE
     4468   01 0139F    B2900008 A            LW,9     *8                FETCH IOCD ADR
     4469   01 013A0    B2A20008 A            LW,10    *8,1                    ERROR NO
     4470   01 013A1    B2B40008 A            LW,11    *8,2                    TEST SEQ
     4471   01 013A2    35901468              STW,9    T1ST66CD          SAVE  IOCD ADR
     4472   01 013A3    35A013AC              STW,10   T1ST66C3                ERROR NO
     4473   01 013A4    3310000A A            MTW,1    10
     4474   01 013A5    35A013B2              STW,10   T1ST66C6                ERROR NO
     4475   01 013A6    35B013AF              STW,11   T1ST66C5                TEST SEQUENCE

     4477   01 013A7    32001468     T1ST66C2 LW,0     T1ST66CD          FETCH IOCD
     4478   01 013A8    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE OR HDRR OR READ)
     4479   01 013A9    6AF0281F              BAL,15   :IOREADY+3        READY TEST
     4480   01 013AA    680013AE              B        T1ST66C4          B: CONTR READY
     4481   01 013AB    EAF017CF              BAL,15   *:ERROR
     4482   01 013AC    00000000 A   T1ST66C3 DATA     0                 ** 6620,6622,6624
     4483   01 013AD    680013B3              B        T1ST66C7          B: TEST SENSE SW
     4484   01 013AE    6AF028FC     T1ST66C4 BAL,15  :ERRORT            TEST TERMINAL STATUS
     4485   01 013AF    00000000 A   T1ST66C5 DATA     0                 TSEQ053,TSEQ054,TSEQ053
     4486   01 013B0    680013B6              B        T1ST66C8          B: STATUS OK
     4487   01 013B1    EAF017CF              BAL,15   *:ERROR
     4488   01 013B2    00000000 A   T1ST66C6 DATA     0                 ** 6621,6623,6625
     4489   01 013B3    EAF0021D     T1ST66C7 SENSE    T1ST66C2          SSW1 => LOOP ON ERROR
            01 013B4    2E0013B4
            01 013B5    680013A7
     4490   01 013B6    6540139E     T1ST66C8 BIR,4    T1ST66C1          B: NEXT TEST

     4492   01 013B7    22000C88     T1ST66D  LI,0     DA(CDWTS66D)      IOCD ADR
     4493   01 013B8    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/SENSE)
     4494   01 013B9    6AF0281F              BAL,15   :IOREADY+3       READY TEST
     4495   01 013BA    680013BE              B        T1ST66D1          B: CONTR READY
     4496   01 013BB    6AF00535              ERROR    6626              ** 6626 **
            01 013BC    000019E2 A
     4497   01 013BD    680013C3              B        T1ST66D2          B: TEST SENSE SW
     4498   01 013BE    6AF028FC     T1ST66D1 BAL,15   :ERRORT           TEST VERIFICATION ERROR AND UE
     4499   01 013BF    00006064              DATA     BA(TSEQ055)       ( WRONG CYLINDER ADR)
     4500   01 013C0    680013C6              B        T1ST66D3          B: STATUS OK
     4501   01 013C1    6AF00535              ERROR    6627              **  6627 **
            01 013C2    000019E3 A
     4502   01 013C3    EAF0021D     T1ST66D2 SENSE    T1ST66D           SSW1 => LOOP ON ERROR
            01 013C4    2E0013C4
            01 013C5    680013B7
     4503   01 013C6    224FFFF9 A   T1ST66D3 LI,4     -7                INDEX
     4504   01 013C7    3288147E     T1ST66D4 LW,8     T1ST66P2+7,4      ADR OF TEST SEQ
     4505   01 013C8    02200050 A            LCI      5
     4506   01 013C9    AA900008 A            LM,9     *8                FETCH PARAMETERS
     4507   01 013CA    32F02BA3              LW,15    #FILLTRK
     4508   01 013CB    55F00009 A            STH,15   9
     4509   01 013CC    3590146A              STW,9    T1ST66SM          STORE SEEK ADR
     4510   01 013CD    35A01468              STW,10   T1ST66CD                IOCD ADR
     4511   01 013CE    35B013EA              STW,11   T1ST66E1                ERROR NO
     4512   01 013CF    3310000B A            MTW,1    11
     4513   01 013D0    35B013F0              STW,11   T1ST66E3                ERROR NO
     4514   01 013D1    3310000B A            MTW,1    11
     4515   01 013D2    35B01400              STW,11   T1ST66E7                ERROR NO
     4516   01 013D3    35C013ED              STW,12   T1ST66E2+1              TEST SEQUENCE

     4518   01 013D4    32F00332              LW,15    :CDBMX            LOOK AT DEVICE-TYPE INDEX
     4519   01 013D5    683013DB              BEZ      %+6                SKIP IF 7240
     4520   01 013D6    21F00003 A            CI,15    3
     4521   01 013D7    692013DB              BG       %+4               SKIP IF NOT 1032/2032/4032
     4522   01 013D8    33000340              MTW,0    :CDB+1             SKIP IF EMULATING
     4523   01 013D9    693013DB              BNEZ     %+2

     4525   01 013DA    22D06028              LI,13    BA(TSEQ047)       ELSE DONT LOOK AT SB8
     4526   01 013DB    35D013FD              STW,13   T1ST66E6                TEST SEQUENCE

     4528   01 013DC    22000000 A   T1ST66D5 LI,0     0                 CLEAR ERROR
     4529   01 013DD    35001940              STW,0    TESTINDX           CNT
     4530   01 013DE    22000C8A              LI,0     DA(CDWTS66E)      IOCD ADR
     4531   01 013DF    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK
     4532   01 013E0    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4533   01 013E1    680013E5              B        T1ST66E           B: CONTR READY AFTER SEEK
     4534   01 013E2    6AF00535              ERROR    6628              ** 6628 **
            01 013E3    000019E4 A
     4535   01 013E4    68001404              B        T1ST66E9          B: TEST SENSE SW
     4536   01 013E5    32001468     T1ST66E  LW,0     T1ST66CD          IOCD ADR
     4537   01 013E6    6AF027E6              BAL,15   :IOEXEC           START IO (HDRR 4TIMES,READ 3 TIMES)
     4538   01 013E7    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4539   01 013E8    680013EC              B        T1ST66E2          B: CONTR READY
     4540   01 013E9    EAF017CF              BAL,15   *:ERROR
     4541   01 013EA    00000000 A   T1ST66E1 DATA     0                 ** 6630,33,36,39,42,45,48 **
     4542   01 013EB    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     4543   01 013EC    6AF028FC     T1ST66E2 BAL,15   :ERRORT           TEST TERMINAL STATUS
     4544   01 013ED    00000000 A            DATA     0                 TSEQ055,
     4545   01 013EE    680013F2              B        T1ST66E4          B: STATUS OK
     4546   01 013EF    EAF017CF              BAL,15   *:ERROR
     4547   01 013F0    00000000 A   T1ST66E3 DATA     0                 ** 6631,34,37,40,43,46,49 **
     4548   01 013F1    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     4549   01 013F2    22000C2D     T1ST66E4 LI,0     DA(CDWTS17A)      IOCD ADR
     4550   01 013F3    6AF027E6              BAL,15   :IOEXEC           START IO (SENSE)
     4551   01 013F4    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     4552   01 013F5    680013F9              B        T1ST66E5          B: CONTR READY
     4553   01 013F6    6AF00535              ERROR    6629              ** 6629 **
            01 013F7    000019E5 A
     4554   01 013F8    68001404              B        T1ST66E9          B: TEST SENSE SW

     4556   01 013F9    B2D42BAA     T1ST66E5 LW,13    *IOBF1,2          FETCH 3RD WORD OF SENSE DATA
     4557   01 013FA    4BD02BE7              AND,13  =X'FC000000'       BITS 0 - 5 ONLY
     4558   01 013FB    6AF02A92              BAL,15   :SAVESSA          STORE SENSE STATUS
     4559   01 013FC    6AF028FC              BAL,15   :ERRORT           TEST SENSE STATUS (BYTE 8)
     4560   01 013FD    00000000 A   T1ST66E6 DATA     0                 TSEQ056,
     4561   01 013FE    68001402              B        T1ST66E8          B: STATUS OK
     4562   01 013FF    EAF017CF              BAL,15   *:ERROR
     4563   01 01400    00000000 A   T1ST66E7 DATA     0                 ** 6632,35,38,41,44,47,50 **
     4564   01 01401    33101940              MTW,1    TESTINDX          INCR ERROR CNT
     4565   01 01402    33001940     T1ST66E8 MTW,0    TESTINDX          TEST ERROR CNT
     4566   01 01403    68301407              BEZ      %+4               B: NO ERRORS
     4567   01 01404    EAF0021D     T1ST66E9 SENSE    T1ST66D5          SSW1 => LOOP ON ERROR
            01 01405    2E001405
            01 01406    680013DC
     4568   01 01407    654013C7              BIR,4    T1ST66D4          NEXT TEST

     4570   01 01408    33000240 A   T1ST66F  MTW,0    X'240'
     4571   01 01409    6830141C              BEZ      T1ST66EA

     4573   01 0140A    22000C8D     T1ST66F1 LI,0     DA(CDWTS66I)      IOCD ADR
     4574   01 0140B    35002AB8              STW,0    :SAVCOM1          SAVE IOCD ADR
     4575   01 0140C    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRD/CC/SEEK
     4576                            *                                        /CC/READ)
     4577   01 0140D    2280A000 A            LI,8     X'A000'
     4578   01 0140E    35802832              STW,8    :IORDYDL
     4579   01 0140F    6AF0281F              BAL,15   :IOREADY+3        READY TEST
     4580   01 01410    68001414              B        T1ST66F2          B: CONTR READY
     4581   01 01411    6AF00535              ERROR    6660              ** 6660 **
            01 01412    00001A04 A
     4582   01 01413    68001419              B        T1ST66F3          B: TEST SENSE SW.
     4583   01 01414    6AF028FC     T1ST66F2 BAL,15   :ERRORT           TEST NOT UE, NOT FLAW MARK, BYTE
     4584   01 01415    00006098              DATA     BA(TSEQ066)           CNT-0, COMMAND ADR +3.
     4585   01 01416    6800141C              B        T1ST66EA          B: STATUS OK
     4586   01 01417    6AF00535              ERROR    6661              ** 6661 **
            01 01418    00001A05 A
     4587   01 01419    EAF0021D     T1ST66F3 SENSE    T1ST66F1          SSW1 => LOOP ON ERROR
            01 0141A    2E00141A
            01 0141B    6800140A
     4588   01 0141C    6AF0169C     T1ST66EA BAL,15   TST1RHDR          RESTORE ALL HEADERS
     4589   01 0141D    E80004EA              B        *SEQRETN

     4591                                     BOUND    8
     4592   01 0141E                 T1ST66HD RES      12*2
     4593   01 01436                 T1ST66HE RES      12*2
     4594   01 0144E                 T1ST66HF RES      12*2

     4596   01 01466    00000000 A   T1ST66SR DATA     0
     4597   01 01467    00000000 A   T1ST66SK DATA     0
     4598   01 01468    00000000 A   T1ST66CD DATA     0
     4599   01 01469    00000000 A   T1ST66SL DATA     0
     4600   01 0146A    00000000 A   T1ST66SM DATA     0

     4602   01 0146B    0000146E     T1ST66P1 DATA     T1ST66Q1
     4603   01 0146C    00001471              DATA     T1ST66Q1+3
     4604   01 0146D    00001474              DATA     T1ST66Q1+6

     4606   01 0146E    00000C82     T1ST66Q1 DATA     DA(CDWTS66A)      SENSE ORDER
     4607   01 0146F    000019DC A            DATA     6620              ERROR NO
     4608   01 01470    0000605C              DATA     BA(TSEQ053)
     4609   01 01471    00000C84              DATA     DA(CDWTS66B)      HDR READ ORDER
     4610   01 01472    000019DE A            DATA     6622              ERROR NO
     4611   01 01473    00006060              DATA     BA(TSEQ054)
     4612   01 01474    00000C86              DATA     DA(CDWTS66C)      READ ORDER
     4613   01 01475    000019E0 A            DATA     6624              ERROR NO
     4614   01 01476    0000605C              DATA     BA(TSEQ053)

     4616   01 01477    0000147E     T1ST66P2 DATA     T1ST66Q2
     4617   01 01478    00001483              DATA     T1ST66Q3
     4618   01 01479    00001488              DATA     T1ST66Q4
     4619   01 0147A    0000148D              DATA     T1ST66Q5
     4620   01 0147B    00001492              DATA     T1ST66Q6
     4621   01 0147C    00001497              DATA     T1ST66Q7
     4622   01 0147D    0000149C              DATA     T1ST66Q8

     4624   01 0147E    00CA1303 A   T1ST66Q2 DATA     X'00CA1303'       SEEK ADR
     4625   01 0147F    00000C85              DATA     DA(CDWTS66B+2)    HDR READ
     4626   01 01480    000019E6 A            DATA     6630              ERROR NO
     4627   01 01481    00006064              DATA     BA(TSEQ055)
     4628   01 01482    0000606C              DATA     BA(TSEQ056)
     4629   01 01483    00CA1304 A   T1ST66Q3 DATA     X'00CA1304'
     4630   01 01484    00000C85              DATA     DA(CDWTS66B+2)
     4631   01 01485    000019E9 A            DATA     6633
     4632   01 01486    00006064              DATA     BA(TSEQ055)
     4633   01 01487    00006070              DATA     BA(TSEQ057)
     4634   01 01488    00CA1305 A   T1ST66Q4 DATA     X'00CA1305'
     4635   01 01489    00000C85              DATA     DA(CDWTS66B+2)
     4636   01 0148A    000019EC A            DATA     6636
     4637   01 0148B    00006064              DATA     BA(TSEQ055)
     4638   01 0148C    00006074              DATA     BA(TSEQ058)
     4639   01 0148D    00CA1302 A   T1ST66Q5 DATA     X'00CA1302'
     4640   01 0148E    00000C8C              DATA     DA(CDWTS66G)
     4641   01 0148F    000019EF A            DATA     6639
     4642   01 01490    00006078              DATA     BA(TSEQ059)
     4643   01 01491    0000606C              DATA     BA(TSEQ056)
     4644   01 01492    00CA1303 A   T1ST66Q6 DATA     X'00CA1303'
     4645   01 01493    00000C8B              DATA     DA(CDWTS66F)
     4646   01 01494    000019F2 A            DATA     6642
     4647   01 01495    00006078              DATA     BA(TSEQ059)
     4648   01 01496    00006074              DATA     BA(TSEQ058)
     4649   01 01497    00CA1302 A   T1ST66Q7 DATA     X'00CA1302'
     4650   01 01498    00000C87              DATA     DA(CDWTS66C+2)
     4651   01 01499    000019F5 A            DATA     6645
     4652   01 0149A    00006078              DATA     BA(TSEQ059)
     4653   01 0149B    0000606C              DATA     BA(TSEQ056)
     4654   01 0149C    00CA1305 A   T1ST66Q8 DATA     X'00CA1305'
     4655   01 0149D    00000C8B              DATA     DA(CDWTS66F)
     4656   01 0149E    000019F8 A            DATA     6648
     4657   01 0149F    00006078              DATA     BA(TSEQ059)
     4658   01 014A0    00006074              DATA     BA(TSEQ058)
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   74
A    4660                            * TST1,68 WILL VERIFY THAT THE DEVICE-END INTERRUPT (ON A SEEK)
     4661                            * OCCURS ONE SECTOR BEFORE THE TARGET SECTOR IS REACHED

     4663   01 014A1                 T68TAB   RES      10                TRACE TABLE OF SECTORS          *H00

     4665   01 014AB    6AF017B2     T1ST68   BAL,15   TST1TM0           LEAVE TEST MODE
     4666   01 014AC    6AF0173D              BAL,15   TST1RST            AND ISSUE CARRIAGE RESTORE

     4668   01 014AD    324028FA              LW,4     :DELXPSD          CLOCK 4 ZERO                    *H00
     4669   01 014AE    3540005B A            STW,4    X'5B'                                             *H00
     4670   01 014AF    324028FB              LW,4     :DELMTW           CLOCK 4 PULSE                   *H00
     4671   01 014B0    35400055 A            STW,4    X'55'                                             *H00

     4673   01 014B1    22E7FFFF A            LI,14    X'7FFFF'          INITIALIZE MIN                  *H00
     4674   01 014B2    22FFFFFF A            LI,15    X'FFFFF'           AND MAX SECTORS                *H00
     4675   01 014B3    15E014E6              STD,14   T1ST68E                                           *H00

     4677   01 014B4    324014E1              LW,4     T1ST68D           CAPTURE I/O INTERRUPT
     4678   01 014B5    3540005C A            STW,4    X'5C'              LOCALLY

     4680   01 014B6    224FFFF6 A            LI,4     -10               TEST OVER 10 CYLINDERS          *H00
     4681   01 014B7    32802BA2              LW,8     #FILLSEC          LAST SECTOR ON TRACK

     4683   01 014B8    6AF02B0E     T1ST68A  BAL,15   :INTAE
     4684   01 014B9    B5802BAB              STW,8    *IOBUF

     4686   01 014BA    22000A71              LI,0     DA(T1ST68J)
     4687   01 014BB    6AF027E6              BAL,15   :IOEXEC
     4688   01 014BC    22E07530 A            LI,14    30000
     4689   01 014BD    6AF028DD              BAL,15   :DELAY
     4690   01 014BE    680014C6              B        T1ST68B

     4692   01 014BF    6AF02B14              BAL,15   :INTD
     4693   01 014C0    EAF017CF              BAL,15   *:ERROR
     4694   01 014C1    00001A9A A            DATA     6810
     4695   01 014C2    EAF0021D              BAL,15   *:SENSE
     4696   01 014C3    2E000000 A            WAIT,0   0
     4697   01 014C4    680014AB              B        T1ST68
     4698   01 014C5    E80004EA              B        *SEQRETN

     4700   01 014C6    53100008 A   T1ST68B  MTH,1    8
     4701   01 014C7    654014B8              BIR,4    T1ST68A                                           *H00

     4703   01 014C8    6AF02B14              BAL,15   :INTD

     4705   01 014C9    32C02BA2              LW,12    #FILLSEC          COMPUTE GREATEST SECTOR
     4706   01 014CA    20C00001 A            AI,12    1                  DISPLACEMENT BETWEEN SEEK
     4707   01 014CB    38C014E6              SW,12    T1ST68E              AND SENSE SECTORS

     4709   01 014CC    330025B6              MTW,0    DISPFLAG                                          *H00
     4710   01 014CD    693014D0              BNEZ     %+3                                               *H00

     4712   01 014CE    21C00001 A            CI,12    X'1'
     4713   01 014CF    E83004EA              BE       *SEQRETN

     4715   01 014D0    32C014E6              LW,12    T1ST68E           CONVERT MINIMUM                 *H00
     4716   01 014D1    EAF00218              BAL,15   *:HEXC                                            *H00
     4717   01 014D2    55F214DD              STH,15   T1ST68C+1,1                                       *H00

     4719   01 014D3    32C014E7              LW,12    T1ST68E+1         CONVERT MAXIMUM                 *H00
     4720   01 014D4    EAF00218              BAL,15   *:HEXC                                            *H00
     4721   01 014D5    55F014E0              STH,15   T1ST68C+4                                         *H00

     4723   01 014D6    6AF01D6E              BAL,15   DEVADRM
     4724   01 014D7    EAF0021C              BAL,15   *:PRINT
     4725   01 014D8    000014DC              DATA     T1ST68C
     4726   01 014D9    EAF017CF              BAL,15   *:ERROR
     4727   01 014DA    00001AAE A            DATA     6830
     4728   01 014DB    E80004EA              B        *SEQRETN

     4730   01 014DC    11D4C9D5 A   T1ST68C  TEXTC    'MIN: XX,  MAX: XX'                               *H00
            01 014DD    7A40E7E7 A
            01 014DE    6B4040D4 A
            01 014DF    C1E77A40 A
            01 014E0    E7E74040 A
     4731   01 014E1    0F0014E8     T1ST68D  XPSD,0   T1ST68F

     4733                                     BOUND    8

     4735   01 014E2    8300B4CC     T1ST68J  GEN,8,24 X'83',BA(USERPROG+258)
     4736   01 014E3    00000004 A            GEN,8,24 0,4
     4737   01 014E4    0400B4CC     T1ST68K  GEN,8,24 X'04',BA(USERPROG+258)
     4738   01 014E5    0000000A A            GEN,8,24 0,10

     4740   01 014E6    00000000 A   T1ST68E  DATA     X'00000000'
     4741   01 014E7    00000000 A            DATA     X'00000000'

     4743   01 014E8    00000000 A   T1ST68F  DATA     X'00000000'
     4744   01 014E9    00000000 A            DATA     X'00000000'
     4745   01 014EA    000014EC              DATA     %+2
     4746   01 014EB    07000000 A            DATA     X'07000000'

     4748   01 014EC    6EA00000 A            AIO,10   0
     4749   01 014ED    33102B78              MTW,1    :INTRECF

     4751   01 014EE    22000A72              LI,0     DA(T1ST68K)
     4752   01 014EF    6AF027E6              BAL,15   :IOEXEC
     4753   01 014F0    22F0C000 A            LI,15    X'C000'
     4754   01 014F1    35F02832              STW,15   :IORDYDL
     4755   01 014F2    6AF0281F              BAL,15   :IOREADY+3
     4756   01 014F3    680014F7              B        T1ST68G

     4758   01 014F4    EAF017CF              BAL,15   *:ERROR
     4759   01 014F5    00001AA4 A            DATA     6820
     4760   01 014F6    68001500              B        T1ST68I

     4762   01 014F7    22700004 A   T1ST68G  LI,7     X'4'
     4763   01 014F8    F26E2BAB              LB,6     *IOBUF,7

     4765   01 014F9    316014E6              CW,6     T1ST68E           COMPUTE MINIMUM                 *H00
     4766   01 014FA    681014FC              BGE      %+2                                               *H00
     4767   01 014FB    356014E6              STW,6    T1ST68E                                           *H00

     4769   01 014FC    316014E7              CW,6     T1ST68E+1         COMPUTE MAXIMUM                 *H00
     4770   01 014FD    682014FF              BLE      %+2                                               *H00
     4771   01 014FE    356014E7              STW,6    T1ST68E+1                                         *H00

     4773   01 014FF    356814AB              STW,6    T68TAB+10,4       SAVE ABSOLUTE                   *H00

     4775   01 01500    0E3014E8     T1ST68I  LPSD,3   T1ST68F
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   75
A    4777                            * TST1,69 WILL MEASURE THE AVERAGE ROTATIONAL SPEED OF ANY
     4778                            * DISK UNIT CAPABLE OF GENERATING THE DEVICE-END INTERRUPT
     4779                            * RESULTS DISPLAYED IF DISP=ON, ELSE NO TOLERANCE CHECK

     4781         00000055           L55      EQU      X'55'             CLOCK 4 PULSE
     4782         0000005C           L5C      EQU      X'5C'             I/O INTERRUPT                   *H00

     4784   01 01501    6AF028EE     T1ST69   BAL,15   :DELAYD           STOP THE CLOCK
     4785   01 01502    6AF017B2              BAL,15   TST1TM0            ENTER NORMAL MODE
     4786   01 01503    6AF0173D              BAL,15   TST1RST             ISSUE RESTORE ORDER

     4788   01 01504    CF0003E2              HIO,0    *:DEVADDR
     4789   01 01505    32401548              LW,4     L10E7
     4790   01 01506    3540005C A            STW,4    L5C
     4791   01 01507    32401547              LW,4     L10E6
     4792   01 01508    35400055 A            STW,4    L55
     4793   01 01509    22400000 A            LI,4     X'0'
     4794   01 0150A    35401546              STW,4    L10E5
     4795   01 0150B    B5402BAA              STW,4    *IOBF1
     4796   01 0150C    22400065 A            LI,4     X'65'
     4797   01 0150D    35401545              STW,4    L10E4
     4798   01 0150E    6AF02B0E              BAL,15   :INTAE
     4799   01 0150F    22000AB0              LI,0     DA(TST69P0)
     4800   01 01510    6AF027E6              BAL,15   :IOEXEC
     4801   01 01511    33001545     L10A9    MTW,0    L10E4
     4802   01 01512    69301511              BNE      L10A9
     4803   01 01513    CF0003E2              HIO,0    *:DEVADDR
     4804   01 01514    6AF02B14              BAL,15   :INTD
     4805   01 01515    22600000 A            LI,6     X'0'
     4806   01 01516    32701546              LW,7     L10E5
     4807   01 01517    25600301 A            SCD,6    1
     4808   01 01518    36602BFC              DW,6     =100
     4809   01 01519    32C00007 A            LW,12    7
     4810   01 0151A    EAF00217              BAL,15   *:DECC
     4811   01 0151B    35F0153E              STW,15   L10D5+7
     4812   01 0151C    32C00006 A            LW,12    6
     4813   01 0151D    EAF00217              BAL,15   *:DECC
     4814   01 0151E    75F4153F              STB,15   L10D5+8,2
     4815   01 0151F    25F00078 A            SLS,15   -8
     4816   01 01520    75F2153F              STB,15   L10D5+8,1
     4817   01 01521    22600000 A            LI,6     X'0'
     4818   01 01522    32702BFD              LW,7     =60*100*1000*100  1/100 MS IN 1 MINUTE
     4819   01 01523    32801546              LW,8     L10E5
     4820   01 01524    25800001 A            SLS,8    1
     4821   01 01525    36600008 A            DW,6     8

     4823   01 01526    330025B6              MTW,0    DISPFLAG          SINCE LIMITS ARE UNKNOWN AT
     4824   01 01527    E83004EA              BEZ      *SEQRETN           PRESENT, JUST RETURN

     4826   01 01528    32C00007 A   L10C4    LW,12    7
     4827   01 01529    EAF00217              BAL,15   *:DECC
     4828   01 0152A    75F41543              STB,15   L10E0+2,2
     4829   01 0152B    25F00078 A            SLS,15   -8
     4830   01 0152C    75F21543              STB,15   L10E0+2,1
     4831   01 0152D    25F00078 A            SLS,15   -8
     4832   01 0152E    55F21542              STH,15   L10E0+1,1
     4833   01 0152F    EAF00217              BAL,15   *:DECC
     4834   01 01530    55F01542              STH,15   L10E0+1
     4835   01 01531    6AF01D6E              BAL,15   DEVADRM
     4836   01 01532    EAF0021C              BAL,15   *:PRINT
     4837   01 01533    00001537              DATA     L10D5
     4838   01 01534    EAF0021C              BAL,15   *:PRINT
     4839   01 01535    00001541              DATA     L10E0
     4840   01 01536    E80004EA              B        *SEQRETN
     4841   01 01537    27C1E5C5 A   L10D5 TEXTC 'AVERAGE ROTATIONAL SPEED = XXXX.XX MSEC'
            01 01538    D9C1C7C5 A
            01 01539    40D9D6E3 A
            01 0153A    C1E3C9D6 A
            01 0153B    D5C1D340 A
            01 0153C    E2D7C5C5 A
            01 0153D    C4407E40 A
            01 0153E    E7E7E7E7 A
            01 0153F    4BE7E740 A
            01 01540    D4E2C5C3 A
     4842   01 01541    0ED6D940 A   L10E0 TEXTC 'OR XXXX.XX RPM'
            01 01542    E7E7E7E7 A
            01 01543    4BE7E740 A
            01 01544    D9D7D440 A
     4843   01 01545    00000000 A   L10E4    DATA     X'00000000'
     4844   01 01546    00000000 A   L10E5    DATA     X'00000000'
     4845   01 01547    33101546     L10E6    MTW,1    L10E5
     4846   01 01548    0F00154A     L10E7    XPSD,0   L10EA
     4847   01 01549    00000000 A   L10E8    DATA     X'00000000'

     4849                                     BOUND    8
     4850   01 0154A    00000000 A   L10EA    DATA     X'00000000'
     4851   01 0154B    00000000 A            DATA     X'00000000'
     4852   01 0154C    0000154E              DATA     %+2
     4853   01 0154D    07000000 A            DATA     X'07000000'
     4854   01 0154E    6E400000 A            AIO,4    0
     4855   01 0154F    74001549              STCF     L10E8
     4856   01 01550    33001546              MTW,0    L10E5
     4857   01 01551    69301554              BNE      L10F4
     4858   01 01552    22401000 A            LI,4     X'1000'
     4859   01 01553    6D401200 A            WD,4     X'1200'
     4860   01 01554    33F01545     L10F4    MTW,-1   L10E4
     4861   01 01555    69301559              BNE      L10F9
     4862   01 01556    22401000 A            LI,4     X'1000'
     4863   01 01557    6D401100 A            WD,4     X'1100'
     4864   01 01558    0E30154A              LPSD,3   L10EA
     4865   01 01559    70201549     L10F9    LC       L10E8
     4866   01 0155A    6980155D              BCS,8    L10FD
     4867   01 0155B    22000AAF              LI,0     DA(TST69P1)
     4868   01 0155C    6AF027E6              BAL,15   :IOEXEC
     4869   01 0155D    0E30154A     L10FD    LPSD,3   L10EA

     4871                                     BOUND    8
     4872   01 0155E    0400B4CC     TST69P1  GEN,8,24 X'04',BA(USERPROG+258)
     4873   01 0155F    22000010 A            GEN,8,24 X'22',16

     4875   01 01560    8300B0CC     TST69P0  GEN,8,24 X'83',BA(USERPROG+2)
     4876   01 01561    00000004 A            GEN,8,24 X'00',4
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   76
A    4878                            * T1ST70 - DUAL CONTROLLER TEST.
     4879                            * ------ - ---- ---------- -----
     4880                            * AN SIO ORDER IS SEND TO THE FIRST CONTROLLER, WHICH WILL RESERVE
     4881                            * THE DEVICE UNTIL A RELEASE ORDER IS ISSUED. THE SECOND CONTROLLER
     4882                            * WILL NOW TRY TO INFLUENCE THAT DEVICE WHILE THE FIRST CONTROLLER
     4883                            * IS IN BOTH, BUSY AND READY STATE. AFTER THE TEST SEQUENCE IS
     4884                            * COMPLETED, THE SECOND CONTROLLER IS TESTED IN THE SAME WAY.

     4886                            * DEVICE ADDRESSES MUST BE ENTERED WITH THE SYST DIRECTIVE :

     4888                            *        SYST,D1,X2,X3,X4,X5,X6,X7,X8,X9,X10

     4890                            *        WHERE EACH PAIR (X3,X5),(X7,X9) ETC. MUST HAVE THE SAME
     4891                            *        DEVICE ON DIFFERENT  CONTROLLERS. A MINIMUM OF
     4892                            *        1 PAIR MUST BE ENTERED (MAX 4 PAIRS).

     4894                            *        EXAMPLE: SYST,7240,0,F0,202,1F0,202
     4895                            *             OR: SYST,7240,0,F0,202,E0,202

     4897   01 01562    6AF017B2     T1ST70   BAL,15   TST1TM0           ENTER TEST MODE 0
     4898   01 01563    33002BA5              MTW,0    #RLSOPT
     4899   01 01564    E83004EA              BEZ     *SEQRETN           B:  RELEASE OPTION NOT AVAILABLE
     4900   01 01565    324003E2              LW,4     :DEVADDR
     4901   01 01566    35401601              STW,4    T70SAVDV
     4902   01 01567    324003E4              LW,4     DEVNO             GET NO OF DEV ADR
     4903   01 01568    35401600              STW,4    T70DEVNO
     4904   01 01569    21400002 A            CI,4     2
     4905   01 0156A    6810156E              BGE      %+4               B: IF 2 OR MORE ADDRESSES
     4906   01 0156B    6AF00535              ERROR    7010              ** 7010 **
            01 0156C    00001B62 A
     4907   01 0156D    E8000214              B        *:MONITOR
     4908   01 0156E    6AF0170F              BAL,15   TST1DATA          SPREAD PATTERN
     4909   01 0156F    32402B7A              LW,4     :INTSVXP          INIT.
     4910   01 01570    3540005C A            STW,4    X'5C'               IO INT LOC
     4911   01 01571    324015E9              LW,4     T70XPSD           INIT.
     4912   01 01572    3540005B A            STW,4    X'5B'               CNT PULSE LOC
     4913   01 01573    324028FB              LW,4     :DELMTW           LOAD
     4914   01 01574    35400055 A            STW,4    X'55'               DELAY MTW
     4915   01 01575    22000000 A            LI,0     0                 ZERO TO
     4916   01 01576    3500160A              STW,0    T1ST70SK            SEEK ADR
     4917   01 01577    35001602              STW,0    T70DEVX             DEVICE TAB INDEX
     4918   01 01578    35001605     T1ST70A  STW,0    T70FTF              FIRST TIME FLAG
     4919   01 01579    32601602              LW,6     T70DEVX           GET DEV INDEX
     4920   01 0157A    124C03BA              LD,4     SYSTDEVA,6        FETCH 2 DEV ADDRESSES
     4921   01 0157B    154015FE              STD,4    T70DEV1             AND STORE IN DEV1 AND DEV2
     4922   01 0157C    354003E2     T1ST70B  STW,4    :DEVADDR
     4923   01 0157D    6AF02B1A              BAL,15   :INTADRC          CLEAR INTERRUPT ADR TABLE
     4924   01 0157E    6AF02B2B              BAL,15   :INTADRS
     4925   01 0157F    22000C91              LI,0     DA(CDWTS70)       RELEASE ORDER
     4926   01 01580    CCC015FF              SIO,12   *T70DEV2          RELEASE DEV2
     4927   01 01581    68C01586              BCR,12   %+5
     4928   01 01582    6AF015DC              BAL,15   T70DARM           DISARM INTERRUPTS
     4929   01 01583    6AF00535              ERROR    7011              ** 7011 **
            01 01584    00001B63 A
     4930   01 01585    680015E4              B        T70STAT
     4931   01 01586    226FFFFE A            LI,6     -2
     4932   01 01587    65601587              BIR,6    %                 DELAY BEFORE NEXT SIO
     4933   01 01588    CCC015FE              SIO,12   *T70DEV1          RELEASE DEV1
     4934   01 01589    68C0158E              BCR,12   %+5
     4935   01 0158A    6AF015DC              BAL,15   T70DARM           DISARM INTERRUPTS
     4936   01 0158B    6AF00535              ERROR    7012              ** 7012 **
            01 0158C    00001B64 A
     4937   01 0158D    680015E4              B        T70STAT
     4938   01 0158E    226FFFF9 A            LI,6     -7                TABLE 1 INDEX
     4939   01 0158F    22000000 A   T1ST70C  LI,0     0
     4940   01 01590    35001603              STW,0    T70IO2FF          RESET FIRST TIME TAB 2 FLAG
     4941   01 01591    35001604              STW,0    T70IO2SF          RESET SECOND TIME TAB 2 FLAG
     4942   01 01592    225FFFFC A   T1ST70D  LI,5     -4                TABLE 2 INDEX
     4943   01 01593    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLE IO INT
     4944   01 01594    22400064 A            LI,4     100               200 MSEC DELAY
     4945   01 01595    354028F2              STW,4    :DELTIME
     4946   01 01596    6AF028EA              BAL,15   :DELAYAE          ARM AND ENABLE COUNT PULSE INT
     4947   01 01597    320C15F5              LW,0     T70TAB1+7,6       LOAD DA(IOCD)
     4948   01 01598    CCC015FE              SIO,12   *T70DEV1          START IO
     4949   01 01599    68C0159E              BCR,12   %+5
     4950   01 0159A    6AF015DC              BAL,15   T70DARM           DISARM INTERRUPTS
     4951   01 0159B    6AF00535              ERROR    7013              ** 7013 **
            01 0159C    00001B65 A
     4952   01 0159D    680015E4              B        T70STAT
     4953   01 0159E    22000C9E     T1ST70E  LI,0     DA(CDWTS70H)
     4954   01 0159F    670A15F9              EXU      T70TAB2+4,5       EXECUTE SIO, HIO, TIO, TDV
     4955   01 015A0    7404000D A            STCF     13,2              SAVE COND CODE
     4956   01 015A1    4BD02BFE              AND,13   =X'6000C000'      MASK
     4957   01 015A2    670A15FD              EXU      T70TAB3+4,5       COMPARE
     4958   01 015A3    683015AA              BE       %+7
     4959   01 015A4    324A15FD              LW,4     T70TAB3+4,5
     4960   01 015A5    B2400004 A            LW,4     *4                GET MASK
     4961   01 015A6    6AF015DD              BAL,15   T70DARM+1
     4962   01 015A7    6AF00535              ERROR    7014              ** 7014 **
            01 015A8    00001B66 A
     4963   01 015A9    680015E4              B        T70STAT
     4964   01 015AA    22F00020 A            LI,15    X'20'             ARM AND ENABLE
     4965   01 015AB    6DF01200 A            WD,15    X'1200'           IO INTERRUPT
     4966   01 015AC    33002B78              MTW,0    :INTRECF
     4967   01 015AD    683015C6              BEZ      T1ST70H           B: INT NOT RECEIVED
     4968   01 015AE    6AF028EE     T1ST70F  BAL,15   :DELAYD           DISARM CNT PULSE INT
     4969   01 015AF    22000000 A            LI,0     0
     4970   01 015B0    35002B78              STW,0    :INTRECF          RESET FLAG
     4971   01 015B1    33001603              MTW,0    T70IO2FF
     4972   01 015B2    68301593              BEZ      T1ST70D+1         LOOP UNTIL TAB 2 IS EXECUTED ONCE
     4973   01 015B3    33001604              MTW,0    T70IO2SF
     4974   01 015B4    683015CC              BEZ      T1ST70I           LOOP UNTIL TAB 2 IS EXECUTED TWICE
     4975   01 015B5    6560158F              BIR,6    T1ST70C           LOOP UNTIL TAB 1 FINISHED
     4976   01 015B6    324015FE              LW,4     T70DEV1           REVERSE
     4977   01 015B7    464015FF              XW,4     T70DEV2             BOTH
     4978   01 015B8    354015FE              STW,4    T70DEV1               DEV ADDRESSES
     4979   01 015B9    33001605              MTW,0    T70FTF            HAVE BOTH CONTROLLERS BEEN TESTED
     4980   01 015BA    693015BD              BNEZ     %+3               B: YES
     4981   01 015BB    35101605              STW,1    T70FTF            SET FIRST TIME FLAG
     4982   01 015BC    6800157C              B        T1ST70B           B: TEST OTHER CONT
     4983   01 015BD    22000000 A            LI,0     0
     4984   01 015BE    33101602              MTW,1    T70DEVX           INCR DEV INDEX
     4985   01 015BF    33E01600              MTW,-2   T70DEVNO          SUB 2 FROM DEV COUNT
     4986   01 015C0    32401600              LW,4     T70DEVNO
     4987   01 015C1    21400002 A            CI,4     2
     4988   01 015C2    68101578              BGE      T1ST70A           B: IF AT LEAST 2 MORE ADDRESSES
     4989   01 015C3    32401601     T1ST70G  LW,4     T70SAVDV
     4990   01 015C4    354003E2              STW,4    :DEVADDR          RESTORE :DEVADR
     4991   01 015C5    E80004EA              B        *SEQRETN
     4992   01 015C6    6550159E     T1ST70H  BIR,5    T1ST70E           B: LOOP ON TAB 2
     4993   01 015C7    35101603              STW,1    T70IO2FF
     4994   01 015C8    33001604              MTW,0    T70IO2SF
     4995   01 015C9    693015AE              BNEZ     T1ST70F
     4996   01 015CA    225FFFFC A            LI,5     -4                RESET TAB 2 INDEX
     4997   01 015CB    6800159E              B        T1ST70E
     4998   01 015CC    35101604     T1ST70I  STW,1    T70IO2SF
     4999   01 015CD    225FFFFC A            LI,5     -4                RESET TAB 2 INDEX
     5000   01 015CE    6800159E              B        T1ST70E
     5001   01 015CF    CF0015FE     T70DTO   HIO,0    *T70DEV1          STOP BOTH
     5002   01 015D0    CF0015FF              HIO,0    *T70DEV2            DEVICES
     5003   01 015D1    6AF02B14              BAL,15   :INTD             DISARM IO INT
     5004   01 015D2    6AF028EE              BAL,15   :DELAYD           DISARM CNT PULSE INT
     5005   01 015D3    3200193E              LW,0     DA(CDWTS70I)
     5006   01 015D4    CCC015FE              SIO,12   *T70DEV1          RESTORE CARRIAGE
     5007   01 015D5    CCC015FF              SIO,12   *T70DEV2
     5008   01 015D6    6AF00535              ERROR    7015              ** 7015 **
            01 015D7    00001B67 A
     5009   01 015D8    EAF0021D     T70SENSE SENSE    T1ST70D           SSW1 => LOOP ON ERROR
            01 015D9    2E0015D9
            01 015DA    68001592
     5010   01 015DB    680015C3              B        T1ST70G           EXIT

     5012   01 015DC    32402BFF     T70DARM  LW,4     =X'10000000'      DEV AUTOM.
     5013   01 015DD    354015E6              STW,4    T70STAT+2
     5014   01 015DE    35F01606              STW,15   T70RETN           SAVE RETURN ADR.
     5015   01 015DF    35D027E5              STW,13   :STATUSCC         SAVE STATUS
     5016   01 015E0    740427E5              STCF     :STATUSCC,2       SAVE CONDITION CODE
     5017   01 015E1    6AF028EE              BAL,15   :DELAYD           DISARM
     5018   01 015E2    6AF02B14              BAL,15   :INTD               INTERRUPTS
     5019   01 015E3    E8001606              B        *T70RETN

     5021   01 015E4    6AF026C4     T70STAT  BAL,15   :SIO1
     5022   01 015E5    FFFFC000 A            DATA     X'FFFFC000'       MASK
     5023   01 015E6    00000000 A            DATA     0
     5024   01 015E7    680015E8              B        %+1
     5025   01 015E8    680015D8              B        T70SENSE          B: TEST SS
     5026   01 015E9    0F0015EA     T70XPSD   XPSD,0  T70CTO
     5027                                     BOUND    8
     5028   01 015EA    00000000 A   T70CTO   DATA     0,0
            01 015EB    00000000 A
     5029   01 015EC    000015CF              DATA     T70DTO,0
            01 015ED    00000000 A

     5031   01 015EE    00000C92     T70TAB1  DATA     DA(CDWTS70A)
     5032   01 015EF    00000C93              DATA     DA(CDWTS70B)
     5033   01 015F0    00000C94              DATA     DA(CDWTS70C)
     5034   01 015F1    00000C96              DATA     DA(CDWTS70D)
     5035   01 015F2    00000C98              DATA     DA(CDWTS70E)
     5036   01 015F3    00000C9A              DATA     DA(CDWTS70F)
     5037   01 015F4    00000C9C              DATA     DA(CDWTS70G)

     5039   01 015F5    CCC015FF     T70TAB2  SIO,12   *T70DEV2
     5040   01 015F6    CFC015FF              HIO,12   *T70DEV2
     5041   01 015F7    CDC015FF              TIO,12   *T70DEV2
     5042   01 015F8    CEC015FF              TDV,12   *T70DEV2

     5044   01 015F9    31D02C00     T70TAB3  CW,13    =X'40004000'      STAT BIT 1T, CC1+2 = 01
     5045   01 015FA    31D02C01              CW,13    =X'40000000'      STAT BIT 1T, CC1+2 = 00
     5046   01 015FB    31D02C00              CW,13    =X'40004000'      STAT BIT 1T, CC1+2 = 01
     5047   01 015FC    31D02C02              CW,13    =X'00000000'      STAT BIT 1F, CC1+2 = 00

     5049                                     BOUND    8
     5050   01 015FE    00000000 A   T70DEV1  DATA     0
     5051   01 015FF    00000000 A   T70DEV2  DATA     0
     5052   01 01600    00000000 A   T70DEVNO DATA     0
     5053   01 01601    00000000 A   T70SAVDV DATA     0
     5054   01 01602    00000000 A   T70DEVX  DATA     0
     5055   01 01603    00000000 A   T70IO2FF DATA     0
     5056   01 01604    00000000 A   T70IO2SF DATA     0
     5057   01 01605    00000000 A   T70FTF   DATA     0
     5058   01 01606    00000000 A   T70RETN  DATA     0
     5059   01 01607    00000000 A   T1ST70SS DATA     0,0,0             SENSE BUFFER
            01 01608    00000000 A
            01 01609    00000000 A
     5060   01 0160A    00000000 A   T1ST70SK DATA     0                 SEEK  BUFFER

        2*                           * TST1,71 WILL TEST ON-SECTOR INTERRUPT TIMING OVER ENTIRE TRACK    *H02

        4*  01 0160B    6AF017B2     T1ST71   BAL,15   TST1TM0           CLEAR TEST MODE                 *H02
        5*  01 0160C    6AF0173D              BAL,15   TST1RST            AND RESTORE CARRIAGE           *H02

        7*  01 0160D    324028FA              LW,4     :DELXPSD          COUNTER 4 EQUALS ZERO           *H02
        8*  01 0160E    3540005B A            STW,4    X'5B'                                             *H02
        9*  01 0160F    324028FB              LW,4     :DELMTW           COUNTER 4 PULSE                 *H02
       10*  01 01610    35400055 A            STW,4    X'55'                                             *H02
       11*  01 01611    324014E1              LW,4     T1ST68D           I/O INTERRUPT                   *H02
       12*  01 01612    3540005C A            STW,4    X'5C'                                             *H02

       14*  01 01613    3A502BA2              LCW,5    #FILLSEC          NUMBER OF SECTORS               *H02
       15*  01 01614    205FFFFF A            AI,5     -1                 PER TRACK                      *H02
       16*  01 01615    22800000 A            LI,8     0                                                 *H02

       18*  01 01616    224FFFF6 A   T1ST71A  LI,4     -10               AVERAGE OVER 10 CYLINDERS       *H02

       20*  01 01617    22000000 A            LI,0     0                 CLEAR CYLINDER                  *H02
       21*  01 01618    55000008 A            STH,0    8                  PART OF SEEK DATA              *H02

       23*  01 01619    22E7FFFF A            LI,14    X'7FFFF'          SET MIN AND MAX                 *H02
       24*  01 0161A    22FFFFFF A            LI,15    X'FFFFF'                                          *H02
       25*  01 0161B    15E014E6              STD,14   T1ST68E                                           *H02

       27*  01 0161C    B5802BAB     T1ST71B  STW,8    *IOBUF            SAVE SEEK DATA                  *H02

       29*  01 0161D    6AF02B0E              BAL,15   :INTAE            SET I/O INTERRUPT               *H02

       31*  01 0161E    22000A71              LI,0     DA(T1ST68J)       SEEK MODIFIED                   *H02
       32*  01 0161F    6AF027E6              BAL,15   :IOEXEC                                           *H02

       34*  01 01620    22E00BB8 A            LI,14    3000              WAIT THREE SECONDS              *H02
       35*  01 01621    6AF028DD              BAL,15   :DELAY             FOR SEEK INTERRUPT             *H02
       36*  01 01622    6800162A              B        T1ST71C             SKIP IF ARRIVED IN TIME       *H02

       38*  01 01623    6AF02B14              BAL,15   :INTD             STOP ANY I/O INTERRUPTION       *H02

       40*  01 01624    6AF00535              BAL,15   GENERR            ISSUE ERROR MESSAGES            *H02
       41*  01 01625    00001BBD A            DATA     7101                                              *H02

       43*  01 01626    EAF0021D              BAL,15   *:SENSE           BRANCH ON SENSE                 *H02
       44*  01 01627    2E001627              WAIT     %                  SWITCH SETTING                 *H02
       45*  01 01628    6800161C              B        T1ST71B                                           *H02
       46*  01 01629    E80004EA              B        *SEQRETN                                          *H02

       48*  01 0162A    53100008 A   T1ST71C  MTH,1    8                 MOVE TO NEXT CYLINDER           *H02
       49*  01 0162B    6540161C              BIR,4    T1ST71B            BUT KEEP SAME SECTOR           *H02

       51*  01 0162C    12E014E6              LD,14    T1ST68E           GET MIN MAX SECTORS             *H02
       52*  01 0162D    35EA1658              STW,14   T71TABL+16,5       SAVE IN VARIOUS TABLES         *H02
       53*  01 0162E    35FA1668              STW,15   T71TABH+16,5                                      *H02

       55*  01 0162F    20800001 A            AI,8     1                 ADVANCE TO NEXT SECTOR          *H02

       57*  01 01630    65501616              BIR,5    T1ST71A           CONTINUE ACROSS ENTIRE TRACK    *H02

       59*  01 01631    3A502BA2              LCW,5    #FILLSEC          PREPARE TO DISPLAY              *H02
       60*  01 01632    205FFFFF A            AI,5     -1                 THE TABLES                     *H02

       62*  01 01633    32C00005 A   T1ST71D  LW,12    5                 FIRST THE SECTOR                *H02
       63*  01 01634    30C02BA2              AW,12    #FILLSEC                                          *H02
       64*  01 01635    20C00001 A            AI,12    1                                                 *H02
       65*  01 01636    EAF00218              BAL,15   *:HEXC                                            *H02
       66*  01 01637    55F21643              STH,15   M78+1,1                                           *H02

       68*  01 01638    32CA1658              LW,12    T71TABL+16,5      THEN THE MINIMUM SECTOR         *H02
       69*  01 01639    EAF00218              BAL,15   *:HEXC                                            *H02
       70*  01 0163A    55F21645              STH,15   M78+3,1                                           *H02

       72*  01 0163B    32CA1668              LW,12    T71TABH+16,5      LAST THE MAXIMUM SECTOR         *H02
       73*  01 0163C    EAF00218              BAL,15   *:HEXC                                            *H02
       74*  01 0163D    55F21647              STH,15   M78+5,1                                           *H02

       76*  01 0163E    EAF0021C              BAL,15   *:PRINT                                           *H02
       77*  01 0163F    00001642              DATA     M78                                               *H02

       79*  01 01640    65501633              BIR,5    T1ST71D           LOOP FOR ALL ENTRIES            *H02

       81*  01 01641    E80004EA              B        *SEQRETN                                          *H02

       83*  01 01642    17E2C5C3 A   M78      TEXTC    'SEC: XX MIN: XX MAX: XX'                         *H02
            01 01643    7A40E7E7 A
            01 01644    40D4C9D5 A
            01 01645    7A40E7E7 A
            01 01646    40D4C1E7 A
            01 01647    7A40E7E7 A

       85*  01 01648                 T71TABL  RES      16                                                *H02
       86*  01 01658                 T71TABH  RES      16                                                *H02
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   77
A    5062                            *        ** TST1SHDR **

     5064                            * THIS ROUTINE WILL SAVE HDRS OF HEADS 16 THRU 19,CYLINDER 202.
     5065                            * THE INFORMATION WILL BE STORED AT IOBF1+200.

     5067   01 01668    35F016D3     TST1SHDR STW,15   TST1SHDX          SAVE RETURN
     5068   01 01669    22000000 A            LI,0     0                 RESET LOOP
     5069   01 0166A    35001940              STW,0    TESTINDX            FLAG

     5071   01 0166B    32002B9D              LW,0     #ABSOLC1          COMPUTE NUMBER OF BYTES         *H00
     5072   01 0166C    25000005 A            SLS,0    1+2+2              IN FOUR TRACKS OF HEADERS      *H00
     5073   01 0166D    350016D7              STW,0    CDWSHDR+3                                         *H00
     5074   01 0166E    350016DB              STW,0    CDWRHDR+3                                         *H00


     5077   01 0166F    22000B6A     TST1SHD0 LI,0     DA(CDWSHDR)       IOCD ADR
     5078   01 01670    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRR - 24 SECTORS)
     5079   01 01671    22070000 A            LI,0     X'70000'          DELAY
     5080   01 01672    35002832              STW,0    :IORDYDL            CONSTANT
     5081   01 01673    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     5082   01 01674    6800167C              B        TST1SHD2          B: CONTR READY
     5083   01 01675    6AF00535              ERROR    8600              ** 8600 **
            01 01676    00002198 A
     5084   01 01677    EAF0021D     TST1SHD1 SENSE    TST1SHDR+1        SSW1 => LOOP ON ERROR
            01 01678    2E001678
            01 01679    68001669
     5085   01 0167A    32F016D3              LW,15    TST1SHDX
     5086   01 0167B    E802000F A            B       *15,1              EXIT+1    -
     5087   01 0167C    6AF028FC     TST1SHD2 BAL,15   :ERRORT           TEST NORMAL TERMINATION
     5088   01 0167D    00006010              DATA     BA(TSEQ044)
     5089   01 0167E    68001682              B        TST1SHD3          B: STATUS OK
     5090   01 0167F    6AF00535              ERROR    8601              ** 8601 **
            01 01680    00002199 A
     5091   01 01681    68001677              B        TST1SHD1          TEST SENSE SW.
     5092   01 01682    33001940     TST1SHD3 MTW,0    TESTINDX          TEST LOOP FLAG
     5093   01 01683    69301692              BNEZ     TST1SHD4          B: 2ND TIME
     5094   01 01684    33101940              MTW,1    TESTINDX          SET FLAG

     5096   01 01685    32802BAA              LW,8     IOBF1
     5097   01 01686    32902BAA              LW,9     IOBF1             COMPUTE

     5099   01 01687    32502B9D              LW,5     #ABSOLC1                                          *H00
     5100   01 01688    25500003 A            SLS,5    1+2                                               *H00
     5101   01 01689    30800005 A            AW,8     5                                                 *H00
     5102   01 0168A    30900005 A            AW,9     5                                                 *H00
     5103   01 0168B    20800200 A            AI,8     256+256+0                                         *H00
     5104   01 0168C    20900264 A            AI,9     256+256+100                                       *H00

     5106   01 0168D    3A400005 A            LCW,4    5                                                 *H00

     5108   01 0168E    B2A80008 A            LW,10    *8,4              MOVE 48 WORDS FROM
     5109   01 0168F    B5A80009 A            STW,10   *9,4                IOBF1+100 TO IOBF1+200
     5110   01 01690    6540168E              BIR,4    %-2
     5111   01 01691    6800166F              B        TST1SHD0          READ HEADERS A 2ND TIME

     5113   01 01692    3A400005 A   TST1SHD4 LCW,4    5                                                 *H00
     5114   01 01693    B2A80008 A            LW,10    *8,4              COMPARE
     5115   01 01694    B1A80009 A            CW,10    *9,4                BUFFERS
     5116   01 01695    69301699              BNE      TST1SHD5          B: COMPARE ERROR
     5117   01 01696    65401693              BIR,4    %-3               LOOP
     5118   01 01697    32F016D3              LW,15    TST1SHDX          RESTORE R15
     5119   01 01698    E800000F A            B        *15               EXIT

     5121   01 01699    6AF00535     TST1SHD5 ERROR    8602              ** 8602 **
            01 0169A    0000219A A
     5122   01 0169B    68001677              B        TST1SHD1          TEST SENSE SW.
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   78
A    5124                            *        ** TST1RHDR **

     5126                            * THIS ROUTINE WILL RESTORE HDRS OF HEADS 16 THRU 19, CYLINDER 202 FROM
     5127                            * INFORMATION STORED AT IOBF1+200.

     5129   01 0169C    35F016D3     TST1RHDR STW,15   TST1SHDX          SAVE RETURN
     5130   01 0169D    22000B6C              LI,0     DA(CDWRHDR)       IOCD ADR
     5131   01 0169E    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRW - 24 SECTORS)
     5132   01 0169F    22870000 A            LI,8     X'70000'          DELAY
     5133   01 016A0    35802832              STW,8    :IORDYDL            CONSTANT
     5134   01 016A1    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     5135   01 016A2    680016AA              B        TST1RHD2          B: CONTR READY
     5136   01 016A3    6AF00535              ERROR    8610              ** 8610 **
            01 016A4    000021A2 A
     5137   01 016A5    EAF0021C     TST1RHD1 BAL,15   *:PRINT
     5138   01 016A6    000016DC              DATA     TST1RHDM          PRINT MSG
     5139   01 016A7    EAF0021C              BAL,15   *:PRINT             RESTORE OPERATION NOT SUCCESSFUL
     5140   01 016A8    000016EA              DATA     TST1RHDN
     5141   01 016A9    6800169D              B        TST1RHDR+1        LOOP
     5142   01 016AA    6AF028FC     TST1RHD2 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     5143   01 016AB    00006010              DATA     BA(TSEQ044)
     5144   01 016AC    680016B0              B        TST1RHD3          B: STATUS OK
     5145   01 016AD    6AF00535              ERROR    8611              ** 8611 **
            01 016AE    000021A3 A
     5146   01 016AF    680016A5              B        TST1RHD1          B: PRINT WARNING

     5148   01 016B0    32802BAA     TST1RHD3 LW,8     IOBF1
     5149   01 016B1    32902BAA              LW,9     IOBF1             COMPUTE

     5151   01 016B2    32502B9D              LW,5     #ABSOLC1                                          *H00
     5152   01 016B3    25500003 A            SLS,5    1+2                                               *H00
     5153   01 016B4    30800005 A            AW,8     5                                                 *H00
     5154   01 016B5    30900005 A            AW,9     5                                                 *H00
     5155   01 016B6    20800200 A            AI,8     256+256+0                                         *H00
     5156   01 016B7    20900264 A            AI,9     256+256+100                                       *H00

     5158   01 016B8    3A400005 A            LCW,4    5                                                 *H00

     5160   01 016B9    22AFFFFF A            LI,10    -1
     5161   01 016BA    B5A80008 A            STW,10   *8,4              INITIALIZE INPUT BUFFER
     5162   01 016BB    654016BA              BIR,4    %-1

     5164   01 016BC    22000B6A              LI,0     DA(CDWSHDR)       IOCD ADR
     5165   01 016BD    6AF027E6              BAL,15   :IOEXEC           START IO (SEEK/CC/HDRR - 24 SECTORS)
     5166   01 016BE    6AF0281F              BAL,15   :IOREADY+3        READY TEST (ALT)
     5167   01 016BF    680016C3              B        TST1RHD4          B: CONTR READY
     5168   01 016C0    6AF00535              ERROR    8612              ** 8612 **
            01 016C1    000021A4 A
     5169   01 016C2    680016A5              B        TST1RHD1          B: PRINT WARNING

     5171   01 016C3    6AF028FC     TST1RHD4 BAL,15   :ERRORT           TEST FOR NORMAL TERMINATION
     5172   01 016C4    00006010              DATA     BA(TSEQ044)
     5173   01 016C5    680016C9              B        TST1RHD5          B: STATUS OK
     5174   01 016C6    6AF00535              ERROR    8613              ** 8613 **
            01 016C7    000021A5 A
     5175   01 016C8    680016A5              B        TST1RHD1          B: PRINT WARNING

     5177   01 016C9    3A400005 A   TST1RHD5 LCW,4    5                                                 *H00
     5178   01 016CA    B2A80008 A            LW,10    *8,4              COMPARE BUFFERS
     5179   01 016CB    B1A80009 A            CW,10    *9,4
     5180   01 016CC    693016D0              BNE      TST1RHD6          B: COMPARE ERROR
     5181   01 016CD    654016CA              BIR,4    %-3               LOOP
     5182   01 016CE    32F016D3              LW,15    TST1SHDX          RESTORE R15
     5183   01 016CF    E800000F A            B        *15               EXIT

     5185   01 016D0    6AF00535     TST1RHD6 ERROR    8614              ** 8614 **
            01 016D1    000021A6 A
     5186   01 016D2    680016A5              B        TST1RHD1          B: PRINT WARNING

     5188   01 016D3    00000000 A   TST1SHDX DATA     0                 RETURN ADR

     5190                                     BOUND    8
     5191   01 016D4    0300AEA4 N   CDWSHDR  GEN,8,24,8,24  X'03',BA(#TSTSHDR),X'20',4
                        20000004
     5192   01 016D6    0A00B8CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258+256+0),0,0            *H00
                        00000000
     5193   01 016D8    0300AEA4 N   CDWRHDR  GEN,8,24,8,24  X'03',BA(#TSTSHDR),X'20',4
                        20000004
     5194   01 016DA    0900BA5C N            GEN,8,24,8,24  X'09',BA(USERPROG+258+256+100),0,0          *H00
                        00000000
     5195   01 016DC    36E6C1D9 A   TST1RHDM TEXTC 'WARNING - HEADERS DESTROYED ON LAST CYLINDER, HD 16-19'
            01 016DD    D5C9D5C7 A
            01 016DE    406040C8 A
            01 016DF    C5C1C4C5 A
            01 016E0    D9E240C4 A
            01 016E1    C5E2E3D9 A
            01 016E2    D6E8C5C4 A
            01 016E3    40D6D540 A
            01 016E4    D3C1E2E3 A
            01 016E5    40C3E8D3 A
            01 016E6    C9D5C4C5 A
            01 016E7    D96B40C8 A
            01 016E8    C440F1F6 A
            01 016E9    60F1F940 A
     5196   01 016EA    33E3C5E2 A   TST1RHDN TEXTC    'TEST WILL REMAIN IN LOOP UNTIL HEADERS ARE RESTORED'
            01 016EB    E340E6C9 A
            01 016EC    D3D340D9 A
            01 016ED    C5D4C1C9 A
            01 016EE    D540C9D5 A
            01 016EF    40D3D6D6 A
            01 016F0    D740E4D5 A
            01 016F1    E3C9D340 A
            01 016F2    C8C5C1C4 A
            01 016F3    C5D9E240 A
            01 016F4    C1D9C540 A
            01 016F5    D9C5E2E3 A
            01 016F6    D6D9C5C4 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   79
A    5198                            *                 *** BYTE COUNT ERROR MSG ***

     5200                            * THIS ROUTINE PRINTS AN ERROR MSG. INDICATING THE STARTING AND ENDING
     5201                            * BYTE COUNT

     5203                            * R7 (16-31) STARTING BYTE CNT
     5204                            * R13(16-31) REMAINING BYTE CNT

     5206   01 016F7    35F01704     TST1BC   STW,15   TST1BCX           SAVE EXIT ADR
     5207   01 016F8    52C2000D A            LH,12    13,1              FETCH REMAINING BC
     5208   01 016F9    681016FC              BGEZ     %+3               B: BYTE CNT => 0
     5209   01 016FA    32F02C03              LW,15   ='NEG.'            NEGATIVE BYTE CNT
     5210   01 016FB    680016FD              B        %+2
     5211   01 016FC    EAF00217              BAL,15   *:DECC            CONVERT BC
     5212   01 016FD    35F0170E              STW,15   TST1BCM+9         STORE IN MSG.
     5213   01 016FE    52C20007 A            LH,12    7,1               FETCH START. BC
     5214   01 016FF    EAF00217              BAL,15   *:DECC            CONVERT BC
     5215   01 01700    35F01709              STW,15   TST1BCM+4         STORE IN MSG.
     5216   01 01701    EAF0021C              BAL,15   *:PRINT           PRINT
     5217   01 01702    00001705              DATA     TST1BCM           MSG ADR
     5218   01 01703    E8001704              B        *TST1BCX          EXIT

     5220   01 01704    00000000 A   TST1BCX  DATA     0                 EXIT ADR
     5221   01 01705    27E2E3C1 A   TST1BCM  TEXTC    'START BYTE CNT XXXX FINAL BYTE CNT XXXX'
            01 01706    D9E340C2 A
            01 01707    E8E3C540 A
            01 01708    C3D5E340 A
            01 01709    E7E7E7E7 A
            01 0170A    40C6C9D5 A
            01 0170B    C1D340C2 A
            01 0170C    E8E3C540 A
            01 0170D    C3D5E340 A
            01 0170E    E7E7E7E7 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   80
A    5223                            *        *** TST1DATA **

     5225                            * THIS ROUTINE GENERATES A 256 WORD PATTERN STARTING AT :IOBUF TO BE
     5226                            * USED IN TEST MODE 2

     5228                            * BYTE 0  = 224, BYTE 1 = 225, BYTE 1023 = 223.

     5230                            * THE COMPARE ROUTINE IS INITIALIZED TO :IOBUF FOR EXPECTED DATA AND
     5231                            * :IOBF1 FOR OBSERVED DATA. WORD CNT = 256.  THE OBSERVED BUFFER IS
     5232                            * CLEARED TO ZERO

     5234   01 0170F    02200030 A   TST1DATA LCI      3                 SAVE
     5235   01 01710    2B401728              STM,4    TST1DAT0            R4 - R6
     5236   01 01711    224000E0 A            LI,4     224
     5237   01 01712    32502BAB              LW,5     IOBUF             IOBUF ADR
     5238   01 01713    20500100 A            AI,5     256               ADD WORD CNT = 256
     5239   01 01714    226FFC00 A            LI,6     -1024             INDEX
     5240   01 01715    F54C0005 A            STB,4    *5,6              STORE BYTE
     5241   01 01716    20400001 A            AI,4     1                 INCR PATTERN
     5242   01 01717    65601715              BIR,6    %-2               LOOP
     5243   01 01718    32402BAB              LW,4     IOBUF
     5244   01 01719    354028A1              STW,4    :COMBFRA          INITIALIZE
     5245   01 0171A    32402BAA              LW,4     IOBF1
     5246   01 0171B    354028A2              STW,4    :COMBFRB            COMPARE ROUTINE
     5247   01 0171C    22500100 A            LI,5     256
     5248   01 0171D    355028A0              STW,5    :COMWCNT              OUTPUT BUFFER: IOBUF
     5249   01 0171E    22500000 A            LI,5     0
     5250   01 0171F    355028A3              STW,5    :COMFLAG              INPUT BUFFER: IOBF1
     5251   01 01720    20400100 A            AI,4     256               ADD WORD COUNT = 256
     5252   01 01721    22500000 A            LI,5     0
     5253   01 01722    226FFF00 A            LI,6     -256              INDEX
     5254   01 01723    B55C0004 A            STW,5    *4,6              CLEAR INPUT BUFFER
     5255   01 01724    65601723              BIR,6    %-1
     5256   01 01725    02200030 A            LCI      3                 RESTORE
     5257   01 01726    2A401728              LM,4     TST1DAT0            R4 - R6
     5258   01 01727    E800000F A            B        *15               EXIT

     5260   01 01728                 TST1DAT0 RES      3                 R4 - R6
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   81
A    5262                            *        ** TST1SMSG **

     5264                            * THIS ROUTINE PRINTS EXPECTED SENSE ADR AND OBSERVED SENSE ADR

     5266                            * R8 = OBSERVED SENSE ADR
     5267                            * R13 = EXPECTED SENSE ADR
     5268   01 0172B    35F01734     TST1SMSG STW,15   TST1SMGX          SAVE RETN
     5269   01 0172C    EAF0021C              BAL,15   *:PRINT
     5270   01 0172D    00001735              DATA     TST1SMG1          LINE 1
     5271   01 0172E    6AF026A4              BAL,15   SEEKMSG           PRINT LINE 2 - EXPECTED
     5272   01 0172F    32D00008 A            LW,13    8
     5273   01 01730    EAF0021C              BAL,15   *:PRINT
     5274   01 01731    00001739              DATA     TST1SMG2          LINE 3
     5275   01 01732    6AF026A4              BAL,15   SEEKMSG           PRINT LINE 4 - OBSERVED
     5276   01 01733    E8001734              B        *TST1SMGX         EXIT

     5278   01 01734    00000000 A   TST1SMGX DATA     0                 RETN ADR
     5279   01 01735    0EC5E7D7 A   TST1SMG1 TEXTC    'EXP SENSE ADR:'
            01 01736    40E2C5D5 A
            01 01737    E2C540C1 A
            01 01738    C4D97A40 A
     5280   01 01739    0ED6C2E2 A   TST1SMG2 TEXTC    'OBS SENSE ADR:'
            01 0173A    40E2C5D5 A
            01 0173B    E2C540C1 A
            01 0173C    C4D97A40 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   82
A    5282                            *        ** RESTORE ORDER **

     5284                            * ISSUE RESTORE ORDER AND VERIFY                                    *H00
     5285                            * NO HEAD MOTION OR SEEK TIMEOUT                                    *H00

     5287   01 0173D    35F01750     TST1RST  STW,15   TST1RSTX                                          *H00

     5289   01 0173E    22000C68     TST1RST0 LI,0     DA(CDWTS52)       ASSUME RESTORE ONLY             *H00
     5290   01 0173F    33000340              MTW,0    :CDB+1             IF SPECIAL FLAG                *H00
     5291   01 01740    68301742              BEZ      %+2                 USE RESTORE AND               *H00
     5292   01 01741    22000C69              LI,0     DA(CDWTS52X)         READ HEADER                  *H00
     5293   01 01742    6AF027E6              BAL,15   :IOEXEC                                           *H00

     5295   01 01743    33000340              MTW,0    :CDB+1            SKIP READY TEST IF              *H00
     5296   01 01744    6930174A              BNEZ     TST1RST1           SPECIAL FLAG SET               *H00

     5298   01 01745    6AF0281C              BAL,15   :IOREADY          CONTROLLER READY                *H00
     5299   01 01746    6800174A              B        TST1RST1           NORMAL EXIT                    *H00

     5301   01 01747    6AF00535              ERROR    8510              NOT READY AFTER RESTORE         *H00
            01 01748    0000213E A
     5302   01 01749    6800173E              B        TST1RST0           LOOP EXIT                      *H00

     5304   01 0174A    6AF01751     TST1RST1 BAL,15   TST1OCYL          WAIT FOR                        *H00
     5305   01 0174B    E8001750              B        *TST1RSTX          HEAD MOTION TO CEASE           *H00

     5307   01 0174C    6AF00535              ERROR    8511                                              *H00
            01 0174D    0000213F A
     5308   01 0174E    6800173E              B        TST1RST0          LOOP ON ERROR                   *H00
     5309   01 0174F    E8001750              B        *TST1RSTX          CONTINUE ON ERROR              *H00

     5311   01 01750                 TST1RSTX RES      1                 RETURN ADDRESS                  *H00
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   83
A    5313                            *        ** ON CYLINDER TEST **

     5315                            * WAIT FOR HEAD MOTION TO CEASE                                     *H00
     5316                            * VIA TDV-STATUS OR, IN SPECIAL CASES, VIA TIO (READ-HEADER)        *H00
     5317                            * SPECIAL CASE USEFUL FOR TST1,68,69                                *H00

     5319   01 01751    15401766     TST1OCYL STD,4    TST1OCLX                                          *H00

     5321   01 01752    224F8AD0 A            LI,4     -30*1000          OUTER LOOP CONTROL              *H00

     5323   01 01753    225FFFF0 A   TST1OCL0 LI,5     -16               DELAY FOR MOTION                *H00
     5324   01 01754    64501754              BDR,5    %                  TO CEASE                       *H00

     5326   01 01755    33000340              MTW,0    :CDB+1            USE TIO IF SPECIAL FLAG         *H00
     5327   01 01756    6830175C              BEZ      TST1OCL1                                          *H00

     5329   01 01757    CDC003E2              TIO,12   *:DEVADDR                                         *H00
     5330   01 01758    72E0000D A            LB,14    13                EXAMINE CONTROLLER AND          *H00
     5331   01 01759    21E00066 A            CI,14    X'66'              DEVICE CONDITIONS FOR          *H00
     5332   01 0175A    68401763              BAZ      TST1OCL3            READY STATE ON BOTH           *H00
     5333   01 0175B    68001761              B        TST1OCL2             (ELSE CONTINUE LOOP)         *H00

     5335   01 0175C    CEC003E2     TST1OCL1 TDV,12   *:DEVADDR                                         *H00
     5336   01 0175D    72E0000D A            LB,14    13                                                *H00
     5337   01 0175E    4BE02C04              AND,14   =X'06'            EXAMINE SEEK-TO AND ON-CYL      *H00
     5338   01 0175F    21E00004 A            CI,14    X'04'              LOOK FOR ON-CYL ONLY           *H00
     5339   01 01760    68301763              BE       TST1OCL3            EXIT NORMAL                   *H00

     5341   01 01761    65401753     TST1OCL2 BIR,4    TST1OCL0          OUTER LOOP CONTROL              *H00

     5343   01 01762    3310000F A            MTW,1    15                FAILURE EXIT                    *H00

     5345   01 01763    12401766     TST1OCL3 LD,4     TST1OCLX                                          *H00
     5346   01 01764    E800000F A            B        *15                                               *H00

     5348                                     BOUND    8                                                 *H00
     5349   01 01766                 TST1OCLX RES      2                                                 *H00
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   84
A    5351                            *                 *** TAG LINE ERROR MSG ***

     5353                            * THIS ROUTINE PRINTS THE TAG LINE INFORMATION RECEIVED IN BYTE 8
     5354                            * OF THE SENSE DATA AND THE EXPECTED DATA FOR THE SPECIFIED ORDER.

     5356                            * R12 (0 - 7) = OBSERVED SENSE DATA
     5357                            * R7          = ORDER ID
     5358                            * ORDER ID: 0=WRT,1=CWRT,2=READ,3=HDRW,4=HRD,5=SEEK,6=RST
     5359                            *           7=REL

     5361   01 01768    35F0179B     TST1TAG  STW,15   TST1TAGX          SAVE EXIT
     5362   01 01769    52C0000C A            LH,12    12,0              ALIGN TAG LINES (OBSERVED)
     5363   01 0176A    4BC02C05              AND,12   =X'3EF'           REMOVE EXTRA BITS
     5364   01 0176B    51CE178B              CH,12    TST1TAGE,7        TEST TAG LINES
     5365   01 0176C    E830179B              BE       *TST1TAGX         EXIT
     5366   01 0176D    EAF00216              BAL,15   *:BINC            CONVERT FOUR BITS
     5367   01 0176E    35F0179A              STW,15   TST1TAGO+3        STORE IN MSG AREA
     5368   01 0176F    EAF00216              BAL,15   *:BINC            CONVERT FOUR BITS
     5369   01 01770    35F01799              STW,15   TST1TAGO+2        STORE IN MSG AREA
     5370   01 01771    EAF00216              BAL,15   *:BINC            CONVERT FOUR BITS
     5371   01 01772    55F21798              STH,15   TST1TAGO+1,1
     5372   01 01773    52CE178B              LH,12    TST1TAGE,7        FETCH EXPECTED TAG LINES
     5373   01 01774    EAF00216              BAL,15   *:BINC            CONVERT FOUR BITS
     5374   01 01775    35F01796              STW,15   TST1TAGN+3        STORE IN MSG AREA
     5375   01 01776    EAF00216              BAL,15   *:BINC            CONVERT FOUR BITS
     5376   01 01777    35F01795              STW,15   TST1TAGN+2        STORE IN MSG AREA
     5377   01 01778    EAF00216              BAL,15   *:BINC            CONVERT FOUR BITS
     5378   01 01779    55F21794              STH,15   TST1TAGN+1,1
     5379   01 0177A    32CE1783              LW,12    TST1TAGI,7        FETCH ORDER ID
     5380   01 0177B    35C01792              STW,12   TST1TAGM+3        STORE IN MSG AREA
     5381   01 0177C    EAF0021C              BAL,15   *:PRINT           PRINT LINE 1
     5382   01 0177D    0000178F              DATA     TST1TAGM
     5383   01 0177E    EAF0021C              BAL,15   *:PRINT           PRINT LINE 2
     5384   01 0177F    00001793              DATA     TST1TAGN
     5385   01 01780    EAF0021C              BAL,15   *:PRINT           PRINT LINE 3
     5386   01 01781    00001797              DATA     TST1TAGO
     5387   01 01782    E802179B              B        *TST1TAGX,1       ERROR EXIT

     5389   01 01783    40E6D9E3 A   TST1TAGI DATA  ' WRT','CWRT','READ','HDRW','HDRR','SEEK',' RST',' REL'
            01 01784    C3E6D9E3 A
            01 01785    D9C5C1C4 A
            01 01786    C8C4D9E6 A
            01 01787    C8C4D9D9 A
            01 01788    E2C5C5D2 A
            01 01789    40D9E2E3 A
            01 0178A    40D9C5D3 A
     5390   01 0178B    00CE00CA A   TST1TAGE DATA     X'00CE00CA',X'00CA00C6',X'00CA03E2',X'00C20000'
            01 0178C    00CA00C6 A
            01 0178D    00CA03E2 A
            01 0178E    00C20000 A
     5391   01 0178F    0FE3C1C7 A   TST1TAGM TEXTC    'TAG LINES--XXXX' LINE 1
            01 01790    40D3C9D5 A
            01 01791    C5E26060 A
            01 01792    E7E7E7E7 A
     5392   01 01793    0FC5E7D7 A   TST1TAGN TEXTC    'EXP  XXXXXXXXXX' LINE 2
            01 01794    4040E7E7 A
            01 01795    E7E7E7E7 A
            01 01796    E7E7E7E7 A
     5393   01 01797    0FD6C2E2 A   TST1TAGO TEXTC    'OBS  XXXXXXXXXX' LINE 3
            01 01798    4040E7E7 A
            01 01799    E7E7E7E7 A
            01 0179A    E7E7E7E7 A
     5394   01 0179B    00000000 A   TST1TAGX DATA     0                 EXIT ADR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   85
A    5396                            *                 *** TEST MODE SELECTION ***

     5398                            * THIS ROUTINE ISSUES A TEST MODE ORDER AND VERIFIES THAT THE
     5399                            * CONTROLLER INDICATES TEST MODE

     5401   01 0179C    22400001 A   TST1TM1  LI,4     1                 TEST MODE 1 (FAM)
     5402   01 0179D    680017A1              B        %+4

     5404   01 0179E    22400002 A   TST1TM2  LI,4     2                 TEST MODE 2 (CONTR)
     5405   01 0179F    680017A1              B        %+2

     5407   01 017A0    22400006 A   TST1TM3  LI,4     6                 TEST MODE 3 (PARITY)
     5408   01 017A1    754017CC              STB,4    TST1TMD           SAVE DATA BYTE
     5409   01 017A2    35F017CB              STW,15   TST1TMX           SAVE EXIT ADR

     5411   01 017A3    33002BA6              MTW,0    #TMOPT
     5412   01 017A4    683017C3              BEZ      TST1TMY           SKIP IF TEST MODE MISSING
     5413   01 017A5    331017CB              MTW,1    TST1TMX           SET RETURN FOR EXIT(2)

     5415   01 017A6    22000C14     TST1TMA  LI,0     DA(CDWTSTM)       IOCD ADR
     5416   01 017A7    6AF027E6              BAL,15   :IOEXEC           START IO
     5417   01 017A8    6AF0281C              BAL,15   :IOREADY          READY TEST
     5418   01 017A9    680017AD              B        TST1TMB           B: DEV. READY
     5419   01 017AA    6AF00535              ERROR    8500              ** 8500 **
            01 017AB    00002134 A
     5420   01 017AC    680017A6              B        TST1TMA           LOOP
     5421   01 017AD    CEC003E2     TST1TMB  TDV,12   *:DEVADDR         TDV
     5422   01 017AE    E94017CB              BCS,4    *TST1TMX          EXIT
     5423   01 017AF    6AF00535              ERROR    8501              ** 8500 **
            01 017B0    00002135 A
     5424   01 017B1    680017A6              B        TST1TMA           LOOP

     5426   01 017B2    35F017CB     TST1TM0  STW,15   TST1TMX           SAVE RETURN ADR
     5427   01 017B3    22400000 A            LI,4     0
     5428   01 017B4    754017CC              STB,4    TST1TMD           SAVE DATA BYTE
     5429   01 017B5    CEC003E2              TDV,12   *:DEVADDR         TDV
     5430   01 017B6    E8C017CB              BCR,12   *TST1TMX          EXIT - DEVICE NOT IN TEST MODE
     5431   01 017B7    22000C14              LI,0     DA(CDWTSTM)       IOCD ADR
     5432   01 017B8    6AF027E6              BAL,15   :IOEXEC           START IO
     5433   01 017B9    6AF0281C              BAL,15   :IOREADY          READY TEST
     5434   01 017BA    680017BE              B        TST1TMC           BD DEV READY
     5435   01 017BB    6AF00535              ERROR    8500              ** 8500 **
            01 017BC    00002134 A
     5436   01 017BD    680017B3              B        TST1TM0+1         LOOP
     5437   01 017BE    CEC003E2     TST1TMC  TDV,12   *:DEVADDR         TDV
     5438   01 017BF    E8C017CB              BCR,12   *TST1TMX
     5439   01 017C0    6AF00535              ERROR    8502              ** 8502 **
            01 017C1    00002136 A
     5440   01 017C2    680017B3              B        TST1TM0+1         LOOP

     5442   01 017C3    EAF0022A     TST1TMY  BAL,15   *:QSENSE          SKIP IF WARNING SUPPRESSION
     5443   01 017C4    E94017CB              BCS,4    *TST1TMX

     5445   01 017C5    EAF0021C              BAL,15   *:PRINT           ISSUE WARNING THAT
     5446   01 017C6    000017C8              DATA     TST1TMZ            SUBTEST WAS SKIPPED
     5447   01 017C7    E80017CB              B        *TST1TMX

     5449   01 017C8    0A4B4B4B A   TST1TMZ  TEXTC    '...SKIPPED'
            01 017C9    E2D2C9D7 A
            01 017CA    D7C5C440 A

     5451   01 017CB    00000000 A   TST1TMX  DATA     0                 EXIT ADR
     5452   01 017CC    00000000 A   TST1TMD  DATA     0                 1ST USED DURING TEST MODE ORDER

     5454                            *                 *** ERROR ***

     5456                            * THIS ROUTINE OUTPUTS THE DEVICE ADR FOLLOWED BY THE CALL
     5457                            * TO :ERROR(M) IN THE DPM FOR REPORTING THE ERROR NO.
     5458                            * AND LOCATION. THE DPM RETURNS DIRECTLY TO THE CALLING
     5459                            * ROUTINE.

     5461   01 017CD    00000000 A   :ERROR12 DATA     0
     5462   01 017CE    00000000 A   :ERROR15 DATA     0
     5463   01 017CF    000017D0     :ERROR   DATA     %+1               ADR OF THIS SUBROUTINE
     5464   01 017D0    35C017CD              STW,12   :ERROR12          SAVE R12
     5465   01 017D1    35F017CE              STW,15   :ERROR15            AND R15
     5466   01 017D2    6AF01D6E              BAL,15   DEVADRM           PRINT DEV.ADDRESS
     5467   01 017D3    32C017CD              LW,12    :ERROR12          RESTORE R12
     5468   01 017D4    32F017CE              LW,15    :ERROR15            AND R15
     5469   01 017D5    E800021B              B        *:ERRORM          GO TO DPM
     5470                            *        -        -                 DPM RETURNS TO CALLING TEST

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   86
A    5473                            *        ** TEST SEQUENCE TABLE **

     5475   01 017D6    1C200000 A   TSEQ014  :TSEQ    TIOT4,OSBF0
     5476   01 017D7    4014E120 A   TSEQ015  :TSEQ    TDVF0,TIOF4,BYT00,OSBF0
            01 017D8    00000000 A
     5477   01 017D9    18111215 A   TSEQ016  :TSEQ    TIOT0,TIOF1,TIOF2,TIOF5,TIOF6,OSBF0,TIOF4
            01 017DA    16201400 A
     5478   01 017DB    18111215 A   TSEQ016A :TSEQ    TIOT0,TIOF1,TIOF2,TIOF5,TIOF6,OSBF0,TIOT4
            01 017DC    16201C00 A
     5479   01 017DD    1BF20000 A   TSEQ017  :TSEQ    TIOT3,COM01
     5480   01 017DE    1CF10000 A   TSEQ018  :TSEQ    TIOT4,COM00
     5481   01 017DF    1CE1284D A   TSEQ019  :TSEQ    TIOT4,BYT00,OSBT0,TDVT5
            01 017E0    00000000 A
     5482   01 017E1    14E1204D A   TSEQ020  :TSEQ    TIOF4,BYT00,OSBF0,TDVT5
            01 017E2    00000000 A
     5483   01 017E3    1CE1284D A   TSEQ021  :TSEQ    TIOT4,BYT00,OSBT0,TDVT5
            01 017E4    00000000 A
     5484   01 017E5    18E14D20 A   TSEQ022  :TSEQ    TIOT0,BYT00,TDVT5,OSBF0
            01 017E6    00000000 A
     5485   01 017E7    10000000 A   TSEQ022A :TSEQ    TIOF0
     5486   01 017E8    144D0000 A   TSEQ023  :TSEQ    TIOF4,TDVT5
     5487   01 017E9    28E20000 A   TSEQ024  :TSEQ    OSBT0,BYT01
     5488   01 017EA    1420F200 A   TSEQ025  :TSEQ    TIOF4,OSBF0,COM01
     5489   01 017EB    1C4A4D00 A   TSEQ026  :TSEQ    TIOT4,TDVT2,TDVT5
     5490   01 017EC    10424D00 A   TSEQ027  :TSEQ    TIOF0,TDVF2,TDVT5
     5491   01 017ED    14E24400 A   TSEQ028  :TSEQ    TIOF4,BYT01,TDVF4
     5492   01 017EE    14E20000 A   TSEQ029  :TSEQ    TIOF4,BYT01
     5493   01 017EF    14E12021 A   TSEQ030  :TSEQ    TIOF4,BYT00,OSBF0,OSBF1,TDVT5
            01 017F0    4D000000 A
     5494   01 017F1    80000000 A   TSEQ031  :TSEQ    SBAF0
     5495   01 017F2    28144000 A   TSEQ032  :TSEQ    OSBT0,TIOF4,TDVF0
     5496   01 017F3    28291440 A   TSEQ032A :TSEQ    OSBT0,OSBT1,TIOF4,TDVF0
            01 017F4    00000000 A
     5497   01 017F5    142040F2 A   TSEQ033  :TSEQ    TIOF4,OSBF0,TDVF0,COM01
            01 017F6    00000000 A
     5498   01 017F7    1C4AE200 A   TSEQ034  :TSEQ    TIOT4,TDVT2,BYT01
     5499   01 017F8    1C4AE100 A   TSEQ034A :TSEQ    TIOT4,TDVT2,BYT00
     5500   01 017F9    142040E1 A   TSEQ035  :TSEQ    TIOF4,OSBF0,TDVF0,BYT00,COM01
            01 017FA    F2000000 A
     5501   01 017FB    14204000 A   TSEQ036  :TSEQ    TIOF4,OSBF0,TDVF0
     5502   01 017FC    1428E100 A   TSEQ037  :TSEQ    TIOF4,OSBT0,BYT00
     5503   01 017FD    1C204000 A   TSEQ038  :TSEQ    TIOT4,OSBF0,TDVF0
     5504   01 017FE    29144000 A   TSEQ039  :TSEQ    OSBT1,TIOF4,TDVF0
     5505   01 017FF    88000000 A   TSEQ040  :TSEQ    SBAT0
     5506   01 01800    291440E1 A   TSEQ041  :TSEQ    OSBT1,TIOF4,TDVF0,BYT00,COM03
            01 01801    F4000000 A
     5507   01 01802    89000000 A   TSEQ042  :TSEQ    SBAT1
     5508   01 01803    144D0000 A   TSEQ043  :TSEQ    TIOF4,TDVT5
     5509   01 01804    14214044 A   TSEQ044  :TSEQ    TIOF4,OSBF1,TDVF0,TDVF4,TDVF7,BYT00
            01 01805    47E10000 A
     5510   01 01806    14214244 A   TSEQ045  :TSEQ    TIOF4,OSBF1,TDVF2,TDVF4,TDVF7,BYT00
            01 01807    47E10000 A
     5511   01 01808    444D4647 A   TSEQ046  :TSEQ    TDVF4,TDVT5,TDVF6,TDVF7,OSBF1,TIOF4,BYT00
            01 01809    2114E100 A
     5512   01 0180A    80000000 A   TSEQ047  :TSEQ    SBAF0
     5513   01 0180B    14214144 A   TSEQ048  :TSEQ    TIOF4,OSBF1,TDVF1,TDVF4,TDVF7,BYT00
            01 0180C    47E10000 A
     5514   01 0180D    4D21E110 A   TSEQ049  :TSEQ    TDVT5,OSBF1,BYT00,TIOF0
            01 0180E    00000000 A
     5515   01 0180F    40414447 A   TSEQ050  :TSEQ    TDVF0,TDVF1,TDVF4,TDVF7,OSBF0,OSBF1,TIOF4,BYT00
            01 01810    202114E1 A
            01 01811    00000000 A
     5516   01 01812    40414447 A   TSEQ051  :TSEQ    TDVF0,TDVF1,TDVF4,TDVF7,OSBT0,OSBF1,TIOF4,BYT00
            01 01813    282114E1 A
            01 01814    00000000 A
     5517   01 01815    85000000 A   TSEQ052  :TSEQ    SBAF5
     5518   01 01816    8D000000 A   TSEQ052A :TSEQ    SBAT5
     5519   01 01817    1C492100 A   TSEQ053  :TSEQ    TIOT4,TDVT1,OSBF1
     5520   01 01818    14492100 A   TSEQ054  :TSEQ    TIOF4,TDVT1,OSBF1
     5521   01 01819    1C4C21E1 A   TSEQ055  :TSEQ    TIOT4,TDVT4,OSBF1,BYT00
            01 0181A    00000000 A
     5522   01 0181B    8C000000 A   TSEQ056  :TSEQ    SBAT4                                         CYL
     5523   01 0181C    8B000000 A   TSEQ057  :TSEQ    SBAT3                                         HD
     5524   01 0181D    8A000000 A   TSEQ058  :TSEQ    SBAT2                                         SEC
     5525   01 0181E    1C4C21E2 A   TSEQ059  :TSEQ    TIOT4,TDVT4,OSBF1,BYT01
            01 0181F    00000000 A
     5526   01 01820    1C282E00 A   TSEQ060A :TSEQ    TIOT4,OSBT0,OSBT6
     5527   01 01821    14282600 A   TSEQ060B :TSEQ    TIOF4,OSBT0,OSBF6
     5528   01 01822    1C292E00 A   TSEQ060C :TSEQ    TIOT4,OSBT1,OSBT6
     5529                            TSEQ064  :TSEQ    TDVF0,TDVF1,TDVF4,TDVF7,OSBT0,OSBF1,TIOF4,;
     5530   01 01823    40414447 A                     BYT00,COM02
            01 01824    282114E1 A
            01 01825    F3000000 A
     5531   01 01826    14414DE1 A   TSEQ066  :TSEQ    TIOF4,TDVF1,TDVT5,BYT00,COM03
            01 01827    F4000000 A
     5532                                     BOUND    8

     5534   01 01828    13005F30 N   CDWTSTM  GEN,8,24,8,24  X'13',BA(TST1TMD),0,1
                        00000001
     5535   01 0182A    0000B0CC N   CDWTS02  GEN,8,24,8,24  0,BA(USERPROG+2),1,1024
                        01000400
     5536   01 0182C    F000B0CC N   CDWTS02A GEN,8,24,8,24  X'F0',BA(USERPROG+2),1,1024
                        01000400
     5537   01 0182E    1300178C N   CDWTS03  GEN,8,24,8,24 X'13',BA(TS03DAT1),0,1
                        00000001
     5538   01 01830    13001790 N   CDWTS03A GEN,8,24,8,24 X'13',BA(TS03DAT2),0,1
                        00000001
     5539   01 01832    000018A8 N   CDWTS04  GEN,8,24,8,24  X'00',BA(TS04DAT1),04,0
                        04000000

     5541   01 01834    130018A9 N   CDWTS04A GEN,8,24,8,24  X'13',BA(TS04DAT1)+1,X'10',1
                        10000001

     5543   01 01836    130018AA N            GEN,8,24,8,24  X'13',BA(TS04DAT1)+2,X'40',1
                        40000001

     5545   01 01838    130019E0 N   CDWTS06  GEN,8,24,8,24  X'13',BA(TS05DAT1),X'20',1
                        20000001
     5546   01 0183A    130019E1 N   CDWTS06A GEN,8,24,8,24  X'13',BA(TS05DAT1)+1,0,1
                        00000001
     5547   01 0183C    000019E0 N   CDWTS06B GEN,8,24,8,24  X'00',BA(TS05DAT1),X'20',1
                        20000001
     5548   01 0183E    130019E1 N   CDWTS06C GEN,8,24,8,24  X'13',BA(TS05DAT1)+1,0,1
                        00000001
     5549   01 01840    0000B0CC N   CDWTS07  GEN,8,24,8,24  X'00',BA(USERPROG+2),0,0
                        00000000
     5550   01 01842    0100B0CC N   CDWTS08  GEN,8,24,8,24  X'01',BA(USERPROG+2),X'20',16
                        20000010
     5551   01 01844    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),0,16
                        00000010
     5552   01 01846    01001C00 N   CDWTS08A GEN,8,24,8,24  X'01',BA(T1ST08P1),X'20',13
                        2000000D
     5553   01 01848    0200B4CC N   CDWTS08B GEN,8,24,8,24  X'02',BA(USERPROG+258),0,13
                        0000000D
     5554   01 0184A    0300B0CC N   CDWTS09  GEN,8,24,8,24  X'03',BA(USERPROG+2),0,0
                        00000000
     5555   01 0184C    8300B0CC N   CDWTS10  GEN,8,24,8,24  X'83',BA(USERPROG+2),0,4
                        00000004
     5556   01 0184E    0400B0CC N   CDWTS13  GEN,8,24,8,24  X'04',BA(USERPROG+2),0,0
                        00000000
     5557   01 01850    0300B4CC N   CDWTS15  GEN,8,24,8,24  X'03',BA(USERPROG+258),X'20',4
                        20000004
     5558   01 01852    0400B0CC N            GEN,8,24,8,24  X'04',BA(USERPROG+2),0,10
                        0000000A
     5559   01 01854    0300B4CC N   CDWTS16  GEN,8,24,8,24  X'03',BA(USERPROG+258),X'20',4
                        20000004
     5560   01 01856    0400B0CC N   CDWTS16A GEN,8,24,8,24  X'04',BA(USERPROG+2),0,4
                        00000004
     5561   01 01858    0300B4CC N   CDWTS17  GEN,8,24,8,24  X'03',BA(USERPROG+258),0,4
                        00000004
     5562   01 0185A    0400B0CC N   CDWTS17A GEN,8,24,8,24  X'04',BA(USERPROG+2),0,10
                        0000000A
     5563   01 0185C    0300B4CC N   CDWTS23  GEN,8,24,8,24  X'03',BA(USERPROG+258),X'20',4
                        20000004
     5564   01 0185E    3300B4D4 N            GEN,8,24,8,24  X'33',BA(USERPROG+260),0,1
                        00000001
     5565   01 01860    2300B4D4 N   CDWTS24  GEN,8,24,8,24  X'23',BA(USERPROG+260),0,1
                        00000001
     5566   01 01862    0300B0C8 N   CDWTS25  GEN,8,24,8,24  X'03',BA(USERPROG+1),X'20',4
                        20000004
     5567   01 01864    0200B0CC N            GEN,8,24,8,24  X'02',BA(USERPROG+2),0,1024
                        00000400
     5568   01 01866    0300B0C8 N   CDWTS25A GEN,8,24,8,24  X'03',BA(USERPROG+1),X'20',4
                        20000004
     5569   01 01868    1200B0CC N            GEN,8,24,8,24  X'12',BA(USERPROG+2),0,1024
                        00000400
     5570   01 0186A    0300B0C8 N   CDWTS26  GEN,8,24,8,24  X'03',BA(USERPROG+1),X'20',4
                        20000004
     5571   01 0186C    0200B0CC N            GEN,8,24,8,24  X'02',BA(USERPROG+2),0,1024
                        00000400
     5572   01 0186E    0300B0CC N   CDWTS27  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5573   01 01870    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),X'00',1024
                        00000400
     5574   01 01872    0400B0D0 N   CDWTS27A GEN,8,24,8,24  X'04',BA(USERPROG+3),0,10
                        0000000A
     5575   01 01874    0300B0CC N   CDWTS28  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5576   01 01876    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),0,1025
                        00000401
     5577   01 01878    0300B0CC N   CDWTS29  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5578   01 0187A    0A00B4CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,8
                        00000008
     5579   01 0187C    0300B0CC N   CDWTS30  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5580   01 0187E    0A00B4CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,960
                        000003C0
     5581   01 01880    0300B0CC N   CDWTS31  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5582   01 01882    0A00B4CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,0
                        00000000
     5583   01 01884    0300B0CC N   CDWTS32  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5584   01 01886    0A00B4CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,9
                        00000009
     5585   01 01888    0300B0CC N   CDWTS35  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5586   01 0188A    0900B4CC N            GEN,8,24,8,24  X'09',BA(USERPROG+258),0,48
                        00000030
     5587   01 0188C    0300B0CC N   CDWTS36  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5588   01 0188E    0900B4CC N            GEN,8,24,8,24  X'09',BA(USERPROG+258),0,960
                        000003C0
     5589   01 01890    0300B0CC N   CDWTS41  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5590   01 01892    0100B4CC N            GEN,8,24,8,24  X'01',BA(USERPROG+258),0,1024
                        00000400
     5591   01 01894    0300B0CC N   CDWTS37  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5592   01 01896    0900B4CC N            GEN,8,24,8,24  X'09',BA(USERPROG+258),0,0
                        00000000
     5593   01 01898    0300B0CC N   CDWTS38  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5594   01 0189A    0900B4CC N            GEN,8,24,8,24  X'09',BA(USERPROG+258),0,49
                        00000031
     5595   01 0189C    0300B0CC N   CDWTS39  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5596   01 0189E    0900B4CC N            GEN,8,24,8,24 X'09',BA(USERPROG+258),0,8                   *H00
                        00000008
     5597   01 018A0    0300B0CC N   CDWTS40  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5598   01 018A2    0100B4CC N            GEN,8,24,8,24  X'01',BA(USERPROG+258),0,1024
                        00000400
     5599   01 018A4    0300B0CC N   CDWTS42  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5600   01 018A6    0100B4CC N            GEN,8,24,8,24  X'01',BA(USERPROG+258),0,1025
                        00000401
     5601   01 018A8    0300B0CC N   CDWTS45  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5602   01 018AA    0500B4CC N            GEN,8,24,8,24  X'05',BA(USERPROG+258),0,1024
                        00000400
     5603   01 018AC    0300B0CC N   CDWTS46  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5604   01 018AE    0500B4CC N            GEN,8,24,8,24  X'05',BA(USERPROG+258),0,0
                        00000000
     5605   01 018B0    0300B0CC N   CDWTS47  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5606   01 018B2    0500B4CC N            GEN,8,24,8,24  X'05',BA(USERPROG+258),0,1025
                        00000401
     5607   01 018B4    0300B0CC N   CDWTS48  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5608   01 018B6    0500B4CC N            GEN,8,24,8,24  X'05',BA(USERPROG+258),0,2048
                        00000800
     5609   01 018B8    0300B0CC N   CDWTS49A GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5610   01 018BA    0100B4CC N            GEN,8,24,8,24  X'01',BA(USERPROG+258),X'08',1020
                        080003FC
     5611   01 018BC    0300B0CC N   CDWTS49B GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5612   01 018BE    0100B4CC N            GEN,8,24,8,24  X'01',BA(USERPROG+258),X'0A',1020
                        0A0003FC
     5613   01 018C0    0300B0CC N   CDWTS49C GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5614   01 018C2    0500B4CC N            GEN,8,24,8,24  X'05',BA(USERPROG+258),X'08',1024
                        08000400
     5615   01 018C4    0300B0CC N   CDWTS50  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5616   01 018C6    1200B4CC N            GEN,8,24,8,24  X'12',BA(USERPROG+258),0,2048
                        00000800
     5617   01 018C8    0300B0CC N   CDWTS51  GEN,8,24,8,24  X'03',BA(USERPROG+2),X'20',4
                        20000004
     5618   01 018CA    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),X'80',3072
                        80000C00
     5619   01 018CC    0000B4CC N            GEN,8,24,8,24  0,BA(USERPROG+258),X'80',3072
                        80000C00
     5620   01 018CE    0000B4CC N            GEN,8,24,8,24  0,BA(USERPROG+258),0,3072
                        00000C00
     5621   01 018D0    33000000 A   CDWTS52  GEN,8,24,8,24  X'33',0,0,0
                        00000000
     5622   01 018D2    33000000 A   CDWTS52X GEN,8,24 X'33',0                                           *H00
     5623   01 018D3    20000000 A            GEN,8,24 X'20',0                                           *H00
     5624   01 018D4    0A00B4CC              GEN,8,24 X'0A',BA(USERPROG+258)                            *H00
     5625   01 018D5    0A000008 A            GEN,8,24 X'0A',8                                           *H00
     5626   01 018D6    03003B95 N   CDWTS55  GEN,8,24,8,24  X'03',BA(TST1HDRE)+1,X'20',4
                        20000004
     5627   01 018D8    0A003B9C N            GEN,8,24,8,24  X'0A',BA(TST1HDRO),0,8
                        00000008
     5628   01 018DA    8300B4CC N   CDWTS60  GEN,8,24,8,24  X'83',BA(USERPROG+258),0,4
                        00000004
     5629   01 018DC    03004884 N   CDWTS63  GEN,8,24,8,24  X'03',BA(T1ST63SL),X'20',4
                        20000004
     5630   01 018DE    0A00B8CC N            GEN,8,24,8,24 X'0A',BA(USERPROG+258+256),0,960             *H00
                        000003C0
     5631   01 018E0    00000000 A   CDWTS63X GEN,8,24,8,24  0,0,0,0
                        00000000
     5632   01 018E2    03004894 N   CDWTS63A GEN,8,24,8,24  X'03',BA(T1ST63SK),0,4
                        00000004
     5633   01 018E4    04004888 N   CDWTS63B GEN,8,24,8,24  X'04',BA(T1ST63SS),0,10
                        0000000A
     5634   01 018E6    03004894 N   CDWTS64  GEN,8,24,8,24  X'03',BA(T1ST63SK),X'20',4
                        20000004
     5635   01 018E8    0100B0CC N            GEN,8,24,8,24  X'01',BA(USERPROG+2),0,1024
                        00000400
     5636   01 018EA    03004894 N   CDWTS64A GEN,8,24,8,24  X'03',BA(T1ST63SK),X'20',4
                        20000004
     5637   01 018EC    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),0,1024
                        00000400
     5638   01 018EE    03004894 N   CDWTS64B GEN,8,24,8,24  X'03',BA(T1ST63SK),X'20',4
                        20000004
     5639   01 018F0    0100B0CC N            GEN,8,24,8,24  X'01',BA(USERPROG+2),0,4
                        00000004
     5640   01 018F2    03004894 N   CDWTS64C GEN,8,24,8,24  X'03',BA(T1ST63SK),X'20',4       SEEK/CC/
                        20000004
     5641   01 018F4    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),X'22',253 READ/CC/
                        220000FD
     5642   01 018F6    04004888 N            GEN,8,24,8,24  X'04',BA(T1ST63SS),0,10          SENSE
                        0000000A
     5643   01 018F8    03004894 N   CDWTS65  GEN,8,24,8,24  X'03',BA(T1ST63SK),X'20',4
                        20000004
     5644   01 018FA    0900B4CC N            GEN,8,24,8,24  X'09',BA(USERPROG+258),0,48
                        00000030
     5645   01 018FC    03004894 N   CDWTS65A GEN,8,24,8,24  X'03',BA(T1ST63SK),X'20',4
                        20000004
     5646   01 018FE    0A00B4CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,48
                        00000030
     5647   01 01900    0300519C N   CDWTS66  GEN,8,24,8,24  X'03',BA(T1ST66SK),X'20',4
                        20000004
     5648   01 01902    09005078 N            GEN,8,24,8,24  X'09',BA(T1ST66HD),0,0
                        00000000
     5649   01 01904    0300519C N   CDWTS66A GEN,8,24,8,24  X'03',BA(T1ST66SK),X'20',4
                        20000004
     5650   01 01906    0400B4CC N            GEN,8,24,8,24  X'04',BA(USERPROG+258),0,10
                        0000000A
     5651   01 01908    0300519C N   CDWTS66B GEN,8,24,8,24  X'03',BA(T1ST66SK),X'20',4
                        20000004
     5652   01 0190A    0A00B4CC N            GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,8
                        00000008
     5653   01 0190C    0300519C N   CDWTS66C GEN,8,24,8,24  X'03',BA(T1ST66SK),X'20',4
                        20000004
     5654   01 0190E    0200B4CC N            GEN,8,24,8,24  X'02',BA(USERPROG+258),0,1025
                        00000401
     5655   01 01910    030051A4 N   CDWTS66D GEN,8,24,8,24  X'03',BA(T1ST66SL),X'20',4
                        20000004
     5656   01 01912    0400B4CC N            GEN,8,24,8,24  X'04',BA(USERPROG+258),0,10
                        0000000A
     5657   01 01914    030051A8 N   CDWTS66E GEN,8,24,8,24  X'03',BA(T1ST66SM),0,4
                        00000004
     5658   01 01916    0200B4CC N   CDWTS66F GEN,8,24,8,24  X'02',BA(USERPROG+258),0,1
                        00000001
     5659   01 01918    0A00B4CC N   CDWTS66G GEN,8,24,8,24  X'0A',BA(USERPROG+258),0,17
                        00000011
     5660   01 0191A    0300519C N   CDWTS66I GEN,8,24,8,24 X'03',BA(T1ST66SK),X'20',4
                        20000004
     5661   01 0191C    0A00B0EC N            GEN,8,24,8,24 X'0A',BA(USERPROG+10),X'20',8
                        20000008
     5662   01 0191E    03005198 N            GEN,8,24,8,24 X'03',BA(T1ST66SR),X'20',4
                        20000004
     5663   01 01920    0200B4CC N            GEN,8,24,8,24 X'02',BA(USERPROG+258),0,1024
                        00000400
     5664   01 01922    23000000 A   CDWTS70  GEN,8,24,8,24  X'23',0,0,0                         RELEASE
                        00000000
     5665   01 01924    83005828 N   CDWTS70A GEN,8,24,8,24  X'83',BA(T1ST70SK),4,4             SEEK
                        04000004
     5666   01 01926    0400581C N   CDWTS70B GEN,8,24,8,24  X'04',BA(T1ST70SS),X'14',10         SENSE
                        1400000A
     5667   01 01928    03005828 N   CDWTS70C GEN,8,24,8,24  X'03',BA(T1ST70SK),24,4
                        18000004
     5668   01 0192A    0400581C N            GEN,8,24,8,24  X'04',BA(T1ST70SS),X'14',10         SENSE
                        1400000A
     5669   01 0192C    03005828 N   CDWTS70D GEN,8,24,8,24  X'03',BA(T1ST70SK),X'24',4
                        24000004
     5670   01 0192E    0100B4CC N            GEN,8,24,8,24  X'01',BA(USERPROG+258),X'14',1024   WRITE
                        14000400
     5671   01 01930    03005828 N   CDWTS70E GEN,8,24,8,24  X'03',BA(T1ST70SK),X'24',4
                        24000004
     5672   01 01932    0500B4CC N            GEN,8,24,8,24  X'05',BA(USERPROG+258),X'14',1024   CHECK-WR
                        14000400
     5673   01 01934    03005828 N   CDWTS70F GEN,8,24,8,24  X'03',BA(T1ST70SK),X'24',4
                        24000004
     5674   01 01936    1200B0CC N            GEN,8,24,8,24  X'12',BA(USERPROG+2),X'14',1024     READ1
                        14000400
     5675   01 01938    03005828 N   CDWTS70G GEN,8,24,8,24  X'03',BA(T1ST70SK),X'24',4
                        24000004
     5676   01 0193A    0200B0CC N            GEN,8,24,8,24  X'02',BA(USERPROG+2),X'14',1024     READ2
                        14000400
     5677   01 0193C    03005828 N   CDWTS70H GEN,8,24,8,24  X'03',BA(T1ST70SK),0,4             SEEK
                        00000004
     5678   01 0193E    33000000 A   CDWTS70I GEN,8,24,8,24  X'33',0,0,0                         RESTORE
                        00000000
     5679   01 01940    00000000 A   TESTINDX DATA     0,0
            01 01941    00000000 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   87
A    5681                            *                                                                      *
     5682                            *        *** TST2 - RANDOM EXERCISER ***                               *
     5683                            *                                                                      *
     5684                            * THIS DIRECTIVE ALLOWS THE USER TO RANDOMLY EXERCISE THE STORAGE      *
     5685                            * DEVICES.                                                             *
     5686                            *                                                                      *
     5687                            *   P1 =  NUMBER OF IO INSTRUCTIONS (SIO'S) TO BE ISSUED.              *
     5688                            *         (0 < P1 < 99999999)                                          *
     5689                            *                                                                      *
     5690                            *   P2 =  RETRY COUNT FOR READ OR WRITE ORDERS                         *
     5691                            *         (0 < P2 < 99).                                               *
     5692                            *                                                                      *
     5693                            * P1 ALLOWS THE USER TO TERMINATE THE TEST AFTER A FIXED NUMBER OF     *
     5694                            * IO OPERATIONS HAVE BEEN PERFORMED.                                   *
     5695                            *                                                                      *
     5696                            * ALL DEVICES SPECIFIED WITH THE SYST DIRECTIVE WILL BE TESTED         *
     5697                            * RANDOMLY.                                                            *
     5698                            *                                                                      *
     5699                            * TEST VARIATIONS                                                      *
     5700                            * ---------------                                                      *
     5701                            *   SEEK: THIS DIRECTIVE ALLOWS THE USER TO LIMIT THE AREA UNDER TEST. *
     5702                            *                                                                      *
     5703   01 01942    22000000 A   TST2     LI,0     0                 RESET
     5704   01 01943    3500048C              STW,0    TST0FLAG            TEST 0 FLAG
     5705   01 01944    3500048D              STW,0    TST1FLAG          RESET TST1 FLAG
     5706   01 01945    35202BC0              STW,2    ITHTEST           SET INTER/TRAP
     5707   01 01946    22702BAC              LI,7     ITHDLR
     5708   01 01947    3570030F              STW,7    :PIT15            INVOKE HDLR
     5709   01 01948    22701942              LI,7     TST2
     5710   01 01949    35702BC2              STW,7    ITHRST            TEST RESTART ADDRESS
     5711   01 0194A    3500244A              STW,0    T3UISFLW
     5712   01 0194B    22700000 A            LI,7     0
     5713   01 0194C    32E003E4              LW,14    DEVNO             NO. OF DEV ENTERED
     5714   01 0194D    32FE03BA              LW,15    SYSTDEVA,7        GET DEV ADDR
     5715   01 0194E    CF00000F A            HIO,0    *15                 ALL
     5716   01 0194F    20700001 A            AI,7     1                 INCR INDEX
     5717   01 01950    64E0194D              BDR,14   %-3               B: NOT DONE
     5718   01 01951    32800201              LW,8     :P1
     5719   01 01952    35801D85              STW,8    T2CCYCI           SAVE IO CYCLE COUNT
     5720   01 01953    32800202              LW,8     :P2               FETCH RETRY COUNT
     5721   01 01954    21800063 A            CI,8     99
     5722   01 01955    69201960              BG       TST2A             B: RETRY COUNT EXCEEDS 99
     5723   01 01956    35801D82              STW,8    T2CRETRY          SAVE RETRY COUNT
     5724   01 01957    32801D9A              LW,8     T2CALXPS
     5725   01 01958    35800048 A            STW,8    X'48'             STORE CALL XPSD
     5726   01 01959    6AF01964              BAL,15   T2INIT            BRANCH TO INITIALIZER
     5727   01 0195A    3300048C              MTW,0    TST0FLAG          TST0
     5728   01 0195B    69300486              BNEZ     TST0RAND          B: RETURN TO TST0 SEQUENCER
     5729   01 0195C    EAF0021D              SENSE    TST2+2            SSW1 => LOOP ON ERROR
            01 0195D    2E00195D
            01 0195E    68001944
     5730   01 0195F    E8000214              B        *:MONITOR         RETURN CONTROL TO MONITOR
     5731   01 01960    3520030A     TST2A    STW,2    :PIT10            PARAMETER 2 IN ERROR
     5732   01 01961    EAF00229              BAL,15   *:PREPORT         REPORT PARAMETER ERROR
     5733   01 01962    00000324              DATA     :DIC+4
     5734   01 01963    E8000214              B        *:MONITOR         RETURN TO MONITOR

     5736                            *        *** TST2 - INITIALIZER ***

     5738                            * THIS ROUTINE NORMALIZES THE TASK CONTROL TABLE AND THE CONTROL TABLE.

     5740   01 01964    35F01D98     T2INIT   STW,15   T2EXIT            SAVE RETURN
     5741   01 01965    22600000 A            LI,6     0                 INDEXES
     5742   01 01966    22700000 A            LI,7     0
     5743   01 01967    22800000 A   T2INIT1  LI,8     0                 CLEAR
     5744   01 01968    22900000 A            LI,9     0                   RESISTERS
     5745   01 01969    358C1DC2              STW,8    T2SIOT,6
     5746   01 0196A    358C1DD2              STW,8    T2PRIIO,6
     5747   01 0196B    358C1DDA              STW,8    T2PRIM,6          CLEAR
     5748   01 0196C    358C1DCA              STW,8    T2INTREC,6
     5749   01 0196D    358C1E32              STW,8    T2SEEKFL,6          FLAGS
     5750   01 0196E    358C1EA2              STW,8    T2DONE,6
     5751   01 0196F    358C1E02              STW,8    T2MEM0,6
     5752   01 01970    358C1E0A              STW,8    T2MEM1,6
     5753   01 01971    329C03BA              LW,9     SYSTDEVA,6        GET
     5754   01 01972    359C1DBA              STW,9    T2DEVA,6             DEV. ADR
     5755   01 01973    328C03D2              LW,8     CURSFRST,6        FETCH FIRST AND
     5756   01 01974    329C03DA              LW,9     CURSLAST,6          LAST SECTOR ADR
     5757   01 01975    158E1E12              STD,8    T2SECTA,7             AND SAVE
     5758   01 01976    324C1E8A              LW,4     T2TASKPI,6        INITIALIZE
     5759   01 01977    354C1E82              STW,4    T2TASKPC,6          TASK POINTERS
     5760   01 01978    92800004 A            LD,8     *4                FETCH AND
     5761   01 01979    158E1DE2              STD,8    T2TASK,7            STORE FIRST TASK
     5762   01 0197A    32801D96              LW,8     T2CCALL           FETCH CALL INSTRUCTION
     5763   01 0197B    358C1DB2              STW,8    T2CALL,6          STORE CALL INSTRUCTION
     5764   01 0197C    32E02B92              LW,14    :SEED             FETCH RANDOM NUMBER SEED
     5765   01 0197D    6AF02B85              BAL,15   :RANDOM           GENERATE A RANDOM NUMBER
     5766   01 0197E    30E0000E A            AW,14    14                MODIFY RANDOM NUMBER
     5767   01 0197F    35EC1E92              STW,14   T2RANDN1,6        SAVE NUMBER
     5768   01 01980    6AF02B85              BAL,15   :RANDOM           GENERATE A RANDOM NUMBER
     5769   01 01981    35E0000B A            STW,14   11
     5770   01 01982    6AF02B85              BAL,15   :RANDOM           GENERATE A RANDOM NUMBER
     5771   01 01983    35E0000D A            STW,14   13
     5772   01 01984    22A00000 A            LI,10    0
     5773   01 01985    22C00000 A            LI,12    0
     5774   01 01986    36A003E4              DW,10    DEVNO
     5775   01 01987    32F02B9C              LW,15    #ABSOLC           NUMBER OF SECTORS
     5776   01 01988    25F0007F A            SLS,15   -1                  PER TRACY DIVIDED BY 2
     5777   01 01989    36C0000F A            DW,12    15
     5778   01 0198A    25F0007F A            SLS,15   -1                  PER TRACK DIVIDED BY 4
     5779   01 0198B    20A00002 A            AI,10    2                 RANDOM NUMBER USED TO
     5780   01 0198C    30C0000F A            AW,12    15                  CONTROL TRANSFER INSTRUCTIONS
     5781   01 0198D    328C1E82              LW,8     T2TASKPC,6
     5782   01 0198E    20800009 A            AI,8     9
     5783   01 0198F    F5A00008 A            STB,10   *8                STORE RANDOM NUMBER IN TRANSFER DW
     5784   01 01990    20800010 A            AI,8     16
     5785   01 01991    F5C00008 A            STB,12   *8                STORE RANDOM NUMBER IN TRANSFER DW
     5786   01 01992    33100006 A            MTW,1    6                 INCR.
     5787   01 01993    33100007 A            MTW,1    7                   INDEXES
     5788   01 01994    316003E4              CW,6     DEVNO             COMPARE TO NUMBER OF DEVICES
     5789   01 01995    69101967              BL       T2INIT1           B: INITIALIZE NEXT DEVICE
     5790   01 01996    32801D95              LW,8     T2ISERXP          FETCH XPSD INSTR.
     5791   01 01997    3580005C A            STW,8    X'5C'             STORE XPSD IN IO INTER LOC
     5792   01 01998    22800000 A            LI,8     0
     5793   01 01999    22900000 A            LI,9     0
     5794   01 0199A    15801D7A              STD,8    T2CIOAC           CLEAR T2CIOAC AND T2CIOS
     5795   01 0199B    15801D7C              STD,8    T2CMEMAC          CLEAR T2CMEMAC AND T2C DONE
     5796   01 0199C    35801D83              STW,8    T2CFIN            CLEAR T2CFIN
     5797   01 0199D    35801D84              STW,8    T2CCYCC                 T2CCYCC
     5798   01 0199E    35801D88              STW,8    T2CKEY                  T2CKEY
     5799   01 0199F    35202AFE              STW,2    :PATID            SET PATTERN GENERATOR TO RANDOM
     5800   01 019A0    32802B94              LW,8     #RLEN
     5801   01 019A1    35802B01              STW,8    :PATWC
     5802   01 019A2    32802BAB              LW,8     IOBUF             FETCH IOBUF ADR
     5803   01 019A3    35801D80              STW,8    T2CMFRST          MEMORY STARTING LOCATION
     5804   01 019A4    22400000 A            LI,4     0                 INDEX
     5805   01 019A5    30802B94              AW,8     #RLEN             ADD RECORD LENGTH WORD COUNT
     5806   01 019A6    3180022F              CW,8     :MEMLAST
     5807   01 019A7    692019AA              BG       %+3               B: END OF AVAILABLE MEMORY
     5808   01 019A8    33100004 A            MTW,1    4                 INCR INDEX
     5809   01 019A9    680019A5              B        %-4               B: ADD NEXT BUFFER WORD CNT
     5810   01 019AA    314003E4              CW,4     DEVNO
     5811   01 019AB    692019BB              BG       T2INIT2           B: ENOUGH BUFFERS AVAILABLE
     5812   01 019AC    EAF0021C              BAL,15   *:PRINT           PRINT MSG
     5813   01 019AD    000019AF              DATA     T2INITM
     5814   01 019AE    E8000214              B        *:MONITOR         RETURN CONTR TO MONITOR
     5815   01 019AF    2EE3E2E3 A   T2INITM  TEXTC    'TST2 - NOT ENOUGH MEMORY AVAIL FOR ALL DEVICES'
            01 019B0    F2406040 A
            01 019B1    D5D6E340 A
            01 019B2    C5D5D6E4 A
            01 019B3    C7C840D4 A
            01 019B4    C5D4D6D9 A
            01 019B5    E840C1E5 A
            01 019B6    C1C9D340 A
            01 019B7    C6D6D940 A
            01 019B8    C1D3D340 A
            01 019B9    C4C5E5C9 A
            01 019BA    C3C5E240 A
     5816   01 019BB    33F00004 A   T2INIT2  MTW,-1   4                 SUBTRACT 1 FROM INDEX
     5817   01 019BC    21400020 A            CI,4     32                COMPARE TO 32
     5818   01 019BD    691019BF              BL       %+2               B: INDEX OK
     5819   01 019BE    2240001F A            LI,4     31                MAXIMUM BUFFERS USED
     5820   01 019BF    35401D81              STW,4    T2CMEMNO          SAVE INDEX
     5821   01 019C0    22800000 A            LI,8     0
     5822   01 019C1    224FFFF8 A            LI,4     -8                CLEAR
     5823   01 019C2    35881D95              STW,8    T2CMMAP+8,4         MEMORY MAP
     5824   01 019C3    654019C2              BIR,4    %-1                   CELLS
     5825   01 019C4    32802B94              LW,8     #RLEN
     5826   01 019C5    358022DE              STW,8    T3ULEN
     5827   01 019C6    22800000 A            LI,8     0                 INITIALIZE
     5828   01 019C7    358022E1              STW,8    T3UHDR              FLAGS FOR KEYING OPERATION
     5829   01 019C8    351022EC              STW,1    T3UCMP
     5830   01 019C9    6ED00000 A            AIO,13   0
     5831   01 019CA    688019C9              BCR,8    %-1               CLEAR ALL INTERRUPTS
     5832   01 019CB    35801D97              STW,8    T2CTIME           SET START COUNT TO 0
     5833   01 019CC    32901D99              LW,9     T2CMTW            FETCH MTW INSTRUCTION
     5834   01 019CD    35900055 A            STW,9    X'55'             STORE IN COUNTER 4 COUNT PULSE LOC
     5835   01 019CE    22901000 A            LI,9     X'1000'           BIT 19
     5836   01 019CF    6D901200 A            WD,9     X'1200'           ARM AND ENABLE CNTR 4
     5837   01 019D0    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLEITO INTERRUPT
     5838   01 019D1    680019D2              B        T2EXEC            BRANCH TO EXERCISER

     5840                            *        *** TST2 - EXERCISER ***

     5842                            * THIS ROUTINE CONTROL THE EXECUTION OF SUBTASKS FOR EACH DEVICE

     5844   01 019D2    22600000 A   T2EXEC   LI,6     0                 INITIALIZE INDEXES
     5845   01 019D3    22700000 A            LI,7     0
     5846   01 019D4    15601D7E              STD,6    T2CPRIIO          CLEAR PRIORITY COUNTS
     5847   01 019D5    328C1DD2     T2EXEC0  LW,8     T2PRIIO,6         FETCH PRIORITY COUNT
     5848   01 019D6    31801D7E              CW,8     T2CPRIIO
     5849   01 019D7    682019D9              BLE      %+2               B: NO HICHER PRIORITY ON CUR. DEV.
     5850   01 019D8    35801D7E              STW,8    T2CPRIIO          SAVE PRIORITY COUNT
     5851   01 019D9    328C1DDA              LW,8     T2PRIM,6          FETCH PRIORITY COUNT
     5852   01 019DA    31801D7F              CW,8     T2CPRIM
     5853   01 019DB    682019DD              BLE      %+2               B: NO HICHER PRIORITY ON CUR. DEV.
     5854   01 019DC    35801D7F              STW,8    T2CPRIM           SAVE PRIORITY COUNT
     5855   01 019DD    328C1DC2              LW,8     T2SIOT,6          FETCH SIO STARTED TIME
     5856   01 019DE    68301A1F              BEZ      T2EXEC2           B: DEVICE NOT STARTED
     5857   01 019DF    38801D97              SW,8     T2CTIME           SUBTRACT CURRENT COUNT
     5858   01 019E0    218FEC78 A            CI,8     -5000             COMPARE DIFFERENCE
     5859   01 019E1    68101A1F              BGE      T2EXEC2           B: TIME NOT EXCEEDED
     5860   01 019E2    6AF02B14              BAL,15   :INTD             DISARM INTERRUPT
     5861   01 019E3    328C1DBA              LW,8     T2DEVA,6          FETCH DEVICE ADR
     5862   01 019E4    358003E2              STW,8    :DEVADDR
     5863   01 019E5    EAF0021C              BAL,15   *:PRINT
     5864   01 019E6    000019E9              DATA     T2EXECM
     5865   01 019E7    6AF01D6E              BAL,15   DEVADRM           PRINT DEV ADR
     5866   01 019E8    680019F2              B        T2EXEC1
     5867   01 019E9    21E3E2E3 A   T2EXECM  TEXTC    'TST2 - IO OPERATION NOT COMPLETED'
            01 019EA    F2406040 A
            01 019EB    C9D640D6 A
            01 019EC    D7C5D9C1 A
            01 019ED    E3C9D6D5 A
            01 019EE    40D5D6E3 A
            01 019EF    40C3D6D4 A
            01 019F0    D7D3C5E3 A
            01 019F1    C5C44040 A
     5868   01 019F2    32DC1E3A     T2EXEC1  LW,13    T2SEEKB,6         FETCH CURRENT SEEK ADR
     5869   01 019F3    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK ADR
     5870   01 019F4    12CE1DF2              LD,12    T2IOCD,7          FETCH DOUBLEWORD
     5871   01 019F5    6AF01D59              BAL,15   IOCDMSG           PRINT IOCD
     5872   01 019F6    6AF026CB              :HIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 019F7    FFFFC000 A
            01 019F8    10000000 A
            01 019F9    680019FA
     5873   01 019FA    6AF026C6              :TIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 019FB    FFFFC000 A
            01 019FC    10000000 A
            01 019FD    680019FE
     5874   01 019FE    128E1DE2              LD,8     T2TASK,7          FETCH CURRENT TASK
     5875   01 019FF    72A00008 A            LB,10    8                 FETCH ORDER CODE
     5876   01 01A00    21A00003 A            CI,10    3                 TEST ORDER CODE
     5877   01 01A01    68101A07              BGE      %+6               B: NOT A READ OR WRITE ORDER
     5878   01 01A02    33F01D7C              MTW,-1   T2CMEMAC          DECR MEM ACTIVE COUNT
     5879   01 01A03    324C1E02              LW,4     T2MEM0,6          FETCH CURRENT MEMORY ADR
     5880   01 01A04    72400004 A            LB,4     4                 MEMORY INDEX
     5881   01 01A05    22500000 A            LI,5     0
     5882   01 01A06    75581D8D              STB,5    T2CMMAP,4         RELEASE MEMORY
     5883   01 01A07    21A00083 A            CI,10    X'83'
     5884   01 01A08    68301A0D              BE       %+5               B: SEEK ORDER
     5885   01 01A09    22000000 A            LI,0     0
     5886   01 01A0A    35001D7A              STW,0    T2CIOAC           RESET IO ACTIVE COUNT
     5887   01 01A0B    33F01D7B              MTW,-1   T2CIOS            DECR9 IO STARTED COUNT
     5888   01 01A0C    68001A11              B        %+5               B: CONT.
     5889   01 01A0D    22AFFFFE A            LI,10    -2
     5890   01 01A0E    31AC1DCA              CW,10    T2INTREC,6        TEST INT RECEIVED FLAG
     5891   01 01A0F    68301A0B              BE       %-4               B: CE INT RECEIVED
     5892   01 01A10    68001A09              B        %-7               B: NOT A CE INT
     5893   01 01A11    52A20009 A            LH,10    9,1
     5894   01 01A12    25A00001 A            SLS,10   +1
     5895   01 01A13    20A00001 A            AI,10    1                 REALIGN SUBTASK  POINTERS
     5896   01 01A14    55A20009 A            STH,10   9,1
     5897   01 01A15    158E1DE2              STD,8    T2TASK,7
     5898   01 01A16    328C1DB2              LW,8     T2CALL,6          FETCH CALL INSTR
     5899   01 01A17    72920008 A            LB,9     8,1               FETCH R FIELD OF CALL
     5900   01 01A18    33F00009 A            MTW,-1   9
     5901   01 01A19    4B902C06              AND,9    =X'000000F0'
     5902   01 01A1A    75920008 A            STB,9    8,1               MODIFY CALL INSTR
     5903   01 01A1B    358C1DB2              STW,8    T2CALL,6
     5904   01 01A1C    32001D97              LW,0     T2CTIME           RESET TIMER
     5905   01 01A1D    350C1DC2              STW,0    T2SIOT,6
     5906   01 01A1E    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLE INTERRUPT
     5907   01 01A1F    33100006 A   T2EXEC2  MTW,1    6                 INCR
     5908   01 01A20    33100007 A            MTW,1    7                   INDEXES
     5909   01 01A21    316003E4              CW,6     DEVNO
     5910   01 01A22    691019D5              BL       T2EXEC0           TEST NEXT DEVICE
     5911   01 01A23    22600000 A            LI,6     0                 INITIALIZE
     5912   01 01A24    22700000 A            LI,7     0                   INDEXES
     5913   01 01A25    328C1DB2     T2EXEC3  LW,8     T2CALL,6          FETCH CALL
     5914   01 01A26    35801A27              STW,8    %+1
     5915   01 01A27    00000000 A            DATA     0                 CALL INSTRUCTION
     5916   01 01A28    33100006 A            MTW,1    6                 INCR
     5917   01 01A29    33100007 A            MTW,1    7                   INDEXES
     5918   01 01A2A    316003E4              CW,6     DEVNO
     5919   01 01A2B    69101A25              BL       T2EXEC3           B: NEXT DEVICE
     5920   01 01A2C    32801D84              LW,8     T2CCYCC           FETCH CURRENT CYCLE COUNT
     5921   01 01A2D    31801D85              CW,8     T2CCYCI
     5922   01 01A2E    691019D2              BL       T2EXEC            B: NOT DONE
     5923   01 01A2F    35101D83              STW,1    T2CFIN            SET FINISH FLAG
     5924   01 01A30    32801D7D              LW,8     T2CDONE           FETCH DONE COUNT
     5925   01 01A31    318003E4              CW,8     DEVNO
     5926   01 01A32    691019D2              BL       T2EXEC            B: NOT DONE
     5927   01 01A33    E8001D98              B        *T2EXIT           RETURN TO CALLING ROUTINE

     5929                            *        *** TST2 - INTERRUPT SERVICE ROUTINE

     5931   01 01A34    022000C0 A   T2INTS   LCI      12
     5932   01 01A35    2B401AAA              STM,4    T2INTSR           SAVE R4 - R15
     5933   01 01A36    6ED00000 A            AIO,13   0                 AIO
     5934   01 01A37    68801A3B              BCR,8    T2INTS2
     5935   01 01A38    022000C0 A   T2INTS1  LCI      12                RESTORE
     5936   01 01A39    2A401AAA              LM,4     T2INTSR             R4 - R15
     5937   01 01A3A    0E301AB8              LPSD,3   T2ISER            EXIT
     5938   01 01A3B    7406000E A   T2INTS2  STCF     14,3              FETCH CONDITION CODE
     5939   01 01A3C    22600000 A            LI,6     0                 INDEX
     5940   01 01A3D    52A2000D A            LH,10    13,1              FETCH AIO ADR
     5941   01 01A3E    31AC1DBA     T2INTS2A CW,10    T2DEVA,6          COMPARE ADR
     5942   01 01A3F    68301A4E              BE       T2INTS3           B: ADR MATCH
     5943   01 01A40    33100006 A            MTW,1    6                 INCR INDEX
     5944   01 01A41    316003E4              CW,6     DEVNO
     5945   01 01A42    69101A3E              BL       T2INTS2A          B: TRY AGAIN
     5946   01 01A43    EAF0021C              BAL,15   *:PRINT
     5947   01 01A44    00001A46              DATA     T2INTSM1
     5948   01 01A45    68001A38              B        T2INTS1           B: EXIT
     5949   01 01A46    1DE3E2E3 A   T2INTSM1 TEXTC    'TST2 - INT ADR NOT RECOGNIZED'
            01 01A47    F2406040 A
            01 01A48    C9D5E340 A
            01 01A49    C1C4D940 A
            01 01A4A    D5D6E340 A
            01 01A4B    D9C5C3D6 A
            01 01A4C    C7D5C9E9 A
            01 01A4D    C5C44040 A
     5950   01 01A4E    330C1DCA     T2INTS3  MTW,0    T2INTREC,6        TEST INT REC FLAG
     5951   01 01A4F    69101A5E              BLZ      T2INTS4           B: INTERRUPT WAS EXPECTED
     5952   01 01A50    32C0000A A            LW,12    10                DEVICE ADDR
     5953   01 01A51    EAF00218              BAL,15  *:HEXC             CONVERT ADR
     5954   01 01A52    35F01A5B              STW,15   T2INTSM2+5        STORE ADR IN MSG
     5955   01 01A53    EAF0021C              BAL,15   *:PRINT
     5956   01 01A54    00001A56              DATA     T2INTSM2
     5957   01 01A55    68001A38              B        T2INTS1           B: EXIT
     5958   01 01A56    1FE3E2E3 A   T2INTSM2 TEXTC    'TST2 - INT DEV NO  XXXX NOT EXP'
            01 01A57    F2406040 A
            01 01A58    C9D5E340 A
            01 01A59    C4C5E540 A
            01 01A5A    D5D64040 A
            01 01A5B    E7E7E7E7 A
            01 01A5C    40D5D6E3 A
            01 01A5D    40C5E7D7 A
     5959   01 01A5E    35DC1E52     T2INTS4  STW,13   T2AIO,6           SAVE AIO
     5960   01 01A5F    35EC1E6A              STW,14   T2AIOCC,6           STATUS AND CC
     5961   01 01A60    CEC0000A A            TDV,12   *10
     5962   01 01A61    7406000E A            STCF     14,3              FETCH CC
     5963   01 01A62    35DC1E5A              STW,13   T2TDV,6           SAVE TDV
     5964   01 01A63    35EC1E72              STW,14   T2TDVCC,6           STATUS AND CC
     5965   01 01A64    CDC0000A A            TIO,12   *10
     5966   01 01A65    7406000E A            STCF     14,3              FETCH CC
     5967   01 01A66    35DC1E62              STW,13   T2TIO,6           SAVE TIO
     5968   01 01A67    35EC1E7A              STW,14   T2TIOCC,6           STATUS AND CC
     5969   01 01A68    32700006 A   T2INTS5  LW,7     6                 DOUBLE WORD INDEX
     5970   01 01A69    128E1DE2              LD,8     T2TASK,7          FETCH CURRENT TASK
     5971   01 01A6A    72A00008 A            LB,10    8                 ORDER CODE
     5972   01 01A6B    21A00083 A            CI,10    X'83'
     5973   01 01A6C    68301A72              BE       T2INTS8           B: SEEK ORDER
     5974   01 01A6D    33F01D7B     T2INTS6  MTW,-1   T2CIOS            DECR. IO STARTED COUNT
     5975   01 01A6E    351C1DCA              STW,1    T2INTREC,6        SET INT RECEIVED FLAG
     5976   01 01A6F    22800000 A   T2INTS7  LI,8     0                 RESET
     5977   01 01A70    35801D7A              STW,8    T2CIOAC             IO ACTIVE
     5978   01 01A71    68001A38              B        T2INTS1           B: EXIT
     5979   01 01A72    32AC1E52     T2INTS8  LW,10    T2AIO,6           FETCH AIO STATUS
     5980   01 01A73    4BA02C07              AND,10  =X'00180000'       TEST CE AND UE INTERRUPT
     5981   01 01A74    68301A88              BEZ      T2INTS9           B: NOT A CE OR UE INTERRUPT
     5982   01 01A75    351C1DCA              STW,1    T2INTREC,6          SET INTER RECEIVED FLAG
     5983   01 01A76    328C1DB2              LW,8     T2CALL,6          GET CALL INSTRUCTION
     5984   01 01A77    72920008 A            LB,9     8,1
     5985   01 01A78    21900040 A            CI,9     X'40'             COMPARE R FIELD TO 4 (T2TSKT)
     5986   01 01A79    68301A7D              BE       %+4               B: TEST IO SUBTASK
     5987   01 01A7A    EAF0022B              BAL,15   *:WAIT
     5988   01 01A7B    00002BD2              DATA     WAITMSG1          PROGRAM
     5989   01 01A7C    68001A7A              B        %-2                 ERROR
     5990   01 01A7D    12A01D9C              LD,10    CALLSUBT          SAVE CALL
     5991   01 01A7E    15A01ABC              STD,10   T2INTCAL            PSDW
     5992   01 01A7F    35801A80              STW,8    %+1               STORE CALL INSTRUCTION
     5993   01 01A80    00000000 A            DATA     0                 CALL
     5994   01 01A81    12801ABC              LD,8     T2INTCAL          RESTORE CALL
     5995   01 01A82    15801D9C              STD,8    CALLSUBT            PSDW
     5996   01 01A83    33001D8B              MTW,0    T2ERROR
     5997   01 01A84    69301A6D              BNEZ     T2INTS6           B: ERRORS
     5998   01 01A85    228FFFFE A            LI,8     -2
     5999   01 01A86    358C1DCA              STW,8    T2INTREC,6        SET INTERRUPT EXPECTED FLAG
     6000   01 01A87    68001A6F              B        T2INTS7           B: NO ERRORS ON SEEK CE INTERRUPT
     6001   01 01A88    72920009 A   T2INTS9  LB,9     9,1               FETCH SEEK TYPE
     6002   01 01A89    69301A8D              BNEZ     %+4               B: SEEK TYPE 1
     6003   01 01A8A    33F01D7B              MTW,-1   T2CIOS            DECR. IO STARTED COUNT
     6004   01 01A8B    351C1DCA              STW,1    T2INTREC,6        UET INTERRUPT RECEIVED FLAG
     6005   01 01A8C    68001A38              B        T2INTS1           B: EXIT
     6006   01 01A8D    33F01D7B              MTW,-1   T2CIOS            DECR IO STARTED COUNT
     6007   01 01A8E    351C1DCA              STW,1    T2INTREC,6        SET INT RECEIVED FLAG
     6008   01 01A8F    328C1DB2              LW,8     T2CALL,6          GET CALL INSTRUCTION
     6009   01 01A90    72920008 A            LB,9     8,1
     6010   01 01A91    21900040 A            CI,9     X'40'             COMPARE R FIELD TO 4 (T2TSKT)
     6011   01 01A92    68301A96              BE       %+4               B: TEST IO SUBTEST
     6012   01 01A93    EAF0022B              BAL,15   *:WAIT
     6013   01 01A94    00002BD2              DATA     WAITMSG1          PROGRAM
     6014   01 01A95    68001A93              B        %-2                 ERROR
     6015   01 01A96    12A01D9C              LD,10    CALLSUBT          SAVE CALL
     6016   01 01A97    15A01ABC              STD,10   T2INTCAL            PSDW
     6017   01 01A98    35801A99              STW,8    %+1               STORE CALL INSTRUCTION
     6018   01 01A99    00000000 A            DATA     0
     6019   01 01A9A    12801ABC              LD,8     T2INTCAL          RESTORE CALL
     6020   01 01A9B    15801D9C              STD,8    CALLSUBT            PSDW
     6021   01 01A9C    33001D8B              MTW,0    T2ERROR
     6022   01 01A9D    69301A38              BNEZ     T2INTS1           B: ERRORS - EXIT
     6023   01 01A9E    224FFFFC A            LI,4     -4
     6024   01 01A9F    12A01D9C              LD,10    CALLSUBT          SAVE CALL
     6025   01 01AA0    15A01ABC              STD,10   T2INTCAL            PSDW
     6026   01 01AA1    35401AB6              STW,4    T2INTSX           SAVE INDEX
     6027   01 01AA2    328C1DB2              LW,8     T2CALL,6
     6028   01 01AA3    35801AA4              STW,8    %+1               FETCH CALL INSTR
     6029   01 01AA4    00000000 A            DATA     0                 CALL
     6030   01 01AA5    33101AB6              MTW,1    T2INTSX           INCR INDEX
     6031   01 01AA6    69301AA2              BNEZ     %-4               B: ISSUE NEXT CALL
     6032   01 01AA7    12801ABC              LD,8     T2INTCAL          RESTORE CALL
     6033   01 01AA8    15801D9C              STD,8    CALLSUBT            PSDW
     6034   01 01AA9    68001A38              B        T2INTS1           B: DONE

     6036   01 01AAA                 T2INTSR  RES      12
     6037   01 01AB6    00000000 A   T2INTSX  DATA     0
     6038                                     BOUND    8
     6039   01 01AB8    00000000 A   T2ISER   DATA     0,0,T2INTS,0
            01 01AB9    00000000 A
            01 01ABA    00001A34
            01 01ABB    00000000 A
     6040   01 01ABC    00000000 A   T2INTCAL DATA     0,0               CALL PSDW
            01 01ABD    00000000 A

     6042                            *        *** TST2 - SUBTASK 0, INITIALIZATION ROUTINE ***

     6044                            * REGISTERS USED: 4,5,8,9,10  R6=WORD INDEX,R7=DOUBLEWORD INDEX

     6046   01 01ABE    22000000 A   T2TSKIN  LI,0     0
     6047   01 01ABF    350C1DC2              STW,0    T2SIOT,6
     6048   01 01AC0    350C1DCA              STW,0    T2INTREC,6        RESET
     6049   01 01AC1    350C1DD2              STW,0    T2PRIIO,6           TASK CONTROL
     6050   01 01AC2    350C1DDA              STW,0    T2PRIM,6              TABLE FLAGS
     6051   01 01AC3    6AA01D4E              BAL,10   T2MODCAL          B: FIND NEXT SUBTASK
     6052   01 01AC4    68001DA0              B        T2CALX            EXIT

     6054                            *        *** TST2 - SUBTASK 1, GET MEMORY ROUTINE ***

     6056                            * REGISTERS USED: 4,5,8,9,10,14,15

     6058   01 01AC5    32801D7C     T2TSKGM  LW,8     T2CMEMAC
     6059   01 01AC6    31801D81              CW,8     T2CMEMNO          IO BUFFER AVAILABLE?
     6060   01 01AC7    69101ACA              BL       T2TSKGM1          B: IO BUFFER AVAILABLE
     6061   01 01AC8    331C1DDA     T2TSKGM0 MTW,1    T2PRIM,6          INCR. MEMORY PRIORITY
     6062   01 01AC9    68001DA0              B        T2CALX            EXIT
     6063   01 01ACA    328C1DDA     T2TSKGM1 LW,8     T2PRIM,6
     6064   01 01ACB    31801D7F              CW,8     T2CPRIM           HIGHER MEMORY PRIORITY
     6065   01 01ACC    69101AC8              BL       T2TSKGM0          B:    HIGHER PRIORITY
     6066   01 01ACD    328003E4              LW,8     DEVNO             SET INDEX TO NUMBER OF DEVICES
     6067   01 01ACE    32EC1E92              LW,14    T2RANDN1,6        FETCH RANDOM NUMBER SEED
     6068   01 01ACF    6AF02B85     T2TSKGM2 BAL,15   :RANDOM           B: GEN RANDOM NUMBER
     6069   01 01AD0    22400000 A            LI,4     0
     6070   01 01AD1    3250000E A            LW,5     14                DIVIDE NUMBER
     6071   01 01AD2    36401D81              DW,4     T2CMEMNO            BY AVAILABLE BUFFERS
     6072   01 01AD3    72581D8D              LB,5     T2CMMAP,4         FETCH MEM. MAP CELL
     6073   01 01AD4    68301AE0              BEZ      T2TSKGM4          B: MEMORY AVAILABLE
     6074   01 01AD5    64801ACF              BDR,8    T2TSKGM2          B: TRY NEXT RANDOM NUMBER
     6075   01 01AD6    35EC1E92              STW,14   T2RANDN1,6        SAVE RANDOM NO
     6076   01 01AD7    22400000 A            LI,4     0                  SET INDEX = 0
     6077   01 01AD8    72581D8D     T2TSKGM3 LB,5     T2CMMAP,4         FETCH MEM MAP CELL
     6078   01 01AD9    68301AE0              BEZ      T2TSKGM4          B: MEMORY AVAILABLE
     6079   01 01ADA    33100004 A            MTW,1    4                 INCR. INDEX
     6080   01 01ADB    31401D81              CW,4     T2CMEMNO          ALL CELLS TESTED?
     6081   01 01ADC    69101AD8              BL       T2TSKGM3          B: TEST NEXT MAP CELL
     6082   01 01ADD    EAF0022B              BAL,15   *:WAIT
     6083   01 01ADE    00002BD2              DATA     WAITMSG1          *** PROGRAM
     6084   01 01ADF    68001ADD              B        %-2                          ERROR ***
     6085   01 01AE0    35EC1E92     T2TSKGM4 STW,14   T2RANDN1,6        SAVE RANDOM NO SEED
     6086   01 01AE1    22800000 A            LI,8     0
     6087   01 01AE2    22900100 A            LI,9     256               MULTIPLY INDEX
     6088   01 01AE3    37800004 A            MW,8     4                   BY BUFFER WORD COUNT
     6089   01 01AE4    30901D80              AW,9     T2CMFRST          ADD BUFFER STARTING ADDR
     6090   01 01AE5    75181D8D              STB,1    T2CMMAP,4         SET MEM MAP CELL
     6091   01 01AE6    75400009 A            STB,4    9                 COMBINE BUFFER ADDR AND INDEX
     6092   01 01AE7    124E1DE2              LD,4     T2TASK,7          FETCH CURREND TASK
     6093   01 01AE8    4B502C08              AND,5    =X'00010000'      TEST MEMORY SELECT BIT
     6094   01 01AE9    69301AEC              BNEZ     %+3               B: MEMORY 1 (READ BUFFER)
     6095   01 01AEA    359C1E02              STW,9    T2MEM0,6          SAVE STARTING ADR
     6096   01 01AEB    68001AED              B        %+2
     6097   01 01AEC    359C1E0A              STW,9    T2MEM1,6          SAVE STARTING ADR
     6098   01 01AED    33101D7C              MTW,1    T2CMEMAC          INCR MEM ACTIVE COUNT
     6099   01 01AEE    22800000 A            LI,8     0
     6100   01 01AEF    358C1DDA              STW,8    T2PRIM,6          RESET MEMORY PRIORITY
     6101   01 01AF0    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6102   01 01AF1    68001DA0              B        T2CALX            EXIT

     6104                            *        *** TST2 - SUBTASK 2, BUILD AN IOCD ***

     6106                            * REGISTERS USED: 4,5, 8 - 15

     6108   01 01AF2    124E1DE2     T2TSKBD  LD,4     T2TASK,7          FETCH CURRENT TASK
     6109   01 01AF3    72A00004 A            LB,10    4                 FETCH ORDER CODE
     6110   01 01AF4    2290001C A            LI,9     X'1C'             STORE INTERRUPT
     6111   01 01AF5    75900009 A            STB,9    9                   FLAGS
     6112   01 01AF6    55420009 A            STH,4    9,1               STORE BYTE COUNT
     6113   01 01AF7    21A00083 A            CI,10    X'83'             SEEK ORDER
     6114   01 01AF8    68301B05              BE       T2TSKBD3          B: SEEK ORDER
     6115   01 01AF9    21A00004 A            CI,10    4                 SENSE ORDER?
     6116   01 01AFA    68301B02              BE       T2TSKBD2          B: SENSE ORDER
     6117   01 01AFB    328C1E02              LW,8     T2MEM0,6          FETCH MEMORY WORD ADDR
     6118   01 01AFC    52820008 A            LH,8     8,1               REMOVE INDEX
     6119   01 01AFD    25800002 A   T2TSKBD1 SLS,8    +2                CONVERT TO BYTE ADR
     6120   01 01AFE    75A00008 A            STB,10   8                 STORE ORDER CODE
     6121   01 01AFF    158E1DF2              STD,8    T2IOCD,7          SAVE IOCD
     6122   01 01B00    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6123   01 01B01    68001DA0              B        T2CALX            EXIT
     6124   01 01B02    22801E42     T2TSKBD2 LI,8     T2SENSEB          GET SENSE BUFFER ADR
     6125   01 01B03    30800006 A            AW,8     6                 ADD WORD INDEX
     6126   01 01B04    68001AFD              B        T2TSKBD1          B: CONT.
     6127   01 01B05    330C1E32     T2TSKBD3 MTW,0    T2SEEKFL,6        TEST SEEKFLAG
     6128   01 01B06    69301B19              BNEZ     T2TSKBD5          B: RETRY SEEK
     6129   01 01B07    32EC1E92              LW,14    T2RANDN1,6        FETCH RANDOM NUMBER SEED
     6130   01 01B08    6AF02B85              BAL,15   :RANDOM           B: GEN RANDOM NUMBER
     6131   01 01B09    35EC1E92              STW,14   T2RANDN1,6        SAVE SEED
     6132   01 01B0A    72520005 A            LB,5     5,1               SEEK TYPE?
     6133   01 01B0B    69301B15              BNEZ     T2TSKBD6          B: SEEK 1
     6134   01 01B0C    12CE1E12              LD,12    T2SECTA,7         FETCH AVAILABLE SECTORS
     6135   01 01B0D    38D0000C A            SW,13    12                SUBTRACT STARTING FROM ENDING ADR
     6136   01 01B0E    35E0000F A            STW,14   15                RANDOM NO
     6137   01 01B0F    22E00000 A            LI,14    0
     6138   01 01B10    36E0000D A            DW,14    13                COMPUTE RANDOM SECTOR NUMBER
     6139   01 01B11    30C0000E A            AW,12    14                ADD TO STARTING ADR
     6140   01 01B12    32D0000C A            LW,13    12
     6141   01 01B13    6AF025FB              BAL,15   SEEKGEN           GENERATE 4 BYTE SEEK ADR
     6142   01 01B14    35DC1E3A              STW,13   T2SEEKB,6         SAVE SEEK ADR IN BUFFER
     6143   01 01B15    353C1E4A     T2TSKBD6 STW,3    T2RETRY,6         SET SEEK RETRY COUNT TO 3
     6144   01 01B16    22801E3A     T2TSKBD4 LI,8     T2SEEKB           GET SEEK BUFFER ADR
     6145   01 01B17    30800006 A            AW,8     6                 ADD WORD INDEX
     6146   01 01B18    68001AFD              B        T2TSKBD1          B: CONT
     6147   01 01B19    22800000 A   T2TSKBD5 LI,8     0
     6148   01 01B1A    358C1E32              STW,8    T2SEEKFL,6        CLEAR SEEK FLAG
     6149   01 01B1B    68001B16              B        T2TSKBD4

     6151                            *        *** TST2 - SUBTASK 3, START INPUT/OUTPUT

     6153                            * REGISTERS USED:  8

     6155   01 01B1C    33001D7A     T2TSKIO  MTW,0    T2CIOAC           IO ACTIVE?
     6156   01 01B1D    68301B20              BEZ      T2TSKIO2
     6157   01 01B1E    331C1DD2     T2TSKIO1 MTW,1    T2PRIIO,6         INCR. IO PRIORITY
     6158   01 01B1F    68001DA0              B        T2CALX            EXIT
     6159   01 01B20    328C1DD2     T2TSKIO2 LW,8     T2PRIIO,6
     6160   01 01B21    31801D7E              CW,8     T2CPRIIO          HIGHER IO PRIORITY
     6161   01 01B22    69101B1E              BL       T2TSKIO1          B: A HIGHER PRIORITY IS PENDING
     6162   01 01B23    328C1DBA              LW,8     T2DEVA,6          FETCH DEV. ADR
     6163   01 01B24    358003E2              STW,8    :DEVADDR
     6164   01 01B25    CEC003E2              TDV,12  *:DEVADDR          TDV
     6165   01 01B26    4BD02C09              AND,13   =X'04000000'      TEST ON-CYL BIT
     6166   01 01B27    68301B1E              BEZ      T2TSKIO1
     6167   01 01B28    33101D84              MTW,1    T2CCYCC           INCR CYCLE COUNT
     6168   01 01B29    22000EF9              LI,0     DA(T2IOCD)        FETCH WORD ADR OF IOCD
     6169   01 01B2A    30000006 A            AW,0     6
     6170   01 01B2B    CCC003E2              SIO,12   *:DEVADDR         ISSUE IO
     6171   01 01B2C    69C01B37              BCS,12   T2TSKIO3          SIO NOT SUCCESSFUL
     6172   01 01B2D    33101D7A              MTW,1    T2CIOAC           SET  IO ACTIVE COUNT
     6173   01 01B2E    228FFFFF A            LI,8     -1
     6174   01 01B2F    358C1DCA              STW,8    T2INTREC,6        SET INTER REC FLAG TO -1
     6175   01 01B30    33101D7B              MTW,1    T2CIOS            INCR IO STARTED COUNT
     6176   01 01B31    32801D97              LW,8     T2CTIME           GET REAL TIME COUNT
     6177   01 01B32    358C1DC2              STW,8    T2SIOT,6          SAVE TIME
     6178   01 01B33    22800000 A            LI,8     0
     6179   01 01B34    358C1DD2              STW,8    T2PRIIO,6         RESET IO PRIORITY
     6180   01 01B35    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6181   01 01B36    68001DA0              B        T2CALX            EXIT
     6182   01 01B37    31D02BE2     T2TSKIO3 CW,13    =X'80000000'      TEST IP BIT
     6183   01 01B38    69401B1E              BCS,4    T2TSKIO1          B: INTERRUPT PENDING
     6184   01 01B39    EAF0021C              BAL,15   *:PRINT
     6185   01 01B3A    00001B3C              DATA     T2TSKIOM          PRINT MSG
     6186   01 01B3B    68001B42              B        T2TSKIO4
     6187   01 01B3C    17E3E2E3 A   T2TSKIOM TEXTC    'TST2 - SIO NOT ACCEPTED'
            01 01B3D    F2406040 A
            01 01B3E    E2C9D640 A
            01 01B3F    D5D6E340 A
            01 01B40    C1C3C3C5 A
            01 01B41    D7E3C5C4 A
     6188   01 01B42    32DC1E3A     T2TSKIO4 LW,13    T2SEEKB,6         FETCH CURRENT SEEK ADR
     6189   01 01B43    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK ADR
     6190   01 01B44    12CE1DF2              LD,12    T2IOCD,7          FETCH DOUBLEWORD
     6191   01 01B45    6AF01D59              BAL,15   IOCDMSG
     6192   01 01B46    6AF026CB     T2TSKIO5 :HIO     X'FF00C000',X'10000000',0 ALWAYS FALL THROUGH
            01 01B47    FF00C000 A
            01 01B48    10000000 A
            01 01B49    68001B4A
     6193   01 01B4A    6AF026C6              :TIO     X'FF00C000',X'10000000',0 ALWAYS FALL THROUGH
            01 01B4B    FF00C000 A
            01 01B4C    10000000 A
            01 01B4D    68001B4E
     6194   01 01B4E    22800000 A            LI,8     0
     6195   01 01B4F    358C1DD2              STW,8    T2PRIIO,6         RESET PRIORITY
     6196   01 01B50    68001DA0              B        T2CALX            EXIT

     6198                            *        *** TST2 - SUBTASK 4, TEST IO STATUS

     6200   01 01B51    330C1DCA     T2TSKT   MTW,0    T2INTREC,6        TEST INTERRUPT RECEIVED FLAG
     6201   01 01B52    68201DA0              BLEZ     T2CALX            INTERRUPT NOT RECEIVED
     6202   01 01B53    328C1DBA              LW,8     T2DEVA,6          FETCH CURRENT DEV ADR
     6203   01 01B54    35801D8C              STW,8    T2CDEVA           STORE ADR
     6204   01 01B55    22800000 A            LI,8     0
     6205   01 01B56    35801D89              STW,8    T2RESTOR          RESET FLAGS
     6206   01 01B57    35801D8B              STW,8    T2ERROR
     6207   01 01B58    328C1E52              LW,8     T2AIO,6
     6208   01 01B59    329C1E62              LW,9     T2TIO,6           FETCH
     6209   01 01B5A    32AC1E5A              LW,10    T2TDV,6             STATUS
     6210   01 01B5B    32BC1E6A              LW,11    T2AIOCC,6             AND
     6211   01 01B5C    32CC1E7A              LW,12    T2TIOCC,6               CC
     6212   01 01B5D    32DC1E72              LW,13    T2TDVCC,6
     6213   01 01B5E    4BB02C0A              AND,11   =X'C0'
     6214   01 01B5F    4BC02C0A              AND,12   =X'C0'            CLEAR  EXTRA BITS
     6215   01 01B60    4BD02C0A              AND,13   =X'C0'
     6216   01 01B61    124E1DE2              LD,4     T2TASK,7          FETCH CURRENT TASK
     6217   01 01B62    72E00004 A            LB,14    4                 FETCH ORDER CODE
     6218   01 01B63    21E00005 A            CI,14    5
     6219   01 01B64    69201BFF              BG       T2TSKT7           B: RESTORE OR SEEK ORDER
     6220   01 01B65    3300000C A            MTW,0    12                TEST TIO CONDITION CODE
     6221   01 01B66    69301B8D              BNEZ     T2TSKT5           B: CC ERROR
     6222   01 01B67    32E00009 A            LW,14    9
     6223   01 01B68    4BE02C0B              AND,14   =X'66000000'      TEST IO STATUS
     6224   01 01B69    69301B8D              BNEZ     T2TSKT5           B: STATUS: CONTR OR DEV BUSY
     6225   01 01B6A    3300000D A            MTW,0    13                TEST TDV CONDITION CODE
     6226   01 01B6B    69301B8D              BNEZ     T2TSKT5           B: CC ERROR
     6227   01 01B6C    32E0000A A            LW,14    10
     6228   01 01B6D    4BE02C01              AND,14   =X'40000000'      TEST TDV STATUS
     6229   01 01B6E    69301B79              BNEZ     T2TSKT3           B: FLAW BYTE DETECTED IN HEADER
     6230   01 01B6F    4B902C0C              AND,9    =X'08FF0000'      TEST TIO UE AND OPERATIONAL STATUS
     6231   01 01B70    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6232   01 01B71    4BA02C0D              AND,10   =X'BBFF0000'      TEST TDV STATUS
     6233   01 01B72    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6234   01 01B73    21B00040 A            CI,11    X'40'             TEST AIO CC1
     6235   01 01B74    68301B8F              BE       T2TSKT6           B: UNUSUAL INTERRUPT
     6236   01 01B75    4B802C0E              AND,8    =X'FBC80000'      TEST AIO STATUS
     6237   01 01B76    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6238   01 01B77    6AA01D4E     T2TSKT1  BAL,10   T2MODCAL          B: FIND NEXT SUBTASK
     6239   01 01B78    68001DA0     T2TSKT2  B        T2CALX            EXIT
     6240   01 01B79    31902C0F     T2TSKT3  CW,9     =X'08000000'      TEST TIO UE
     6241   01 01B7A    68401B8F              BCR,4    T2TSKT6           B: ERROR REQUIRING RETRY
     6242   01 01B7B    4B902C10              AND,9    =X'00BF0000'      TEST TIO STATUS
     6243   01 01B7C    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6244   01 01B7D    4BA02C11              AND,10   =X'B0BF0000'      TEST TDV STATUS
     6245   01 01B7E    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6246   01 01B7F    21B00040 A            CI,11    X'40'             TEST AIO CC1
     6247   01 01B80    69301B8F              BNE      T2TSKT6           B: NO UNUSUAL INTERRUPT
     6248   01 01B81    4B802C12              AND,8    =X'FB000000'      TEST AIO STATUS
     6249   01 01B82    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6250   01 01B83    72E00004 A            LB,14    4                 FETCH ORDER CODE
     6251   01 01B84    21E00004 A            CI,14    4
     6252   01 01B85    68301BE7              BE       T2TSKT6C          B: IF SENSE ORDER
     6253   01 01B86    33F01D7C              MTW,-1   T2CMEMAC          DECR MEM ACTIVE COUNT
     6254   01 01B87    327C1E02              LW,7     T2MEM0,6          FETCH CURRENT MEMORY ADR
     6255   01 01B88    72700007 A            LB,7     7                 MEMORY INDEX
     6256   01 01B89    22000000 A            LI,0     0
     6257   01 01B8A    750E1D8D              STB,0    T2CMMAP,7         RELEASE MEMORY
     6258   01 01B8B    32700006 A            LW,7     6                 RESTORE R6
     6259   01 01B8C    68001BE7              B        T2TSKT6C          B: FLAW BYTE DETECTED, SKIP TASK
     6260   01 01B8D    CFC01D8C     T2TSKT5  HIO,12   *T2CDEVA          ISSUE HIO (SENSE/WRITE/READ)
     6261   01 01B8E    35101D89              STW,1    T2RESTOR          SET RESTORE FLAG
     6262   01 01B8F    35101D8B     T2TSKT6  STW,1    T2ERROR           SET ERROR FLAG
     6263   01 01B90    72800004 A            LB,8     4                 FETCH ORDER CODE
     6264   01 01B91    21800001 A            CI,8     1
     6265   01 01B92    69301B95              BNE      %+3               B: NOT A WRITE ORDER
     6266   01 01B93    32D02C13              LW,13    =' WRT'           FETCH WRITE MSG
     6267   01 01B94    68001BA2              B        T2TSKT6A
     6268   01 01B95    21800002 A            CI,8     2
     6269   01 01B96    69301B99              BNE      %+3               B: NOT A READ ORDER
     6270   01 01B97    32D02C14              LW,13    ='READ'           FETCH READ MSG
     6271   01 01B98    68001BA2              B        T2TSKT6A
     6272   01 01B99    21800004 A            CI,8     4
     6273   01 01B9A    69301B9D              BNE      %+3               B: NOT A SENSE ORDER
     6274   01 01B9B    32D02C15              LW,13    ='SENS'           FETCH SENSE MSG
     6275   01 01B9C    68001BA2              B        T2TSKT6A
     6276   01 01B9D    21800033 A            CI,8     X'33'
     6277   01 01B9E    69301BA1              BNE      %+3               B: NOT A RESTORE ORDER
     6278   01 01B9F    32D02C16              LW,13    ='REST'           FETCH RESTORE MSG
     6279   01 01BA0    68001BA2              B        T2TSKT6A
     6280   01 01BA1    32D02C17              LW,13    ='SEEK'
     6281   01 01BA2    35D01BAB     T2TSKT6A STW,13   T2TSKTM1+2        STORE IN MSG AREA
     6282   01 01BA3    EAF0021C              BAL,15   *:PRINT
     6283   01 01BA4    00001BA9              DATA     T2TSKTM1
     6284   01 01BA5    32C01D8C              LW,12    T2CDEVA           FETCH DEV ADR
     6285   01 01BA6    46C003E2              XW,12    :DEVADDR
     6286   01 01BA7    35C01D8C              STW,12   T2CDEVA           SAVE CURRENT DEV ADR
     6287   01 01BA8    68001BAE              B        T2TSKT6B
     6288   01 01BA9    11E3E2E3 A   T2TSKTM1 TEXTC    'TST2 - XXXX ERROR'
            01 01BAA    F2406040 A
            01 01BAB    E7E7E7E7 A
            01 01BAC    40C5D9D9 A
            01 01BAD    D6D94040 A
     6289   01 01BAE    32DC1E3A     T2TSKT6B LW,13    T2SEEKB,6         FETCH SEEK ADR
     6290   01 01BAF    6AF026A4              BAL,15   SEEKMSG           PRINT CURRENT SEEK ADR
     6291   01 01BB0    32DC1E52              LW,13    T2AIO,6           FETCH AIO STATUS
     6292   01 01BB1    35D027E5              STW,13   :STATUSCC
     6293   01 01BB2    32EC1E6A              LW,14    T2AIOCC,6         FETCH AIO CC
     6294   01 01BB3    75E427E5              STB,14   :STATUSCC,2
     6295   01 01BB4    6AF026D8              :AIO1    X'FBE7C000',0,0   ALWAYS FALL THROUGH
            01 01BB5    FBE7C000 A
            01 01BB6    00000000 A
            01 01BB7    68001BB8
     6296   01 01BB8    32DC1E5A              LW,13    T2TDV,6
     6297   01 01BB9    35D027E5              STW,13   :STATUSCC
     6298   01 01BBA    32EC1E72              LW,14    T2TDVCC,6
     6299   01 01BBB    75E427E5              STB,14   :STATUSCC,2
     6300   01 01BBC    6AF026D3              BAL,15   :TDV1             TEST AND
     6301   01 01BBD    FBFFC000 A            DATA     X'FBFFC000',0       PRINT TDV STATUS
            01 01BBE    00000000 A
     6302   01 01BBF    68001BC0              B        %+1
     6303   01 01BC0    32DC1E62              LW,13    T2TIO,6
     6304   01 01BC1    35D027E5              STW,13   :STATUSCC
     6305   01 01BC2    32EC1E7A              LW,14    T2TIOCC,6
     6306   01 01BC3    75E427E5              STB,14   :STATUSCC,2
     6307   01 01BC4    6AF026C9              BAL,15   :TIO1                   TEST AND
     6308   01 01BC5    FFFFC000 A            DATA     X'FFFFC000',X'10000000'  PRINT TIO STATUS
            01 01BC6    10000000 A
     6309   01 01BC7    68001BC8              B        %+1
     6310   01 01BC8    32C01D8C              LW,12    T2CDEVA           RESTORE
     6311   01 01BC9    46C003E2              XW,12    :DEVADDR            DEVICE
     6312   01 01BCA    35C01D8C              STW,12   T2CDEVA               ADDRESS
     6313   01 01BCB    72800005 A            LB,8     5,0               FETCH DISPLACEMENT COUNTS
     6314   01 01BCC    2580007C A            SLS,8    -4                ALIGN COUNT
     6315   01 01BCD    72900004 A            LB,9     4                 FETCH ORDER CODE
     6316   01 01BCE    21900005 A            CI,9     5
     6317   01 01BCF    69201BFA              BG       T2TSKT6G          B: ORDER CODE > 5
     6318   01 01BD0    33001D89              MTW,0    T2RESTOR
     6319   01 01BD1    68301BD3              BEZ      %+2
     6320   01 01BD2    33200008 A            MTW,2    8                 AND 2 TO RETRY DISPLACEMENT
     6321   01 01BD3    21900004 A            CI,9     4
     6322   01 01BD4    68301BF1              BE       T2TSKT6E          B: ORDER CODE = 3
     6323   01 01BD5    72A20004 A            LB,10    4,1               FETCH RETRY COUNT
     6324   01 01BD6    69201BEC              BGZ      T2TSKT6D          B: RETRY COUNT > 0
     6325   01 01BD7    33F01D7C              MTW,-1   T2CMEMAC          DECR MEM ACTIVE COUNT
     6326   01 01BD8    327C1E02              LW,7     T2MEM0,6          FETCH CURRENT MEMORY ADR
     6327   01 01BD9    72700007 A            LB,7     7                 MEMORY INDEX
     6328   01 01BDA    22000000 A            LI,0     0
     6329   01 01BDB    750E1D8D              STB,0    T2CMMAP,7         RELEASE MEMORY
     6330   01 01BDC    32700006 A            LW,7     6                 RESTORE R6
     6331   01 01BDD    EAF0021C     T2TSKT6H BAL,15   *:PRINT
     6332   01 01BDE    00001BE0              DATA     T2TSKTM2          PRINT SKIP MSG
     6333   01 01BDF    68001BE7              B        T2TSKT6C
     6334   01 01BE0    1BE3E2E3 A   T2TSKTM2 TEXTC    'TST2 - CURRENT TEST SKIPPED'
            01 01BE1    F2406040 A
            01 01BE2    C3E4D9D9 A
            01 01BE3    C5D5E340 A
            01 01BE4    E3C5E2E3 A
            01 01BE5    40E2D2C9 A
            01 01BE6    D7D7C5C4 A
     6335   01 01BE7    72800005 A   T2TSKT6C LB,8     5,0               FETCH DISPLACEMENT COUNTS
     6336   01 01BE8    4B802C18              AND,8    =X'0000000F'      MASK SKIP DISPLACEMENT
     6337   01 01BE9    22900000 A            LI,9     0
     6338   01 01BEA    35901E32              STW,9    T2SEEKFL          RESET SEEK FLAGG
     6339   01 01BEB    68001BF3              B        T2TSKT6F          B: CONTINUE
     6340   01 01BEC    33F0000A A   T2TSKT6D MTW,-1   10                DECREMENT RETRY COUNT
     6341   01 01BED    329C1E82              LW,9     T2TASKPC,6        FETCH CURRENT TASK POINTER
     6342   01 01BEE    92400009 A            LD,4     *9                FETCH TASK
     6343   01 01BEF    75A20004 A            STB,10   4,1               REPLACE RETRY COUNT
     6344   01 01BF0    95400009 A            STD,4    *9                STORE CURRENT TASK IN CONTR BLOCK
     6345   01 01BF1    3A800008 A   T2TSKT6E LCW,8    8                 COMPLEMENT RETRY DISPLACEMENT
     6346   01 01BF2    351C1E32              STW,1    T2SEEKFL,6        SET SEEK FLAG
     6347   01 01BF3    668C1E82     T2TSKT6F AWM,8    T2TASKPC,6        ADD DISPLACEMENT TO CURRENT POINTER
     6348   01 01BF4    328C1E82              LW,8     T2TASKPC,6
     6349   01 01BF5    92400008 A            LD,4     *8                FETCH NEW TASK
     6350   01 01BF6    154C1DE2              STD,4    T2TASK,6          STORE NEW TASK
     6351   01 01BF7    32801D96              LW,8     T2CCALL
     6352   01 01BF8    358C1DB2              STW,8    T2CALL,6          INITIALIZE CALL INSTRUCTION
     6353   01 01BF9    68001B77              B        T2TSKT1           B: CONT.
     6354   01 01BFA    21900033 A   T2TSKT6G CI,9     X'33'
     6355   01 01BFB    68301BF2              BE       T2TSKT6E+1        B: RESTORE ORDER
     6356   01 01BFC    33FC1E4A              MTW,-1   T2RETRY,6         DECR SEEK RETRY COUNT
     6357   01 01BFD    69201BF1              BGZ      T2TSKT6E          COMPL RETRY DISPLACEMENT
     6358   01 01BFE    68001BDD              B        T2TSKT6H          SKIP TASK
     6359   01 01BFF    21E00033 A   T2TSKT7  CI,14    X'33'             RESTORE ORDER
     6360   01 01C00    69301C11              BNE      T2TSKT8           B: SEEK ORDER
     6361   01 01C01    3300000C A            MTW,0    12                TEST TIO CC
     6362   01 01C02    69301C08              BNEZ     T2TSKT7A          B: CC ERROR
     6363   01 01C03    32E00009 A            LW,14    9
     6364   01 01C04    4BE02C19              AND,14   =X'0E000000'      TEST TIO STATUS
     6365   01 01C05    69301C08              BNEZ     T2TSKT7A          B: STATUS ERROR
     6366   01 01C06    3300000D A            MTW,0    13                TEST TDV CONDITION CODE
     6367   01 01C07    68301C0A              BEZ      T2TSKT7B          B: COND CODE OK
     6368   01 01C08    CFC01D8C     T2TSKT7A HIO,12   *T2CDEVA          ISSUE HIO (RESTORE)
     6369   01 01C09    68001B8F              B        T2TSKT6           B: PRINT ERRORS
     6370   01 01C0A    4BA02C1A     T2TSKT7B AND,10  =X'FBFF0000'       TEST TDV STATUS
     6371   01 01C0B    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6372   01 01C0C    4B802C0E              AND,8   =X'FBC80000'       TEST AIO STATUS
     6373   01 01C0D    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6374   01 01C0E    4B902C1B              AND,9   =X'00FF0000'       TEST OPERATIONAL STATUS
     6375   01 01C0F    69301B8F              BNEZ     T2TSKT6           B: ERROR REQUIRING RETRY
     6376   01 01C10    68001B77              B        T2TSKT1           B: RESTORE ORDER OK
     6377   01 01C11    32E00008 A   T2TSKT8  LW,14    8                 FETCH AIO STATUS
     6378   01 01C12    4BE02C07              AND,14   =X'00180000'      TEST CE AND UE INTERRUPT
     6379   01 01C13    68301C1E              BEZ      T2TSKT9           B: NOT A CE OR UE STATUS
     6380   01 01C14    4B902C1C              AND,9    =X'6EFF0000'      TEST TIO STATUS
     6381   01 01C15    69301C1C              BNEZ     T2TSKT8A          B: ERROR REQUIRING RETRY
     6382   01 01C16    3300000D A            MTW,0    13                TEST TDV CC
     6383   01 01C17    69301C1C              BNEZ     T2TSKT8A          B: CC ERROR
     6384   01 01C18    4BA02C1A              AND,10   =X'FBFF0000'      TEST TDV STATUS
     6385   01 01C19    69301C1C              BNEZ     T2TSKT8A          B: ERROR REQUIRING RETRY
     6386   01 01C1A    4B802C0E              AND,8    =X'FBC80000'      TEST AIO STATUS
     6387   01 01C1B    68301B78              BEZ      T2TSKT2           B: STATUS OK
     6388   01 01C1C    CFC01D8C     T2TSKT8A HIO,12   *T2CDEVA          ISSUE HIO (SEEK - CE INT)
     6389   01 01C1D    68001B8F              B        T2TSKT6           B: PRINT ERRORS
     6390   01 01C1E    22E00000 A   T2TSKT9  LI,14    0
     6391   01 01C1F    35EC1E32              STW,14   T2SEEKFL,6        RESET SEEK FLAG
     6392   01 01C20    3300000C A            MTW,0    12                TEST TIO CC
     6393   01 01C21    69301C34              BNEZ     T2TSKT9A          B: CC ERROR
     6394   01 01C22    4B902C0B              AND,9    =X'66000000'      TEST TIO STATUS
     6395   01 01C23    69301C34              BNEZ     T2TSKT9A          B: ERROR REQUIRING RETRY
     6396   01 01C24    3300000D A            MTW,0    13                TEST TDV CC
     6397   01 01C25    69301C34              BNEZ     T2TSKT9A          B: CC ERROR
     6398   01 01C26    32E0000A A            LW,14    10                FETCH TDV STATUS
     6399   01 01C27    4BE02C09              AND,14   =X'04000000'      TEST SEEK COMPLETE (TDV)
     6400   01 01C28    68301C34              BEZ      T2TSKT9A          B: SEEK COMPL. BIT RESET
     6401   01 01C29    4BA02C1D              AND,10   =X'02000000'      TEST SEEK TIME OUT (TDV)
     6402   01 01C2A    69301C34              BNEZ     T2TSKT9A
     6403   01 01C2B    32E00008 A            LW,14    8                 B: SEEK TIME OUT ERROR
     6404   01 01C2C    4BE02C09              AND,14   =X'04000000'      TEST SEEK COMPLETE (AIO)
     6405   01 01C2D    68301C34              BEZ      T2TSKT9A          B: SEEK COMPL. BIT RESET
     6406   01 01C2E    02000000 A            NOP

     6408                            * CHANGE ABOVE NOP INSTRUCTION TO A B  %+4 IF DEVICE INTERRUPT E.O.
     6409                            * IS NOT INSTALLED.

     6411   01 01C2F    32E00008 A            LW,14    8
     6412   01 01C30    4BE02C0F              AND,14   =X'8000000'
     6413   01 01C31    68301C34              BEZ      T2TSKT9A          B: NOT A DEVICE INTRRUPT
     6414   01 01C32    4B802C1D              AND,8    =X'02000000'      TEST SEEK TIME OUT (AIO)
     6415   01 01C33    68301B77              BEZ      T2TSKT1           B: STATUS OK
     6416   01 01C34    CFC01D8C     T2TSKT9A HIO,12   *T2CDEVA          ISSUE HIO (SEEK - ON CYL INT)
     6417   01 01C35    68001B8F              B        T2TSKT6           B: PRINT ERRORS

     6419                            *        *** TST2 - SUBTASK 5, SPREAD WRITE DATA

     6421                            * REGISTERS USED: 4,8,10,15

     6423   01 01C36    6D000022 A   T2TSKDW  WD,0     X'0022'           RESET INTER INHIBIT BIT
     6424   01 01C37    328C1E92              LW,8     T2RANDN1,6        FETCH RANDOM NO. SEED
     6425   01 01C38    35802AFF              STW,8    :PATID+1
     6426   01 01C39    328C1E02              LW,8     T2MEM0,6          FETCH IO BUFFER ADDR
     6427   01 01C3A    4B802BE3              AND,8   =X'FFFF'
     6428   01 01C3B    35802B02              STW,8    :PATBFR
     6429   01 01C3C    6AF02AB9              BAL,15   :PATTERN          B: SPREAD PATTERN
     6430   01 01C3D    328C1E3A              LW,8     T2SEEKB,6         FETCH SEEK ADR
     6431   01 01C3E    324C1E02              LW,4     T2MEM0,6
     6432   01 01C3F    B5840004 A            STW,8    *4,2              STORE SEEK ADR IN 3RD PATTERN WORD
     6433   01 01C40    32802B92              LW,8     :SEED
     6434   01 01C41    358C1E92              STW,8    T2RANDN1,6        SAVE NEW RANDOM NUMBER
     6435   01 01C42    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6436   01 01C43    68001DA0              B        T2CALX            EXIT

     6438                            *        *** TST2 - SUBTASK 6, SPREAD READ DATA

     6440                            * REGISTERS USED:

     6442   01 01C44    6D000022 A   T2TSKDR  WD,0     X'0022'           RESET INTER INHIBIT BIT
     6443   01 01C45    328C1E02              LW,8     T2MEM0,6          FETCH RANDOM NUMBER SEED
     6444   01 01C46    4B802BE3              AND,8    =X'FFFF'
     6445   01 01C47    B2800008 A            LW,8     *8
     6446   01 01C48    35802AFF              STW,8    :PATID+1
     6447   01 01C49    328C1E0A              LW,8     T2MEM1,6          FETCH IO BUFFER ADR
     6448   01 01C4A    4B802BE3              AND,8    =X'FFFF'
     6449   01 01C4B    35802B02              STW,8    :PATBFR
     6450   01 01C4C    6AF02AB9              BAL,15   :PATTERN          B: SPREAD PATTERN
     6451   01 01C4D    328C1E3A              LW,8     T2SEEKB,6         FETCH SEEK ADR
     6452   01 01C4E    324C1E0A              LW,4     T2MEM1,6
     6453   01 01C4F    B5840004 A            STW,8    *4,2              STORE SEEK ADR IN 3RD PATTERN WORD
     6454   01 01C50    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6455   01 01C51    68001DA0              B        T2CALX            EXIT

     6457                            *        *** TST2 - SUBTASK 7, COMPARE READ DATA

     6459                            * REGISTERS USED: 8,10,13,15

     6461   01 01C52    6D000022 A   T2TSKCR  WD,0     X'0022'           RESET INTERRUPT INHIBIT BIT
     6462   01 01C53    328C1E02              LW,8     T2MEM0,6          FETCH OBSERVED BUFFER
     6463   01 01C54    4B802BE3              AND,8   =X'FFFF'
     6464   01 01C55    358028A2              STW,8    :COMBFRB
     6465   01 01C56    328C1E0A              LW,8     T2MEM1,6          FETCH EXPECTED BUFFER
     6466   01 01C57    4B802BE3              AND,8   =X'FFFF'
     6467   01 01C58    358028A1              STW,8    :COMBFRA
     6468   01 01C59    331028A3              MTW,1    :COMFLAG         INHIBIT ERROR PRINTOUT
     6469   01 01C5A    6AF02845              BAL,15   :COMPARE          COMPARE
     6470   01 01C5B    68001C63              B        T2TSKCR1          B: NO ERRORS
     6471   01 01C5C    6D000032 A            WD,0     X'0032'           SET INTERRUPT INHIBIT BIT
     6472   01 01C5D    32DC1E3A              LW,13    T2SEEKB,6         FETCH CURRENT SEEK ADR
     6473   01 01C5E    6AF026A4              BAL,15   SEEKMSG
     6474   01 01C5F    22800000 A            LI,8     0
     6475   01 01C60    358028A3              STW,8    :COMFLAG         SET COMPARE FLAG
     6476   01 01C61    6AF02845              BAL,15   :COMPARE
     6477   01 01C62    68001C63              B        %+1
     6478   01 01C63    6AA01D4E     T2TSKCR1 BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6479   01 01C64    68001DA0              B        T2CALX            EXIT

     6481                            *        *** TST2 - SUBTASK 8, COMPARE SENSE DATA

     6483                            * REGISTERS USED: 8,10,12

     6485   01 01C65    32CC1E42     T2TSKCS  LW,12    T2SENSEB,6        FETCH 1ST WORD OF SENSE DATA
     6486   01 01C66    31CC1E3A              CW,12    T2SEEKB,6         COMPARE OBS TO EXPECTED
     6487   01 01C67    69301C6A              BNE      T2TSKCS1          B: COMPARE ERROR
     6488   01 01C68    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6489   01 01C69    68001DA0              B        T2CALX            EXIT
     6490   01 01C6A    EAF0021C     T2TSKCS1 BAL,15   *:PRINT
     6491   01 01C6B    00001C8A              DATA     T2TSKCSM          PRINT HEADER
     6492   01 01C6C    32CC1E3A              LW,12    T2SEEKB,6
     6493   01 01C6D    EAF00218              BAL,15   *:HEXC
     6494   01 01C6E    35F01C95              STW,15   T2TSKCSN+3        CONVERT
     6495   01 01C6F    EAF00218              BAL,15   *:HEXC              SEEK DATA
     6496   01 01C70    35F01C94              STW,15   T2TSKCSN+2
     6497   01 01C71    32CC1E42              LW,12    T2SENSEB,6
     6498   01 01C72    EAF00218              BAL,15   *:HEXC            CONVERT
     6499   01 01C73    35F01C99              STW,15   T2TSKCSN+7          SENSE DATA
     6500   01 01C74    EAF00218              BAL,15   *:HEXC
     6501   01 01C75    35F01C98              STW,15   T2TSKCSN+6
     6502   01 01C76    EAF0021C              BAL,15   *:PRINT
     6503   01 01C77    00001C92              DATA     T2TSKCSN          PRINT SEEK/SENSE DATA
     6504   01 01C78    128E1DE2              LD,8     T2TASK,7
     6505   01 01C79    72900009 A            LB,9     9                 GET DISPLACEMENTS
     6506   01 01C7A    33FC1E4A              MTW,-1   T2RETRY,6
     6507   01 01C7B    69201C80              BGZ      T2TSKCS2          B: SEEK RETRY CNT NE ZERO
     6508   01 01C7C    EAF0021C              BAL,15   *:PRINT
     6509   01 01C7D    00001C9A              DATA     T2TSKCSO          PRINT: SKIPPED
     6510   01 01C7E    4B902C18              AND,9    =X'0000000F'
     6511   01 01C7F    68001C83              B        T2TSKCS2+3
     6512   01 01C80    2590007C A   T2TSKCS2 SLS,9    -4                ALIGN DISPLACEMENT
     6513   01 01C81    4B902C18              AND,9    =X'0000000F'
     6514   01 01C82    3A900009 A            LCW,9    9                 CONVERT TO NEGATIVE NUMBER
     6515   01 01C83    669C1E82              AWM,9    T2TASKPC,6        ADD CURRENT TASK POINTER
     6516   01 01C84    324C1E82              LW,4     T2TASKPC,6
     6517   01 01C85    92800004 A            LD,8     *4                FETCH NEW TASK
     6518   01 01C86    158E1DE2              STD,8    T2TASK,7          STORE NEW TASK
     6519   01 01C87    32801D96              LW,8     T2CCALL           FETCH CALL INSTRUCTION
     6520   01 01C88    358C1DB2              STW,8    T2CALL,6          STORE CALL INSTRUCTION
     6521   01 01C89    68001DA0              B        T2CALX            EXIT
     6522   01 01C8A    1CE3E2E3 A   T2TSKCSM TEXTC    'TST2 - SEEK/SENSE COMP ERROR'
            01 01C8B    F2406040 A
            01 01C8C    E2C5C5D2 A
            01 01C8D    61E2C5D5 A
            01 01C8E    E2C540C3 A
            01 01C8F    D6D4D740 A
            01 01C90    C5D9D9D6 A
            01 01C91    D9404040 A
     6523   01 01C92    1FE2C5C5 A   T2TSKCSN TEXTC    'SEEK   XXXXXXXX SENSE  XXXXXXXX'
            01 01C93    D2404040 A
            01 01C94    E7E7E7E7 A
            01 01C95    E7E7E7E7 A
            01 01C96    40E2C5D5 A
            01 01C97    E2C54040 A
            01 01C98    E7E7E7E7 A
            01 01C99    E7E7E7E7 A
     6524   01 01C9A    14E3E2E3 A   T2TSKCSO TEXTC    'TST2 - SENSE SKIPPED'
            01 01C9B    F2406040 A
            01 01C9C    E2C5D5E2 A
            01 01C9D    C540E2D2 A
            01 01C9E    C9D7D7C5 A
            01 01C9F    C4404040 A

     6526                            *        *** TST2 - SUBTASK 11, KEY RECORDING AREA

     6528                            * REGISTERS USED:

     6530   01 01CA0    33001D7A     T2TSKKY  MTW,0    T2CIOAC           IO ACTIVE?
     6531   01 01CA1    69301CE1              BNEZ     T2TSKKY3          B: IO IN PROCESS
     6532   01 01CA2    33001D7B              MTW,0    T2CIOS            IO STARTED?
     6533   01 01CA3    69301CE1              BNEZ     T2TSKKY3          B: IO STARTED
     6534   01 01CA4    33001D7C              MTW,0    T2CMEMAC           MEM ACTIVE?
     6535   01 01CA5    69301CE1              BNEZ     T2TSKKY3          B: BUFFER IN USE
     6536   01 01CA6    6D000022 A            WD,0     X'0022'           RESET INTERRUPT INHIBIT BIT
     6537   01 01CA7    128E1E12              LD,8     T2SECTA,7         FETCH STARTING AND ENDING ADR
     6538   01 01CA8    32B00009 A            LW,11    9                 GET START. ADR
     6539   01 01CA9    38B00008 A            SW,11    8                 COMPUTE RANGE IN NO OF SECT.
     6540   01 01CAA    32C02B9C              LW,12    #ABSOLC
     6541   01 01CAB    25C00001 A            SLS,12   1
     6542   01 01CAC    31B0000C A            CW,11    12                DIFF LESS THAN CONV. COUNT * 2
     6543   01 01CAD    69101CBD              BL       T2TSKKY2          B: DIFF IS LESS
     6544   01 01CAE    22A00000 A            LI,10    0
     6545   01 01CAF    36A02B9C              DW,10    #ABSOLC           COMPUTE NUMBER OF TRACKS
     6546   01 01CB0    32EC1E92              LW,14    T2RANDN1,6        FETCH RANDOM SEED
     6547   01 01CB1    6AF02B85              BAL,15   :RANDOM           FIND A RANDOM NUMBER
     6548   01 01CB2    35EC1E92              STW,14   T2RANDN1,6        SAVE NO.
     6549   01 01CB3    35E0000F A            STW,14   15
     6550   01 01CB4    22E00000 A            LI,14    0                 SELECT A TRACK FROM
     6551   01 01CB5    36E0000B A            DW,14    11                  THE AVAILABLE TRACKS
     6552   01 01CB6    35E0000F A            STW,14   15
     6553   01 01CB7    22E00000 A            LI,14    0                 CONVERT
     6554   01 01CB8    37E02B9C              MW,14    #ABSOLC             TO SECTOR ADR
     6555   01 01CB9    3080000F A            AW,8     15                NEW STARTING ADR
     6556   01 01CBA    32900008 A            LW,9     8
     6557   01 01CBB    30902B9C              AW,9     #ABSOLC           ADD CONVERSION COUNT - 1
     6558   01 01CBC    33F00009 A            MTW,-1   9                 NEW ENDING ADR
     6559   01 01CBD    158E1E22     T2TSKKY2 STD,8    T2SECTI,7         SAVE ADRS
     6560   01 01CBE    32A01D82              LW,10    T2CRETRY          FETCH RETRY COUNT
     6561   01 01CBF    35A022E2              STW,10   T3UTRYI           SAVE RETRY COUNT FOR KEYING
     6562   01 01CC0    32AC1DBA              LW,10    T2DEVA,6
     6563   01 01CC1    35A003E2              STW,10   :DEVADDR          SET UP DEVADR
     6564   01 01CC2    158026BC              STD,8    SEEKFRST          SAVE SEEK ADR
     6565   01 01CC3    128022F2              LD,8     T3UIOCD1
     6566   01 01CC4    158022F0              STD,8    T3UIOCD           SAVE WRITE IOCD
     6567   01 01CC5    32A01E92              LW,10    T2RANDN1          FETCH RANDOM NO SEED
     6568   01 01CC6    35A02B92              STW,10   :SEED             SAVE
     6569   01 01CC7    35A02AFF              STW,10   :PATID+1            SEED
     6570   01 01CC8    351022E0              STW,1     T3UWRT           SET WRITE FLAG
     6571   01 01CC9    351026C0              STW,1    SEEKADD           SEEK ADR INCREMENT
     6572   01 01CCA    22800000 A            LI,8     0
     6573   01 01CCB    358022E1              STW,8     T3UHDR           RESET HDR FLAG
     6574   01 01CCC    15601D86              STD,6    T2CINDEX          SAVE INDEX
     6575   01 01CCD    6AF0223A              BAL,15   T3UEXALT          KEY RECORDING AREA
     6576   01 01CCE    12601D86              LD,6     T2CINDEX          FETCH INDEX
     6577   01 01CCF    32802B92              LW,8     :SEED             SAVE
     6578   01 01CD0    358C1E92              STW,8    T2RANDN1,6          RANDOM NUMBER
     6579   01 01CD1    128E1E22              LD,8     T2SECTI,7         SAVE
     6580   01 01CD2    158026BC              STD,8    SEEKFRST            SEEK ADR
     6581   01 01CD3    128022F4              LD,8     T3UIOCD2
     6582   01 01CD4    158022F0              STD,8    T3UIOCD           SAVE READ IOCD
     6583   01 01CD5    22800000 A            LI,8     0
     6584   01 01CD6    358022E0              STW,8    T3UWRT            RESET WRT FLG
     6585   01 01CD7    351022EC              STW,1    T3UCMP            SET COMPARE FLAG
     6586   01 01CD8    6AF0223A              BAL,15   T3UEXALT          VERIFY KEYED AREA
     6587   01 01CD9    12601D86              LD,6     T2CINDEX          FETCH INDEX
     6588   01 01CDA    32801D95              LW,8     T2ISERXP          STORE XPSD IN
     6589   01 01CDB    3580005C A            STW,8    X'5C'               IN INTER LOC
     6590   01 01CDC    22800000 A            LI,8     0
     6591   01 01CDD    35801D88              STW,8    T2CKEY            RESET KEYING FLAG
     6592   01 01CDE    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLE IO INTERRUPT
     6593   01 01CDF    6AA01D4E              BAL,10   T2MODCAL          B: FIND NEXT SUBTASK
     6594   01 01CE0    68001DA0              B        T2CALX            EXIT
     6595   01 01CE1    35101D88     T2TSKKY3 STW,1    T2CKEY            SET KEYFLAG
     6596   01 01CE2    68001CE0              B        %-2               EXIT

     6598                            *        *** TST2 - SUBTASK 12, BUILD TASK ROUTINE

     6600                            * REGISTERS USED:

     6602   01 01CE3    6D000022 A   T2TSKBT  WD,0     X'0022'           RESET INTERRUPT INHIBIT BIT
     6603   01 01CE4    32EC1E92              LW,14    T2RANDN1,6        FETCH RANDOM NO SEED
     6604   01 01CE5    6AF02B85              BAL,15  :RANDOM            GET A RANDOM NO
     6605   01 01CE6    12CE1E22              LD,12    T2SECTI,7         FETCH INITIALIZED SECTORS
     6606   01 01CE7    38D0000C A            SW,13    12                SUBTRACT STARTING FROM ENDING ADR
     6607   01 01CE8    35E0000F A            STW,14   15                RANDOM NUMBER
     6608   01 01CE9    22E00000 A            LI,14    0
     6609   01 01CEA    36E0000D A            DW,14    13                COMPUTE RANDOM SECTOR NUMBER
     6610   01 01CEB    30C0000E A            AW,12    14                ADD TO STARTING ADR
     6611   01 01CEC    32D0000C A            LW,13    12
     6612   01 01CED    6AF025FB              BAL,15   SEEKGEN           GENERATE 4 BYTE SEEK ADR
     6613   01 01CEE    35DC1E3A              STW,13   T2SEEKB,6         SAVE SEEK ADR IN BUFFER
     6614   01 01CEF    32E02B92              LW,14    :SEED             RANDOM NUMBER SEED
     6615   01 01CF0    6AF02B85              BAL,15   :RANDOM           GET RANDOM NUMBER
     6616   01 01CF1    35EC1E92              STW,14   T2RANDN1,6        SAVE SEED
     6617   01 01CF2    21E00001 A            CI,14    1
     6618   01 01CF3    68401CF8              BCR,4    T2TSKBT1          B: READ ORDER
     6619   01 01CF4    12A01F7A              LD,10    T2TASKW           FETCH WRITE IOCD
     6620   01 01CF5    12801F7E              LD,8     T2TASKDW          FETCH SPREAD PATTERN TASK
     6621   01 01CF6    12C01F82              LD,12    T2TASKX1          FETCH TRANSFER (1) TASK
     6622   01 01CF7    68001CFB              B        T2TSKBT2          B: CONT.
     6623   01 01CF8    12A01F7C     T2TSKBT1 LD,10    T2TASKR           FETCH READ TASK
     6624   01 01CF9    12801F84              LD,8     T2TASKTR          FETCH GET-MEM AND TRANSF(1) TASK
     6625   01 01CFA    12C01F80              LD,12    T2TASKDR          FETCH COMPARE TASK
     6626   01 01CFB    324C1E82     T2TSKBT2 LW,4     T2TASKPC,6        FETCH TASK POINTER
     6627   01 01CFC    20400002 A            AI,4     2                 INCR BY 2
     6628   01 01CFD    95800004 A            STD,8    *4                STORE TASK IN TASK BLOCK
     6629   01 01CFE    32801D82              LW,8     T2CRETRY
     6630   01 01CFF    7582000A A            STB,8    10,1              INITIALIZE RETRY COUNT
     6631   01 01D00    20400006 A            AI,4     6                 INCR BY 6
     6632   01 01D01    95A00004 A            STD,10   *4                STORE TASK IN TASK BLOCK
     6633   01 01D02    20400002 A            AI,4     2
     6634   01 01D03    95C00004 A            STD,12   *4                STORE TASK IN TASK BLOCK
     6635   01 01D04    6AA01D4E              BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6636   01 01D05    68001DA0              B        T2CALX            EXIT

     6638                            *        *** TST2 - SUBTASK 13, RELEASE MEMORY ROUTINE ***

     6640                            * REGISTERS USED:4,5,8,9,10

     6642   01 01D06    324C1E02     T2TSKRM  LW,4     T2MEM0,6          FETCH MEMORY
     6643   01 01D07    72400004 A            LB,4     4                   MAP INDEX
     6644   01 01D08    22A00000 A            LI,10    0
     6645   01 01D09    75A81D8D              STB,10   T2CMMAP,4         RESET MEMORY MAP CELL
     6646   01 01D0A    33F01D7C              MTW,-1   T2CMEMAC          DECR MEM ACTIVE COUNT
     6647   01 01D0B    324C1E0A              LW,4     T2MEM1,6
     6648   01 01D0C    68301D12              BEZ      T2TSKRM1          B: ONLY 1 BUFFER WAS USED
     6649   01 01D0D    72400004 A            LB,4     4
     6650   01 01D0E    75A81D8D              STB,10   T2CMMAP,4         RESET MEMORY MAP CELL
     6651   01 01D0F    33F01D7C              MTW,-1   T2CMEMAC          DECR MEM ACTIVE COUNT
     6652   01 01D10    22000000 A            LI,0     0
     6653   01 01D11    350C1E0A              STW,0    T2MEM1,6          CLEAR EXPECTED BUFFER ADR
     6654   01 01D12    6AA01D4E     T2TSKRM1 BAL,10   T2MODCAL          FIND NEXT SUBTASK
     6655   01 01D13    68001DA0              B        T2CALX            EXIT

     6657                            *        *** TST2 - SUBTASK 14, TRANSFER CONTROL

     6659                            * REGISTERS USED:

     6661   01 01D14    128E1DE2     T2TSKXF  LD,8     T2TASK,7          FETCH CURRENT TASK
     6662   01 01D15    52A20008 A            LH,10    8,1               FETCH RANGE VALUES
     6663   01 01D16    69301D19              BNEZ     %+3               B: TRANSFER TASK
     6664   01 01D17    72A20008 A            LB,10    8,1               FETCH CONT.  DISPLACEMENT
     6665   01 01D18    68001D2B              B        T2TSKXF3          B: CONT.
     6666   01 01D19    33001D88              MTW,0    T2CKEY
     6667   01 01D1A    69301D21              BNEZ     T2TSKXF1          B: KEYING REQ
     6668   01 01D1B    330C1EA2              MTW,0    T2DONE,6
     6669   01 01D1C    69301D21              BNEZ     T2TSKXF1          B: EXERCISER FINISHED
     6670   01 01D1D    33001D83              MTW,0    T2CFIN
     6671   01 01D1E    68301D22              BEZ      T2TSKXF2          B: CONTINUE WITH EXERCISE
     6672   01 01D1F    351C1EA2              STW,1    T2DONE,6
     6673   01 01D20    33101D7D              MTW,1    T2CDONE           INCR DONE COUNT
     6674   01 01D21    68001DA0     T2TSKXF1 B        T2CALX            EXIT
     6675   01 01D22    72A00009 A   T2TSKXF2 LB,10    9,0               FETCH CURRENT VALUE
     6676   01 01D23    33F0000A A            MTW,-1   10                DECR VALUE
     6677   01 01D24    68301D32              BEZ      T2TSKXF4          B: CURRENT VALUE = 0
     6678   01 01D25    324C1E82              LW,4     T2TASKPC,6        FETCH CURRENT TASK POINTER
     6679   01 01D26    92800004 A            LD,8     *4                FETCH CURRENT TASK
     6680   01 01D27    75A00009 A            STB,10   9,0               STORE NEW CURRENT VALUE
     6681   01 01D28    95800004 A            STD,8    *4                STORE CURRENT TASK
     6682   01 01D29    72A00008 A            LB,10    8,0               FETCH BRANCH DISPLACEMENT
     6683   01 01D2A    3AA0000A A            LCW,10   10                COMPLETENT
     6684   01 01D2B    66AC1E82     T2TSKXF3 AWM,10   T2TASKPC,6        UPDATE CURRENT TASK POINTER
     6685   01 01D2C    324C1E82              LW,4     T2TASKPC,6
     6686   01 01D2D    92800004 A            LD,8     *4                FETCH NEW TASK
     6687   01 01D2E    158E1DE2              STD,8    T2TASK,7          STORE NEW TASK
     6688   01 01D2F    32801D96              LW,8     T2CCALL           FETCH CALL INSTRUCTION
     6689   01 01D30    358C1DB2              STW,8    T2CALL,6          STORE CALL INSTRUCTION
     6690   01 01D31    68001DA0              B        T2CALX            EXIT
     6691   01 01D32    32EC1E92     T2TSKXF4 LW,14    T2RANDN1,6        FETCH RANDOM NUMBER SEED
     6692   01 01D33    6AF02B85              BAL,15   :RANDOM           GET A RANDOM NO
     6693   01 01D34    35EC1E92              STW,14   T2RANDN1,6        SAVE SEED
     6694   01 01D35    72A60008 A            LB,10    8,3               GET RANGE (MAX)
     6695   01 01D36    72B40008 A            LB,11    8,2               GET RANGE (MIN)
     6696   01 01D37    38A0000B A            SW,10    11                FIND DIFFERENCE
     6697   01 01D38    68301D3D              BEZ      T2TSKXF5
     6698   01 01D39    35E0000F A            STW,14   15                PREPARE
     6699   01 01D3A    22E00000 A            LI,14    0                   RANDOM NO FOR DIVISION
     6700   01 01D3B    36E0000A A            DW,14    10
     6701   01 01D3C    30B0000E A            AW,11    14                ADD REMAINDER TO RANGE (MIN)
     6702   01 01D3D    324C1E82     T2TSKXF5 LW,4     T2TASKPC,6        GET TASK POINTER
     6703   01 01D3E    92800004 A            LD,8     *4                FETCH CURRENT  TASK
     6704   01 01D3F    75B00009 A            STB,11   9,0               SAVE NEW VALUE
     6705   01 01D40    95800004 A            STD,8    *4                STORE IN TASK BLOCK
     6706   01 01D41    72A20008 A            LB,10    8,1               FETCH CONTINUE DISPLACEMENT
     6707   01 01D42    72B20009 A            LB,11    9,1               FETCH TRANSF. TYPE
     6708   01 01D43    21B00001 A            CI,11    1
     6709   01 01D44    68401D2B              BCR,4    T2TSKXF3          B: POSITIVE CONT. DISPLACEMENT
     6710   01 01D45    3AA0000A A            LCW,10   10
     6711   01 01D46    68001D2B              B        T2TSKXF3          B: NEGATIVE BRANCH DISPLACEMENT

     6713                            *        *** TST2 - SUBTASK 15, GET TASK

     6715                            * REGISTERS USED:

     6717   01 01D47    332C1E82     T2TSKGT  MTW,2    T2TASKPC,6        INCR. TASK POINTER
     6718   01 01D48    324C1E82              LW,4     T2TASKPC,6        FETCH TASK POINTER
     6719   01 01D49    92800004 A            LD,8     *4
     6720   01 01D4A    158E1DE2              STD,8    T2TASK,7          STORE NEW TASK
     6721   01 01D4B    32801D96              LW,8     T2CCALL           FETCH CALL INSTR
     6722   01 01D4C    358C1DB2              STW,8    T2CALL,6          STORE CALL INSTRUCTION
     6723   01 01D4D    68001DA0              B        T2CALX            EXIT

     6725                            *        *** T2MODCAL ***

     6727                            * THIS ROUTINE ADVANCES THE CURRENT TASK CONTROL WORD TO THE NEXT
     6728                            * SUBTASK AND MODIFIES THE CALL INSTRUCTION.

     6730   01 01D4E    128E1DE2     T2MODCAL LD,8     T2TASK,7          FETCH TASK DOUBLEWORD
     6731   01 01D4F    52420009 A            LH,4     9,1               FETCH SUBTASK FIELD
     6732   01 01D50    22500000 A            LI,5     0                 INDEX = 0
     6733   01 01D51    30502C1E              AW,5     =X'00100000'      INCR. INDEX
     6734   01 01D52    2540007F A            SLS,4    -1                SHIFT TASK POINTER
     6735   01 01D53    21400001 A            CI,4     1                 BIT 31 = 1 ?
     6736   01 01D54    68401D51              BCR,4    %-3               B: BIT 31 NE 1
     6737   01 01D55    55420009 A            STH,4    9,1               RESTORE SUBTASK FIELD
     6738   01 01D56    158E1DE2              STD,8    T2TASK,7          STORE IN TABLE
     6739   01 01D57    665C1DB2              AWM,5    T2CALL,6          CHANGE R FIELD OF CALL
     6740   01 01D58    E800000A A            B        *10               EXIT

     6742                            *        *** IOCDMSG - PRINT CURRENT IOCD

     6744   01 01D59    35F01D66     IOCDMSG  STW,15   IOCDMSGX          SAVE RETURN
     6745   01 01D5A    EAF00218              BAL,15  *:HEXC             CONVERT
     6746   01 01D5B    35F01D6A              STW,15   IOCDMSGM+3
     6747   01 01D5C    EAF00218              BAL,15  *:HEXC
     6748   01 01D5D    35F01D69              STW,15   IOCDMSGM+2
     6749   01 01D5E    32C0000D A            LW,12    13
     6750   01 01D5F    EAF00218              BAL,15  *:HEXC
     6751   01 01D60    35F01D6D              STW,15   IOCDMSGM+6
     6752   01 01D61    EAF00218              BAL,15  *:HEXC
     6753   01 01D62    35F01D6C              STW,15   IOCDMSGM+5
     6754   01 01D63    EAF0021C              BAL,15   *:PRINT
     6755   01 01D64    00001D67              DATA     IOCDMSGM
     6756   01 01D65    E8001D66              B        *IOCDMSGX         EXIT
     6757   01 01D66    00000000 A   IOCDMSGX DATA     0
     6758   01 01D67    1BC9D6C3 A   IOCDMSGM TEXTC    'IOCD = XXXXXXXX    XXXXXXXX'
            01 01D68    C4407E40 A
            01 01D69    E7E7E7E7 A
            01 01D6A    E7E7E7E7 A
            01 01D6B    40404040 A
            01 01D6C    E7E7E7E7 A
            01 01D6D    E7E7E7E7 A

     6760                            *        *** DEVADRM - PRINT CURRENT DEVICE ADDRESS ***

     6762   01 01D6E    35F01D66     DEVADRM  STW,15   IOCDMSGX          SAVE RETURN
     6763   01 01D6F    32C003E2              LW,12    :DEVADDR          FETCH DEV. ADR
     6764   01 01D70    EAF00218              BAL,15   *:HEXC            CONVERT TO DECIMAL
     6765   01 01D71    35F01D78              STW,15   DEVADRMG+3        STORE IN MSG
     6766   01 01D72    EAF0021C              BAL,15   *:PRINT           PRINT MSG
     6767   01 01D73    00001D75              DATA     DEVADRMG
     6768   01 01D74    E8001D66              B        *IOCDMSGX         EXIT
     6769   01 01D75    0FC4C5E5 A   DEVADRMG TEXTC    'DEV ADDR = XXXX'
            01 01D76    40C1C4C4 A
            01 01D77    D9407E40 A
            01 01D78    E7E7E7E7 A

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   88
A    6772                            *        *** RANDOM EXERCISER - CONTROL TABLE ***

     6774                            * THIS TABLE CONTAINS THE CONTROL INFORMATION FOR ALL DEVICES.
     6775                            * THE INFORMATION FOR INDIVIDUAL DEVICES IS STORED IN THE TASK CONTROL
     6776                            * TABLE.
     6777                                     BOUND    8
     6778   01 01D7A    00000000 A   T2CIOAC  DATA     0                 IO ACTIVE FLAG

     6780   01 01D7B    00000000 A   T2CIOS   DATA     0                 NUMBER OF DEVICES STARTED

     6782   01 01D7C    00000000 A   T2CMEMAC DATA     0                 NUMBER OF IO BUFFERS IN USE

     6784   01 01D7D    00000000 A   T2CDONE  DATA     0                 NUMBER OF DEVICES TERMINATED
     6785                                     BOUND    8
     6786   01 01D7E    00000000 A   T2CPRIIO DATA     0                 HIGHES IO PRIORITY NUMBER

     6788   01 01D7F    00000000 A   T2CPRIM  DATA     0                 HIGHES MEM PRIORITY NUMBER

     6790   01 01D80    00000000 A   T2CMFRST DATA     0                 FIRST LOCATION OF IO BUFFER

     6792   01 01D81    00000000 A   T2CMEMNO DATA     0                 NUMBER OF IO BUFFERS

     6794   01 01D82    00000000 A   T2CRETRY DATA     0                 RETRY COUNT

     6796   01 01D83    00000000 A   T2CFIN   DATA     0                 FINISH FLAG

     6798   01 01D84    00000000 A   T2CCYCC  DATA     0                 CURRENT CYCLE COUNT

     6800   01 01D85    00000000 A   T2CCYCI  DATA     0                 INITIAL CYCLE COUNT
     6801                                     BOUND    8
     6802   01 01D86    00000000 A   T2CINDEX DATA     0                 WORD INDEX
     6803   01 01D87    00000000 A            DATA     0                 DOUBLE WORD INDEX

     6805   01 01D88    00000000 A   T2CKEY   DATA     0                 KEYING FLAG

     6807   01 01D89    00000000 A   T2RESTOR DATA     0                 RESTORE FLAG

     6809   01 01D8A    00000000 A   T2SKIP   DATA     0                 SKIP FLAG

     6811   01 01D8B    00000000 A   T2ERROR  DATA     0                 ERROR FLAG

     6813   01 01D8C    00000000 A   T2CDEVA  DATA     0                 DEV ADR

     6815   01 01D8D    00000000 A   T2CMMAP  DATA     0,0,0,0,0,0,0,0   MEMORY MAP
            01 01D8E    00000000 A
            01 01D8F    00000000 A
            01 01D90    00000000 A
            01 01D91    00000000 A
            01 01D92    00000000 A
            01 01D93    00000000 A
            01 01D94    00000000 A

     6817   01 01D95    0F001AB8     T2ISERXP XPSD,0   T2ISER

     6819   01 01D96    04000000 A   T2CCALL  CAL1,0   0                 CALL INSTRUCTION

     6821   01 01D97    00000000 A   T2CTIME  DATA     0                 REAL TIME COUNT

     6823   01 01D98    00000000 A   T2EXIT   DATA     0                 EXIT ADDRESS

     6825   01 01D99    33101D97     T2CMTW   MTW,1    T2CTIME           MTW INSTRUCTION

     6827   01 01D9A    0F401D9C     T2CALXPS XPSD,4   CALLSUBT          XPSD INSTRUCTION

     6829                                     BOUND    8
     6830   01 01D9C    00000000 A   CALLSUBT DATA     0,0
            01 01D9D    00000000 A
     6831   01 01D9E    00001DA2              GEN,32   T2CALLBR
     6832   01 01D9F    02000000 A            DATA     X'02000000'       INTERRUPT INHIBIT

     6834   01 01DA0    33101D9C     T2CALX   MTW,1    CALLSUBT          INCR EXIT ADR
     6835   01 01DA1    0E001D9C              LPSD,0   CALLSUBT          EXIT

     6837   01 01DA2    68001ABE     T2CALLBR B        T2TSKIN         0 INITIALIZATION TASK
     6838   01 01DA3    68001AC5              B        T2TSKGM         1 GET MEMORY TASK
     6839   01 01DA4    68001AF2              B        T2TSKBD         2 BUILD AN IOCD TASK
     6840   01 01DA5    68001B1C              B        T2TSKIO         3 START IO TASK
     6841   01 01DA6    68001B51              B        T2TSKT          4 TEST IO STATUS TASK
     6842   01 01DA7    68001C36              B        T2TSKDW         5 SPREAD WRITE DATA TASK
     6843   01 01DA8    68001C44              B        T2TSKDR         6 SPREAD READ DATA TASK
     6844   01 01DA9    68001C52              B        T2TSKCR         7 COMPARE READ DATA TASK
     6845   01 01DAA    68001C65              B        T2TSKCS         8 COMPARE SENSE DATA TASK
     6846   01 01DAB    68001DA0              B        T2CALX          9 NOT IMPLEMENTED
     6847   01 01DAC    68001DA0              B        T2CALX         10 NOT IMPLEMENTED
     6848   01 01DAD    68001CA0              B        T2TSKKY        11 KEY RECORDING AREA TASK
     6849   01 01DAE    68001CE3              B        T2TSKBT        12 BUILD NEW SUBTASKS TASK
     6850   01 01DAF    68001D06              B        T2TSKRM        13 RELEASE MEMORY TASK
     6851   01 01DB0    68001D14              B        T2TSKXF        14 TRANSFER CONTROL TASK
     6852   01 01DB1    68001D47              B        T2TSKGT        15 GET TASK

     6854                            *        *** RANDOM EXERCISER - TASK CONTROL TABLE ***

     6856                            * ONE TASK CONTROL TABLE IS REQUIRED FOR EACH UNIT UNDER TEST. A ENTRY
     6857                            * IN A TABLE CAN BE ADDRESSED BY ITS LABLE AND AN INDEX. REGISTER 6
     6858                            * WILL BE USED AS THE WORD INDEX (0 - 7) AND REGISTER 7 AS THE DOUBLE-
     6859                            * WORD INDEX (0 - 14; EVEN VALUES ONLY).

     6861                                     BOUND    8
     6862         01 01DB2           T2CALL   EQU      %
     6863         00000008                    DO       8
     6864   01 01DB2    04000000 A            CAL1,0   0                 CALL INSTRUCTION USED FOR SUBTASK
     6865                                     FIN                          SELECTION
            01 01DB3    04000000 A
            01 01DB4    04000000 A
            01 01DB5    04000000 A
            01 01DB6    04000000 A
            01 01DB7    04000000 A
            01 01DB8    04000000 A
            01 01DB9    04000000 A

     6867   01 01DBA                 T2DEVA   RES      8                 DEVICE ADDR

     6869   01 01DC2                 T2SIOT   RES      8                 TIME OF SIO INSTRUCTION

     6871   01 01DCA                 T2INTREC RES      8                 INTER REC FLAG; -1=INTER EXPECTED
     6872                            *                                                   +1=INTER RECEIVED
     6873   01 01DD2                 T2PRIIO  RES      8                 IO PRIORITY NUMBER

     6875   01 01DDA                 T2PRIM   RES      8                 MEMORY PRIORITY NUMBER

     6877   01 01DE2                 T2TASK   RES      16                CURRENT TASK DOUBLEWORD  (R7)

     6879   01 01DF2                 T2IOCD   RES      16                CURRENT IOCD             (R7)

     6881   01 01E02                 T2MEM0   RES      8                 IO BUFFER (0) ADDR; BITS 0-7 = INDEX

     6883   01 01E0A                 T2MEM1   RES      8                 IO BUFFER (0) ADDR; BITS 0-7 = INDEX

     6885   01 01E12                 T2SECTA  RES      16                STARTING ADR OF AVAIL. SECTORS (1ST)
     6886                            *                                   ENDING ADR OF AVAIL. SECTORS (2ND)
     6887   01 01E22                 T2SECTI  RES      16                STARTING ADR OF INIT. SECTORS (1ST)
     6888                            *                                   ENDING ADR OF INIT. SECTORS (2ND)
     6889   01 01E32                 T2SEEKFL RES      8                 SEEK FLAG; 0=FIND NEW ADR, 1=USE
     6890                            *                                                               T2SEEKB
     6891   01 01E3A                 T2SEEKB  RES      8                 SEEK BUFFER

     6893   01 01E42                 T2SENSEB RES      8                 SENSE BUFFER

     6895   01 01E4A                 T2RETRY  RES      8                 SEEK RETRY COUNT (NOT UNDER USER
     6896                            *                                                               CONTROL)
     6897   01 01E52                 T2AIO    RES      8                 CURRENT AIO STATUS

     6899   01 01E5A                 T2TDV    RES      8                 CURRENT TDV STATUS

     6901   01 01E62                 T2TIO    RES      8                 CURRENT TIO STATUS

     6903   01 01E6A                 T2AIOCC  RES      8                 CURRENT AIO CC

     6905   01 01E72                 T2TDVCC  RES      8                 CURRENT TDV CC

     6907   01 01E7A                 T2TIOCC  RES      8                 CURRENT TIO CC

     6909   01 01E82                 T2TASKPC RES      8                 CURRENT TASK BLOCK POINTER

     6911   01 01E8A    00001EAA     T2TASKPI DATA     T2TASKB
     6912   01 01E8B    00001EC4              DATA     T2TASKB+26        TASK
     6913   01 01E8C    00001EDE              DATA     T2TASKB+52
     6914   01 01E8D    00001EF8              DATA     T2TASKB+78          BLOCK
     6915   01 01E8E    00001F12              DATA     T2TASKB+104
     6916   01 01E8F    00001F2C              DATA     T2TASKB+130           ADDRESSES
     6917   01 01E90    00001F46              DATA     T2TASKB+156
     6918   01 01E91    00001F60              DATA     T2TASKB+182

     6920   01 01E92                 T2RANDN1 RES      8                 RANDOM NUMBER 1

     6922   01 01E9A                 T2RANDN2 RES      8                 RANDOM NUMBER 2

     6924   01 01EA2                 T2DONE   RES      8                 DONE FLAG

     6926                            *        *** TASK - BLOCKS ***

     6928                            * ONE TASK CONTROL BLOCK IS ASSOCIATED WITH EACH UNIT UNDER TEST. SEEK
     6929                            * TASK BLOCK CONSISTS OF DOUBLEWORDS, EACH OF WHICH DESCRIBES A
     6930                            * SPECIFIC TASK TO BE PERFORMED BY THE EXERCISER.

     6932                                     BOUND    8
     6933         01 01EAA           T2TASKB  EQU      %

     6935         00000008                    DO       8

     6937   01 01EAA    00000000 A            GEN,32          0                KEY RECORD AREA
     6938   01 01EAB    00008801 A            GEN,16,16       0,X'8801'

     6940   01 01EAC    33000000 A            GEN,8,8,16      X'33',0,0        RESTORE ORDER
     6941   01 01EAD    0000801D A            GEN,4,4,8,16    0,0,0,X'801D'

     6943   01 01EAE    83000004 A            GEN,8,8,16      X'83',0,4        SEEK ORDER
     6944   01 01EAF    2400801D A            GEN,4,4,8,16    2,4,0,X'801D'

     6946   01 01EB0    04000004 A            GEN,8,8,16      X'04',0,4        SENSE ORDER
     6947   01 01EB1    4200811D A            GEN,4,4,8,16    4,2,0,X'811D'

     6949   01 01EB2    04020206 A            GEN,8,8,8,8     4,2,2,6          TRANSFER
     6950   01 01EB3    00004001 A            GEN,8,8,16      0,0,X'4001'

     6952   01 01EB4    00000000 A            GEN,8,8,8,8     0,0,0,0          BUILD TASK DOUBLE WORD
     6953   01 01EB5    00009001 A            GEN,16,16       0,X'9001'

     6955   01 01EB6    00000000 A            GEN,32          0                SPREAD DATA OR TRANSFER (1)
     6956   01 01EB7    00000000 A            GEN,32          0

     6958   01 01EB8    33000000 A            GEN,8,8,16      X'33',0,0        RESTORE ORDER
     6959   01 01EB9    0000801D A            GEN,4,4,8,16    0,0,0,X'801D'

     6961   01 01EBA    83000004 A            GEN,8,8,16        X'83',0,4
     6962   01 01EBB    2601801D A            GEN,4,4,8,16    2,6,1,X'801D'

     6964   01 01EBC    00000000 A            GEN,32   0                 WRITE OR READ
     6965   01 01EBD    00000000 A            GEN,32          0                ORDER

     6967   01 01EBE    00000000 A            GEN,32          0                COMPARE DATA OR TRANSFER (1)
     6968   01 01EBF    00000000 A            GEN,32          0

     6970   01 01EC0    0C020104 A            GEN,8,8,8,8     12,2,1,4
     6971   01 01EC1    00004001 A            GEN,8,8,16      0,0,X'4001'

     6973   01 01EC2    14182080 A            GEN,8,8,8,8     20,24,32,128
     6974   01 01EC3    00014001 A            GEN,8,8,16      0,1,X'4001'

     6976                                     FIN

            01 01EC4    00000000 A
            01 01EC5    00008801 A

            01 01EC6    33000000 A
            01 01EC7    0000801D A

            01 01EC8    83000004 A
            01 01EC9    2400801D A

            01 01ECA    04000004 A
            01 01ECB    4200811D A

            01 01ECC    04020206 A
            01 01ECD    00004001 A

            01 01ECE    00000000 A
            01 01ECF    00009001 A

            01 01ED0    00000000 A
            01 01ED1    00000000 A

            01 01ED2    33000000 A
            01 01ED3    0000801D A

            01 01ED4    83000004 A
            01 01ED5    2601801D A

            01 01ED6    00000000 A
            01 01ED7    00000000 A

            01 01ED8    00000000 A
            01 01ED9    00000000 A

            01 01EDA    0C020104 A
            01 01EDB    00004001 A

            01 01EDC    14182080 A
            01 01EDD    00014001 A


            01 01EDE    00000000 A
            01 01EDF    00008801 A

            01 01EE0    33000000 A
            01 01EE1    0000801D A

            01 01EE2    83000004 A
            01 01EE3    2400801D A

            01 01EE4    04000004 A
            01 01EE5    4200811D A

            01 01EE6    04020206 A
            01 01EE7    00004001 A

            01 01EE8    00000000 A
            01 01EE9    00009001 A

            01 01EEA    00000000 A
            01 01EEB    00000000 A

            01 01EEC    33000000 A
            01 01EED    0000801D A

            01 01EEE    83000004 A
            01 01EEF    2601801D A

            01 01EF0    00000000 A
            01 01EF1    00000000 A

            01 01EF2    00000000 A
            01 01EF3    00000000 A

            01 01EF4    0C020104 A
            01 01EF5    00004001 A

            01 01EF6    14182080 A
            01 01EF7    00014001 A


            01 01EF8    00000000 A
            01 01EF9    00008801 A

            01 01EFA    33000000 A
            01 01EFB    0000801D A

            01 01EFC    83000004 A
            01 01EFD    2400801D A

            01 01EFE    04000004 A
            01 01EFF    4200811D A

            01 01F00    04020206 A
            01 01F01    00004001 A

            01 01F02    00000000 A
            01 01F03    00009001 A

            01 01F04    00000000 A
            01 01F05    00000000 A

            01 01F06    33000000 A
            01 01F07    0000801D A

            01 01F08    83000004 A
            01 01F09    2601801D A

            01 01F0A    00000000 A
            01 01F0B    00000000 A

            01 01F0C    00000000 A
            01 01F0D    00000000 A

            01 01F0E    0C020104 A
            01 01F0F    00004001 A

            01 01F10    14182080 A
            01 01F11    00014001 A


            01 01F12    00000000 A
            01 01F13    00008801 A

            01 01F14    33000000 A
            01 01F15    0000801D A

            01 01F16    83000004 A
            01 01F17    2400801D A

            01 01F18    04000004 A
            01 01F19    4200811D A

            01 01F1A    04020206 A
            01 01F1B    00004001 A

            01 01F1C    00000000 A
            01 01F1D    00009001 A

            01 01F1E    00000000 A
            01 01F1F    00000000 A

            01 01F20    33000000 A
            01 01F21    0000801D A

            01 01F22    83000004 A
            01 01F23    2601801D A

            01 01F24    00000000 A
            01 01F25    00000000 A

            01 01F26    00000000 A
            01 01F27    00000000 A

            01 01F28    0C020104 A
            01 01F29    00004001 A

            01 01F2A    14182080 A
            01 01F2B    00014001 A


            01 01F2C    00000000 A
            01 01F2D    00008801 A

            01 01F2E    33000000 A
            01 01F2F    0000801D A

            01 01F30    83000004 A
            01 01F31    2400801D A

            01 01F32    04000004 A
            01 01F33    4200811D A

            01 01F34    04020206 A
            01 01F35    00004001 A

            01 01F36    00000000 A
            01 01F37    00009001 A

            01 01F38    00000000 A
            01 01F39    00000000 A

            01 01F3A    33000000 A
            01 01F3B    0000801D A

            01 01F3C    83000004 A
            01 01F3D    2601801D A

            01 01F3E    00000000 A
            01 01F3F    00000000 A

            01 01F40    00000000 A
            01 01F41    00000000 A

            01 01F42    0C020104 A
            01 01F43    00004001 A

            01 01F44    14182080 A
            01 01F45    00014001 A


            01 01F46    00000000 A
            01 01F47    00008801 A

            01 01F48    33000000 A
            01 01F49    0000801D A

            01 01F4A    83000004 A
            01 01F4B    2400801D A

            01 01F4C    04000004 A
            01 01F4D    4200811D A

            01 01F4E    04020206 A
            01 01F4F    00004001 A

            01 01F50    00000000 A
            01 01F51    00009001 A

            01 01F52    00000000 A
            01 01F53    00000000 A

            01 01F54    33000000 A
            01 01F55    0000801D A

            01 01F56    83000004 A
            01 01F57    2601801D A

            01 01F58    00000000 A
            01 01F59    00000000 A

            01 01F5A    00000000 A
            01 01F5B    00000000 A

            01 01F5C    0C020104 A
            01 01F5D    00004001 A

            01 01F5E    14182080 A
            01 01F5F    00014001 A


            01 01F60    00000000 A
            01 01F61    00008801 A

            01 01F62    33000000 A
            01 01F63    0000801D A

            01 01F64    83000004 A
            01 01F65    2400801D A

            01 01F66    04000004 A
            01 01F67    4200811D A

            01 01F68    04020206 A
            01 01F69    00004001 A

            01 01F6A    00000000 A
            01 01F6B    00009001 A

            01 01F6C    00000000 A
            01 01F6D    00000000 A

            01 01F6E    33000000 A
            01 01F6F    0000801D A

            01 01F70    83000004 A
            01 01F71    2601801D A

            01 01F72    00000000 A
            01 01F73    00000000 A

            01 01F74    00000000 A
            01 01F75    00000000 A

            01 01F76    0C020104 A
            01 01F77    00004001 A

            01 01F78    14182080 A
            01 01F79    00014001 A


     6978                            * THE FOLLOWING DOUBLEWORDS ARE USED BY THE BUILD SUBTASK

     6980   01 01F7A    01000400 A   T2TASKW  GEN,8,8,16      X'01',0,#RBYTC   WRITE ORDER
     6981   01 01F7B    2400A01D A            GEN,4,4,8,16    2,4,0,X'A01D'
     6982   01 01F7C    02000400 A   T2TASKR  GEN,8,8,16      X'02',0,#RBYTC   READ ORDER
     6983   01 01F7D    2400801D A            GEN,4,4,8,16      2,4,0,X'801D'
     6984   01 01F7E    00040000 A   T2TASKDW GEN,8,8,8,8       0,4,0,0               SPREAD PATTERN
     6985   01 01F7F    00004023 A            GEN,8,8,16  0,0,X'4023'
     6986   01 01F80    00000000 A   T2TASKDR GEN,32          0                COMPARE PATTERN
     6987   01 01F81    0001A0C3 A            GEN,8,8,16      0,1,X'A0C3'
     6988   01 01F82    00020000 A   T2TASKX1 GEN,8,8,8,8     0,2,0,0          TRANSFER1
     6989   01 01F83    00004001 A            GEN,8,8,16      0,0,X'4001'
     6990   01 01F84    00040000 A   T2TASKTR GEN,8,8,8,8       0,4,0,0                GET READ BUFFER AND
     6991   01 01F85    00004003 A            GEN,8,8,16        0,0,X'4003'             AND TRANSFER
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   89
A    6993                            *                                                                      *
     6994                            *        *** TST3 - UTILITY TEST ROUTINES ***                          *
     6995                            *                                                                      *
     6996                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT UTILITY TEST ROUTINE BY     *
     6997                            * SPECIFYING IN PARAMETER 1 THE DESIRED TEST:                          *
     6998                            *                                                                      *
     6999                            *    P1 = 1 SURFACE TEST (WRITE, READ, CHECKWRITE, DATA VERIFICATION)  *
     7000                            *    P1 = 2 HEADER TEST (WRITE AND READ HEADERS, HEADER VERIFICATION)  *
     7001                            *     P1 = FLAW A TRACK
     7002                            *                                                                      *
     7003                            *    NO OTHER VALUES OF P1 ARE ALLOWED.                                *
     7004                            *                                                                      *
     7005                            *    PARAMETERS 2,3, AND 4 ARE DEFINED BY THE SPECIFIC TEST            *
     7006                            *                                                                      *
     7007                            * ALL DEVICES SPECIFIED WITH THE SYST DIRECTIVE WILL BE TESTED IN      *
     7008                            * SEQUENCE.                                                            *
     7009                            *                                                                      *
     7010                            * TEST VARIATIONS (P1 = 1 OR 2 ONLY):                                  *
     7011                            * -----------------------------------                                  *
     7012                            *    DATA: THIS DIRECTIVE ALLOWS THE USER TO SELECT A DATA PATTERN.    *
     7013                            *    SEEK: THIS DIRECTIVE ALLOWS THE USER TO LIMIT THE AREA UNDER TEST.*
     7014                            *                                                                      *
     7015                            *                                                                      *
     7016   01 01F86    22000000 A   TST3     LI,0     0                 CLEAR R0
     7017   01 01F87    350003E3              STW,0    DEVPT             CLEAR DEVICE POINTER
     7018   01 01F88    350022ED              STW,0    T3UDIN            CLEAR DISK INI. FLAG
     7019   01 01F89    350022EE              STW,0    T3UDINH
     7020   01 01F8A    3500244A              STW,0    T3UISFLW
     7021   01 01F8B    3500048D              STW,0    TST1FLAG          RESET TST1 FLAG
     7022   01 01F8C    35002066              STW,0    T3UFLAW           RESET FLAW FLAG
     7023   01 01F8D    22700000 A            LI,7     0
     7024   01 01F8E    32E003E4              LW,14    DEVNO             NO. OF DEV ENTERED
     7025   01 01F8F    32FE03BA              LW,15    SYSTDEVA,7        GET DEV ADDR
     7026   01 01F90    CF00000F A            HIO,0    *15                 ALL
     7027   01 01F91    20700001 A            AI,7     1                 INCR INDEX
     7028   01 01F92    64E01F8F              BDR,14   %-3               B: NOT DONE
     7029   01 01F93    35302BC0              STW,3    ITHTEST           SET INTER/TRAP
     7030   01 01F94    22802BAC              LI,8     ITHDLR
     7031   01 01F95    3580030F              STW,8    :PIT15            INVOKE HDLR
     7032   01 01F96    22801F86              LI,8     TST3
     7033   01 01F97    35802BC2              STW,8    ITHRST            TEST RESTART ADDRESS
     7034   01 01F98    22000000 A   TST30    LI,0     0
     7035   01 01F99    351026C0              STW,1    SEEKADD           SET SEEK INCR = 1
     7036   01 01F9A    31100201              CW,1     :P1               COMPARE P1 TO 1
     7037   01 01F9B    69201FA0              BG       %+5               B: P1 < 1
     7038   01 01F9C    68301FA7              BE       TST31             B: P1 = 1 *** SURFACE TEST
     7039   01 01F9D    31300201              CW,3     :P1               COMPARE P1 TO 3
     7040   01 01F9E    68302067              BE       TST33             B: P1 = 3 *** DISC INITIALIZATION
     7041   01 01F9F    69201FEE              BG       TST32             B: P1 = 2 *** HEADER TEST
     7042   01 01FA0    22800004 A            LI,8     4
     7043   01 01FA1    31800201              CW,8     :P1               COMPARE P1 TO 4
     7044   01 01FA2    6830202F              BE       TST34             B: *** FLAW TRACK
     7045   01 01FA3    3510030A              STW,1    :PIT10            PARAMETER IN ERROR:P1 < 1 OR > 3
     7046   01 01FA4    EAF00229     TST3A    BAL,15   *:PREPORT         REPORT BAD PARAMETER
     7047   01 01FA5    00000326              DATA     :DIC+6
     7048   01 01FA6    E8000214              B        *:MONITOR         RETURN TO MONITOR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   90
A    7050                            *                                                                      *
     7051                            *        *** TST31 - SURFACE TEST ***                                  *
     7052                            *                                                                      *
     7053                            * PARAMETER 1 = 1. PARAMETER 2 ALLOWS THE USER TO SELECT THE FOLLOWING *
     7054                            * TESTS:                                                               *
     7055                            *                                                                      *
     7056                            *    P2 = 0 WRITE ALL SECTORS, READ ALL SECTORS AND COMPARE THE DATA.  *
     7057                            *    P2 = 1 WRITE ALL SECTORS.                                         *
     7058                            *    P2 = 2 READ ALL SECTORS AND COMPARE DATA.                         *
     7059                            *    P2 = 3 READ ALL SECTORS.                                          *
     7060                            *    P2 = 4 CHECKWRITE ALL SECTORS.                                    *
     7061                            *    P2 = 5 WRITE ALL SECTORS, CHECKWRITE ALL SECTORS                  *
     7062                            *                                                                      *
     7063                            *    NO OTHER VALUES OF P2 ARE ALLOWED                                 *
     7064                            *                                                                      *
     7065                            * PARAMETER 3 ALLOWS THE USER TO ENTER A RETRY COUNT. THE IO OPERATION *
     7066                            * (WRITE, READ, OR CHECKWRITE) WILL BE REPEATED P3 TIMES. DATA COMPARE *
     7067                            * ERRORS WILL NOT CAUSE RETRIES.                                       *
     7068                            *                                                                      *
     7069                            *    0 <= P3 <= 99    RANGE OF P3                                      *
     7070                            *                                                                      *
     7071                            * USE DATA AND SEEK DIRECTIVES FOR CHANGING PATTERN AND LIMITING THE   *
     7072                            * SURFACE AREA.                                                        *
     7073                            *                                                                      *
     7074                            *                                                                      *
     7075   01 01FA7    32402B94     TST31    LW,4     #RLEN             SET RECORD
     7076   01 01FA8    354022DE              STW,4    T3ULEN              LENGTH
     7077   01 01FA9    22400005 A            LI,4     5
     7078   01 01FAA    31400202              CW,4     :P2               COMPARE P2 TO 5
     7079   01 01FAB    68101FAE              BGE      %+3               B: PARAMETER 2 OK
     7080   01 01FAC    3520030A     TST31A   STW,2    :PIT10            PARAMETER IN ERROR: P2 > 5
     7081   01 01FAD    68001FA4              B        TST3A             B: REPORT PARAMETER ERROR
     7082   01 01FAE    32500203              LW,5     :P3
     7083   01 01FAF    21500063 A            CI,5     99                COMPARE P3 TO 99
     7084   01 01FB0    68201FB3              BLE      %+3               B: PARAMETER OK
     7085   01 01FB1    3530030A              STW,3    :PIT10            PARAMETER IN ERROR: P3 > 99
     7086   01 01FB2    68001FA4              B        TST3A             B: REPORT PARAMETER ERROR
     7087   01 01FB3    355022E2              STW,5    T3UTRYI           SAVE RETRY COUNT
     7088   01 01FB4    350022E1              STW,0    T3UHDR            RESET HEADER FLAG
     7089   01 01FB5    31300202              CW,3     :P2               COMPARE P2 TO 3
     7090   01 01FB6    69101FD0              BL       TST31E            B: P2 > 3
     7091   01 01FB7    31200202              CW,2     :P2               COMPARE P2 TO 2
     7092   01 01FB8    69201FD0              BG       TST31E            B: P2 < 2
     7093   01 01FB9    350022E0              STW,0    T3UWRT            RESET WRITE FLAG
     7094   01 01FBA    68301FBD              BE       %+3               B: P2 = 2
     7095   01 01FBB    350022EC              STW,0    T3UCMP            RESET VERIFY FLAG
     7096   01 01FBC    68001FBE              B        %+2
     7097   01 01FBD    351022EC     TST31B   STW,1    T3UCMP            SET VERIFY FLAG
     7098   01 01FBE    12C022F4              LD,12    T3UIOCD2          FETCH READ IOCD
     7099   01 01FBF    6AF0222B     TST31C   BAL,15   T3UEX             *** EXECUTE TEST ***
     7100   01 01FC0    CF0003E2     TST31D   HIO,0    *:DEVADDR         RELEASE DEVICE
     7101   01 01FC1    331003E3              MTW,1    DEVPT             INCR. DEVICE POINTER
     7102   01 01FC2    32A003E3              LW,10    DEVPT             FETCH DEVICE POINTER
     7103   01 01FC3    31A003E4              CW,10    DEVNO             COMPARE TO NUMBER OF DEVICES
     7104   01 01FC4    69101F98              BL       TST30             B: TEST NEXT DEVICE
     7105   01 01FC5    EAF0021D     TST31DD  SENSE
            01 01FC6    2E001FC6
     7106   01 01FC7    68001FC9              B        %+2               SS1 SET - LOOP ON ENTIRE TEST
     7107   01 01FC8    E8000214              B        *:MONITOR         SS1 RESET - RETURN CONTROL TO MON.
     7108   01 01FC9    32002066              LW,0     T3UFLAW           IS IT TO TEST FLAW TRACK
     7109   01 01FCA    68301F86              BEZ      TST3              B: NO, LOOP ON ENTIRE TEST
     7110   01 01FCB    72F20000 A            LB,15    0,1
     7111   01 01FCC    35F00202              STW,15   :P2               SAVE PARAMETER 2
     7112   01 01FCD    72F40000 A            LB,15    0,2
     7113   01 01FCE    35F00203              STW,15   :P3               SAVE PARAMETER 3
     7114   01 01FCF    68001F86              B        TST3              LOOP ON ENTIRE TEST
     7115   01 01FD0    351022E0     TST31E   STW,1    T3UWRT            SET WRITE FLAG
     7116   01 01FD1    22400004 A            LI,4     4
     7117   01 01FD2    31400202              CW,4     :P2               COMPARE P2 TO 4
     7118   01 01FD3    69301FE4              BNE      TST31H            B: P2 NE 4 (NOT A CHECKWRITE)
     7119   01 01FD4    3120255A     TST31F   CW,2    :DATAP1            COMPARE DATA TYPE TO 2 RANDOM
     7120   01 01FD5    69301FE2              BNE      TST31G            B: DATA TYPE NOT RANDOM
     7121   01 01FD6    EAF0021C              BAL,15   *:PRINT           REPORT USER ERROR
     7122   01 01FD7    00001FD9              DATA     TST31M1
     7123   01 01FD8    E8000214              B        *:MONITOR         RETURN CONTROL TO MONITOR
     7124   01 01FD9    21C3E6D9 A   TST31M1  TEXTC    'CWRT WITH RANDOM DATA NOT ALLOWED'
            01 01FDA    E340E6C9 A
            01 01FDB    E3C840D9 A
            01 01FDC    C1D5C4D6 A
            01 01FDD    D440C4C1 A
            01 01FDE    E3C140D5 A
            01 01FDF    D6E340C1 A
            01 01FE0    D3D3D6E6 A
            01 01FE1    C5C44040 A
     7125   01 01FE2    12C022F6     TST31G   LD,12    T3UIOCD3          FETCH CHECKWRITE IOCD
     7126   01 01FE3    68001FBF              B        TST31C            B: DO IT - PERFORME CHECKWRITE
     7127   01 01FE4    12C022F2     TST31H   LD,12    T3UIOCD1          FETCH WRITE IOCD
     7128   01 01FE5    6AF0222B              BAL,15   T3UEX             *** EXECUTE TEST ***
     7129   01 01FE6    22400005 A            LI,4     5
     7130   01 01FE7    31400202              CW,4     :P2               COMPARE P2 TO 4
     7131   01 01FE8    68301FD4              BE       TST31F            B: DO IT - CHECKWRITE AFTER WRITE
     7132   01 01FE9    22000000 A            LI,0     0
     7133   01 01FEA    350022E0              STW,0    T3UWRT            RESET WRITE FLAG
     7134   01 01FEB    33000202              MTW,0    :P2               TEST P2
     7135   01 01FEC    68301FBD              BEZ      TST31B            B: DO IT - READ AND COMPARE AFTER
     7136   01 01FED    68001FC0              B        TST31D            B: TEST NEXT DEVICE           WRITE
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   91
A    7138                            *                                                                      *
     7139                            *        *** TST32 - HEADER TEST ***                                   *
     7140                            *                                                                      *
     7141                            * PARAMETER 1 = 2. PARAMETER 2 ALLOWS THE USER TO SELECT THE FOLLOWING *
     7142                            * TESTS:                                                               *
     7143                            *                                                                      *
     7144                            *    P2 = 0 WRITE HEADERS IN MULTIPLES OF SIX HEADERS, READ AND COMPARE*
     7145                            *           ALL HEADERS.                                               *
     7146                            *    P2 = 1 WRITE HEADERS IN MULTIPLES OF SIX HEADERS.                 *
     7147                            *    P2 = 2 READ AND COMPARE ALL HEADERS.                              *
     7148                            *    P2 = 3 READ ALL HEADERS                                           *
     7149                            *                                                                      *
     7150                            *    NO OTHER VALUES OF P2 ARE ALLOWED.                                *
     7151                            *                                                                      *
     7152                            * PARAMETER 3 ALLOWS THE USER TO ENTER A RETRY COUNT. THE IO OPERATION *
     7153                            * (WRITE OR READ HEADERS) WILL BE REPEATED P3 TIMES. HEADER COMPARE    *
     7154                            * ERRORS WILL NOT CAUSE RETRIES.                                       *
     7155                            *                                                                      *
     7156                            * USE SEEK DIRECTIVE FOR LIMITING THE SURFACE AREA. THE STARTING SECTOR*
     7157                            * ADRESS MUST = ZERO, AND A MULTIPLE OF 6 HEADERS MUST BE SPECIFIED    *
     7158                            * FOR HEADER WRITING AND READING.                                      *
     7159                            *                                                                      *
     7160   01 01FEE    32402B96     TST32    LW,4     #HWLEN            SET HEADER
     7161   01 01FEF    354022DE              STW,4    T3ULEN              LENGTH
     7162   01 01FF0    32402B97              LW,4     #SEEKIHW          STORE
     7163   01 01FF1    354026C0              STW,4    SEEKADD             SEEK INCREMENT VALUE
     7164   01 01FF2    68001FFF              B        TST32B1           B: TEST STARTING AND ENDING ADR
     7165   01 01FF3    31300202     TST32A0  CW,3     :P2               COMPARE P2 TO 3
     7166   01 01FF4    69101FAC              BL       TST31A            B: PARAMETER ERROR: P2 > 3
     7167   01 01FF5    351022E1              STW,1    T3UHDR            SET HEADER FLAG
     7168   01 01FF6    31200202              CW,2     :P2               COMPARE P2 TO 2
     7169   01 01FF7    69202027              BG       TST32D            B: P2 < 2
     7170   01 01FF8    350022E0              STW,0    T3UWRT            RESET WRITE FLAG
     7171   01 01FF9    68301FFC              BE       %+3               B: P2 = 2
     7172   01 01FFA    350022EC              STW,0    T3UCMP            RESET VERIFY FLAG
     7173   01 01FFB    68001FFD              B        %+2
     7174   01 01FFC    351022EC     TST32A   STW,1    T3UCMP            SET VERIFY FLAG
     7175   01 01FFD    12C022FA              LD,12    T3UIOCD5          FETCH HEADER READ IOCD
     7176   01 01FFE    68001FBF              B        TST31C            B: DO IT - PERFORM HEADER READ
     7177   01 01FFF    324003E3     TST32B1  LW,4     DEVPT             FETCH DEV TABLE POINTER
     7178   01 02000    327803D2              LW,7     CURSFRST,4        FETCH FIRST SEEK ADR
     7179   01 02001    22600000 A            LI,6     0
     7180   01 02002    36602C04              DW,6     =6                DIVIDE FIRST SEEK ADR BY 6
     7181   01 02003    33000006 A            MTW,0    6                 TEST REMAINDER
     7182   01 02004    68302013              BEZ      TST32C            B: FIRST SEEK ADR  = SECTOR 0
     7183   01 02005    EAF0021C              BAL,15   *:PRINT           REPORT USER ERROR
     7184   01 02006    00002008              DATA     TST32M1
     7185   01 02007    E8000214              B        *:MONITOR
     7186   01 02008    29C8C5C1 A   TST32M1  TEXTC    'HEADER RD/WRT REQUIRES SECTOR ADR OF ZERO'
            01 02009    C4C5D940 A
            01 0200A    D9C461E6 A
            01 0200B    D9E340D9 A
            01 0200C    C5D8E4C9 A
            01 0200D    D9C5E240 A
            01 0200E    E2C5C3E3 A
            01 0200F    D6D940C1 A
            01 02010    C4D940D6 A
            01 02011    C640E9C5 A
            01 02012    D9D64040 A
     7187   01 02013    327803DA     TST32C   LW,7     CURSLAST,4        FETCH LAST SEEK ADR
     7188   01 02014    22600000 A            LI,6     0
     7189   01 02015    36602C04              DW,6     =6                DIVIDE LAST SEEK ADR BY 6
     7190   01 02016    21600005 A            CI,6     5                 TEST REMAINDER
     7191   01 02017    68301FF3              BE       TST32A0           B: LAST SEEK ADR = 5
     7192   01 02018    EAF0021C              BAL,15   *:PRINT           REPORT USER ERROR
     7193   01 02019    0000201B              DATA     TST32M2
     7194   01 0201A    E8000214              B        *:MONITOR         RETURN CONTROL TO MONITOR
     7195   01 0201B    2EC8C5C1 A   TST32M2  TEXTC    'HEADER RD/WRT REQUIRES A MULTIPLE OF 6 SECTORS'
            01 0201C    C4C5D940 A
            01 0201D    D9C461E6 A
            01 0201E    D9E340D9 A
            01 0201F    C5D8E4C9 A
            01 02020    D9C5E240 A
            01 02021    C140D4E4 A
            01 02022    D3E3C9D7 A
            01 02023    D3C540D6 A
            01 02024    C640F640 A
            01 02025    E2C5C3E3 A
            01 02026    D6D9E240 A
     7196   01 02027    351022E0     TST32D   STW,1    T3UWRT            SET WRT FLAG
     7197   01 02028    12C022F8              LD,12    T3UIOCD4          FETCH HEADER WRT IOCD
     7198   01 02029    6AF0222B              BAL,15   T3UEX             *** EXECUTE TEST ***
     7199   01 0202A    33000202              MTW,0    :P2               TEST P2
     7200   01 0202B    69301FC0              BNEZ     TST31D            B: TEST NEXT DEVICE
     7201   01 0202C    22000000 A            LI,0     0
     7202   01 0202D    350022E0              STW,0    T3UWRT            RESET WRITE FLAG
     7203   01 0202E    68001FFC              B        TST32A            B: DO IT - READ AND COMPARE HEADERS
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   92
A    7205                            *       *** TST34 - FLAW TRACK TEST ***

     7207                            *        6 HEADERS ARE WRITTEN WITH FLAW MARKS AND VERIFIED.
     7208                            *        P2 = ALTERNATE CYLINDER ADR (0-202)
     7209                            *        P3 = ALTERNATE HEAD ADR (0-19)

     7211                            *        THE SEEK DIRECTIVE MUST BE SPECIFIED FOR 6 SECTIONS,
     7212                            *        STARTING WITH SECTOR 0

     7214   01 0202F    32500202     TST34    LW,5     :P2               COMPARE CYL ADR TO 203
     7215   01 02030    215000CB A            CI,5     203
     7216   01 02031    69102034              BL       %+3
     7217   01 02032    3520030A              STW,2    :PIT10            PARAMETER IN ERROR: P2 > 202
     7218   01 02033    68001FA4              B        TST3A
     7219   01 02034    31502BA4              CW,R5    #ALTRCYL
     7220   01 02035    68102037              BGE      %+2
     7221   01 02036    68002032              B        %-4
     7222   01 02037    32600203              LW,6     :P3               COMPARE HEAD ADR TO 20
     7223   01 02038    21600014 A            CI,6     20
     7224   01 02039    6910203C              BL       %+3
     7225   01 0203A    3530030A              STW,3    :PIT10            PARAMETER IN ERROR: P3 > 19
     7226   01 0203B    68001FA4              B        TST3A
     7227   01 0203C    311003E4              CW,1     DEVNO             TEST IF ONLY ONE DEVICE
     7228   01 0203D    6830204D              BE       TST34A            YES
     7229   01 0203E    EAF0021C              BAL,15   *:PRINT
     7230   01 0203F    00002041              DATA     TST34M1
     7231   01 02040    E8000214              B        *:MONITOR
     7232   01 02041    2FE3E2E3 A   TST34M1  TEXTC    'TST3,4-ONLY ONE DEVICE ALLOWED. ENTER SYST DIR.'
            01 02042    F36BF460 A
            01 02043    D6D5D3E8 A
            01 02044    40D6D5C5 A
            01 02045    40C4C5E5 A
            01 02046    C9C3C540 A
            01 02047    C1D3D3D6 A
            01 02048    E6C5C44B A
            01 02049    40C5D5E3 A
            01 0204A    C5D940E2 A
            01 0204B    E8E2E340 A
            01 0204C    C4C9D94B A
     7233   01 0204D    324003DA     TST34A   LW,4     CURSLAST          FETCH ENDING SECTOR ADR
     7234   01 0204E    384003D2              SW,4     CURSFRST          SUBTRACT STARTING ADR
     7235   01 0204F    21400005 A            CI,4     5                 TEST FOR DIFFERENCE OF 6
     7236   01 02050    6830205F              BE       TST34B
     7237   01 02051    EAF0021C              BAL,15   *:PRINT
     7238   01 02052    00002054              DATA     TST34M2
     7239   01 02053    E8000214              B        *:MONITOR
     7240   01 02054    29E3E2E3 A   TST34M2  TEXTC    'TST3,4 - USE SEEK DIRECTIVE FOR 6 SECTORS'
            01 02055    F36BF440 A
            01 02056    6040E4E2 A
            01 02057    C540E2C5 A
            01 02058    C5D240C4 A
            01 02059    C9D9C5C3 A
            01 0205A    E3C9E5C5 A
            01 0205B    40C6D6D9 A
            01 0205C    40F640E2 A
            01 0205D    C5C3E3D6 A
            01 0205E    D9E24040 A
     7241   01 0205F    75540006 A   TST34B   STB,5    6,2               COMBINE P2 AND P3
     7242   01 02060    25600008 A            SLS,6    +8                ALIGN BYTES
     7243   01 02061    35602066              STW,6    T3UFLAW           SAVE ALTERNATE ADR
     7244   01 02062    22000000 A            LI,0     0
     7245   01 02063    35000202              STW,0    :P2               FORCE HEADER READ/WRITE
     7246   01 02064    35100203              STW,1    :P3               RETRY COUNT OF ONE
     7247   01 02065    68001FEE              B        TST32
     7248   01 02066    00000000 A   T3UFLAW  DATA     0
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   93
A    7250                            *        *** TST33 - DISK INITIALIZATION ***                           *
     7251                            *                                                                      *
     7252                            * THIS TEST WILL INITIALIZE THE DISK PACK WITH HEADERS, VERIFY THE     *
     7253                            * ENTIRE RECORDING SURFACE, ASSIGN ALTERNATE  ADDRESSES AND WRITE      *
     7254                            * LABEL RECORDS                                                        *
     7255                            *                                                                      *
     7256                            * PARAMETER P1 = 3; DISK INITIALIZATION                                *
     7257                            *           P2 = XXXXXXXX; 8 DIGIT DISK PACK SERIAL NUMBER             *
     7258                            *           P3 = 0; NOT USED                                           *
     7259                            *           P4 = MMDDYY; 6 DIGIT DATE (MM = MONTH, DD = DAY, YY = YEAR)*
     7260                            *                                                                      *
     7261   01 02067    32000202     TST33    LW,0     :P2
     7262   01 02068    35002226              STW,0    T3ISN             SERIAL NUMBER
     7263   01 02069    32000204              LW,0     :P4
     7264   01 0206A    35002227              STW,0    T3IDATE           DATE
     7265   01 0206B    32402B96              LW,4     #HWLEN
     7266   01 0206C    354022DE              STW,4    T3ULEN
     7267   01 0206D    22000000 A            LI,0     0
     7268   01 0206E    35002219              STW,0    T3ITABPH          RESET TABLE
     7269   01 0206F    3500221A              STW,0    T3ITABPD            POINTERS
     7270   01 02070    32402B97              LW,4     #SEEKIHW          SEEK INCR FOR
     7271   01 02071    354026C0              STW,4    SEEKADD             HEADER OPERATIONS
     7272   01 02072    22800000 A            LI,8     0                 FETCH
     7273   01 02073    32902B9B              LW,9     #DEFLTE             DEFAULT SEEK ADRS
     7274   01 02074    158026BC              STD,8    SEEKFRST          STORE ADR
     7275   01 02075    32A003BA              LW,10    SYSTDEVA
     7276   01 02076    35A003E2              STW,10   :DEVADDR          STORE DEV. ADR
     7277   01 02077    12C022F8              LD,12    T3UIOCD4          FETCH HDR WRITE IOCD
     7278   01 02078    15C022F0              STD,12   T3UIOCD           STORE IOCD
     7279   01 02079    22500006 A            LI,5     6                 SET HDR WRITE RETRY
     7280   01 0207A    355022E2              STW,5    T3UTRYI             COUNT TO 6
     7281   01 0207B    351022E0              STW,1    T3UWRT            SET FLAGS
     7282   01 0207C    351022E1              STW,1    T3UHDR              FOR SURFACE
     7283   01 0207D    351022ED              STW,1    T3UDIN                TEST
     7284   01 0207E    6AF0223A              BAL,15   T3UEXALT          EXECUTE HEADER WRITE TEST
     7285   01 0207F    22800000 A            LI,8     0                 FETCH
     7286   01 02080    32902B9B              LW,9     #DEFLTE             DEFAULT SEEK ADR
     7287   01 02081    158026BC              STD,8    SEEKFRST          STORE ADR
     7288   01 02082    12C022FA              LD,12    T3UIOCD5          FETCH HDR READ IOCD
     7289   01 02083    15C022F0              STD,12   T3UIOCD           STORE IOCD
     7290   01 02084    22000000 A            LI,0     0                 NO RETRIES ALLOWED
     7291   01 02085    350022E2              STW,0    T3UTRYI             DURING HDR READ TEST
     7292   01 02086    350022E0              STW,0    T3UWRT            SET FLAGS FOR
     7293   01 02087    351022EC              STW,1    T3UCMP              SURFACE TEST
     7294   01 02088    6AF0223A              BAL,15   T3UEXALT          EXECUTE HEADER READ TEST
     7295   01 02089    3280221A              LW,8     T3ITABPD          SET HEADER TABLE POINTER
     7296   01 0208A    35802219              STW,8    T3ITABPH            TO CURRENT DATA FLAW POINTER
     7297   01 0208B    30802BAA              AW,8     IOBF1             UPDATE HEADER
     7298   01 0208C    3580221B              STW,8    T3IHDRA             TABLE ADR (LAST)
     7299   01 0208D    351026C0              STW,1    SEEKADD           SEEK INCR = 1
     7300   01 0208E    32402B94              LW,4     #RLEN
     7301   01 0208F    354022DE              STW,4    T3ULEN
     7302   01 02090    22800000 A            LI,8     0                 FETCH
     7303   01 02091    32902B9B              LW,9     #DEFLTE             DEFAULT SEEK ADR
     7304   01 02092    158026BC              STD,8    SEEKFRST          STORE ADR
     7305   01 02093    12C022F2              LD,12    T3UIOCD1          FETCH WRT IOCD
     7306   01 02094    15C022F0              STD,12   T3UIOCD           STORE IOCD
     7307   01 02095    22500006 A            LI,5     6                 SET WRITE RETRY
     7308   01 02096    355022E2              STW,5    T3UTRYI             COUNT TO 6
     7309   01 02097    351022E0              STW,1    T3UWRT            SET WRITE FLAG
     7310   01 02098    22000000 A            LI,0     0
     7311   01 02099    35002AFE              STW,0    :PATID            SET PATTERN SPREAD ROUTINE
     7312   01 0209A    350022E1              STW,0    T3UHDR            RESET HEADER FLAG
     7313   01 0209B    220FFFFF A            LI,0     -1                  TO FIXED PATTERN OF
     7314   01 0209C    35002AFF              STW,0    :PATID+1              ALL ONES.
     7315   01 0209D    6AF0223A              BAL,15   T3UEXALT          EXECUTE WRITE TEST
     7316   01 0209E    22800000 A            LI,8     0                 FETCH
     7317   01 0209F    32902B9B              LW,9     #DEFLTE             DEFAULT SEEK ADR
     7318   01 020A0    158026BC              STD,8    SEEKFRST          STORE ADR
     7319   01 020A1    12C022F6              LD,12    T3UIOCD3          FETCH CHECKWRT IOCD
     7320   01 020A2    15C022F0              STD,12   T3UIOCD           STORE IOCD
     7321   01 020A3    22000000 A            LI,0     0                 NO RETRIES ALLOWED DURING
     7322   01 020A4    350022E2              STW,0    T3UTRYI             CHECKWRT TEST
     7323   01 020A5    6AF0223A              BAL,15   T3UEXALT          EXECUTE CHECKWRITE TEST
     7324   01 020A6    3280221A              LW,8     T3ITABPD
     7325   01 020A7    30802BAA              AW,8     IOBF1             UPDATE AND STORE
     7326   01 020A8    3580221C              STW,8    T3IDATAA            DATA TABLE ADR (LAST)
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   94
A    7328                            *        *** T3IANAL ***

     7330                            * THIS ROUTINE ANALYSES THE FLAW DATA AND DEVELOPS ALTERNATE ADDRESSES

     7332   01 020A9    3280221C     T3IANAL  LW,8     T3IDATAA
     7333   01 020AA    30802219              AW,8     T3ITABPH          COMPUTE
     7334   01 020AB    3580221D              STW,8    T3IHDRB             TABLE ENDING ADDR
     7335   01 020AC    3280221C              LW,8     T3IDATAA              FOR DATA AND HEADER
     7336   01 020AD    3080221A              AW,8     T3ITABPD                AREAS
     7337   01 020AE    3580221E              STW,8    T3IDATAB
     7338   01 020AF    3A50221A              LCW,5    T3ITABPD
     7339   01 020B0    220FFFFF A            LI,0     -1                CLEAR
     7340   01 020B1    B50A221E              STW,0    *T3IDATAB,5         TABLE B
     7341   01 020B2    655020B1              BIR,5    %-1
     7342   01 020B3    3A402219              LCW,4    T3ITABPH          FETCH INDEX
     7343   01 020B4    32902C1B              LW,9    =X'00FF0000'       COMPARE MASK
     7344   01 020B5    32802C1F              LW,8    =X'00C70000'       CYLINDER ADR = 199
     7345   01 020B6    C588221B              CS,8     *T3IHDRA,4        COMPARE CYL ADR TO TABLE ENTRY
     7346   01 020B7    681020BA              BGE      %+3               B: CYLINDER ADR => 199
     7347   01 020B8    B2A8221B              LW,10    *T3IHDRA,4        STORE ADR
     7348   01 020B9    B5A8221D              STW,10   *T3IHDRB,4          IN TABLE B
     7349   01 020BA    654020B6              BIR,4    %-4               LOOP
     7350   01 020BB    3A40221A              LCW,4    T3ITABPD          FETCH INDEX
     7351   01 020BC    30402219              AW,4     T3ITABPH          SUBTRACT HDR INDEX
     7352   01 020BD    C588221C              CS,8     *T3IDATAA,4       COMPARE CYL ADR TO TABLE ENTRY
     7353   01 020BE    681020C1              BGE      %+3               B: CYLINDER ADR => 199
     7354   01 020BF    B2A8221C              LW,10    *T3IDATAA,4       STORE
     7355   01 020C0    B5A8221E              STW,10   *T3IDATAB,4         ADR IN TABLE B
     7356   01 020C1    654020BD              BIR,4    %-4               LOOP
     7357   01 020C2    224FFFC4 A            LI,4     -60
     7358   01 020C3    220FFFFF A            LI,0     -1                CLEAR
     7359   01 020C4    B5082222              STW,0   *T3IMAP60,4          MAP
     7360   01 020C5    654020C4              BIR,4    %-1
     7361   01 020C6    3A40221A              LCW,4    T3ITABPD          FETCH INDEX
     7362   01 020C7    B288221E              LW,8     *T3IDATAB,4       FETCH TABLE B ENTRY
     7363   01 020C8    691020CC              BLZ      %+4               B: NO ENTRY
     7364   01 020C9    32C00008 A            LW,12    8
     7365   01 020CA    6AF021FF              BAL,15   T3IMAPI           COMPUTE MAP INDEX
     7366   01 020CB    B58C2221              STW,8   *T3IMAP,6          STORE IN MAP
     7367   01 020CC    654020C7              BIR,4    %-5               LOOP
     7368   01 020CD    B3002221              MTW,0   *T3IMAP            TEST FIRST ITEM IN MAP
     7369   01 020CE    691020DF              BLZ      T3IANAL0          B: NO ENTRY
     7370   01 020CF    EAF0021C              BAL,15   *:PRINT
     7371   01 020D0    000020D2              DATA     T3IANALM
     7372   01 020D1    E8000214              B        *:MONITOR
     7373   01 020D2    32E3E2E3 A   T3IANALM TEXTC    'TST3,3 - FLAWS IN CYL 200 HD 0 - LABEL RECORD AREA'
            01 020D3    F36BF340 A
            01 020D4    6040C6D3 A
            01 020D5    C1E6E240 A
            01 020D6    C9D540C3 A
            01 020D7    E8D340F2 A
            01 020D8    F0F040C8 A
            01 020D9    C440F040 A
            01 020DA    6040D3C1 A
            01 020DB    C2C5D340 A
            01 020DC    D9C5C3D6 A
            01 020DD    D9C440C1 A
            01 020DE    D9C5C140 A

     7375   01 020DF    32802C20     T3IANAL0 LW,8     =X'00C80000'      SEEK ADR
     7376   01 020E0    3580221F              STW,8    T3IMAPSK            OF LABEL RECORD
     7377   01 020E1    22600001 A            LI,6     1                 MAP INDEX
     7378   01 020E2    3A40221A     T3IANAL1 LCW,4    T3ITABPD          FETCH TABLE INDEX
     7379   01 020E3    68302103              BEZ      T3IANAL4+1
     7380   01 020E4    B288221E              LW,8     *T3IDATAB,4       FETCH ITEM FROM TABLE B
     7381   01 020E5    68102102              BGEZ     T3IANAL4          B: ALTERNATE ASSIGNED
     7382   01 020E6    B30C2221              MTW,0    *T3IMAP,6         TEST MAP
     7383   01 020E7    691020FB              BLZ      T3IANAL3          B: CELL IN MAP IS AVAILABLE
     7384   01 020E8    33100006 A            MTW,1    6                 INCR MAP INDEX
     7385   01 020E9    2160003C A            CI,6     60                TEST FOR O'FLOW
     7386   01 020EA    691020E6              BL       %-4               B: INDEX < 60
     7387   01 020EB    EAF0021C     T3IANAL2 BAL,15   *:PRINT
     7388   01 020EC    000020EE              DATA     T3IANALN
     7389   01 020ED    E8000214              B        *:MONITOR         EXIT
     7390   01 020EE    30E3E2E3 A   T3IANALN TEXTC    'TST3,3 - ALL 59 ALTERNATES ASSIGNED - ALT.O-FLOW'
            01 020EF    F36BF340 A
            01 020F0    6040C1D3 A
            01 020F1    D340F5F9 A
            01 020F2    40C1D3E3 A
            01 020F3    C5D9D5C1 A
            01 020F4    E3C5E240 A
            01 020F5    C1E2E2C9 A
            01 020F6    C7D5C5C4 A
            01 020F7    406040C1 A
            01 020F8    D3E34BD6 A
            01 020F9    60C6D3D6 A
            01 020FA    E6404040 A

     7392   01 020FB    6AF02211     T3IANAL3 BAL,15   T3IMAPA           CONVERT MAP INDEX TO A SEEK ADR
     7393   01 020FC    B5D8221E              STW,13   *T3IDATAB,4       STORE SEEK ADR
     7394   01 020FD    B2C8221C              LW,12    *T3IDATAA,4
     7395   01 020FE    B5CC2221              STW,12   *T3IMAP,6         STORE SEEK ADR
     7396   01 020FF    33100006 A            MTW,1    6                 INCR MAP INDEX
     7397   01 02100    2160003C A            CI,6     60                TEST FOR O'FLOW
     7398   01 02101    681020EB              BGE      T3IANAL2          B: MAP O'FLOW
     7399   01 02102    654020E4     T3IANAL4 BIR,4    T3IANAL1+2        B: TEST NEXT ITEM
     7400   01 02103    22600001 A            LI,6     1                 INDEX
     7401   01 02104    B30C2221              MTW,0    *T3IMAP,6         TEST MAP
     7402   01 02105    69102117              BLZ      T3IANAL5          B: FIRST AVAIL. UNASSIGNED ALTERNATE
     7403   01 02106    33100006 A            MTW,1    6                 INCR MAP INDEX
     7404   01 02107    2160003C A            CI,6     60                TEST FOR O'FLOW
     7405   01 02108    69102104              BL       %-4               B: INDEX < 60
     7406   01 02109    EAF0021C              BAL,15   *:PRINT
     7407   01 0210A    0000210C              DATA     T3IANALO
     7408   01 0210B    E8000214              B        *:MONITOR         EXIT
     7409   01 0210C    2BE3E2E3 A   T3IANALO TEXTC    'TST3,3 - NO UNASSIGNED ALTERNATES AVAILABLE'
            01 0210D    F36BF340 A
            01 0210E    6040D5D6 A
            01 0210F    40E4D5C1 A
            01 02110    E2E2C9C7 A
            01 02111    D5C5C440 A
            01 02112    C1D3E3C5 A
            01 02113    D9D5C1E3 A
            01 02114    C5E240C1 A
            01 02115    E5C1C9D3 A
            01 02116    C1C2D3C5 A
     7410   01 02117    6AF02211     T3IANAL5 BAL,15   T3IMAPA
     7411   01 02118    35D02224              STW,13   T3IMAPF           STORE ADDR OF FIRST AVAIL ALTERNATE
     7412   01 02119    22500000 A            LI,5     0
     7413   01 0211A    33100006 A            MTW,1    6                 INCR MAP INDEX
     7414   01 0211B    2160003C A            CI,6     60                TEST MAP INDEX
     7415   01 0211C    69202121              BG       T3IANAL6          B: ALL ITEMS TESTED
     7416   01 0211D    B30C2221              MTW,0    *T3IMAP,6         TEST MAP
     7417   01 0211E    6810211A              BGEZ     %-4               B: CELL IS ASSIGNED
     7418   01 0211F    33100005 A            MTW,1    5                 INCR AVAILABLE COUNT
     7419   01 02120    6800211A              B        %-6               LOOP
     7420   01 02121    35502225     T3IANAL6 STW,5    T3IMAPUN          STORE UNASSIGNED COUNT
     7421   01 02122    22600001 A            LI,6     1                 SET MAP INDEX = 1
     7422   01 02123    22700000 A            LI,7     0
     7423   01 02124    B30C2221     T3ULBL1  MTW,0    *T3IMAP,6         TEST MAP ITEM
     7424   01 02125    68102128              BGEZ     %+3               B: ENTRY IN MAP
     7425   01 02126    B57C2221              STW,7    *T3IMAP,6         CLEAR MAP ITEM
     7426   01 02127    6800212E              B        T3ULBL2           B:
     7427   01 02128    B28C2221              LW,8     *T3IMAP,6         FETCH MAP ITEM
     7428   01 02129    25800008 A            SLS,8    +8                BITS 0-7 = CYL, BITS 8-15= HEAD
     7429   01 0212A    6AF02211              BAL,15   T3IMAPA           COMPUTE ALTERNATE ADR FROM INDEX
     7430   01 0212B    25D00078 A            SLS,13   -8                BITS 16-23=CYL, BITS 24-31=HEAD
     7431   01 0212C    55D20008 A            STH,13   8,1               COMBINE FLAW AND ALT. ADR
     7432   01 0212D    B58C2221              STW,8    *T3IMAP,6         STORE IN MAP
     7433   01 0212E    33100006 A   T3ULBL2  MTW,1    6                 INCR AND
     7434   01 0212F    2160003C A            CI,6     60                  TEST  INDEX
     7435   01 02130    69102124              BL       T3ULBL1           B: INDEX < 60
     7436   01 02131    226FFFF0 A            LI,6     -16               CLEAR
     7437   01 02132    B57C2221              STW,7    *T3IMAP,6           16 LOC OF LABEL
     7438   01 02133    65602132              BIR,6    %-1                   RECORD
     7439   01 02134    32802227              LW,8     T3IDATE
     7440   01 02135    B5822220              STW,8    *T3ULABEL,1       STORE DATE (P4)
     7441   01 02136    32802226              LW,8     T3ISN
     7442   01 02137    B5802220              STW,8    *T3ULABEL         STORE SERIAL NUMBER (P2)
     7443   01 02138    22600008 A            LI,6     8
     7444   01 02139    32802224              LW,8     T3IMAPF
     7445   01 0213A    B58C2220              STW,8    *T3ULABEL,6       STORE ADDR OF FIRST AVAIL ALT.
     7446   01 0213B    22600009 A            LI,6     9
     7447   01 0213C    32802225              LW,8     T3IMAPUN
     7448   01 0213D    B58C2220              STW,8    *T3ULABEL,6       STORE NO. OF UNASSIGNED ALT.

     7450                            *        *** WRITE LABEL RECORD ****

     7452   01 0213E    22502E33              LI,5     USERPROG+514
     7453   01 0213F    224FFF4C A            LI,4     -180              CLEAR UNUSED
     7454   01 02140    22800000 A            LI,8     0                   LABEL
     7455   01 02141    B5880005 A            STW,8    *5,4                  RECORD
     7456   01 02142    65402141              BIR,4    %-1                     AREA
     7457   01 02143    358022ED              STW,8    T3UDIN            RESET INIT9 FLAG
     7458   01 02144    358022DE              STW,8    T3ULEN            USE SAME BUFFER ADDR
     7459   01 02145    22805DC0 A            LI,8     200*120           RELATIVE STARTING ADR
     7460   01 02146    22905DC5 A            LI,9     (200*120)+5       RELATIVE ENDING ADR
     7461   01 02147    158026BC              STD,8    SEEKFRST          STORE ADR
     7462   01 02148    22400005 A            LI,4     5                 INHIBIT PATTERN SPREADING
     7463   01 02149    35402AFE              STW,4    :PATID
     7464   01 0214A    12C022F2              LD,12    T3UIOCD1          FETCH WRITE IOCD
     7465   01 0214B    15C022F0              STD,12   T3UIOCD           STORE IOCD
     7466   01 0214C    6AF0223A              BAL,15   T3UEXALT          WRITE 6 LABEL RECORDS
     7467   01 0214D    12C022F6              LD,12    T3UIOCD3          FETCH CHECKWRITE IOCD
     7468   01 0214E    15C022F0              STD,12   T3UIOCD           STORE IOCD
     7469   01 0214F    6AF0223A              BAL,15   T3UEXALT          CHECKWRITE 6 LABEL RECORDS
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   95
A    7471   01 02150    6AF02183              BAL,15   T3ULBLP           PRINT LABEL RECORD

     7473                            *        *** REWRITE HEADERS

     7475   01 02151    226FFFC5 A   T3IHDRW  LI,6     -59               INDEX
     7476   01 02152    32802222              LW,8     T3IMAP60          MAP ADR + 60
     7477   01 02153    32902BAA              LW,9     IOBF1             IO BUF
     7478   01 02154    2090003B A            AI,9     59                  + 59
     7479   01 02155    B2AC0008 A            LW,10    *8,6              MOVE
     7480   01 02156    B5AC0009 A            STW,10   *9,6                MAP
     7481   01 02157    65602155              BIR,6    %-2               LOOP
     7482   01 02158    32402B96              LW,4     #HWLEN
     7483   01 02159    354022DE              STW,4    T3ULEN
     7484   01 0215A    22600000 A            LI,6     0
     7485   01 0215B    35602228              STW,6    T3IINDEX          INITIALIZE INDEX
     7486   01 0215C    35102229     T3IHDRW0 STW,1    T3IFLAW           SET FLAW BYTE REQUIRED FLAG
     7487   01 0215D    B28C2BAA              LW,8     *IOBF1,6          FETCH MAP ITEM
     7488   01 0215E    6830217E              BCR,3    T3IHDRW2          B: ALTERNATE NOT ASSIGNED
     7489   01 0215F    35802223     T3IHDRW1 STW,8    T3IMAPC             AND SAVE
     7490   01 02160    25800208 A            SCS,8    +8
     7491   01 02161    4B802BF0              AND,8    =X'FFFF00'        SAVE ALTERNATE
     7492   01 02162    3580222A              STW,8    T3IALT              ADR
     7493   01 02163    32802223              LW,8     T3IMAPC
     7494   01 02164    72D00008 A            LB,13    8,0               FETCH CYLINDER ADR
     7495   01 02165    37C02B9C              MW,12    #ABSOLC           CYL X 120
     7496   01 02166    72B20008 A            LB,11    8,1
     7497   01 02167    37A02B9D              MW,10    #ABSOLC1          HEAD X 6
     7498   01 02168    30B0000D A            AW,11    13                COMBINE ABSOLUTE HD & CYL ADR
     7499   01 02169    32A0000B A            LW,10    11                STARTING ADR
     7500   01 0216A    20B00005 A            AI,11    5                 ENDING ADR
     7501   01 0216B    15A026BC              STD,10   SEEKFRST          STORE ADRRESSES
     7502   01 0216C    32402B97              LW,4     #SEEKIHW          SEEK INCR FOR HEADER OPERATION
     7503   01 0216D    354026C0              STW,4    SEEKADD
     7504   01 0216E    12A022F8              LD,10    T3UIOCD4          FETCH HDR WRITE IOCD
     7505   01 0216F    15A022F0              STD,10   T3UIOCD           STORE IOCD
     7506   01 02170    22500006 A            LI,5     6                 SET HDR WRITE
     7507   01 02171    355022E2              STW,5    T3UTRYI             RETRY COUNT TO 6
     7508   01 02172    351022E0              STW,1    T3UWRT            SET FLAGS
     7509   01 02173    351022E1              STW,1    T3UHDR              FOR SURFACE
     7510   01 02174    351022EE              STW,1    T3UDINH               TEST
     7511   01 02175    6AF0223A              BAL,15   T3UEXALT          EXECUTE HEADER WRITE TEST
     7512   01 02176    228000C8 A            LI,8     200
     7513   01 02177    71802223              CB,8     T3IMAPC,0         COMPARE CYL ADR TO 200
     7514   01 02178    6820217E              BLE      T3IHDRW2          B: CYL ADR => 200
     7515   01 02179    32802223              LW,8     T3IMAPC
     7516   01 0217A    25800210 A            SCS,8    +16               EXCHANGE ADDRESSES
     7517   01 0217B    22000000 A            LI,0     0                 RESET FLAW
     7518   01 0217C    35002229              STW,0    T3IFLAW             FLAG
     7519   01 0217D    6800215F              B        T3IHDRW1          REWRITE ALTERNATE HEADER
     7520   01 0217E    33102228     T3IHDRW2 MTW,1    T3IINDEX          INCR INDEX
     7521   01 0217F    32602228              LW,6     T3IINDEX
     7522   01 02180    2160003B A            CI,6     59                  AND TEST
     7523   01 02181    6910215C              BL       T3IHDRW0          B: NOT DONE
     7524   01 02182    68001FC5              B        TST31DD

     7526                            *        *** PRINT LABEL RECORD ***

     7528   01 02183    35F021FE     T3ULBLP  STW,15   T3ULBLPX          SAVE EXIT
     7529   01 02184    EAF0021C              BAL,15   *:PRINT
     7530   01 02185    000021C3              DATA     T3ULBLM1          PRINT 1ST LINE
     7531   01 02186    B2C02220              LW,12    *T3ULABEL         FETCH SERIAL NUMBER
     7532   01 02187    EAF00217              BAL,15   *:DECC
     7533   01 02188    35F021D1              STW,15   T3ULBLM2+5        STORE
     7534   01 02189    EAF00217              BAL,15   *:DECC              S/N
     7535   01 0218A    35F021D0              STW,15   T3ULBLM2+4            IN MSG
     7536   01 0218B    EAF0021C              BAL,15   *:PRINT
     7537   01 0218C    000021CC              DATA     T3ULBLM2          PRINT 2ND LINE
     7538   01 0218D    B2D22220              LW,13    *T3ULABEL,1       FETCH DATE
     7539   01 0218E    72C6000D A            LB,12    13,3
     7540   01 0218F    EAF00218              BAL,15   *:HEXC
     7541   01 02190    55F021D6              STH,15   T3ULBLM3+4
     7542   01 02191    72C4000D A            LB,12    13,2              STORE
     7543   01 02192    EAF00218              BAL,15   *:HEXC
     7544   01 02193    55F021D5              STH,15   T3ULBLM3+3          DATE
     7545   01 02194    72C2000D A            LB,12    13,1
     7546   01 02195    EAF00218              BAL,15   *:HEXC                IN MSG
     7547   01 02196    55F021D4              STH,15   T3ULBLM3+2
     7548   01 02197    EAF0021C              BAL,15   *:PRINT
     7549   01 02198    000021D2              DATA     T3ULBLM3          PRINT 3RD LINE
     7550   01 02199    22600009 A            LI,6     9
     7551   01 0219A    B2CC2220              LW,12    *T3ULABEL,6       STORE
     7552   01 0219B    EAF00217              BAL,15   *:DECC              NUMBER OF AVAILABLE
     7553   01 0219C    55F221DF              STH,15   T3ULBLM4+8,1          ALTERNATES
     7554   01 0219D    EAF0021C              BAL,15   *:PRINT           PRINT 4TH LINE
     7555   01 0219E    000021D7              DATA     T3ULBLM4
     7556   01 0219F    22600008 A            LI,6     8
     7557   01 021A0    B2DC2220              LW,13    *T3ULABEL,6
     7558   01 021A1    72C2000D A            LB,12    13,1              STORE ADR OF FIRST
     7559   01 021A2    EAF00217              BAL,15   *:DECC
     7560   01 021A3    35F021E8              STW,15   T3ULBLM5+8          AVAILABLE
     7561   01 021A4    72C4000D A            LB,12    13,2
     7562   01 021A5    EAF00217              BAL,15   *:DECC                ALTERNATE TRACK
     7563   01 021A6    55F021EA              STH,15   T3ULBLM5+10
     7564   01 021A7    EAF0021C              BAL,15   *:PRINT
     7565   01 021A8    000021E0              DATA     T3ULBLM5          PRINT 5TH LINE
     7566   01 021A9    EAF0021C              BAL,15   *:PRINT
     7567   01 021AA    000021EB              DATA     T3ULBLM6          SKIP A LINE
     7568   01 021AB    226FFFC5 A            LI,6     -59
     7569   01 021AC    32702222              LW,7     T3IMAP60
     7570   01 021AD    B2DC0007 A   T3ULBLP1 LW,13    *7,6              FETCH MAP ITEM
     7571   01 021AE    683021BD              BEZ      T3ULBLP2          B: ZERO ITEM
     7572   01 021AF    72C0000D A            LB,12    13
     7573   01 021B0    EAF00217              BAL,15   *:DECC
     7574   01 021B1    35F021F1              STW,15   T3ULBLM7+5
     7575   01 021B2    72C2000D A            LB,12    13,1
     7576   01 021B3    EAF00217              BAL,15   *:DECC
     7577   01 021B4    55F021F3              STH,15   T3ULBLM7+7        STORE
     7578   01 021B5    72C4000D A            LB,12    13,2
     7579   01 021B6    EAF00217              BAL,15   *:DECC              FLAW AND ALTERNATE
     7580   01 021B7    35F021FA              STW,15   T3ULBLM7+14
     7581   01 021B8    72C6000D A            LB,12    13,3                  ADDRESSES
     7582   01 021B9    EAF00217              BAL,15   *:DECC
     7583   01 021BA    55F021FC              STH,15   T3ULBLM7+16
     7584   01 021BB    EAF0021C              BAL,15   *:PRINT
     7585   01 021BC    000021EC              DATA     T3ULBLM7          PRINT LINE
     7586   01 021BD    656021AD     T3ULBLP2 BIR,6    T3ULBLP1          LOOP: PRINT NEXT LINE
     7587   01 021BE    EAF0021C              BAL,15   *:PRINT
     7588   01 021BF    000021EB              DATA     T3ULBLM6          SKIP A LINE
     7589   01 021C0    EAF0021C              BAL,15   *:PRINT
     7590   01 021C1    000021FD              DATA     T3ULBLM8          EOR
     7591   01 021C2    E80021FE              B        *T3ULBLPX
     7592   01 021C3    21E3E2E3 A   T3ULBLM1 TEXTC    'TST3,3 - DISK PACK INITIALIZATION'
            01 021C4    F36BF340 A
            01 021C5    6040C4C9 A
            01 021C6    E2D240D7 A
            01 021C7    C1C3D240 A
            01 021C8    C9D5C9E3 A
            01 021C9    C9C1D3C9 A
            01 021CA    E9C1E3C9 A
            01 021CB    D6D54040 A
     7593   01 021CC    17E2C5D9 A   T3ULBLM2 TEXTC    'SERIAL NUMBER: XXXXXXXX'
            01 021CD    C9C1D340 A
            01 021CE    D5E4D4C2 A
            01 021CF    C5D97A40 A
            01 021D0    E7E7E7E7 A
            01 021D1    E7E7E7E7 A
     7594   01 021D2    11C4C1E3 A   T3ULBLM3 TEXTC    'DATE:  XX  XX  XX'
            01 021D3    C57A4040 A
            01 021D4    E7E74040 A
            01 021D5    E7E74040 A
            01 021D6    E7E74040 A
     7595   01 021D7    23D5E4D4 A   T3ULBLM4 TEXTC    'NUMBER OF UNASSIGNED ALTERNATES: XX'
            01 021D8    C2C5D940 A
            01 021D9    D6C640E4 A
            01 021DA    D5C1E2E2 A
            01 021DB    C9C7D5C5 A
            01 021DC    C440C1D3 A
            01 021DD    E3C5D9D5 A
            01 021DE    C1E3C5E2 A
            01 021DF    7A40E7E7 A
     7596   01 021E0    29C6C9D9 A   T3ULBLM5 TEXTC    'FIRST AVAILABLE ALTERNATE: CYL=XXXX HD=XX'
            01 021E1    E2E340C1 A
            01 021E2    E5C1C9D3 A
            01 021E3    C1C2D3C5 A
            01 021E4    40C1D3E3 A
            01 021E5    C5D9D5C1 A
            01 021E6    E3C57A40 A
            01 021E7    C3E8D37E A
            01 021E8    E7E7E7E7 A
            01 021E9    40C8C47E A
            01 021EA    E7E74040 A
     7597   01 021EB    01404040 A   T3ULBLM6 TEXTC    ' '
     7598                            T3ULBLM7 TEXTC    'TRACK IN ERROR:CLY=XXXX HD=XX  -  ALTERNATE TRACK:',;
     7599   01 021EC    41E3D9C1 A                     ' CYL=XXXX HD=XX'
            01 021ED    C3D240C9 A
            01 021EE    D540C5D9 A
            01 021EF    D9D6D97A A
            01 021F0    C3D3E87E A
            01 021F1    E7E7E7E7 A
            01 021F2    40C8C47E A
            01 021F3    E7E74040 A
            01 021F4    604040C1 A
            01 021F5    D3E3C5D9 A
            01 021F6    D5C1E3C5 A
            01 021F7    40E3D9C1 A
            01 021F8    C3D27A40 A
            01 021F9    C3E8D37E A
            01 021FA    E7E7E7E7 A
            01 021FB    40C8C47E A
            01 021FC    E7E74040 A
     7600   01 021FD    03C5D5C4 A   T3ULBLM8 TEXTC    'END'
     7601   01 021FE    00000000 A   T3ULBLPX DATA     0                 EXIT ADR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   96
A    7603                            *        *** T3IMAPI ***

     7605                            * THIS ROUTINE USES THE CYL AND HEAD ADR AND COMPUTES AN INDEX FOR
     7606                            * THE ALTERNATE TRACK MAP.

     7608                            * REGISTERS REQUIRED: R12 = 00CCHHSS, SEEK ADDR; OUTPUT R6 = INDEX

     7610         01 021FF           T3IMAPI  EQU      %
     7611   01 021FF    25C00170 A            SLD,12   -16
     7612   01 02200    31C02BA3              CW,12    #FILLTRK
     7613   01 02201    68202204              BLE      T3IMAPI1
     7614   01 02202    EAF0022B              BAL,15   *:WAIT
     7615   01 02203    00002BD2              DATA     WAITMSG1

     7617   01 02204    38C02BA4     T3IMAPI1 SW,12    #ALTRCYL
     7618   01 02205    68102208              BGE      T3IMAPI2
     7619   01 02206    EAF0022B              BAL,15   *:WAIT
     7620   01 02207    00002BD2              DATA     WAITMSG1

     7622   01 02208    22B00014 A   T3IMAPI2 LI,11    20
     7623   01 02209    37B0000C A            MW,11    12
     7624   01 0220A    7260000D A            LB,6     13
     7625   01 0220B    21600013 A            CI,6     19
     7626   01 0220C    6910220F              BL       T3IMAPI3
     7627   01 0220D    EAF0022B              BAL,15   *:WAIT
     7628   01 0220E    00002BD2              DATA     WAITMSG1

     7630   01 0220F    3060000B A   T3IMAPI3 AW,6     11
     7631   01 02210    E800000F A            B       *15

     7633                            *        *** T3IMAPA

     7635                            * THIS ROUTINE CONVERTS AN INDEX VALUE OF THE ALTERNATE TRACK MAP TO A
     7636                            * CYL AND HEAD ADR

     7638                            * REGISTERS REQUIRED: R6 = INDEX (0 - 59); R12 = 00CCHH00, SEEK ADDR

     7640   01 02211    32D00006 A   T3IMAPA  LW,13    6
     7641   01 02212    22C00000 A            LI,12    0                 DIVIDE INDEX
     7642   01 02213    36C02C21              DW,12    =20                 BY NUMBER OF HEADS
     7643   01 02214    30D02BA4              AW,13    #ALTRCYL
     7644   01 02215    75C0000C A            STB,12   12,0              ALIGN HEAD ADR
     7645   01 02216    25C00308 A            SCD,12   +8                COMBINE CYL AND HEAD ADR
     7646   01 02217    25D00008 A            SLS,13   +8                ALIGN TO SEEK ADR FORMAT
     7647   01 02218    E800000F A            B        *15               EXIT

     7649   01 02219    00000000 A   T3ITABPH DATA     0                 TABLE
     7650   01 0221A    00000000 A   T3ITABPD DATA     0                   POINTERS
     7651   01 0221B    00000000 A   T3IHDRA  DATA     0                 TABLE STARTING
     7652   01 0221C    00000000 A   T3IDATAA DATA     0                   ADR (A)
     7653   01 0221D    00000000 A   T3IHDRB  DATA     0
     7654   01 0221E    00000000 A   T3IDATAB DATA     0                       (B)
     7655   01 0221F    00000000 A   T3IMAPSK DATA     0
     7656   01 02220    00002D33     T3ULABEL DATA     USERPROG+258      START OF LABEL RECORD
     7657   01 02221    00002D43     T3IMAP   DATA     USERPROG+274      START OF MAP
     7658   01 02222    00002D7F     T3IMAP60 DATA     USERPROG+334      END OF MAP
     7659   01 02223    00000000 A   T3IMAPC  DATA     0                 CURRENT MAP ITEM
     7660   01 02224    00000000 A   T3IMAPF  DATA     0                 FIRST AVAILABLE ALTERNATE
     7661   01 02225    00000000 A   T3IMAPUN DATA     0                 NO OF UNASSIGNED ALTERNATES
     7662   01 02226    00000000 A   T3ISN    DATA     0                 SERIAL NUMBER
     7663   01 02227    00000000 A   T3IDATE  DATA     0                 DATE
     7664   01 02228    00000000 A   T3IINDEX DATA     0                 REWRITE INDEX
     7665   01 02229    00000000 A   T3IFLAW  DATA     0                 FLAW BYTE REQUIRED
     7666   01 0222A    00000000 A   T3IALT   DATA     0                 ALTERNATE DATA
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   97
A    7668                            *        *** T3UEX - SURFACE AND HEADER TEST EXECUTION (TST3,1/TST3,2)

     7670                            * CALLING SEQUENCE: BAL,15  T3UEX   PARAMETERS: R12,13=IOCD
     7671                            * EXIT    SEQUENCE: B       *T3UEXX
     7672                            * REGISTERS ALTERED: R4,9,10,11,12,13

     7674   01 0222B    35F022DF     T3UEX    STW,15   T3UEXX            SAVE R15
     7675   01 0222C    324003E3              LW,4     DEVPT             FETCH DEV TABLE POINTER
     7676   01 0222D    329803BA              LW,9     SYSTDEVA,4        FETCH: DEV ADR
     7677   01 0222E    32A803D2              LW,10    CURSFRST,4               FIRST SEEK LOC
     7678   01 0222F    32B803DA              LW,11    CURSLAST,4               LAST  SEEK LOC
     7679   01 02230    359003E2              STW,9    :DEVADDR          SAVE DEVICE ADR
     7680   01 02231    15A026BC              STD,10   SEEKFRST          SAVE FIRST AND LAST SEEK ADR
     7681   01 02232    15C022F0              STD,12   T3UIOCD           SAVE CURRENT IOCD
     7682   01 02233    224FFFFD A            LI,4     -3
     7683   01 02234    3268255D              LW,6    :DATAP1+3,4        MOVE DATA PATTERN INFO
     7684   01 02235    35682B01              STW,6    :PATID+3,4          PATTERN SPREAD ROUTINE
     7685   01 02236    65402234              BIR,4    %-2
     7686   01 02237    3260255B              LW,6    :DATAP1+1          SAVE RANDOM
     7687   01 02238    35602B92              STW,6    :SEED               NUMBER SEED
     7688   01 02239    6800223B              B        %+2
     7689   01 0223A    35F022DF     T3UEXALT STW,15   T3UEXX            ALTERNATE ENTRY POINT FROM
     7690                            *                                     RANDOM EXERCISER DURING KEYING
     7691   01 0223B    22000000 A            LI,0     0
     7692   01 0223C    224FFFFA A            LI,4     -6                CLEAR
     7693   01 0223D    350822DE              STW,0    T3UIOAC+6,4         FLAGS
     7694   01 0223E    6540223D              BIR,4    %-1
     7695   01 0223F    3500244A              STW,0    T3UISFLW
     7696   01 02240    6AF02B14              BAL,15   :INTD             DISARM INTERRUPT
     7697   01 02241    32C02434              LW,12    T3UISERP          STORE XPSD
     7698   01 02242    35C0005C A            STW,12   X'5C'               FOR IO INTERRUPT
     7699   01 02243    224FFFF0 A            LI,4     -16               INDEX
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   98
A    7701   01 02244    32C02BAB              LW,12     IOBUF            FETCH STARTING IO BUFFER ADR
     7702   01 02245    35C8230C     T3UEX1   STW,12   T3UBADR+16,4      STORE BUFFER ADR IN TABLE
     7703   01 02246    30C022DE              AW,12    T3ULEN            ADD BUFFER WORD COUNT
     7704   01 02247    31C0022F              CW,12    :MEMLAST          COMPARE TO LAST AVAILABLE LOCATION
     7705   01 02248    6920224A              BG       %+2               B: END OF AVAILABLE BUFFER AREA
     7706   01 02249    65402245              BIR,4    T3UEX1            INCR. INDEX
     7707   01 0224A    20400010 A            AI,4     16                COMPUTE NO. OF ASSIGNED BUFFERS
     7708   01 0224B    354022DC              STW,4    T3UBNO            SAVE NO. OF BUFFERS
     7709   01 0224C    32C026BC              LW,12    SEEKFRST          INITIALIZE
     7710   01 0224D    35C026BE              STW,12   SEEKCUR             SEEK ADR
     7711   01 0224E    6AF02B0E              BAL,15  :INTAE             ARM AND ENABLE IO INTERRUPT
     7712   01 0224F    330022E0              MTW,0    T3UWRT            TEST WRITE FLAG
     7713   01 02250    68302294              BEZ      T3UEXR            B: READ OPERATION
     7714   01 02251    68002252              B        T3UEXW            B: WRITE OPERATION
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE   99
A    7716                            *        T3UEXW - THIS ROUTINE CONTROLS EXECUTION OF WRT, CWRT, AND HWRT

     7718   01 02252    324022DB     T3UEXW   LW,4     T3UBPT            FETCH BUFFER POINTER
     7719   01 02253    32D026BE              LW,13    SEEKCUR           FETCH ABSOLUTE SEEK ADR
     7720   01 02254    6AF025FB              BAL,15   SEEKGEN           GENERATE 4 BYTE SEEK ADR
     7721   01 02255    35D8230C              STW,13   T3USADR,4         STORE SEEK IN ADR TABLE
     7722   01 02256    32C822FC              LW,12    T3UBADR,4         FETCH BUFFER ADR
     7723   01 02257    330022E1              MTW,0    T3UHDR            TEST HEADER FLAG
     7724   01 02258    6930225B              BNEZ     %+3               B: HEADER DATA
     7725   01 02259    6AF0245B              BAL,15   T3USPDW           SPREAD DATA IN BUFFER
     7726   01 0225A    6800225C              B        %+2
     7727   01 0225B    6AF02488              BAL,15   T3USPHW           SPREAD HEADERS IN BUFFER
     7728   01 0225C    32D026BE              LW,13    SEEKCUR           FETCH CURRENT SEEK SEEK
     7729   01 0225D    6AF0269E              BAL,15   SEEKINC           B: INCREMENT CURRENT SEEK ADR
     7730   01 0225E    331022DD              MTW,1    T3UDONE           SET DONE FLAG
     7731   01 0225F    331022D9              MTW,1    T3UBAC            INCR. BUFFER ACTIVE FLAG
     7732   01 02260    331022DB              MTW,1    T3UBPT            INCR. BUFFER POINTER
     7733   01 02261    324022DB              LW,4     T3UBPT            FETCH POINTER
     7734   01 02262    314022DC              CW,4     T3UBNO            COMPARE TO BUFFER COUNT
     7735   01 02263    69102266              BL       %+3               B: POINTER OK
     7736   01 02264    22C00000 A            LI,12    0                 RESET POINTER
     7737   01 02265    35C022DB              STW,12   T3UBPT              TO ZERO
     7738   01 02266    330022D8              MTW,0    T3UIOAC           TEST IO ACTIVE FLAG
     7739   01 02267    6930226F              BNEZ     T3UEXW1A          B: IO ACTIVE
     7740   01 02268    6AF02B14              BAL,15  :INTD              DISARM IO INTERRUPT
     7741   01 02269    32C022E2     T3UEXW1  LW,12    T3UTRYI           RESTORE
     7742   01 0226A    35C022E3              STW,12   T3UTRYC             RETRY COUNT
     7743   01 0226B    324022DA              LW,4     T3UIOPT           FETCH IO POINTER
     7744   01 0226C    32D8230C              LW,13    T3USADR,4         FETCH SEEKADR FROM TABLE
     7745   01 0226D    6AF02347              BAL,15   T3UACTS           B: ACTIVATE IO AFTER SEEK
     7746   01 0226E    6AF02B0E              BAL,15  :INTAE             ARM AND ENABLE IO INTERRUPT
     7747   01 0226F    330022DD     T3UEXW1A MTW,0    T3UDONE           TEST DONE FLAG
     7748   01 02270    69302285              BNEZ     T3UEXW3           B: BUFFERS LOADED
     7749   01 02271    32C022E4              LW,12    T3UTIMEI          SET TIME-OUT
     7750   01 02272    35C022E5              STW,12   T3UTIMEC            DELAY
     7751   01 02273    32C022D9     T3UEXW2  LW,12    T3UBAC            TEST FOR
     7752   01 02274    31C022DC              CW,12    T3UBNO              ALL BUFFERS ACTIVE
     7753   01 02275    69302252              BNE      T3UEXW            B: BUFFER AVAILABLE FOR LOADING
     7754   01 02276    331022E5              MTW,1    T3UTIMEC          TEST TIMER
     7755   01 02277    69302273              BNEZ     T3UEXW2           B: TIMER NE ZERO
     7756   01 02278    6AF02B14     T3UEXW2A BAL,15  :INTD              DISARM IO INTERRUPT
     7757   01 02279    EAF0021C              BAL,15   *:PRINT           PRINT ERROR MESSAGE
     7758   01 0227A    000022E6              DATA     T3UEXWM1          'IO OPERATION NOT COMPL'
     7759   01 0227B    6AF01D6E              BAL,15   DEVADRM           PRINT DEV. ADR.
     7760   01 0227C    324022DA              LW,4     T3UIOPT           LOAD SEEK
     7761   01 0227D    32D8230C              LW,13    T3USADR,4           ADR FROM TABLE
     7762   01 0227E    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK ADR
     7763   01 0227F    6AF026CB              :HIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 02280    FFFFC000 A
            01 02281    10000000 A
            01 02282    68002283
     7764   01 02283    6ED00000 A            AIO,13   0                 ISSUE AIO TO CLEAR IOP INTERRUPT
     7765   01 02284    68002269              B        T3UEXW1           B: TRY AGAIN
     7766   01 02285    32C022E4     T3UEXW3  LW,12    T3UTIMEI          SET TIME-OUT
     7767   01 02286    35C022E5              STW,12   T3UTIMEC            DELAY
     7768   01 02287    330022D9     T3UEXW4  MTW,0    T3UBAC            TEST BUFFER ACTIVE COUNT
     7769   01 02288    6830228C              BEZ      T3UEXW4A          EXIT - ALL DONE
     7770   01 02289    331022E5              MTW,1    T3UTIMEC           TEST TIMER
     7771   01 0228A    6930228E              BNEZ     T3UEXW4B          B: TIMER NE ZERO
     7772   01 0228B    68002278              B        T3UEXW2A          : REPORT TIMEOUT
     7773   01 0228C    6AF02B14     T3UEXW4A BAL,15   :INTD             DISARM I/O INTERRUPT
     7774   01 0228D    E80022DF              B        *T3UEXX           ALL DONE
     7775   01 0228E    330022D8     T3UEXW4B MTW,0    T3UIOAC           IS I/O ACTIVE
     7776   01 0228F    69302287              BNEZ     T3UEXW4             YES B: TEST BUFF ACTIVE
     7777   01 02290    32C022DA              LW,12    T3UIOPT           I/O BUFF POINTER EQUAL
     7778   01 02291    31C022DB              CW,12    T3UBPT              COMP/PAT BUFF POINTER
     7779   01 02292    69302268              BNEZ     T3UEXW1-1             NO B: START I/O
     7780   01 02293    68002287              B        T3UEXW4           B: TEST BUFF ACTIVE
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  100
A    7782                            *        T3UEXR - THIS ROUTINE CONTROLS EXECUTION OF READ AND HREAD

     7784   01 02294    330022D8     T3UEXR   MTW,0    T3UIOAC           TEST IO ACTIVE FLAG
     7785   01 02295    693022A1              BNEZ     T3UEXR1+1         B: IO IS ACTIVE
     7786   01 02296    6AF02B14              BAL,15  :INTD              DISARM IO INTERRUPT
     7787   01 02297    32C022E2              LW,12    T3UTRYI           RESTORE
     7788   01 02298    35C022E3              STW,12   T3UTRYC             RETRY COUNT
     7789   01 02299    32D026BE              LW,13    SEEKCUR           FETCH CURRENT SEEK ADR
     7790   01 0229A    6AF025FB              BAL,15   SEEKGEN           GENERATE FOUR-BYTE SEEK ADR
     7791   01 0229B    324022DA              LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     7792   01 0229C    35D8230C              STW,13   T3USADR,4         STORE SEEK ADR IN TABLE
     7793   01 0229D    6AF02347              BAL,15   T3UACTS           B: ACTIVATE IO AFTER SEEK
     7794   01 0229E    6AF0269E              BAL,15   SEEKINC           B: INCR. CURRENT SEEK ADR
     7795   01 0229F    331022DD              MTW,1    T3UDONE           SET DONE FLAG
     7796   01 022A0    6AF02B0E     T3UEXR1  BAL,15  :INTAE             ARM AND ENABLE IO INTERRUPT
     7797   01 022A1    32D022E4              LW,13    T3UTIMEI          RESTORE
     7798   01 022A2    35D022E5              STW,13   T3UTIMEC            TIMER
     7799   01 022A3    330022D9     T3UEXR2  MTW,0    T3UBAC            TEST BUFFER ACTIVE COUNT
     7800   01 022A4    693022B9              BNEZ     T3UEXR3           B: BUFFER LOADED
     7801   01 022A5    331022E5              MTW,1    T3UTIMEC          TEST TIMER
     7802   01 022A6    693022A3              BNEZ     T3UEXR2           B: TIMER NE ZERO
     7803   01 022A7    6AF02B14              BAL,15  :INTD              DISARM IO INTERRUPT
     7804   01 022A8    EAF0021C              BAL,15   *:PRINT           PRINT ERROR MESSAGE
     7805   01 022A9    000022E6              DATA     T3UEXWM1          'IO OPERATION NOT COMPL'
     7806   01 022AA    6AF01D6E              BAL,15   DEVADRM           PRINT DEV. ADR.
     7807   01 022AB    324022DA              LW,4     T3UIOPT           LOAD SEEK
     7808   01 022AC    32D0230C              LW,13    T3USADR             FROM ADR TABLE
     7809   01 022AD    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK ADR
     7810   01 022AE    6AF026CB              :HIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 022AF    FFFFC000 A
            01 022B0    10000000 A
            01 022B1    680022B2
     7811   01 022B2    6ED00000 A            AIO,13   0                 ISSUE AIO TO CLEAR IOP INTERRUPT
     7812   01 022B3    32C022E2              LW,12    T3UTRYI           RESTORE
     7813   01 022B4    35C022E3              STW,12   T3UTRYC             RETRY COUNT
     7814   01 022B5    324022DA              LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     7815   01 022B6    32D8230C              LW,13    T3USADR,4         FETCH SEEKADR FROM TABLE
     7816   01 022B7    6AF02347              BAL,15   T3UACTS           B: ACTIVATE IO AFTER SEEK
     7817   01 022B8    680022A0              B        T3UEXR1           TRY AGAIN
     7818   01 022B9    330022EC     T3UEXR3  MTW,0    T3UCMP            TEST COMPARE FLAG
     7819   01 022BA    683022C7              BEZ      T3UEXR4           B: NO VERIFICATION REQUIRED
     7820   01 022BB    324022DB              LW,4     T3UBPT            FETCH BUFFER POINTER
     7821   01 022BC    3308231C              MTW,0    T3UCFLG,4         TEST NO COMPARE FLAG
     7822   01 022BD    693022C7              BNEZ     T3UEXR4           B: DATA IN BUFFER CANNOT BE VERIFIED
     7823   01 022BE    32C822FC              LW,12    T3UBADR,4         FETCH BUFFER ADR
     7824   01 022BF    32D8230C              LW,13    T3USADR,4         FETCH SEEKADR
     7825   01 022C0    330022E1              MTW,0    T3UHDR            TEST HEADER FLAG
     7826   01 022C1    693022C5              BNEZ     %+4               B: HEADER DATA
     7827   01 022C2    6AF0245E              BAL,15   T3USPDR           SPREAD DATA IN BUFFER
     7828   01 022C3    6AF02476              BAL,15   T3UCOMPD          COMPARE DATA TO IOBUF1
     7829   01 022C4    680022C7              B        %+3
     7830   01 022C5    6AF02490              BAL,15   T3USPHR           SPREAD HEADERS
     7831   01 022C6    6AF024C2              BAL,15   T3UCOMPH          COMPARE HEADER TO IOBUF1
     7832   01 022C7    324022DB     T3UEXR4  LW,4     T3UBPT            FETCH BUFFER POINTER
     7833   01 022C8    22C00000 A            LI,12    0
     7834   01 022C9    35C8231C              STW,12   T3UCFLG,4         RESET NO COMPARE FLAG IN TABLE
     7835   01 022CA    33F022D9              MTW,-1   T3UBAC            DECR BUFFER ACTIVE COUNT
     7836   01 022CB    331022DB              MTW,1    T3UBPT            INCR. BUFFER POINTER
     7837   01 022CC    324022DB              LW,4     T3UBPT            FETCH BUFFER POINTER
     7838   01 022CD    314022DC              CW,4     T3UBNO            COMPARE TO BUFFER COUNT
     7839   01 022CE    691022D0              BL       %+2               B: POINTER OK
     7840   01 022CF    35C022DB              STW,12   T3UBPT            RESET POINTER TO ZERO
     7841   01 022D0    330022DD              MTW,0    T3UDONE           TEST TEST-DONE FLAG
     7842   01 022D1    68302294              BEZ      T3UEXR            B: NOT DONE
     7843   01 022D2    330022D9              MTW,0    T3UBAC            TEST BUFFER ACTIVE COUNT
     7844   01 022D3    693022B9              BNEZ     T3UEXR3           B: COMPARE NEXT BUFFER
     7845   01 022D4    330022D8              MTW,0    T3UIOAC           TEST IO ACTIVE FLAG
     7846   01 022D5    693022A1              BNEZ     T3UEXR1+1         B: IO IS ACTIVE
     7847   01 022D6    6AF02B14              BAL,15  :INTD              DISARM IO INTERRUPT
     7848   01 022D7    E80022DF              B        *T3UEXX           ALL DONE
     7849   01 022D8    00000000 A   T3UIOAC  DATA     0                 IO ACTIVE
     7850   01 022D9    00000000 A   T3UBAC   DATA     0                 BUFFERS ACTIVE
     7851   01 022DA    00000000 A   T3UIOPT  DATA     0                 IO BUFFER POINTER
     7852   01 022DB    00000000 A   T3UBPT   DATA     0                 COMP/PATTERN BUFFER POINTER
     7853   01 022DC    00000000 A   T3UBNO   DATA     0                 NUMBER OF IO BUFFERS USED
     7854   01 022DD    00000000 A   T3UDONE  DATA     0                 DONE FLAG
     7855   01 022DE    00000000 A   T3ULEN   DATA     0                 RECORD LENGTH
     7856   01 022DF    00000000 A   T3UEXX   DATA     0                 SAVE R15
     7857   01 022E0    00000000 A   T3UWRT   DATA     0                 WRITE FLAG
     7858   01 022E1    00000000 A   T3UHDR   DATA     0                 HEADER FLAG
     7859   01 022E2    00000000 A   T3UTRYI  DATA     0                 RETRY COUNTS: INITIAL
     7860   01 022E3    00000000 A   T3UTRYC  DATA     0                               CURRENT
     7861   01 022E4    FFF80000 A   T3UTIMEI DATA     X'FFF80000'       TIMER VALUES: INITIAL
     7862   01 022E5    00000000 A   T3UTIMEC DATA     0                               CURRENT
     7863   01 022E6    16C9D640 A   T3UEXWM1 TEXTC    'IO OPERATION NOT COMPL'
            01 022E7    D6D7C5D9 A
            01 022E8    C1E3C9D6 A
            01 022E9    D540D5D6 A
            01 022EA    E340C3D6 A
            01 022EB    D4D7D340 A
     7864   01 022EC    00000000 A   T3UCMP   DATA     0                 COMPARE FLAG
     7865   01 022ED    00000000 A   T3UDIN   DATA     0                 DISK INI FLAG
     7866   01 022EE    00000000 A   T3UDINH  DATA     0                 DISK INITIAL.FLAG - HDR REWRT
     7867                                     BOUND    8
     7868   01 022F0    00000000 A   T3UIOCD  DATA     0,0               CURRENT IOCD
            01 022F1    00000000 A
     7869   01 022F2    01000000 A   T3UIOCD1 GEN,8,24 X'01',0           WRITE IOCD
     7870   01 022F3    14000400 A            GEN,8,24 X'14',#RBYTC
     7871   01 022F4    02000000 A   T3UIOCD2 GEN,8,24 X'02',0           READ  IOCD
     7872   01 022F5    14000400 A            GEN,8,24 X'14',#RBYTC
     7873   01 022F6    05000000 A   T3UIOCD3 GEN,8,24 X'05',0           CHECKWRITE IOCD
     7874   01 022F7    14000400 A            GEN,8,24 X'14',#RBYTC
     7875   01 022F8    09000000 A   T3UIOCD4 GEN,8,24 X'09',0           HEADER WRITE IOCD
     7876   01 022F9    14000030 A            GEN,8,24 X'14',#HWBYTC
     7877   01 022FA    0A000000 A   T3UIOCD5 GEN,8,24 X'0A',0           HEADER READ IOCD
     7878   01 022FB    14000030 A            GEN,8,24 X'14',#HRBYTC
     7879   01 022FC                 T3UBADR  RES      16                BUFFER ADR TABLE
     7880   01 0230C                 T3USADR  RES      16                SEEK ADR TABLE
     7881   01 0231C                 T3UCFLG  RES      16                COMP FLAG TABLE
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  101
A    7883                            *        *** T3UACT - TEST IF SEEK IS REQUIRED BEFORE ACTIVATING IO
     7884                            *        *** T3UACTS- ISSUE SEEK BEFORE ACTIVATING IO
     7885                            *        *** T3UACT1- ACTIVATE IO

     7887                            * CALLING SEQUENCE: BAL,15   T3UACT-
     7888                            * EXIT SEQUENCE:    BAL,15
     7889                            * REGISTER CONTENTS:R4 = BUFFER TABLE INDEX, R13 - 4 BYTE SEEK ADR
     7890                            * REGISTERS ALTERED:

     7892   01 0232C    52C2000D A   T3UACT   LH,12    13,1              LOAD HEAD AND SECTOR ADR
     7893   01 0232D    68302347              BEZ      T3UACTS           B: SEEK REQUIRED
     7894   01 0232E    35F0234E     T3UACT1  STW,15   T3UACTX           SAVE EXIT ADR
     7895   01 0232F    32F822FC              LW,15    T3UBADR,4         FETCH BUFFER WORD ADR
     7896   01 02330    25F00002 A            SLS,15   +2                CONVERT TO BYTE ADR
     7897   01 02331    46F022F0              XW,15    T3UIOCD           STORE BUFFER BYTE ADR IN TABLE
     7898   01 02332    72F0000F A            LB,15    15
     7899   01 02333    75F022F0              STB,15   T3UIOCD           RESTORE ORDER CODE
     7900   01 02334    22001178              LI,0     DA(T3UIOCD)       LOAD DA ADR OF IOCD
     7901   01 02335    6AF026C1     T3UACT2  :SIO     X'F700C000',X'10000000',T3UACT3
            01 02336    F700C000 A
            01 02337    10000000 A
            01 02338    68002345
     7902   01 02339    6AF026CB              :HIO     X'F700C000',X'10000000',0 ALWAYS FALL THROUGH
            01 0233A    F700C000 A
            01 0233B    10000000 A
            01 0233C    6800233D
     7903   01 0233D    6ED00000 A            AIO,13   0                 ISSUE AIO TO CLEAR IOP INTERRUPT
     7904   01 0233E    6AF026C6              :TIO     X'F700C000',X'10000000',T3UACT2
            01 0233F    F700C000 A
            01 02340    10000000 A
            01 02341    68002335
     7905   01 02342    EAF0022B              BAL,15   *:WAIT            SIO CANNOT BE EXECUTED
     7906   01 02343    00002BD6              DATA     WAITMSG2
     7907   01 02344    68002335              B        T3UACT2           TRY AGAIN - TIO NO-GO
     7908   01 02345    331022D8     T3UACT3  MTW,1    T3UIOAC           SET IO ACTIVE FLAG
     7909   01 02346    E800234E              B        *T3UACTX          EXIT - DONE

     7911   01 02347    35F0234E     T3UACTS  STW,15   T3UACTX           SAVE R15
     7912   01 02348    35D026BF              STW,13   SEEKADR           STORE SEEKADR
     7913   01 02349    3540234F              STW,4    T3UACTX+1         SAVE BUFFER INDEX
     7914   01 0234A    6AF0260E              BAL,15   SEEKEX            B: ISSUE SEEK ORDER
     7915   01 0234B    3240234F              LW,4     T3UACTX+1         RESTORE INDEX
     7916   01 0234C    32D026BF              LW,13    SEEKADR           RESTORE SEEK ADR
     7917   01 0234D    6800232F              B        T3UACT1+1         CONTINUE NORMALLY

     7919   01 0234E    00000000 A   T3UACTX  DATA     0,0               SAVE R15
            01 0234F    00000000 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  102
A    7921                            *        *** T3UISER - INTERRUPT SERVICE ROUTINE (TST3,1/TST3,2)

     7923                            * CALLING SEQ: IO INTERRUPT
     7924                            * EXIT    SEQ: LPSD
     7925                            * REGISTERS ALTERED: NONE

     7927   01 02350    02200040 A   T3UISER  LCI      4                 SAVE
     7928   01 02351    2BC0242E              STM,12   T3UISERG+4
     7929   01 02352    02200040 A            LCI      4                   REGISTERS
     7930   01 02353    2B40242A              STM,4    T3UISERG
     7931   01 02354    6AF026D5              :AIO     X'8002',0,1       SKIP ON SUCCESS
            01 02355    00008002 A
            01 02356    00000000 A
            01 02357    68002359
     7932   01 02358    68002421              B        T3UISERX          B: NO INTERRUPT OR ADR RECOG
     7933   01 02359    35D02432              STW,13   T3UISAIO          SAVE AIO
     7934   01 0235A    72C427E5              LB,12    :STATUSCC,2         STATUS AND
     7935   01 0235B    35C02433              STW,12   T3UISAIO+1            CC
     7936   01 0235C    4BD02C22              AND,13   =X'82C00000'      TEST AIO STATUS
     7937   01 0235D    6930238E              BNEZ     T3UISERM          B: AIO ERROR
     7938   01 0235E    CEC003E2              TDV,12   *:DEVADDR         ISSUE TDV
     7939   01 0235F    69C02392              BCS,12   T3UISRM2          B: TDV CC ERROR
     7940   01 02360    31D02C1A              CW,13    =X'FBFF0000'      TEST TDV STATUS
     7941   01 02361    69402390              BCS,4    T3UISRM1          B: TDV STATUS ERROR
     7942   01 02362    CDC003E2              TIO,12   *:DEVADDR         ISSUE TIO
     7943   01 02363    69C02392              BCS,12   T3UISRM2          B: TIO CC ERROR
     7944   01 02364    4BD02C23              AND,13   =X'EFFF0000'      TEST TIO STATUS
     7945   01 02365    69302392              BNEZ     T3UISRM2          B: TIO STATUS ERROR
     7946   01 02366    331022DA     T3UISERA MTW,1    T3UIOPT           INCR. IO BUFFER POINTER
     7947   01 02367    324022DA              LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     7948   01 02368    314022DC              CW,4     T3UBNO            COMPARE TO BUFFER COUNT
     7949   01 02369    6910236C              BL       %+3               B: POINTER OK
     7950   01 0236A    22400000 A            LI,4     0                 RESET POINTER
     7951   01 0236B    354022DA              STW,4    T3UIOPT             TO ZERO
     7952   01 0236C    330022E0              MTW,0    T3UWRT            TEST WRITE FLAG
     7953   01 0236D    68302375              BEZ      T3UISERR          B: READ OPERATION
     7954   01 0236E    33F022D9     T3UISERW MTW,-1   T3UBAC            DECR. BUFFER ACTIVE COUNT
     7955   01 0236F    6830241F              BEZ      T3UISERY          B: NO BUFFERS AVAILABLE
     7956   01 02370    32C022E2              LW,12    T3UTRYI           RESTORE
     7957   01 02371    35C022E3              STW,12   T3UTRYC             RETRY COUNT
     7958   01 02372    32D8230C              LW,13    T3USADR,4         FETCH SEEK ADR FROM TABLE
     7959   01 02373    6AF0232C              BAL,15   T3UACT            B: ACTIVATE IO
     7960   01 02374    68002421              B        T3UISERX          B: EXIT
     7961   01 02375    331022D9     T3UISERR MTW,1    T3UBAC            INCR.BUFFER ACTIVE COUNT
     7962   01 02376    330022DD              MTW,0    T3UDONE           TEST TEST-DONE FLAG
     7963   01 02377    6930241F              BNEZ     T3UISERY          B:     DONE
     7964   01 02378    32C022D9              LW,12    T3UBAC            FETCH BUFFER ACTIVE COUNT
     7965   01 02379    31C022DC              CW,12    T3UBNO            COMPARE TO BUFFER COUNT
     7966   01 0237A    6830241F              BE       T3UISERY          B: ALL BUFFERS LOADED
     7967   01 0237B    32C022E2              LW,12    T3UTRYI           RESTORE
     7968   01 0237C    35C022E3              STW,12   T3UTRYC             RETRY COUNT
     7969   01 0237D    32F026BE              LW,15    SEEKCUR           FETCH SEEK ADR
     7970   01 0237E    22E00000 A            LI,14    0
     7971   01 0237F    36E02B99              DW,14    #SEEKREQ          DIVIDE ABSOLUTE SECTOR ADR
     7972   01 02380    3300000E A            MTW,0    14                TEST REMAINDER
     7973   01 02381    68302389              BEZ      T3UISERU          B: REMAINDER = 0, SEEK REQUIRED
     7974   01 02382    6AF0232E              BAL,15   T3UACT1           B: ACTIVATE IO, NO SEEK REQUIRED
     7975   01 02383    32D026BE              LW,13    SEEKCUR           FETCH CURRENT SEEK ADR
     7976   01 02384    6AF025FB              BAL,15   SEEKGEN           B: GENERATE 4 BYTE SEEKADR
     7977   01 02385    35D8230C              STW,13   T3USADR,4         STORE SECTOR ADR IN TABLE
     7978   01 02386    6AF0269E     T3UISERS BAL,15   SEEKINC           B: INCR. CURRENT SEEK ADR
     7979   01 02387    331022DD              MTW,1    T3UDONE           SET DONE FLAG
     7980   01 02388    68002421              B        T3UISERX          B: EXIT
     7981   01 02389    32D026BE     T3UISERU LW,13    SEEKCUR           FETCH CURRENT SEEK ADR
     7982   01 0238A    6AF025FB              BAL,15   SEEKGEN           B: GENERATE 4 BYTE SEEKADR
     7983   01 0238B    35D8230C              STW,13   T3USADR,4         STORE SECTOR ADR IN TABLE
     7984   01 0238C    6AF02347              BAL,15   T3UACTS           B: ACTIVATE IO AFTER SEEK
     7985   01 0238D    68002386              B        T3UISERS          B: INCR SEEK ADR
     7986   01 0238E    CEC003E2     T3UISERM TDV,12   *:DEVADDR         TDV
     7987   01 0238F    69C02392              BCS,12   T3UISRM2          B: TDV CC ERROR
     7988   01 02390    31D02C01     T3UISRM1 CW,13    =X'40000000'      TEST FLAW BYTE BIT
     7989   01 02391    694023AF              BCS,4    T3UISRM4          B: FLAW BYTE IN HEADER
     7990   01 02392    330022ED     T3UISRM2 MTW,0    T3UDIN            TEST DISK ININ. FLAG
     7991   01 02393    693023C3              BNEZ     T3UISRI           B: DISK INITIALIZATION
     7992   01 02394    72C022F0     T3UISRM3 LB,12    T3UIOCD           FETCH ORDER CODE
     7993   01 02395    21C00001 A            CI,12    1
     7994   01 02396    69302399              BNE      %+3               B: NOT A WRITE ORDER
     7995   01 02397    32D02C13              LW,13    =' WRT'           FETCH WRITE MSG
     7996   01 02398    680023A6              B        T3UISERN
     7997   01 02399    21C00002 A            CI,12    2
     7998   01 0239A    6930239D              BNE      %+3               B: NOT A READ ORDER
     7999   01 0239B    32D02C14              LW,13    ='READ'           FETCH WRITE MSG
     8000   01 0239C    680023A6              B        T3UISERN
     8001   01 0239D    21C00005 A            CI,12    5
     8002   01 0239E    693023A1              BNE      %+3               B: NOT A CHECKWRITE
     8003   01 0239F    32D02C24              LW,13    ='CWRT'
     8004   01 023A0    680023A6              B        T3UISERN
     8005   01 023A1    21C00009 A            CI,12    9
     8006   01 023A2    693023A5              BNE      %+3               B: NOT A HEADER WRITE
     8007   01 023A3    32D02C25              LW,13    ='HDRW'
     8008   01 023A4    680023A6              B        T3UISERN
     8009   01 023A5    32D02C26              LW,13    ='HDRR'
     8010   01 023A6    35D023AC     T3UISERN STW,13   T3UISM1+2         SAVE ORDER ID IN MSG
     8011   01 023A7    EAF0021C              BAL,15   *:PRINT
     8012   01 023A8    000023AA              DATA     T3UISM1
     8013   01 023A9    680023EF              B        T3UISERO
     8014   01 023AA    11E3E2E3 A   T3UISM1  TEXTC    'TST3 -      ERROR'
            01 023AB    F3406040 A
            01 023AC    40404040 A
            01 023AD    40C5D9D9 A
            01 023AE    D6D94040 A
     8015   01 023AF    4BD02C0D     T3UISRM4 AND,13   =X'BBFF0000'      TEST TDV STATUS
     8016   01 023B0    69302392              BNEZ     T3UISRM2          B: TDV STATUS ERROR
     8017   01 023B1    32D02432              LW,13    T3UISAIO
     8018   01 023B2    4BD02C27              AND,13   =X'FBE70000'       TEST AIO STATUS
     8019   01 023B3    69302392              BNEZ     T3UISRM2          B: AIO STATUS ERROR
     8020   01 023B4    CDC003E2              TIO,12   *:DEVADDR          TIO
     8021   01 023B5    69C02392              BCS,12   T3UISRM2          B: TIO CC ERROR
     8022   01 023B6    4BD02C28              AND,13   =X'E7FF0000'      TEST TIO STATUS
     8023   01 023B7    69302392              BNEZ     T3UISRM2          B: TIO STATUS ERROR
     8024   01 023B8    6AF02435              BAL,15   HEADRDT          B: ISSUE HEADER READ
     8025   01 023B9    680023BE              B        %+5                NORMAL RETURN
     8026   01 023BA    330022ED              MTW,0    T3UDIN             ERROR RETURN
     8027   01 023BB    693023C3              BNEZ     T3UISRI          B: DISK INITIALIZATION-TST3,3
     8028   01 023BC    3510244A              STW,1    T3UISFLW         SET HEADER FLAW FLAG
     8029   01 023BD    68002394              B        T3UISRM3         B: PRINT ERROR DATA
     8030   01 023BE    324022DA              LW,4     T3UIOPT           FETCH IOPOINTER
     8031   01 023BF    33002066              MTW,0    T3UFLAW           IS IT TO TEST FLAW TRACK
     8032   01 023C0    693023C2              BNEZ     %+2               B: YES
     8033   01 023C1    3518231C              STW,1    T3UCFLG,4         SET NO COMPARE FLAG IN TABLE
     8034   01 023C2    68002414              B        T3UISSK           B: TERMINATE IO ACTIVATION

     8036   01 023C3    324022DA     T3UISRI  LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     8037   01 023C4    3288230C              LW,8     T3USADR,4         FETCH SEEK ADR FROM TABLE
     8038   01 023C5    32902BF0              LW,9     =X'00FFFF00'      REMOVE SECTOR ADR
     8039   01 023C6    33002BA8              MTW,0    #HDRTYPE
     8040   01 023C7    683023C9              BEZ      %+2
     8041   01 023C8    32902C29              LW,9     =X'01FFFF00'
     8042   01 023C9    330022E1              MTW,0    T3UHDR            HEADER TEST?
     8043   01 023CA    693023D3              BNEZ     T3UISRI1          B: HEADER TEST
     8044   01 023CB    3A602219              LCW,6    T3ITABPH          INDEX
     8045   01 023CC    C580221B              CS,8     *T3IHDRA          TEST TABLE ENTRY
     8046   01 023CD    68302366              BE       T3UISERA          B: ADR IS IN TABLE, SKIP SECTOR
     8047   01 023CE    656023CC              BIR,6    %-2               LOOP
     8048   01 023CF    72C022F0              LB,12    T3UIOCD           FETCH ORDER CODE
     8049   01 023D0    21C00001 A            CI,12    1                 WRITE ORDER?
     8050   01 023D1    693023D5              BNE      T3UISRI2          B: CHECK WRT ORDER
     8051   01 023D2    68002394              B        T3UISRM3          B: WRITE ERROR
     8052   01 023D3    330022E0     T3UISRI1 MTW,0    T3UWRT            HEADER WRT?
     8053   01 023D4    69302394              BNEZ     T3UISRM3          B: HEADER WRITE ERROR
     8054   01 023D5    3250221A     T3UISRI2 LW,5     T3ITABPD          FETCH FLAW TABLE POINTER
     8055   01 023D6    683023DB              BEZ      %+5               B: FIRST ENTRY
     8056   01 023D7    33F00005 A            MTW,-1   5                 DECR TABLE POINTER
     8057   01 023D8    C58A2BAA              CS,8     *IOBF1,5          COMPARE TO PREVIOUS ENTRY
     8058   01 023D9    683023EC              BE       T3UISRI3          B: ADR MATCH
     8059   01 023DA    33100005 A            MTW,1    5                 RESTORE POINTER
     8060   01 023DB    B58A2BAA              STW,8    *IOBF1,5          STORE ADR IN TABLE
     8061   01 023DC    3310221A              MTW,1    T3ITABPD          ADVANCE POINTER
     8062   01 023DD    22A0003B A            LI,10    59
     8063   01 023DE    31A0221A              CW,10    T3ITABPD          TEST POINTER
     8064   01 023DF    68102414              BGE      T3UISSK           B: TERMINATE IO ACTIVATION
     8065   01 023E0    EAF0021C              BAL,15   *:PRINT
     8066   01 023E1    000023E3              DATA     T3UISRIM
     8067   01 023E2    E8000214              B        *:MONITOR         EXIT
     8068   01 023E3    21E3E2E3 A   T3UISRIM TEXTC    'TST3,3 - TABLE O-FLOW - 59 ERRORS'
            01 023E4    F36BF340 A
            01 023E5    6040E3C1 A
            01 023E6    C2D3C540 A
            01 023E7    D660C6D3 A
            01 023E8    D6E64060 A
            01 023E9    40F5F940 A
            01 023EA    C5D9D9D6 A
            01 023EB    D9E24040 A
     8069   01 023EC    32A02BE9     T3UISRI3 LW,10    =X'01000000'
     8070   01 023ED    E6AA2BAB              AWM,10   *IOBUF,5          INCR FAILURE COUNT
     8071   01 023EE    68002414              B        T3UISSK           B: TERMINATE IO ACTIVATION
     8072   01 023EF    324022DA     T3UISERO LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     8073   01 023F0    32D8230C              LW,13    T3USADR,4         FETCH SEEK ADR
     8074   01 023F1    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK MSG
     8075   01 023F2    32D02432              LW,13    T3UISAIO           FETCH AIO STATUS
     8076   01 023F3    35D027E5              STW,13   :STATUSCC
     8077   01 023F4    32C02433              LW,12    T3UISAIO+1         RESTORE
     8078   01 023F5    75C427E5              STB,12   :STATUSCC,2         STATUS AND COND CODE
     8079   01 023F6    6AF026D8              :AIO1    X'FFFFC000',X'04100000',0 ALWAYS FALL THROUGH
            01 023F7    FFFFC000 A
            01 023F8    04100000 A
            01 023F9    680023FA
     8080   01 023FA    3300244A              MTW,0    T3UISFLW         B: NO HEADER FLAW
     8081   01 023FB    683023FE              BEZ      %+3
     8082   01 023FC    EAF0021C              BAL,15   *:PRINT          PRINT HEADER FLAW MESSAGE
     8083   01 023FD    0000244B              DATA     T3HFMES
     8084   01 023FE    6AF026D0              :TDV     X'FFFFC000',X'04000000',0 ALWAYS FALL THROUGH
            01 023FF    FFFFC000 A
            01 02400    04000000 A
            01 02401    68002402
     8085   01 02402    6AF026C6              :TIO     X'EFFFC000',0,0   ALWAYS FALL THROUGH
            01 02403    EFFFC000 A
            01 02404    00000000 A
            01 02405    68002406
     8086   01 02406    22000000 A            LI,0     0
     8087   01 02407    3500244A              STW,0    T3UISFLW
     8088   01 02408    6AF02645              BAL,15   SENSEX           PRINT SENSE DATA

     8090   01 02409    324022DA     T3UISERT LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     8091   01 0240A    330022E3              MTW,0    T3UTRYC           TEST RETRY COUNT
     8092   01 0240B    6930240D              BNEZ     %+2               B: RETRY
     8093   01 0240C    68002414              B        T3UISSK           B: TERMINATE IO ACTIVATION
     8094   01 0240D    33F022E3              MTW,-1   T3UTRYC           DECR. RETRY COUNT
     8095   01 0240E    32D022E4              LW,13    T3UTIMEI          RESTORE
     8096   01 0240F    35D022E5              STW,13   T3UTIMEC            TIMER
     8097   01 02410    6AF025C6              BAL,15   RESTORE           ISSUE RESTORE ORDER
     8098   01 02411    32D8230C              LW,13    T3USADR,4         FETCH SEEKADR FROM TABLE
     8099   01 02412    6AF02347              BAL,15   T3UACTS           B: ACTIVATE IO AFTER SEEK
     8100   01 02413    68002421              B        T3UISERX          B: EXIT
     8101   01 02414    331022DA     T3UISSK  MTW,1    T3UIOPT           INCR IO BUFFER POINTER
     8102   01 02415    324022DA              LW,4     T3UIOPT           FETCH IO BUFFER POINTER
     8103   01 02416    314022DC              CW,4     T3UBNO            COMPARE TO IO CNT
     8104   01 02417    6910241A              BL       %+3               B: POINTER OK
     8105   01 02418    22400000 A            LI,4     0                 RESET POINTER TO ZERO
     8106   01 02419    354022DA              STW,4    T3UIOPT             TO ZERO
     8107   01 0241A    330022E0              MTW,0    T3UWRT            TEST WRITE FLAG
     8108   01 0241B    6830241E              BEZ      %+3               B: READ OPERATION
     8109   01 0241C    33F022D9              MTW,-1   T3UBAC            DECR BUFFER ACTIVE CNT
     8110   01 0241D    6800241F              B        %+2               B: WRITE OPERATION
     8111   01 0241E    331022D9              MTW,1    T3UBAC            INCR BUFFER ACTIVE CNT
     8112   01 0241F    22C00000 A   T3UISERY LI,12    0                 RESET IO
     8113   01 02420    35C022D8              STW,12   T3UIOAC             ACTIVE FLAG
     8114   01 02421    02200040 A   T3UISERX LCI      4
     8115   01 02422    2A40242A              LM,4     T3UISERG          RESTORE
     8116   01 02423    02200040 A            LCI      4
     8117   01 02424    2AC0242E              LM,12    T3UISERG+4          REGISTERS
     8118   01 02425    0E302426              LPSD,3   T3UISERZ          EXIT

     8120                                     BOUND    8
     8121   01 02426    00000000 A   T3UISERZ DATA     0,0,T3UISER,X'04000000'
            01 02427    00000000 A
            01 02428    00002350
            01 02429    04000000 A
     8122   01 0242A                 T3UISERG RES      8                 REG TEMP STORAGE
     8123   01 02432    00000000 A   T3UISAIO DATA     0,0               AIO STATUS AND CC
            01 02433    00000000 A
     8124   01 02434    0F002426     T3UISERP XPSD,0   T3UISERZ

     8126   01 02435    15C02444     HEADRDT  STD,12   HEADRTEM         SAVE REGISTERS 12 AND 13
     8127   01 02436    22001223              LI,0     DA(HEADRCDW)     ISSUE HEADER READ ORDER
     8128   01 02437    CC0003E2              SIO,0    *:DEVADDR
     8129   01 02438    69C02441              BCS,12   HEADRDT2         B: SIO NOT ACCEPTED-ERROR
     8130   01 02439    22080000 A            LI,0     X'80000'         SET TIMEOUT LIMIT
     8131   01 0243A    CD0003E2              TIO,0    *:DEVADDR        CHECK FOR DEV. READY
     8132   01 0243B    68C0243E              BCR,12   HEADRDT1           READY - CONTINUE
     8133   01 0243C    6500243A              BIR,0    %-2                NOT READY - NOT TIMEOUT
     8134   01 0243D    68002441              B        HEADRDT2           DEVICE TIMEOUT - ERROR
     8135   01 0243E    CEC003E2     HEADRDT1 TDV,12   *:DEVADDR        CHECK FOR HEADER ERROR
     8136   01 0243F    31D02C2A              CW,13    =X'03000000'
     8137   01 02440    68402442              BCR,4    HEADRDT3           NO ERROR
     8138   01 02441    20F00001 A   HEADRDT2 AI,15    1                  ERROR
     8139   01 02442    12C02444     HEADRDT3 LD,12    HEADRTEM         RESTORE REGISTERS
     8140   01 02443    E800000F A            B        *15              EXIT

     8142                                     BOUND    8
     8143   01 02444                 HEADRTEM RES      2                TEMP. STORAGE
     8144   01 02446    0A009120     HEADRCDW GEN,8,24 X'0A',BA(HEADRBUF) CDW FOR HEADER READ AFTER
     8145   01 02447    00000008 A            GEN,8,24 0,8                 FLAW MARK DETECTED
     8146   01 02448                 HEADRBUF RES      2                 BUFFER
     8147   01 0244A                 T3UISFLW RES      1                HEADER FLAW FLAG
     8148                            T3HFMES  TEXTC    'HEADER FLAW DETECTED, FOLLOWING STATUS IS ',;
     8149   01 0244B    3DC8C5C1 A                     'AFTER A HEADER READ'
            01 0244C    C4C5D940 A
            01 0244D    C6D3C1E6 A
            01 0244E    40C4C5E3 A
            01 0244F    C5C3E3C5 A
            01 02450    C46B40C6 A
            01 02451    D6D3D3D6 A
            01 02452    E6C9D5C7 A
            01 02453    40E2E3C1 A
            01 02454    E3E4E240 A
            01 02455    C9E240C1 A
            01 02456    C6E3C5D9 A
            01 02457    40C140C8 A
            01 02458    C5C1C4C5 A
            01 02459    D940D9C5 A
            01 0245A    C1C44040 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  103
A    8151                            *        *** T3USPDW/T3USPDR - SPREAD DATA ROUTINE ***

     8153                            * THIS ROUTINE SPREADS A DATA PATTERN SPECIFIED WITH THE DATA DIRECTIVE
     8154                            * STARTING AT BUFFER ADDRESS SPECIFIED IN R12 IF WRITE DATA.

     8156                            * CALLING SEQUENCE: BAL,15   T3USPDW (WRITE) OR T3USPDR (READ)

     8158                            * REG. REQUIRED: R12 = BUFFER ADDR. R13 = SEEKADDR

     8160   01 0245B    35F02475     T3USPDW  STW,15   T3USPDX           SAVE R15
     8161   01 0245C    35C02B02              STW,12   :PATBFR           SAVE BUFFER ADDR
     8162   01 0245D    68002465              B        T3USPD
     8163   01 0245E    35F02475     T3USPDR  STW,15   T3USPDX           SAVE R15
     8164   01 0245F    32F02BAA              LW,15    IOBF1             FETCH ADDR OF READ BUFFER
     8165   01 02460    35F02B02              STW,15   :PATBFR           SAVE BUFFER ADDR
     8166   01 02461    31202AFE              CW,2     :PATID            COMPARE PATTERN TYPE TO 2
     8167   01 02462    69302465              BNE      T3USPD            B: NOT RANDOM
     8168   01 02463    B2F0000C A            LW,15    *12               FETCH RANDOM NUMBER SEED
     8169   01 02464    35F02B92              STW,15   :SEED             SAVE SEED
     8170   01 02465    32F02B94     T3USPD   LW,15    #RLEN              FETCH RECORD WORD COUNT
     8171   01 02466    35F02B01              STW,15   :PATWC            SAVE PATTERN WORDCOUNT
     8172   01 02467    31202AFE              CW,2     :PATID            COMPARE PATTERN TYPE TO 2
     8173   01 02468    6930246C              BNE      T3USPD1           B: NOT RANDOM
     8174   01 02469    32F02B92              LW,15    :SEED             FETCH RANDOM
     8175   01 0246A    35F02AFF              STW,15   :PATID+1            NUMBER SEED
     8176   01 0246B    68002470              B        T3USPD2
     8177   01 0246C    31302AFE     T3USPD1  CW,3     :PATID            COMPARE PATTERN TYPE TO 3
     8178   01 0246D    69302470              BNE      T3USPD2           B: NOT SEEK ADR PATTERN
     8179   01 0246E    22F0000D A            LI,15    13
     8180   01 0246F    35F02AFF              STW,15   :PATID+1            CURRENT SEEK ADR
     8181   01 02470    6AF02AB9     T3USPD2  BAL,15   :PATTERN          B: SPREAD PATTERN
     8182   01 02471    31202AFE              CW,2     :PATID            COMPARE PATTERN TYPE TO 2
     8183   01 02472    E9302475              BNE      *T3USPDX          B: NOT RANDOM - EXIT
     8184   01 02473    B5D42B02              STW,13   *:PATBFR,2        STORE SEEK ADR IN 3RD PATTERN WORD
     8185   01 02474    E8002475              B        *T3USPDX          EXIT

     8187   01 02475    00000000 A   T3USPDX  DATA     0                 EXIT ADDR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  104
A    8189                            *        *** T3UCOMD ***

     8191                            * COMPARE READ DATA. ALL PRINTOUTS ARE INHIBITED DURING THE FIRST PASS.
     8192                            * IF AN ERROR IS DETECTED THE FAILING SEEKADR WILL BE PRINTED AND
     8193                            * THE COMPARE OPERATION WILL BE REPEATED WITH ERROR PRINTOUT ENABLED.
     8194                            * IO INTERRUPTS ARE DISARMED FOR THE SECOND PASS.

     8196                            * REG.REQUIRED: R12=OBSERVED BUFFER ADDR, R13=4 BYTE SEEK ADDR

     8198   01 02476    35F02487     T3UCOMPD STW,15   T3UCOMDX          SAVE RETURN ADR
     8199   01 02477    32F02BAA              LW,15    IOBF1             EXPECTED
     8200   01 02478    35F028A1              STW,15   :COMBFRA            BUFFER ADR
     8201   01 02479    35C028A2              STW,12   :COMBFRB          OBSERVED BUFFER ADR
     8202   01 0247A    32F02B94              LW,15    #RLEN              FETCH RECORD WORD COUNT
     8203   01 0247B    35F028A0              STW,15   :COMWCNT          STORE BUFFER WORD COUNT
     8204   01 0247C    351028A3              STW,1    :COMFLAG          SET COMP INHIBIT FLAG
     8205   01 0247D    6AF02845              BAL,15   :COMPARE          B: COMPARE BUFFERS
     8206   01 0247E    E8002487              B        *T3UCOMDX         EXIT - NO ERROR
     8207   01 0247F    6AF02B14              BAL,15   :INTD             B: DISARM IO INT ERRUPT
     8208   01 02480    33F028A3              MTW,-1   :COMFLAG          RESET COMPARE FLAG
     8209   01 02481    6AF026A4              BAL,15   SEEKMSG           B: PRINT CURRENT SEEK ADR
     8210   01 02482    32C028A2              LW,12    :COMBFRB          RESTORE R12
     8211   01 02483    6AF02845              BAL,15   :COMPARE          B: COMPARE BUFFERS
     8212   01 02484    68002485              B        %+1
     8213   01 02485    6AF02B0E              BAL,15   :INTAE            B: ARM/ENABLE IO INTERRUPT
     8214   01 02486    E8002487              B        *T3UCOMDX         EXIT

     8216   01 02487    00000000 A   T3UCOMDX DATA     0                 SAVE R15

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  105
A    8219                            *        *** T3USPHW/T3USPHR - SPREAD HEADER ROUTINE ***

     8221                            * THIS ROUTINE SPREADS 6 HEADERS (T3USPHW) OR 1 HEADER (T3USPHR)
     8222                            * STARTING AT BUFFER ADDR SPECIFIED IN R12 IF WRITE HEADER.

     8224                            * CALLING SEQUENCE: BAL,15   T3USPHW (WRITE) OR  T3USPHR (READ)

     8226                            * REG. REQUIRED:  R12 = BUFFER ADDR, R13 = SEEK ADDR
     8227                            * RESULTS:        R8 AND R9 = LAST HEADER GENERATED

     8229   01 02488    156024B4     T3USPHW  STD,6    T3USPHS           SAVE R6 AND R7
     8230   01 02489    3270000C A            LW,7     12                FETCH BUFFER ADR
     8231   01 0248A    32602B9F              LW,6     #HWINDEX          FETCH HEADER WRITE INDEX
     8232   01 0248B    7306000D A            MTB,0    13,3              TEST SECTOR ADR
     8233   01 0248C    68302493              BEZ      T3USPH
     8234   01 0248D    EAF0022B              BAL,15   *:WAIT
     8235   01 0248E    00002BD2              DATA     WAITMSG1
     8236   01 0248F    6800248D              B        %-2               PROGRAM ERROR
     8237   01 02490    156024B4     T3USPHR  STD,6    T3USPHS           SAVE R6 AND R7
     8238   01 02491    227024B6              LI,7     T3UHBUF           ADR OF HEADER BUFFER
     8239   01 02492    32602B9F              LW,6     #HWINDEX          FETCH HEADER WRITE INDEX
     8240   01 02493    3280000D A   T3USPH   LW,8     13
     8241   01 02494    22900000 A            LI,9     0
     8242   01 02495    25800178 A            SLD,8    -8
     8243   01 02496    33002066              MTW,0    T3UFLAW           TEST FLAW FLAG
     8244   01 02497    6830249A              BEZ      T3USPH1           B: FLAW FLAG NOT SET
     8245   01 02498    49802BF1              OR,8    =X'FF000000'
     8246   01 02499    49902066              OR,9     T3UFLAW
     8247   01 0249A    B5800007 A   T3USPH1  STW,8    *7                STORE HEADER
     8248   01 0249B    B5920007 A            STW,9    *7,1                IN BUFFER
     8249   01 0249C    33200007 A            MTW,2    7                 INCR. BUFFER ADR
     8250   01 0249D    656024B1              BIR,6    T3USPH3           LOOP
     8251   01 0249E    330022EE              MTW,0    T3UDINH
     8252   01 0249F    683024AF              BEZ      T3USPH2           B: NOT A DISK INITIALIZATION
     8253   01 024A0    22800000 A            LI,8     0
     8254   01 024A1    33002229              MTW,0    T3IFLAW           TEST IF FLAW BYTE REQUIRED
     8255   01 024A2    683024A4              BEZ      %+2               B: NO
     8256   01 024A3    32802BF1              LW,8     =X'FF000000'      FLAW BYTE
     8257   01 024A4    3290222A              LW,9     T3IALT            FETCH ALT ADR
     8258   01 024A5    33000008 A            MTW,0    8
     8259   01 024A6    693024A9              BNEZ     %+3
     8260   01 024A7    33000009 A            MTW,0    9
     8261   01 024A8    683024AF              BEZ      T3USPH2           B: NO FLAW BYTE OR ALT. ADR
     8262   01 024A9    207FFFF4 A            AI,7     -12               RESTORE BUFFER STARTING ADDR
     8263   01 024AA    32602B9F              LW,6     #HWINDEX          FETCH HEADER WRITE INDEX
     8264   01 024AB    E6800007 A            AWM,8    *7                ADD FLAW BYTE
     8265   01 024AC    E6920007 A            AWM,9    *7,1                AND ALT ADR
     8266   01 024AD    33200007 A            MTW,2    7                     TO HEADERS
     8267   01 024AE    656024AB              BIR,6    %-3               LOOP
     8268   01 024AF    126024B4     T3USPH2  LD,6     T3USPHS           RESTORE R6 AND R7
     8269   01 024B0    E800000F A            B        *15               EXIT
     8270   01 024B1    73100009 A   T3USPH3  MTB,1    9
     8271   01 024B2    6800249A              B        T3USPH1           STORE HEADER

     8273                                     BOUND    8
     8274   01 024B4    00000000 A   T3USPHS  DATA     0,0               SAVE R6 AND R7
            01 024B5    00000000 A
     8275   01 024B6                 T3UHBUF  RES      12                HEADER BUFFER
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  106
A    8277                            *        *** T3UCOMH ***

     8279                            * COMPARE HEADER DATA. IO INTERRUPTS WILL BE DISABLED DURING PRINTOUT.

     8281                            * REG. REQUIRED: R12 = OBSERVED BUFFER ADR R13 = 4 BYTE SEEK ADR

     8283   01 024C2    35F02533     T3UCOMPH STW,15   T3UCOMHX          SAVE R15
     8284   01 024C3    1540252E              STD,4    T3UCOMHS          SAVE
     8285   01 024C4    15602530              STD,6    T3UCOMHS+2          R4 - R7
     8286   01 024C5    35C02532              STW,12   T3UCOMHS+4          R12
     8287   01 024C6    224024B6              LI,4     T3UHBUF           HEADER BUFFER ADR
     8288   01 024C7    35402535              STW,4    T3UCOMHE
     8289   01 024C8    35C02536              STW,12   T3UCOMHR          OBSERVED HEADER BUFFER
     8290   01 024C9    22000000 A            LI,0     0                 RESET HEADING
     8291   01 024CA    35002537              STW,0    T3UCOMHF            FLAG
     8292   01 024CB    224FFFFA A            LI,4     -6                INDEX
     8293   01 024CC    B2A02536     T3UCOMHA LW,10    *T3UCOMHR         FETCH
     8294   01 024CD    B2B22536              LW,11    *T3UCOMHR,1         OSB HEADER
     8295   01 024CE    92802535              LD,8     *T3UCOMHE         FETCH EXP HEADER
     8296   01 024CF    1180000A A            CD,8     10                COMPARE HEADERS
     8297   01 024D0    683024D9              BE       T3UCOMHB          HEADERS OK
     8298   01 024D1    49902BF0              OR,9     =X'00FFFF00'      ALL ONES IN BYTES 5 & 6
     8299   01 024D2    1180000A A            CD,8     10                COMPARE HEADERS AGAIN
     8300   01 024D3    683024D9              BE       T3UCOMHB          HEADER OK
     8301   01 024D4    49902BEF              OR,9     =X'000000FF'      ALL ONES IN BYTES 5 - 7
     8302   01 024D5    1180000A A            CD,8     10                COMPARE HEADERS AGAIN
     8303   01 024D6    683024D9              BE       T3UCOMHB          HEADERS OK
     8304   01 024D7    4B902BF1              AND,9    =X'FF000000'      SET BYTES 5-7 = 0
     8305   01 024D8    680024E6              B        T3UCOMHC          B: COMPARE ERROR
     8306   01 024D9    66202536     T3UCOMHB AWM,2    T3UCOMHR          INCR
     8307   01 024DA    66202535              AWM,2    T3UCOMHE            BUFFER ADR
     8308   01 024DB    654024CC              BIR,4    T3UCOMHA          LOOP: NEXT HEADER
     8309   01 024DC    32802536              LW,8     T3UCOMHR          FETCH OBSERVED BUFFER ADR
     8310   01 024DD    226FFFF4 A            LI,6     -12               INDEX
     8311   01 024DE    22900000 A            LI,9     0
     8312   01 024DF    B59C0008 A            STW,9    *8,6              CLEAR BUFFER
     8313   01 024E0    656024DF              BIR,6    %-1               LOOP
     8314   01 024E1    1240252E              LD,4     T3UCOMHS          RESTORE
     8315   01 024E2    12602530              LD,6     T3UCOMHS+2
     8316   01 024E3    12C02532              LD,12    T3UCOMHS+4          REGISTERS
     8317   01 024E4    6AF02B0E              BAL,15   :INTAE            ARM AND ENABLE INTERRUPT
     8318   01 024E5    E8002533              B        *T3UCOMHX         EXIT
     8319   01 024E6    35402538     T3UCOMHC STW,4    T3UCOMHI    SAVE INDEX
     8320   01 024E7    6AF02B14              BAL,15   :INTD             DISARM IO INTERRUPT
     8321   01 024E8    22602523              LI,6     T3UCOMHO+9        MSG ADR
     8322   01 024E9    22700008 A            LI,7     8                 REG ADR
     8323   01 024EA    6AF024FC              BAL,15   T3UCOMH1
     8324   01 024EB    2260252D              LI,6     T3UCOMHP+9        MSG ADR
     8325   01 024EC    2270000A A            LI,7     10                REG ADR
     8326   01 024ED    6AF024FC              BAL,15   T3UCOMH1
     8327   01 024EE    33002537              MTW,0    T3UCOMHF          TEST HEADING FLAG
     8328   01 024EF    693024F6              BNEZ     T3UCOMHD          B: NO HEADING REQUIRED
     8329   01 024F0    33102537              MTW,1    T3UCOMHF          SET FLAG
     8330   01 024F1    6AF026A4              BAL,15   SEEKMSG           PRINT SEEK ADR
     8331   01 024F2    EAF0021C              BAL,15   *:PRINT           LINE 1
     8332   01 024F3    0000250A              DATA     T3UCOMHM
     8333   01 024F4    EAF0021C              BAL,15   *:PRINT           LINE 2
     8334   01 024F5    00002510              DATA     T3UCOMHN
     8335   01 024F6    EAF0021C     T3UCOMHD BAL,15   *:PRINT           LINE 3
     8336   01 024F7    0000251A              DATA     T3UCOMHO
     8337   01 024F8    EAF0021C              BAL,15   *:PRINT           LINE 4
     8338   01 024F9    00002524              DATA     T3UCOMHP
     8339   01 024FA    32402538              LW,4     T3UCOMHI          RESTORE INDEX
     8340   01 024FB    680024D9              B        T3UCOMHB          B: NEXT HEADER
     8341   01 024FC    35F02534     T3UCOMH1 STW,15   T3UCOMHX+1        SAVE EXIT ADR
     8342   01 024FD    22500001 A            LI,5     1                 INDEX
     8343   01 024FE    224FFFFE A            LI,4     -2                INDEX
     8344   01 024FF    B2CA0007 A            LW,12    *7,5              FETCH HEADER WORD
     8345   01 02500    EAF00218              BAL,15   *:HEXC            CONVERT TO HEX
     8346   01 02501    D5F20006 A            STH,15   *6,1              STORE IN MSG
     8347   01 02502    33F00006 A            MTW,-1   6                 DECR. ADR
     8348   01 02503    25F00270 A            SCS,15   -16               ALIGN HALFWORD
     8349   01 02504    D5F20006 A            STH,15   *6,1              STORE IN MSG
     8350   01 02505    33F00006 A            MTW,-1   6                 DECR. ADR
     8351   01 02506    65402500              BIR,4    %-6               LOOP
     8352   01 02507    33F00005 A            MTW,-1   5                 DECR.INDEX
     8353   01 02508    683024FE              BEZ      T3UCOMH1+2        B: 2ND LOOP
     8354   01 02509    E8002534              B        *T3UCOMHX+1       EXIT

     8356   01 0250A    14C8C5C1 A   T3UCOMHM TEXTC    'HEADER COMPARE ERROR'
            01 0250B    C4C5D940 A
            01 0250C    C3D6D4D7 A
            01 0250D    C1D9C540 A
            01 0250E    C5D9D9D6 A
            01 0250F    D9404040 A
     8357   01 02510    27C2E8E3 A   T3UCOMHN TEXTC    'BYTE      0   1   2   3   4   5   6   7'
            01 02511    C5404040 A
            01 02512    404040F0 A
            01 02513    404040F1 A
            01 02514    404040F2 A
            01 02515    404040F3 A
            01 02516    404040F4 A
            01 02517    404040F5 A
            01 02518    404040F6 A
            01 02519    404040F7 A
     8358   01 0251A    27C5E7D7 A   T3UCOMHO TEXTC    'EXPECTED XX  XX  XX  XX  XX  XX  XX  XX'
            01 0251B    C5C3E3C5 A
            01 0251C    C440E7E7 A
            01 0251D    4040E7E7 A
            01 0251E    4040E7E7 A
            01 0251F    4040E7E7 A
            01 02520    4040E7E7 A
            01 02521    4040E7E7 A
            01 02522    4040E7E7 A
            01 02523    4040E7E7 A
     8359   01 02524    27D6C2E2 A   T3UCOMHP TEXTC    'OBSERVED XX  XX  XX  XX  XX  XX  XX  XX'
            01 02525    C5D9E5C5 A
            01 02526    C440E7E7 A
            01 02527    4040E7E7 A
            01 02528    4040E7E7 A
            01 02529    4040E7E7 A
            01 0252A    4040E7E7 A
            01 0252B    4040E7E7 A
            01 0252C    4040E7E7 A
            01 0252D    4040E7E7 A
     8360                                     BOUND    8
     8361   01 0252E                 T3UCOMHS RES      5
     8362   01 02533    00000000 A   T3UCOMHX DATA     0,0
            01 02534    00000000 A
     8363   01 02535    00000000 A   T3UCOMHE DATA     0                 EXP BUFFER
     8364   01 02536    00000000 A   T3UCOMHR DATA     0                 OBS BUFFER
     8365   01 02537    00000000 A   T3UCOMHF DATA     0                 HEADING FLAG
     8366   01 02538    00000000 A   T3UCOMHI DATA     0                 INDEX

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  107
A    8369                            *        *** DATA - DIRECTIVE ***                                      *
     8370                            *                                                                      *
     8371                            * THIS DIRECTIVE ALLOWS THE USER TO DEFINE THE DATA PATTERN TO BE      *
     8372                            * USED WITH THE UTILITY TEST (TST3,1 AND TST3,2 ONLY ).                *
     8373                            *                                                                      *
     8374                            * PARAMETER P1 DETERMINES THE PATTERN TYPE:                            *
     8375                            *                                                                      *
     8376                            *    P1 = 0 - FIXED DATA PATTERN                                       *
     8377                            *             P2 - 8 HEXADECIMAL DIGITS FIXED DATA PATTERN             *
     8378                            *                                                                      *
     8379                            *    P1 = 1 - INCREMENT DATA PATTERN                                   *
     8380                            *             P2 - 8 HEXADECIMAL DIGITS STARTING PATTERN               *
     8381                            *             P3 - 8 HEXADECIMAL DIGITS INCREMENT VALUE                *
     8382                            *                                                                      *
     8383                            *    P1 = 2 - RANDOM DATA PATTERN                                      *
     8384                            *             P2 - 8 HEXADECIMAL DIGITS RANDOM NUMBER SEED             *
     8385                            *             (THIS SEED WILL ONLY BE USED FOR WRITING; THE SEED FOR   *
     8386                            *              READ DATA IS OBTAINED FROM THE 1ST WORD OF THE BUFFER)  *
     8387                            *                                                                      *
     8388                            *    P1 = 3 - SPREAD 4 BYTE SEEK ADDRESS AS DATA.                      *
     8389                            *                                                                      *
     8390                            * NO OTHER VALUES OF P1 ARE ALLOWED. PARAMETERS 2 AND 3 ARE REQUIRED   *
     8391                            * IF INDICATED ABOVE. (RANGE: 0 <= P2 OR P3 <= FFFFFFFF)               *
     8392                            *                                                                      *
     8393   01 02539    351003E5     :DATA    STW,1    PARNOERR          SET INITIAL PAR NO
     8394   01 0253A    72820211              LB,8     :PSW,1            FETCH PAR COUNT
     8395   01 0253B    31300201              CW,3     :P1               COMP 3 TO P1
     8396   01 0253C    68102542              BGE      :DATA2            B: 3 = > P1
     8397   01 0253D    328003E5     :DATA1   LW,8     PARNOERR
     8398   01 0253E    3580030A              STW,8    :PIT10            SAVE PAR NO
     8399   01 0253F    EAF00229              BAL,15   *:PREPORT         PRINT PARAMETER ERROR
     8400   01 02540    0000032A              DATA     :DIC+10
     8401   01 02541    E8000214              B        *:MONITOR         EXIT TO MONITOR
     8402   01 02542    21800001 A   :DATA2   CI,8     1
     8403   01 02543    6910253D              BL       :DATA1            B: PARCNT < 1
     8404   01 02544    331003E5              MTW,1    PARNOERR          INCR. PAR NO
     8405   01 02545    31300201              CW,3     :P1               COMPARE 3 TO P1
     8406   01 02546    6930254A              BNE      %+4               B: 3 NE P1
     8407   01 02547    21800002 A            CI,8     2
     8408   01 02548    6810253D              BGE      :DATA1            B: PARCNT => 2
     8409   01 02549    68002555              B        :DATA3            PARAMETERS OK
     8410   01 0254A    21800002 A            CI,8     2
     8411   01 0254B    6910253D              BL       :DATA1            B: PARCNT < 2
     8412   01 0254C    331003E5              MTW,1    PARNOERR          INCR. PAR NO.
     8413   01 0254D    31100201              CW,1     :P1               COMPARE 1 TO P1
     8414   01 0254E    68302552              BE       %+4               B: 1 = P1
     8415   01 0254F    21800003 A            CI,8     3
     8416   01 02550    6810253D              BGE      :DATA1            B: PARCNT NE 3
     8417   01 02551    68002555              B        :DATA3
     8418   01 02552    331003E5              MTW,1    PARNOERR          INCR. PAR NO
     8419   01 02553    21800003 A            CI,8     3
     8420   01 02554    6930253D              BNE      :DATA1            B: 3 NE CNT
     8421   01 02555    02200040 A   :DATA3   LCI      4
     8422   01 02556    2AA00201              LM,10    :P1               FETCH
     8423   01 02557    02200040 A            LCI      4                   AND STORE
     8424   01 02558    2BA0255A              STM,10   :DATAP1               PARAMETERS
     8425   01 02559    E8000214              B        *:MONITOR         EXIT TO MONITOR

     8427   01 0255A    00000000 A   :DATAP1  DATA     0,0,0,0
            01 0255B    00000000 A
            01 0255C    00000000 A
            01 0255D    00000000 A

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  108
A    8430                            *                                                                      *
     8431                            *        *** SEEK - DIRECTIVE ***                                      *
     8432                            *                                                                      *
     8433                            * THE SYST DIRECTIVE IS USED TO MAKE A NUMBER OF CYLINDERS (UP TO 203) *
     8434                            * AVAILABLE TO THE TEST PROGRAM FOR READING AND WRITING. THIS RECORDING*
     8435                            * AREA MAY BE FURTHER REDUCED BY THE SEEK DIRECTIVE. WHILE A DIFFERENT *
     8436                            * AREA CAN BE SPECIFIED FOR EACH DEVICE ENTERED WITH THE SYST          *
     8437                            * DIRECTIVE, THE SEEK DIRECTIVE APPLIES TO ALL DEVICES.                *
     8438                            * WHEN USING THE SEEK DIRECTIVE THE FOLLOWING RESTRICTIONS MUST BE     *
     8439                            * OBSERVED:                                                            *
     8440                            *                                                                      *
     8441                            * * 1. THE STARTING ADDRESS ENTERED WITH THE SEEK DIRECTIVE (PARAMETERS*
     8442                            * *    1,2 AND 3) MUST BE GREATER OR EQUAL TO THE STARTING CYLINDER    *
     8443                            * *    ADDRESSES FOR ALL DEVICES ENTERED WITH THE SYST DIRECTIVE.      *
     8444                            * *                                                                    *
     8445                            * * 2. THE ENDING ADDRESS COMPUTED FROM THE STARTING ADDRESS PLUS      *
     8446                            * *    THE NUMBER OF SECTORS (PARAMETER 4) ENTERED WITH THE SEEK       *
     8447                            * *    DIRECTIVE MUST BE LESS OR EQUAL TO THE ENDING CYLINDER ADDRESSES*
     8448                            * *    FOR ALL DEVICES ENTERED WITH THE SYST DIRECTIVE.                *
     8449                            *                                                                      *
     8450                            * THE SEEK DIRECTIVE WILL LIMIT THE RECORDING AREA DURING THE RANDOM   *
     8451                            * EXERCISER (TST2) OR THE UTILITY TESTS (TST3,1 AND TST3,2 ONLY).      *
     8452                            *                                                                      *
     8453                            * PARAMETERS:                                                          *
     8454                            *    P1 = STARTING CYLINDER ADDRESS  (RANGE: 0 <= P1 <= 202)           *
     8455                            *                                                                      *
     8456                            *    P2 = STARTING HEAD ADDRESS      (RANGE: 0 <= P2 <= 19 )           *
     8457                            *                                                                      *
     8458                            *    P2 = STARTING SECTOR ADDRESS    (RANGE: 0 <= P3 <= 5  )           *
     8459                            *                                                                      *
     8460                            *    P4 = NUMBER OF SECTORS TO BE TESTED. (THE STARTING ADDRESS        *
     8461                            *         (P1,P2,P3) PLUS THE NUMBER OF SECTORS (P4) MUST PRODUCE A    *
     8462                            *         ENDING ADDRESS WHICH IS LESS OR EQUAL TO THE LAST SECTOR     *
     8463                            *         ADDRESS ON A DISC.                                           *
     8464                            *                                                                      *
     8465   01 0255E    72C20211     SEEK     LB,12    :PSW,1            FETCH NUMBER OF PARAMETERS ENTERED
     8466   01 0255F    21C00004 A            CI,12    4                 CHECK PARCNT=4
     8467   01 02560    6930258A              BNE      SEEK2             BR. IF NOT EQ. 4
     8468   01 02561    22400001 A            LI,4     1                 SET REG. 4=1
     8469   01 02562    32602BA3              LW,6     #FILLTRK          FIRST ILLEGAL TRACK ADDRESS
     8470   01 02563    31600201              CW,6     :P1               COMPARE 202 AND :P1
     8471   01 02564    6910258C              BL       SEEK3             BR. IF P1 > 202
     8472   01 02565    33100004 A            MTW,1    4                 INC. REG.4 BY 1
     8473   01 02566    32602BA1              LW,6     #FILLHD           FIRST ILLEGAL HEAD ADDRESS
     8474   01 02567    31600202              CW,6     :P2               COMPARE 19 AND P2
     8475   01 02568    6910258C              BL       SEEK3             BR. IF P2 > 19
     8476   01 02569    33100004 A            MTW,1    4                 INC REG 4 BY 1
     8477   01 0256A    32602BA2              LW,6     #FILLSEC          FIRST ILLEGAL SECTOR ADDRESS
     8478   01 0256B    31600203              CW,6     :P3               COMPARE 5 AND :P3
     8479   01 0256C    6910258C              BL       SEEK3             BR. IF P3 > 5
     8480   01 0256D    33100004 A            MTW,1    4                 INC REG 4 BY 1
     8481   01 0256E    32902B9C              LW,9     #ABSOLC           FETCH CYLINDER CONVERSION COUNT
     8482   01 0256F    37800201              MW,8     :P1               P1X120=(8,9)
     8483   01 02570    30900203              AW,9     :P3               (9)+:P3
     8484   01 02571    32B02B9D              LW,11    #ABSOLC1          FETCH HEAD CONVERSION COUNT
     8485   01 02572    37A00202              MW,10    :P2               P2X20
     8486   01 02573    3090000B A            AW,9     11                P1X120+P2X20+P3=(9)
     8487   01 02574    35902593              STW,9    SEEK1             STORE SECTOR ADR
     8488   01 02575    30900204              AW,9     :P4               (9)+P4=(9)
     8489   01 02576    31902B9B              CW,9     #DEFLTE           COMPARE 24359 AND SECTOR ADR
     8490   01 02577    6920258C              BG       SEEK3             BR IF ENDING ADR > 24359
     8491   01 02578    32500000 A            LW,5     0                 SET INDEX = 0
     8492   01 02579    327A03C2     SEEK5    LW,7     SYSTFRST,5
     8493   01 0257A    31702593              CW,7     SEEK1             COMPARE SYSTFRST AND SECTOR ADR
     8494   01 0257B    69202590              BG       SEEK4             BR. ADR CONFLICT
     8495   01 0257C    327A03CA              LW,7     SYSTLAST,5        FETCH SYSTLAST
     8496   01 0257D    31700009 A            CW,7     9                 COMPARE
     8497   01 0257E    69102590              BL       SEEK4             BR. ADR CONFLICT
     8498   01 0257F    33100005 A            MTW,1    5                 INC INDEX BY 1
     8499   01 02580    315003E4              CW,5     DEVNO
     8500   01 02581    69102579              BL       SEEK5             BR. TEST NEXT ADR.
     8501   01 02582    32500000 A            LW,5     0                 INDEX = 0
     8502   01 02583    32B02593              LW,11    SEEK1
     8503   01 02584    35BA03D2              STW,11   CURSFRST,5        STORE SYSTFRST INTO CURSFRST
     8504   01 02585    359A03DA              STW,9    CURSLAST,5        STORE SYSTLAST INTO CURSLAST
     8505   01 02586    33100005 A            MTW,1    5                 INC DEVPT BY 1
     8506   01 02587    315003E4              CW,5     DEVNO
     8507   01 02588    69102584              BL       %-4
     8508   01 02589    E8000214              B        *:MONITOR         EXIT
     8509   01 0258A    3540030A     SEEK2    STW,4    :PIT10            STORE ERROR INTO PIT10
     8510   01 0258B    6800258D              B        %+2
     8511   01 0258C    3540030A     SEEK3    STW,4    :PIT10
     8512   01 0258D    EAF00229              BAL,15   *:PREPORT
     8513   01 0258E    00000328              DATA     :DIC+8
     8514   01 0258F    E8000214              B        *:MONITOR         EXIT
     8515   01 02590    EAF0021C     SEEK4    BAL,15   *:PRINT           PRINT ERROR
     8516   01 02591    00002594              DATA     SEEK6
     8517   01 02592    E8000214              B        *:MONITOR

     8519   01 02593    00000000 A   SEEK1    DATA     0                 SEEK STARTING ADR
     8520   01 02594    2DC3D6D5 A   SEEK6    TEXTC    'CONFLICT BETWEEN SYST AND SEEK DIRECTIVES ADR'
            01 02595    C6D3C9C3 A
            01 02596    E340C2C5 A
            01 02597    E3E6C5C5 A
            01 02598    D540E2E8 A
            01 02599    E2E340C1 A
            01 0259A    D5C440E2 A
            01 0259B    C5C5D240 A
            01 0259C    C4C9D9C5 A
            01 0259D    C3E3C9E5 A
            01 0259E    C5E240C1 A
            01 0259F    C4D94040 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  109
A    8522                            *             *** DISPLAY DIRECTIVE ***

     8524   01 025A0    32500201     :DISP    LW,5     :P1
     8525   01 025A1    315025B4              CW,5     DISP0             LOOK FOR 'OFF'
     8526   01 025A2    683025A8              BE       DISP00
     8527   01 025A3    315025B5              CW,5     DISP1             LOOK FOR 'ON'
     8528   01 025A4    683025AB              BE       DISP11

     8530   01 025A5    EAF0021C              BAL,15   *:PRINT           ERROR MESSAGE
     8531   01 025A6    000025AE              DATA     DISPX
     8532   01 025A7    E8000214              B        *:MONITOR

     8534   01 025A8    22500000 A   DISP00   LI,5     0
     8535   01 025A9    355025B6              STW,5    DISPFLAG          CLEAR DISPLAY FLAG
     8536   01 025AA    E8000214              B        *:MONITOR

     8538   01 025AB    22500001 A   DISP11   LI,5     1
     8539   01 025AC    355025B6              STW,5    DISPFLAG          SET DISPLAY FLAG
     8540   01 025AD    E8000214              B        *:MONITOR

     8542   01 025AE    15D6D561 A   DISPX    TEXTC    'ON/OFF ARE ACCEPTABLE'
            01 025AF    D6C6C640 A
            01 025B0    C1D9C540 A
            01 025B1    C1C3C3C5 A
            01 025B2    D7E3C1C2 A
            01 025B3    D3C54040 A
     8543   01 025B4    00D6C6C6 A   DISP0    DATA     'OFF'
     8544   01 025B5    0000D6D5 A   DISP1    DATA     'ON'
     8545   01 025B6    00000000 A   DISPFLAG DATA     0                 DISPLAY FLAG
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  110
A    8547                            *             *** LIMIT DIRECTIVE ***
     8548                            *  THIS DIRECTIVE ALLOWS THE USER TO LIMIT PROGRAM OPERATIONS          *
     8549                            *  SPECIFIED BY P1 AND P2.                                             *
     8550                            *                                                                      *
     8551                            *     P1 = 1  LIMIT COMPARE ERROR PRINTOUT TO P2 LINES.                *

     8553   01 025B7    3520030A     :LIMIT   STW,2    :PIT10            SET ILLEGAL PARAMETER NO
     8554   01 025B8    72820211              LB,8     :PSW,1            FETCH PAR COUNT
     8555   01 025B9    21800002 A            CI,8     2
     8556   01 025BA    683025BE              BE       :LIM1             B: PAR COUNT = 2
     8557   01 025BB    EAF00229     :LIM0    BAL,15  *:PREPORT           REPORT PAR ERROR
     8558   01 025BC    0000032E              DATA     :DIC+14
     8559   01 025BD    E8000214              B        *:MONITOR         RETURN TO MONITOR
     8560   01 025BE    3510030A     :LIM1    STW,1    :PIT10            SET PAR NO = 1
     8561   01 025BF    31100201              CW,1     :P1
     8562   01 025C0    693025BB              BNE      :LIM0             B: PAR ERROR P1 > 1
     8563   01 025C1    32800202              LW,8     :P2               FETCH PAR P2
     8564   01 025C2    692025C4              BGZ      :LIM2             B: P2 > 0
     8565   01 025C3    2280FFFF A            LI,8     X'FFFF'           SET LIMIT TO HI NO.
     8566   01 025C4    358028A4     :LIM2    STW,8    :COMPLIM          SAVE COMPARE LIMIT COUNT
     8567   01 025C5    E8000214              B        *:MONITOR         RETURN TO MONITOR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  111
A    8569                            *        *** RESTORE ***

     8571                            * THIS ROUTINE ISSUE A RESTORE ORDER AND LOOPS UNTIL THE RESTORE
     8572                            * OPERATION IS COMPLETED.

     8574                            * CALLING SEQUENCE: BAL15   RESTORE
     8575                            * REG. REQUIRED: NONE

     8577   01 025C6    35F025F0     RESTORE  STW,15   RESTOREX          SAVE EXIT ADR
     8578   01 025C7    220012F7              LI,0     DA(RESTIOCD)      FETCH IOCD ADR
     8579   01 025C8    6AF027E6              BAL,15   :IOEXEC           ISSUE RESTORE ORDER
     8580   01 025C9    325022E4              LW,5     T3UTIMEI          INITIALIZE TIMER
     8581   01 025CA    CDC003E2              TIO,12   *:DEVADDR         TIO
     8582   01 025CB    68C025D8              BCR,12   RESTORE3          B: CONTR READY
     8583   01 025CC    655025CA              BIR,5    %-2               B: TRY AGAIN
     8584   01 025CD    EAF0021C     RESTORE0 BAL,15   *:PRINT
     8585   01 025CE    000025F1              DATA     RESTM1            'RESTORE NOT COMPLETED'
     8586   01 025CF    6AF026D0     RESTORE1 :TDV     X'FFFFC000',X'04000000',0 ALWAYS FALL THROUGH
            01 025D0    FFFFC000 A
            01 025D1    04000000 A
            01 025D2    680025D3
     8587   01 025D3    6AF026CB     RESTORE2 :HIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 025D4    FFFFC000 A
            01 025D5    10000000 A
            01 025D6    680025D7
     8588   01 025D7    680025C7              B        RESTORE+1         B: TRY AGAIN
     8589   01 025D8    6AF026C6     RESTORE3 :TIO     X'FFFFC000',X'10000000',1 SKIP ON SUCCESS
            01 025D9    FFFFC000 A
            01 025DA    10000000 A
            01 025DB    680025DD
     8590   01 025DC    680025E6              B        RESTORE4
     8591   01 025DD    CEC003E2              TDV,12   *:DEVADDR         TDV
     8592   01 025DE    4BD02C09              AND,13   =X'04000000'      TEST ON CYLINDER
     8593   01 025DF    693025E2              BNEZ     %+3               B: ON CYLINDER
     8594   01 025E0    655025DD              BIR,5    %-3               LOOP
     8595   01 025E1    680025CD              B        RESTORE0          B: TIME OUT
     8596   01 025E2    6AF026D0              :TDV     X'FFFFC000',X'04000000',*RESTOREX
            01 025E3    FFFFC000 A
            01 025E4    04000000 A
            01 025E5    E80025F0
     8597   01 025E6    EAF0021C     RESTORE4 BAL,15   *:PRINT
     8598   01 025E7    000025F7              DATA     RESTM2
     8599   01 025E8    6AF026C6              :TIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 025E9    FFFFC000 A
            01 025EA    10000000 A
            01 025EB    680025EC
     8600   01 025EC    680025CF              B        RESTORE1          TRY AGAIN
     8601                                     BOUND    8
     8602   01 025EE    33000000 A   RESTIOCD GEN,8,24 X'33',0           RESTORE DOUBLE WORD
     8603   01 025EF    00000000 A            GEN,8,24 0,0
     8604   01 025F0    00000000 A   RESTOREX DATA     0
     8605   01 025F1    15D9C5E2 A   RESTM1   TEXTC    'RESTORE NOT COMPLETED'
            01 025F2    E3D6D9C5 A
            01 025F3    40D5D6E3 A
            01 025F4    40C3D6D4 A
            01 025F5    D7D3C5E3 A
            01 025F6    C5C44040 A
     8606   01 025F7    0DD9C5E2 A   RESTM2   TEXTC    'RESTORE ERROR'
            01 025F8    E3D6D9C5 A
            01 025F9    40C5D9D9 A
            01 025FA    D6D94040 A

     8608                            *        *** SEEKGEN ***

     8610                            * THIS ROUTINE GENERATES A 4 BYTE SEEK ADDRESS IN R13
     8611                            * INTO REG.13
     8612                            * Q1=CYL ADD Q2=HEADER ADD R2=SECTOR ADD

     8614                            * REG. REQUIRED: R13 = ABSOLUTE SEEK ADDR.   RESULT: R13 = 4 BYTE ADR

     8616         01 025FB           SEEKGEN  EQU      %
     8617   01 025FB    22C00000 A            LI,12    0
     8618   01 025FC    36C02B9C              DW,12    #ABSOLC
     8619   01 025FD    32E0000D A            LW,14    13
     8620   01 025FE    25C00160 A            SLD,12   -32
     8621   01 025FF    36C02B9D              DW,12    #ABSOLC1
     8622   01 02600    25D00008 A            SLS,13   8
     8623   01 02601    49D0000C A            OR,13    12
     8624   01 02602    55E0000D A            STH,14   13
     8625   01 02603    E800000F A            B       *15
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  112
A    8627   01 02604    36C02B9C              DW,12    #ABSOLC           DIVISION BY RECORD CONV COUNT
     8628   01 02605    22E00000 A            LI,14    0                 FETCH 0
     8629   01 02606    75D2000E A            STB,13   14,1              STORE Q1 INTO REG.14
     8630   01 02607    32D0000C A            LW,13    12                FETCH R1 INTO 13
     8631   01 02608    22C00000 A            LI,12    0
     8632   01 02609    36C02B9D              DW,12    #ABSOLC1          DIVISION TRACK CONV COUNT
     8633   01 0260A    75D4000E A            STB,13   14,2              STORE Q2 INTO REG.14
     8634   01 0260B    75C6000E A            STB,12   14,3              STORE R2 INTO REG.14
     8635   01 0260C    35E0000D A            STW,14   13                STORE Q1,Q2 AND R2 INTO R13
     8636   01 0260D    E800000F A            B        *15               EXIT

     8638                            *        *** SEEKEX ***

     8640                            * THIS ROUTINE ISSUES A SEEK ORDER AND LOOPS UNTIL THE SEEK
     8641                            * OPERATION IS COMPLETE.

     8643                            * CALLING SEQUENCE: BAL,15   SEEKEX
     8644                            * REG.REQUIRED: NONE

     8646   01 0260E    35F0263C     SEEKEX   STW,15   SEEKEXX           SAVE EXIT ADR
     8647   01 0260F    2200131D              LI,0     DA(SEEKIOCD)      FETCH IOCD ADR
     8648   01 02610    6AF027E6              BAL,15   :IOEXEC           ISSUE SEEK ORDER
     8649   01 02611    325022E4              LW,5     T3UTIMEI          INITIALIZE TIMER
     8650   01 02612    CDC003E2              TIO,12   *:DEVADDR         TIO
     8651   01 02613    68C02623              BCR,12   SEEKEX3           BRANCH IF CONTROLLER READY
     8652   01 02614    65502612              BIR,5    %-2               B: TRY AGAIN
     8653   01 02615    EAF0021C     SEEKEX0  BAL,15   *:PRINT
     8654   01 02616    0000263D              DATA     SEEKEXM1          'SEEK NOT COMPLETED'
     8655   01 02617    6AF026D0     SEEKEX1  :TDV     X'FFFFC000',X'04000000',0 ALWAYS FALL THROUGH
            01 02618    FFFFC000 A
            01 02619    04000000 A
            01 0261A    6800261B
     8656   01 0261B    6AF026CB     SEEKEX2  :HIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 0261C    FFFFC000 A
            01 0261D    10000000 A
            01 0261E    6800261F
     8657   01 0261F    32D026BF              LW,13    SEEKADR           FETCH 4BYTE SEEKADR
     8658   01 02620    6AF026A4              BAL,15   SEEKMSG           PRINT CURRENT SEEK ADR
     8659   01 02621    6AF025C6              BAL,15   RESTORE           ISSUE RESTORE ORDER
     8660   01 02622    6800260F              B        SEEKEX+1          TRY AGAIN
     8661   01 02623    6AF026C6     SEEKEX3  :TIO     X'FFFFC000',X'10000000',1 SKIP ON SUCCESS
            01 02624    FFFFC000 A
            01 02625    10000000 A
            01 02626    68002628
     8662   01 02627    68002632              B        SEEKEX4           B: ERROR - RESTORE AND SEEK AGAIN
     8663   01 02628    325022E4              LW,5     T3UTIMEI          INITIALIZE TIMER
     8664   01 02629    CEC003E2              TDV,12   *:DEVADDR         TDV
     8665   01 0262A    4BD02C09              AND,13   =X'04000000'      TEST ON-CYLINDER BIT
     8666   01 0262B    6930262E              BNEZ     %+3               B: ON CYLINDER
     8667   01 0262C    65502629              BIR,5    %-3               LOOP
     8668   01 0262D    68002615              B        SEEKEX0           B: TIME-OUT
     8669   01 0262E    6AF026D0              :TDV     X'FFFFC000',X'04000000',*SEEKEXX
            01 0262F    FFFFC000 A
            01 02630    04000000 A
            01 02631    E800263C
     8670   01 02632    EAF0021C     SEEKEX4  BAL,15   *:PRINT
     8671   01 02633    00002642              DATA     SEEKEXM2          'SEEK ERROR'
     8672   01 02634    6AF026C6              :TIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 02635    FFFFC000 A
            01 02636    10000000 A
            01 02637    68002638
     8673   01 02638    68002617              B        SEEKEX1           TRY AGAIN
     8674                                     BOUND    8
     8675   01 0263A    03009AFC     SEEKIOCD GEN,8,24 X'03',BA(SEEKADR) SEEK DOUBLE WORD
     8676   01 0263B    00000004 A            GEN,8,24 0,4
     8677   01 0263C    00000000 A   SEEKEXX  DATA     0                 EXIT ADR
     8678   01 0263D    12E2C5C5 A   SEEKEXM1 TEXTC    'SEEK NOT COMPLETED'
            01 0263E    D240D5D6 A
            01 0263F    E340C3D6 A
            01 02640    D4D7D3C5 A
            01 02641    E3C5C440 A
     8679   01 02642    0AE2C5C5 A   SEEKEXM2 TEXTC    'SEEK ERROR'
            01 02643    D240C5D9 A
            01 02644    D9D6D940 A

     8681                            *        *** SENSEX ***

     8683                            * THIS ROUTINE ISSUES A SENSE ORDER AND LOOPS UNTIL THE SENSE
     8684                            * OPERATION IS COMPLETE. THE SENSE DATA IS THEN PRINTED

     8686                            * CALLING SEQUENCE: BAL,15   SENSEX
     8687                            * REG.REQUIRED: NONE

     8689   01 02645    02200000 A   SENSEX   LCI      0                 SAVE
     8690   01 02646    2B00267C              STM,0    SENSEXX             ALL REGISTERS
     8691   01 02647    22000000 A            LI,0     0                 CLEAR
     8692   01 02648    35002694              STW,0    SENSBUF
     8693   01 02649    35002695              STW,0    SENSBUF+1           SENSE BUFFER
     8694   01 0264A    35002696              STW,0    SENSBUF+2
     8695   01 0264B    2200133D              LI,0     DA(SENSIOCD)      FETCH IOCD ADR
     8696   01 0264C    6AF027E6              BAL,15   :IOEXEC           ISSUE SENSE ORDER
     8697   01 0264D    325022E4              LW,5     T3UTIMEI          INITIALIZE TIMER
     8698   01 0264E    CDC003E2              TIO,12   *:DEVADDR         TIO
     8699   01 0264F    68C0265C              BCR,12   SENSEX3           BRANCH IF CONTROLLER READY
     8700   01 02650    6550264E              BIR,5    %-2               B: TRY AGAIN
     8701   01 02651    EAF0021C     SENSEX0  BAL,15   *:PRINT
     8702   01 02652    0000268C              DATA     SENSEXM1          'SENSE NOT COMPLETED'
     8703   01 02653    6AF026D0     SENSEX1  :TDV     X'FFFFC000',X'04000000',0 ALWAYS FALL THROUGH
            01 02654    FFFFC000 A
            01 02655    04000000 A
            01 02656    68002657
     8704   01 02657    6AF026CB     SENSEX2  :HIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 02658    FFFFC000 A
            01 02659    10000000 A
            01 0265A    6800265B
     8705   01 0265B    68002677              B        SENSEX5           EXIT
     8706   01 0265C    6AF026C6     SENSEX3  :TIO     X'FFFFC000',X'10000000',1 SKIP ON SUCCESS
            01 0265D    FFFFC000 A
            01 0265E    10000000 A
            01 0265F    68002661
     8707   01 02660    68002671              B        SENSEX4
     8708   01 02661    32C02694              LW,12    SENSBUF           GET FIRST 4 BYTES
     8709   01 02662    EAF00218              BAL,15   *:HEXC
     8710   01 02663    35F0269A              STW,15   SENSEXM3+3        BYTES 2 AND 3 TO BUFFER
     8711   01 02664    EAF00218              BAL,15   *:HEXC
     8712   01 02665    35F02699              STW,15   SENSEXM3+2        BYTES 0 AND 1 TO BUFFER
     8713   01 02666    32C02695              LW,12    SENSBUF+1         GET NEXT 4 BYTES
     8714   01 02667    EAF00218              BAL,15   *:HEXC
     8715   01 02668    35F0269C              STW,15   SENSEXM3+5        BYTES 6 AND 7 TO BUFFER
     8716   01 02669    EAF00218              BAL,15   *:HEXC
     8717   01 0266A    35F0269B              STW,15   SENSEXM3+4        BYTES 4 AND 5 TO BUFFER
     8718   01 0266B    52C02696              LH,12    SENSBUF+2         GET NEXT 2 BYTES
     8719   01 0266C    EAF00218              BAL,15   *:HEXC
     8720   01 0266D    35F0269D              STW,15   SENSEXM3+6        BYTES 8 AND 9 TO BUFFER
     8721   01 0266E    EAF0021C              BAL,15   *:PRINT           PRINT SENSE DATA
     8722   01 0266F    00002697              DATA     SENSEXM3
     8723   01 02670    68002677              B        SENSEX5           EXIT
     8724   01 02671    EAF0021C     SENSEX4  BAL,15   *:PRINT
     8725   01 02672    00002691              DATA     SENSEXM2          'SENSE ERROR'
     8726   01 02673    6AF026C6              :TIO     X'FFFFC000',X'10000000',0 ALWAYS FALL THROUGH
            01 02674    FFFFC000 A
            01 02675    10000000 A
            01 02676    68002677
     8727   01 02677    02200000 A   SENSEX5  LCI      0                 RESTORE
     8728   01 02678    2A00267C              LM,0     SENSEXX             REGISTERS
     8729   01 02679    E800000F A            B        *15               EXIT

     8731                                     BOUND    8
     8732   01 0267A    04009A50     SENSIOCD GEN,8,24 X'04',BA(SENSBUF) SENSE DOUBLE WORD
     8733   01 0267B    0000000A A            GEN,8,24  0,10
     8734   01 0267C                 SENSEXX  RES      16                EXIT ADR
     8735   01 0268C    13E2C5D5 A   SENSEXM1 TEXTC    'SENSE NOT COMPLETED'
            01 0268D    E2C540D5 A
            01 0268E    D6E340C3 A
            01 0268F    D6D4D7D3 A
            01 02690    C5E3C5C4 A
     8736   01 02691    0BE2C5D5 A   SENSEXM2 TEXTC    'SENSE ERROR'
            01 02692    E2C540C5 A
            01 02693    D9D9D6D9 A
     8737   01 02694    00000000 A   SENSBUF  DATA     0,0,X'0000FFFF'   SENSE BUFFER
            01 02695    00000000 A
            01 02696    0000FFFF A

     8739   01 02697    1BE2C5D5 A   SENSEXM3 TEXTC    'SENSE= XXXXXXXXXXXXXXXXXXXX'
            01 02698    E2C57E40 A
            01 02699    E7E7E7E7 A
            01 0269A    E7E7E7E7 A
            01 0269B    E7E7E7E7 A
            01 0269C    E7E7E7E7 A
            01 0269D    E7E7E7E7 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  113
A    8741                            *        *** SEEKINC ***

     8743                            * THIS ROUTINE INCREMENTS THE ABSOLUTE SECTOR ADDRESS AND TESTS THE
     8744                            * RESULT AGAINST THE LAST AVAILABLE SECTOR ADDRESS.

     8746                            * RESULT:        R13 = ABSOLUTE SECTOR ADDRESS

     8748   01 0269E    32D026BE     SEEKINC  LW,13    SEEKCUR           FETCH CUR. SEEK ADD
     8749   01 0269F    30D026C0              AW,13    SEEKADD           ADD SEEK INC
     8750   01 026A0    35D026BE              STW,13   SEEKCUR           SAVE CUR. SEEK ADD
     8751   01 026A1    31D026BD              CW,13    SEEKLAST          COMPARE TO SEEKLAST
     8752   01 026A2    E822000F A            BLE      *15,1             B: ADD 1 TO ANOTHER SEEKADD
     8753   01 026A3    E800000F A            B        *15               B: +0 ALL DONE
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  114
A    8755                            *        *** SEEKMSG ***

     8757                            * THIS ROUTINE ARRANGES ERROR MESSAGE INTO A
     8758                            * SPECIFIC FORM
     8759                            * CALLING SEQUENCE: BAL,15   SEEKMSG
     8760                            * REG. REQUIRED: R13 = 4 BYTE SEEK ADDRESS

     8762   01 026A4    35F026B4     SEEKMSG  STW,15   SEEKMSGX
     8763   01 026A5    6AF01D6E              BAL,15   DEVADRM           PRINT DEV. ADR.
     8764   01 026A6    52C0000D A            LH,12    13                FETCH CYL. ADDR.
     8765   01 026A7    EAF00217              BAL,15   *:DECC            DECODING
     8766   01 026A8    35F026B6              STW,15   SEEKMSGR+1        STORE DECODED ADD
     8767   01 026A9    22E00040 A            LI,14    X'40'
     8768   01 026AA    75E026B6              STB,14   SEEKMSGR+1
     8769   01 026AB    72C4000D A            LB,12    13,2              FETCH HEADER ADD
     8770   01 026AC    EAF00217              BAL,15   *:DECC            DECODING
     8771   01 026AD    55F226B8              STH,15   SEEKMSGR+3,1      STORE DECODED ADD
     8772   01 026AE    72C6000D A            LB,12    13,3              FETCH SECTOR ADD
     8773   01 026AF    EAF00217              BAL,15   *:DECC            DECODING
     8774   01 026B0    75F226BA              STB,15   SEEKMSGR+5,1      STORE DECODED ADD
     8775   01 026B1    EAF0021C              BAL,15   *:PRINT
     8776   01 026B2    000026B5              DATA     SEEKMSGR
     8777   01 026B3    E80026B4              B        *SEEKMSGX         EXIT
     8778   01 026B4    00000000 A   SEEKMSGX DATA     0
     8779   01 026B5    15C3E8D3 A   SEEKMSGR TEXTC    'CYL XXX  HD  XX SEC X'
            01 026B6    40E7E7E7 A
            01 026B7    4040C8C4 A
            01 026B8    4040E7E7 A
            01 026B9    40E2C5C3 A
            01 026BA    40E74040 A

     8781                                     BOUND    8
     8782   01 026BC    00000000 A   SEEKFRST DATA     0                 FIRST SEEK LOCATION
     8783   01 026BD    00000000 A   SEEKLAST DATA     0                 LAST  SEEK LOCATION
     8784   01 026BE    00000000 A   SEEKCUR  DATA     0                 CURRENT SEEK LOCATION
     8785   01 026BF    00000000 A   SEEKADR  DATA     0                 SEEK ADDRESS BUFFER
     8786   01 026C0    00000000 A   SEEKADD  DATA     0                 SEEK LOCATION INCREMENT

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  115
A    8789                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***

     8791                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     8792                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     8793                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.

     8795                            *       INPUT PARAMETERS:

     8797                            *               <<CALLING SEQUENCE >>

     8799                            *        BAL,15   (NAME OF SEQUENCE DESIRED; :SIO  :TIO  :HIO :TDV,:AIO)
     8800                            *        DATA     (MASK 0=MASK OUT BIT POSITION, 1=SAVE BIT POSITION
     8801                            *       *              FOR BIT POSITIONS 0-17
     8802                            *       *              BIT POSITION 30 = COMPARE DEV-ADDR <AIO ONLY>
     8803                            *       *              BIT POSITION 31 = IF 1 INHIBIT PRINTING)
     8804                            *        DATA     (EXPECTED STATUS BIT POSITIONS 0-15
     8805                            *       *         (EXPECTED CONDITION CODES 16,17)
     8806                            *        B        (RETURNS HERE IF NO ERROR)
     8807                            *                 (RETURNS HERE IF THERE WAS AN ERROR)

     8809                            *       REGISTERS DISTURBED:

     8811                            *                 14

     8813                            *       OUTPUT PARAMETERS:

     8815                            *         NORMAL EXIT-RETURN ADDRESS

     8817                            *                 I S S U E  S I O

     8819   01 026C1    CCC003E2     :SIO     SIO,12   *:DEVADDR         ISSUE SIO
     8820   01 026C2    35D027E5              STW,13   :STATUSCC         SAVE STATUS
     8821   01 026C3    740427E5              STCF     :STATUSCC,2       SAVE CONDITION CODES
     8822   01 026C4    22E00000 A   :SIO1    LI,14    0                 LOAD TYPE OF OPERATION
     8823   01 026C5    680026DA              B        :STATEST          GO TEST STATUS & CONDITION CODES

     8825                            *                 I S S U E  T I O

     8827   01 026C6    CDC003E2     :TIO     TIO,12   *:DEVADDR         ISSUE TIO
     8828   01 026C7    35D027E5              STW,13   :STATUSCC         SAVE STATUS
     8829   01 026C8    740427E5              STCF     :STATUSCC,2       SAVE CONDITION CODES
     8830   01 026C9    22E00001 A   :TIO1    LI,14    1                 LOAD TYPE OF OPERATION
     8831   01 026CA    680026DA              B        :STATEST          GO TEST STATUS & CONDITION CODES

     8833                            *                 I S S U E  H I O

     8835   01 026CB    CFC003E2     :HIO     HIO,12   *:DEVADDR         ISSUE HIO
     8836   01 026CC    35D027E5              STW,13   :STATUSCC         SAVE STATUS
     8837   01 026CD    740427E5              STCF     :STATUSCC,2       SAVE CONDITION CODES
     8838   01 026CE    22E00002 A   :HIO1    LI,14    2                 LOAD TYPE OF OPERATION
     8839   01 026CF    680026DA              B        :STATEST          GO TEST STATUS & CONDITION CODES

     8841                            *                 I S S U E  T D V

     8843   01 026D0    CEC003E2     :TDV     TDV,12   *:DEVADDR         ISSUE TDV
     8844   01 026D1    35D027E5              STW,13   :STATUSCC         SAVE STATUS
     8845   01 026D2    740427E5              STCF     :STATUSCC,2       SAVE CONDITION CODES
     8846   01 026D3    22E00003 A   :TDV1    LI,14    3                 LOAD TYPE OF OPERATION
     8847   01 026D4    680026DA              B        :STATEST          GO TEST STATUS & CONDITION CODES

     8849                            *                 I S S U E  A I O

     8851   01 026D5    6ED00000 A   :AIO     AIO,13   0                 ISSUE AIO
     8852   01 026D6    35D027E5              STW,13   :STATUSCC         SAVE STATUS
     8853   01 026D7    740427E5              STCF     :STATUSCC,2       SAVE CONDITION CODES
     8854   01 026D8    22E00004 A   :AIO1    LI,14    4                 LOAD TYPE OF OPERATION
     8855   01 026D9    680026DA              B        :STATEST          GO TEST STATUS & CONDITION CODES

     8857                            *                 T E S T  F O R  A N Y  E R R O R S

     8859   01 026DA    35E027E4     :STATEST STW,14   :TYPE             SAVE TYPE OF I/O OPERATION
     8860   01 026DB    35F027E3              STW,15   :IORTN
     8861   01 026DC    B2E027E3              LW,14    *:IORTN           FETCH MASK
     8862   01 026DD    B2F227E3              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     8863   01 026DE    4BE02C2B              AND,14   L(X'FFFFC000')    MASK OUT; PRINT INHIBIT & DEV AD BIT
     8864   01 026DF    4BF0000E A            AND,15   14                MASK EXPECTED STATUS
     8865   01 026E0    4BE027E5              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     8866   01 026E1    31E0000F A            CW,14    15                COMPARE RECEIVED AND EXPECTED STATUS
     8867   01 026E2    693026E9              BNE      :CCTEST           IF ERROR GO TEST CONDITION CODES
     8868   01 026E3    B12027E3              CW,2     *:IORTN           IS THIS A TEST OF DEV ADDR
     8869   01 026E4    E84427E3              BAZ      *:IORTN,2         IF NOT RETURN
     8870   01 026E5    32E0000D A            LW,14    13                LOAD RECEIVED STATUS
     8871   01 026E6    4BE02C2C              AND,14   L(X'7FF')         MASKOUT ALL BUT DEVICE ADDR
     8872   01 026E7    31E003E2              CW,14    :DEVADDR          COMPARE WITH EXPECTED DEV ADDR
     8873   01 026E8    E83427E3              BE       *:IORTN,2         IF EQUAL RETURN

     8875   01 026E9    B11027E3     :CCTEST  CW,1     *:IORTN           TEST PRINT INHIBIT BIT
     8876   01 026EA    E94627E3              BANZ     *:IORTN,3         IF SET TAKE ERROR RETURN
     8877   01 026EB    154027DA              STD,4    :REG0405          SAVE REGISTERS 4 & 5
     8878   01 026EC    15C027DE              STD,12   :REG1213          SAVE REGISTERS 12 & 13
     8879   01 026ED    32C003E2              LW,12    :DEVADDR          LOAD EXPECTED DEVICE ADDRESS
     8880   01 026EE    EAF00218              BAL,15   *:HEXC            CONVERT EBCDIC
     8881   01 026EF    55F227BA              STH,15   :DAERM+6,1        SAVE IN DEVICE ADDR ERROR MESSAGE
     8882   01 026F0    55F227C9              STH,15   :STATEM1+12,1     SAVE IN STATUS MESSAGE
     8883   01 026F1    25F00070 A            SLS,15   -16               POSITION MSB'S
     8884   01 026F2    75F227BA              STB,15   :DAERM+6,1        SAVE IN DEVICE ADDR ERROR MESSAGE
     8885   01 026F3    75F227C9              STB,15   :STATEM1+12,1     SAVE IN STATUS MESSAGE
     8886   01 026F4    703427E5              LCF      :STATUSCC,2       LOAD CONDITION CODES
     8887   01 026F5    324027E4              LW,4     :TYPE             LOAD TYPE OF I/O OPERATION
     8888   01 026F6    22500000 A            LI,5     0                 ZERO CC3,4
     8889   01 026F7    68C02705              BCR,12   :DEVADER          CC1,2 = 0,0
     8890   01 026F8    688026FB              BCR,8    :CCERR1           CC1,2 = 0,1
     8891   01 026F9    68402700              BCR,4    :CCERR2           CC1,2 = 1,0
     8892   01 026FA    68002714              B        :CCERR3           CC1,2 = 1,1

     8894                            *                 C C 1 , 2  =  0 , 1

     8896   01 026FB    32582756     :CCERR1  LW,5     :ERRADR1,4        LOAD ADDRESS OF MSG
     8897   01 026FC    355026FE              STW,5    %+2               SAVE ADDRESS OF MSG
     8898   01 026FD    EAF0021C              BAL,15   *:PRINT           PRINT MSG
     8899   01 026FE    00000000 A            DATA     0
     8900   01 026FF    68002705              B        :DEVADER          GO TO TEST DEV ADDR

     8902                            *                 C C 1 , 2  =  1 , 0

     8904   01 02700    3258275B     :CCERR2  LW,5     :ERRADR2,4        LOAD ADDRESS OF MSG
     8905   01 02701    35502703              STW,5    %+2               SAVE ADDRESS OF MSG
     8906   01 02702    EAF0021C              BAL,15   *:PRINT           PRINT MSG
     8907   01 02703    00000000 A            DATA     0
     8908   01 02704    68002711              B        :DEVEXIT          GO TO ERROR EXIT

     8910                            *                 R E P O R T  D E V - A D D R  I F  I T  E X I S T S

     8912   01 02705    21400004 A   :DEVADER CI,4     4                 TEST FOR AIO
     8913   01 02706    6930271E              BNE      :STATERR              IF NOT,GO TEST STATUS
     8914   01 02707    32C0000D A            LW,12    13                LOAD DEVICE ADDRESS
     8915   01 02708    4BC02C2C              AND,12   L(X'7FF')         SAVE ONLY DEVICE ADDRESS
     8916   01 02709    31C003E2              CW,12    :DEVADDR          IS IT = TO EXPECTED ADDRESS
     8917   01 0270A    6830271E              BE       :STATERR              GO TO TEST STATUS
     8918   01 0270B    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     8919   01 0270C    55F227BC              STH,15   :DAERM+8,1        SAVE IN DEVICE ERROR MESSAGE
     8920   01 0270D    25F00070 A            SLS,15   -16               POSITION MSB'S
     8921   01 0270E    75F227BC              STB,15   :DAERM+8,1        SAVE IN DEVICE ERROR MESSAGE
     8922   01 0270F    EAF0021C              BAL,15   *:PRINT           PRINTOUT DEVICE ADDRESS ERROR
     8923   01 02710    000027B4              DATA     :DAERM            MESSAGE
     8924   01 02711    124027DA     :DEVEXIT LD,4     :REG0405          RESTORE REG 4 & 5
     8925   01 02712    12C027DE              LD,12    :REG1213          RESTORE REG 12 & 13
     8926   01 02713    E80627E3              B        *:IORTN,3         TAKE ERROR RETURN

     8928                            *                 C C 1, 2  =  1 , 1

     8930   01 02714    32582760     :CCERR3  LW,5     :ERRADR3,4        LOAD ERROR MSG ADDRESS
     8931   01 02715    3550271C              STW,5    :CCPRINT          SAVE ADDRESS OF MESSAGE TO BE PRINTED
     8932   01 02716    22500004 A            LI,5     4                 LOAD INDEX
     8933   01 02717    21400004 A            CI,4     4                 IS THIS AN AIO
     8934   01 02718    6830271B              BE       %+3               IF SO DON'T ADD DEVICE ADDRESS
     8935   01 02719    32C027BA              LW,12    :DAERM+6          LOAD A CONVERTED DEV ADDR
     8936   01 0271A    B5CA271C              STW,12   *:CCPRINT,5       SAVE DEVICE ADDRESS
     8937   01 0271B    EAF0021C              BAL,15   *:PRINT           PRINT ERROR
     8938   01 0271C    00000000 A   :CCPRINT DATA     0
     8939   01 0271D    68002711              B        :DEVEXIT          TAKE ERROR EXIT

     8941                            *                 R E P O R T  S T A T U S  E R R O R  I F  P R E S E NT

     8943   01 0271E    B2E027E3     :STATERR LW,14    *:IORTN           FETCH MASK
     8944   01 0271F    B2F227E3              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     8945   01 02720    4BE02C2D              AND,14   L(X'FFFF0000')    SAVE ONLY STATUS
     8946   01 02721    4BF0000E A            AND,15   14                MASK TO EXPECTED CONDITIONS
     8947   01 02722    4BE027E5              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     8948   01 02723    31E0000F A            CW,14    15                ARE THEY EQUAL
     8949   01 02724    68302711              BE       :DEVEXIT              IF TAKE ERROR EXIT
     8950   01 02725    325827D5              LW,5     :STATTYP,4        LOAD TYPE OF OPERATION
     8951   01 02726    465027BD              XW,5     :STATEM1          SAVE TYPE OF OPERATION AND FETCH BC
     8952   01 02727    72500005 A            LB,5     5                 POSITION BYTE COUNT
     8953   01 02728    755027BD              STB,5    :STATEM1          SAVE MESSAGE BYTE COUNT
     8954   01 02729    EAF0021C              BAL,15   *:PRINT           PRINT STATUS ERROR HEADER MSG
     8955   01 0272A    000027BD              DATA     :STATEM1
     8956   01 0272B    156027DC              STD,6    :REG0607          SAVE REGISTER 6 & 7

     8958   01 0272C    22600002 A            LI,6     2                 LOAD POINTER
     8959   01 0272D    B27027E3              LW,7     *:IORTN           LOAD MASK
     8960   01 0272E    B2C227E3              LW,12    *:IORTN,1         LOAD EXPECTED STATUS
     8961   01 0272F    68002731              B        %+2               GO TO STATUS MESSAGE BUILDING

     8963   01 02730    32C027E5     :STATER1 LW,12    :STATUSCC         LOAD RECEIVED STATUS
     8964   01 02731    25700074 A            SLS,7    -12
     8965   01 02732    25C00074 A            SLS,12   -12               POSITION CC AND STATUS
     8966   01 02733    6AF02747              BAL,15   :BINCOVT          GO TO CONVERT CC
     8967   01 02734    25F00070 A            SLS,15   -16               POSITION CC
     8968   01 02735    55F227D2              STH,15   :STATEM2+8,1      STORE CC IN MSG
     8969   01 02736    22500012 A            LI,5     18                MSG BYTE INDEX=18
     8970   01 02737    22400004 A            LI,4     4                 MINOR INDEX=4
     8971   01 02738    6AF02747              BAL,15   :BINCOVT          CONVERT BINARY TO EBCDIC MASKED
     8972   01 02739    75FA27CD              STB,15   :STATEM2+3,5      STATUS BIT TO ERROR MSG
     8973   01 0273A    205FFFFF A            AI,5     -1                BYTE INDEX-1
     8974   01 0273B    25F00078 A            SLS,15   -8                ADJUST CONVERTED STATUS BITS
     8975   01 0273C    64402739              BDR,4    %-3               MINOR INDEX-1 NOT ZERO
     8976   01 0273D    64502737              BDR,5    %-6               BYTE INDEX-1 NOT ZERO
     8977   01 0273E    325C27D2              LW,5     :EXPOBS-1,6       LOAD EITHER 'OBS' OR 'EXP' MSG
     8978   01 0273F    465027CA              XW,5     :STATEM2          SAVE TYPE OF OPERATION & FETCH MG BC
     8979   01 02740    72500005 A            LB,5     5                 POSITION MSG BYTE COUNT
     8980   01 02741    755027CA              STB,5    :STATEM2          SAVE MESSAGE BYTE COUNT
     8981   01 02742    EAF0021C              BAL,15   *:PRINT           GO PRINT OUT MSG
     8982   01 02743    000027CA              DATA     :STATEM2
     8983   01 02744    64602730              BDR,6    :STATER1          IS THERE ANY MSG LEFT
     8984   01 02745    126027DC              LD,6     :REG0607          RESTORE REGISTER 6 & 7
     8985   01 02746    68002711              B        :DEVEXIT          TAKE ERROR EXIT

     8987   01 02747    154027E0     :BINCOVT STD,4    :BIN0405          SAVE REGISTERS 4 & 5
     8988   01 02748    35F027E2              STW,15   :BINRTN           SAVE REGISTER  15
     8989   01 02749    EAF00216              BAL,15   *:BINC            GO CONVERT BINARY TO EBCDIC
     8990   01 0274A    680C274A              B        %,6               IF IT IS EXPECT MASK
     8991   01 0274B    68002754              B        :BINEXIT          IF IT IS RECEIVED EXIT
     8992   01 0274C    22400003 A   :BINCOT1 LI,4     3                 LOAD INCREMENT POINTER
     8993   01 0274D    225000E7 A            LI,5     'X'               LOAD A 'X'
     8994   01 0274E    2570027F A   :BINCOT2 SCS,7    -1                TEST A BIT
     8995   01 0274F    33000007 A            MTW,0    7                 TEST FOR NEGATIVE
     8996   01 02750    69102752              BLZ      %+2               IF NEGATIVE,DON'T ADD 'X'
     8997   01 02751    7558000F A            STB,5    15,4              STORE 'X'
     8998   01 02752    204FFFFF A            AI,4     -1                INCREMENT STORAGE POINTER
     8999   01 02753    6810274E              BGEZ     :BINCOT2          GO TO TEST NEXT BYTE
     9000   01 02754    124027E0     :BINEXIT LD,4     :BIN0405          RESTORE REGISTER 4 & 5
     9001   01 02755    E80027E2              B        *:BINRTN          RETURN

     9003   01 02756    00002765     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     9004   01 02757    0000276A              DATA     :CCERM2
     9005   01 02758    00002770              DATA     :CCERM3
     9006   01 02759    00002776              DATA     :CCERM4
     9007   01 0275A    00002780              DATA     :CCERM5
     9008   01 0275B    00002786     :ERRADR2 DATA     :CCERM6
     9009   01 0275C    0000278A              DATA     :CCERM7
     9010   01 0275D    0000278E              DATA     :CCERM8
     9011   01 0275E    00002792              DATA     :CCERM9
     9012   01 0275F    000027AE              DATA     :CCERMF
     9013   01 02760    0000279A     :ERRADR3 DATA     :CCERMB
     9014   01 02761    0000279F              DATA     :CCERMC
     9015   01 02762    000027A4              DATA     :CCERMD
     9016   01 02763    000027A9              DATA     :CCERME
     9017   01 02764    000027AE              DATA     :CCERMF
     9018   01 02765    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            01 02766    60D5D6E3 A
            01 02767    40C1C3C3 A
            01 02768    C5D7E3C5 A
            01 02769    C4404040 A
     9019   01 0276A    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            01 0276B    60E2C9D6 A
            01 0276C    40D5D6E3 A
            01 0276D    40D7D6E2 A
            01 0276E    E2C9C2D3 A
            01 0276F    C5404040 A
     9020   01 02770    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            01 02771    60C4C5E5 A
            01 02772    40C2E4E2 A
            01 02773    E840C1E3 A
            01 02774    40C8C1D3 A
            01 02775    E3404040 A
     9021   01 02776    25E3C4E5 A   :CCERM4  TEXTC    'TDV-DEV DEPENDENT CONDITION CC1,2= 01'
            01 02777    60C4C5E5 A
            01 02778    40C4C5D7 A
            01 02779    C5D5C4C5 A
            01 0277A    D5E340C3 A
            01 0277B    D6D5C4C9 A
            01 0277C    E3C9D6D5 A
            01 0277D    40C3C3F1 A
            01 0277E    6BF27E40 A
            01 0277F    F0F14040 A
     9022   01 02780    15C1C9D6 A   :CCERM5  TEXTC    'AIO-UNUSUAL INTERRUPT'
            01 02781    60E4D5E4 A
            01 02782    E2E4C1D3 A
            01 02783    40C9D5E3 A
            01 02784    C5D9D9E4 A
            01 02785    D7E34040 A
     9023   01 02786    0DE2C9D6 A   :CCERM6  TEXTC    'SIO-BUSY SIOP'
            01 02787    60C2E4E2 A
            01 02788    E840E2C9 A
            01 02789    D6D74040 A
     9024   01 0278A    0DE3C9D6 A   :CCERM7  TEXTC    'TIO-BUSY SIOP'
            01 0278B    60C2E4E2 A
            01 0278C    E840E2C9 A
            01 0278D    D6D74040 A
     9025   01 0278E    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            01 0278F    60C3C3F1 A
            01 02790    6BF27EF1 A
            01 02791    F0404040 A
     9026   01 02792    0DE3C4E5 A   :CCERM9  TEXTC    'TDV-BUSY SIOP'
            01 02793    60C2E4E2 A
            01 02794    E840E2C9 A
            01 02795    D6D74040 A
     9027   01 02796    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            01 02797    60C3C3F1 A
            01 02798    6BF27EF1 A
            01 02799    F0404040 A
     9028   01 0279A    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            01 0279B    60D5D640 A
            01 0279C    C1D960C4 A
            01 0279D    C5E54040 A
            01 0279E    E7E7E7E7 A
     9029   01 0279F    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            01 027A0    60D5D640 A
            01 027A1    C1D960C4 A
            01 027A2    C5E54040 A
            01 027A3    E7E7E7E7 A
     9030   01 027A4    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            01 027A5    60D5D640 A
            01 027A6    C1D960C4 A
            01 027A7    C5E54040 A
            01 027A8    E7E7E7E7 A
     9031   01 027A9    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            01 027AA    60D5D640 A
            01 027AB    C1D960C4 A
            01 027AC    C5E54040 A
            01 027AD    E7E7E7E7 A
     9032   01 027AE    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            01 027AF    60D5D640 A
            01 027B0    C9D5E3C5 A
            01 027B1    D9D9E4D7 A
            01 027B2    E340D9C5 A
            01 027B3    C3D6C740 A
     9033   01 027B4    23C1C9D6 A   :DAERM   TEXTC    'AIO-DEV ADDR ERROR: EXP XXX REC XXX'
            01 027B5    60C4C5E5 A
            01 027B6    40C1C4C4 A
            01 027B7    D940C5D9 A
            01 027B8    D9D6D97A A
            01 027B9    40C5E7D7 A
            01 027BA    40E7E7E7 A
            01 027BB    40D9C5C3 A
            01 027BC    40E7E7E7 A
     9034   01 027BD    33404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR   XXX'
            01 027BE    40404040 A
            01 027BF    40404040 A
            01 027C0    F0F1F2F3 A
            01 027C1    40F4F5F6 A
            01 027C2    F740F8F9 A
            01 027C3    F0F140F2 A
            01 027C4    F3F4F540 A
            01 027C5    C3C3F16B A
            01 027C6    F240C4C5 A
            01 027C7    E540C1C4 A
            01 027C8    C4D94040 A
            01 027C9    40E7E7E7 A
     9035   01 027CA    23404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX'
            01 027CB    40E2E3C1 A
            01 027CC    E3E4E240 A
            01 027CD    E7E7E7E7 A
            01 027CE    40E7E7E7 A
            01 027CF    E740E7E7 A
            01 027D0    E7E740E7 A
            01 027D1    E7E7E740 A
            01 027D2    4040E7E7 A
     9036   01 027D3    40D6C2E2 A   :EXPOBS  TEXT     ' OBS'
     9037   01 027D4    40C5E7D7 A            TEXT     ' EXP'
     9038   01 027D5    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            01 027D6    40E3C9D6 A
            01 027D7    40C8C9D6 A
            01 027D8    40E3C4E5 A
            01 027D9    40C1C9D6 A
     9039                                     BOUND    8
     9040   01 027DA    00000000 A   :REG0405 DATA     0,0               STORAGE FOR REGS  4 &  5
            01 027DB    00000000 A
     9041   01 027DC    00000000 A   :REG0607 DATA     0,0               STORAGE FOR REG 6 & 7
            01 027DD    00000000 A
     9042   01 027DE    00000000 A   :REG1213 DATA     0,0               STORAGE FOR REGS 12 & 13
            01 027DF    00000000 A
     9043   01 027E0    00000000 A   :BIN0405 DATA     0,0
            01 027E1    00000000 A
     9044   01 027E2    00000000 A   :BINRTN  DATA     0
     9045   01 027E3    00000000 A   :IORTN   DATA     0                 STORAGE FOR REG  15
     9046   01 027E4    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     9047                            :STATUSCC  ;
     9048   01 027E5    00000000 A            DATA     0                 RECEIVED STATUS AND CONDITION CODES
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  116
A    9050                            *               *** IO EXECUTE ***

     9052                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     9053                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.

     9055                            *       INPUT PARAMETERS:

     9057                            *         REG 0   -DA(IOCD)
     9058                            *         REG 15  -RETURN ADDRESS
     9059                            *         :DEVADDR-DEVICE ADDRESS

     9061                            *       REGISTERS DISTURBED:

     9063                            *         (NONE)

     9065                            *       OUTPUT PARAMETERS:

     9067                            *         REG 12-SIO COMMAND ADDRESS
     9068                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT

     9070                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     9071                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     9072                            *                      MANUAL CONDITION IS DETECTED.

     9074   01 027E6    3540280E     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     9075   01 027E7    35B0280F              STW,R11  :IOSAVE+1
     9076   01 027E8    15E02810              STD,R14  :IOSAVE+2
     9077   01 027E9    6AF026C6     :IOEXEC1 :TIO     X'F600C000',X'10000000'
            01 027EA    F600C000 A
            01 027EB    10000000 A
     9078   01 027EC    680027F0              B        %+4               B: STATUS OK
     9079   01 027ED    4BD02BFF              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     9080   01 027EE    68302806              BCR,3    :IOERR2           DEVICE MANUAL ERROR
     9081   01 027EF    680027F9              B        :IOERR1           B: TIO STATUS ERROR
     9082   01 027F0    6AF026C1              :SIO     X'F600C000',X'10000000',1 SKIP ON SUCCESS
            01 027F1    F600C000 A
            01 027F2    10000000 A
            01 027F3    680027F5
     9083   01 027F4    680027E9              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO
     9084   01 027F5    3240280E              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     9085   01 027F6    32B0280F              LW,R11   :IOSAVE+1
     9086   01 027F7    12E02810              LD,R14   :IOSAVE+2
     9087   01 027F8    E800000F A            B        *R15              EXIT
     9088                            *                                   TIO STATUS ERROR
     9089   01 027F9    6AF026CB     :IOERR1  :HIO     X'10008000',X'10000000',:IOEXEC1
            01 027FA    10008000 A
            01 027FB    10000000 A
            01 027FC    680027E9
     9090   01 027FD    6D000042 A            WD,0     X'42'             IO RESET
     9091   01 027FE    6D000042 A            WD,0     X'42'
     9092   01 027FF    6AF026C6              :TIO     X'F600C000',X'10000000',:IOEXEC1
            01 02800    F600C000 A
            01 02801    10000000 A
            01 02802    680027E9
     9093                            *                                   ENTER WAIT STATE
     9094   01 02803    EAF0022B     :IOERR1A BAL,15   *:WAIT
     9095   01 02804    00002812              DATA     :IOERM1           'CLEAR WAIT TO CONTINUE'
     9096   01 02805    680027E9              B        :IOEXEC1          LOOP TO ISSUE TIO
     9097                            *                                   DEVICE MANUAL ERROR
     9098   01 02806    32C003E2     :IOERR2  LW,R12   :DEVADDR          DEVICE ADDRESS
     9099   01 02807    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9100   01 02808    35F02819              STW,R15  :IOERM2+1         DEV ADDR TO MSG
     9101   01 02809    22C00040 A            LI,R12   X'40'             SUPPRESS LEADING 0 OF DEV ADDR
     9102   01 0280A    75C02819              STB,R12  :IOERM2+1
     9103   01 0280B    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     9104   01 0280C    00002818              DATA     :IOERM2
     9105   01 0280D    68002803              B        :IOERR1A          GO TO WAIT

     9107                                     BOUND    8
     9108   01 0280E                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
     9109   01 02812    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            01 02813    C1D940E6 A
            01 02814    C1C9E340 A
            01 02815    E3D640C3 A
            01 02816    D6D5E3C9 A
            01 02817    D5E4C540 A
     9110   01 02818    0EC4C5E5 A   :IOERM2  TEXTC    'DEV XXX MANUAL'
            01 02819    40E7E7E7 A
            01 0281A    40D4C1D5 A
            01 0281B    E4C1D340 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  117
A    9112                            *                 *** IO READY TEST

     9114                            * THE IOREADY ROUTINE LOOPS ON N TIMES ON A TIO - BIR SEQUENCE  AND
     9115                            * RETURNS TO THE CALLING ROUTINE IF THE DEV IS READY OR N IS DECREMENTED
     9116                            * TO ZERO (EXIT+1)

     9118   01 0281C    15402830     :IOREADY STD,4    :IORDYT           SAVE R4 AND R5
     9119   01 0281D    224FFE00 A            LI,4     -512              FIXED DELAY
     9120   01 0281E    68002821              B        %+3
     9121   01 0281F    15402830              STD,4    :IORDYT           SAVE R4 AND R5
     9122   01 02820    3A402832              LCW,4    :IORDYDL          VARIABLE DELAY
     9123   01 02821    35F02833              STW,15   :IORDYX           SAVE EXIT ADR
     9124   01 02822    2540047C A            SAS,4    -4                DEVIDE COUNT BY 16
     9125   01 02823    225FFFF0 A            LI,5     -16
     9126   01 02824    65502824              BIR,5    %                 LOOP 16 TIMES
     9127   01 02825    CDC003E2              TIO,12   *:DEVADDR         TIO
     9128   01 02826    68C0282E              BCR,12   :IORDY1           B: CC1,2 = 08 SIO CURRENTLY POS
     9129   01 02827    65402823              BIR,4    %-4               B: LOOP AGAIN
     9130   01 02828    6AF026C6              :TIO     X'FF00C000',X'10000000',0 ALWAYS FALL THROUGH
            01 02829    FF00C000 A
            01 0282A    10000000 A
            01 0282B    6800282C
     9131   01 0282C    CFC003E2              HIO,12   *:DEVADDR         HIO
     9132   01 0282D    33102833              MTW,1    :IORDYX           INCREMENT EXIT ADDR
     9133   01 0282E    12402830     :IORDY1  LD,4     :IORDYT           RESTORE R4 AND R5
     9134   01 0282F    E8002833              B        *:IORDYX          EXIT

     9136                                     BOUND 8
     9137   01 02830    00000000 A   :IORDYT  DATA     0,0
            01 02831    00000000 A
     9138   01 02832    00000000 A   :IORDYDL DATA     0                 VARIABLE DELAY
     9139   01 02833    00000000 A   :IORDYX  DATA     0                 EXIT ADR
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  118
A    9141                            *                 *** CLEAR BUFFER ***

     9143                            * THE CLEAR BUFFER SUBROUTINE CLEARS A SPECIFIED BUFFER AREA.
     9144                            *  BUFFER SIZE SPECIFIED IN NUMBER OF WORDS.

     9146                            *       INPUT PARAMETERS:

     9148                            *           REG 15  -RETURN ADDRESS
     9149                            *           :CLRADDR-WA(BUFFER)
     9150                            *           :CLRSIZE-BUFFER WORD SIZE

     9152                            *       REGISTERS DISTURBED:

     9154                            *           (NONE)

     9156                            *       OUTPUT PARAMETERS:

     9158                            *           (NONE)

     9160   01 02834    15402842     :CLEAR   STD,R4   :CLRSAVE          SAVE REGISTERS 4-6
     9161   01 02835    35602844              STW,R6   :CLRSAVE+2
     9162   01 02836    3250283F              LW,R5    :CLRADDR          BUFFER ADDRESS
     9163   01 02837    30502840              AW,R5    :CLRSIZE          BUFFER ADDR + BUFFER SIZE
     9164   01 02838    3A402840              LCW,R4   :CLRSIZE          -(BUFFER SIZE)
     9165   01 02839    22600000 A            LI,R6    0
     9166   01 0283A    B5680005 A            STW,R6   *R5,R4            0 TO BUFFER
     9167   01 0283B    6540283A              BIR,R4   %-1               COUNT NOT 0
     9168   01 0283C    12402842              LD,R4    :CLRSAVE          RESTORE REGISTERS 4-6
     9169   01 0283D    32602844              LW,R6    :CLRSAVE+2
     9170   01 0283E    E800000F A            B        *R15              EXIT

     9172   01 0283F    00000000 A   :CLRADDR DATA     0                 BUFFER ADDRESS
     9173   01 02840    00000000 A   :CLRSIZE DATA     0                 BUFFER SIZE
     9174                                     BOUND    8
     9175   01 02842                 :CLRSAVE RES      3                 REGISTERS 4-6
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  119
A    9177                            *                   *** C O M P A R E ***

     9179                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     9180                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     9181                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     9182                            *    UNEQUAL COMPARES SENSED.

     9184                            *       INPUT PARAMETERS:

     9186                            *           REG 15  -RETURN ADDRESS
     9187                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     9188                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     9189                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     9190                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     9191                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)

     9193                            *       REGISTERS DISTURBED:

     9195                            *           (NONE)

     9197                            *       OUTPUT PARAMETERS:

     9199                            *           NORMAL EXIT-RETURN ADDRESS
     9200                            *           ERROR EXIT -RETURN ADDRESS +1
     9201                            *           :COMERRT   -COUNT OF COMPARE ERRORS

     9203   01 02845    02200000 A   :COMPARE LCI      0
     9204   01 02846    2B00288B              STM,R0   :COMTEM1          SAVE REGISTERS 0-15
     9205   01 02847    22500000 A            LI,R5    0
     9206   01 02848    1550289E              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     9207   01 02849    324028A1              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     9208   01 0284A    325028A2              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     9209   01 0284B    304028A0              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     9210   01 0284C    305028A0              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     9211   01 0284D    1540289C              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     9212   01 0284E    3A4028A0              LCW,R4   :COMWCNT          -(WORD COUNT)
     9213   01 0284F    B258289C     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     9214   01 02850    B158289D              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     9215   01 02851    69302859              BCS,3    :COM2             UNEQUAL COMPARISON
     9216   01 02852    6540284F              BIR,R4   :COM1             WORD COUNT NOT 0
     9217   01 02853    3240289E              LW,R4    :COMERRT          ERROR TOTAL
     9218   01 02854    68302856              BCR,3    %+2               NO ERROR
     9219   01 02855    3310289A              MTW,1    :COMTEM1+15       ERROR-RETURN ADDRESS +1
     9220   01 02856    02200000 A            LCI      0
     9221   01 02857    2A00288B              LM,R0    :COMTEM1          RESTORE REGISTERS 0-15
     9222   01 02858    E800000F A            B        *R15              EXIT
     9223                            *                                   COMPARE ERROR
     9224   01 02859    3310289E     :COM2    MTW,1    :COMERRT          ERROR TOTAL +1
     9225   01 0285A    326028A3              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     9226   01 0285B    69302852              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     9227   01 0285C    3260289E              LW,6     :COMERRT          FETCH ERROR CNT
     9228   01 0285D    316028A4              CW,6     :COMPLIM          TEST LIMIT
     9229   01 0285E    69202855              BG       :COM1+6           EXIT
     9230   01 0285F    3260289F              LW,R6    :COMTEM3          HEADER FLAG
     9231   01 02860    69302871              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D
     9232                            *                                   PRINT ERROR MSG HEADER
     9233   01 02861    3310289F              MTW,1    :COMTEM3          SET HDR FLAG
     9234   01 02862    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9235   01 02863    000028A5              DATA     :COMERM1
     9236   01 02864    32C028A1              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     9237   01 02865    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9238   01 02866    22600001 A            LI,R6    1                 INDEX=1
     9239   01 02867    55F028AD              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     9240   01 02868    52F0000F A            LH,R15   R15
     9241   01 02869    55FC28AC              STH,R15  :COMERM2+3,R6
     9242   01 0286A    32C028A2              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     9243   01 0286B    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9244   01 0286C    35F028B1              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     9245   01 0286D    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9246   01 0286E    000028A9              DATA     :COMERM2
     9247   01 0286F    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9248   01 02870    000028B2              DATA     :COMERM3
     9249                            *                                   PRINT EXPECTED, OBSERVED WORDS
     9250   01 02871    32C028A0     :COM3    LW,R12   :COMWCNT          NUMBER OF WORDS
     9251   01 02872    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     9252   01 02873    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9253   01 02874    35F028CE              STW,R15  :COMERM4+13       WRD CNT TO MSG
     9254   01 02875    B2C8289C              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     9255   01 02876    22D028C1              LI,R13   :COMERM4          ERROR MSG ADDR
     9256   01 02877    6AE02880              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     9257   01 02878    EAF0021C              BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     9258   01 02879    000028C1              DATA     :COMERM4
     9259   01 0287A    B2C8289D              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     9260   01 0287B    22D028CF              LI,R13   :COMERM5          ERROR MSG ADDR
     9261   01 0287C    6AE02880              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     9262   01 0287D    EAF0021C              BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     9263   01 0287E    000028CF              DATA     :COMERM5
     9264   01 0287F    68002852              B        :COM1+3           RETURN TO COMPARISON
     9265                            *                                   ENTER STATUS BITS INTO MESSAGE
     9266   01 02880    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     9267   01 02881    22700004 A            LI,R7    4                 MINOR INDEX=4
     9268   01 02882    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     9269   01 02883    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     9270   01 02884    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     9271   01 02885    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     9272   01 02886    64702883              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     9273   01 02887    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     9274   01 02888    21600009 A            CI,R6    9                 BYTE INDEX:9
     9275   01 02889    69202881              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     9276   01 0288A    E800000E A            B        *R14              ENTER COMPLETE-EXIT

     9278   01 0288B                 :COMTEM1 RES      16                REGISTERS 0-15
     9279                                     BOUND    8
     9280   01 0289C    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            01 0289D    00000000 A
     9281   01 0289E    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     9282   01 0289F    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     9283   01 028A0    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     9284   01 028A1    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     9285   01 028A2    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     9286   01 028A3    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     9287   01 028A4    00000001 A   :COMPLIM DATA     1                 COMPARE LIMIT COUNT
     9288   01 028A5    0DC3D6D4 A   :COMERM1 TEXTC    'COMPARE ERROR'
            01 028A6    D7C1D9C5 A
            01 028A7    40C5D9D9 A
            01 028A8    D6D94040 A
     9289   01 028A9    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            01 028AA    40C2C6D9 A
            01 028AB    40C1C4C4 A
            01 028AC    D940E7E7 A
            01 028AD    E7E740D6 A
            01 028AE    C2E240C2 A
            01 028AF    C6D940C1 A
            01 028B0    C4C4D940 A
            01 028B1    E7E7E7E7 A
     9290                            :COMERM3 TEXTC    ;
     9291   01 028B2    38404040 A    '         0123 4567 8901 2345 6789 0123 4567 8901  WD CNT'
            01 028B3    40404040 A
            01 028B4    4040F0F1 A
            01 028B5    F2F340F4 A
            01 028B6    F5F6F740 A
            01 028B7    F8F9F0F1 A
            01 028B8    40F2F3F4 A
            01 028B9    F540F6F7 A
            01 028BA    F8F940F0 A
            01 028BB    F1F2F340 A
            01 028BC    F4F5F6F7 A
            01 028BD    40F8F9F0 A
            01 028BE    F14040E6 A
            01 028BF    C440C3D5 A
            01 028C0    E3404040 A
     9292   01 028C1    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            01 028C2    C5C3E3C5 A
            01 028C3    C4404040 A
     9293         0000000B                    DO       11
     9294   01 028C4    40404040 A            DATA     X'40404040'       SPACES
     9295                                     FIN
            01 028C5    40404040 A
            01 028C6    40404040 A
            01 028C7    40404040 A
            01 028C8    40404040 A
            01 028C9    40404040 A
            01 028CA    40404040 A
            01 028CB    40404040 A
            01 028CC    40404040 A
            01 028CD    40404040 A
            01 028CE    40404040 A
     9296   01 028CF    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            01 028D0    C5D9E5C5 A
            01 028D1    C4404040 A
     9297         0000000B                    DO       11
     9298   01 028D2    40404040 A            DATA     X'40404040'       SPACES
     9299                                     FIN
            01 028D3    40404040 A
            01 028D4    40404040 A
            01 028D5    40404040 A
            01 028D6    40404040 A
            01 028D7    40404040 A
            01 028D8    40404040 A
            01 028D9    40404040 A
            01 028DA    40404040 A
            01 028DB    40404040 A
            01 028DC    40404040 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  120
A    9301                            *                *** DELAY FOR I/O INTERRUPT ***

     9303                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     9304                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.

     9306                            *       INPUT PARAMETERS:

     9308                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     9309                            *         REG 15- RETURN ADDRESS

     9311                            *       REGISTERS DISTURBED:

     9313                            *         (NONE)

     9315                            *       OUTPUT PARAMETERS:

     9317                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     9318                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     9319                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)

     9321   01 028DD    35F028F3     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     9322   01 028DE    25E0007F A            SLS,R14  -1                DELAY TIME /2
     9323   01 028DF    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER
     9324   01 028E0    35E028F2              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     9325   01 028E1    6AF028EA              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     9326   01 028E2    32F02B78              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     9327   01 028E3    683028E2              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     9328   01 028E4    6AF028EE              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     9329   01 028E5    32F028F3     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     9330   01 028E6    E800000F A            B        *R15              EXIT
     9331                            *                                   DELAY TIMEOUT
     9332   01 028E7    6AF028EE     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     9333   01 028E8    331028F3              MTW,1    :DELSAVE          RETURN ADDRESS +1
     9334   01 028E9    680028E5              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT
     9335                            *                                   ARM/ENABLE COUNTER 4 INTERRUPTS
     9336   01 028EA    35F028F4     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     9337   01 028EB    22F01040 A            LI,R15   X'1040'           BITS 19,25
     9338   01 028EC    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     9339   01 028ED    E80028F4              B        *:DELSAVE+1       EXIT
     9340                            *                                   DISARM COUNTER 4 INTERRUPTS
     9341   01 028EE    35F028F4     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     9342   01 028EF    22F01040 A            LI,R15   X'1040'           BITS 19,25
     9343   01 028F0    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     9344   01 028F1    E80028F4              B        *:DELSAVE+1       EXIT

     9346   01 028F2    00000000 A   :DELTIME DATA     0                 DELAY TIME CTR 4 DECREMENT POSITION
     9347   01 028F3    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            01 028F4    00000000 A
     9348                                     BOUND    8
     9349   01 028F6    00000000 A   :DELAYTO DATA     0,0
            01 028F7    00000000 A
     9350   01 028F8    000028E7              DATA     :DELTO,0
            01 028F9    00000000 A
     9351   01 028FA    0F0028F6     :DELXPSD XPSD,0   :DELAYTO
     9352   01 028FB    33F028F2     :DELMTW  MTW,-1   :DELTIME

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  121
A    9355                            *                 *** ERROR ROUTINE ***
     9356                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     9357                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     9358                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     9359                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     9360                            * TRUE OR FALSE CONDITION. A ZERO BYTE   WILL INDICATE THE END OF THE
     9361                            * BYTE STRING. AFTER THE BIT TESTS, THE REMAINING BITS OF THE STATUS
     9362                            * PREVIOUSLY SELECTED WILL BE TESTED.

     9364                            * THE BYTE HAS THE FOLLOWING FORMAT:

     9366                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     9367                            * ----------                 -----    ----------
     9368                            * 0 NOT ALLOWED              0 FALSE  0 MASK X'80', BYT   -, COM2<COM1
     9369                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYT = 0, COM2=COM1
     9370                            * 2 OPERATIONAL STATUS (TIO)   TEST   2 MASK X'20', BYT  +1, COM2=COM1+1
     9371                            * 3 HIO STATUS                        3 MASK X'10', BYT  +2, COM2=COM1+2
     9372                            * 4 TDV STATUS                        4 MASK X'08', BYT  +3, COM2=COM1+3
     9373                            * 5 SIO STATUS                        5 MASK X'04', BYT  +4, COM2=COM1+4
     9374                            * 6 AIO STATUS                        6 MASK X'02', BYT  +5, COM2=COM1+5
     9375                            * 7 INTERRUPT STATUS (AIO)            7 MASK X'01', BYT  +6, COM2=COM1+6
     9376                            * 8 BYTE 8 OF SENSE DATA
     9377                            * 9 NOT ASSIGNED
     9378                            * A NOT ASSIGNED
     9379                            * B NOT ASSIGNED
     9380                            * C NOT ASSIGNED
     9381                            * D NOT ASSIGNED
     9382                            * E BYTE COUNT TEST (TIO)
     9383                            * F COMMAND ADDR TEST (TIO)

     9385                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     9386                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     9387                            * STORED IN THE TABLE, THE ERROR ROUTINE  SR WILL ISSUE THE APPROPRIATE
     9388                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.

     9390                            * CALLING SEQUENCE: BAL,15 :ERRORT
     9391                            *                   DATA   BA(TSEQNNN)
     9392                            * NORMAL EXIT:      B      (CONTINUE TEST)
     9393                            * ERROR  EXIT:             (IDENTIFY SUBTEST)

     9395                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)

     9397                            * VARIABLES REQUIRED: STATUS IN SAVE TABLE
     9398                            *                     STARTING COMMAND ADR

     9400                            * OTHER SUBROUTINES: CLEAR STATUS SAVE TABLE (:SAVECLR)
     9401                            *                    STORE STATUS IN SAVE TABLE (:SAVETIO,:SAVEHIO,
     9402                            *                    :SAVETDV,:SAVESIO,:SAVEAIO,:SAVESSA,SAVESSB,:TIO,
     9403                            *                    :TDV,:HIO)

     9405                            * THE FOLLOWING EQUATE STATEMENTS ASSIGN LABELS TO BYTE VALUES

     9407                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7  :TSEQEQU  X'10'
     9408                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7  :TSEQEQU  X'18'
     9409                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7  :TSEQEQU  X'20'
     9410                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7  :TSEQEQU  X'28'
     9411                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7  :TSEQEQU  X'30'
     9412                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7  :TSEQEQU  X'38'
     9413                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7  :TSEQEQU  X'40'
     9414                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7  :TSEQEQU  X'48'
     9415                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7  :TSEQEQU  X'50'
     9416                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7  :TSEQEQU  X'58'
     9417                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7  :TSEQEQU  X'60'
     9418                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7  :TSEQEQU  X'68'
     9419                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7  :TSEQEQU  X'70'
     9420                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7  :TSEQEQU  X'78'
     9421                            SBAF0,SBAF1,SBAF2,SBAF3,SBAF4,SBAF5,SBAF6,SBAF7  :TSEQEQU  X'80'
     9422                            SBAT0,SBAT1,SBAT2,SBAT3,SBAT4,SBAT5,SBAT6,SBAT7  :TSEQEQU  X'88'
     9423                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06  :TSEQEQU  X'E0'
     9424                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06  :TSEQEQU  X'F0'

     9426   01 028FC    02200000 A   :ERRORT  LCI      0
     9427   01 028FD    2B0029B8              STM,0    :ERRTMP1          SAVE ALL REGISTERS
     9428   01 028FE    B250000F A            LW,5     *15               FETCH BYTE ADDR
     9429   01 028FF    22000000 A            LI,0     0
     9430   01 02900    350029CC              STW,0    :ERRTFLG          RESET ERROR FLAG
     9431   01 02901    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     9432   01 02902    6830298D              BCR,3    :ERRT13           BRANCH: BYTE = 0
     9433   01 02903    22700000 A            LI,7     0
     9434   01 02904    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     9435   01 02905    356029C9              STW,6    :ERRTMP3          SAVE INDEX
     9436   01 02906    21600009 A            CI,6     9
     9437   01 02907    6910290D              BCS,1    :ERRT1            B: RANGE OF INDEX 1 - 8
     9438   01 02908    2160000D A            CI,6     13
     9439   01 02909    6920295B              BCS,2    :ERRT11           BRANCH: RANGE OF INDEX 14 - 15
     9440   01 0290A    EAF0022B              BAL,15   *:WAIT
     9441   01 0290B    00002BD2              DATA     WAITMSG1          /// HALT ///
     9442   01 0290C    6800290A              B        %-2               PROGRAM ERRORS

     9444   01 0290D    328C2AA4     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     9445   01 0290E    69102931              BCS,1    :ERRT6            BRANCH: STATUS IN TABLE
     9446   01 0290F    21600005 A            CI,6     5
     9447   01 02910    69102914              BCS,1    :ERRT2            BRANCH: RANGE OF INDEX 1 - 4
     9448   01 02911    EAF0022B              BAL,15   *:WAIT
     9449   01 02912    00002BD2              DATA     WAITMSG1          /// HALT ///
     9450   01 02913    68002911              B        %-2               PROGRAM ERROR
     9451   01 02914    21600003 A   :ERRT2   CI,6     3
     9452   01 02915    6930291D              BCS,3    :ERRT3            BRANCH: NOT HIO TEST
     9453   01 02916    6AF026CB              :HIO     X'00008000',0,1   SKIP ON SUCCESS
            01 02917    00008000 A
            01 02918    00000000 A
            01 02919    6800291B
     9454   01 0291A    68002959              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9455   01 0291B    6AF02A7A              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     9456   01 0291C    6800290D              B        :ERRT1            FETCH STATUS

     9458   01 0291D    21600004 A   :ERRT3   CI,6     4
     9459   01 0291E    69302926              BCS,3    :ERRT4            BRANCH: NOT TDV TEST
     9460   01 0291F    6AF026D0              :TDV     X'00008000',0,1   SKIP ON SUCCESS
            01 02920    00008000 A
            01 02921    00000000 A
            01 02922    68002924
     9461   01 02923    68002959              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9462   01 02924    6AF02A7F              BAL,15   :SAVETDV          STORE TDV STATUS
     9463   01 02925    6800290D              B        :ERRT1            FETCH STATUS

     9465   01 02926    6AF02928     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     9466   01 02927    6800290D              B        :ERRT1

     9468   01 02928    35F02930     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
     9469   01 02929    6AF026C6              :TIO     X'00008000',0,1   SKIP ON SUCCESS
            01 0292A    00008000 A
            01 0292B    00000000 A
            01 0292C    6800292E
     9470   01 0292D    68002959              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9471   01 0292E    6AF02A6C              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
     9472   01 0292F    E8002930              B        *:ERRT5X          EXIT                    IN TABLE
     9473   01 02930    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR

     9475   01 02931    22600000 A   :ERRT6   LI,6     0
     9476   01 02932    25600301 A            SCD,6    1                 FETCH BIT 4
     9477   01 02933    356029C8              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG
     9478   01 02934    22600000 A            LI,6     0
     9479   01 02935    25600303 A            SCD,6    3                 FETCH BITS 5 - 7
     9480   01 02936    35602A55              STW,6    :ERRBITS
     9481   01 02937    729C29CA              LB,9     :ERRTMSK,6        FETCH MASK
     9482   01 02938    49800009 A            OR,8     9                 UPDATE CURRENT MASK
     9483   01 02939    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
     9484   01 0293A    6940293E              BCS,4    :ERRT7            BRANCH: MATCH BETWEEN STATUS & MASK
     9485   01 0293B    330029C8              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     9486   01 0293C    68302941              BCR,3    :ERRT8            BRANCH: FALSE TEST SUCCESSFUL
     9487   01 0293D    68002945              B        :ERRT9            BRANCH: TRUE  TEST UNSUCCESSFUL

     9489   01 0293E    330029C8     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     9490   01 0293F    68302945              BCR,3    :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL
     9491   01 02940    68002941              B        :ERRT8            BRANCH: TRUE  TEST SUCCESSFUL

     9493   01 02941    326029C9     :ERRT8   LW,6     :ERRTMP3          FETCH INDEX
     9494   01 02942    358C2AA4              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
     9495   01 02943    33100005 A   :ERRT8A  MTW,1    5                 INCREMENT BYTE ADDR
     9496   01 02944    68002901              B        :ERRT0            TEST NEXT BYTE

     9498   01 02945    326029C9     :ERRT9   LW,6     :ERRTMP3          FETCH INDEX
     9499   01 02946    358C2AA4              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
     9500   01 02947    326029C9     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
     9501   01 02948    327C29CD              LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
     9502   01 02949    35702A43              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT
     9503   01 0294A    327C2A4C              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
     9504   01 0294B    32602A55              LW,6     :ERRBITS          FETCH BIT SELECTED
     9505   01 0294C    928C0007 A            LD,8     *7,6              FETCH DOUBLEWORD ERROR MESSAGE
     9506   01 0294D    15802A46              STD,8    :ERRTMG1+4        STORE DOUBLEWORD TO OUTPUT FORMAT
     9507   01 0294E    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
     9508   01 0294F    75622A45              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
     9509   01 02950    326029C8              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
     9510   01 02951    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     9511   01 02952    75642A49              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT
     9512   01 02953    326029C8              LW,6     :ERRTMP2
     9513   01 02954    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
     9514   01 02955    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     9515   01 02956    75602A4B              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT
     9516   01 02957    EAF0021C              BAL,15   *:PRINT
     9517   01 02958    00002A42              DATA     :ERRTMG1

     9519   01 02959    331029CC     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
     9520   01 0295A    68002943              B        :ERRT8A

     9522   01 0295B    328C2AA4     :ERRT11  LW,8     :SAVETAB,6        FETCH STATUS
     9523   01 0295C    6910295E              BCS,1    %+2               BRANCH: STATUS IN TABLE
     9524   01 0295D    6AF02928              BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     9525   01 0295E    4B802BE3              AND,8    =X'FFFF'          BITS 16 - 31
     9526   01 0295F    52820008 A            LH,8     8,1
     9527   01 02960    2160000E A            CI,6     14
     9528   01 02961    6930298A              BCS,3    :ERRT12           BRANCH: COMMAND ADDR TEST
     9529   01 02962    25600304 A   :ERRT11A SCD,6    4                 FETCH BITS 4 - 7
     9530   01 02963    4B602C2E              AND,6    =X'7'
     9531   01 02964    69302968              BCS,3    :ERRT11B          BRANCH: NOT EQUAL TO ZERO
     9532   01 02965    33000008 A            MTW,0    8                 TEST BYTE COUNT OR COMMAND DIFF
     9533   01 02966    69102943              BCS,1    :ERRT8A           BRANCH: NEGATIVE TEST SUCCESSFUL
     9534   01 02967    68002975              B        :ERRT91A          B: NEGATIVE TEST NOT SUCCESSFUL
     9535   01 02968    33F00006 A   :ERRT11B MTW,-1   6                 SUBTRACT 1 FROM BITS 5 - 7
     9536   01 02969    31600008 A            CW,6     8                 COMPARE R8 TO TEST VALUE
     9537   01 0296A    68302943              BCR,3    :ERRT8A           BRANCH:      TEST SUCCESSFUL
     9538   01 0296B    327029C9     :ERRT92A LW,7     :ERRTMP3          FETCH INDEX
     9539   01 0296C    2170000E A            CI,7     14                BYTE COUNT OR COMMAND ADDRESS
     9540   01 0296D    68302972              BCR,3    :ERRT92C          BRANCH IF EQUAL TO
     9541   01 0296E    32902AB8              LW,9    :SAVCOM1           FETCH ORIG COMMAND ADDRESS
     9542   01 0296F    30900006 A            AW,9     6                 SAVCOM1 + 1
     9543   01 02970    3590000C A            STW,9    12                STORE IN R12
     9544   01 02971    6800297B              B        :ERRT92B          BRANCH
     9545   01 02972    30602C2F     :ERRT92C AW,6     =X'F0F0F0F0'      CONVERT INDEX TO EBCDIC
     9546   01 02973    3560000F A            STW,6    15                STORE  IN R15
     9547   01 02974    6800297F              B        :ERRT91C          BRANCH
     9548   01 02975    327029C9     :ERRT91A LW,7     :ERRTMP3          FETCH INDEX
     9549   01 02976    2170000E A            CI,7     14                BYTE COUNT  OR  COMMAND ADDRESS
     9550   01 02977    6830297E              BCR,3    :ERRT91B          BRANCH IF EQUAL TO
     9551   01 02978    32902AB8              LW,9    :SAVCOM1           FETCH ORIG COMMAND ADRS.
     9552   01 02979    38900001 A            SW,9     1                 SUBTRACT 1 FROM SAVCOM1
     9553   01 0297A    3590000C A            STW,9    12                STORE IN R12
     9554   01 0297B    EAF00218     :ERRT92B BAL,15   *:HEXC            CONVERT TO EBCDIC
     9555   01 0297C    12A02A62              LD,10    :ERRTCAM          FETCH COMMAND ADDRESS ID
     9556   01 0297D    68002980              B        %+3               BRANCH
     9557   01 0297E    32F02A5F     :ERRT91B LW,15    :ERRTNEG          FETCH EXPECTED NEGATIVE WORD
     9558   01 0297F    12A02A60     :ERRT91C LD,10    :ERRTBCM          FETCH BYTE COUNT ID
     9559   01 02980    35A02A57              STW,10   :ERRTMG2+1        STORE  ID
     9560   01 02981    35B02A58              STW,11   :ERRTMG2+2                  IN MESSAGE
     9561   01 02982    35F02A5B              STW,15   :ERRTMG2+5        STORE R15 IN MESSAGE
     9562   01 02983    326029C9              LW,6     :ERRTMP3          FETCH INDEX
     9563   01 02984    32CC2AA4              LW,12    :SAVETAB,6        LOAD BYTE COUNT OR COMMAND ADR
     9564   01 02985    EAF00218              BAL,15   *:HEXC            CONVERT INTO EBCDIC
     9565   01 02986    35F02A5E              STW,15   :ERRTMG2+8        STORE R15 IN MESSAGE
     9566   01 02987    EAF0021C              BAL,15   *:PRINT           BRANCH TO PRINT ROUTINE
     9567   01 02988    00002A56              DATA     :ERRTMG2
     9568   01 02989    68002959              B        :ERRT10           B: TEST NEXT BIT

     9570   01 0298A    32902AB8     :ERRT12  LW,9     :SAVCOM1          FETCH ORIGINAL COMMAND ADDR
     9571   01 0298B    38800009 A            SW,8     9                 FIND DIFFERENCE OF COMMAND ADDRESSES
     9572   01 0298C    68002962              B        :ERRT11A

     9574   01 0298D    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
     9575   01 0298E    32882AAE              LW,8     :SAVETAB+10,4     FETCH STATUS
     9576   01 0298F    6810299E              BCR,1    :ERRT14           BRANCH: NO STATUS
     9577   01 02990    72960008 A            LB,9     8,3               FETCH CURRENT MASK
     9578   01 02991    6830299E              BCR,3    :ERRT14           BRANCH: STATUS NOT PREVIOUSLY TESTED
     9579   01 02992    22A00000 A            LI,10    0
     9580   01 02993    75A00008 A            STB,10   8                 RESET STATUS FLAG
     9581   01 02994    35882AAE              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
     9582   01 02995    22A000FF A            LI,10    X'FF'
     9583   01 02996    4890000A A            EOR,9    10                COMPLEMENT CURRENT MASK
     9584   01 02997    72A40008 A            LB,10    8,2               FETCH STANDARD MASK
     9585   01 02998    4B90000A A            AND,9    10                STATUS COMPARE MASK FOR REMAINING
     9586   01 02999    72A20008 A            LB,10    8,1               FETCH STATUS BYTE              BITS
     9587   01 0299A    4BA00009 A            AND,10   9                 TEST STATUS
     9588   01 0299B    693029A4              BCS,3    :ERRT15           BRANCH: STATUS IN ERROR
     9589   01 0299C    330029CC              MTW,0    :ERRTFLG           TEST ERROR FLAG
     9590   01 0299D    693029A4              BNEZ     :ERRT15           BRANCH: PRINT STATUS
     9591   01 0299E    6540298E     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
     9592   01 0299F    02200000 A            LCI      0
     9593   01 029A0    2A0029B8              LM,0     :ERRTMP1          RESTORE REGISTERS
     9594   01 029A1    330029CC              MTW,0    :ERRTFLG          TEST ERROR FLAG
     9595   01 029A2    E832000F A            BCR,3    *15,1             NORMAL EXIT
     9596   01 029A3    E804000F A            B        *15,2             ERROR EXIT

     9598   01 029A4    32C829D7     :ERRT15  LW,12    :ERRTYPE+10,4       FETCH STATUS TYPE
     9599   01 029A5    35C029D7              STW,12   :ERRTM1+1         STORE SATUS ID
     9600   01 029A6    EAF0021C              BAL,15   *:PRINT           PRINT LINE 1
     9601   01 029A7    000029D6              DATA     :ERRTM1           MSG = '   TIO 01234567'
     9602   01 029A8    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
     9603   01 029A9    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     9604   01 029AA    35F029DD              STW,15   :ERRTM2+3         STORE IN MSG AREA
     9605   01 029AB    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     9606   01 029AC    35F029DC              STW,15   :ERRTM2+2         STORE IN MSG AREA
     9607   01 029AD    EAF0021C              BAL,15   *:PRINT           PRINT LINE 2
     9608   01 029AE    000029DA              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
     9609   01 029AF    72C60009 A            LB,12    9,3               FETCH MASK
     9610   01 029B0    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     9611   01 029B1    35F029E1              STW,15   :ERRTM3+3         STORE IN MSG AREA
     9612   01 029B2    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     9613   01 029B3    35F029E0              STW,15   :ERRTM3+2         STORE IN MSG AREA
     9614   01 029B4    EAF0021C              BAL,15   *:PRINT           PRINT LINE 3
     9615   01 029B5    000029DE              DATA     :ERRTM3           MSG = '  MASK MMMMMMMM'
     9616   01 029B6    331029CC              MTW,1    :ERRTFLG          INCR ERROR TALLY
     9617   01 029B7    6800299E              B        :ERRT14

     9619   01 029B8                 :ERRTMP1 RES      16                REGISTER SAVE AREA
     9620   01 029C8    00000000 A   :ERRTMP2 DATA     0                 TRUE/FALSE TEST FLAG
     9621   01 029C9    00000000 A   :ERRTMP3 DATA     0                 INDEX
     9622   01 029CA    80402010 A   :ERRTMSK GEN,8,8,8,8  X'80',X'40',X'20',X'10'   TEST
     9623   01 029CB    08040201 A            GEN,8,8,8,8  X'08',X'04',X'02',X'01'     MASKS
     9624   01 029CC    00000000 A   :ERRTFLG DATA     0
     9625   01 029CD    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB ','SB8 '
            01 029CE    E3C9D640 A
            01 029CF    D6E2C240 A
            01 029D0    C8C9D640 A
            01 029D1    E3C4E540 A
            01 029D2    E2C9D640 A
            01 029D3    C1C9D640 A
            01 029D4    C9E2C240 A
            01 029D5    E2C2F840 A
     9626   01 029D6    0F404040 A   :ERRTM1  TEXTC    '   XXX 01234567' STATUS
            01 029D7    E7E7E740 A
            01 029D8    F0F1F2F3 A
            01 029D9    F4F5F6F7 A
     9627   01 029DA    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            01 029DB    E3E4E240 A
            01 029DC    C2C2C2C2 A
            01 029DD    C2C2C2C2 A
     9628   01 029DE    0F4040D4 A   :ERRTM3  TEXTC    '  MASK MMMMMMMM'   MSGS
            01 029DF    C1E2D240 A
            01 029E0    D4D4D4D4 A
            01 029E1    D4D4D4D4 A
     9629                                     BOUND    8
     9630   01 029E2    C9D5E340 A   :ERRTTBA TEXT     'INT PEND'        BIT 0
            01 029E3    D7C5D5C4 A
     9631   01 029E4    D5D6E340 A            TEXT     'NOT OP ?'        BIT 1   TIO
            01 029E5    D6D7406F A
     9632   01 029E6    E4D5C1E5 A            TEXT     'UNAVAIL?'        BIT 2
            01 029E7    C1C9D36F A
     9633   01 029E8    4040C1E4 A            TEXT     '  AUTO  '        BIT 3     SIO                (1)
            01 029E9    E3D64040 A
     9634   01 029EA    404040E4 A            TEXT     '   UE   '        BIT 4                        (3)
            01 029EB    C5404040 A
     9635   01 029EC    D5D6E340 A            TEXT     'NOT OP ?'        BIT 5       HIO              (5)
            01 029ED    D6D7406F A
     9636   01 029EE    E4D5C1E5 A            TEXT     'UNAVAIL?'        BIT 6
            01 029EF    C1C9D36F A
     9637   01 029F0    D5D6E340 A            TEXT     'NOT USED'        BIT 7         STATUS
            01 029F1    E4E2C5C4 A
     9638   01 029F2    C9D5C340 A   :ERRTTBB TEXT     'INC LEN '        BIT 0
            01 029F3    D3C5D540 A
     9639   01 029F4    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            01 029F5    E2D44040 A
     9640   01 029F6    E3D9C1D5 A            TEXT     'TRANSMEM'        BIT 2   OPERATIONAL
            01 029F7    E2D4C5D4 A
     9641   01 029F8    D4C5D440 A            TEXT     'MEM ADR '        BIT 3
            01 029F9    C1C4D940 A
     9642   01 029FA    C9D6D740 A            TEXT     'IOP MEM '        BIT 4     STATUS BYTE (OSB)
            01 029FB    D4C5D440 A
     9643   01 029FC    C9D6D740 A            TEXT     'IOP CONT'        BIT 5                        (2)
            01 029FD    C3D6D5E3 A
     9644   01 029FE    C9D6D740 A            TEXT     'IOP HALT'        BIT 6
            01 029FF    C8C1D3E3 A
     9645   01 02A00    E2C9D6D7 A            TEXT     'SIOPBUSY'        BIT 7
            01 02A01    C2E4E2E8 A
     9646   01 02A02    D6E5C5D9 A   :ERRTTBC TEXT     'OVERRUN '        BIT 0
            01 02A03    D9E4D540 A
     9647   01 02A04    C6D3C1E6 A            TEXT     'FLAW MRK'        BIT 1
            01 02A05    40D4D9D2 A
     9648   01 02A06    E2E4D5C1 A            TEXT     'SUNAVAIL'        BIT 2   TDV
            01 02A07    E5C1C9D3 A
     9649   01 02A08    D5D6E340 A            TEXT     'NOT USED'        BIT 3
            01 02A09    E4E2C5C4 A
     9650   01 02A0A    E5C5D9C9 A            TEXT     'VERIF E '        BIT 4     STATUS             (4)
            01 02A0B    C640C540 A
     9651   01 02A0C    D6D560C3 A            TEXT     'ON-CYL  '        BIT 5
            01 02A0D    E8D34040 A
     9652   01 02A0E    E3C9D4C5 A            TEXT     'TIMEOUT '        BIT 6
            01 02A0F    D6E4E340 A
     9653   01 02A10    C8C440D7 A            TEXT     'HD PAR E'        BIT 7
            01 02A11    C1D940C5 A
     9654   01 02A12    D6E5C5D9 A   :ERRTTBD TEXT     'OVERRUN '        BIT 0
            01 02A13    D9E4D540 A
     9655   01 02A14    D5D6E340 A            TEXT     'NOT USED'        BIT 1
            01 02A15    E4E2C5C4 A
     9656   01 02A16    D5D6E340 A            TEXT     'NOT USED'        BIT 2   AIO
            01 02A17    E4E2C5C4 A
     9657   01 02A18    D5D6E340 A            TEXT     'NOT USED'        BIT 3
            01 02A19    E4E2C5C4 A
     9658   01 02A1A    D5D6E340 A            TEXT     'NOT USED'        BIT 4     STATUS             (6)
            01 02A1B    E4E2C5C4 A
     9659   01 02A1C    D6D560C3 A            TEXT     'ON-CYL  '        BIT 5
            01 02A1D    E8D34040 A
     9660   01 02A1E    E3C9D4C5 A            TEXT     'TIMEOUT '        BIT 6
            01 02A1F    D6E4E340 A
     9661   01 02A20    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            01 02A21    E4E2C5C4 A
     9662   01 02A22    C9D5C340 A   :ERRTTBE TEXT     'INC LEN '        BIT 0
            01 02A23    D3C5D540 A
     9663   01 02A24    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            01 02A25    E2D44040 A
     9664   01 02A26    E9C2C340 A            TEXT     'ZBC INT '        BIT 2   INTERRUPT
            01 02A27    C9D5E340 A
     9665   01 02A28    40C3C540 A            TEXT     ' CE INT '        BIT 3
            01 02A29    C9D5E340 A
     9666   01 02A2A    40E4C540 A            TEXT     ' UE INT '        BIT 4     STATUS BYTE (ISB)  (7)
            01 02A2B    C9D5E340 A
     9667   01 02A2C    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            01 02A2D    E4E2C5C4 A
     9668   01 02A2E    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            01 02A2F    E4E2C5C4 A
     9669   01 02A30    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            01 02A31    E4E2C5C4 A
     9670   01 02A32    C440D7C1 A   :ERRTTBF TEXT     'D PAR E '        BIT 0
            01 02A33    D940C540 A
     9671   01 02A34    C3C8D2E6 A            TEXT     'CHKWRT E'        BIT 1
            01 02A35    D9E340C5 A
     9672   01 02A36    E2C5C3E3 A            TEXT     'SECT COM'        BIT 2   SENSE
            01 02A37    40C3D6D4 A
     9673   01 02A38    C8C5C1C4 A            TEXT     'HEAD COM'        BIT 3
            01 02A39    40C3D6D4 A
     9674   01 02A3A    C3E8D340 A            TEXT     'CYL COM '        BIT 4     BYTE  8            (8)
            01 02A3B    C3D6D440 A
     9675   01 02A3C    C8C440C1 A            TEXT     'HD ADR E'        BIT 5
            01 02A3D    C4D940C5 A
     9676   01 02A3E    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            01 02A3F    E4E2C5C4 A
     9677   01 02A40    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            01 02A41    E4E2C5C4 A
     9678   01 02A42    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            01 02A43    E7E7E740 A
            01 02A44    C2C9E340 A
            01 02A45    40E7404D A
            01 02A46    E7E7E7E7 A
            01 02A47    E7E7E7E7 A
            01 02A48    5D40C5E7 A
            01 02A49    D740E740 A
            01 02A4A    D6C2E240 A
            01 02A4B    E7404040 A
     9679   01 02A4C    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,:ERRTTBC,:ERRTTBA
            01 02A4D    000029E2
            01 02A4E    000029F2
            01 02A4F    000029E2
            01 02A50    00002A02
            01 02A51    000029E2
     9680   01 02A52    00002A12              DATA     :ERRTTBD,:ERRTTBE,:ERRTTBF
            01 02A53    00002A22
            01 02A54    00002A32
     9681   01 02A55    00000000 A   :ERRBITS DATA     0
     9682   01 02A56    23404040 A   :ERRTMG2 TEXTC    '   XXXXXXX - EXP.  XXXX  OBS.  XXXX'
            01 02A57    E7E7E7E7 A
            01 02A58    E7E7E740 A
            01 02A59    6040C5E7 A
            01 02A5A    D74B4040 A
            01 02A5B    E7E7E7E7 A
            01 02A5C    4040D6C2 A
            01 02A5D    E24B4040 A
            01 02A5E    E7E7E7E7 A
     9683   01 02A5F    40D5C5C7 A   :ERRTNEG TEXT     ' NEG'
     9684                                     BOUND    8
     9685   01 02A60    C2E8E340 A   :ERRTBCM TEXT     'BYT CNT '        BYTE COUNT MESSAGE
            01 02A61    C3D5E340 A
     9686   01 02A62    C3D6D440 A   :ERRTCAM TEXT     'COM ADR '        COMMAND ADDRESS MESSAGE
            01 02A63    C1C4D940 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  122
A    9688                            *                 *** SAVECLR                                ***
     9689                            *                 *** SAVETIO, -HIO,-TDV,-SIO,-AIO,-SSA,-SSB ***
     9690                            *                     ROUTINES

     9692                            * THE SUBROUTINES CLEAR THE STATUS SAVE TABLE ('SAVETAB') AND STORE
     9693                            * THE SELECTED STATUS IN THE CELL.

     9695                            * CALLING SEQUENCE: BAL,15  :SAVE---
     9696                            * NORMAL EXIT:      ---     ---

     9698                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)

     9700                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
     9701                            *                     R12 - CURRENT COMMAND ADDR

     9703                            * OTHER SUBROUTINES: NONE

     9705   01 02A64    15402AB4     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
     9706   01 02A65    224FFFE0 A            LI,4     -32               INDEX
     9707   01 02A66    22500000 A            LI,5     0                 0
     9708   01 02A67    55582AB4              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
     9709   01 02A68    65402A69              BIR,4    %+1               INCR R4
     9710   01 02A69    65402A67              BIR,4    %-2               LOOP
     9711   01 02A6A    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9712   01 02A6B    E800000F A            B        *15               EXIT

     9714   01 02A6C    15402AB4     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
     9715   01 02A6D    35D02AB6              STW,13   :SAVETMP+2       SAVE STATUS
     9716   01 02A6E    22402AA5              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
     9717   01 02A6F    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9718   01 02A70    22402AA6              LI,4     WA(:SAVETAB+2)    INDEX - OSB
     9719   01 02A71    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9720   01 02A72    32D02AB6              LW,13    :SAVETMP+2        FETCH STATUS
     9721   01 02A73    55D22AB2              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
     9722   01 02A74    225FFFFF A            LI,5     -1
     9723   01 02A75    75502AB2              STB,5    :SAVETAB+14,0     SET FLAG
     9724   01 02A76    55C22AB3              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
     9725   01 02A77    75502AB3              STB,5    :SAVETAB+15,0     SET FLAG
     9726   01 02A78    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9727   01 02A79    E800000F A            B        *15               EXIT

     9729   01 02A7A    15402AB4     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
     9730   01 02A7B    22402AA7              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
     9731   01 02A7C    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9732   01 02A7D    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9733   01 02A7E    E800000F A            B        *15               EXIT
     9734   01 02A7F    15402AB4     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
     9735   01 02A80    22402AA8              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
     9736   01 02A81    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9737   01 02A82    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9738   01 02A83    E800000F A            B        *15               EXIT

     9740   01 02A84    15402AB4     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
     9741   01 02A85    22402AA9              LI,4     WA(:SAVETAB+5)    INDEX - SIO
     9742   01 02A86    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9743   01 02A87    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9744   01 02A88    E800000F A            B        *15               EXIT

     9746   01 02A89    15402AB4     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
     9747   01 02A8A    35D02AB6              STW,13   :SAVETMP+2        SAVE STATUS
     9748   01 02A8B    22402AAA              LI,4      WA(:SAVETAB+6)   INDEX - AIO
     9749   01 02A8C    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9750   01 02A8D    22402AAB              LI,4      WA(:SAVETAB+7)   INDEX - ISB
     9751   01 02A8E    6A502A9C              BAL,5    :SAVEALL          STORE STATUS
     9752   01 02A8F    32D02AB6              LW,13    :SAVETMP+2        FETCH STATUS
     9753   01 02A90    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9754   01 02A91    E800000F A            B        *15               EXIT

     9756   01 02A92    15402AB4     :SAVESSA STD,4    :SAVETMP          SAVE R4 AND R5
     9757   01 02A93    22402AAC              LI,4     WA(:SAVETAB+8)    SAVE STATUS
     9758   01 02A94    6A502A9C              BAL,5    :SAVEALL          RESTORE R4 AND R5
     9759   01 02A95    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9760   01 02A96    E800000F A            B        *15               EXIT

     9762   01 02A97    15402AB4     :SAVESSB STD,4    :SAVETMP          SAVE R4 AND R5
     9763   01 02A98    22402AAD              LI,4     WA(:SAVETAB+9)    SAVE STATUS
     9764   01 02A99    6A502A9C              BAL,5    :SAVEALL          RESTORE R4 AND R5
     9765   01 02A9A    12402AB4              LD,4     :SAVETMP          RESTORE R4 AND R5
     9766   01 02A9B    E800000F A            B        *15               EXIT

     9768   01 02A9C    35502AB7     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
     9769   01 02A9D    22500000 A            LI,5     0
     9770   01 02A9E    F5560004 A            STB,5    *4,3              CLEAR CURRENT STATUS MASK
     9771   01 02A9F    25D00208 A            SCS,13   +8
     9772   01 02AA0    F5D20004 A            STB,13   *4,1              STORE CURRENT STATUS
     9773   01 02AA1    225FFFFF A            LI,5     -1
     9774   01 02AA2    F5500004 A            STB,5    *4,0              STORE FLAG
     9775   01 02AA3    E8002AB7              B        *:SAVETMP+3        EXIT

     9777                                     BOUND    8
     9778         01 02AA4           :SAVETAB EQU      %
     9779   01 02AA4    00000000 A            DATA     0                 UNDEFINED                    0
     9780   01 02AA5    0000EF00 A            DATA     X'0000EF00'       TIO STATUS                   1
     9781   01 02AA6    0000FF00 A            DATA     X'0000FF00'       OSB STATUS                   2
     9782   01 02AA7    0000EF00 A            DATA     X'0000EF00'       HIO STATUS                   3
     9783   01 02AA8    0000FB00 A            DATA     X'0000FB00'       TDV STATUS                     4
     9784   01 02AA9    0000EF00 A            DATA     X'0000EF00'       SIO STATUS                   5
     9785   01 02AAA    0000FF00 A            DATA     X'0000FF00'       AIO STATUS                   6
     9786   01 02AAB    0000FF00 A            DATA     X'0000FF00'       ISB STATUS                   7
     9787   01 02AAC    0000FB00 A            DATA     X'0000FB00'       SBA STATUS                   8
     9788   01 02AAD    0000FF00 A            DATA     X'0000FF00'       SBB STATUS                   9
     9789   01 02AAE    00000000 A            DATA     0,0,0,0           NOT ASSIGNED                 10 - 13
            01 02AAF    00000000 A
            01 02AB0    00000000 A
            01 02AB1    00000000 A
     9790   01 02AB2    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR      14 - 15
            01 02AB3    00000000 A
     9791   01 02AB4    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            01 02AB5    00000000 A
            01 02AB6    00000000 A
            01 02AB7    00000000 A
     9792   01 02AB8    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR

1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  123
A    9795                            *                *** PATTERN SPREAD ***

     9797                            * THE PATTERN SPREAD SUBROUTINE SPREADS A WORD PATTERN ACCORDING TO
     9798                            *  THE TYPE SPECIFIED.

     9800                            *             TYPE 0 - SPREAD WORD PATTERN
     9801                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
     9802                            *             TYPE 2 - SPREAD RANDOM PATTERN
     9803                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
     9804                            *             TYPE 4 - SPREAD 3-WORD PATTERN

     9806                            *       INPUT PARAMETERS:

     9808                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
     9809                            *                     WORD 1 - TYPE (0-4)
     9810                            *                     WORD 2 - PATTERN (TYPE 0,1)
     9811                            *                              RANDOM GENERATOR SEED (TYPE 2)
     9812                            *                              WA(PATTERN) (TYPE 3,4)
     9813                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
     9814                            *                              INCREMENT (TYPE 1)

     9816                            *           :PATWC  - PATTERN WORD COUNT
     9817                            *           :PATBFR - WA(BUFFER)

     9819                            *       REGISTERS DISTURBED:

     9821                            *           (NONE)

     9823                            *       OUTPUT PARAMETERS:

     9825                            *           (NONE)

     9827   01 02AB9    02200050 A   :PATTERN LCI      5
     9828   01 02ABA    2B602B04              STM,R6   :PATSAVE          SAVE REGISTERS 6-10
     9829   01 02ABB    32702AFE              LW,R7    :PATID            PATTERN ID-TYPE
     9830   01 02ABC    680E2ABD              B        %+1,R7            GO TO SPECIFIED SPREAD TYPE
     9831   01 02ABD    68002AC3              B        :PAT0
     9832   01 02ABE    68002ACC              B        :PAT1
     9833   01 02ABF    68002AD4              B        :PAT2
     9834   01 02AC0    68002AEB              B        :PAT3
     9835   01 02AC1    68002AF2              B        :PAT4
     9836   01 02AC2    68002AC9              B        :PATEXIT          EXIT - USE EXISTING PATTERN
     9837                            *                                   SPREAD FIXED PATTERN
     9838   01 02AC3    32802B01     :PAT0    LW,R8    :PATWC            WORD COUNT
     9839   01 02AC4    30802B02              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9840   01 02AC5    3A702B01              LCW,R7   :PATWC            -(WORD COUNT)
     9841   01 02AC6    32902AFF              LW,R9    :PATID+1          PATTERN
     9842   01 02AC7    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9843   01 02AC8    65702AC7              BIR,R7   %-1               WORD COUNT NOT 0
     9844   01 02AC9    02200050 A   :PATEXIT LCI      5
     9845   01 02ACA    2A602B04              LM,R6    :PATSAVE          RESTORE REGISTERS 6-10
     9846   01 02ACB    E800000F A            B        *R15              EXIT
     9847                            *                                   SPREAD AND INCREMENT FIXED PATTERN
     9848   01 02ACC    32802B01     :PAT1    LW,R8    :PATWC            WORD COUNT
     9849   01 02ACD    30802B02              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9850   01 02ACE    3A702B01              LCW,R7   :PATWC            -(WORD COUNT)
     9851   01 02ACF    32902AFF              LW,R9    :PATID+1          PATTERN
     9852   01 02AD0    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9853   01 02AD1    30902B00              AW,R9    :PATID+2          INCR PATTERN
     9854   01 02AD2    65702AD0              BIR,R7   %-2               WORD COUNT NOT 0
     9855   01 02AD3    68002AC9              B        :PATEXIT          GO TO EXIT
     9856                            *                                   SPREAD RANDOM PATTERN
     9857   01 02AD4    02200050 A   :PAT2    LCI      5
     9858   01 02AD5    2BB02B09              STM,R11  :PATSAVE+5        SAVE REGISTERS 11-15
     9859   01 02AD6    32802B01              LW,R8    :PATWC            WORD COUNT
     9860   01 02AD7    30802B02              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9861   01 02AD8    3A702B01              LCW,R7   :PATWC            -(WORD COUNT)
     9862   01 02AD9    32E02AFF              LW,R14   :PATID+1          RANDOM NUM GEN SEED
     9863   01 02ADA    B5EE0008 A            STW,R14  *R8,R7            SEED TO PATTERN FIRST WORD
     9864   01 02ADB    65702ADD              BIR,R7   %+2               WORD COUNT NOT 0
     9865   01 02ADC    68002AE8              B        :PAT2A            GO TO EXIT
     9866   01 02ADD    33F00007 A            MTW,-1   7                 RESTORE INDEX
     9867   01 02ADE    32C02C30              LW,R12   =314159265        ESTABLISH :PK
     9868   01 02ADF    35C02B03              STW,12   :PK
     9869   01 02AE0    68002AE2              B        %+2
     9870   01 02AE1    B5EE0008 A            STW,14   *R8,R7            STORE WORD IN BUFFER
     9871   01 02AE2    25E00011 A            SLS,14   17
     9872   01 02AE3    B0EE0008 A            AW,14    *R8,R7            GENERATE
     9873   01 02AE4    46E02B03              XW,14    :PK
     9874   01 02AE5    30E02B03              AW,14    :PK                 RANDOM NUMBER
     9875   01 02AE6    65702AE1              BIR,7    %-5
     9876   01 02AE7    35E02B92              STW,14   :SEED             SAVE SEED
     9877   01 02AE8    02200050 A   :PAT2A   LCI      5
     9878   01 02AE9    2AB02B09              LM,R11   :PATSAVE+5        RESTORE REGISTERS 11-15
     9879   01 02AEA    68002AC9              B        :PATEXIT          GO TO EXIT
     9880                            *                                   SPREAD ADDRESS-SPECIFIED PATTERN
     9881   01 02AEB    32802B01     :PAT3    LW,R8    :PATWC            WORD COUNT
     9882   01 02AEC    30802B02              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9883   01 02AED    3A702B01              LCW,R7   :PATWC            -(WORD COUNT)
     9884   01 02AEE    B2902AFF              LW,9     *:PATID+1
     9885   01 02AEF    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9886   01 02AF0    65702AEF              BIR,R7   %-1               WRD CNT NOT 0
     9887   01 02AF1    68002AC9              B        :PATEXIT          GO TO EXIT
     9888                            *                                   SPREAD 3-WORD,ADDR-SPECIFIED PATTERN
     9889   01 02AF2    32802B01     :PAT4    LW,R8    :PATWC            WORD COUNT
     9890   01 02AF3    30802B02              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     9891   01 02AF4    3A702B01              LCW,R7   :PATWC            -(WORD COUNT)
     9892   01 02AF5    32A02AFF              LW,R10   :PATID+1          PATTERN ADDR
     9893   01 02AF6    20A00003 A            AI,R10   3                 PATTERN ADDRESS +3
     9894   01 02AF7    226FFFFD A            LI,R6    -3
     9895   01 02AF8    B29C000A A            LW,R9    *R10,R6           PATTERN
     9896   01 02AF9    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     9897   01 02AFA    33100007 A            MTW,1    R7                -(WORD COUNT) +1
     9898   01 02AFB    68102AC9              BCR,1    :PATEXIT          WORD COUNT = 0, EXIT
     9899   01 02AFC    65602AF8              BIR,R6   %-4               3 WORDS NOT ENTERED
     9900   01 02AFD    68002AF7              B        %-6

     9902                                     BOUND    8
     9903   01 02AFE    00000000 A   :PATID   DATA     0,0,0             PATTERN IDENTIFICATION
            01 02AFF    00000000 A
            01 02B00    00000000 A
     9904   01 02B01    00000000 A   :PATWC   DATA     0                 WORD COUNT
     9905   01 02B02    00000000 A   :PATBFR  DATA     0                 BUFFER ADDRESS
     9906   01 02B03    00000000 A   :PK      DATA     0
     9907   01 02B04                 :PATSAVE RES      10                REGISTERS 6-15
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  124
A    9909                            *                 *** ARM AND ENABLE IO INTERRUPT ***

     9911   01 02B0E    35F02B18     :INTAE   STW,15   :INTSAV1          SAVE EXIT ADR
     9912   01 02B0F    22F00000 A            LI,15    0
     9913   01 02B10    35F02B78              STW,15   :INTRECF          CLEAR IO INTER REC'D FLAG
     9914   01 02B11    22F00020 A            LI,15    X'20'             ARM AND ENABLE
     9915   01 02B12    6DF01200 A            WD,15    X'1200'             IO INTERRUPT
     9916   01 02B13    E8002B18              B        *:INTSAV1         EXIT

     9918                            *                 *** DISARM IO INTERRUPT ***

     9920   01 02B14    35F02B19     :INTD    STW,15   :INTSAV2          SAVE EXIT ADR
     9921   01 02B15    22F00020 A            LI,15    X'20'
     9922   01 02B16    6DF01100 A            WD,15    X'1100'           DISARM IO INTERRUPT
     9923   01 02B17    E8002B19              B        *:INTSAV2         EXIT

     9925   01 02B18    00000000 A   :INTSAV1 DATA     0                 EXIT ADR
     9926   01 02B19    00000000 A   :INTSAV2 DATA     0
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  125
A    9928                            *                 *** INTERRUPT ADDRESS TABLE ***

     9930                            * THIS ROUTINE UPDATES THE INTERRUPT ADDRESS TABLE ACCORDIND TO THE
     9931                            *  ENTRY POINT:

     9933                            *        :INTADRC - CLEAR INTERRUPT ADR TABLE
     9934                            *        :INTADRM - ENTER CURRENT DEVICE ADR - MULTI UNIT OPERRATION
     9935                            *        :INTADRD - DELETE DEVICE ADR - INDEX VALUE = INTSVX
     9936                            *        :INTADRS - ENTER CURRENT DEVICE ADR - SINGLE UNIT OPERATION

     9938                            *        INPUT PARAMETERS:

     9940                            *          REG 15
     9941                            *          :DEVADDR - CURRENT DEVICE ADR
     9942                            *          :INTSVX  - TABLE INDEX OF LAST INTERRUPT

     9944                            *        REGISTERS DISTURBED:

     9946                            *          (NONE)

     9948                            *        OUTPUT PARAMETERS:

     9950                            *          (NONE)

     9952   01 02B1A    35F02B44     :INTADRC STW,15   :INTADRE          SAVE EXIT ADR
     9953   01 02B1B    22F00000 A            LI,15    0                 CLEAR
     9954   01 02B1C    35F02B43              STW,15   :INTADRX            TABLE INDEX
     9955   01 02B1D    22FFFFFF A            LI,15    -1                STORE LAST ENTRY FLAG ( -1 )
     9956   01 02B1E    35F02B3A              STW,15   :INTTAB             INTO WORD 1 OF TABLE
     9957   01 02B1F    E8002B44              B        *:INTADRE         EXIT

     9959   01 02B20    35F02B44     :INTADRD STW,15   :INTADRE          SAVE EXIT ADR
     9960   01 02B21    35402B45              STW,4    :INTADRE+1        SAVE R4
     9961   01 02B22    32402B79              LW,4     :INTSVX           FETCH ADR TABLE INDEX
     9962   01 02B23    22F00000 A            LI,15    0                 CLEAR ONE WORD
     9963   01 02B24    35F82B42              STW,15   :INTTAB8,4          IN ADR TABLE (LAST INTER DEV)
     9964   01 02B25    68002B37              B        :INTADRZ

     9966   01 02B26    35402B45     :INTADRM STW,4    :INTADRE+1        SAVE R4
     9967   01 02B27    32402B43              LW,4     :INTADRX          FETCH CURRENT TABLE INDEX
     9968   01 02B28    21400007 A            CI,4     7                 COMPARE INDEX TO 7
     9969   01 02B29    69202B2C              BCS,2    :INTADRS+1        BRANCH: INDEX > 7
     9970   01 02B2A    68002B2D              B        :INTADRS+2
     9971   01 02B2B    35402B45     :INTADRS STW,4    :INTADRE+1        SAVE R4
     9972   01 02B2C    22400000 A            LI,4     0                 CURRENT TABLE INDEX = 0
     9973   01 02B2D    35F02B44              STW,15   :INTADRE          SAVE EXIT ADR
     9974   01 02B2E    32F003E2              LW,15    :DEVADDR          FETCH CURRENT DEVICE ADR
     9975   01 02B2F    35F82B3A              STW,15   :INTTAB,4         STORE DEV ADR IN TABLE
     9976   01 02B30    33100004 A            MTW,1    4                 INCREMENT CURRENT  TABLE INDEX
     9977   01 02B31    22FFFFFF A            LI,15    -1                STORE LAST ENTRY FLAG ( -1 )
     9978   01 02B32    35F82B3A              STW,15   :INTTAB,4           IN TABLE
     9979   01 02B33    35402B43              STW,4    :INTADRX          SAVE CURRENT TABLE INDEX
     9980   01 02B34    22F00000 A            LI,15    0                 CLEAR
     9981   01 02B35    35F02B76              STW,15   :INTSTAT            INTER STATUS AND
     9982   01 02B36    35F02B77              STW,15   :INTCC              AIO COND CODE
     9983   01 02B37    32402B45     :INTADRZ LW,4     :INTADRE+1        RESTORE 4
     9984   01 02B38    E8002B44              B        *:INTADRE

     9986                                     BOUND    8
     9987         01 02B3A           :INTTAB  EQU      %                 INTERRUPT
     9988         00000008                    DO       8
     9989   01 02B3A    FFFFFFFF A            DATA     -1                  ADDRESS TABLE
     9990                                     FIN
            01 02B3B    FFFFFFFF A
            01 02B3C    FFFFFFFF A
            01 02B3D    FFFFFFFF A
            01 02B3E    FFFFFFFF A
            01 02B3F    FFFFFFFF A
            01 02B40    FFFFFFFF A
            01 02B41    FFFFFFFF A
     9991   01 02B42    FFFFFFFF A   :INTTAB8 DATA     -1                    9 WORDS (INITIAL VALUE = -1)
     9992   01 02B43    00000000 A   :INTADRX DATA     0                 CURRENT ADR TABLE INDEX
     9993   01 02B44    00000000 A   :INTADRE DATA     0,0               TEMP STORAGE
            01 02B45    00000000 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  126
A    9995                            *                 *** INTERRUPT - SERVICE ***

     9997                            * THIS ROUTINE ACKNOWLEDGES AN IO INTERRUPT AND VERIFIES THE
     9998                            *  INTERRUPT DEVICE ADDRESS. IO INTERRUPT WILL BE DISARMED AND DISABLED
     9999                            *   IF INTERRUPT IS RECOGNIZED AND DEVICE ADDRESS WAS STORED IN TABLE.
    10000                            *        INPUT PARAMETERS

    10002                            *          (NONE)

    10004                            *        REGISTERS DISTURBED:

    10006                            *          (NONE)

    10008                            *        OUTPUT PARAMETERS:

    10010                            *          :INTSTAT - INTERRUPT STATUS AND ADR
    10011                            *          :INTCC   - INTERRUPT CONDITION CODE
    10012                            *          :INTRECF - INTERRUPT RECEIVED FLAG; RESET = 0, SET > 0
    10013                            *          :INTSVX  - NEG. INTERRUPT TABLE INDEX;
    10014                            *                       CURRENT TABLE WORD = WA(INTTAB8)-INTSVX

    10016   01 02B46    15402B70     :INTSV   STD,4    :INTSVSR          SAVE
    10017   01 02B47    15C02B72              STD,12   :INTSVSR+2
    10018   01 02B48    15E02B74              STD,14   :INTSVSR+4          REGISTERS
    10019   01 02B49    6ED00000 A            AIO,13                     AIO
    10020   01 02B4A    69802B61              BCS,8    :INTSV4           BRANCH: NO INTER RECOG
    10021   01 02B4B    74002B77              STCF     :INTCC            SAVE COND CODE
    10022   01 02B4C    22400001 A            LI,4     1
    10023   01 02B4D    52C2000D A            LH,12    13,1              LOAD DEV ADR FROM AIO STATUS
    10024   01 02B4E    224FFFF8 A            LI,4     -8                INDEX VALUE

    10026   01 02B4F    31C82B42     :INTSV1  CW,12    :INTTAB8,4        COMPARE INTER ADR TO CURRENT WORD
    10027   01 02B50    69302B59              BCS,3    :INTSV3           BRANCH: ADR NOT EQUAL
    10028   01 02B51    35D02B76              STW,13   :INTSTAT          SAVE INTERRUPT STATUS
    10029   01 02B52    35402B79              STW,4    :INTSVX           SAVE ADR TABLE INDEX
    10030   01 02B53    33102B78              MTW,1    :INTRECF          SET INTER RECEIVED FLAG
    10031   01 02B54    6AF02B14              BAL,15   :INTD             DISARM IO INTERRUPT

    10033   01 02B55    12402B70     :INTSV2  LD,4     :INTSVSR          RESTORE
    10034   01 02B56    12C02B72              LD,12    :INTSVSR+2
    10035   01 02B57    12E02B74              LD,14    :INTSVSR+4          REGISTERS
    10036   01 02B58    0E202B6C              LPSD,2   :INTSVDW          EXIT

    10038   01 02B59    33082B42     :INTSV3  MTW,0    :INTTAB8,4        TEST LAST TABLE ENTRY FLAG ( -1 )
    10039   01 02B5A    69102B5C              BCS,1    %+2               BRANCH: CURRENT WORD = -1
    10040   01 02B5B    65402B4F              BIR,4    :INTSV1           BRANCH: INCREMENT INDEX AND LOOP
    10041   01 02B5C    22402B7C              LI,4     :INTSVM           LOAD MSG ADR (SPURIOUS INTER)
    10042   01 02B5D    35402B66              STW,4    :INTSV6           SAVE MSG ADR
    10043   01 02B5E    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
    10044   01 02B5F    35F02B82              STW,15   :INTSVM+6         DEV ADR TO MSG
    10045   01 02B60    68002B65              B        :INTSV5

    10047   01 02B61    224027AE     :INTSV4  LI,4     :CCERMF           LOAD MSG ADR (NO INTER RECOG)

    10049   01 02B62    33F02B7B              MTW,-1   :INTSEEK          DECREASE COUNT OF EXPECTED
    10050   01 02B63    68302B68              BEZ      :INTSV7            NULL INTERRUPTS AND SKIP

    10052   01 02B64    35402B66              STW,4    :INTSV6           SAVE MSG ADR
    10053   01 02B65    EAF0021C     :INTSV5  BAL,15   *:PRINT            PRINT MSG
    10054   01 02B66    00000000 A   :INTSV6  DATA     0                 MSG ADR
    10055   01 02B67    68002B55              B        :INTSV2

    10057   01 02B68    12402B70     :INTSV7  LD,4     :INTSVSR          RESTORE ENVIRONMENT
    10058   01 02B69    12C02B72              LD,12    :INTSVSR+2         IF EXPECTED NULL INTERRUPT
    10059   01 02B6A    12E02B74              LD,14    :INTSVSR+4          AND EXIT ENABLED
    10060   01 02B6B    0E302B6C              LPSD,3   :INTSVDW

    10062                                     BOUND    8
    10063   01 02B6C    00000000 A   :INTSVDW DATA     0,0,:INTSV,X'04000000'
            01 02B6D    00000000 A
            01 02B6E    00002B46
            01 02B6F    04000000 A
    10064   01 02B70                 :INTSVSR RES      6                 REGISTERS 4,5,12,13,14,15
    10065   01 02B76    00000000 A   :INTSTAT DATA     0                 AIO STATUS AND DEV ADR
    10066   01 02B77    00000000 A   :INTCC   DATA     0                 AIO COND CODE
    10067   01 02B78    00000000 A   :INTRECF DATA     0                 INTER RECEIVED FLAG
    10068   01 02B79    00000000 A   :INTSVX  DATA     0                 ADR TABLE INDEX
    10069   01 02B7A    0F002B6C     :INTSVXP XPSD,0   :INTSVDW
    10070   01 02B7B    00000000 A   :INTSEEK DATA     0                 1=>NULL INTERRUPT EXPECTED
    10071   01 02B7C    1BE2D7E4 A   :INTSVM  TEXTC    'SPURIOUS INTERRUPT DEV XXXX'
            01 02B7D    D9C9D6E4 A
            01 02B7E    E240C9D5 A
            01 02B7F    E3C5D9D9 A
            01 02B80    E4D7E340 A
            01 02B81    C4C5E540 A
            01 02B82    E7E7E7E7 A
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  127
A   10073                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR

    10075                            *                 THE ALGORITHM

    10077                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
    10078                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
    10079                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
    10080                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
    10081                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.

    10083                            *                 THE PROCEDURE

    10085                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR

    10087                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
    10088                            *                 FOUND IN REGISTER-14.

    10090                            *        OPTION-1 CALLING SEQUENCE

    10092                            *        BAL,15   :RANDOMX

    10094                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
    10095                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.

    10097                            *        OPTION-2 CALLING SEQUENCE

    10099                            *        LW,14    :SEED             SEED IN REGISTER-14.
    10100                            *        BAL,15   :RANDOM

    10102                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.

    10104                            *        OPTION-3 CALLING SEQUENCE

    10106                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
    10107                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
    10108                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
    10109                            *        BAL,15   :RANDOMY

    10111   01 02B83    35C02B90     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
    10112   01 02B84    35D02B91              STW,13   :M2               SAVE PARAMETERS

    10114   01 02B85    35E02B92     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY

    10116   01 02B86    33102B90     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
    10117   01 02B87    68302B89              BCR,3    %+2               TEST, M1 + 1 = 0
    10118   01 02B88    33F02B91              MTW,-1   :M2               NO, M2 = M2 - 1
    10119   01 02B89    32E02B92              LW,14    :SEED
    10120   01 02B8A    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
    10121   01 02B8B    30E02B93              AW,14    :K                ADD CONSTANT :K
    10122   01 02B8C    48E02B90              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
    10123   01 02B8D    48E02B91              EOR,14   :M2               M(SEED) (+) M1 (+) M2
    10124   01 02B8E    35E02B92              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
    10125   01 02B8F    E800000F A            B        *15

    10127   01 02B90    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
    10128   01 02B91    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
    10129   01 02B92    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
    10130   01 02B93    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  128
A   10132         01 02B94           #CTBLS   EQU      %
    10133   01 02B94    00000100 A   #RLEN    DATA     256               RECORD LENGTH 256 WORDS
    10134   01 02B95    00000002 A   #HRLEN   DATA     2                 HEADER READ LENGTH 2 WORDS
    10135   01 02B96    0000000C A   #HWLEN   DATA     12                HEADER WRITE LENGTH
    10136   01 02B97    00000006 A   #SEEKIHW DATA     6                 SEEK INCR. COUNT FOR HEADER WRITE
    10137   01 02B98    00000001 A   #SECZERO DATA     1                 SECTOR ZERO FLAG
    10138   01 02B99    00000078 A   #SEEKREQ DATA     120               SEEK REQUIRED CONSTANT
    10139   01 02B9A    00005EB0 A   #DEFLTS  DATA     202*120                  RECORD DEFAULT START
    10140   01 02B9B    00005F27 A   #DEFLTE  DATA    (202*120)+119             RECORD DEFAULT END
    10141   01 02B9C    00000078 A   #ABSOLC  DATA     120               ABSOLUTE RECORD CONVERSION COUNT
    10142   01 02B9D    00000006 A   #ABSOLC1 DATA     6                 ABSOLUTE TRACK CONVERSION COUNT
    10143   01 02B9E    00005F28 A   #RECMAX  DATA     203*120           MAXIMUM ABSOLUTE RECORD COUNT
    10144   01 02B9F    FFFFFFFA A   #HWINDEX DATA     -6                HEADER WRITE INDEX
    10145   01 02BA0    FFFFFFFF A   #HRINDEX DATA     -1                HEADER READ  INDEX
    10146   01 02BA1    00000013 A   #FILLHD  DATA     19                   LAST LEGAL HEAD ADDRESS
    10147   01 02BA2    00000005 A   #FILLSEC DATA     5                    LAST LEGAL SECTOR ADDRESS
    10148   01 02BA3    000000CA A   #FILLTRK DATA     202                  LAST LEGAL TRACK ADDR
    10149   01 02BA4    000000C8 A   #ALTRCYL DATA     200               FIRST ALTERNATE CYLINDER

    10151   01 02BA5    FFFFFFFF A   #RLSOPT  DATA     -1                RELEASE/RESERVE FUNCTIONAL
    10152   01 02BA6    FFFFFFFF A   #TMOPT   DATA     -1                TEST MODE FUNCTIONAL
    10153   01 02BA7    00000050 A   #ASEEKT  DATA     75+5              MAXIMUM MEAN SEEK TIME (MILLISECONDS)
    10154   01 02BA8    00000000 A   #HDRTYPE DATA     0                 HEADER TYPE (203 CYLS.)
    10155   01 02BA9    00CA1000 A   #TSTSHDR DATA     202**16+16**8     TEST TRACKS: HEADS 16-19, CYL 202
    10156         01 02BAA           #CTBLE   EQU      %

    10158         00000400           #RBYTC   EQU      256*4             RECORD BYTE COUNT
    10159         00000030           #HRBYTC  EQU      2*6*4             HEADER READ BYTE COUNT
    10160         00000030           #HWBYTC  EQU      2*6*4             HEADER WRITE BYTE COUNT
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  129
A   10162   01 02BAA    00002C33     IOBF1    DATA       USERPROG+2      COMPARE BUFFER STARTING ADDR (256)
    10163   01 02BAB    00002D33     IOBUF    DATA       USERPROG+258      IO BUFFER STARTING ADDR (768)

    10165                            *        *** INTERRUPT/TRAP HANDLER ***

    10167                            * PARAMETERS REQ'D:
    10168                            *-----------------
    10169                            *    ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
    10170                            *    ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
    10171                            *    ITHRST  - RESTART ADDRESS

    10173   01 02BAC    35F02BC3     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
    10174   01 02BAD    32C02BC0              LW,12    ITHTEST           TEST NUMBER
    10175   01 02BAE    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
    10176   01 02BAF    75F22BC5              STB,15   ITHM2+1,1         ENTER INTO MSG
    10177   01 02BB0    EAF0021C              BAL,15   *:PRINT
    10178   01 02BB1    00002BC4              DATA     ITHM2             'TSTX WILL BE RESTARTED'
    10179   01 02BB2    31102BC0              CW,1     ITHTEST           TST1
    10180   01 02BB3    69302BB9              BNE      %+6               NO
    10181   01 02BB4    32C02BC1              LW,12    ITHSUBT           SUBTEST NUMBER
    10182   01 02BB5    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
    10183   01 02BB6    55F22BCD              STH,15   ITHM3+3,1         ENTER INTO MSG
    10184   01 02BB7    EAF0021C              BAL,15   *:PRINT
    10185   01 02BB8    00002BCA              DATA     ITHM3             'SUBTEST NO. XX'
    10186   01 02BB9    32C003E2              LW,12    :DEVADDR          DEVICE ADDRESS
    10187   01 02BBA    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
    10188   01 02BBB    35F02BD1              STW,15   ITHM4+3           (R15)=RESTART ADDRESS
    10189   01 02BBC    EAF0021C              BAL,15   *:PRINT
    10190   01 02BBD    00002BCE              DATA     ITHM4             'DEVICE N0.XXXX'
    10191   01 02BBE    32F02BC2              LW,15    ITHRST            (R15)= RESTART ADDRESS
    10192   01 02BBF    E8002BC3              B        *ITHSAVE          RETURN TO MONITOR INTER/TRAP

    10194   01 02BC0    00000000 A   ITHTEST  DATA     0
    10195   01 02BC1    00000000 A   ITHSUBT  DATA     0
    10196   01 02BC2    00000000 A   ITHRST   DATA     0
    10197   01 02BC3    00000000 A   ITHSAVE  DATA     0
    10198   01 02BC4    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            01 02BC5    E3E740E6 A
            01 02BC6    C9D3D340 A
            01 02BC7    C2C540D9 A
            01 02BC8    C5E2E3C1 A
            01 02BC9    D9E3C5C4 A
    10199   01 02BCA    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            01 02BCB    C2E3C5E2 A
            01 02BCC    E340D5D6 A
            01 02BCD    4B40E7E7 A
    10200   01 02BCE    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            01 02BCF    E5C9C3C5 A
            01 02BD0    40D5D64B A
            01 02BD1    E7E7E7E7 A
    10201   01 02BD2    0DD7D9D6 A   WAITMSG1 TEXTC    'PROGRAM ERROR'
            01 02BD3    C7D9C1D4 A
            01 02BD4    40C5D9D9 A
            01 02BD5    D6D94040 A
    10202   01 02BD6    23E2C9D6 A   WAITMSG2 TEXTC    'SIO CANNOT BE EXECUTED SUCCESSFULLY'
            01 02BD7    40C3C1D5 A
            01 02BD8    D5D6E340 A
            01 02BD9    C2C540C5 A
            01 02BDA    E7C5C3E4 A
            01 02BDB    E3C5C440 A
            01 02BDC    E2E4C3C3 A
            01 02BDD    C5E2E2C6 A
            01 02BDE    E4D3D3E8 A
    10203                            USERPROG END
            01 02BDF    00003001
            01 02BE0    40D3D67A A
            01 02BE1    4040C37A A
            01 02BE2    80000000 A
            01 02BE3    0000FFFF A
            01 02BE4    31415927 A
            01 02BE5    000007F0 A
            01 02BE6    00CA1305 A
            01 02BE7    FC000000 A
            01 02BE8    00000100 A
            01 02BE9    01000000 A
            01 02BEA    00000301 A
            01 02BEB    A5A5A5A5 A
            01 02BEC    FFFFFF7E A
            01 02BED    00FFFFFF A
            01 02BEE    FF0000FF A
            01 02BEF    000000FF A
            01 02BF0    00FFFF00 A
            01 02BF1    FF000000 A
            01 02BF2    5A5A5AFF A
            01 02BF3    5A5A5A5A A
            01 02BF4    06000000 A
            01 02BF5    AA55AA55 A
            01 02BF6    00010203 A
            01 02BF7    04040404 A
            01 02BF8    000186A0 A
            01 02BF9    000061A8 A
            01 02BFA    00007530 A
            01 02BFB    0000FF00 A
            01 02BFC    00000064 A
            01 02BFD    23C34600 A
            01 02BFE    6000C000 A
            01 02BFF    10000000 A
            01 02C00    40004000 A
            01 02C01    40000000 A
            01 02C02    00000000 A
            01 02C03    D5C5C74B A
            01 02C04    00000006 A
            01 02C05    000003EF A
            01 02C06    000000F0 A
            01 02C07    00180000 A
            01 02C08    00010000 A
            01 02C09    04000000 A
            01 02C0A    000000C0 A
            01 02C0B    66000000 A
            01 02C0C    08FF0000 A
            01 02C0D    BBFF0000 A
            01 02C0E    FBC80000 A
            01 02C0F    08000000 A
            01 02C10    00BF0000 A
            01 02C11    B0BF0000 A
            01 02C12    FB000000 A
            01 02C13    40E6D9E3 A
            01 02C14    D9C5C1C4 A
            01 02C15    E2C5D5E2 A
            01 02C16    D9C5E2E3 A
            01 02C17    E2C5C5D2 A
            01 02C18    0000000F A
            01 02C19    0E000000 A
            01 02C1A    FBFF0000 A
            01 02C1B    00FF0000 A
            01 02C1C    6EFF0000 A
            01 02C1D    02000000 A
            01 02C1E    00100000 A
            01 02C1F    00C70000 A
            01 02C20    00C80000 A
            01 02C21    00000014 A
            01 02C22    82C00000 A
            01 02C23    EFFF0000 A
            01 02C24    C3E6D9E3 A
            01 02C25    C8C4D9E6 A
            01 02C26    C8C4D9D9 A
            01 02C27    FBE70000 A
            01 02C28    E7FF0000 A
            01 02C29    01FFFF00 A
            01 02C2A    03000000 A
            01 02C2B    FFFFC000 A
            01 02C2C    000007FF A
            01 02C2D    FFFF0000 A
            01 02C2E    00000007 A
            01 02C2F    F0F0F0F0 A
            01 02C30    12B9B0A1 A

  CONTROL SECTION SUMMARY: 01 030B0   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:11 JUN 20,'83    TELEFILE DISK DIAGNOSTIC 960-0603-H02                                 PAGE  130
A  ADRTABLE         709/LI       774-DATA
   AIOF0           9417-:TSEQEQU
   AIOF1           9417-:TSEQEQU
   AIOF2           9417-:TSEQEQU
   AIOF3           9417-:TSEQEQU
   AIOF4           9417-:TSEQEQU
   AIOF5           9417-:TSEQEQU
   AIOF6           9417-:TSEQEQU
   AIOF7           9417-:TSEQEQU
   AIOT0           9418-:TSEQEQU
   AIOT1           9418-:TSEQEQU
   AIOT2           9418-:TSEQEQU
   AIOT3           9418-:TSEQEQU
   AIOT4           9418-:TSEQEQU
   AIOT5           9418-:TSEQEQU
   AIOT6           9418-:TSEQEQU
   AIOT7           9418-:TSEQEQU
   BYTN0           9423-:TSEQEQU
   BYT00           5476/:TSEQ   5481/:TSEQ   5482/:TSEQ   5483/:TSEQ   5484/:TSEQ   5493/:TSEQ   5499/:TSEQ
      5500/:TSEQ   5502/:TSEQ   5506/:TSEQ   5509/:TSEQ   5510/:TSEQ   5511/:TSEQ   5513/:TSEQ   5514/:TSEQ
      5515/:TSEQ   5516/:TSEQ   5521/:TSEQ   5529/:TSEQ   5531/:TSEQ   9423-:TSEQEQU
   BYT01           5487/:TSEQ   5491/:TSEQ   5492/:TSEQ   5498/:TSEQ   5525/:TSEQ   9423-:TSEQEQU
   BYT02           9423-:TSEQEQU
   BYT03           9423-:TSEQEQU
   BYT04           9423-:TSEQEQU
   BYT05           9423-:TSEQEQU
   BYT06           9423-:TSEQEQU
   CALLSUBT        5990/LD      5995/STD     6015/LD      6020/STD     6024/LD      6033/STD     6827/XPSD
      6830-DATA    6834/MTW     6835/LPSD
   CATALOG            2-EQU        3/EQU
   CDWRHDR         5074/STW     5130/LI      5193-GEN
   CDWSHDR         5073/STW     5077/LI      5164/LI      5191-GEN
   CDWTSTM         5415/LI      5431/LI      5534-GEN
   CDWTS02          891/LI      5535-GEN
   CDWTS02A        5536-GEN
   CDWTS03          936/LI      5537-GEN
   CDWTS03A         954/LI      5538-GEN
   CDWTS04          999/LI      5539-GEN
   CDWTS04A        1063/LI      5541-GEN
   CDWTS06         1103/LI      5545-GEN
   CDWTS06A        5546-GEN
   CDWTS06B        1111/LI      5547-GEN
   CDWTS06C        5548-GEN
   CDWTS07         1129/STB     1137/STB     1138/STH     1139/LI      1158/STB     5549-GEN
   CDWTS08         1211/LI      5550-GEN
   CDWTS08A        1225/STH     1232/LI      1238/LH      1247/AWM     5552-GEN
   CDWTS08B        1226/STH     1248/MTW     5553-GEN
   CDWTS09         1271/STH     1273/LI      1303/MTB     5554-GEN
   CDWTS10         1317/LI      5555-GEN
   CDWTS13         1498/STH     1502/LI      5556-GEN
   CDWTS15         1357/LI      3434/LI      5557-GEN
   CDWTS16         1409/LI      5559-GEN
   CDWTS16A        1446/LI      5560-GEN
   CDWTS17         1557/LI      1635/LI      1641/LI      1718/LI      3059/LI      3487/LI      5561-GEN
   CDWTS17A        1585/LI      1647/LI      1763/LI      1806/LI      1865/LI      2090/LI      2294/LI
      2361/LI      2468/LI      2522/LI      2667/LI      2832/LI      2950/LI      3002/LI      3352/LI
      3374/LI      3390/LI      3497/LI      3515/LI      3649/LI      4340/LI      4549/LI      5562-GEN
   CDWTS23         1752/LI      5563-GEN
   CDWTS24         1795/LI      3087/LI      5565-GEN
   CDWTS25         1900/DATA    5566-GEN
   CDWTS25A        1900/DATA    5568-GEN
   CDWTS26         1915/STH     1923/LI      5570-GEN
   CDWTS27         1966/LI      5572-GEN
   CDWTS27A        1980/LI      5574-GEN
   CDWTS28         2020/LI      5575-GEN
   CDWTS29         2056/LI      5577-GEN
   CDWTS30         2175/LI      5579-GEN
   CDWTS31         2214/STH     2215/LI      5581-GEN
   CDWTS32         2245/LI      5583-GEN
   CDWTS35         2280/LI      5585-GEN
   CDWTS36         2342/LI      5587-GEN
   CDWTS37         2391/STH     2392/LI      5591-GEN
   CDWTS38         2422/LI      5593-GEN
   CDWTS39         2449/LI      5595-GEN
   CDWTS40         2508/LI      5597-GEN
   CDWTS41         2583/STH     2584/LI      5589-GEN
   CDWTS42         2622/LI      5599-GEN
   CDWTS45         2653/LI      5601-GEN
   CDWTS46         2731/STH     2732/LI      5603-GEN
   CDWTS47         2771/LI      5605-GEN
   CDWTS48         2812/LI      5607-GEN
   CDWTS49A        2914/DATA    5609-GEN
   CDWTS49B        2913/DATA    5611-GEN
   CDWTS49C        2912/DATA    5613-GEN
   CDWTS50         2932/LI      5615-GEN
   CDWTS51         2988/LI      5617-GEN
   CDWTS52         3027/LI      5289/LI      5621-GEN
   CDWTS52X        5292/LI      5622-GEN
   CDWTS55         3125/LI      3146/LI      5626-GEN
   CDWTS60         3605/LI      5628-GEN
   CDWTS63         3817/STW     3853/LI      5629-GEN
   CDWTS63A        4014/LI      5632-GEN
   CDWTS63B        4059/LI      5633-GEN
   CDWTS63X        3983/STD     4022/LI      4037/LB      5631-GEN
   CDWTS64         4140/LI      5634-GEN
   CDWTS64A        4153/LI      4195/LI      5636-GEN
   CDWTS64B        4178/LI      5638-GEN
   CDWTS64C        4225/LI      5640-GEN
   CDWTS65         4285/STW     4292/LI      5643-GEN
   CDWTS65A        4286/STW     4315/LI      5645-GEN
   CDWTS66         4406/STW     4450/LI      5647-GEN
   CDWTS66A        4606/DATA    5649-GEN
   CDWTS66B        4609/DATA    4625/DATA    4630/DATA    4635/DATA    5651-GEN
   CDWTS66C        4612/DATA    4650/DATA    5653-GEN
   CDWTS66D        4492/LI      5655-GEN
   CDWTS66E        4530/LI      5657-GEN
   CDWTS66F        4645/DATA    4655/DATA    5658-GEN
   CDWTS66G        4640/DATA    5659-GEN
   CDWTS66I        4573/LI      5660-GEN
   CDWTS70         4925/LI      5664-GEN
   CDWTS70A        5031/DATA    5665-GEN
   CDWTS70B        5032/DATA    5666-GEN
   CDWTS70C        5033/DATA    5667-GEN
   CDWTS70D        5034/DATA    5669-GEN
   CDWTS70E        5035/DATA    5671-GEN
   CDWTS70F        5036/DATA    5673-GEN
   CDWTS70G        5037/DATA    5675-GEN
   CDWTS70H        4953/LI      5677-GEN
   CDWTS70I        5005/LW      5678-GEN
   CODE             122-CNAME
   COMNG           9424-:TSEQEQU
   COM00           5480/:TSEQ   9424-:TSEQEQU
   COM01           5479/:TSEQ   5488/:TSEQ   5497/:TSEQ   5500/:TSEQ   9424-:TSEQEQU
   COM02           5529/:TSEQ   9424-:TSEQEQU
   COM03           5506/:TSEQ   5531/:TSEQ   9424-:TSEQEQU
   COM04           9424-:TSEQEQU
   COM05           9424-:TSEQEQU
   COM06           9424-:TSEQEQU
   CTBL0            308/DATA     458-EQU
   CTBL1            309/DATA     484-EQU
   CTBL2            310/DATA     509-EQU
   CTBL3            311/DATA     534-EQU
   CTBL4            312/DATA     559-EQU
   CTBL5          312.1/DATA   583.2-EQU
   CURSFRST         430/STW      449-RES     5755/LW      7178/LW      7234/SW      7677/LW      8503/STW
   CURSLAST         432/STW      450-RES     5756/LW      7187/LW      7233/LW      7678/LW      8504/STW
   DEVADRM         3276/BAL     4723/BAL     4835/BAL     5466/BAL     5865/BAL     6762-STW     7759/BAL
      7806/BAL     8763/BAL
   DEVADRMG        6765/STW     6767/DATA    6769-TEXTC
   DEVCONT          713/BG       752-HIO
   DEVNO            439/STW      453-DATA     618/MW       755/CW      3609/LW      4902/LW      5713/LW
      5774/DW      5788/CW      5810/CW      5909/CW      5918/CW      5925/CW      5944/CW      6066/LW
      7024/LW      7103/CW      7227/CW      8499/CW      8506/CW
   DEVPT            393/STW      433/MTW      434/LW       452-DATA     677/STW      753/MTW      754/LW
      3781/LW      4114/LW      4268/LW      7017/STW     7101/MTW     7102/LW      7177/LW      7675/LW
   DISPFLAG        3714/MTW     4709/MTW     4823/MTW     8535/STW     8539/STW     8545-DATA
   DISPX           8531/DATA    8542-TEXTC
   DISP0           8525/CW      8543-DATA
   DISP00          8526/BE      8534-LI
   DISP1           8527/CW      8544-DATA
   DISP11          8528/BE      8538-LI
   ERROR             25/OPEN      26-CNAME
   FAIL              25/OPEN      41-CNAME
   GENERR            28/BAL      846-STW  5060.40/BAL
   GENERRL          846/STW      847/MTW      856/LW       869/B*       871-RES
   GENERRM          853/STW      854/STW      862/STW      863/STW      868/DATA     872-TEXTC
   HEADRBUF        8144/GEN     8146-RES
   HEADRCDW        8127/LI      8144-GEN
   HEADRDT         8024/BAL     8126-STD
   HEADRDT1        8132/BCR     8135-TDV
   HEADRDT2        8129/BCS     8134/B       8138-AI
   HEADRDT3        8137/BCR     8139-LD
   HEADRTEM        8126/STD     8139/LD      8143-RES
   HIOF0           9411-:TSEQEQU
   HIOF1           9411-:TSEQEQU
   HIOF2           9411-:TSEQEQU
   HIOF3           9411-:TSEQEQU
   HIOF4           9411-:TSEQEQU
   HIOF5           9411-:TSEQEQU
   HIOF6           9411-:TSEQEQU
   HIOF7           9411-:TSEQEQU
   HIOT0           9412-:TSEQEQU
   HIOT1           9412-:TSEQEQU
   HIOT2           9412-:TSEQEQU
   HIOT3           9412-:TSEQEQU
   HIOT4           9412-:TSEQEQU
   HIOT5           9412-:TSEQEQU
   HIOT6           9412-:TSEQEQU
   HIOT7           9412-:TSEQEQU
   I                 75-SET       77/GEN       77/GEN       77/GEN       77/GEN       78-SET       78/SET
   INITIALA         366-LI       378/B        397/BCR      399/BG       401/BCS      405/BEZ      424/BLE
       426/BGE      428/BLZ
   INITIALB         364/BG       372-INT
   INITIALC         389-MTW
   INITIALD         395-LW       438/BNEZ
   INITIALE         408/BNEZ     412-LW
   INITIALF         411/B        429-STW
   INITIALH         440-BAL
   INITIALX         360/STW      370/B*       443/B*       456-DATA
   IOBF1           1172/LW      1183/LW      1196/LW      1272/STW*    1295/MTW*    1369/LW*     1392/LW
      1415/LW*     1419/STW*    1452/LW*     1456/STW*    1527/CW*     1529/CW*     1545/LW      1654/LB*
      1769/MTW*    1773/LW*     1812/LW*     1871/LW*     1878/LW*     1965/STW*    1986/LW*     2019/STW*
      2053/STW*    2096/LW*     2102/LW*     2109/LW*     2146/STW*    2150/LW      2210/STW*    2244/STW*
      2273/STW*    2300/LW*     2306/LW*     2314/LW*     2340/STW*    2367/LW*     2387/STW*    2421/STW*
      2448/STW*    2474/LW*     2507/STW*    2528/LW*     2534/LW*     2542/LW*     2582/STW*    2621/STW*
      2652/STW*    2673/LW*     2679/LW*     2687/LW*     2730/STW*    2770/STW*    2809/STW*    2838/LW*
      2846/LW*     2886/STW*    2931/STW*    2956/LW*     2964/LW*     2987/STW*    3008/LW*     3372/LW
      3449/LW*     3456/LW*     3496/STW*    3503/LW*     3514/STW*    3530/LW*     3648/STW*    3661/LW*
      3809/LW      3881/LW      3905/LW      4122/LW      4135/LW      4172/LW      4177/STW*    4327/LW
      4347/LW*     4556/LW*     4795/STW*    5096/LW      5097/LW      5148/LW      5149/LW      5245/LW
      7297/AW      7325/AW      7477/LW      7487/LW*     8057/CS*     8060/STW*    8164/LW      8199/LW
     10162-DATA
   IOBUF           1173/LW      1206/LW      1223/LW      1230/STW*    1231/STW*    1356/STW*    1390/LW
      1408/STW*    1417/CW*     1445/STW*    1454/CW*     1500/STW*    1501/STW*    1543/LW      1556/STW*
      1563/LW*     1625/STW*    1715/STW*    1717/STH*    1751/STW*    1917/LW      2047/LW      2080/CW*
      2082/CW*     2084/STW*    2085/STW*    2148/LW      2274/LW      2728/LW*     2729/STW*    2811/STB*
      2885/STW*    3058/STW*    3067/LW*     3117/LW      3133/LW      3208/AW      3294/AW      3433/STW*
      3450/CW*     3452/LW*     3486/STW*    3531/CW*     3533/LW*     3600/STW*    3662/CW*     3664/LW*
      3677/STW*    3806/LW      4120/LW      4190/LW      4288/LW      4326/LW      4684/STW*    4763/LB*
   5060.27/STW*    5237/LW      5243/LW      5802/LW      7701/LW      8070/AWM*   10163-DATA
   IOCDMSG         5871/BAL     6191/BAL     6744-STW
   IOCDMSGM        6746/STW     6748/STW     6751/STW     6753/STW     6755/DATA    6758-TEXTC
   IOCDMSGX        6744/STW     6756/B*      6757-DATA    6762/STW     6768/B*
   ISBF0           9419-:TSEQEQU
   ISBF1           9419-:TSEQEQU
   ISBF2           9419-:TSEQEQU
   ISBF3           9419-:TSEQEQU
   ISBF4           9419-:TSEQEQU
   ISBF5           9419-:TSEQEQU
   ISBF6           9419-:TSEQEQU
   ISBF7           9419-:TSEQEQU
   ISBT0           9420-:TSEQEQU
   ISBT1           9420-:TSEQEQU
   ISBT2           9420-:TSEQEQU
   ISBT3           9420-:TSEQEQU
   ISBT4           9420-:TSEQEQU
   ISBT5           9420-:TSEQEQU
   ISBT6           9420-:TSEQEQU
   ISBT7           9420-:TSEQEQU
   ITHDLR           723/LI      5707/LI      7030/LI     10173-STW
   ITHM2          10176/STB    10178/DATA   10198-TEXTC
   ITHM3            736/STH      738/DATA   10183/STH    10185/DATA   10199-TEXTC
   ITHM4          10188/STW    10190/DATA   10200-TEXTC
   ITHRST           722/STW     5710/STW     7033/STW    10191/LW     10196-DATA
   ITHSAVE        10173/STW    10192/B*     10197-DATA
   ITHSUBT          719/STW      734/LW     10181/LW     10195-DATA
   ITHTEST          720/STW     5706/STW     7029/STW    10174/LW     10179/CW     10194-DATA
   L               8863/AND     8871/AND     8915/AND     8945/AND
   LOOP00           712-CW       749/B
   LOOP00R          715-LW       721/LI
   L10A9           4801-MTW     4802/BNE
   L10C4           4826-LW
   L10D5           4811/STW     4814/STB     4816/STB     4837/DATA    4841-TEXTC
   L10EA           4846/XPSD    4850-DATA    4864/LPSD    4869/LPSD
   L10E0           4828/STB     4830/STB     4832/STH     4834/STH     4839/DATA    4842-TEXTC
   L10E4           4797/STW     4801/MTW     4843-DATA    4860/MTW
   L10E5           4794/STW     4806/LW      4819/LW      4844-DATA    4845/MTW     4856/MTW
   L10E6           4791/LW      4845-MTW
   L10E7           4789/LW      4846-XPSD
   L10E8           4847-DATA    4855/STCF    4865/LC
   L10FD           4866/BCS     4869-LPSD
   L10F4           4857/BNE     4860-MTW
   L10F9           4861/BNE     4865-LC
   L5C             4782-EQU     4790/STW
   L55             4781-EQU     4792/STW
   MAX             3734/SET     3751/T1ST60P 3751/T1ST60P 3752/T1ST60P
   M78          5060.66/STH  5060.70/STH  5060.74/STH  5060.77/DATA 5060.83-TEXTC
   OSBF0           5475/:TSEQ   5476/:TSEQ   5477/:TSEQ   5478/:TSEQ   5482/:TSEQ   5484/:TSEQ   5488/:TSEQ
      5493/:TSEQ   5497/:TSEQ   5500/:TSEQ   5501/:TSEQ   5503/:TSEQ   5515/:TSEQ   9409-:TSEQEQU
   OSBF1           5493/:TSEQ   5509/:TSEQ   5510/:TSEQ   5511/:TSEQ   5513/:TSEQ   5514/:TSEQ   5515/:TSEQ
      5516/:TSEQ   5519/:TSEQ   5520/:TSEQ   5521/:TSEQ   5525/:TSEQ   5529/:TSEQ   9409-:TSEQEQU
   OSBF2           9409-:TSEQEQU
   OSBF3           9409-:TSEQEQU
   OSBF4           9409-:TSEQEQU
   OSBF5           9409-:TSEQEQU
   OSBF6           5527/:TSEQ   9409-:TSEQEQU
   OSBF7           9409-:TSEQEQU
   OSBT0           5481/:TSEQ   5483/:TSEQ   5487/:TSEQ   5495/:TSEQ   5496/:TSEQ   5502/:TSEQ   5516/:TSEQ
      5526/:TSEQ   5527/:TSEQ   5529/:TSEQ   9410-:TSEQEQU
   OSBT1           5496/:TSEQ   5504/:TSEQ   5506/:TSEQ   5528/:TSEQ   9410-:TSEQEQU
   OSBT2           9410-:TSEQEQU
   OSBT3           9410-:TSEQEQU
   OSBT4           9410-:TSEQEQU
   OSBT5           9410-:TSEQEQU
   OSBT6           5526/:TSEQ   5528/:TSEQ   9410-:TSEQEQU
   OSBT7           9410-:TSEQEQU
   PARNO            390/STW      404/MTW      437/MTW      455-DATA
   PARNOERR         365/STW      368/LW       377/STW      391/STW      403/MTW      436/MTW      454-DATA
      8393/STW     8397/LW      8404/MTW     8412/MTW     8418/MTW
   PRINT            127-BAL      133/BDR
   RANDOM          3734/SET     3753/T1ST60P 3753/T1ST60P
   RECSAVE          340/STW      351/B*       352-DATA
   RESTIOCD        8578/LI      8602-GEN
   RESTM1          8585/DATA    8605-TEXTC
   RESTM2          8598/DATA    8606-TEXTC
   RESTORE         8097/BAL     8577-STW     8588/B       8659/BAL
   RESTOREX        8577/STW     8596/:TDV    8604-DATA
   RESTORE0        8584-BAL     8595/B
   RESTORE1        8586-:TDV    8600/B
   RESTORE2        8587-:HIO
   RESTORE3        8582/BCR     8589-:TIO
   RESTORE4        8590/B       8597-BAL
   REV              105-CNAME
   REVBRNCH         135/STW      136/B        341-EQU
   REVCOUNT         102-SET      107/DO       111-SET      111/SET      116/GEN
   REVEND           112/DO       161-REV
   REVISION         124/LW       125/LW       140-REV
   REVPRINT         124-LW       342/BAL
   REVSTART         103-SET      108-SET      115/ORG
   S:PT               3/EQU
   SBAF0           5494/:TSEQ   5512/:TSEQ   9421-:TSEQEQU
   SBAF1           9421-:TSEQEQU
   SBAF2           9421-:TSEQEQU
   SBAF3           9421-:TSEQEQU
   SBAF4           9421-:TSEQEQU
   SBAF5           5517/:TSEQ   9421-:TSEQEQU
   SBAF6           9421-:TSEQEQU
   SBAF7           9421-:TSEQEQU
   SBAT0           5505/:TSEQ   9422-:TSEQEQU
   SBAT1           5507/:TSEQ   9422-:TSEQEQU
   SBAT2           5524/:TSEQ   9422-:TSEQEQU
   SBAT3           5523/:TSEQ   9422-:TSEQEQU
   SBAT4           5522/:TSEQ   9422-:TSEQEQU
   SBAT5           5518/:TSEQ   9422-:TSEQEQU
   SBAT6           9422-:TSEQEQU
   SBAT7           9422-:TSEQEQU
   SEEK             277/:PROCDIC             8465-LB
   SEEKADD         6571/STW     7035/STW     7163/STW     7271/STW     7299/STW     7503/STW     8749/AW
      8786-DATA
   SEEKADR         7912/STW     7916/LW      8657/LW      8675/GEN     8785-DATA
   SEEKCUR         7710/STW     7719/LW      7728/LW      7789/LW      7969/LW      7975/LW      7981/LW
      8748/LW      8750/STW     8784-DATA
   SEEKEX          7914/BAL     8646-STW     8660/B
   SEEKEXM1        8654/DATA    8678-TEXTC
   SEEKEXM2        8671/DATA    8679-TEXTC
   SEEKEXX         8646/STW     8669/:TDV    8677-DATA
   SEEKEX0         8653-BAL     8668/B
   SEEKEX1         8655-:TDV    8673/B
   SEEKEX2         8656-:HIO
   SEEKEX3         8651/BCR     8661-:TIO
   SEEKEX4         8662/B       8670-BAL
   SEEKFRST        6564/STD     6580/STD     7274/STD     7287/STD     7304/STD     7318/STD     7461/STD
      7501/STD     7680/STD     7709/LW      8782-DATA
   SEEKGEN         3057/BAL     3432/BAL     4133/BAL     4244/BAL     6141/BAL     6612/BAL     7720/BAL
      7790/BAL     7976/BAL     7982/BAL     8616-EQU
   SEEKINC         7729/BAL     7794/BAL     7978/BAL     8748-LW
   SEEKIOCD        8647/LI      8675-GEN
   SEEKLAST        8751/CW      8783-DATA
   SEEKMSG         1729/BAL     3068/BAL     3160/BAL     3674/BAL     3896/BAL     3924/BAL     3940/BAL
      3957/BAL     4217/BAL     5271/BAL     5275/BAL     5869/BAL     6189/BAL     6290/BAL     6473/BAL
      7762/BAL     7809/BAL     8074/BAL     8209/BAL     8330/BAL     8658/BAL     8762-STW
   SEEKMSGR        8766/STW     8768/STB     8771/STH     8774/STB     8776/DATA    8779-TEXTC
   SEEKMSGX        8762/STW     8777/B*      8778-DATA
   SEEK1           8487/STW     8493/CW      8502/LW      8519-DATA
   SEEK2           8467/BNE     8509-STW
   SEEK3           8471/BL      8475/BL      8479/BL      8490/BG      8511-STW
   SEEK4           8494/BG      8497/BL      8515-BAL
   SEEK5           8492-LW      8500/BL
   SEEK6           8516/DATA    8520-TEXTC
   SENSBUF         8692/STW     8693/STW     8694/STW     8708/LW      8713/LW      8718/LH      8732/GEN
      8737-DATA
   SENSE             25/OPEN      32-CNAME
   SENSEX          8088/BAL     8689-LCI
   SENSEXM1        8702/DATA    8735-TEXTC
   SENSEXM2        8725/DATA    8736-TEXTC
   SENSEXM3        8710/STW     8712/STW     8715/STW     8717/STW     8720/STW     8722/DATA    8739-TEXTC
   SENSEXX         8690/STM     8728/LM      8734-RES
   SENSEX0         8701-BAL
   SENSEX1         8703-:TDV
   SENSEX2         8704-:HIO
   SENSEX3         8699/BCR     8706-:TIO
   SENSEX4         8707/B       8724-BAL
   SENSEX5         8705/B       8723/B       8727-LCI
   SENSIOCD        8695/LI      8732-GEN
   SEQCONT          684/B        695/B        707-LW       766/B
   SEQRETN          770-DATA     883/:TDV     885/B*       917/BNEZ*    926/BEZ*     970/B*      1039/BEZ*
      1041/BE*     1054/BEZ*    1093/B*      1102/BEZ*    1116/B*      1120/B*      1128/B*      1156/BNEZ*
      1171/B*      1253/B*      1266/B*      1301/BE*     1311/B*      1341/B*      1354/B*      1372/B*
      1375/B*      1387/B*      1481/B*      1496/B*      1516/BG*     1525/B*      1542/B*      1598/B*
      1609/B*      1664/B*      1703/B*      1735/B*      1745/B*      1785/B*      1794/B*      1815/B*
      1818/B*      1827/B*      1891/BNEZ*   1909/B*      1953/B*      1961/B*      2009/B*      2017/B*
      2030/B*      2033/B*      2043/B*      2135/B*      2144/B*      2199/BEZ*    2201/B*      2208/B*
      2230/BE*     2242/B*      2255/B*      2258/B*      2268/B*      2329/B*      2338/B*      2376/BEZ*
      2378/B*      2385/B*      2407/BE*     2419/B*      2432/B*      2435/B*      2444/B*      2467/B*
      2500/B*      2568/B*      2576/B*      2610/B*      2618/B*      2632/B*      2635/B*      2645/B*
      2713/B*      2721/B*      2758/B*      2767/B*      2781/B*      2784/B*      2799/B*      2872/B*
      2881/B*      2910/B*      2928/B*      2973/BEZ*    2975/B*      2984/B*      3017/BEZ*    3019/B*
      3041/B*      3044/B*      3078/B*      3086/BEZ*    3095/B*      3098/B*      3139/B*      3184/B*
      3399/B*      3409/B*      3466/B*      3523/BG*     3544/BG*     3719/B*      3727/B*      3802/B*
      3963/B*      4210/B*      4215/BL*     4252/BEZ*    4255/B*      4271/BL*     4279/B*      4362/B*
      4393/BL*     4448/B*      4589/B*      4698/B*      4713/BE*     4728/B*      4824/BEZ*    4840/B*
      4899/BEZ*    4991/B*   5060.46/B*   5060.81/B*
   SIOF0           9415-:TSEQEQU
   SIOF1           9415-:TSEQEQU
   SIOF2           9415-:TSEQEQU
   SIOF3           9415-:TSEQEQU
   SIOF4           9415-:TSEQEQU
   SIOF5           9415-:TSEQEQU
   SIOF6           9415-:TSEQEQU
   SIOF7           9415-:TSEQEQU
   SIOT0           9416-:TSEQEQU
   SIOT1           9416-:TSEQEQU
   SIOT2           9416-:TSEQEQU
   SIOT3           9416-:TSEQEQU
   SIOT4           9416-:TSEQEQU
   SIOT5           9416-:TSEQEQU
   SIOT6           9416-:TSEQEQU
   SIOT7           9416-:TSEQEQU
   SPACE            866/DATA     873-TEXTC
   STATSAVE         771-DATA
   SYSTDEVA         402/STW      446-RES      673/LW       764/LW      3610/LW      4920/LD      5714/LW
      5753/LW      7025/LW      7275/LW      7676/LW
   SYSTFRST         429/STW      447-RES     3782/LW      4115/LW      8492/LW
   SYSTLAST         431/STW      448-RES     3783/LW      4116/LW      4269/LW      4391/LW      8495/LW
   TDVF0           5476/:TSEQ   5495/:TSEQ   5496/:TSEQ   5497/:TSEQ   5500/:TSEQ   5501/:TSEQ   5503/:TSEQ
      5504/:TSEQ   5506/:TSEQ   5509/:TSEQ   5515/:TSEQ   5516/:TSEQ   5529/:TSEQ   9413-:TSEQEQU
   TDVF1           5513/:TSEQ   5515/:TSEQ   5516/:TSEQ   5529/:TSEQ   5531/:TSEQ   9413-:TSEQEQU
   TDVF2           5490/:TSEQ   5510/:TSEQ   9413-:TSEQEQU
   TDVF3           9413-:TSEQEQU
   TDVF4           5491/:TSEQ   5509/:TSEQ   5510/:TSEQ   5511/:TSEQ   5513/:TSEQ   5515/:TSEQ   5516/:TSEQ
      5529/:TSEQ   9413-:TSEQEQU
   TDVF5           9413-:TSEQEQU
   TDVF6           5511/:TSEQ   9413-:TSEQEQU
   TDVF7           5509/:TSEQ   5510/:TSEQ   5511/:TSEQ   5513/:TSEQ   5515/:TSEQ   5516/:TSEQ   5529/:TSEQ
      9413-:TSEQEQU
   TDVT0           9414-:TSEQEQU
   TDVT1           5519/:TSEQ   5520/:TSEQ   9414-:TSEQEQU
   TDVT2           5489/:TSEQ   5498/:TSEQ   5499/:TSEQ   9414-:TSEQEQU
   TDVT3           9414-:TSEQEQU
   TDVT4           5521/:TSEQ   5525/:TSEQ   9414-:TSEQEQU
   TDVT5           5481/:TSEQ   5482/:TSEQ   5483/:TSEQ   5484/:TSEQ   5486/:TSEQ   5489/:TSEQ   5490/:TSEQ
      5493/:TSEQ   5508/:TSEQ   5511/:TSEQ   5514/:TSEQ   5531/:TSEQ   9414-:TSEQEQU
   TDVT6           9414-:TSEQEQU
   TDVT7           9414-:TSEQEQU
   TESTEXC          214/BEZ      711/STH      714/MTH      727/LW*      728/CI       729/BE       732/BCS
       740-BAL      770/DATA     785/DATA     786/DATA     788/DATA     792/DATA     795/DATA     796/DATA
       807/DATA     808/DATA     817/DATA     818/DATA     833/DATA     835/DATA     836/DATA     841/DATA
   TESTEXC1         748-LW
   TESTINDX         890/STW      892/AW       916/MTW      918/MTW      928/STW      931/LW       948/LW
       964/MTW      966/LW       979/CW       995/STW      996/STW     1000/AW      1002/LW      1010/MTW
      1017/MTW     1019/LW      1031/STW     1036/MTW     1040/CW      1131/STW     1155/MTW     1157/MTW
      1313/STW     1339/LW      1508/STH     1514/LH      1611/STW     1662/LW      1747/STW     1783/LW
      1839/STW     1841/STW     1844/LW      1853/MTW     1859/MTW     1864/MTW     1877/MTW     1886/MTW
      1887/MTW     1890/MTW     1892/MTW     1913/STW     1935/MTW     1940/MTW     1944/MTW     1945/MTW
      1963/STW     1994/MTW     2001/MTW     2045/STW     2055/STW     2064/MTW     2069/MTW     2089/MTW
      2095/MTW     2101/MTW     2116/MTW     2117/MTW     2120/MTW     2127/MTW     2147/STW     2182/MTW
      2188/MTW     2193/MTW     2197/MTW     2198/MTW     2272/STW     2288/MTW     2293/MTW     2299/MTW
      2305/MTW     2313/MTW     2321/MTW     2322/MTW     2341/STW     2349/MTW     2355/MTW     2360/MTW
      2366/MTW     2374/MTW     2375/MTW     2502/STW     2506/STW     2516/MTW     2521/MTW     2527/MTW
      2533/MTW     2541/MTW     2549/MTW     2550/MTW     2553/MTW     2560/MTW     2581/STW     2596/MTW
      2601/MTW     2602/MTW     2647/STW     2650/STW     2661/MTW     2666/MTW     2672/MTW     2678/MTW
      2686/MTW     2694/MTW     2695/MTW     2698/MTW     2705/MTW     2725/STW     2744/MTW     2749/MTW
      2750/MTW     2801/STW     2808/STW     2819/MTW     2824/MTW     2831/MTW     2837/MTW     2845/MTW
      2853/MTW     2854/MTW     2857/MTW     2864/MTW     2930/STW     2939/MTW     2944/MTW     2949/MTW
      2955/MTW     2963/MTW     2971/MTW     2972/MTW     2986/STW     2996/MTW     3001/MTW     3007/MTW
      3015/MTW     3016/MTW     3144/STW     3151/MTW     3162/MTW     3179/MTW     3180/MTW     3359/STW
      3362/STW     3367/MTW     3368/MTW     3578/STW     3602/STW     3671/MTW     3681/MTW     3684/MTW
      3705/LW      3805/STW     3860/MTW     3869/MTW     3875/MTW     3892/MTW     3893/MTW     4314/STW
      4320/MTW     4325/MTW     4339/MTW     4345/MTW     4355/MTW     4529/STW     4542/MTW     4548/MTW
      4564/MTW     4565/MTW     5069/STW     5092/MTW     5094/MTW     5679-DATA
   TEST02A          912/BE       915-HIO
   TEST02A1         893/:SIO     897-LI
   TEST02A2         899/:TIO     903-BAL
   TEST02A3         906/B        910-LH
   TEST02A4         896/B        902/B        907/B        909/B        914-SENSE
   TEXTADR          126/STW      128-DATA
   TIOF0           5485/:TSEQ   5490/:TSEQ   5514/:TSEQ   9407-:TSEQEQU
   TIOF1           5477/:TSEQ   5478/:TSEQ   9407-:TSEQEQU
   TIOF2           5477/:TSEQ   5478/:TSEQ   9407-:TSEQEQU
   TIOF3           9407-:TSEQEQU
   TIOF4           5476/:TSEQ   5477/:TSEQ   5482/:TSEQ   5486/:TSEQ   5488/:TSEQ   5491/:TSEQ   5492/:TSEQ
      5493/:TSEQ   5495/:TSEQ   5496/:TSEQ   5497/:TSEQ   5500/:TSEQ   5501/:TSEQ   5502/:TSEQ   5504/:TSEQ
      5506/:TSEQ   5508/:TSEQ   5509/:TSEQ   5510/:TSEQ   5511/:TSEQ   5513/:TSEQ   5515/:TSEQ   5516/:TSEQ
      5520/:TSEQ   5527/:TSEQ   5529/:TSEQ   5531/:TSEQ   9407-:TSEQEQU
   TIOF5           5477/:TSEQ   5478/:TSEQ   9407-:TSEQEQU
   TIOF6           5477/:TSEQ   5478/:TSEQ   9407-:TSEQEQU
   TIOF7           9407-:TSEQEQU
   TIOT0           5477/:TSEQ   5478/:TSEQ   5484/:TSEQ   9408-:TSEQEQU
   TIOT1           9408-:TSEQEQU
   TIOT2           9408-:TSEQEQU
   TIOT3           5479/:TSEQ   9408-:TSEQEQU
   TIOT4           5475/:TSEQ   5478/:TSEQ   5480/:TSEQ   5481/:TSEQ   5483/:TSEQ   5489/:TSEQ   5498/:TSEQ
      5499/:TSEQ   5503/:TSEQ   5519/:TSEQ   5521/:TSEQ   5525/:TSEQ   5526/:TSEQ   5528/:TSEQ
      9408-:TSEQEQU
   TIOT5           9408-:TSEQEQU
   TIOT6           9408-:TSEQEQU
   TIOT7           9408-:TSEQEQU
   TITLE              3-EQU      101/TITLE    336/TEXTC
   TSEQ014          905/DATA    5475-:TSEQ
   TSEQ015          944/DATA    5476-:TSEQ
   TSEQ016         1006/DATA    1046/DATA    1046/DATA    1068/DATA    5477-:TSEQ
   TSEQ016A        1046/DATA    5478-:TSEQ
   TSEQ017         1107/DATA    5479-:TSEQ
   TSEQ018         1115/DATA    5480-:TSEQ
   TSEQ019         1283/LI      5481-:TSEQ
   TSEQ020         1285/LI      3072/DATA    5482-:TSEQ
   TSEQ021         1287/LI      5483-:TSEQ
   TSEQ022         1322/DATA    5484-:TSEQ
   TSEQ022A        1343/DATA    5485-:TSEQ
   TSEQ023         1510/DATA    5486-:TSEQ
   TSEQ024         5487-:TSEQ
   TSEQ025         1365/DATA    5488-:TSEQ
   TSEQ026         1568/DATA    1576/DATA    1725/DATA    5489-:TSEQ
   TSEQ027         1581/DATA    5490-:TSEQ
   TSEQ028         1759/DATA    5491-:TSEQ
   TSEQ029         1802/DATA    3094/DATA    5492-:TSEQ
   TSEQ030         1855/DATA    5493-:TSEQ
   TSEQ031         1882/DATA    2106/DATA    2310/DATA    2538/DATA    2683/DATA    4351/DATA    5494-:TSEQ
   TSEQ032         1937/DATA    2598/DATA    5495-:TSEQ
   TSEQ032A        2746/DATA    5496-:TSEQ
   TSEQ033         1976/DATA    5497-:TSEQ
   TSEQ034         2029/DATA    2254/DATA    5498-:TSEQ
   TSEQ034A        2431/DATA    2631/DATA    2780/DATA    5499-:TSEQ
   TSEQ035         2066/DATA    2290/DATA    2518/DATA    2663/DATA    5500-:TSEQ
   TSEQ036         2190/DATA    2357/DATA    2458/DATA    5501-:TSEQ
   TSEQ037         2224/DATA    2401/DATA    5502-:TSEQ
   TSEQ038         5503-:TSEQ
   TSEQ039         2826/DATA    2946/DATA    5504-:TSEQ
   TSEQ040         2960/DATA    5505-:TSEQ
   TSEQ041         2998/DATA    5506-:TSEQ
   TSEQ042         2850/DATA    5507-:TSEQ
   TSEQ043         3040/DATA    5508-:TSEQ
   TSEQ044         3154/DATA    4301/DATA    4322/DATA    4460/DATA    5088/DATA    5143/DATA    5172/DATA
      5509-:TSEQ
   TSEQ045         3364/DATA    5510-:TSEQ
   TSEQ046         3444/DATA    5511-:TSEQ
   TSEQ047         3460/DATA    4078/DATA    4525/LI      5512-:TSEQ
   TSEQ048         5513-:TSEQ
   TSEQ049         5514-:TSEQ
   TSEQ050         3872/DATA    4032/DATA    4149/DATA    4162/DATA    4202/DATA    5515-:TSEQ
   TSEQ051         4185/DATA    5516-:TSEQ
   TSEQ052         2480/DATA    5517-:TSEQ
   TSEQ052A        2484/DATA    5518-:TSEQ
   TSEQ053         4608/DATA    4614/DATA    5519-:TSEQ
   TSEQ054         4611/DATA    5520-:TSEQ
   TSEQ055         4499/DATA    4627/DATA    4632/DATA    4637/DATA    5521-:TSEQ
   TSEQ056         4628/DATA    4643/DATA    4653/DATA    5522-:TSEQ
   TSEQ057         4633/DATA    5523-:TSEQ
   TSEQ058         4638/DATA    4648/DATA    4658/DATA    5524-:TSEQ
   TSEQ059         4642/DATA    4647/DATA    4652/DATA    4657/DATA    5525-:TSEQ
   TSEQ060A        2901/DATA    2918/DATA    5526-:TSEQ
   TSEQ060B        2917/DATA    5527-:TSEQ
   TSEQ060C        2916/DATA    5528-:TSEQ
   TSEQ064         4237/DATA    5529-:TSEQ
   TSEQ066         4584/DATA    5531-:TSEQ
   TSMOEXIT         769-DATA
   TST0             273/:PROCDIC 605-LI       629/SENSE
   TST0FLAG         610/STW      634-DATA     671/STW      757/MTW     5704/STW     5727/MTW
   TST0FUNC         612-LI       758/BNEZ
   TST0RAND         629-SENSE   5728/BNEZ
   TST0RND          624/DATA     628-TEXTC
   TST0SAVE         609/STD      614/LD       633-DATA
   TST001           675-BAL
   TST002           688-BAL      699/B        703/B
   TST1             274/:PROCDIC 611/B        670-LI       759/SENSE
   TST1BC          1148/BAL     1521/BAL     1933/BAL     2186/BAL     2353/BAL     2594/BAL     2742/BAL
      3867/BAL     5206-STW
   TST1BCM         5212/STW     5215/STW     5217/DATA    5221-TEXTC
   TST1BCX         5206/STW     5218/B*      5220-DATA
   TST1DATA        1843/BAL     1916/BAL     2504/BAL     2579/BAL     2619/BAL     2651/BAL     2726/BAL
      2768/BAL     2810/BAL     2882/BAL     4908/BAL     5234-LCI
   TST1DAT0        5235/STM     5257/LM      5260-RES
   TST1FLAG         613/STW      635-DATA     672/STW      761/STW     5705/STW     7021/STW
   TST1HDRE        3111/LI      3156/LW      3157/LW      3164/LW      3168/LW      3195/STW     3197/STW
      3198/STB     3206/LB      3209/LB      3217/LW      3222/LB      3227/LW      3233/LW      3329-DATA
      5626/GEN
   TST1HDRO        3109/LI      3166/CS      3170/CS      3173/CS      3218/CS      3223/CB      3229/CS
      3235/CS      3238/CS      3241/CS      3330-DATA    5627/GEN
   TST1OCLX        5319/STD     5345/LD      5349-RES
   TST1OCL0        5323-LI      5341/BIR
   TST1OCL1        5327/BEZ     5335-TDV
   TST1OCL2        5333/B       5341-BIR
   TST1OCL3        5332/BAZ     5339/BE      5345-LD
   TST1OCYL        3035/BAL     3065/BAL     3509/BAL     5304/BAL     5319-STD
   TST1RHDM        5138/DATA    5195-TEXTC
   TST1RHDN        5140/DATA    5196-TEXTC
   TST1RHDR        4361/BAL     4588/BAL     5129-STW     5141/B
   TST1RHD1        5137-BAL     5146/B       5169/B       5175/B       5186/B
   TST1RHD2        5135/B       5142-BAL
   TST1RHD3        5144/B       5148-LW
   TST1RHD4        5167/B       5171-BAL
   TST1RHD5        5173/B       5177-LCW
   TST1RHD6        5180/BNE     5185-ERROR
   TST1RST         3053/BAL     3122/BAL     3351/BAL     3422/BAL     3483/BAL     3598/BAL     3622/BAL
      3682/BAL     4131/BAL     4267/BAL     4390/BAL     4666/BAL     4786/BAL   5060.5/BAL     5287-STW
   TST1RSTX        5287/STW     5305/B*      5309/B*      5311-RES
   TST1RST0        5289-LI      5302/B       5308/B
   TST1RST1        5296/BNEZ    5299/B       5304-BAL
   TST1SHDR        4275/BAL     4445/BAL     5067-STW     5084/SENSE
   TST1SHDX        5067/STW     5085/LW      5118/LW      5129/STW     5182/LW      5188-DATA
   TST1SHD0        5077-LI      5111/B
   TST1SHD1        5084-SENSE   5091/B       5122/B
   TST1SHD2        5082/B       5087-BAL
   TST1SHD3        5089/B       5092-MTW
   TST1SHD4        5093/BNEZ    5113-LCW
   TST1SHD5        5116/BNE     5121-ERROR
   TST1SMGX        5268/STW     5276/B*      5278-DATA
   TST1SMG1        5270/DATA    5279-TEXTC
   TST1SMG2        5274/DATA    5280-TEXTC
   TST1SMSG        1991/BAL     2114/BAL     2319/BAL     2372/BAL     2547/BAL     2692/BAL     2843/BAL
      2969/BAL     3013/BAL     3453/BAL     3534/BAL     3665/BAL     4071/BAL     5268-STW
   TST1TAG         1371/BAL     1775/BAL     1814/BAL     1873/BAL     2098/BAL     2302/BAL     2530/BAL
      2675/BAL     5361-STW
   TST1TAGE        5364/CH      5372/LH      5390-DATA
   TST1TAGI        5379/LW      5389-DATA
   TST1TAGM        5380/STW     5382/DATA    5391-TEXTC
   TST1TAGN        5374/STW     5376/STW     5378/STH     5384/DATA    5392-TEXTC
   TST1TAGO        5367/STW     5369/STW     5371/STH     5386/DATA    5393-TEXTC
   TST1TAGX        5361/STW     5365/BE*     5387/B*      5394-DATA
   TST1TMA         5415-LI      5420/B       5424/B
   TST1TMB         5418/B       5421-TDV
   TST1TMC         5434/B       5437-TDV
   TST1TMD         5408/STB     5428/STB     5452-DATA    5534/GEN
   TST1TMX         5409/STW     5413/MTW     5422/BCS*    5426/STW     5430/BCR*    5438/BCR*    5443/BCS*
      5447/B*      5451-DATA
   TST1TMY         5412/BEZ     5442-BAL
   TST1TMZ         5446/DATA    5449-TEXTC
   TST1TM0          746/BAL     3026/BAL     3052/BAL     3084/BAL     3121/BAL     3350/BAL     3421/BAL
      3479/BAL     3564/BAL     3780/BAL     4113/BAL     4266/BAL     4389/BAL     4665/BAL     4785/BAL
      4897/BAL   5060.4/BAL     5426-STW     5436/B       5440/B
   TST1TM1         1127/BAL     1170/BAL     5401-LI
   TST1TM2         1265/BAL     1310/BAL     1353/BAL     1386/BAL     1495/BAL     1541/BAL     1608/BAL
      1702/BAL     1744/BAL     1793/BAL     1826/BAL     1908/BAL     1960/BAL     2016/BAL     2042/BAL
      2143/BAL     2207/BAL     2241/BAL     2267/BAL     2337/BAL     2384/BAL     2418/BAL     2443/BAL
      2499/BAL     2575/BAL     2617/BAL     2644/BAL     2720/BAL     2766/BAL     2798/BAL     2880/BAL
      5404-LI
   TST1TM3         2927/BAL     2983/BAL     5407-LI
   TST2             275/:PROCDIC 626/B       5703-LI      5709/LI      5729/SENSE
   TST2A           5722/BG      5731-STW
   TST3             276/:PROCDIC             7016-LI      7032/LI      7109/BEZ     7114/B
   TST3A           7046-BAL     7081/B       7086/B       7218/B       7226/B
   TST30           7034-LI      7104/BL
   TST31           7038/BE      7075-LW
   TST31A          7080-STW     7166/BL
   TST31B          7097-STW     7135/BEZ
   TST31C          7099-BAL     7126/B       7176/B
   TST31D          7100-HIO     7136/B       7200/BNEZ
   TST31DD         7105-SENSE   7524/B
   TST31E          7090/BL      7092/BG      7115-STW
   TST31F          7119-CW      7131/BE
   TST31G          7120/BNE     7125-LD
   TST31H          7118/BNE     7127-LD
   TST31M1         7122/DATA    7124-TEXTC
   TST32           7041/BG      7160-LW      7247/B
   TST32A          7174-STW     7203/B
   TST32A0         7165-CW      7191/BE
   TST32B1         7164/B       7177-LW
   TST32C          7182/BEZ     7187-LW
   TST32D          7169/BG      7196-STW
   TST32M1         7184/DATA    7186-TEXTC
   TST32M2         7193/DATA    7195-TEXTC
   TST33           7040/BE      7261-LW
   TST34           7044/BE      7214-LW
   TST34A          7228/BE      7233-LW
   TST34B          7236/BE      7241-STB
   TST34M1         7230/DATA    7232-TEXTC
   TST34M2         7238/DATA    7240-TEXTC
   TST69P0         4799/LI      4875-GEN
   TST69P1         4867/LI      4872-GEN
   TS03DAT1         933/STW      950/CW       983-DATA    5537/GEN
   TS03DAT2         935/STW      960/MTW      984-DATA    5538/GEN
   TS03DAT3         932/LW       949/LW       985-DATA
   TS04DAT1        1044-DATA    5539/GEN     5541/GEN     5543/GEN
   TS04DAT2        1020/LW      1045-DATA
   TS04DAT3        1003/LW      1046-DATA
   TS05DAT1        1121-DATA    5545/GEN     5546/GEN     5547/GEN     5548/GEN
   T1CUR            681/STW      691/STW      707/LW       710/AW       772-DATA
   T1CURXX          708/STW      715/LW       743/LW       747/MTW      748/LW       768-DATA
   T1LAST           683/STW      694/STW      704/STW      712/CW       773-DATA
   T1ST:15         1355-LI      1374/SENSE
   T1ST:28         2018-LI      2032/SENSE
   T1ST:30         2145-LI      2200/SENSE
   T1ST:32         2243-LI      2257/SENSE
   T1ST:36         2339-LI      2377/SENSE
   T1ST:38         2420-LI      2434/SENSE
   T1ST:42         2620-LI      2634/SENSE
   T1ST:47         2769-LI      2783/SENSE
   T1ST:50         2929-LI      2974/SENSE   3018/SENSE
   T1ST:51         2985-LI
   T1ST01           774/DATA     877-:AIO     878/FAIL
   T1ST01A          877/:AIO     879-:HIO     880/FAIL     882/FAIL
   T1ST01B          879/:HIO     881-:TIO
   T1ST01C          881/:TIO     883-:TDV     884/FAIL
   T1ST02           776/DATA     889-LI       914/SENSE
   T1ST02A          891-LI       919/B
   T1ST03           777/DATA     924-EQU
   T1ST03A          931-LW       963/FAIL     968/B        969/B
   T1ST03B          939/BCS      942-BAL
   T1ST03C          945/B        948-LW
   T1ST03D          951/BE       954-LI
   T1ST03D1         957/BCR      960-MTW
   T1ST03E          930/STW      941/B        947/B        953/B        959/B        963-FAIL     965/MTW
       981/B
   T1ST03F          961/BEZ      964-MTW
   T1ST03X          937/BAL      955/BAL      971-STW
   T1ST03XX         971/STW      976/BCR*     980/BE*      986-DATA
   T1ST04           778/DATA     994-LI
   T1ST04A          999-LI      1018/B       1035/SENSE   1042/B
   T1ST04B         1007/B       1010-MTW     1016/FAIL
   T1ST04C         1015/BCR     1017-MTW
   T1ST04D         1011/BNEZ    1019-LW      1029/FAIL
   T1ST04E         1022/:AIO    1026-TIO
   T1ST04F         1028/BCR     1030-LI
   T1ST04G          998/STW     1009/B       1025/B       1033-ERROR   1037/MTW
   T1ST04H         1032/B       1036-MTW
   T1ST05           779/DATA    1052-EQU     1091/SENSE
   T1ST05B         1069/B       1073-MTW
   T1ST05C         1074/BEZ     1077-LI
   T1ST05D         1081/BEZ     1084-BAL
   T1ST05E         1072/B       1076/B       1083/B       1090-HIO
   T1ST05F         1088/BNEZ    1092-BAL
   T1ST06           780/DATA    1100-EQU     1119/SENSE
   T1ST06A         1108/B       1111-LI
   T1ST06B         1110/B       1118-HIO
   T1ST07           781/DATA    1127-BAL
   T1ST07A         1138-STH     1151/SENSE   1154/BLE     1162/B
   T1ST07B         1134/STW     1144-DATA    1159/MTW
   T1ST07C         1142/B       1146-CW
   T1ST07D         1135/STW     1145/B       1150-DATA    1160/MTW
   T1ST07E         1147/BCR     1152-MTW
   T1ST08           782/DATA    1170-BAL
   T1ST08A         1181-LI      1188/BIR
   T1ST08B         1189/B       1192-LI
   T1ST08C         1195-LI      1202/BIR
   T1ST08D         1214/B       1217-BAL
   T1ST08DA        1182/LW      1190-DATA
   T1ST08E         1216/B       1220-SENSE
   T1ST08EX        1187/BAL     1201/BAL     1204-STW     1220/SENSE
   T1ST08F         1203/B       1222-LI
   T1ST08F1        1229-LI      1245/SENSE   1252/BL
   T1ST08F2        1235/B       1238-LH
   T1ST08F3        1228/STW     1244-DATA    1249/MTW     1250/LW
   T1ST08F4        1237/B       1245-SENSE
   T1ST08F5        1242/B       1246-LI
   T1ST08P1        1222/LI      1254-DATA    5552/GEN
   T1ST08X         1204/STW     1218/B*      1221/B*      1259-DATA
   T1ST09           783/DATA    1265-BAL
   T1ST09A         1273-LI      1298/SENSE   1304/B
   T1ST09B         1276/B       1279-B
   T1ST09C         1280/B       1283-LI
   T1ST09D         1281/B       1285-LI
   T1ST09E         1282/B       1287-LI
   T1ST09F         1284/B       1286/B       1288-STW
   T1ST09G         1269/STW     1293-DATA    1302/MTW
   T1ST09I         1291/B       1295-MTW
   T1ST09J         1278/B       1294/B       1298-SENSE
   T1ST09K         1296/BEZ     1299-MTW
   T1ST10           784/DATA    1310-BAL
   T1ST10A         1317-LI      1334/SENSE   1338/BCR
   T1ST10B         1323/B       1327-:AIO
   T1ST10B1        1332/B       1342-BAL
   T1ST10C         1326/B       1334-SENSE   1347/B
   T1ST10D         1335-MTW     1344/B
   T1ST13           787/DATA    1495-BAL
   T1ST13A         1498-STH     1520/B       1524/SENSE
   T1ST13B         1505/B       1508-STH
   T1ST13B1        1511/B       1526-LI
   T1ST13C         1514-LH      1528/BNE     1530/BNE
   T1ST13E         1507/B       1513/B       1523/B       1524-SENSE   1532/B
   T1ST15           789/DATA    1353-BAL
   T1ST15A         1361/B       1364-BAL
   T1ST15B         1366/B       1369-LW
   T1ST15C         1363/B       1368/B       1374-SENSE
   T1ST16           790/DATA    1386-BAL
   T1ST16A         1404-LI      1478/B
   T1ST16A0        1406-LH      1432/BLE     1438/BLE
   T1ST16A1        1409-LI      1425/SENSE
   T1ST16A2        1412/B       1415-LW
   T1ST16B         1399/STW     1414/B       1423-DATA    1429/MTW     1435/MTW     1472/STW
   T1ST16C         1418/BE      1426-MTW
   T1ST16D         1427/BNEZ    1434-MTW
   T1ST16E         1433/B       1441-LI
   T1ST16E0        1443-LH      1467/BLE
   T1ST16E1        1446-LI      1462/SENSE
   T1ST16F         1449/B       1452-LW
   T1ST16F0        1400/STW     1451/B       1460-DATA    1464/MTW     1473/STW
   T1ST16G         1455/BE      1463-MTW
   T1ST16H         1469/BNEZ    1479-LW
   T1ST16P         1405/LW      1440/LW      1484-DATA
   T1ST16P1        1484/DATA    1487-DATA
   T1ST16P2        1485/DATA    1488-DATA
   T1ST16P3        1486/DATA    1489-DATA
   T1ST16T0        1389/STW     1401/LW      1479/LW      1483-DATA
   T1ST17           791/DATA    1541-BAL
   T1ST17A         1550-STB     1594/SENSE   1597/BLE
   T1ST17B         1560/B       1563-LW
   T1ST17C         1566/BG      1572-LI
   T1ST17D         1574/BG      1580-BAL
   T1ST17E         1569/B       1577/B       1582/B       1585-LI
   T1ST17F         1588/B       1591-BAL
   T1ST17G         1562/B       1571/B       1579/B       1584/B       1590/B       1594-SENSE
   T1ST17H         1592/B       1595-MTW
   T1ST19           793/DATA    1608-BAL
   T1ST19A         1611-STW     1663/BIR
   T1ST19B         1618-LB      1661/BIR     1665/SENSE
   T1ST19B1        1638/B       1641-LI
   T1ST19C         1644/B       1647-LI
   T1ST19D         1650/B       1653-LI
   T1ST19DF        1634/STW     1655/CB      1669/LB      1693-DATA
   T1ST19D1        1657-LB      1666/B
   T1ST19E         1640/B       1646/B       1652/B       1665-SENSE   1683/B
   T1ST19F         1656/BNE     1667-BAL
   T1ST19M         1674/STW     1677/STW     1679/DATA    1694-TEXTC
   T1ST19N         1668/STW     1671/STW     1681/DATA    1695-TEXTC
   T1ST19TB        1613/LW      1684-DATA
   T1ST19TC        1616/STW     1618/LB      1627/CB      1633/LB      1660/AWM     1672/LB      1689-DATA
   T1ST19TH        1619/LB      1626/LB      1659/AWM     1675/LB      1690-DATA
   T1ST19TI        1658/LB      1691-DATA
   T1ST19TJ        1657/LB      1692-DATA
   T1ST20           794/DATA    1702-BAL
   T1ST20A         1717-STH     1731/SENSE   1734/BLE
   T1ST20B         1721/B       1724-BAL
   T1ST20C         1723/B       1731-SENSE
   T1ST20D         1726/B       1732-MTW
   T1ST23           797/DATA    1744-BAL
   T1ST23A         1752-LI      1778/SENSE   1782/BCR
   T1ST23B         1755/B       1758-BAL
   T1ST23C         1760/B       1763-LI
   T1ST23D         1766/B       1769-MTW
   T1ST23E         1770/BEZ     1773-LW
   T1ST23F         1757/B       1762/B       1768/B       1772/B       1778-SENSE
   T1ST23G         1776/B       1779-MTW
   T1ST24           798/DATA    1793-BAL
   T1ST24A         1795-LI      1817/SENSE
   T1ST24B         1798/B       1801-BAL
   T1ST24C         1803/B       1806-LI
   T1ST24D         1809/B       1812-LW
   T1ST24E         1800/B       1805/B       1811/B       1817-SENSE
   T1ST25           799/DATA    1826-BAL
   T1ST25A         1840-LI      1889/SENSE   1898/B
   T1ST25B         1833/STW     1852-DATA    1893/MTW
   T1ST25C         1850/B       1854-BAL
   T1ST25D         1834/STW     1858-DATA    1894/MTW
   T1ST25E         1856/B       1860-BAL
   T1ST25F         1835/STW     1863-DATA    1895/MTW
   T1ST25G         1861/B       1865-LI
   T1ST25H         1868/B       1871-LW
   T1ST25I         1836/STW     1876-DATA    1896/MTW
   T1ST25IO        1845/LW      1900-DATA
   T1ST25J         1874/B       1878-LW
   T1ST25K         1837/STW     1885-DATA    1897/MTW
   T1ST25L         1883/B       1887-MTW
   T1ST25M         1870/B       1889-SENSE
   T1ST25N         1888/BEZ     1890-MTW
   T1ST26           800/DATA    1908-BAL
   T1ST26A         1912-LI      1947/SENSE   1949/BIR     1952/BL
   T1ST26B         1928/B       1931-CW
   T1ST26C         1932/BCR     1936-BAL
   T1ST26D         1938/B       1941-BAL
   T1ST26E         1942/B       1945-MTW
   T1ST26F         1930/B       1947-SENSE
   T1ST26G         1946/BEZ     1948-MTW
   T1ST27           801/DATA    1960-BAL
   T1ST27A         1965-STW     1993/SENSE   2000/B       2004/B       2008/BNE
   T1ST27B         1972/B       1975-BAL
   T1ST27C         1977/B       1980-LI
   T1ST27D         1983/B       1986-LW
   T1ST27E         1974/B       1979/B       1985/B       1993-SENSE
   T1ST27F         1989/BE      1994-MTW
   T1ST27G         1997/BE      2001-MTW
   T1ST27H         1995/BNEZ    2005-AI
   T1ST28           802/DATA    2016-BAL
   T1ST28A         2025/B       2028-BAL
   T1ST28B         2027/B       2032-SENSE
   T1ST29           803/DATA    2042-BAL
   T1ST29A         2053-STW     2119/SENSE   2126/B       2130/B       2134/BL
   T1ST29B         2062/B       2065-BAL
   T1ST29C         2067/B       2070-STH
   T1ST29D         2081/BNE     2084-STW
   T1ST29E         2083/BE      2090-LI
   T1ST29F         2093/B       2096-LW
   T1ST29G         2099/B       2102-LW
   T1ST29H         2107/B       2109-LW
   T1ST29I         2112/BE      2117-MTW
   T1ST29J         2118/BEZ     2120-MTW
   T1ST29K         2123/BE      2127-MTW
   T1ST29L         2121/BNEZ    2131-AI
   T1ST30           804/DATA    2143-BAL
   T1ST30A         2159-LI      2174/B
   T1ST30B         2171/B       2175-LI
   T1ST30C         2180/B       2183-CW
   T1ST30D         2184/BCR     2189-BAL
   T1ST30E         2191/B       2194-BAL
   T1ST30F         2195/B       2198-MTW
   T1ST31           805/DATA    2207-BAL
   T1ST31A         2214-STH     2228/SENSE   2233/B
   T1ST31B         2220/B       2223-BAL
   T1ST31C         2212/STW     2227-DATA    2232/MTW
   T1ST31D         2222/B       2228-SENSE
   T1ST31E         2225/B       2229-CI
   T1ST32           806/DATA    2241-BAL
   T1ST32A         2250/B       2253-BAL
   T1ST32B         2252/B       2257-SENSE
   T1ST35           809/DATA    2267-BAL
   T1ST35A         2271-LI      2324/SENSE   2328/BL
   T1ST35B         2286/B       2289-BAL
   T1ST35C         2291/B       2294-LI
   T1ST35D         2297/B       2300-LW
   T1ST35E         2303/B       2306-LW
   T1ST35F         2311/B       2314-LW
   T1ST35G         2317/BE      2322-MTW
   T1ST35H         2323/BEZ     2325-AI
   T1ST36           810/DATA    2337-BAL
   T1ST36A         2347/B       2350-CW
   T1ST36B         2351/BCR     2356-BAL
   T1ST36C         2358/B       2361-LI
   T1ST36D         2364/B       2367-LW
   T1ST36E         2371/BE      2375-MTW
   T1ST37           811/DATA    2384-BAL
   T1ST37A         2391-STH     2405/SENSE   2410/B
   T1ST37B         2397/B       2400-BAL
   T1ST37C         2389/STW     2404-DATA    2409/MTW
   T1ST37D         2399/B       2405-SENSE
   T1ST37E         2402/B       2406-CI
   T1ST38           812/DATA    2418-BAL
   T1ST38A         2427/B       2430-BAL
   T1ST38B         2429/B       2434-SENSE
   T1ST39           813/DATA    2443-BAL
   T1ST39A         2448-STW     2462/SENSE   2466/BL
   T1ST39B         2454/B       2457-BAL
   T1ST39C         2461-DATA    2473/B
   T1ST39D         2456/B       2462-SENSE   2488/B
   T1ST39E         2463-MTW     2481/B       2485/B
   T1ST39F         2459/B       2468-LI
   T1ST39F1        2471/B       2474-LW
   T1ST39F2        2478/BNEZ    2483-BAL
   T1ST39F3        2482/B       2486-BAL
   T1ST39F4        2447/STW     2464/MTW     2487-DATA
   T1ST40           814/DATA    2499-BAL
   T1ST40A         2505-LI      2552/SENSE   2559/B       2563/B       2567/BL
   T1ST40B         2514/B       2517-BAL
   T1ST40C         2519/B       2522-LI
   T1ST40D         2525/B       2528-LW
   T1ST40E         2531/B       2534-LW
   T1ST40F         2539/B       2542-LW
   T1ST40G         2545/BE      2550-MTW
   T1ST40H         2551/BEZ     2553-MTW
   T1ST40I         2556/BE      2560-MTW
   T1ST40J         2554/BNEZ    2564-AI
   T1ST41           815/DATA    2575-BAL
   T1ST41A         2580-LI      2604/SENSE   2606/BIR     2609/BL
   T1ST41B         2589/B       2592-CW
   T1ST41C         2593/BCR     2597-BAL
   T1ST41D         2599/B       2602-MTW
   T1ST41E         2591/B       2604-SENSE
   T1ST41F         2603/BEZ     2605-MTW
   T1ST42           816/DATA    2617-BAL
   T1ST42A         2627/B       2630-BAL
   T1ST42B         2629/B       2634-SENSE
   T1ST45           819/DATA    2644-BAL
   T1ST45A         2649-LI      2697/SENSE   2704/B       2708/B       2712/BL
   T1ST45B         2659/B       2662-BAL
   T1ST45C         2664/B       2667-LI
   T1ST45D         2670/B       2673-LW
   T1ST45E         2676/B       2679-LW
   T1ST45F         2684/B       2687-LW
   T1ST45G         2690/BE      2695-MTW
   T1ST45H         2696/BEZ     2698-MTW
   T1ST45I         2701/BE      2705-MTW
   T1ST45J         2699/BNEZ    2709-AI
   T1ST46           820/DATA    2720-BAL
   T1ST46A         2724-LI      2752/SENSE   2754/BIR     2757/BL
   T1ST46B         2737/B       2740-CW
   T1ST46C         2741/BCR     2745-BAL
   T1ST46D         2747/B       2750-MTW
   T1ST46E         2739/B       2752-SENSE
   T1ST46F         2751/BEZ     2753-MTW
   T1ST47           821/DATA    2766-BAL
   T1ST47A         2776/B       2779-BAL
   T1ST47B         2778/B       2783-SENSE
   T1ST48           822/DATA    2798-BAL
   T1ST48A         2807-LI      2856/SENSE   2861/BIR     2868/B       2871/BIR
   T1ST48B         2817/B       2820-AND
   T1ST48C         2822/BGE     2825-BAL
   T1ST48D         2804/STW     2829-DATA    2859/MTW     2866/STW     2869/MTW
   T1ST48E         2827/B       2832-LI
   T1ST48F         2835/B       2838-LW
   T1ST48G         2841/BE      2846-LW
   T1ST48H         2851/B       2854-MTW
   T1ST48I         2855/BEZ     2857-MTW
   T1ST48J         2858/BNEZ    2869-MTW
   T1ST49           823/DATA    2880-BAL
   T1ST49A         2890-LW      2907/BDR     2909/SENSE
   T1ST49B         2891/STW     2897/B       2900-BAL
   T1ST49C         2889/STW     2902/B       2904-DATA    2906/MTW
   T1ST49D         2899/B       2905/B       2908/B       2909-SENSE
   T1ST49E         2892/LW      2912-DATA
   T1ST49F         2890/LW      2916-DATA
   T1ST50           824/DATA    2927-BAL
   T1ST50A         2937/B       2940-AND
   T1ST50B         2942/BE      2945-BAL
   T1ST50C         2947/B       2950-LI
   T1ST50D         2953/B       2956-LW
   T1ST50E         2961/B       2964-LW
   T1ST50F         2967/BE      2972-MTW
   T1ST51           825/DATA    2983-BAL
   T1ST51A         2994/B       2997-BAL
   T1ST51B         2999/B       3002-LI
   T1ST51C         3005/B       3008-LW
   T1ST51D         3011/BE      3016-MTW
   T1ST52           826/DATA    3026-BAL     3043/SENSE
   T1ST52A         3032/B       3035-BAL
   T1ST52B         3036/B       3039-BAL
   T1ST52C         3034/B       3038/B       3043-SENSE
   T1ST53           827/DATA    3052-BAL
   T1ST53A         3056-LW      3075/SENSE   3077/BIR
   T1ST53B         3062/B       3065-BAL
   T1ST53C         3066/B       3071-BAL
   T1ST53D         3064/B       3070/B       3075-SENSE
   T1ST53E         3073/B       3076-MTW
   T1ST54           215/B       3084-BAL
   T1ST54A         3087-LI      3097/SENSE
   T1ST54B         3090/B       3093-BAL
   T1ST54E         3092/B       3097-SENSE
   T1ST54T          213-MTW      828/DATA
   T1ST55           829/DATA    3109-LI
   T1ST55A         3122-BAL
   T1ST55B         3123-LI      3132/BIR
   T1ST55BM        3210/LB      3331-DATA
   T1ST55C         3137/BNEZ    3141-BAL
   T1ST55D         3143-LI      3182/SENSE   3183/BIR
   T1ST55E         3149/B       3153-BAL
   T1ST55F         3155/B       3164-LW
   T1ST55G         3167/BNE     3176-BAL
   T1ST55H         3171/BE      3174/BE      3180-MTW
   T1ST55I         3181/BEZ     3183-BIR
   T1ST55M1        3278/DATA    3333-TEXTC
   T1ST55M2        3280/DATA    3334-TEXTC
   T1ST55M3        3282/DATA    3336-TEXTC
   T1ST55M4        3284/DATA    3338-TEXTC
   T1ST55M5        3303/STH     3306/LI      3327/DATA    3340-TEXTC
   T1ST55S         3141/BAL     3275-STW
   T1ST55SA        3124/BAL     3145/BAL     3187-LW
   T1ST55SP        3286/BAL     3290-LI
   T1ST55SQ        3307-LW      3325/BIR
   T1ST55SX        3275/STW     3288/B*      3332-DATA
   T1ST55TU        3213/BAL     3220/BAL     3225/BAL     3231/BAL     3243/BAL     3249/BAL     3253/BAL
      3257/BAL     3263/BAL     3267/BAL     3270-LW
   T1ST55T0        3130/BAL     3202-AI
   T1ST55T1        3131/BAL     3205-LI
   T1ST55T2        3212/BEZ     3215-LI
   T1ST55T3        3236/BE      3239/BE      3242/BE      3244-MTW
   T1ST56           830/DATA    3350-BAL     3370/SENSE
   T1ST56A         3357/B       3361-LI
   T1ST56B         3365/B       3368-MTW
   T1ST56C         3369/BEZ     3371-LCW     3380/FAIL    3383/BIR     3384/FAIL    3398/SENSE
   T1ST56D         3379/B       3381-MTB
   T1ST56E         3382/BEZ     3385-LI
   T1ST56E0        3390-LI      3408/BLE
   T1ST56F         3389/STW     3397-DATA    3404/MTW     3412/B
   T1ST56G         3395/B       3401-LB
   T1ST56H         3403/BNE     3410-BAL
   T1ST56H0        3387/STW     3405/MTW     3411-DATA
   T1ST57           831/DATA    3421-BAL
   T1ST57A         3426-LW      3463/SENSE   3465/BIR
   T1ST57B         3439/B       3443-BAL
   T1ST57C         3445/B       3449-LW
   T1ST57D         3451/BE      3456-LW
   T1ST57E         3441/B       3447/B       3455/B       3463-SENSE
   T1ST57F         3461/B       3464-MTW
   T1ST58           832/DATA    3479-BAL
   T1ST58A         3483-BAL     3492/SENSE   3524/B       3541/B       3545/B
   T1ST58A1        3492-SENSE   3502/B       3508/B       3512/B
   T1ST58B         3490/B       3494-MTW
   T1ST58C         3500/B       3503-LW
   T1ST58D         3495/BEZ     3504/BCS     3506/BNEZ    3509-BAL
   T1ST58E         3510/B       3513-LI      3520/SENSE   3528/BIR     3529/FAIL
   T1ST58F         3520-SENSE
   T1ST58F1        3493/B       3521-AI      3537/B
   T1ST58G         3518/B       3525-TDV
   T1ST58H         3527/BCR     3530-LW
   T1ST58I         3532/BE      3542-AI
   T1ST60           834/DATA    3564-BAL     3726/FAIL
   T1ST60A         3578-STW     3706/BIR
   T1ST60AD        3579/LW      3747-DATA    3748/EQU
   T1ST60AN        3577/LI      3710/MI      3748-EQU
   T1ST60C         3598-BAL     3621/SENSE   3685/BNEZ    3703/BNEZ    3704/BIR
   T1ST60C0        3605-LI      3683/B
   T1ST60C1        3621-SENSE   3629/B       3641/B
   T1ST60C2        3622-BAL     3655/B       3680/B
   T1ST60D         3619/B       3624-LI
   T1ST60D1        3626/B       3630-LW
   T1ST60D2        3639/B       3642-LCW
   T1ST60E         3647-LI      3654/SENSE   3659/BIR     3660/FAIL
   T1ST60F         3654-SENSE
   T1ST60G         3652/B       3656-TDV
   T1ST60H         3658/BCR     3661-LW
   T1ST60I         3663/BE      3684-MTW
   T1ST60J         3623/B       3686-LW
   T1ST60K         3690/BNE     3700-AWM
   T1ST60L         3698/B       3701-EQU
   T1ST60M         3715/BNEZ    3718/BG      3721-LW
   T1ST60MG        3667/DATA    3761-TEXTC
   T1ST60P         3729-CNAME
   T1ST60P1        3747/DATA    3750-T1ST60P
   T1ST60P2        3747/DATA    3751-T1ST60P
   T1ST60P3        3747/DATA    3752-T1ST60P
   T1ST60P4        3747/DATA    3753-T1ST60P
   T1ST60TI        3688/LW      3756-DATA
   T1ST60TM        3723/STW     3725/DATA    3760-TEXTC
   T1ST60TP        3670/LW      3676/LW      3687/STW     3757-DATA
   T1ST60TS        3595/STM     3599/LW      3686/LW      3697/STW     3700/AWM     3755-DATA
   T1ST60TT        3574/STW     3646/AWM     3711/LW      3758-DATA
   T1ST63           837/DATA    3780-BAL     3801/FAIL
   T1ST63A         3795-LW      3899/B
   T1ST63B         3800/BGE     3804-LI
   T1ST63B1        3831-STW     3839/BIR     3844/BIR
   T1ST63B3        3840/B       3846-LI
   T1ST63C         3853-LI
   T1ST63C1        3858/B       3862-CW
   T1ST63C2        3863/BCR     3871-BAL
   T1ST63C3        3873/B       3877-EQU
   T1ST63C4        3890/B       3893-MTW
   T1ST63C5        3898-MTH     3977/B
   T1ST63D         3894/BEZ     3901-LW      3976/SENSE
   T1ST63D0        3911-LCW     3927/FAIL    3971/B       3975/B
   T1ST63D1        3914-LI      3918/BIR
   T1ST63D2        3922/BEZ     3929-BAL
   T1ST63D3        3932-LI      3936/BIR
   T1ST63D4        3938/BEZ     3946-LCW
   T1ST63D5        3949-LI      3953/BIR
   T1ST63E         3955/BEZ     3962-BIR
   T1ST63E1        3962/BIR     3964-CI
   T1ST63E2        3965/BNE     3972-LI
   T1ST63F         3928/B       3944/B       3961/B       3976-SENSE
   T1ST63I         3912/BAL     3929/BAL     3947/BAL     3978-LCI
   T1ST63IT        3979/STM     4006/LM      4009/STM     4084/LM      4090-RES
   T1ST63JR        3919/MTW     3937/MTW     3954/MTW     3992/STW     4043/MTW     4049/MTW     4066/MTW
      4073/MTW     4082/MTW     4098-DATA
   T1ST63JT        3921/MTW     3991/STW     4050/MTW     4097-DATA
   T1ST63Q1        3913/DATA    4091-GEN
   T1ST63Q2        3930/DATA    4093-GEN
   T1ST63Q3        3948/DATA    4095-GEN
   T1ST63Q4        3925/LW      4099-DATA
   T1ST63Q5        3941/LW      3958/LW      4100-DATA
   T1ST63Q6        4101-DATA
   T1ST63SF        3792/STW     3799/CW      4086-DATA    4119/STW     4214/CW
   T1ST63SK        3923/LW      3939/LW      3956/LW      3972/LI      3994/STW     4052/MTW     4054/CB
      4057/STB     4058/MTB     4068/LW      4089-DATA    4128/LI      4134/STW     4170/LW      4216/LW
      4273/STW     4289/LW      4306/MTB     4311/STW     4334/LW      4358/MTB     5632/GEN     5634/GEN
      5636/GEN     5638/GEN     5640/GEN     5643/GEN     5645/GEN
   T1ST63SL        3793/STW     3795/LW      3819/LW      3895/LW      3898/MTH     3993/LW      4087-DATA
      4118/STW     4132/LW      4212/MTW     4213/LW      4242/LW      5629/GEN
   T1ST63SS        4067/LW      4074/LW      4088-DATA    4228/STW     4245/LW      5633/GEN     5642/GEN
   T1ST63X         3917/BAL     3935/BAL     3952/BAL     4008-LCI
   T1ST63XA        4079/B       4083-LCI
   T1ST63XM        3985/STW     4028-DATA
   T1ST63XN        3987/STW     4035-DATA
   T1ST63XO        3989/STW     4081-DATA
   T1ST63X0        4011-BAL     4021/SENSE   4036/BIR
   T1ST63X1        4021-SENSE   4030/B
   T1ST63X2        4019/B       4022-LI
   T1ST63X3        4026/B       4031-BAL
   T1ST63X4        4033/B       4037-LB
   T1ST63X5        4039/BNE     4041/B       4045-CI
   T1ST63X6        4046/BE      4052-MTW
   T1ST63X7        4059-LI      4065/FAIL
   T1ST63X8        4064/B       4067-LW
   T1ST63X9        4070/BE      4074-LW
   T1ST64           838/DATA    4113-BAL
   T1ST64A         4131-BAL     4211/SENSE   4219/B
   T1ST64A0        4145/B       4148-BAL
   T1ST64B         4150/B       4153-LI
   T1ST64B0        4158/B       4161-BAL
   T1ST64B1        4163/B       4166-BAL
   T1ST64C         4167/B       4170-LW      4209/SENSE
   T1ST64C1        4181/B       4184-BAL
   T1ST64D         4186/B       4189-LI
   T1ST64D0        4198/B       4201-BAL
   T1ST64D1        4203/B       4206-BAL
   T1ST64E         4183/B       4188/B       4200/B       4205/B       4209-SENSE
   T1ST64F         4147/B       4152/B       4160/B       4165/B       4169/B       4211-SENSE
   T1ST64G         4207/B       4221-LI      4254/SENSE
   T1ST64G0        4225-LI      4250/BCS
   T1ST64G1        4233/B       4236-BAL
   T1ST64G2        4238/B       4242-LW
   T1ST64G3        4247/BE      4249-MTW
   T1ST64H         4235/B       4240/B       4254-SENSE
   T1ST64LI        4222/STW     4249/MTW     4257-DATA
   T1ST64X1        4224/STW     4248/MTW     4251/MTW     4258-DATA
   T1ST65           839/DATA    4266-BAL
   T1ST65A0        4275-BAL     4278/SENSE
   T1ST65A1        4278-SENSE
   T1ST65B         4276/B       4281-LI      4357/SENSE
   T1ST65B0        4288-LW      4297/SENSE   4307/BIR
   T1ST65B2        4297-SENSE   4304/B
   T1ST65B3        4295/B       4300-BAL
   T1ST65B4        4298/B       4302/B       4306-MTB
   T1ST65C         4309-LI
   T1ST65C1        4313-LI      4359/BIR
   T1ST65C2        4318/B       4321-BAL
   T1ST65C3        4323/B       4326-LW
   T1ST65D         4337/B       4340-LI
   T1ST65D1        4343/B       4347-LW
   T1ST65D2        4346/B       4352/B       4355-MTW
   T1ST65D3        4356/BEZ     4358-MTB
   T1ST66           840/DATA    4389-BAL
   T1ST66A         4445-BAL     4447/FAIL
   T1ST66B         4446/B       4450-LI      4463/SENSE
   T1ST66B1        4455/B       4459-BAL
   T1ST66B2        4457/B       4463-SENSE
   T1ST66C         4461/B       4466-LI
   T1ST66CD        4471/STW     4477/LW      4510/STW     4536/LW      4598-DATA
   T1ST66C1        4467-LW      4490/BIR
   T1ST66C2        4477-LW      4489/SENSE
   T1ST66C3        4472/STW     4482-DATA
   T1ST66C4        4480/B       4484-BAL
   T1ST66C5        4475/STW     4485-DATA
   T1ST66C6        4474/STW     4488-DATA
   T1ST66C7        4483/B       4489-SENSE
   T1ST66C8        4486/B       4490-BIR
   T1ST66D         4492-LI      4502/SENSE
   T1ST66D1        4495/B       4498-BAL
   T1ST66D2        4497/B       4502-SENSE
   T1ST66D3        4500/B       4503-LI
   T1ST66D4        4504-LW      4568/BIR
   T1ST66D5        4528-LI      4567/SENSE
   T1ST66E         4533/B       4536-LW
   T1ST66EA        4464/B       4571/BEZ     4585/B       4588-BAL
   T1ST66E1        4511/STW     4541-DATA
   T1ST66E2        4516/STW     4539/B       4543-BAL
   T1ST66E3        4513/STW     4547-DATA
   T1ST66E4        4545/B       4549-LI
   T1ST66E5        4552/B       4556-LW
   T1ST66E6        4526/STW     4560-DATA
   T1ST66E7        4515/STW     4563-DATA
   T1ST66E8        4561/B       4565-MTW
   T1ST66E9        4535/B       4554/B       4567-SENSE
   T1ST66F         4570-MTW
   T1ST66F1        4573-LI      4587/SENSE
   T1ST66F2        4580/B       4583-BAL
   T1ST66F3        4582/B       4587-SENSE
   T1ST66HD      4414.1/LI      4592-RES     5648/GEN
   T1ST66HE        4593-RES
   T1ST66HF        4594-RES
   T1ST66P1        4467/LW      4602-DATA
   T1ST66P2        4504/LW      4616-DATA
   T1ST66Q1        4602/DATA    4603/DATA    4604/DATA    4606-DATA
   T1ST66Q2        4616/DATA    4624-DATA
   T1ST66Q3        4617/DATA    4629-DATA
   T1ST66Q4        4618/DATA    4634-DATA
   T1ST66Q5        4619/DATA    4639-DATA
   T1ST66Q6        4620/DATA    4644-DATA
   T1ST66Q7        4621/DATA    4649-DATA
   T1ST66Q8        4622/DATA    4654-DATA
   T1ST66SK        4398/STW     4408/LW      4412/LW      4597-DATA    5647/GEN     5649/GEN     5651/GEN
      5653/GEN     5660/GEN
   T1ST66SL        4400/STW     4420/LW      4430/LW      4599-DATA    5655/GEN
   T1ST66SM        4509/STW     4600-DATA    5657/GEN
   T1ST66SR        4396/STW     4596-DATA    5662/GEN
   T1ST68           842/DATA    4665-BAL     4697/B
   T1ST68A         4683-BAL     4701/BIR
   T1ST68B         4690/B       4700-MTH
   T1ST68C         4717/STH     4721/STH     4725/DATA    4730-TEXTC
   T1ST68D         4677/LW      4731-XPSD 5060.11/LW
   T1ST68E         4675/STD     4707/SW      4715/LW      4719/LW      4740-DATA    4765/CW      4767/STW
      4769/CW      4771/STW  5060.25/STD  5060.51/LD
   T1ST68F         4731/XPSD    4743-DATA    4775/LPSD
   T1ST68G         4756/B       4762-LI
   T1ST68I         4760/B       4775-LPSD
   T1ST68J         4686/LI      4735-GEN  5060.31/LI
   T1ST68K         4737-GEN     4751/LI
   T1ST69           843/DATA    4784-BAL
   T1ST70           844/DATA    4897-BAL
   T1ST70A         4918-STW     4988/BGE
   T1ST70B         4922-STW     4982/B
   T1ST70C         4939-LI      4975/BIR
   T1ST70D         4942-LI      4972/BEZ     5009/SENSE
   T1ST70E         4953-LI      4992/BIR     4997/B       5000/B
   T1ST70F         4968-BAL     4995/BNEZ
   T1ST70G         4989-LW      5010/B
   T1ST70H         4967/BEZ     4992-BIR
   T1ST70I         4974/BEZ     4998-STW
   T1ST70SK        4916/STW     5060-DATA    5665/GEN     5667/GEN     5669/GEN     5671/GEN     5673/GEN
      5675/GEN     5677/GEN
   T1ST70SS        5059-DATA    5666/GEN     5668/GEN
   T1ST71         844.1/DATA  5060.4-BAL
   T1ST71A      5060.18-LI   5060.57/BIR
   T1ST71B      5060.27-STW  5060.45/B    5060.49/BIR
   T1ST71C      5060.36/B    5060.48-MTH
   T1ST71D      5060.62-LW   5060.79/BIR
   T2AIO           5959/STW     5979/LW      6207/LW      6291/LW      6897-RES
   T2AIOCC         5960/STW     6210/LW      6293/LW      6903-RES
   T2CALL          5763/STW     5898/LW      5903/STW     5913/LW      5983/LW      6008/LW      6027/LW
      6352/STW     6520/STW     6689/STW     6722/STW     6739/AWM     6862-EQU
   T2CALLBR        6831/GEN     6837-B
   T2CALX          6052/B       6062/B       6102/B       6123/B       6158/B       6181/B       6196/B
      6201/BLEZ    6239/B       6436/B       6455/B       6479/B       6489/B       6521/B       6594/B
      6636/B       6655/B       6674/B       6690/B       6723/B       6834-MTW     6846/B       6847/B
   T2CALXPS        5724/LW      6827-XPSD
   T2CCALL         5762/LW      6351/LW      6519/LW      6688/LW      6721/LW      6819-CAL1
   T2CCYCC         5797/STW     5920/LW      6167/MTW     6798-DATA
   T2CCYCI         5719/STW     5921/CW      6800-DATA
   T2CDEVA         6203/STW     6260/HIO*    6284/LW      6286/STW     6310/LW      6312/STW     6368/HIO*
      6388/HIO*    6416/HIO*    6813-DATA
   T2CDONE         5924/LW      6673/MTW     6784-DATA
   T2CFIN          5796/STW     5923/STW     6670/MTW     6796-DATA
   T2CINDEX        6574/STD     6576/LD      6587/LD      6802-DATA
   T2CIOAC         5794/STD     5886/STW     5977/STW     6155/MTW     6172/MTW     6530/MTW     6778-DATA
   T2CIOS          5887/MTW     5974/MTW     6003/MTW     6006/MTW     6175/MTW     6532/MTW     6780-DATA
   T2CKEY          5798/STW     6591/STW     6595/STW     6666/MTW     6805-DATA
   T2CMEMAC        5795/STD     5878/MTW     6058/LW      6098/MTW     6253/MTW     6325/MTW     6534/MTW
      6646/MTW     6651/MTW     6782-DATA
   T2CMEMNO        5820/STW     6059/CW      6071/DW      6080/CW      6792-DATA
   T2CMFRST        5803/STW     6089/AW      6790-DATA
   T2CMMAP         5823/STW     5882/STB     6072/LB      6077/LB      6090/STB     6257/STB     6329/STB
      6645/STB     6650/STB     6815-DATA
   T2CMTW          5833/LW      6825-MTW
   T2CPRIIO        5846/STD     5848/CW      5850/STW     6160/CW      6786-DATA
   T2CPRIM         5852/CW      5854/STW     6064/CW      6788-DATA
   T2CRETRY        5723/STW     6560/LW      6629/LW      6794-DATA
   T2CTIME         5832/STW     5857/SW      5904/LW      6176/LW      6821-DATA    6825/MTW
   T2DEVA          5754/STW     5861/LW      5941/CW      6162/LW      6202/LW      6562/LW      6867-RES
   T2DONE          5750/STW     6668/MTW     6672/STW     6924-RES
   T2ERROR         5996/MTW     6021/MTW     6206/STW     6262/STW     6811-DATA
   T2EXEC          5838/B       5844-LI      5922/BL      5926/BL
   T2EXECM         5864/DATA    5867-TEXTC
   T2EXEC0         5847-LW      5910/BL
   T2EXEC1         5866/B       5868-LW
   T2EXEC2         5856/BEZ     5859/BGE     5907-MTW
   T2EXEC3         5913-LW      5919/BL
   T2EXIT          5740/STW     5927/B*      6823-DATA
   T2INIT          5726/BAL     5740-STW
   T2INITM         5813/DATA    5815-TEXTC
   T2INIT1         5743-LI      5789/BL
   T2INIT2         5811/BG      5816-MTW
   T2INTCAL        5991/STD     5994/LD      6016/STD     6019/LD      6025/STD     6032/LD      6040-DATA
   T2INTREC        5748/STW     5890/CW      5950/MTW     5975/STW     5982/STW     5999/STW     6004/STW
      6007/STW     6048/STW     6174/STW     6200/MTW     6871-RES
   T2INTS          5931-LCI     6039/DATA
   T2INTSM1        5947/DATA    5949-TEXTC
   T2INTSM2        5954/STW     5956/DATA    5958-TEXTC
   T2INTSR         5932/STM     5936/LM      6036-RES
   T2INTSX         6026/STW     6030/MTW     6037-DATA
   T2INTS1         5935-LCI     5948/B       5957/B       5978/B       6005/B       6022/BNEZ    6034/B
   T2INTS2         5934/BCR     5938-STCF
   T2INTS2A        5941-CW      5945/BL
   T2INTS3         5942/BE      5950-MTW
   T2INTS4         5951/BLZ     5959-STW
   T2INTS5         5969-LW
   T2INTS6         5974-MTW     5997/BNEZ
   T2INTS7         5976-LI      6000/B
   T2INTS8         5973/BE      5979-LW
   T2INTS9         5981/BEZ     6001-LB
   T2IOCD          5870/LD      6121/STD     6168/LI      6190/LD      6879-RES
   T2ISER          5937/LPSD    6039-DATA    6817/XPSD
   T2ISERXP        5790/LW      6588/LW      6817-XPSD
   T2MEM0          5751/STW     5879/LW      6095/STW     6117/LW      6254/LW      6326/LW      6426/LW
      6431/LW      6443/LW      6462/LW      6642/LW      6881-RES
   T2MEM1          5752/STW     6097/STW     6447/LW      6452/LW      6465/LW      6647/LW      6653/STW
      6883-RES
   T2MODCAL        6051/BAL     6101/BAL     6122/BAL     6180/BAL     6238/BAL     6435/BAL     6454/BAL
      6478/BAL     6488/BAL     6593/BAL     6635/BAL     6654/BAL     6730-LD
   T2PRIIO         5746/STW     5847/LW      6049/STW     6157/MTW     6159/LW      6179/STW     6195/STW
      6873-RES
   T2PRIM          5747/STW     5851/LW      6050/STW     6061/MTW     6063/LW      6100/STW     6875-RES
   T2RANDN1        5767/STW     6067/LW      6075/STW     6085/STW     6129/LW      6131/STW     6424/LW
      6434/STW     6546/LW      6548/STW     6567/LW      6578/STW     6603/LW      6616/STW     6691/LW
      6693/STW     6920-RES
   T2RANDN2        6922-RES
   T2RESTOR        6205/STW     6261/STW     6318/MTW     6807-DATA
   T2RETRY         6143/STW     6356/MTW     6506/MTW     6895-RES
   T2SECTA         5757/STD     6134/LD      6537/LD      6885-RES
   T2SECTI         6559/STD     6579/LD      6605/LD      6887-RES
   T2SEEKB         5868/LW      6142/STW     6144/LI      6188/LW      6289/LW      6430/LW      6451/LW
      6472/LW      6486/CW      6492/LW      6613/STW     6891-RES
   T2SEEKFL        5749/STW     6127/MTW     6148/STW     6338/STW     6346/STW     6391/STW     6889-RES
   T2SENSEB        6124/LI      6485/LW      6497/LW      6893-RES
   T2SIOT          5745/STW     5855/LW      5905/STW     6047/STW     6177/STW     6869-RES
   T2SKIP          6809-DATA
   T2TASK          5761/STD     5874/LD      5897/STD     5970/LD      6092/LD      6108/LD      6216/LD
      6350/STD     6504/LD      6518/STD     6661/LD      6687/STD     6720/STD     6730/LD      6738/STD
      6877-RES
   T2TASKB         6911/DATA    6912/DATA    6913/DATA    6914/DATA    6915/DATA    6916/DATA    6917/DATA
      6918/DATA    6933-EQU
   T2TASKDR        6625/LD      6986-GEN
   T2TASKDW        6620/LD      6984-GEN
   T2TASKPC        5759/STW     5781/LW      6341/LW      6347/AWM     6348/LW      6515/AWM     6516/LW
      6626/LW      6678/LW      6684/AWM     6685/LW      6702/LW      6717/MTW     6718/LW      6909-RES
   T2TASKPI        5758/LW      6911-DATA
   T2TASKR         6623/LD      6982-GEN
   T2TASKTR        6624/LD      6990-GEN
   T2TASKW         6619/LD      6980-GEN
   T2TASKX1        6621/LD      6988-GEN
   T2TDV           5963/STW     6209/LW      6296/LW      6899-RES
   T2TDVCC         5964/STW     6212/LW      6298/LW      6905-RES
   T2TIO           5967/STW     6208/LW      6303/LW      6901-RES
   T2TIOCC         5968/STW     6211/LW      6305/LW      6907-RES
   T2TSKBD         6108-LD      6839/B
   T2TSKBD1        6119-SLS     6126/B       6146/B
   T2TSKBD2        6116/BE      6124-LI
   T2TSKBD3        6114/BE      6127-MTW
   T2TSKBD4        6144-LI      6149/B
   T2TSKBD5        6128/BNEZ    6147-LI
   T2TSKBD6        6133/BNEZ    6143-STW
   T2TSKBT         6602-WD      6849/B
   T2TSKBT1        6618/BCR     6623-LD
   T2TSKBT2        6622/B       6626-LW
   T2TSKCR         6461-WD      6844/B
   T2TSKCR1        6470/B       6478-BAL
   T2TSKCS         6485-LW      6845/B
   T2TSKCSM        6491/DATA    6522-TEXTC
   T2TSKCSN        6494/STW     6496/STW     6499/STW     6501/STW     6503/DATA    6523-TEXTC
   T2TSKCSO        6509/DATA    6524-TEXTC
   T2TSKCS1        6487/BNE     6490-BAL
   T2TSKCS2        6507/BGZ     6511/B       6512-SLS
   T2TSKDR         6442-WD      6843/B
   T2TSKDW         6423-WD      6842/B
   T2TSKGM         6058-LW      6838/B
   T2TSKGM0        6061-MTW     6065/BL
   T2TSKGM1        6060/BL      6063-LW
   T2TSKGM2        6068-BAL     6074/BDR
   T2TSKGM3        6077-LB      6081/BL
   T2TSKGM4        6073/BEZ     6078/BEZ     6085-STW
   T2TSKGT         6717-MTW     6852/B
   T2TSKIN         6046-LI      6837/B
   T2TSKIO         6155-MTW     6840/B
   T2TSKIOM        6185/DATA    6187-TEXTC
   T2TSKIO1        6157-MTW     6161/BL      6166/BEZ     6183/BCS
   T2TSKIO2        6156/BEZ     6159-LW
   T2TSKIO3        6171/BCS     6182-CW
   T2TSKIO4        6186/B       6188-LW
   T2TSKIO5        6192-:HIO
   T2TSKKY         6530-MTW     6848/B
   T2TSKKY2        6543/BL      6559-STD
   T2TSKKY3        6531/BNEZ    6533/BNEZ    6535/BNEZ    6595-STW
   T2TSKRM         6642-LW      6850/B
   T2TSKRM1        6648/BEZ     6654-BAL
   T2TSKT          6200-MTW     6841/B
   T2TSKTM1        6281/STW     6283/DATA    6288-TEXTC
   T2TSKTM2        6332/DATA    6334-TEXTC
   T2TSKT1         6238-BAL     6353/B       6376/B       6415/BEZ
   T2TSKT2         6239-B       6387/BEZ
   T2TSKT3         6229/BNEZ    6240-CW
   T2TSKT5         6221/BNEZ    6224/BNEZ    6226/BNEZ    6260-HIO
   T2TSKT6         6231/BNEZ    6233/BNEZ    6235/BE      6237/BNEZ    6241/BCR     6243/BNEZ    6245/BNEZ
      6247/BNE     6249/BNEZ    6262-STW     6369/B       6371/BNEZ    6373/BNEZ    6375/BNEZ    6389/B
      6417/B
   T2TSKT6A        6267/B       6271/B       6275/B       6279/B       6281-STW
   T2TSKT6B        6287/B       6289-LW
   T2TSKT6C        6252/BE      6259/B       6333/B       6335-LB
   T2TSKT6D        6324/BGZ     6340-MTW
   T2TSKT6E        6322/BE      6345-LCW     6355/BE      6357/BGZ
   T2TSKT6F        6339/B       6347-AWM
   T2TSKT6G        6317/BG      6354-CI
   T2TSKT6H        6331-BAL     6358/B
   T2TSKT7         6219/BG      6359-CI
   T2TSKT7A        6362/BNEZ    6365/BNEZ    6368-HIO
   T2TSKT7B        6367/BEZ     6370-AND
   T2TSKT8         6360/BNE     6377-LW
   T2TSKT8A        6381/BNEZ    6383/BNEZ    6385/BNEZ    6388-HIO
   T2TSKT9         6379/BEZ     6390-LI
   T2TSKT9A        6393/BNEZ    6395/BNEZ    6397/BNEZ    6400/BEZ     6402/BNEZ    6405/BEZ     6413/BEZ
      6416-HIO
   T2TSKXF         6661-LD      6851/B
   T2TSKXF1        6667/BNEZ    6669/BNEZ    6674-B
   T2TSKXF2        6671/BEZ     6675-LB
   T2TSKXF3        6665/B       6684-AWM     6709/BCR     6711/B
   T2TSKXF4        6677/BEZ     6691-LW
   T2TSKXF5        6697/BEZ     6702-LW
   T3HFMES         8083/DATA    8148-TEXTC
   T3IALT          7492/STW     7666-DATA    8257/LW
   T3IANAL         7332-LW
   T3IANALM        7371/DATA    7373-TEXTC
   T3IANALN        7388/DATA    7390-TEXTC
   T3IANALO        7407/DATA    7409-TEXTC
   T3IANAL0        7369/BLZ     7375-LW
   T3IANAL1        7378-LCW     7399/BIR
   T3IANAL2        7387-BAL     7398/BGE
   T3IANAL3        7383/BLZ     7392-BAL
   T3IANAL4        7379/BEZ     7381/BGEZ    7399-BIR
   T3IANAL5        7402/BLZ     7410-BAL
   T3IANAL6        7415/BG      7420-STW
   T3IDATAA        7326/STW     7332/LW      7335/LW      7352/CS*     7354/LW*     7394/LW*     7652-DATA
   T3IDATAB        7337/STW     7340/STW*    7355/STW*    7362/LW*     7380/LW*     7393/STW*    7654-DATA
   T3IDATE         7264/STW     7439/LW      7663-DATA
   T3IFLAW         7486/STW     7518/STW     7665-DATA    8254/MTW
   T3IHDRA         7298/STW     7345/CS*     7347/LW*     7651-DATA    8045/CS*
   T3IHDRB         7334/STW     7348/STW*    7653-DATA
   T3IHDRW         7475-LI
   T3IHDRW0        7486-STW     7523/BL
   T3IHDRW1        7489-STW     7519/B
   T3IHDRW2        7488/BCR     7514/BLE     7520-MTW
   T3IINDEX        7485/STW     7520/MTW     7521/LW      7664-DATA
   T3IMAP          7366/STW*    7368/MTW*    7382/MTW*    7395/STW*    7401/MTW*    7416/MTW*    7423/MTW*
      7425/STW*    7427/LW*     7432/STW*    7437/STW*    7657-DATA
   T3IMAPA         7392/BAL     7410/BAL     7429/BAL     7640-LW
   T3IMAPC         7489/STW     7493/LW      7513/CB      7515/LW      7659-DATA
   T3IMAPF         7411/STW     7444/LW      7660-DATA
   T3IMAPI         7365/BAL     7610-EQU
   T3IMAPI1        7613/BLE     7617-SW
   T3IMAPI2        7618/BGE     7622-LI
   T3IMAPI3        7626/BL      7630-AW
   T3IMAPSK        7376/STW     7655-DATA
   T3IMAPUN        7420/STW     7447/LW      7661-DATA
   T3IMAP60        7359/STW*    7476/LW      7569/LW      7658-DATA
   T3ISN           7262/STW     7441/LW      7662-DATA
   T3ITABPD        7269/STW     7295/LW      7324/LW      7336/AW      7338/LCW     7350/LCW     7361/LCW
      7378/LCW     7650-DATA    8054/LW      8061/MTW     8063/CW
   T3ITABPH        7268/STW     7296/STW     7333/AW      7342/LCW     7351/AW      7649-DATA    8044/LCW
   T3UACT          7892-LH      7959/BAL
   T3UACTS         7745/BAL     7793/BAL     7816/BAL     7893/BEZ     7911-STW     7984/BAL     8099/BAL
   T3UACTX         7894/STW     7909/B*      7911/STW     7913/STW     7915/LW      7919-DATA
   T3UACT1         7894-STW     7917/B       7974/BAL
   T3UACT2         7901-:SIO    7904/:TIO    7907/B
   T3UACT3         7901/:SIO    7908-MTW
   T3UBAC          7731/MTW     7751/LW      7768/MTW     7799/MTW     7835/MTW     7843/MTW     7850-DATA
      7954/MTW     7961/MTW     7964/LW      8109/MTW     8111/MTW
   T3UBADR         7702/STW     7722/LW      7823/LW      7879-RES     7895/LW
   T3UBNO          7708/STW     7734/CW      7752/CW      7838/CW      7853-DATA    7948/CW      7965/CW
      8103/CW
   T3UBPT          7718/LW      7732/MTW     7733/LW      7737/STW     7778/CW      7820/LW      7832/LW
      7836/MTW     7837/LW      7840/STW     7852-DATA
   T3UCFLG         7821/MTW     7834/STW     7881-RES     8033/STW
   T3UCMP          5829/STW     6585/STW     7095/STW     7097/STW     7172/STW     7174/STW     7293/STW
      7818/MTW     7864-DATA
   T3UCOMDX        8198/STW     8206/B*      8214/B*      8216-DATA
   T3UCOMHA        8293-LW      8308/BIR
   T3UCOMHB        8297/BE      8300/BE      8303/BE      8306-AWM     8340/B
   T3UCOMHC        8305/B       8319-STW
   T3UCOMHD        8328/BNEZ    8335-BAL
   T3UCOMHE        8288/STW     8295/LD*     8307/AWM     8363-DATA
   T3UCOMHF        8291/STW     8327/MTW     8329/MTW     8365-DATA
   T3UCOMHI        8319/STW     8339/LW      8366-DATA
   T3UCOMHM        8332/DATA    8356-TEXTC
   T3UCOMHN        8334/DATA    8357-TEXTC
   T3UCOMHO        8321/LI      8336/DATA    8358-TEXTC
   T3UCOMHP        8324/LI      8338/DATA    8359-TEXTC
   T3UCOMHR        8289/STW     8293/LW*     8294/LW*     8306/AWM     8309/LW      8364-DATA
   T3UCOMHS        8284/STD     8285/STD     8286/STW     8314/LD      8315/LD      8316/LD      8361-RES
   T3UCOMHX        8283/STW     8318/B*      8341/STW     8354/B*      8362-DATA
   T3UCOMH1        8323/BAL     8326/BAL     8341-STW     8353/BEZ
   T3UCOMPD        7828/BAL     8198-STW
   T3UCOMPH        7831/BAL     8283-STW
   T3UDIN          7018/STW     7283/STW     7457/STW     7865-DATA    7990/MTW     8026/MTW
   T3UDINH         7019/STW     7510/STW     7866-DATA    8251/MTW
   T3UDONE         7730/MTW     7747/MTW     7795/MTW     7841/MTW     7854-DATA    7962/MTW     7979/MTW
   T3UEX           7099/BAL     7128/BAL     7198/BAL     7674-STW
   T3UEXALT        6575/BAL     6586/BAL     7284/BAL     7294/BAL     7315/BAL     7323/BAL     7466/BAL
      7469/BAL     7511/BAL     7689-STW
   T3UEXR          7713/BEZ     7784-MTW     7842/BEZ
   T3UEXR1         7785/BNEZ    7796-BAL     7817/B       7846/BNEZ
   T3UEXR2         7799-MTW     7802/BNEZ
   T3UEXR3         7800/BNEZ    7818-MTW     7844/BNEZ
   T3UEXR4         7819/BEZ     7822/BNEZ    7832-LW
   T3UEXW          7714/B       7718-LW      7753/BNE
   T3UEXWM1        7758/DATA    7805/DATA    7863-TEXTC
   T3UEXW1         7741-LW      7765/B       7779/BNEZ
   T3UEXW1A        7739/BNEZ    7747-MTW
   T3UEXW2         7751-LW      7755/BNEZ
   T3UEXW2A        7756-BAL     7772/B
   T3UEXW3         7748/BNEZ    7766-LW
   T3UEXW4         7768-MTW     7776/BNEZ    7780/B
   T3UEXW4A        7769/BEZ     7773-BAL
   T3UEXW4B        7771/BNEZ    7775-MTW
   T3UEXX          7674/STW     7689/STW     7774/B*      7848/B*      7856-DATA
   T3UEX1          7702-STW     7706/BIR
   T3UFLAW         7022/STW     7108/LW      7243/STW     7248-DATA    8031/MTW     8243/MTW     8246/OR
   T3UHBUF         8238/LI      8275-RES     8287/LI
   T3UHDR          5828/STW     6573/STW     7088/STW     7167/STW     7282/STW     7312/STW     7509/STW
      7723/MTW     7825/MTW     7858-DATA    8042/MTW
   T3UIOAC         7693/STW     7738/MTW     7775/MTW     7784/MTW     7845/MTW     7849-DATA    7908/MTW
      8113/STW
   T3UIOCD         6566/STD     6582/STD     7278/STD     7289/STD     7306/STD     7320/STD     7465/STD
      7468/STD     7505/STD     7681/STD     7868-DATA    7897/XW      7899/STB     7900/LI      7992/LB
      8048/LB
   T3UIOCD1        6565/LD      7127/LD      7305/LD      7464/LD      7869-GEN
   T3UIOCD2        6581/LD      7098/LD      7871-GEN
   T3UIOCD3        7125/LD      7319/LD      7467/LD      7873-GEN
   T3UIOCD4        7197/LD      7277/LD      7504/LD      7875-GEN
   T3UIOCD5        7175/LD      7288/LD      7877-GEN
   T3UIOPT         7743/LW      7760/LW      7777/LW      7791/LW      7807/LW      7814/LW      7851-DATA
      7946/MTW     7947/LW      7951/STW     8030/LW      8036/LW      8072/LW      8090/LW      8101/MTW
      8102/LW      8106/STW
   T3UISAIO        7933/STW     7935/STW     8017/LW      8075/LW      8077/LW      8123-DATA
   T3UISER         7927-LCI     8121/DATA
   T3UISERA        7946-MTW     8046/BE
   T3UISERG        7928/STM     7930/STM     8115/LM      8117/LM      8122-RES
   T3UISERM        7937/BNEZ    7986-TDV
   T3UISERN        7996/B       8000/B       8004/B       8008/B       8010-STW
   T3UISERO        8013/B       8072-LW
   T3UISERP        7697/LW      8124-XPSD
   T3UISERR        7953/BEZ     7961-MTW
   T3UISERS        7978-BAL     7985/B
   T3UISERT        8090-LW
   T3UISERU        7973/BEZ     7981-LW
   T3UISERW        7954-MTW
   T3UISERX        7932/B       7960/B       7980/B       8100/B       8114-LCI
   T3UISERY        7955/BEZ     7963/BNEZ    7966/BE      8112-LI
   T3UISERZ        8118/LPSD    8121-DATA    8124/XPSD
   T3UISFLW        5711/STW     7020/STW     7695/STW     8028/STW     8080/MTW     8087/STW     8147-RES
   T3UISM1         8010/STW     8012/DATA    8014-TEXTC
   T3UISRI         7991/BNEZ    8027/BNEZ    8036-LW
   T3UISRIM        8066/DATA    8068-TEXTC
   T3UISRI1        8043/BNEZ    8052-MTW
   T3UISRI2        8050/BNE     8054-LW
   T3UISRI3        8058/BE      8069-LW
   T3UISRM1        7941/BCS     7988-CW
   T3UISRM2        7939/BCS     7943/BCS     7945/BNEZ    7987/BCS     7990-MTW     8016/BNEZ    8019/BNEZ
      8021/BCS     8023/BNEZ
   T3UISRM3        7992-LB      8029/B       8051/B       8053/BNEZ
   T3UISRM4        7989/BCS     8015-AND
   T3UISSK         8034/B       8064/BGE     8071/B       8093/B       8101-MTW
   T3ULABEL        7440/STW*    7442/STW*    7445/STW*    7448/STW*    7531/LW*     7538/LW*     7551/LW*
      7557/LW*     7656-DATA
   T3ULBLM1        7530/DATA    7592-TEXTC
   T3ULBLM2        7533/STW     7535/STW     7537/DATA    7593-TEXTC
   T3ULBLM3        7541/STH     7544/STH     7547/STH     7549/DATA    7594-TEXTC
   T3ULBLM4        7553/STH     7555/DATA    7595-TEXTC
   T3ULBLM5        7560/STW     7563/STH     7565/DATA    7596-TEXTC
   T3ULBLM6        7567/DATA    7588/DATA    7597-TEXTC
   T3ULBLM7        7574/STW     7577/STH     7580/STW     7583/STH     7585/DATA    7598-TEXTC
   T3ULBLM8        7590/DATA    7600-TEXTC
   T3ULBLP         7471/BAL     7528-STW
   T3ULBLPX        7528/STW     7591/B*      7601-DATA
   T3ULBLP1        7570-LW      7586/BIR
   T3ULBLP2        7571/BEZ     7586-BIR
   T3ULBL1         7423-MTW     7435/BL
   T3ULBL2         7426/B       7433-MTW
   T3ULEN          5826/STW     7076/STW     7161/STW     7266/STW     7301/STW     7458/STW     7483/STW
      7703/AW      7855-DATA
   T3USADR         7721/STW     7744/LW      7761/LW      7792/STW     7808/LW      7815/LW      7824/LW
      7880-RES     7958/LW      7977/STW     7983/STW     8037/LW      8073/LW      8098/LW
   T3USPD          8162/B       8167/BNE     8170-LW
   T3USPDR         7827/BAL     8163-STW
   T3USPDW         7725/BAL     8160-STW
   T3USPDX         8160/STW     8163/STW     8183/BNE*    8185/B*      8187-DATA
   T3USPD1         8173/BNE     8177-CW
   T3USPD2         8176/B       8178/BNE     8181-BAL
   T3USPH          8233/BEZ     8240-LW
   T3USPHR         7830/BAL     8237-STD
   T3USPHS         8229/STD     8237/STD     8268/LD      8274-DATA
   T3USPHW         4290/BAL     4335/BAL     7727/BAL     8229-STD
   T3USPH1         8244/BEZ     8247-STW     8271/B
   T3USPH2         8252/BEZ     8261/BEZ     8268-LD
   T3USPH3         8250/BIR     8270-MTB
   T3UTIMEC        7750/STW     7754/MTW     7767/STW     7770/MTW     7798/STW     7801/MTW     7862-DATA
      8096/STW
   T3UTIMEI        7749/LW      7766/LW      7797/LW      7861-DATA    8095/LW      8580/LW      8649/LW
      8663/LW      8697/LW
   T3UTRYC         7742/STW     7788/STW     7813/STW     7860-DATA    7957/STW     7968/STW     8091/MTW
      8094/MTW
   T3UTRYI         6561/STW     7087/STW     7280/STW     7291/STW     7308/STW     7322/STW     7507/STW
      7741/LW      7787/LW      7812/LW      7859-DATA    7956/LW      7967/LW
   T3UWRT          6570/STW     6584/STW     7093/STW     7115/STW     7133/STW     7170/STW     7196/STW
      7202/STW     7281/STW     7292/STW     7309/STW     7508/STW     7712/MTW     7857-DATA    7952/MTW
      8052/MTW     8107/MTW
   T68TAB          4663-RES     4773/STW
   T70CTO          5026/XPSD    5028-DATA
   T70DARM         4928/BAL     4935/BAL     4950/BAL     4961/BAL     5012-LW
   T70DEVNO        4903/STW     4985/MTW     4986/LW      5052-DATA
   T70DEVX         4917/STW     4919/LW      4984/MTW     5054-DATA
   T70DEV1         4921/STD     4933/SIO*    4948/SIO*    4976/LW      4978/STW     5001/HIO*    5006/SIO*
      5050-DATA
   T70DEV2         4926/SIO*    4977/XW      5002/HIO*    5007/SIO*    5039/SIO*    5040/HIO*    5041/TIO*
      5042/TDV*    5051-DATA
   T70DTO          5001-HIO     5029/DATA
   T70FTF          4918/STW     4979/MTW     4981/STW     5057-DATA
   T70IO2FF        4940/STW     4971/MTW     4993/STW     5055-DATA
   T70IO2SF        4941/STW     4973/MTW     4994/MTW     4998/STW     5056-DATA
   T70RETN         5014/STW     5019/B*      5058-DATA
   T70SAVDV        4901/STW     4989/LW      5053-DATA
   T70SENSE        5009-SENSE   5025/B
   T70STAT         4930/B       4937/B       4952/B       4963/B       5013/STW     5021-BAL
   T70TAB1         4947/LW      5031-DATA
   T70TAB2         4954/EXU     5039-SIO
   T70TAB3         4957/EXU     4959/LW      5044-CW
   T70XPSD         4911/LW      5026-XPSD
   T71TABH      5060.53/STW  5060.72/LW   5060.86-RES
   T71TABL      5060.52/STW  5060.68/LW   5060.85-RES
   USERPROG         245/DATA    1842/STW     1914/STW     4091/GEN     4093/GEN     4095/GEN     4735/GEN
      4737/GEN     4872/GEN     4875/GEN     5192/GEN     5194/GEN     5535/GEN     5536/GEN     5549/GEN
      5550/GEN     5551/GEN     5553/GEN     5554/GEN     5555/GEN     5556/GEN     5557/GEN     5558/GEN
      5559/GEN     5560/GEN     5561/GEN     5562/GEN     5563/GEN     5564/GEN     5565/GEN     5566/GEN
      5567/GEN     5568/GEN     5569/GEN     5570/GEN     5571/GEN     5572/GEN     5573/GEN     5574/GEN
      5575/GEN     5576/GEN     5577/GEN     5578/GEN     5579/GEN     5580/GEN     5581/GEN     5582/GEN
      5583/GEN     5584/GEN     5585/GEN     5586/GEN     5587/GEN     5588/GEN     5589/GEN     5590/GEN
      5591/GEN     5592/GEN     5593/GEN     5594/GEN     5595/GEN     5596/GEN     5597/GEN     5598/GEN
      5599/GEN     5600/GEN     5601/GEN     5602/GEN     5603/GEN     5604/GEN     5605/GEN     5606/GEN
      5607/GEN     5608/GEN     5609/GEN     5610/GEN     5611/GEN     5612/GEN     5613/GEN     5614/GEN
      5615/GEN     5616/GEN     5617/GEN     5618/GEN     5619/GEN     5620/GEN     5624/GEN     5628/GEN
      5630/GEN     5635/GEN     5637/GEN     5639/GEN     5641/GEN     5644/GEN     5646/GEN     5650/GEN
      5652/GEN     5654/GEN     5656/GEN     5658/GEN     5659/GEN     5661/GEN     5663/GEN     5670/GEN
      5672/GEN     5674/GEN     5676/GEN     7452/LI      7656/DATA    7657/DATA    7658/DATA   10162/DATA
     10163/DATA   10203-END
   VERSION          0.1-EQU        3/EQU
   WAITMSG1        5988/DATA    6013/DATA    6083/DATA    7615/DATA    7620/DATA    7628/DATA    8235/DATA
      9441/DATA    9449/DATA   10201-TEXTC
   WAITMSG2        7906/DATA   10202-TEXTC
   :AIO              55-CNAME     55/CNAME   8851-AIO
   :AIO1             56-CNAME     56/CNAME   8854-LI
   :BCDC            178-EQU      414/BAL*     419/BAL*
   :BINC            180-EQU     3309/BAL*    3311/BAL*    5366/BAL*    5368/BAL*    5370/BAL*    5373/BAL*
      5375/BAL*    5377/BAL*    8989/BAL*    9268/BAL*    9603/BAL*    9605/BAL*    9610/BAL*    9612/BAL*
   :BINCOT1        8992-LI
   :BINCOT2        8994-SCS     8999/BGEZ
   :BINCOVT        8966/BAL     8971/BAL     8987-STD
   :BINEXIT        8991/B       9000-LD
   :BINRTN         8988/STW     9001/B*      9044-DATA
   :BIN0405        8987/STD     9000/LD      9043-DATA
   :CATALOG         225/DATA     332-EQU
   :CCERMA         9027-TEXTC
   :CCERMB         9013/DATA    9028-TEXTC
   :CCERMC         9014/DATA    9029-TEXTC
   :CCERMD         9015/DATA    9030-TEXTC
   :CCERME         9016/DATA    9031-TEXTC
   :CCERMF         9012/DATA    9017/DATA    9032-TEXTC  10047/LI
   :CCERM1         9003/DATA    9018-TEXTC
   :CCERM2         9004/DATA    9019-TEXTC
   :CCERM3         9005/DATA    9020-TEXTC
   :CCERM4         9006/DATA    9021-TEXTC
   :CCERM5         9007/DATA    9022-TEXTC
   :CCERM6         9008/DATA    9023-TEXTC
   :CCERM7         9009/DATA    9024-TEXTC
   :CCERM8         9010/DATA    9025-TEXTC
   :CCERM9         9011/DATA    9026-TEXTC
   :CCERR1         8890/BCR     8896-LW
   :CCERR2         8891/BCR     8904-LW
   :CCERR3         8892/B       8930-LW
   :CCPRINT        8931/STW     8936/STW*    8938-DATA
   :CCTEST         8867/BNE     8875-CW
   :CDB             297/GEN      297/GEN      297/GEN      321-EQU      362/LH       372/INT      373/LI
       374/CW       380/AI     381.4/MTW      395/LW       407/MTW      412/LW       417/LW      4522/MTW
      5290/MTW     5295/MTW     5326/MTW
   :CDBEND          297/GEN      330-EQU
   :CDBM            297/GEN      314-EQU      373/LI       380/AI
   :CDBMX           305-DATA     381/STW     3505/MTW     4518/LW
   :CDBTBLS         307-EQU      382/LW
   :CDT             230/DATA     231/DATA     296-EQU
   :CDTEND          231/DATA     298-EQU
   :CLEAR          9160-STD
   :CLRADDR        9162/LW      9172-DATA
   :CLRSAVE        9160/STD     9161/STW     9168/LD      9169/LW      9175-RES
   :CLRSIZE        9163/AW      9164/LCW     9173-DATA
   :COMBFRA        1174/STW     1240/STW     1391/STW     1544/STW     1546/STW     2050/STW     2151/STW
      3112/STW     3810/STW     4123/STW     4329/STW     5244/STW     6467/STW     8200/STW     9207/LW
      9236/LW      9284-DATA
   :COMBFRB        1175/STW     1393/STW     2048/STW     2149/STW     3110/STW     3808/STW     3847/LW
      3878/LW*     4121/STW     4328/STW     5246/STW     6464/STW     8201/STW     8210/LW      9208/LW
      9242/LW      9285-DATA
   :COMERM1        9235/DATA    9288-TEXTC
   :COMERM2        9239/STH     9241/STH     9244/STW     9246/DATA    9289-TEXTC
   :COMERM3        9248/DATA    9290-TEXTC
   :COMERM4        9253/STW     9255/LI      9258/DATA    9292-TEXT
   :COMERM5        9260/LI      9263/DATA    9296-TEXT
   :COMERRT        9206/STD     9217/LW      9224/MTW     9227/LW      9281-DATA
   :COMFLAG         678/STW     1179/STW     1396/STW     1549/STW     2052/STW     2154/STW     3115/STW
      3811/STW     4125/STW     4333/STW     5250/STW     6468/MTW     6475/STW     8204/STW     8208/MTW
      9225/LW      9286-DATA
   :COMPARE        1217/BAL     1241/BAL     1420/BAL     1457/BAL     1591/BAL     1860/BAL     1941/BAL
      2086/BAL     2194/BAL     3176/BAL     3889/BAL     4040/BAL     4166/BAL     4206/BAL     4336/BAL
      6469/BAL     6476/BAL     8205/BAL     8211/BAL     9203-LCI
   :COMPLIM        8566/STW     9228/CW      9287-DATA
   :COMTEM1        9204/STM     9219/MTW     9221/LM      9278-RES
   :COMTEM2        9211/STD     9213/LW*     9214/CW*     9254/LW*     9259/LW*     9280-DATA
   :COMTEM3        9230/LW      9233/MTW     9282-DATA
   :COMWCNT        1177/STW     1394/STW     1547/STW     2051/STW     2153/STW     3113/STW     3815/STW
      3822/AW      3823/LCW     3848/AW      3849/LCW     3865/LW      3882/AW      3883/LCW     4127/STW
      4331/STW     5248/STW     8203/STW     9209/AW      9210/AW      9212/LCW     9250/LW      9283-DATA
   :COM1           9213-LW      9216/BIR     9226/BCS     9229/BG      9264/B
   :COM2           9215/BCS     9224-MTW
   :COM3           9231/BCS     9250-LW
   :COM4           9256/BAL     9261/BAL     9266-LI      9275/BCS
   :CURBCNT         184-EQU
   :DAERM          8881/STH     8884/STB     8919/STH     8921/STB     8923/DATA    8935/LW      9033-TEXTC
   :DATA            278/:PROCDIC             8393-STW
   :DATAP1         7119/CW      7683/LW      7686/LW      8424/STM     8427-DATA
   :DATA1          8397-LW      8403/BL      8408/BGE     8411/BL      8416/BGE     8420/BNE
   :DATA2          8396/BGE     8402-CI
   :DATA3          8409/B       8417/B       8421-LCI
   :DECC            181-EQU      735/BAL*     850/BAL*    1667/BAL*    1670/BAL*    1673/BAL*    1676/BAL*
      3302/BAL*    3722/BAL*    4810/BAL*    4813/BAL*    4827/BAL*    4833/BAL*    5211/BAL*    5214/BAL*
      7532/BAL*    7534/BAL*    7552/BAL*    7559/BAL*    7562/BAL*    7573/BAL*    7576/BAL*    7579/BAL*
      7582/BAL*    8765/BAL*    8770/BAL*    8773/BAL*   10182/BAL*
   :DELAY          3625/BAL     4025/BAL     4689/BAL  5060.35/BAL     9321-STW
   :DELAYAE        4946/BAL     9325/BAL     9336-STW
   :DELAYD          348/BAL     4000/BAL     4784/BAL     4968/BAL     5004/BAL     5017/BAL     9328/BAL
      9332/BAL     9341-STW
   :DELAYTO        9349-DATA    9351/XPSD
   :DELEXIT        9329-LW      9334/B
   :DELMTW         3571/LW      4003/LW      4670/LW      4913/LW    5060.9/LW      9352-MTW
   :DELSAVE        9321/STW     9329/LW      9333/MTW     9336/STW     9339/B*      9341/STW     9344/B*
      9347-DATA
   :DELTIME        3642/LCW     4945/STW     9324/STW     9346-DATA    9352/MTW
   :DELTO          9332-BAL     9350/DATA
   :DELXPSD        3569/LW      4001/LW      4668/LW    5060.7/LW      9351-XPSD
   :DEVADDR         350/HIO*     451-DATA     674/STW      718/HIO*     752/HIO*     765/STW      894/HIO*
       900/HIO*     915/HIO*     938/TDV*     956/TDV*     975/TIO*     977/HIO*    1012/HIO*    1013/TIO*
      1023/HIO*    1026/TIO*    1034/HIO*    1070/HIO*    1090/HIO*    1118/HIO*    1312/LW      1315/STW
      1335/MTW     1337/CW      1340/STW     1346/HIO*    1388/LW      1403/STW     1428/MTW     1434/MTW
      1442/STW     1463/MTW     1476/STW     1480/STW     1746/LW      1749/STW     1779/MTW     1781/CW
      1784/STW     3245/TDV*    3259/TIO*    3525/TDV*    3611/CW      3656/TDV*    4029/HIO*    4788/HIO*
      4803/HIO*    4900/LW      4922/STW     4990/STW     5329/TIO*    5335/TDV*    5421/TDV*    5429/TDV*
      5437/TDV*    5862/STW     6163/STW     6164/TDV*    6170/SIO*    6285/XW      6311/XW      6563/STW
      6763/LW      7100/HIO*    7276/STW     7679/STW     7938/TDV*    7942/TIO*    7986/TDV*    8020/TIO*
      8128/SIO*    8131/TIO*    8135/TDV*    8581/TIO*    8591/TDV*    8650/TIO*    8664/TDV*    8698/TIO*
      8819/SIO*    8827/TIO*    8835/HIO*    8843/TDV*    8872/CW      8879/LW      8916/CW      9098/LW
      9127/TIO*    9131/HIO*    9974/LW     10186/LW
   :DEVADER        8889/BCR     8900/B       8912-CI
   :DEVEXIT        8908/B       8924-LD      8939/B       8949/BE      8985/B
   :DIC             227/DATA     228/DATA     272-EQU      689/DATA    5733/DATA    7047/DATA    8400/DATA
      8513/DATA    8558/DATA
   :DICEND          228/DATA     281-EQU      296/EQU
   :DICILEN         203-EQU
   :DICINDX         202-EQU
   :DISP            280/:PROCDIC             8524-LW
   :DTLFLAG         198-EQU
   :DUMP            176-EQU
   :ERRADR1        8896/LW      9003-DATA
   :ERRADR2        8904/LW      9008-DATA
   :ERRADR3        8930/LW      9013-DATA
   :ERRBITS        9480/STW     9504/LW      9681-DATA
   :ERROR          1143/BAL*    1149/BAL*    1243/BAL*    1292/BAL*    1422/BAL*    1459/BAL*    1851/BAL*
      1857/BAL*    1862/BAL*    1875/BAL*    1884/BAL*    2226/BAL*    2403/BAL*    2460/BAL*    2486/BAL*
      2828/BAL*    2903/BAL*    3396/BAL*    3410/BAL*    4027/BAL*    4034/BAL*    4080/BAL*    4481/BAL*
      4487/BAL*    4540/BAL*    4546/BAL*    4562/BAL*    4693/BAL*    4726/BAL*    4758/BAL*    5463-DATA
   :ERRORC          193-EQU
   :ERRORM          185-EQU     5469/B*
   :ERRORT          904/BAL      943/BAL     1005/BAL     1067/BAL     1106/BAL     1114/BAL     1289/BAL
      1321/BAL     1342/BAL     1364/BAL     1509/BAL     1567/BAL     1575/BAL     1580/BAL     1724/BAL
      1758/BAL     1801/BAL     1854/BAL     1881/BAL     1936/BAL     1975/BAL     2028/BAL     2065/BAL
      2105/BAL     2189/BAL     2223/BAL     2253/BAL     2289/BAL     2309/BAL     2356/BAL     2400/BAL
      2430/BAL     2457/BAL     2479/BAL     2483/BAL     2517/BAL     2537/BAL     2597/BAL     2630/BAL
      2662/BAL     2682/BAL     2745/BAL     2779/BAL     2825/BAL     2849/BAL     2900/BAL     2945/BAL
      2959/BAL     2997/BAL     3039/BAL     3071/BAL     3093/BAL     3153/BAL     3363/BAL     3443/BAL
      3459/BAL     3871/BAL     4031/BAL     4077/BAL     4148/BAL     4161/BAL     4184/BAL     4201/BAL
      4236/BAL     4300/BAL     4321/BAL     4350/BAL     4459/BAL     4484/BAL     4498/BAL     4543/BAL
      4559/BAL     4583/BAL     5087/BAL     5142/BAL     5171/BAL     9426-LCI
   :ERROR12        5461-DATA    5464/STW     5467/LW
   :ERROR15        5462-DATA    5465/STW     5468/LW
   :ERRTBCM        9558/LD      9685-TEXT
   :ERRTCAM        9555/LD      9686-TEXT
   :ERRTFLG        9430/STW     9519/MTW     9589/MTW     9594/MTW     9616/MTW     9624-DATA
   :ERRTMG1        9502/STW     9506/STD     9508/STB     9511/STB     9515/STB     9517/DATA    9678-TEXTC
   :ERRTMG2        9559/STW     9560/STW     9561/STW     9565/STW     9567/DATA    9682-TEXTC
   :ERRTMP1        9427/STM     9593/LM      9619-RES
   :ERRTMP2        9477/STW     9485/MTW     9489/MTW     9509/LW      9512/LW      9620-DATA
   :ERRTMP3        9435/STW     9493/LW      9498/LW      9500/LW      9538/LW      9548/LW      9562/LW
      9621-DATA
   :ERRTMSK        9481/LB      9622-GEN
   :ERRTM1         9599/STW     9601/DATA    9626-TEXTC
   :ERRTM2         9604/STW     9606/STW     9608/DATA    9627-TEXTC
   :ERRTM3         9611/STW     9613/STW     9615/DATA    9628-TEXTC
   :ERRTNEG        9557/LW      9683-TEXT
   :ERRTTB         9503/LW      9679-DATA
   :ERRTTBA        9630-TEXT    9679/DATA    9679/DATA    9679/DATA
   :ERRTTBB        9638-TEXT    9679/DATA
   :ERRTTBC        9646-TEXT    9679/DATA
   :ERRTTBD        9654-TEXT    9680/DATA
   :ERRTTBE        9662-TEXT    9680/DATA
   :ERRTTBF        9670-TEXT    9680/DATA
   :ERRTYPE        9501/LW      9598/LW      9625-DATA
   :ERRT0          9431-LB      9496/B
   :ERRT1          9437/BCS     9444-LW      9456/B       9463/B       9466/B
   :ERRT10         9454/B       9461/B       9470/B       9519-MTW     9568/B
   :ERRT11         9439/BCS     9522-LW
   :ERRT11A        9529-SCD     9572/B
   :ERRT11B        9531/BCS     9535-MTW
   :ERRT12         9528/BCS     9570-LW
   :ERRT13         9432/BCR     9574-LI      9591/BIR
   :ERRT14         9576/BCR     9578/BCR     9591-BIR     9617/B
   :ERRT15         9588/BCS     9590/BNEZ    9598-LW
   :ERRT2          9447/BCS     9451-CI
   :ERRT3          9452/BCS     9458-CI
   :ERRT4          9459/BCS     9465-BAL
   :ERRT5          9465/BAL     9468-STW     9524/BAL
   :ERRT5X         9468/STW     9472/B*      9473-DATA
   :ERRT6          9445/BCS     9475-LI
   :ERRT7          9484/BCS     9489-MTW
   :ERRT8          9486/BCR     9491/B       9493-LW
   :ERRT8A         9495-MTW     9520/B       9533/BCS     9537/BCR
   :ERRT9          9487/B       9490/BCR     9498-LW
   :ERRT9A         9500-LW
   :ERRT91A        9534/B       9548-LW
   :ERRT91B        9550/BCR     9557-LW
   :ERRT91C        9547/B       9558-LD
   :ERRT92A        9538-LW
   :ERRT92B        9544/B       9554-BAL
   :ERRT92C        9540/BCR     9545-AW
   :EXPOBS         8977/LW      9036-TEXT
   :HEXC            182-EQU      858/BAL*    4716/BAL*    4720/BAL* 5060.65/BAL* 5060.69/BAL* 5060.73/BAL*
      5953/BAL*    6493/BAL*    6495/BAL*    6498/BAL*    6500/BAL*    6745/BAL*    6747/BAL*    6750/BAL*
      6752/BAL*    6764/BAL*    7540/BAL*    7543/BAL*    7546/BAL*    8345/BAL*    8709/BAL*    8711/BAL*
      8714/BAL*    8716/BAL*    8719/BAL*    8880/BAL*    8918/BAL*    9099/BAL*    9237/BAL*    9243/BAL*
      9252/BAL*    9554/BAL*    9564/BAL*   10043/BAL*   10175/BAL*   10187/BAL*
   :HIO              54-CNAME     54/CNAME   8835-HIO
   :HIO1           8838-LI
   :INITIAL         233/DATA     360-STW
   :INTADRC        1055/BAL     3565/BAL     4923/BAL     9952-STW
   :INTADRD        9959-STW
   :INTADRE        9952/STW     9957/B*      9959/STW     9960/STW     9966/STW     9971/STW     9973/STW
      9983/LW      9984/B*      9993-DATA
   :INTADRM        9966-STW
   :INTADRS        1084/BAL     3566/BAL     3995/BAL     4924/BAL     9969/BCS     9970/B       9971-STW
   :INTADRX        9954/STW     9967/LW      9979/STW     9992-DATA
   :INTADRZ        9964/B       9983-LW
   :INTAE          3603/BAL     3999/BAL     4011/BAL     4683/BAL     4798/BAL     4943/BAL  5060.29/BAL
      5837/BAL     5906/BAL     6592/BAL     7711/BAL     7746/BAL     7796/BAL     8213/BAL     8317/BAL
      9911-STW
   :INTCC          3632/LB      9982/STW    10021/STCF   10066-DATA
   :INTD            347/BAL      675/BAL     1092/BAL     1316/BAL     3627/BAL     4692/BAL     4703/BAL
      4804/BAL     5003/BAL     5018/BAL  5060.38/BAL     5860/BAL     7696/BAL     7740/BAL     7756/BAL
      7773/BAL     7786/BAL     7803/BAL     7847/BAL     8207/BAL     8320/BAL     9920-STW    10031/BAL
   :INTRECF        1057/STW     1073/MTW     1080/MTW     1087/MTW     3915/STW     3934/STW     3950/STW
      3998/STW     4013/STW     4749/MTW     4966/MTW     4970/STW     9326/LW      9913/STW    10030/MTW
     10067-DATA
   :INTSAV1        9911/STW     9916/B*      9925-DATA
   :INTSAV2        9920/STW     9923/B*      9926-DATA
   :INTSEEK        3606/STW    10049/MTW    10070-DATA
   :INTSTAT        3630/LW      9981/STW    10028/STW    10065-DATA
   :INTSV         10016-STD    10063/DATA
   :INTSVDW       10036/LPSD   10060/LPSD   10063-DATA   10069/XPSD
   :INTSVM        10041/LI     10044/STW    10071-TEXTC
   :INTSVSR       10016/STD    10017/STD    10018/STD    10033/LD     10034/LD     10035/LD     10057/LD
     10058/LD     10059/LD     10064-RES
   :INTSVX         9961/LW     10029/STW    10068-DATA
   :INTSVXP        1058/LW      3567/LW      3996/LW      4909/LW     10069-XPSD
   :INTSV1        10026-CW     10040/BIR
   :INTSV2        10033-LD     10055/B
   :INTSV3        10027/BCS    10038-MTW
   :INTSV4        10020/BCS    10047-LI
   :INTSV5        10045/B      10053-BAL
   :INTSV6        10042/STW    10052/STW    10054-DATA
   :INTSV7        10050/BEZ    10057-LD
   :INTTAB         9956/STW     9975/STW     9978/STW     9987-EQU
   :INTTAB8        9963/STW     9991-DATA   10026/CW     10038/MTW
   :IOERM1         9095/DATA    9109-TEXTC
   :IOERM2         9100/STW     9102/STB     9104/DATA    9110-TEXTC
   :IOERR1         9081/B       9089-:HIO
   :IOERR1A        9094-BAL     9105/B
   :IOERR2         9080/BCR     9098-LW
   :IOEXEC          972/BAL     1001/BAL     1064/BAL     1105/BAL     1113/BAL     1140/BAL     1212/BAL
      1233/BAL     1274/BAL     1318/BAL     1359/BAL     1410/BAL     1447/BAL     1503/BAL     1558/BAL
      1586/BAL     1636/BAL     1642/BAL     1648/BAL     1719/BAL     1753/BAL     1764/BAL     1796/BAL
      1807/BAL     1846/BAL     1866/BAL     1924/BAL     1968/BAL     1981/BAL     2021/BAL     2058/BAL
      2091/BAL     2176/BAL     2216/BAL     2246/BAL     2282/BAL     2295/BAL     2343/BAL     2362/BAL
      2393/BAL     2423/BAL     2450/BAL     2469/BAL     2510/BAL     2523/BAL     2585/BAL     2623/BAL
      2655/BAL     2668/BAL     2733/BAL     2772/BAL     2813/BAL     2833/BAL     2893/BAL     2933/BAL
      2951/BAL     2990/BAL     3003/BAL     3028/BAL     3060/BAL     3088/BAL     3126/BAL     3147/BAL
      3353/BAL     3375/BAL     3391/BAL     3435/BAL     3488/BAL     3498/BAL     3516/BAL     3607/BAL
      3650/BAL     3854/BAL     4015/BAL     4023/BAL     4060/BAL     4141/BAL     4154/BAL     4179/BAL
      4196/BAL     4229/BAL     4293/BAL     4316/BAL     4341/BAL     4451/BAL     4478/BAL     4493/BAL
      4531/BAL     4537/BAL     4550/BAL     4575/BAL     4687/BAL     4752/BAL     4800/BAL     4868/BAL
   5060.32/BAL     5078/BAL     5131/BAL     5165/BAL     5293/BAL     5416/BAL     5432/BAL     8579/BAL
      8648/BAL     8696/BAL     9074-STW
   :IOEXEC1        9077-:TIO    9083/B       9089/:HIO    9092/:TIO    9096/B
   :IORDYDL        1848/STW     1926/STW     1970/STW     2023/STW     2060/STW     2178/STW     2218/STW
      2248/STW     2284/STW     2345/STW     2395/STW     2425/STW     2452/STW     2512/STW     2587/STW
      2625/STW     2657/STW     2735/STW     2774/STW     2815/STW     2895/STW     2935/STW     2992/STW
      3030/STW     3128/STW     3355/STW     3377/STW     3393/STW     3437/STW     3481/STW     3576/STW
      3856/STW     4017/STW     4062/STW     4143/STW     4156/STW     4231/STW     4453/STW     4578/STW
      4754/STW     5080/STW     5133/STW     9122/LCW     9138-DATA
   :IORDYT         9118/STD     9121/STD     9133/LD      9137-DATA
   :IORDYX         9123/STW     9132/MTW     9134/B*      9139-DATA
   :IORDY1         9128/BCR     9133-LD
   :IOREADY        1141/BAL     1213/BAL     1234/BAL     1275/BAL     1360/BAL     1411/BAL     1448/BAL
      1504/BAL     1559/BAL     1587/BAL     1637/BAL     1643/BAL     1649/BAL     1720/BAL     1754/BAL
      1765/BAL     1797/BAL     1808/BAL     1849/BAL     1867/BAL     1927/BAL     1971/BAL     1982/BAL
      2024/BAL     2061/BAL     2092/BAL     2179/BAL     2219/BAL     2249/BAL     2285/BAL     2296/BAL
      2346/BAL     2363/BAL     2396/BAL     2426/BAL     2453/BAL     2470/BAL     2513/BAL     2524/BAL
      2588/BAL     2626/BAL     2658/BAL     2669/BAL     2736/BAL     2775/BAL     2816/BAL     2834/BAL
      2896/BAL     2936/BAL     2952/BAL     2993/BAL     3004/BAL     3031/BAL     3061/BAL     3089/BAL
      3129/BAL     3148/BAL     3356/BAL     3378/BAL     3394/BAL     3438/BAL     3489/BAL     3499/BAL
      3517/BAL     3618/BAL     3651/BAL     3857/BAL     4018/BAL     4063/BAL     4144/BAL     4157/BAL
      4180/BAL     4197/BAL     4232/BAL     4294/BAL     4317/BAL     4342/BAL     4454/BAL     4479/BAL
      4494/BAL     4532/BAL     4538/BAL     4551/BAL     4579/BAL     4755/BAL     5081/BAL     5134/BAL
      5166/BAL     5298/BAL     5417/BAL     5433/BAL     9118-STD
   :IORTN          8860/STW     8861/LW*     8862/LW*     8868/CW*     8869/BAZ*    8873/BE*     8875/CW*
      8876/BANZ*   8926/B*      8943/LW*     8944/LW*     8959/LW*     8960/LW*     9045-DATA
   :IOSAVE         9074/STW     9075/STW     9076/STD     9084/LW      9085/LW      9086/LD      9108-RES
   :K             10121/AW     10130-DATA
   :KSRADR          194-EQU
   :LIMIT           279/:PROCDIC             8553-STW
   :LIM0           8557-BAL     8562/BNE
   :LIM1           8556/BE      8560-STW
   :LIM2           8564/BGZ     8566-STW
   :LOADIN          192-EQU
   :MACHINE         195-EQU
   :MEMLAST         205-EQU     5806/CW      7704/CW
   :MEMSIZE         204-EQU
   :MLT              34/BAL*     171-EQU      172/EQU      173/EQU      174/EQU      175/EQU      176/EQU
       177/EQU      178/EQU      179/EQU      180/EQU      181/EQU      182/EQU      183/EQU      184/EQU
       185/EQU      186/EQU      187/EQU      188/EQU      189/EQU      190/EQU      191/EQU      192/EQU
       193/EQU      194/EQU      195/EQU      196/EQU      197/EQU      198/EQU      199/EQU      200/EQU
       201/EQU      202/EQU      203/EQU      204/EQU      205/EQU      206/EQU      207/EQU      208/EQU
       209/EQU
   :MLTEND          209-EQU
   :MONIOBF         206-EQU
   :MONITOR         179-EQU      630/B*       690/B*       742/B*       762/B*      4907/B*      5730/B*
      5734/B*      5814/B*      7048/B*      7107/B*      7123/B*      7185/B*      7194/B*      7231/B*
      7239/B*      7372/B*      7389/B*      7408/B*      8067/B*      8401/B*      8425/B*      8508/B*
      8514/B*      8517/B*      8532/B*      8536/B*      8540/B*      8559/B*      8567/B*
   :MONPBF          207-EQU
   :MONWAIT         188-EQU
   :MRECOVR         189-EQU
   :MSGIN           191-EQU
   :MSGOUT          190-EQU
   :M1            10111/STW    10116/MTW    10122/EOR    10127-DATA
   :M2            10112/STW    10118/MTW    10123/EOR    10128-DATA
   :PATBFR         3906/STW     4136/STW     6428/STW     6449/STW     8161/STW     8165/STW     8184/STW*
      9839/AW      9849/AW      9860/AW      9882/AW      9890/AW      9905-DATA
   :PATEXIT        9836/B       9844-LCI     9855/B       9879/B       9887/B       9898/BCR
   :PATID          3902/STW     3904/STW     3968/STW     3969/STW     3970/STW     3973/STW     3974/STW
      4129/STW     4130/STW     5799/STW     6425/STW     6446/STW     6569/STW     7311/STW     7314/STW
      7463/STW     7684/STW     8166/CW      8172/CW      8175/STW     8177/CW      8180/STW     8182/CW
      9829/LW      9841/LW      9851/LW      9853/AW      9862/LW      9884/LW*     9892/LW      9903-DATA
   :PATSAVE        9828/STM     9845/LM      9858/STM     9878/LM      9907-RES
   :PATTERN        3909/BAL     3916/BAL     3933/BAL     3951/BAL     4139/BAL     6429/BAL     6450/BAL
      8181/BAL     9827-LCI
   :PATWC          3908/STW     4138/STW     5801/STW     8171/STW     9838/LW      9840/LCW     9848/LW
      9850/LCW     9859/LW      9861/LCW     9881/LW      9883/LCW     9889/LW      9891/LCW     9904-DATA
   :PAT0           9831/B       9838-LW
   :PAT1           9832/B       9848-LW
   :PAT2           9833/B       9857-LCI
   :PAT2A          9865/B       9877-LCI
   :PAT3           9834/B       9881-LW
   :PAT4           9835/B       9889-LW
   :PITEND          241-EQU      242/DO
   :PITLAST         240-EQU      242/DO
   :PIT0            225-DATA     241/EQU
   :PIT1            226-DATA
   :PIT10           235-DATA     369/STW      687/STW      698/STW      702/STW     5731/STW     7045/STW
      7080/STW     7085/STW     7217/STW     7225/STW     8398/STW     8509/STW     8511/STW     8553/STW
      8560/STW
   :PIT11           236-DATA
   :PIT12           237-DATA     367/STW      442/STW
   :PIT15           239-DATA     724/STW     5708/STW     7031/STW
   :PIT2            227-DATA
   :PIT27           245-DATA
   :PIT3            228-DATA
   :PIT4            229-DATA
   :PIT5            230-DATA
   :PIT6            231-DATA
   :PIT7            232-DATA
   :PIT8            233-DATA
   :PIT9            234-DATA
   :PK             9868/STW     9873/XW      9874/AW      9906-DATA
   :PREPORT         199-EQU      688/BAL*    5732/BAL*    7046/BAL*    8399/BAL*    8512/BAL*    8557/BAL*
   :PRINT           127/BAL*     186-EQU      623/BAL*     737/BAL*     865/BAL*     867/BAL*    1678/BAL*
      1680/BAL*    3277/BAL*    3279/BAL*    3281/BAL*    3283/BAL*    3326/BAL*    3666/BAL*    3724/BAL*
      4724/BAL*    4836/BAL*    4838/BAL* 5060.76/BAL*    5137/BAL*    5139/BAL*    5216/BAL*    5269/BAL*
      5273/BAL*    5381/BAL*    5383/BAL*    5385/BAL*    5445/BAL*    5812/BAL*    5863/BAL*    5946/BAL*
      5955/BAL*    6184/BAL*    6282/BAL*    6331/BAL*    6490/BAL*    6502/BAL*    6508/BAL*    6754/BAL*
      6766/BAL*    7121/BAL*    7183/BAL*    7192/BAL*    7229/BAL*    7237/BAL*    7370/BAL*    7387/BAL*
      7406/BAL*    7529/BAL*    7536/BAL*    7548/BAL*    7554/BAL*    7564/BAL*    7566/BAL*    7584/BAL*
      7587/BAL*    7589/BAL*    7757/BAL*    7804/BAL*    8011/BAL*    8065/BAL*    8082/BAL*    8331/BAL*
      8333/BAL*    8335/BAL*    8337/BAL*    8515/BAL*    8530/BAL*    8584/BAL*    8597/BAL*    8653/BAL*
      8670/BAL*    8701/BAL*    8721/BAL*    8724/BAL*    8775/BAL*    8898/BAL*    8906/BAL*    8922/BAL*
      8937/BAL*    8954/BAL*    8981/BAL*    9103/BAL*    9234/BAL*    9245/BAL*    9247/BAL*    9257/BAL*
      9262/BAL*    9516/BAL*    9566/BAL*    9600/BAL*    9607/BAL*    9614/BAL*   10053/BAL*   10177/BAL*
     10184/BAL*   10189/BAL*
   :PROCDIC          95-CNAME
   :PROGID          226/DATA     335-EQU
   :PSW             177-EQU     8394/LB      8465/LB      8554/LB
   :P1              172-EQU      607/XW       620/STW      679/LW      5718/LW      7036/CW      7039/CW
      7043/CW      8395/CW      8405/CW      8413/CW      8422/LM      8470/CW      8482/MW      8524/LW
      8561/CW
   :P2              173-EQU      608/XW       621/STW      692/LW      5720/LW      7078/CW      7089/CW
      7091/CW      7111/STW     7117/CW      7130/CW      7134/MTW     7165/CW      7168/CW      7199/MTW
      7214/LW      7245/STW     7261/LW      8474/CW      8485/MW      8563/LW
   :P3              174-EQU     7082/LW      7113/STW     7222/LW      7246/STW     8478/CW      8483/AW
   :P4              175-EQU     7263/LW      8488/AW
   :QSENSE          200-EQU      731/BAL*    5442/BAL*
   :RANDOM         5765/BAL     5768/BAL     5770/BAL     6068/BAL     6130/BAL     6547/BAL     6604/BAL
      6615/BAL     6692/BAL    10114-STW
   :RANDOMX        1198/BAL     3691/BAL    10116-MTW
   :RANDOMY       10111-STW
   :RECOVER         229/DATA     340-STW      440/BAL
   :REG0405        8877/STD     8924/LD      9040-DATA
   :REG0607        8956/STD     8984/LD      9041-DATA
   :REG1213        8878/STD     8925/LD      9042-DATA
   :RELBIAS         196-EQU
   :REMOTE          208-EQU      361/BAL
   :RLOADER         197-EQU
   :SAVCOM1        1104/STW     1112/STW     1358/STW     1967/STW     2057/STW     2281/STW     2509/STW
      2654/STW     2989/STW     4226/STW     4574/STW     9541/LW      9551/LW      9570/LW      9792-DATA
   :SAVEAIO        9746-STD
   :SAVEALL        9717/BAL     9719/BAL     9731/BAL     9736/BAL     9742/BAL     9749/BAL     9751/BAL
      9758/BAL     9764/BAL     9768-STW
   :SAVECLR         349/BAL      725/BAL     9705-STD
   :SAVEHIO        9455/BAL     9729-STD
   :SAVESIO        9740-STD
   :SAVESSA        1880/BAL     2104/BAL     2308/BAL     2476/BAL     2536/BAL     2681/BAL     2848/BAL
      2958/BAL     3458/BAL     4076/BAL     4349/BAL     4558/BAL     9756-STD
   :SAVESSB        9762-STD
   :SAVETAB         910/LH      9444/LW      9494/STW     9499/STW     9522/LW      9563/LW      9575/LW
      9581/STW     9708/STH     9716/LI      9718/LI      9721/STH     9723/STB     9724/STH     9725/STB
      9730/LI      9735/LI      9741/LI      9748/LI      9750/LI      9757/LI      9763/LI      9778-EQU
   :SAVETDV         942/BAL     9462/BAL     9734-STD
   :SAVETIO         903/BAL     9471/BAL     9714-STD
   :SAVETMP        9705/STD     9711/LD      9714/STD     9715/STW     9720/LW      9726/LD      9729/STD
      9732/LD      9734/STD     9737/LD      9740/STD     9743/LD      9746/STD     9747/STW     9752/LW
      9753/LD      9756/STD     9759/LD      9762/STD     9765/LD      9768/STW     9775/B*      9791-DATA
   :SEED           1194/STW     5764/LW      6433/LW      6568/STW     6577/LW      6614/LW      7687/STW
      8169/STW     8174/LW      9876/STW    10114/STW    10119/LW     10124/STW    10129-DATA
   :SENSE           187-EQU     4695/BAL* 5060.43/BAL*
   :SIO              53-CNAME     53/CNAME   8819-SIO
   :SIO1           5021/BAL     8822-LI
   :STATEM1        8882/STH     8885/STB     8951/XW      8953/STB     8955/DATA    9034-TEXTC
   :STATEM2        8968/STH     8972/STB     8978/XW      8980/STB     8982/DATA    9035-TEXTC
   :STATERR        8913/BNE     8917/BE      8943-LW
   :STATER1        8963-LW      8983/BDR
   :STATEST        8823/B       8831/B       8839/B       8847/B       8855/B       8859-STW
   :STATTYP        8950/LW      9038-TEXT
   :STATUSCC       3631/STW     3633/STB     5015/STW     5016/STCF    6292/STW     6294/STB     6297/STW
      6299/STB     6304/STW     6306/STB     7934/LB      8076/STW     8078/STB     8820/STW     8821/STCF
      8828/STW     8829/STCF    8836/STW     8837/STCF    8844/STW     8845/STCF    8852/STW     8853/STCF
      8865/AND     8886/LCF     8947/AND     8963/LW      9047-DATA
   :TDV              57-CNAME     57/CNAME   8843-TDV
   :TDV1           6300/BAL     8846-LI
   :TIO              52-CNAME     52/CNAME   8827-TIO
   :TIO1           6307/BAL     8830-LI
   :TSEQ             72-CNAME
   :TSEQEQU          82-CNAME
   :TYPE           8859/STW     8887/LW      9046-DATA
   :WAIT            201-EQU     5987/BAL*    6012/BAL*    6082/BAL*    7614/BAL*    7619/BAL*    7627/BAL*
      7905/BAL*    8234/BAL*    9094/BAL*    9440/BAL*    9448/BAL*
   :1BYTEIN         183-EQU
   #ABSOLC          415/MW       420/MW       421/AW      3786/DW      3787/DW      3813/LW      3911/LCW
      3931/LCW     3946/LCW     5775/LW      6540/LW      6545/DW      6554/MW      6557/AW      7495/MW
      8481/LW      8618/DW      8627/DW     10141-DATA
   #ABSOLC1        3196/DW      3371/LCW     4053/LW      4283/LW      4404/LW      5071/LW      5099/LW
      5151/LW      7497/MW      8484/LW      8621/DW      8632/DW     10142-DATA
   #ALTRCYL        7219/CW      7617/SW      7643/AW     10149-DATA
   #ASEEKT         3717/CW     10153-DATA
   #CTBLE           384/LI     10156-EQU
   #CTBLS           384/LI       386/STW    10132-EQU
   #DEFLTE          410/LW      7273/LW      7286/LW      7303/LW      7317/LW      8489/CW     10140-DATA
   #DEFLTS          409/LW      4270/CW      4392/CW     10139-DATA
   #FILLHD         8473/LW     10146-DATA
   #FILLSEC        4681/LW      4705/LW   5060.14/LCW  5060.59/LCW  5060.63/AW      8477/LW     10147-DATA
   #FILLTRK        1705/LW      3522/CW      3543/CW      3580/LCW     3582/LW      3692/LW      3708/LW
      3797/CW      4507/LW      7612/CW      8469/LW     10148-DATA
   #HDRTYPE        3190/MTW     3428/MTW     3827/MTW     8039/MTW    10154-DATA
   #HRBYTC         7878/GEN    10159-EQU
   #HRINDEX       10145-DATA
   #HRLEN         10134-DATA
   #HWBYTC         7876/GEN    10160-EQU
   #HWINDEX        4415/LW      4425/LW      4435/LW    4439.1/AW    4439.2/AW      8231/LW      8239/LW
      8263/LW     10144-DATA
   #HWLEN          7160/LW      7265/LW      7482/LW     10135-DATA
   #RBYTC          6980/GEN     6982/GEN     7870/GEN     7872/GEN     7874/GEN    10158-EQU
   #RECMAX          425/CW     10143-DATA
   #RLEN           5800/LW      5805/AW      5825/LW      7075/LW      7300/LW      8170/LW      8202/LW
     10133-DATA
   #RLSOPT         3085/MTW     4898/MTW    10151-DATA
   #SECZERO       10137-DATA
   #SEEKIHW        7162/LW      7270/LW      7502/LW     10136-DATA
   #SEEKREQ        7971/DW     10138-DATA
   #TMOPT           925/MTW     1038/MTW     1053/MTW     1101/MTW     5411/MTW    10152-DATA
   #TSTSHDR        4272/LW      4310/LW      4395/LW      5191/GEN     5193/GEN    10155-DATA
